35: l_err_msg VARCHAR2(240);
36: BEGIN
37: -- If Profile set to TRUE --
38: IF (G_DEBUG = 1) THEN
39: FND_FILE.put_line(FND_FILE.LOG, p_msg);
40: END IF;
41:
42: EXCEPTION
43: WHEN OTHERS THEN
41:
42: EXCEPTION
43: WHEN OTHERS THEN
44: l_err_msg := SUBSTRB(SQLERRM, 1,240);
45: FND_FILE.put_line(FND_FILE.LOG, 'LOGGING SQL ERROR => '||l_err_msg);
46: END Write_Debug;
47:
48:
49:
170: retcode := G_CONC_RETCODE_SUCCESS; /* return code for concurrent program set to success by default*/
171: l_return_status := G_RET_STS_SUCCESS; /*return code of each api set to success by default */
172:
173: /* Dump information on parmeters passed into the concurrent log file irrespective of whether debug is turned on or not */
174: FND_FILE.put_line (FND_FILE.log, ' ');
175: FND_FILE.put_line (FND_FILE.log, 'EGO Import Metadata');
176: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
171: l_return_status := G_RET_STS_SUCCESS; /*return code of each api set to success by default */
172:
173: /* Dump information on parmeters passed into the concurrent log file irrespective of whether debug is turned on or not */
174: FND_FILE.put_line (FND_FILE.log, ' ');
175: FND_FILE.put_line (FND_FILE.log, 'EGO Import Metadata');
176: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
172:
173: /* Dump information on parmeters passed into the concurrent log file irrespective of whether debug is turned on or not */
174: FND_FILE.put_line (FND_FILE.log, ' ');
175: FND_FILE.put_line (FND_FILE.log, 'EGO Import Metadata');
176: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
173: /* Dump information on parmeters passed into the concurrent log file irrespective of whether debug is turned on or not */
174: FND_FILE.put_line (FND_FILE.log, ' ');
175: FND_FILE.put_line (FND_FILE.log, 'EGO Import Metadata');
176: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
181: FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
174: FND_FILE.put_line (FND_FILE.log, ' ');
175: FND_FILE.put_line (FND_FILE.log, 'EGO Import Metadata');
176: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
181: FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
182: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
175: FND_FILE.put_line (FND_FILE.log, 'EGO Import Metadata');
176: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
181: FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
182: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
183: FND_FILE.put_line (FND_FILE.log, ' ');
176: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
181: FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
182: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
183: FND_FILE.put_line (FND_FILE.log, ' ');
184:
177: FND_FILE.put_line (FND_FILE.log, 'Argument 1 (Import Value Sets) = '||p_import_vs);
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
181: FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
182: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
183: FND_FILE.put_line (FND_FILE.log, ' ');
184:
185: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Entered Import Metadata (EGOIMDCP) concurrent program');
178: FND_FILE.put_line (FND_FILE.log, 'Argument 2 (Import Attribute Groups) = '||p_import_ag);
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
181: FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
182: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
183: FND_FILE.put_line (FND_FILE.log, ' ');
184:
185: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Entered Import Metadata (EGOIMDCP) concurrent program');
186: --======================--
179: FND_FILE.put_line (FND_FILE.log, 'Argument 3 (Import Item Catalog Cateogories) = '||p_import_icc);
180: FND_FILE.put_line (FND_FILE.log, 'Argument 4 (Batch Id (Null for All) ) = '||p_set_process_id);
181: FND_FILE.put_line (FND_FILE.log, 'Argument 5 (Delete Processed Records) = '||p_del_proc_recs);
182: FND_FILE.put_line (FND_FILE.log, '--------------------------------------------------------------------------------');
183: FND_FILE.put_line (FND_FILE.log, ' ');
184:
185: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Entered Import Metadata (EGOIMDCP) concurrent program');
186: --======================--
187: -- WHO COLUMNS SET-UP --
186: --======================--
187: -- WHO COLUMNS SET-UP --
188: --======================--
189: SetGlobals();
190: FND_FILE.put_line (FND_FILE.log, 'Profile INV Debug Trace = '||G_DEBUG);
191: IF (G_DEBUG <= 0) THEN
192: FND_FILE.put_line (FND_FILE.log, 'Profile INV Debug Trace is not set, so debug messages will not be printed.');
193: END IF;
194: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Setup Global variables');
188: --======================--
189: SetGlobals();
190: FND_FILE.put_line (FND_FILE.log, 'Profile INV Debug Trace = '||G_DEBUG);
191: IF (G_DEBUG <= 0) THEN
192: FND_FILE.put_line (FND_FILE.log, 'Profile INV Debug Trace is not set, so debug messages will not be printed.');
193: END IF;
194: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Setup Global variables');
195:
196: --======================--
229: END IF; /* l_return_status <> G_RET_STS_UNEXP_ERROR */
230:
231: IF Nvl(l_return_status,G_RET_STS_SUCCESS) = G_RET_STS_UNEXP_ERROR THEN
232: /* if VS or AG or ICC import failed with unexpected errors*/
233: FND_FILE.put_line (FND_FILE.log, G_PKG_NAME||'.'||l_proc_name||'->'||'Exceptions occured during Import Metadata program');
234: FND_FILE.put_line (FND_FILE.log, l_return_msg);
235: ERRBUF := l_return_msg;
236: RETCODE := G_CONC_RETCODE_ERROR;
237: END IF;
230:
231: IF Nvl(l_return_status,G_RET_STS_SUCCESS) = G_RET_STS_UNEXP_ERROR THEN
232: /* if VS or AG or ICC import failed with unexpected errors*/
233: FND_FILE.put_line (FND_FILE.log, G_PKG_NAME||'.'||l_proc_name||'->'||'Exceptions occured during Import Metadata program');
234: FND_FILE.put_line (FND_FILE.log, l_return_msg);
235: ERRBUF := l_return_msg;
236: RETCODE := G_CONC_RETCODE_ERROR;
237: END IF;
238:
262: delete_processed_metadata(p_import_vs, p_import_ag,p_import_icc,p_set_process_id, l_return_status,l_return_msg);
263: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'returned from delete_processed_metadata() with return status: '||l_return_status);
264:
265: IF Nvl(l_return_status,G_RET_STS_SUCCESS) =G_RET_STS_UNEXP_ERROR THEN
266: FND_FILE.put_line (FND_FILE.log, G_PKG_NAME||'.'||l_proc_name||'->'||'Exceptions occured during Import Metadata program');
267: FND_FILE.put_line (FND_FILE.log, l_return_msg);
268: ERRBUF := l_return_msg;
269: RETCODE := G_CONC_RETCODE_ERROR;
270: END IF; /* end of if l_return_status =G_RET_STS_UNEXP_ERROR*/
263: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'returned from delete_processed_metadata() with return status: '||l_return_status);
264:
265: IF Nvl(l_return_status,G_RET_STS_SUCCESS) =G_RET_STS_UNEXP_ERROR THEN
266: FND_FILE.put_line (FND_FILE.log, G_PKG_NAME||'.'||l_proc_name||'->'||'Exceptions occured during Import Metadata program');
267: FND_FILE.put_line (FND_FILE.log, l_return_msg);
268: ERRBUF := l_return_msg;
269: RETCODE := G_CONC_RETCODE_ERROR;
270: END IF; /* end of if l_return_status =G_RET_STS_UNEXP_ERROR*/
271:
277: Write_Debug(G_PKG_NAME||'.'||l_proc_name||'->'||'Exit Import Metadata (EGOIMDCP) concurrent program');
278:
279: EXCEPTION
280: WHEN OTHERS THEN
281: FND_FILE.put_line (FND_FILE.log, G_PKG_NAME||'.'||l_proc_name||'->'||'Exceptions occured during Import Metadata program');
282: FND_FILE.put_line (FND_FILE.log, SQLERRM);
283: ERRBUF := SQLERRM;
284: RETCODE := G_CONC_RETCODE_ERROR;
285: END import_metadata;
278:
279: EXCEPTION
280: WHEN OTHERS THEN
281: FND_FILE.put_line (FND_FILE.log, G_PKG_NAME||'.'||l_proc_name||'->'||'Exceptions occured during Import Metadata program');
282: FND_FILE.put_line (FND_FILE.log, SQLERRM);
283: ERRBUF := SQLERRM;
284: RETCODE := G_CONC_RETCODE_ERROR;
285: END import_metadata;
286: