DBA Data[Home] [Help]

APPS.GMO_DISP_CON_PKG dependencies on FND_FILE

Line 51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CP : GENERATE_XML(DISPDPCH) : START ');

47: AND NVL(hou.date_to, SYSDATE+1) >= SYSDATE
48: and mp.organization_id = hou.organization_id;
49:
50: BEGIN
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CP : GENERATE_XML(DISPDPCH) : START ');
52: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Input Parameter - Plant :'||Plant||' and Sub Inventory Code:'||SubInventory||' and Batch :'||Batch||' From Date :'||FromDate||' To Date :'||ToDate);
53:
54: l_from_date := null;
55: l_to_date := null;

Line 52: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Input Parameter - Plant :'||Plant||' and Sub Inventory Code:'||SubInventory||' and Batch :'||Batch||' From Date :'||FromDate||' To Date :'||ToDate);

48: and mp.organization_id = hou.organization_id;
49:
50: BEGIN
51: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CP : GENERATE_XML(DISPDPCH) : START ');
52: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Input Parameter - Plant :'||Plant||' and Sub Inventory Code:'||SubInventory||' and Batch :'||Batch||' From Date :'||FromDate||' To Date :'||ToDate);
53:
54: l_from_date := null;
55: l_to_date := null;
56:

Line 158: FND_FILE.put_line(FND_FILE.LOG,'SQL Query'||l_argument_string);

154: ELSE
155: l_argument_string := l_argument_string || ' and 1 = :e ';
156: END IF;
157:
158: FND_FILE.put_line(FND_FILE.LOG,'SQL Query'||l_argument_string);
159:
160: -- execute the Query
161: -- instead of execute immediate, use cursor first and then fetch into result.
162: open l_refcur FOR l_argument_string USING Batch, l_org_code, SubInventory, l_from_date, l_to_date,l_org_name,Plant, nvl(Batch,1), nvl(SubInventory,1), nvl(l_from_date, 1), nvl(l_to_date,1);

Line 172: FND_FILE.PUT(FND_FILE.LOG, 'Size'||l_len);

168: -- write the XML into out file
169: l_limit:= 1;
170: l_final_clob := l_result.getClobVal();
171: l_len := DBMS_LOB.GETLENGTH (l_final_clob);
172: FND_FILE.PUT(FND_FILE.LOG, 'Size'||l_len);
173: LOOP
174: IF l_len > l_limit THEN
175: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
176: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);

Line 176: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);

172: FND_FILE.PUT(FND_FILE.LOG, 'Size'||l_len);
173: LOOP
174: IF l_len > l_limit THEN
175: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
176: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);
177: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
178: l_xml_data := NULL;
179: l_limit:= l_limit + 10;
180: ELSE

Line 177: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);

173: LOOP
174: IF l_len > l_limit THEN
175: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
176: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);
177: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
178: l_xml_data := NULL;
179: l_limit:= l_limit + 10;
180: ELSE
181: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);

Line 182: FND_FILE.PUT(FND_FILE.OUTPUT, l_xml_data);

178: l_xml_data := NULL;
179: l_limit:= l_limit + 10;
180: ELSE
181: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
182: FND_FILE.PUT(FND_FILE.OUTPUT, l_xml_data);
183: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
184: l_xml_data := NULL;
185: EXIT;
186: END IF;

Line 183: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);

179: l_limit:= l_limit + 10;
180: ELSE
181: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
182: FND_FILE.PUT(FND_FILE.OUTPUT, l_xml_data);
183: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
184: l_xml_data := NULL;
185: EXIT;
186: END IF;
187: END LOOP;

Line 188: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISPDPCH) : FINISH ');

184: l_xml_data := NULL;
185: EXIT;
186: END IF;
187: END LOOP;
188: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISPDPCH) : FINISH ');
189: EXCEPTION
190: WHEN OTHERS THEN
191: fnd_file.put_line(fnd_file.log,SQLERRM);
192: fnd_file.new_line(fnd_file.log,2);

Line 191: fnd_file.put_line(fnd_file.log,SQLERRM);

187: END LOOP;
188: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISPDPCH) : FINISH ');
189: EXCEPTION
190: WHEN OTHERS THEN
191: fnd_file.put_line(fnd_file.log,SQLERRM);
192: fnd_file.new_line(fnd_file.log,2);
193: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_DISPATCH_XML_ERR') );
194: END GENERATE_DISPDPCH_XML;
195:

Line 192: fnd_file.new_line(fnd_file.log,2);

188: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISPDPCH) : FINISH ');
189: EXCEPTION
190: WHEN OTHERS THEN
191: fnd_file.put_line(fnd_file.log,SQLERRM);
192: fnd_file.new_line(fnd_file.log,2);
193: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_DISPATCH_XML_ERR') );
194: END GENERATE_DISPDPCH_XML;
195:
196:

Line 193: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_DISPATCH_XML_ERR') );

189: EXCEPTION
190: WHEN OTHERS THEN
191: fnd_file.put_line(fnd_file.log,SQLERRM);
192: fnd_file.new_line(fnd_file.log,2);
193: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_DISPATCH_XML_ERR') );
194: END GENERATE_DISPDPCH_XML;
195:
196:
197: --Generate Dispense History XML

Line 228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CP : GENERATE_XML(DISHIST) : START ');

