187: WHEN OTHERS THEN
188: ROLLBACK;
189: retcode := '1';
190: errbuff := 'When Others Exception';
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
192: FND_FILE.NEW_LINE(FND_FILE.LOG);
193: END;
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'Concurrent program executed for the transaction header id : '
195: ||get_approved_txn_rec.transaction_header_id);
188: ROLLBACK;
189: retcode := '1';
190: errbuff := 'When Others Exception';
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
192: FND_FILE.NEW_LINE(FND_FILE.LOG);
193: END;
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'Concurrent program executed for the transaction header id : '
195: ||get_approved_txn_rec.transaction_header_id);
196: FND_FILE.NEW_LINE(FND_FILE.LOG);
190: errbuff := 'When Others Exception';
191: FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
192: FND_FILE.NEW_LINE(FND_FILE.LOG);
193: END;
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'Concurrent program executed for the transaction header id : '
195: ||get_approved_txn_rec.transaction_header_id);
196: FND_FILE.NEW_LINE(FND_FILE.LOG);
197:
198: l_flag := FALSE;
192: FND_FILE.NEW_LINE(FND_FILE.LOG);
193: END;
194: FND_FILE.PUT_LINE(FND_FILE.LOG,'Concurrent program executed for the transaction header id : '
195: ||get_approved_txn_rec.transaction_header_id);
196: FND_FILE.NEW_LINE(FND_FILE.LOG);
197:
198: l_flag := FALSE;
199: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
200: 'UPDTPO') LOOP
219: ,p_txn_hdr_rec => l_txn_hdr_rec
220: ,p_txn_line_id => l_txn_line_id
221: );
222: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
223: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTPO');
224: FND_FILE.NEW_LINE(FND_FILE.LOG);
225: ELSE
226: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTPO');
227: FND_FILE.NEW_LINE(FND_FILE.LOG);
220: ,p_txn_line_id => l_txn_line_id
221: );
222: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
223: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTPO');
224: FND_FILE.NEW_LINE(FND_FILE.LOG);
225: ELSE
226: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTPO');
227: FND_FILE.NEW_LINE(FND_FILE.LOG);
228: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
222: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
223: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTPO');
224: FND_FILE.NEW_LINE(FND_FILE.LOG);
225: ELSE
226: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTPO');
227: FND_FILE.NEW_LINE(FND_FILE.LOG);
228: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
229: FND_FILE.NEW_LINE(FND_FILE.LOG);
230: retcode := '2';
223: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTPO');
224: FND_FILE.NEW_LINE(FND_FILE.LOG);
225: ELSE
226: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTPO');
227: FND_FILE.NEW_LINE(FND_FILE.LOG);
228: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
229: FND_FILE.NEW_LINE(FND_FILE.LOG);
230: retcode := '2';
231: errbuff := 'Error';
224: FND_FILE.NEW_LINE(FND_FILE.LOG);
225: ELSE
226: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTPO');
227: FND_FILE.NEW_LINE(FND_FILE.LOG);
228: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
229: FND_FILE.NEW_LINE(FND_FILE.LOG);
230: retcode := '2';
231: errbuff := 'Error';
232: END IF;
225: ELSE
226: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTPO');
227: FND_FILE.NEW_LINE(FND_FILE.LOG);
228: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
229: FND_FILE.NEW_LINE(FND_FILE.LOG);
230: retcode := '2';
231: errbuff := 'Error';
232: END IF;
233: END LOOP;
233: END LOOP;
234: END IF;
235: END LOOP;
236: IF NOT l_flag THEN
237: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : UPDTPO');
238: FND_FILE.NEW_LINE(FND_FILE.LOG);
239: END IF;
240: l_flag := FALSE;
241: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
234: END IF;
235: END LOOP;
236: IF NOT l_flag THEN
237: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : UPDTPO');
238: FND_FILE.NEW_LINE(FND_FILE.LOG);
239: END IF;
240: l_flag := FALSE;
241: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
242: 'NTFYPO') LOOP
262: ,p_txn_hdr_rec => l_txn_hdr_rec
263: ,p_txn_line_id => l_txn_line_id
264: );
265: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : NTFYPO');
267: FND_FILE.NEW_LINE(FND_FILE.LOG);
268: ELSE
269: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : NTFYPO');
270: FND_FILE.NEW_LINE(FND_FILE.LOG);
263: ,p_txn_line_id => l_txn_line_id
264: );
265: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : NTFYPO');
267: FND_FILE.NEW_LINE(FND_FILE.LOG);
268: ELSE
269: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : NTFYPO');
270: FND_FILE.NEW_LINE(FND_FILE.LOG);
271: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
265: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : NTFYPO');
267: FND_FILE.NEW_LINE(FND_FILE.LOG);
268: ELSE
269: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : NTFYPO');
270: FND_FILE.NEW_LINE(FND_FILE.LOG);
271: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
272: FND_FILE.NEW_LINE(FND_FILE.LOG);
273: retcode := '2';
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : NTFYPO');
267: FND_FILE.NEW_LINE(FND_FILE.LOG);
268: ELSE
269: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : NTFYPO');
270: FND_FILE.NEW_LINE(FND_FILE.LOG);
271: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
272: FND_FILE.NEW_LINE(FND_FILE.LOG);
273: retcode := '2';
274: errbuff := 'Error';
267: FND_FILE.NEW_LINE(FND_FILE.LOG);
268: ELSE
269: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : NTFYPO');
270: FND_FILE.NEW_LINE(FND_FILE.LOG);
271: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
272: FND_FILE.NEW_LINE(FND_FILE.LOG);
273: retcode := '2';
274: errbuff := 'Error';
275: END IF;
268: ELSE
269: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : NTFYPO');
270: FND_FILE.NEW_LINE(FND_FILE.LOG);
271: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
272: FND_FILE.NEW_LINE(FND_FILE.LOG);
273: retcode := '2';
274: errbuff := 'Error';
275: END IF;
276: END LOOP;
276: END LOOP;
277: END IF;
278: END LOOP;
279: IF NOT l_flag THEN
280: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : NTFYPO');
281: FND_FILE.NEW_LINE(FND_FILE.LOG);
282: END IF;
283: l_flag := FALSE;
284: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
277: END IF;
278: END LOOP;
279: IF NOT l_flag THEN
280: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : NTFYPO');
281: FND_FILE.NEW_LINE(FND_FILE.LOG);
282: END IF;
283: l_flag := FALSE;
284: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
285: 'INVC') LOOP
305: ,p_txn_hdr_rec => l_txn_hdr_rec
306: ,p_txn_line_id => l_txn_line_id
307: );
308: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
309: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INVC');
310: FND_FILE.NEW_LINE(FND_FILE.LOG);
311: ELSE
312: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INVC');
313: FND_FILE.NEW_LINE(FND_FILE.LOG);
306: ,p_txn_line_id => l_txn_line_id
307: );
308: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
309: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INVC');
310: FND_FILE.NEW_LINE(FND_FILE.LOG);
311: ELSE
312: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INVC');
313: FND_FILE.NEW_LINE(FND_FILE.LOG);
314: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
308: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
309: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INVC');
310: FND_FILE.NEW_LINE(FND_FILE.LOG);
311: ELSE
312: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INVC');
313: FND_FILE.NEW_LINE(FND_FILE.LOG);
314: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
315: FND_FILE.NEW_LINE(FND_FILE.LOG);
316: retcode := '2';
309: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INVC');
310: FND_FILE.NEW_LINE(FND_FILE.LOG);
311: ELSE
312: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INVC');
313: FND_FILE.NEW_LINE(FND_FILE.LOG);
314: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
315: FND_FILE.NEW_LINE(FND_FILE.LOG);
316: retcode := '2';
317: errbuff := 'Error';
310: FND_FILE.NEW_LINE(FND_FILE.LOG);
311: ELSE
312: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INVC');
313: FND_FILE.NEW_LINE(FND_FILE.LOG);
314: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
315: FND_FILE.NEW_LINE(FND_FILE.LOG);
316: retcode := '2';
317: errbuff := 'Error';
318: END IF;
311: ELSE
312: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INVC');
313: FND_FILE.NEW_LINE(FND_FILE.LOG);
314: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
315: FND_FILE.NEW_LINE(FND_FILE.LOG);
316: retcode := '2';
317: errbuff := 'Error';
318: END IF;
319: END LOOP;
319: END LOOP;
320: END IF;
321: END LOOP;
322: IF NOT l_flag THEN
323: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : INVC');
324: FND_FILE.NEW_LINE(FND_FILE.LOG);
325: END IF;
326: l_flag := FALSE;
327: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
320: END IF;
321: END LOOP;
322: IF NOT l_flag THEN
323: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : INVC');
324: FND_FILE.NEW_LINE(FND_FILE.LOG);
325: END IF;
326: l_flag := FALSE;
327: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
328: 'UPDTLP') LOOP
348: ,p_txn_hdr_rec => l_txn_hdr_rec
349: ,p_txn_line_id => l_txn_line_id
350: );
351: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
352: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTLP');
353: FND_FILE.NEW_LINE(FND_FILE.LOG);
354: ELSE
355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTLP');
356: FND_FILE.NEW_LINE(FND_FILE.LOG);
349: ,p_txn_line_id => l_txn_line_id
350: );
351: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
352: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTLP');
353: FND_FILE.NEW_LINE(FND_FILE.LOG);
354: ELSE
355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTLP');
356: FND_FILE.NEW_LINE(FND_FILE.LOG);
357: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
351: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
352: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTLP');
353: FND_FILE.NEW_LINE(FND_FILE.LOG);
354: ELSE
355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTLP');
356: FND_FILE.NEW_LINE(FND_FILE.LOG);
357: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
358: FND_FILE.NEW_LINE(FND_FILE.LOG);
359: retcode := '2';
352: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : UPDTLP');
353: FND_FILE.NEW_LINE(FND_FILE.LOG);
354: ELSE
355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTLP');
356: FND_FILE.NEW_LINE(FND_FILE.LOG);
357: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
358: FND_FILE.NEW_LINE(FND_FILE.LOG);
359: retcode := '2';
360: errbuff := 'Error';
353: FND_FILE.NEW_LINE(FND_FILE.LOG);
354: ELSE
355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTLP');
356: FND_FILE.NEW_LINE(FND_FILE.LOG);
357: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
358: FND_FILE.NEW_LINE(FND_FILE.LOG);
359: retcode := '2';
360: errbuff := 'Error';
361: END IF;
354: ELSE
355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : UPDTLP');
356: FND_FILE.NEW_LINE(FND_FILE.LOG);
357: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
358: FND_FILE.NEW_LINE(FND_FILE.LOG);
359: retcode := '2';
360: errbuff := 'Error';
361: END IF;
362: END LOOP;
362: END LOOP;
363: END IF;
364: END LOOP;
365: IF NOT l_flag THEN
366: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : UPDTLP');
367: FND_FILE.NEW_LINE(FND_FILE.LOG);
368: END IF;
369: l_flag := FALSE;
370: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
363: END IF;
364: END LOOP;
365: IF NOT l_flag THEN
366: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : UPDTLP');
367: FND_FILE.NEW_LINE(FND_FILE.LOG);
368: END IF;
369: l_flag := FALSE;
370: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
371: 'INPL') LOOP
391: ,p_txn_hdr_rec => l_txn_hdr_rec
392: ,p_txn_line_id => l_txn_line_id
393: );
394: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
395: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INPL');
396: FND_FILE.NEW_LINE(FND_FILE.LOG);
397: ELSE
398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INPL');
399: FND_FILE.NEW_LINE(FND_FILE.LOG);
392: ,p_txn_line_id => l_txn_line_id
393: );
394: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
395: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INPL');
396: FND_FILE.NEW_LINE(FND_FILE.LOG);
397: ELSE
398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INPL');
399: FND_FILE.NEW_LINE(FND_FILE.LOG);
400: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
394: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
395: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INPL');
396: FND_FILE.NEW_LINE(FND_FILE.LOG);
397: ELSE
398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INPL');
399: FND_FILE.NEW_LINE(FND_FILE.LOG);
400: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
401: FND_FILE.NEW_LINE(FND_FILE.LOG);
402: retcode := '2';
395: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : INPL');
396: FND_FILE.NEW_LINE(FND_FILE.LOG);
397: ELSE
398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INPL');
399: FND_FILE.NEW_LINE(FND_FILE.LOG);
400: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
401: FND_FILE.NEW_LINE(FND_FILE.LOG);
402: retcode := '2';
403: errbuff := 'Error';
396: FND_FILE.NEW_LINE(FND_FILE.LOG);
397: ELSE
398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INPL');
399: FND_FILE.NEW_LINE(FND_FILE.LOG);
400: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
401: FND_FILE.NEW_LINE(FND_FILE.LOG);
402: retcode := '2';
403: errbuff := 'Error';
404: END IF;
397: ELSE
398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : INPL');
399: FND_FILE.NEW_LINE(FND_FILE.LOG);
400: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
401: FND_FILE.NEW_LINE(FND_FILE.LOG);
402: retcode := '2';
403: errbuff := 'Error';
404: END IF;
405: END LOOP;
405: END LOOP;
406: END IF;
407: END LOOP;
408: IF NOT l_flag THEN
409: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : INPL');
410: FND_FILE.NEW_LINE(FND_FILE.LOG);
411: END IF;
412: l_flag := FALSE;
413: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
406: END IF;
407: END LOOP;
408: IF NOT l_flag THEN
409: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : INPL');
410: FND_FILE.NEW_LINE(FND_FILE.LOG);
411: END IF;
412: l_flag := FALSE;
413: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
414: 'OUTPL') LOOP
434: ,p_txn_hdr_rec => l_txn_hdr_rec
435: ,p_txn_line_id => l_txn_line_id
436: );
437: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
438: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : OUTPL');
439: FND_FILE.NEW_LINE(FND_FILE.LOG);
440: ELSE
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : OUTPL');
442: FND_FILE.NEW_LINE(FND_FILE.LOG);
435: ,p_txn_line_id => l_txn_line_id
436: );
437: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
438: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : OUTPL');
439: FND_FILE.NEW_LINE(FND_FILE.LOG);
440: ELSE
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : OUTPL');
442: FND_FILE.NEW_LINE(FND_FILE.LOG);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
437: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
438: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : OUTPL');
439: FND_FILE.NEW_LINE(FND_FILE.LOG);
440: ELSE
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : OUTPL');
442: FND_FILE.NEW_LINE(FND_FILE.LOG);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
444: FND_FILE.NEW_LINE(FND_FILE.LOG);
445: retcode := '2';
438: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : OUTPL');
439: FND_FILE.NEW_LINE(FND_FILE.LOG);
440: ELSE
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : OUTPL');
442: FND_FILE.NEW_LINE(FND_FILE.LOG);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
444: FND_FILE.NEW_LINE(FND_FILE.LOG);
445: retcode := '2';
446: errbuff := 'Error';
439: FND_FILE.NEW_LINE(FND_FILE.LOG);
440: ELSE
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : OUTPL');
442: FND_FILE.NEW_LINE(FND_FILE.LOG);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
444: FND_FILE.NEW_LINE(FND_FILE.LOG);
445: retcode := '2';
446: errbuff := 'Error';
447: END IF;
440: ELSE
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : OUTPL');
442: FND_FILE.NEW_LINE(FND_FILE.LOG);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
444: FND_FILE.NEW_LINE(FND_FILE.LOG);
445: retcode := '2';
446: errbuff := 'Error';
447: END IF;
448: END LOOP;
448: END LOOP;
449: END IF;
450: END LOOP;
451: IF NOT l_flag THEN
452: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : OUTPL');
453: FND_FILE.NEW_LINE(FND_FILE.LOG);
454: END IF;
455: l_flag := FALSE;
456: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
449: END IF;
450: END LOOP;
451: IF NOT l_flag THEN
452: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : OUTPL');
453: FND_FILE.NEW_LINE(FND_FILE.LOG);
454: END IF;
455: l_flag := FALSE;
456: FOR get_auto_flag_rec IN get_auto_flag_csr(l_supp_trade_profile_id,
457: 'PROMO') LOOP
477: ,p_txn_hdr_rec => l_txn_hdr_rec
478: ,p_txn_line_id => l_txn_line_id
479: );
480: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : PROMO');
482: FND_FILE.NEW_LINE(FND_FILE.LOG);
483: ELSE
484: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : PROMO');
485: FND_FILE.NEW_LINE(FND_FILE.LOG);
478: ,p_txn_line_id => l_txn_line_id
479: );
480: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : PROMO');
482: FND_FILE.NEW_LINE(FND_FILE.LOG);
483: ELSE
484: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : PROMO');
485: FND_FILE.NEW_LINE(FND_FILE.LOG);
486: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
480: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : PROMO');
482: FND_FILE.NEW_LINE(FND_FILE.LOG);
483: ELSE
484: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : PROMO');
485: FND_FILE.NEW_LINE(FND_FILE.LOG);
486: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
487: FND_FILE.NEW_LINE(FND_FILE.LOG);
488: retcode := '2';
481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : PROMO');
482: FND_FILE.NEW_LINE(FND_FILE.LOG);
483: ELSE
484: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : PROMO');
485: FND_FILE.NEW_LINE(FND_FILE.LOG);
486: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
487: FND_FILE.NEW_LINE(FND_FILE.LOG);
488: retcode := '2';
489: errbuff := 'Error';
482: FND_FILE.NEW_LINE(FND_FILE.LOG);
483: ELSE
484: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : PROMO');
485: FND_FILE.NEW_LINE(FND_FILE.LOG);
486: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
487: FND_FILE.NEW_LINE(FND_FILE.LOG);
488: retcode := '2';
489: errbuff := 'Error';
490: END IF;
483: ELSE
484: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : PROMO');
485: FND_FILE.NEW_LINE(FND_FILE.LOG);
486: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
487: FND_FILE.NEW_LINE(FND_FILE.LOG);
488: retcode := '2';
489: errbuff := 'Error';
490: END IF;
491: END LOOP;
491: END LOOP;
492: END IF;
493: END LOOP;
494: IF NOT l_flag THEN
495: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : PROMO');
496: FND_FILE.NEW_LINE(FND_FILE.LOG);
497: END IF;
498: --Add here for POPINVDTLS and POPCUSTCLAIM as no setup is required.
499: IF l_setup_flag THEN
492: END IF;
493: END LOOP;
494: IF NOT l_flag THEN
495: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found in OZF_PROCESS_SETUP_ALL table for the process code : PROMO');
496: FND_FILE.NEW_LINE(FND_FILE.LOG);
497: END IF;
498: --Add here for POPINVDTLS and POPCUSTCLAIM as no setup is required.
499: IF l_setup_flag THEN
500: l_txn_hdr_rec := NULL;
513: ,p_txn_hdr_rec => l_txn_hdr_rec
514: ,p_txn_line_id => l_txn_line_id
515: );
516: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
517: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPINVDTLS');
518: FND_FILE.NEW_LINE(FND_FILE.LOG);
519: ELSE
520: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPINVDTLS');
521: FND_FILE.NEW_LINE(FND_FILE.LOG);
514: ,p_txn_line_id => l_txn_line_id
515: );
516: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
517: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPINVDTLS');
518: FND_FILE.NEW_LINE(FND_FILE.LOG);
519: ELSE
520: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPINVDTLS');
521: FND_FILE.NEW_LINE(FND_FILE.LOG);
522: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
516: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
517: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPINVDTLS');
518: FND_FILE.NEW_LINE(FND_FILE.LOG);
519: ELSE
520: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPINVDTLS');
521: FND_FILE.NEW_LINE(FND_FILE.LOG);
522: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
523: FND_FILE.NEW_LINE(FND_FILE.LOG);
524: retcode := '2';
517: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPINVDTLS');
518: FND_FILE.NEW_LINE(FND_FILE.LOG);
519: ELSE
520: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPINVDTLS');
521: FND_FILE.NEW_LINE(FND_FILE.LOG);
522: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
523: FND_FILE.NEW_LINE(FND_FILE.LOG);
524: retcode := '2';
525: errbuff := 'Error';
518: FND_FILE.NEW_LINE(FND_FILE.LOG);
519: ELSE
520: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPINVDTLS');
521: FND_FILE.NEW_LINE(FND_FILE.LOG);
522: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
523: FND_FILE.NEW_LINE(FND_FILE.LOG);
524: retcode := '2';
525: errbuff := 'Error';
526: END IF;
519: ELSE
520: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPINVDTLS');
521: FND_FILE.NEW_LINE(FND_FILE.LOG);
522: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
523: FND_FILE.NEW_LINE(FND_FILE.LOG);
524: retcode := '2';
525: errbuff := 'Error';
526: END IF;
527: --Check if the customer claims tab is populated
542: ,p_txn_hdr_rec => l_txn_hdr_rec
543: ,p_txn_line_id => l_txn_line_id
544: );
545: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
546: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPCUSTCLAIM');
547: FND_FILE.NEW_LINE(FND_FILE.LOG);
548: ELSE
549: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPCUSTCLAIM');
550: FND_FILE.NEW_LINE(FND_FILE.LOG);
543: ,p_txn_line_id => l_txn_line_id
544: );
545: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
546: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPCUSTCLAIM');
547: FND_FILE.NEW_LINE(FND_FILE.LOG);
548: ELSE
549: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPCUSTCLAIM');
550: FND_FILE.NEW_LINE(FND_FILE.LOG);
551: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
545: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
546: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPCUSTCLAIM');
547: FND_FILE.NEW_LINE(FND_FILE.LOG);
548: ELSE
549: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPCUSTCLAIM');
550: FND_FILE.NEW_LINE(FND_FILE.LOG);
551: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
552: FND_FILE.NEW_LINE(FND_FILE.LOG);
553: retcode := '2';
546: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : POPCUSTCLAIM');
547: FND_FILE.NEW_LINE(FND_FILE.LOG);
548: ELSE
549: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPCUSTCLAIM');
550: FND_FILE.NEW_LINE(FND_FILE.LOG);
551: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
552: FND_FILE.NEW_LINE(FND_FILE.LOG);
553: retcode := '2';
554: errbuff := 'Error';
547: FND_FILE.NEW_LINE(FND_FILE.LOG);
548: ELSE
549: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPCUSTCLAIM');
550: FND_FILE.NEW_LINE(FND_FILE.LOG);
551: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
552: FND_FILE.NEW_LINE(FND_FILE.LOG);
553: retcode := '2';
554: errbuff := 'Error';
555: END IF;
548: ELSE
549: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : POPCUSTCLAIM');
550: FND_FILE.NEW_LINE(FND_FILE.LOG);
551: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(('Error Message : '||l_msg_data),1,4000));
552: FND_FILE.NEW_LINE(FND_FILE.LOG);
553: retcode := '2';
554: errbuff := 'Error';
555: END IF;
556: END LOOP;
554: errbuff := 'Error';
555: END IF;
556: END LOOP;
557: ELSE
558: FND_FILE.PUT_LINE(FND_FILE.LOG,'No setup found in OZF_PROCESS_SETUP_ALL table for the supplier of the
559: transaction number '||l_txn_hdr_rec.Transaction_number);
560: FND_FILE.NEW_LINE(FND_FILE.LOG);
561: END IF;
562: END LOOP;
556: END LOOP;
557: ELSE
558: FND_FILE.PUT_LINE(FND_FILE.LOG,'No setup found in OZF_PROCESS_SETUP_ALL table for the supplier of the
559: transaction number '||l_txn_hdr_rec.Transaction_number);
560: FND_FILE.NEW_LINE(FND_FILE.LOG);
561: END IF;
562: END LOOP;
563:
564: --Insert the required process codes into the DPP_EXECUTION_PROCESSES table
578: WHEN OTHERS THEN
579: ROLLBACK;
580: retcode := '1';
581: errbuff := 'When Others Exception'||SQLERRM;
582: FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
583: FND_FILE.NEW_LINE(FND_FILE.LOG);
584: END;
585: FOR get_process_codes_rec IN get_process_codes_csr(l_supp_trade_profile_id)
586: LOOP
579: ROLLBACK;
580: retcode := '1';
581: errbuff := 'When Others Exception'||SQLERRM;
582: FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
583: FND_FILE.NEW_LINE(FND_FILE.LOG);
584: END;
585: FOR get_process_codes_rec IN get_process_codes_csr(l_supp_trade_profile_id)
586: LOOP
587: --Insert the Process codes into the DPP_EXECUTION_PROCESSES table
605: ELSE
606: fnd_message.set_name( 'DPP', 'DPP_EXECUTION_SETUP_NOT_EXIST');
607: fnd_message.set_token('TXN_NUMBER', p_in_txn_number);
608: fnd_msg_pub.add;
609: FND_FILE.PUT_LINE(FND_FILE.LOG,'The transaction cannot be made Active as execution processes setup is not availeble for the
610: transaction number '||p_in_txn_number);
611: FND_FILE.NEW_LINE(FND_FILE.LOG);
612: ROLLBACK;
613: retcode := '1';
607: fnd_message.set_token('TXN_NUMBER', p_in_txn_number);
608: fnd_msg_pub.add;
609: FND_FILE.PUT_LINE(FND_FILE.LOG,'The transaction cannot be made Active as execution processes setup is not availeble for the
610: transaction number '||p_in_txn_number);
611: FND_FILE.NEW_LINE(FND_FILE.LOG);
612: ROLLBACK;
613: retcode := '1';
614: errbuff := 'No Execution processes setup available for this transaction ';
615: END IF;
623: WHEN NO_DATA_FOUND THEN
624: ROLLBACK;
625: retcode := '1';
626: errbuff := 'No Data Found.....';
627: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found.....');
628: FND_FILE.NEW_LINE(FND_FILE.LOG);
629:
630: WHEN OTHERS THEN
631: ROLLBACK;
624: ROLLBACK;
625: retcode := '1';
626: errbuff := 'No Data Found.....';
627: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found.....');
628: FND_FILE.NEW_LINE(FND_FILE.LOG);
629:
630: WHEN OTHERS THEN
631: ROLLBACK;
632: retcode := '1';
630: WHEN OTHERS THEN
631: ROLLBACK;
632: retcode := '1';
633: errbuff := 'When Others Exception'||SQLERRM;
634: FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
635: FND_FILE.NEW_LINE(FND_FILE.LOG);
636: END Initiate_ExecutionProcess;
637: END DPP_EXECUTIONPROCESS_PUB;
631: ROLLBACK;
632: retcode := '1';
633: errbuff := 'When Others Exception'||SQLERRM;
634: FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
635: FND_FILE.NEW_LINE(FND_FILE.LOG);
636: END Initiate_ExecutionProcess;
637: END DPP_EXECUTIONPROCESS_PUB;