224: AND NVL(hou.date_to, SYSDATE+1) >= SYSDATE
225: and mp.organization_id = hou.organization_id;
226:
227: BEGIN
228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CP : GENERATE_XML(DISHIST) : START ');
229: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Input Parameter - Plant :'||Plant||' and Sub Inventory Code :'||SubInventory||' and Batch :'||Batch||' From Date :'||FromDate||' To Date :'||ToDate||' Operation :'||OperatorID);
230: l_from_date := null;
231: l_to_date := null;
232:

Line 229: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Input Parameter - Plant :'||Plant||' and Sub Inventory Code :'||SubInventory||' and Batch :'||Batch||' From Date :'||FromDate||' To Date :'||ToDate||' Operation :'||OperatorID);

225: and mp.organization_id = hou.organization_id;
226:
227: BEGIN
228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CP : GENERATE_XML(DISHIST) : START ');
229: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Input Parameter - Plant :'||Plant||' and Sub Inventory Code :'||SubInventory||' and Batch :'||Batch||' From Date :'||FromDate||' To Date :'||ToDate||' Operation :'||OperatorID);
230: l_from_date := null;
231: l_to_date := null;
232:
233: IF(FromDate IS NOT NULL) THEN

Line 331: FND_FILE.put_line(FND_FILE.LOG,'SQL Query'||l_argument_string);

327: l_argument_string := l_argument_string || ' and 1 = :f';
328: END IF;
329:
330:
331: FND_FILE.put_line(FND_FILE.LOG,'SQL Query'||l_argument_string);
332:
333: -- execute the Query
334: -- EXECUTE IMMEDIATE l_argument_string INTO l_result;
335: -- execute the Query

Line 347: FND_FILE.PUT(FND_FILE.LOG, 'Size'||l_len);

343: -- write the XML into out file
344: l_limit:= 1;
345: l_final_clob := l_result.getClobVal();
346: l_len := DBMS_LOB.GETLENGTH (l_final_clob);
347: FND_FILE.PUT(FND_FILE.LOG, 'Size'||l_len);
348: LOOP
349: IF l_len > l_limit THEN
350: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
351: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);

Line 351: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);

347: FND_FILE.PUT(FND_FILE.LOG, 'Size'||l_len);
348: LOOP
349: IF l_len > l_limit THEN
350: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
351: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);
352: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
353: l_xml_data := NULL;
354: l_limit:= l_limit + 10;
355: ELSE

Line 352: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);

348: LOOP
349: IF l_len > l_limit THEN
350: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
351: FND_FILE.PUT(FND_FILE.OUTPUT,l_xml_data);
352: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
353: l_xml_data := NULL;
354: l_limit:= l_limit + 10;
355: ELSE
356: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);

Line 357: FND_FILE.PUT(FND_FILE.OUTPUT, l_xml_data);

353: l_xml_data := NULL;
354: l_limit:= l_limit + 10;
355: ELSE
356: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
357: FND_FILE.PUT(FND_FILE.OUTPUT, l_xml_data);
358: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
359: l_xml_data := NULL;
360: EXIT;
361: END IF;

Line 358: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);

354: l_limit:= l_limit + 10;
355: ELSE
356: l_xml_data := DBMS_LOB.SUBSTR (l_final_clob,10,l_limit);
357: FND_FILE.PUT(FND_FILE.OUTPUT, l_xml_data);
358: FND_FILE.PUT(FND_FILE.LOG,l_xml_data);
359: l_xml_data := NULL;
360: EXIT;
361: END IF;
362: END LOOP;

Line 363: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISHIST) : FINISH ');

359: l_xml_data := NULL;
360: EXIT;
361: END IF;
362: END LOOP;
363: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISHIST) : FINISH ');
364: EXCEPTION
365: WHEN OTHERS THEN
366: fnd_file.put_line(fnd_file.log,SQLERRM);
367: fnd_file.new_line(fnd_file.log,2);

Line 366: fnd_file.put_line(fnd_file.log,SQLERRM);

362: END LOOP;
363: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISHIST) : FINISH ');
364: EXCEPTION
365: WHEN OTHERS THEN
366: fnd_file.put_line(fnd_file.log,SQLERRM);
367: fnd_file.new_line(fnd_file.log,2);
368: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_HISTORY_XML_ERR') );
369: RETURN;
370: END GENERATE_DISPHIST_XML;

Line 367: fnd_file.new_line(fnd_file.log,2);

363: fnd_file.put_line(FND_FILE.LOG, 'CP : GENERATE_XML(DISHIST) : FINISH ');
364: EXCEPTION
365: WHEN OTHERS THEN
366: fnd_file.put_line(fnd_file.log,SQLERRM);
367: fnd_file.new_line(fnd_file.log,2);
368: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_HISTORY_XML_ERR') );
369: RETURN;
370: END GENERATE_DISPHIST_XML;
371: END GMO_DISP_CON_PKG;

Line 368: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_HISTORY_XML_ERR') );

364: EXCEPTION
365: WHEN OTHERS THEN
366: fnd_file.put_line(fnd_file.log,SQLERRM);
367: fnd_file.new_line(fnd_file.log,2);
368: fnd_file.put_line(fnd_file.log, fnd_message.get_string('GMO', 'GMO_DISPENSE_HISTORY_XML_ERR') );
369: RETURN;
370: END GENERATE_DISPHIST_XML;
371: END GMO_DISP_CON_PKG;