[Home] [Help]
277: BEGIN
278: l_module_name := g_module_name || '.extract';
279: p_error_code := g_SUCCESS;
280:
281: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
282: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
283: END IF;
284:
285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
278: l_module_name := g_module_name || '.extract';
279: p_error_code := g_SUCCESS;
280:
281: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
282: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
283: END IF;
284:
285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
281: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
282: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
283: END IF;
284:
285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
287: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_gl_period = '||p_gl_period);
288: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_alc = '||p_alc);
289: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_run_mode = '||p_run_mode);
282: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
283: END IF;
284:
285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
287: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_gl_period = '||p_gl_period);
288: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_alc = '||p_alc);
289: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_run_mode = '||p_run_mode);
290: END IF;
283: END IF;
284:
285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
287: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_gl_period = '||p_gl_period);
288: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_alc = '||p_alc);
289: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_run_mode = '||p_run_mode);
290: END IF;
291:
284:
285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
287: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_gl_period = '||p_gl_period);
288: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_alc = '||p_alc);
289: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_run_mode = '||p_run_mode);
290: END IF;
291:
292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
286: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
287: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_gl_period = '||p_gl_period);
288: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_alc = '||p_alc);
289: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_run_mode = '||p_run_mode);
290: END IF;
291:
292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
293: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'SELECT FROM gl_period_statuses');
288: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_alc = '||p_alc);
289: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_run_mode = '||p_run_mode);
290: END IF;
291:
292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
293: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'SELECT FROM gl_period_statuses');
294: END IF;
295: BEGIN
296: SELECT start_date,
289: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_run_mode = '||p_run_mode);
290: END IF;
291:
292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
293: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'SELECT FROM gl_period_statuses');
294: END IF;
295: BEGIN
296: SELECT start_date,
297: end_date,
303: WHERE glp.period_name = p_gl_period
304: AND glp.ledger_id = p_set_of_books_id
305: AND glp.application_id = 101;
306: p_end_period_date := l_end_date;
307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
308: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_start_date ='||l_start_date);
309: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_end_date ='||l_end_date);
310: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_yr_start_date ='||l_yr_start_date);
311: END IF;
304: AND glp.ledger_id = p_set_of_books_id
305: AND glp.application_id = 101;
306: p_end_period_date := l_end_date;
307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
308: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_start_date ='||l_start_date);
309: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_end_date ='||l_end_date);
310: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_yr_start_date ='||l_yr_start_date);
311: END IF;
312: EXCEPTION
305: AND glp.application_id = 101;
306: p_end_period_date := l_end_date;
307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
308: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_start_date ='||l_start_date);
309: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_end_date ='||l_end_date);
310: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_yr_start_date ='||l_yr_start_date);
311: END IF;
312: EXCEPTION
313: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
306: p_end_period_date := l_end_date;
307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
308: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_start_date ='||l_start_date);
309: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_end_date ='||l_end_date);
310: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_yr_start_date ='||l_yr_start_date);
311: END IF;
312: EXCEPTION
313: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
314: p_error_code := g_FAILURE;
312: EXCEPTION
313: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
314: p_error_code := g_FAILURE;
315: p_error_desc := 'No Such Period (' || p_gl_period|| ') exists';
316: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
317: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
318: WHEN OTHERS THEN
319: p_error_code := g_FAILURE;
320: p_error_desc := SQLERRM;
313: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
314: p_error_code := g_FAILURE;
315: p_error_desc := 'No Such Period (' || p_gl_period|| ') exists';
316: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
317: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
318: WHEN OTHERS THEN
319: p_error_code := g_FAILURE;
320: p_error_desc := SQLERRM;
321: l_location := l_module_name||'select_gl_period_statuses1';
318: WHEN OTHERS THEN
319: p_error_code := g_FAILURE;
320: p_error_desc := SQLERRM;
321: l_location := l_module_name||'select_gl_period_statuses1';
322: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
323: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
324: END ;
325:
326: IF (p_error_code = g_SUCCESS) THEN
319: p_error_code := g_FAILURE;
320: p_error_desc := SQLERRM;
321: l_location := l_module_name||'select_gl_period_statuses1';
322: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
323: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
324: END ;
325:
326: IF (p_error_code = g_SUCCESS) THEN
327:
325:
326: IF (p_error_code = g_SUCCESS) THEN
327:
328: l_last_fetch := FALSE;
329: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
330: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'OPEN current_224_cur');
331: END IF;
332: OPEN current_224_cur (p_set_of_books_id, p_alc, TRUNC(l_end_date)+1);
333: LOOP
326: IF (p_error_code = g_SUCCESS) THEN
327:
328: l_last_fetch := FALSE;
329: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
330: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'OPEN current_224_cur');
331: END IF;
332: OPEN current_224_cur (p_set_of_books_id, p_alc, TRUNC(l_end_date)+1);
333: LOOP
334: FETCH current_224_cur
369: IF (l_gl_period.count = 0 AND l_last_fetch) THEN
370: EXIT;
371: END IF;
372:
373: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
374: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'FETCH current_224_cur');
375: END IF;
376: FOR i IN l_rowid.first .. l_rowid.last LOOP
377: BEGIN
370: EXIT;
371: END IF;
372:
373: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
374: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'FETCH current_224_cur');
375: END IF;
376: FOR i IN l_rowid.first .. l_rowid.last LOOP
377: BEGIN
378: SELECT start_date,
386: EXCEPTION
387: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
388: p_error_code := g_FAILURE;
389: p_error_desc := 'No Such Period (' || l_gl_period(i)|| ') exists';
390: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
391: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
392: WHEN OTHERS THEN
393: p_error_code := g_FAILURE;
394: p_error_desc := SQLERRM;
387: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
388: p_error_code := g_FAILURE;
389: p_error_desc := 'No Such Period (' || l_gl_period(i)|| ') exists';
390: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
391: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
392: WHEN OTHERS THEN
393: p_error_code := g_FAILURE;
394: p_error_desc := SQLERRM;
395: l_location := l_module_name||'select_gl_period_statuses2';
392: WHEN OTHERS THEN
393: p_error_code := g_FAILURE;
394: p_error_desc := SQLERRM;
395: l_location := l_module_name||'select_gl_period_statuses2';
396: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
397: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
398: END;
399:
400: IF (p_error_code = g_SUCCESS) THEN
393: p_error_code := g_FAILURE;
394: p_error_desc := SQLERRM;
395: l_location := l_module_name||'select_gl_period_statuses2';
396: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
397: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
398: END;
399:
400: IF (p_error_code = g_SUCCESS) THEN
401: IF (l_accomplish_date(i) BETWEEN l_start_date AND l_end_date) THEN
511: WHEN OTHERS THEN
512: p_error_code := g_FAILURE;
513: p_error_desc := SQLERRM;
514: l_location := l_module_name||'select_fv_sf224_audits';
515: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
516: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
517: END;
518: END IF;
519: END IF;
512: p_error_code := g_FAILURE;
513: p_error_desc := SQLERRM;
514: l_location := l_module_name||'select_fv_sf224_audits';
515: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
516: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
517: END;
518: END IF;
519: END IF;
520: END IF;
582: WHEN OTHERS THEN
583: p_error_code := g_FAILURE;
584: p_error_desc := SQLERRM;
585: l_location := l_module_name||'update_fv_interagency_funds_all';
586: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
587: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
588: END;
589: END IF;
590:
583: p_error_code := g_FAILURE;
584: p_error_desc := SQLERRM;
585: l_location := l_module_name||'update_fv_interagency_funds_all';
586: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
587: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
588: END;
589: END IF;
590:
591: IF (l_processed_flag(i) = 'Y' AND l_reported_month(i) like '%CURRENT%') then
604: WHEN OTHERS THEN
605: p_error_code := g_FAILURE;
606: p_error_desc := SQLERRM;
607: l_location := l_module_name||'update_fv_refunds_voids_all';
608: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
609: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
610: END;
611: END IF;
612: END IF;
605: p_error_code := g_FAILURE;
606: p_error_desc := SQLERRM;
607: l_location := l_module_name||'update_fv_refunds_voids_all';
608: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
609: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
610: END;
611: END IF;
612: END IF;
613: END IF;
638: WHEN OTHERS THEN
639: p_error_code := g_FAILURE;
640: p_error_desc := SQLERRM;
641: l_location := l_module_name||'select_fv_alc_business_activity_v';
642: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
643: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
644: END;
645: END IF;
646:
639: p_error_code := g_FAILURE;
640: p_error_desc := SQLERRM;
641: l_location := l_module_name||'select_fv_alc_business_activity_v';
642: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
643: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
644: END;
645: END IF;
646:
647: IF (p_error_code = g_SUCCESS) THEN
660: WHEN OTHERS THEN
661: p_error_code := g_FAILURE;
662: p_error_desc := SQLERRM;
663: l_location := l_module_name||'select_fv_sf224_map';
664: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
665: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
666: END;
667: END IF;
668:
661: p_error_code := g_FAILURE;
662: p_error_desc := SQLERRM;
663: l_location := l_module_name||'select_fv_sf224_map';
664: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
665: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
666: END;
667: END IF;
668:
669: IF ((p_business_activity <> 'ALL') AND (l_business_activity_code <> p_business_activity)) THEN
712: WHEN OTHERS THEN
713: p_error_code := g_FAILURE;
714: p_error_desc := SQLERRM;
715: l_location := l_module_name||'update_fv_sf224_temp';
716: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
717: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
718: END;
719: END IF;
720: END LOOP;
713: p_error_code := g_FAILURE;
714: p_error_desc := SQLERRM;
715: l_location := l_module_name||'update_fv_sf224_temp';
716: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
717: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
718: END;
719: END IF;
720: END LOOP;
721:
727: WHEN OTHERS THEN
728: p_error_code := g_FAILURE;
729: p_error_desc := SQLERRM;
730: l_location := l_module_name||'.final_exception';
731: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
732: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
733: IF (current_224_cur%ISOPEN) THEN
734: CLOSE current_224_cur;
735: END IF;
728: p_error_code := g_FAILURE;
729: p_error_desc := SQLERRM;
730: l_location := l_module_name||'.final_exception';
731: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
732: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
733: IF (current_224_cur%ISOPEN) THEN
734: CLOSE current_224_cur;
735: END IF;
736: END post_process_for_main;
754: l_module_name := g_module_name || 'Update_audit_info';
755: p_error_code := g_SUCCESS;
756: -- Updating Audit tables
757:
758: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
759: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'INSERTING INTO THE AUDITS TABLE.');
760: END IF;
761:
762: BEGIN
755: p_error_code := g_SUCCESS;
756: -- Updating Audit tables
757:
758: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
759: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'INSERTING INTO THE AUDITS TABLE.');
760: END IF;
761:
762: BEGIN
763: INSERT INTO fv_sf224_audits
823: WHEN OTHERS THEN
824: p_error_code := g_FAILURE;
825: p_error_desc := SQLERRM;
826: l_location := l_module_name||'insert_fv_sf224_temp';
827: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
828: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
829: END;
830:
831: IF (p_error_code = g_SUCCESS) THEN
824: p_error_code := g_FAILURE;
825: p_error_desc := SQLERRM;
826: l_location := l_module_name||'insert_fv_sf224_temp';
827: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
828: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
829: END;
830:
831: IF (p_error_code = g_SUCCESS) THEN
832: BEGIN
841: WHEN OTHERS THEN
842: p_error_code := g_FAILURE;
843: p_error_desc := SQLERRM;
844: l_location := l_module_name||'delete_fv_sf224_temp';
845: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
846: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
847: END;
848: END IF;
849:
842: p_error_code := g_FAILURE;
843: p_error_desc := SQLERRM;
844: l_location := l_module_name||'delete_fv_sf224_temp';
845: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
846: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
847: END;
848: END IF;
849:
850: EXCEPTION
851: WHEN OTHERS THEN
852: p_error_code := g_FAILURE;
853: p_error_desc := SQLERRM;
854: l_location := l_module_name||'.final_exception';
855: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
856: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
857:
858: END update_audit_info;
859:
852: p_error_code := g_FAILURE;
853: p_error_desc := SQLERRM;
854: l_location := l_module_name||'.final_exception';
855: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
856: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
857:
858: END update_audit_info;
859:
860: --------------------------------------------------------------------
901:
902: BEGIN
903: l_module_name := g_module_name || 'submit_224_report';
904: p_error_code := g_SUCCESS;
905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
906: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'submitting 224 reports .....') ;
907: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
902: BEGIN
903: l_module_name := g_module_name || 'submit_224_report';
904: p_error_code := g_SUCCESS;
905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
906: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'submitting 224 reports .....') ;
907: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
910: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_partial_or_full='||p_partial_or_full) ;
903: l_module_name := g_module_name || 'submit_224_report';
904: p_error_code := g_SUCCESS;
905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
906: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'submitting 224 reports .....') ;
907: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
910: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_partial_or_full='||p_partial_or_full) ;
911: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_business_activity='||p_business_activity) ;
904: p_error_code := g_SUCCESS;
905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
906: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'submitting 224 reports .....') ;
907: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
910: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_partial_or_full='||p_partial_or_full) ;
911: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_business_activity='||p_business_activity) ;
912: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gwa_reporter_category='||p_gwa_reporter_category) ;
905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
906: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'submitting 224 reports .....') ;
907: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
910: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_partial_or_full='||p_partial_or_full) ;
911: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_business_activity='||p_business_activity) ;
912: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gwa_reporter_category='||p_gwa_reporter_category) ;
913: END IF;
906: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'submitting 224 reports .....') ;
907: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
910: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_partial_or_full='||p_partial_or_full) ;
911: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_business_activity='||p_business_activity) ;
912: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gwa_reporter_category='||p_gwa_reporter_category) ;
913: END IF;
914:
907: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
910: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_partial_or_full='||p_partial_or_full) ;
911: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_business_activity='||p_business_activity) ;
912: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gwa_reporter_category='||p_gwa_reporter_category) ;
913: END IF;
914:
915: l_request_id := fnd_global.conc_request_id;
908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gl_period='||p_gl_period) ;
909: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_alc='||p_alc) ;
910: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_partial_or_full='||p_partial_or_full) ;
911: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_business_activity='||p_business_activity) ;
912: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_gwa_reporter_category='||p_gwa_reporter_category) ;
913: END IF;
914:
915: l_request_id := fnd_global.conc_request_id;
916:
924: WHEN OTHERS THEN
925: p_error_code := g_FAILURE;
926: p_error_desc := SQLERRM;
927: l_location := l_module_name||'cursor_get_print_options_c';
928: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
929: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
930: END;
931:
932: IF (p_error_code = g_SUCCESS) THEN
925: p_error_code := g_FAILURE;
926: p_error_desc := SQLERRM;
927: l_location := l_module_name||'cursor_get_print_options_c';
928: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
929: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
930: END;
931:
932: IF (p_error_code = g_SUCCESS) THEN
933: l_print_option := fnd_request.set_print_options
954: IF (l_req_id1 = 0) THEN
955: p_error_code := g_FAILURE;
956: p_error_desc := 'ERROR SUBMITTING 224 REPORT';
957: l_location := 'submit_FVSF224R';
958: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
959: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
960: ELSE
961: COMMIT;
962: END IF;
955: p_error_code := g_FAILURE;
956: p_error_desc := 'ERROR SUBMITTING 224 REPORT';
957: l_location := 'submit_FVSF224R';
958: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
959: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
960: ELSE
961: COMMIT;
962: END IF;
963: END IF;
986: IF (l_req_id2 = 0) THEN
987: p_error_code := g_FAILURE;
988: p_error_desc := 'ERROR SUBMITTING 224 LISTING';
989: l_location := 'submit_FVSF224L';
990: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
991: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
992: ELSE
993: COMMIT;
994: END IF;
987: p_error_code := g_FAILURE;
988: p_error_desc := 'ERROR SUBMITTING 224 LISTING';
989: l_location := 'submit_FVSF224L';
990: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
991: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
992: ELSE
993: COMMIT;
994: END IF;
995: END IF;
1016: IF (l_req_id3 = 0) THEN
1017: p_error_code := g_FAILURE;
1018: p_error_desc := 'ERROR SUBMITTING 224 EXCEPTION REPORT';
1019: l_location := 'submit_FV224EXR';
1020: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1021: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1022: ELSE
1023: COMMIT;
1024: END IF;
1017: p_error_code := g_FAILURE;
1018: p_error_desc := 'ERROR SUBMITTING 224 EXCEPTION REPORT';
1019: l_location := 'submit_FV224EXR';
1020: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1021: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1022: ELSE
1023: COMMIT;
1024: END IF;
1025: END IF;
1048: IF (l_req_id4 = 0) THEN
1049: p_error_code := g_FAILURE;
1050: p_error_desc := 'ERROR SUBMITTING GOALS 224 PROCESS';
1051: l_location := 'submit_FVTI224P';
1052: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1053: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1054: ELSE
1055: COMMIT;
1056: END IF;
1049: p_error_code := g_FAILURE;
1050: p_error_desc := 'ERROR SUBMITTING GOALS 224 PROCESS';
1051: l_location := 'submit_FVTI224P';
1052: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1053: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1054: ELSE
1055: COMMIT;
1056: END IF;
1057: END IF;
1071: IF (l_call_status = FALSE) THEN
1072: p_error_code := g_FAILURE;
1073: p_error_desc := 'Cannot wait for the status of 224 Report';
1074: l_location := 'wait_req1';
1075: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1076: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1077: END IF;
1078: END IF;
1079:
1072: p_error_code := g_FAILURE;
1073: p_error_desc := 'Cannot wait for the status of 224 Report';
1074: l_location := 'wait_req1';
1075: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1076: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1077: END IF;
1078: END IF;
1079:
1080: IF (p_error_code = g_SUCCESS) THEN
1092: IF (l_call_status = FALSE) THEN
1093: p_error_code := g_FAILURE;
1094: p_error_desc := 'Cannot wait for the status of 224 Detail Report';
1095: l_location := 'wait_req2';
1096: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1097: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1098: END IF;
1099: END IF;
1100:
1093: p_error_code := g_FAILURE;
1094: p_error_desc := 'Cannot wait for the status of 224 Detail Report';
1095: l_location := 'wait_req2';
1096: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1097: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1098: END IF;
1099: END IF;
1100:
1101: IF (p_error_code = g_SUCCESS) THEN
1113: IF (l_call_status = FALSE) THEN
1114: p_error_code := g_FAILURE;
1115: p_error_desc := 'Cannot wait for the status of 224 Exception Report';
1116: l_location := 'wait_req3';
1117: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1118: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1119: END IF;
1120: END IF;
1121:
1114: p_error_code := g_FAILURE;
1115: p_error_desc := 'Cannot wait for the status of 224 Exception Report';
1116: l_location := 'wait_req3';
1117: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1118: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1119: END IF;
1120: END IF;
1121:
1122: IF (p_error_code = g_SUCCESS) THEN
1134: IF (l_call_status = FALSE) THEN
1135: p_error_code := g_FAILURE;
1136: p_error_desc := 'Cannot wait for the status of GOALS 224 process';
1137: l_location := 'wait_req4';
1138: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1139: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1140: END IF;
1141: END IF;
1142:
1135: p_error_code := g_FAILURE;
1136: p_error_desc := 'Cannot wait for the status of GOALS 224 process';
1137: l_location := 'wait_req4';
1138: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1139: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1140: END IF;
1141: END IF;
1142:
1143: IF (p_error_code = g_SUCCESS) THEN
1159: IF (l_req_id5 = 0) THEN
1160: p_error_code := g_FAILURE;
1161: p_error_desc := 'ERROR SUBMITTING GOALS 224 REPORT';
1162: l_location := 'submit_FVTI224R';
1163: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1164: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1165: ELSE
1166: COMMIT;
1167: END IF;
1160: p_error_code := g_FAILURE;
1161: p_error_desc := 'ERROR SUBMITTING GOALS 224 REPORT';
1162: l_location := 'submit_FVTI224R';
1163: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1164: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1165: ELSE
1166: COMMIT;
1167: END IF;
1168: END IF;
1182: IF (l_call_status = FALSE) THEN
1183: p_error_code := g_FAILURE;
1184: p_error_desc := 'Cannot wait for the status of GOALS 224 report';
1185: l_location := 'wait_req5';
1186: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1187: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1188: END IF;
1189: END IF;
1190: EXCEPTION
1183: p_error_code := g_FAILURE;
1184: p_error_desc := 'Cannot wait for the status of GOALS 224 report';
1185: l_location := 'wait_req5';
1186: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1187: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1188: END IF;
1189: END IF;
1190: EXCEPTION
1191: WHEN OTHERS THEN
1191: WHEN OTHERS THEN
1192: p_error_code := g_FAILURE;
1193: p_error_desc := SQLERRM;
1194: l_location := l_module_name||'.final_exception';
1195: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1196: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1197:
1198: END submit_224_report;
1199:
1192: p_error_code := g_FAILURE;
1193: p_error_desc := SQLERRM;
1194: l_location := l_module_name||'.final_exception';
1195: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1196: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1197:
1198: END submit_224_report;
1199:
1200: --------------------------------------------------------------------
1222: BEGIN
1223: l_module_name := g_module_name || 'call_extract_process';
1224: p_error_code := g_SUCCESS;
1225: p_def_org_id := mo_global.get_current_org_id;
1226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1227: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'In call_extact process');
1228: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
1229: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'org_id='||p_def_org_id) ;
1230: END IF;
1223: l_module_name := g_module_name || 'call_extract_process';
1224: p_error_code := g_SUCCESS;
1225: p_def_org_id := mo_global.get_current_org_id;
1226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1227: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'In call_extact process');
1228: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
1229: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'org_id='||p_def_org_id) ;
1230: END IF;
1231:
1224: p_error_code := g_SUCCESS;
1225: p_def_org_id := mo_global.get_current_org_id;
1226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1227: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'In call_extact process');
1228: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
1229: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'org_id='||p_def_org_id) ;
1230: END IF;
1231:
1232: l_req_id := fnd_request.submit_request
1225: p_def_org_id := mo_global.get_current_org_id;
1226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1227: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'In call_extact process');
1228: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'p_set_of_books_id='||p_set_of_books_id) ;
1229: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name, 'org_id='||p_def_org_id) ;
1230: END IF;
1231:
1232: l_req_id := fnd_request.submit_request
1233: (
1241: IF (l_req_id = 0) THEN
1242: p_error_code := g_FAILURE;
1243: p_error_desc := 'ERROR SUBMITTING 224 EXTRACT PROCESS';
1244: l_location := 'submit_FVSF224E';
1245: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1246: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1247: ELSE
1248: COMMIT;
1249: END IF;
1242: p_error_code := g_FAILURE;
1243: p_error_desc := 'ERROR SUBMITTING 224 EXTRACT PROCESS';
1244: l_location := 'submit_FVSF224E';
1245: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1246: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1247: ELSE
1248: COMMIT;
1249: END IF;
1250:
1263: IF (l_call_status = FALSE) THEN
1264: p_error_code := g_FAILURE;
1265: p_error_desc := 'Cannot wait for the status of 224 Extract Process';
1266: l_location := 'wait_req1';
1267: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1268: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1269: END IF;
1270: END IF;
1271:
1264: p_error_code := g_FAILURE;
1265: p_error_desc := 'Cannot wait for the status of 224 Extract Process';
1266: l_location := 'wait_req1';
1267: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1268: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1269: END IF;
1270: END IF;
1271:
1272: EXCEPTION
1273: WHEN OTHERS THEN
1274: p_error_code := g_FAILURE;
1275: p_error_desc := SQLERRM;
1276: l_location := l_module_name||'.final_exception';
1277: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1278: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1279:
1280: END call_extract_process;
1281:
1274: p_error_code := g_FAILURE;
1275: p_error_desc := SQLERRM;
1276: l_location := l_module_name||'.final_exception';
1277: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1278: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1279:
1280: END call_extract_process;
1281:
1282:
1301: l_end_period_date DATE;
1302: BEGIN
1303:
1304: l_module_name := g_module_name || 'main';
1305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START OF THE 224 MAIN PROCESS.....');
1307: END IF;
1308:
1309: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1302: BEGIN
1303:
1304: l_module_name := g_module_name || 'main';
1305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START OF THE 224 MAIN PROCESS.....');
1307: END IF;
1308:
1309: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1310: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'INITIALIZING...');
1305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START OF THE 224 MAIN PROCESS.....');
1307: END IF;
1308:
1309: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1310: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'INITIALIZING...');
1311: END IF;
1312: p_retcode := g_SUCCESS;
1313:
1306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START OF THE 224 MAIN PROCESS.....');
1307: END IF;
1308:
1309: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1310: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'INITIALIZING...');
1311: END IF;
1312: p_retcode := g_SUCCESS;
1313:
1314: update_flag := p_run_mode;
1318: g_business_activity := p_business_activity;
1319: g_gwa_reporter_category := p_gwa_reporter_category;
1320:
1321: IF (p_retcode = g_SUCCESS) THEN
1322: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1323: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling call_extract_process procedure and run with org_id .' || p_def_org_id);
1324: END IF;
1325:
1326: call_extract_process
1319: g_gwa_reporter_category := p_gwa_reporter_category;
1320:
1321: IF (p_retcode = g_SUCCESS) THEN
1322: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1323: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling call_extract_process procedure and run with org_id .' || p_def_org_id);
1324: END IF;
1325:
1326: call_extract_process
1327: (
1331: );
1332: END IF;
1333:
1334: IF (p_retcode = g_SUCCESS) THEN
1335: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1336: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling post_process_for_main procedure.....');
1337: END IF;
1338: post_process_for_main
1339: (
1332: END IF;
1333:
1334: IF (p_retcode = g_SUCCESS) THEN
1335: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1336: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling post_process_for_main procedure.....');
1337: END IF;
1338: post_process_for_main
1339: (
1340: p_set_of_books_id => p_set_of_books_id,
1350: );
1351: END IF;
1352:
1353: IF (p_retcode = g_SUCCESS) THEN
1354: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1355: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling submit_224_report procedure.....');
1356: END IF;
1357: submit_224_report
1358: (
1351: END IF;
1352:
1353: IF (p_retcode = g_SUCCESS) THEN
1354: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1355: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling submit_224_report procedure.....');
1356: END IF;
1357: submit_224_report
1358: (
1359: p_set_of_books_id => p_set_of_books_id,
1369: END IF;
1370:
1371: IF (p_retcode = g_SUCCESS) THEN
1372: IF (update_flag = 'F') THEN
1373: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1374: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling update_audit_info procedure.....');
1375: END IF;
1376: update_audit_info
1377: (
1370:
1371: IF (p_retcode = g_SUCCESS) THEN
1372: IF (update_flag = 'F') THEN
1373: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level ) THEN
1374: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'calling update_audit_info procedure.....');
1375: END IF;
1376: update_audit_info
1377: (
1378: p_set_of_books_id => p_set_of_books_id,
1385: END IF;
1386:
1387: IF (p_retcode = g_SUCCESS) THEN
1388: IF (p_partial_or_full='Full') THEN
1389: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CALLING CHENCK ALC ADDRESS ROCEDURE.....');
1391: END IF;
1392: check_alc_address (p_alc) ;
1393: END IF;
1386:
1387: IF (p_retcode = g_SUCCESS) THEN
1388: IF (p_partial_or_full='Full') THEN
1389: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CALLING CHENCK ALC ADDRESS ROCEDURE.....');
1391: END IF;
1392: check_alc_address (p_alc) ;
1393: END IF;
1394: END IF;
1396: WHEN OTHERS THEN
1397: p_retcode := g_FAILURE;
1398: p_errbuf := SQLERRM;
1399: l_location := l_module_name||'.final_exception';
1400: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1401: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
1402:
1403: END main;
1404:
1397: p_retcode := g_FAILURE;
1398: p_errbuf := SQLERRM;
1399: l_location := l_module_name||'.final_exception';
1400: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1401: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
1402:
1403: END main;
1404:
1405: ----------------------------------------------------------------------
1416: l_cnt NUMBER;
1417: BEGIN
1418: l_module_name := g_module_name || 'check_report_definitions';
1419: p_error_code := g_SUCCESS;
1420: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'In ' || l_module_name);
1422: End if;
1423:
1424: SELECT COUNT(*)
1417: BEGIN
1418: l_module_name := g_module_name || 'check_report_definitions';
1419: p_error_code := g_SUCCESS;
1420: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'In ' || l_module_name);
1422: End if;
1423:
1424: SELECT COUNT(*)
1425: INTO l_cnt
1433: p_error_desc := 'The agency location code needs to be updated '||
1434: 'for the Disbursement and Receipt records '||
1435: 'in the 224 and Fund Balance with Treasury Form, '||
1436: 'before running the 224 Process';
1437: fv_utility.log_mesg(fnd_log.level_error, l_module_name||'.error1', p_error_desc) ;
1438: RETURN;
1439: END IF;
1440: EXCEPTION
1441: WHEN OTHERS THEN
1440: EXCEPTION
1441: WHEN OTHERS THEN
1442: p_error_code := g_FAILURE;
1443: p_error_desc := SQLERRM || ' -- Error in Check_Report_Defintions procedure.';
1444: fv_utility.log_mesg(fnd_log.level_unexpected, l_module_name||'.final_exception', p_error_desc) ;
1445: RETURN;
1446: END Check_Report_Definitions;
1447:
1448: ----------------------------------------------------------------------
1461: BEGIN
1462: l_module_name := g_module_name || 'get_previous_run_date';
1463: p_error_code := g_SUCCESS;
1464:
1465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1466: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
1467: END IF;
1468:
1469: BEGIN
1462: l_module_name := g_module_name || 'get_previous_run_date';
1463: p_error_code := g_SUCCESS;
1464:
1465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1466: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
1467: END IF;
1468:
1469: BEGIN
1470: SELECT last_run_date
1487: WHEN OTHERS THEN
1488: p_error_code := g_FAILURE;
1489: p_error_desc := SQLERRM;
1490: l_location := l_module_name||'select_fv_sf224_run';
1491: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1492: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1493: END;
1494:
1495: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1488: p_error_code := g_FAILURE;
1489: p_error_desc := SQLERRM;
1490: l_location := l_module_name||'select_fv_sf224_run';
1491: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1492: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1493: END;
1494:
1495: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1496: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'Last 224 run_date ='||p_previous_run_date);
1491: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1492: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1493: END;
1494:
1495: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1496: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'Last 224 run_date ='||p_previous_run_date);
1497: END IF;
1498:
1499: EXCEPTION
1492: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1493: END;
1494:
1495: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1496: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'Last 224 run_date ='||p_previous_run_date);
1497: END IF;
1498:
1499: EXCEPTION
1500: WHEN OTHERS THEN
1500: WHEN OTHERS THEN
1501: p_error_code := g_FAILURE;
1502: p_error_desc := SQLERRM;
1503: l_location := l_module_name||'.final_exception';
1504: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1505: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1506: END get_run_date;
1507:
1508: ----------------------------------------------------------------------
1501: p_error_code := g_FAILURE;
1502: p_error_desc := SQLERRM;
1503: l_location := l_module_name||'.final_exception';
1504: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1505: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1506: END get_run_date;
1507:
1508: ----------------------------------------------------------------------
1509: -- SET_RUN_DATE
1521: BEGIN
1522: l_module_name := g_module_name || 'set_run_date';
1523: p_error_code := g_SUCCESS;
1524:
1525: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1526: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
1527: END IF;
1528:
1529: BEGIN
1522: l_module_name := g_module_name || 'set_run_date';
1523: p_error_code := g_SUCCESS;
1524:
1525: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1526: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
1527: END IF;
1528:
1529: BEGIN
1530: UPDATE fv_sf224_run
1539: WHEN OTHERS THEN
1540: p_error_code := g_FAILURE;
1541: p_error_desc := SQLERRM;
1542: l_location := l_module_name||'update_fv_sf224_run';
1543: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1544: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1545: END;
1546: IF (p_error_code = g_SUCCESS AND l_insert_required) THEN
1547: BEGIN
1540: p_error_code := g_FAILURE;
1541: p_error_desc := SQLERRM;
1542: l_location := l_module_name||'update_fv_sf224_run';
1543: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1544: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1545: END;
1546: IF (p_error_code = g_SUCCESS AND l_insert_required) THEN
1547: BEGIN
1548: INSERT INTO fv_sf224_run
1559: WHEN OTHERS THEN
1560: p_error_code := g_FAILURE;
1561: p_error_desc := SQLERRM;
1562: l_location := l_module_name||'insert_fv_sf224_run';
1563: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1564: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1565: END;
1566: END IF;
1567:
1560: p_error_code := g_FAILURE;
1561: p_error_desc := SQLERRM;
1562: l_location := l_module_name||'insert_fv_sf224_run';
1563: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1564: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1565: END;
1566: END IF;
1567:
1568: EXCEPTION
1569: WHEN OTHERS THEN
1570: p_error_code := g_FAILURE;
1571: p_error_desc := SQLERRM;
1572: l_location := l_module_name||'.final_exception';
1573: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1574: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1575: END set_run_date;
1576:
1577:
1570: p_error_code := g_FAILURE;
1571: p_error_desc := SQLERRM;
1572: l_location := l_module_name||'.final_exception';
1573: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1574: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1575: END set_run_date;
1576:
1577:
1578: ----------------------------------------------------------------------
1607: p_chart_of_accounts_id := NULL;
1608: p_acct_segment := NULL;
1609: p_acct_value_set_id := NULL;
1610:
1611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1612: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
1613: END IF;
1614:
1615: IF (p_error_code = g_SUCCESS) THEN
1608: p_acct_segment := NULL;
1609: p_acct_value_set_id := NULL;
1610:
1611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1612: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_set_of_books_id = '||p_set_of_books_id);
1613: END IF;
1614:
1615: IF (p_error_code = g_SUCCESS) THEN
1616: BEGIN
1613: END IF;
1614:
1615: IF (p_error_code = g_SUCCESS) THEN
1616: BEGIN
1617: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1618: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Selecting from gl_sets_of_books');
1619: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'g_set_of_books_id='||p_set_of_books_id);
1620: END IF;
1621: SELECT gsob.chart_of_accounts_id,
1614:
1615: IF (p_error_code = g_SUCCESS) THEN
1616: BEGIN
1617: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1618: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Selecting from gl_sets_of_books');
1619: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'g_set_of_books_id='||p_set_of_books_id);
1620: END IF;
1621: SELECT gsob.chart_of_accounts_id,
1622: gsob.currency_code,
1615: IF (p_error_code = g_SUCCESS) THEN
1616: BEGIN
1617: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1618: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Selecting from gl_sets_of_books');
1619: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'g_set_of_books_id='||p_set_of_books_id);
1620: END IF;
1621: SELECT gsob.chart_of_accounts_id,
1622: gsob.currency_code,
1623: gsob.period_set_name
1625: p_currency_code,
1626: l_period_set_name
1627: FROM gl_sets_of_books gsob
1628: WHERE set_of_books_id = p_set_of_books_id;
1629: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1630: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||p_chart_of_accounts_id);
1631: END IF;
1632: EXCEPTION
1633: WHEN OTHERS THEN
1626: l_period_set_name
1627: FROM gl_sets_of_books gsob
1628: WHERE set_of_books_id = p_set_of_books_id;
1629: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1630: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id='||p_chart_of_accounts_id);
1631: END IF;
1632: EXCEPTION
1633: WHEN OTHERS THEN
1634: p_error_code := g_FAILURE;
1633: WHEN OTHERS THEN
1634: p_error_code := g_FAILURE;
1635: p_error_desc := SQLERRM;
1636: l_location := l_module_name||'select_gl_sets_of_books';
1637: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1638: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1639: END;
1640: END IF;
1641:
1634: p_error_code := g_FAILURE;
1635: p_error_desc := SQLERRM;
1636: l_location := l_module_name||'select_gl_sets_of_books';
1637: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1638: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1639: END;
1640: END IF;
1641:
1642: IF (p_error_code = g_SUCCESS) THEN
1639: END;
1640: END IF;
1641:
1642: IF (p_error_code = g_SUCCESS) THEN
1643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1644: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1645: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1646: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1647: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1640: END IF;
1641:
1642: IF (p_error_code = g_SUCCESS) THEN
1643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1644: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1645: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1646: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1647: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1648: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
1641:
1642: IF (p_error_code = g_SUCCESS) THEN
1643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1644: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1645: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1646: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1647: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1648: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
1649: END IF;
1642: IF (p_error_code = g_SUCCESS) THEN
1643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1644: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1645: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1646: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1647: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1648: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
1649: END IF;
1650: l_retval := fnd_flex_apis.get_segment_column
1643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1644: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1645: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1646: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1647: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1648: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
1649: END IF;
1650: l_retval := fnd_flex_apis.get_segment_column
1651: (
1644: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1645: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1646: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1647: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1648: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_acct_seg_attr_type);
1649: END IF;
1650: l_retval := fnd_flex_apis.get_segment_column
1651: (
1652: x_application_id => l_application_id,
1654: x_id_flex_num => p_chart_of_accounts_id,
1655: x_seg_attr_type => l_acct_seg_attr_type,
1656: x_app_column_name => p_acct_segment
1657: );
1658: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1659: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
1660: END IF;
1661: IF (NOT l_retval) THEN
1662: p_error_code := g_FAILURE;
1655: x_seg_attr_type => l_acct_seg_attr_type,
1656: x_app_column_name => p_acct_segment
1657: );
1658: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1659: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
1660: END IF;
1661: IF (NOT l_retval) THEN
1662: p_error_code := g_FAILURE;
1663: p_error_desc := fnd_message.get;
1661: IF (NOT l_retval) THEN
1662: p_error_code := g_FAILURE;
1663: p_error_desc := fnd_message.get;
1664: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
1665: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1666: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1667: END IF;
1668: END IF;
1669:
1662: p_error_code := g_FAILURE;
1663: p_error_desc := fnd_message.get;
1664: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
1665: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1666: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1667: END IF;
1668: END IF;
1669:
1670: IF (p_error_code = g_SUCCESS) THEN
1667: END IF;
1668: END IF;
1669:
1670: IF (p_error_code = g_SUCCESS) THEN
1671: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1672: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1673: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1674: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1668: END IF;
1669:
1670: IF (p_error_code = g_SUCCESS) THEN
1671: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1672: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1673: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1674: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
1669:
1670: IF (p_error_code = g_SUCCESS) THEN
1671: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1672: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1673: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1674: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
1677: END IF;
1670: IF (p_error_code = g_SUCCESS) THEN
1671: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1672: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1673: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1674: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
1677: END IF;
1678: l_retval := fnd_flex_apis.get_segment_column
1671: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1672: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1673: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1674: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
1677: END IF;
1678: l_retval := fnd_flex_apis.get_segment_column
1679: (
1672: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling fnd_flex_apis.get_segment_column');
1673: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_application_id ='||l_application_id);
1674: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_id_flex_code ='||l_id_flex_code);
1675: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_chart_of_accounts_id ='||p_chart_of_accounts_id);
1676: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_acct_seg_attr_type ='||l_bal_seg_attr_type);
1677: END IF;
1678: l_retval := fnd_flex_apis.get_segment_column
1679: (
1680: x_application_id => l_application_id,
1682: x_id_flex_num => p_chart_of_accounts_id,
1683: x_seg_attr_type => l_bal_seg_attr_type,
1684: x_app_column_name => p_bal_segment
1685: );
1686: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1687: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
1688: END IF;
1689: IF (NOT l_retval) THEN
1690: p_error_code := g_FAILURE;
1683: x_seg_attr_type => l_bal_seg_attr_type,
1684: x_app_column_name => p_bal_segment
1685: );
1686: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1687: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'p_acct_segment ='||p_acct_segment);
1688: END IF;
1689: IF (NOT l_retval) THEN
1690: p_error_code := g_FAILURE;
1691: p_error_desc := fnd_message.get;
1689: IF (NOT l_retval) THEN
1690: p_error_code := g_FAILURE;
1691: p_error_desc := fnd_message.get;
1692: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
1693: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1694: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1695: END IF;
1696: END IF;
1697:
1690: p_error_code := g_FAILURE;
1691: p_error_desc := fnd_message.get;
1692: l_location := l_module_name||'call_fnd_flex_apis.get_segment_column';
1693: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1694: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1695: END IF;
1696: END IF;
1697:
1698: IF (p_error_code = g_SUCCESS) THEN
1709: WHEN OTHERS THEN
1710: p_error_code := g_FAILURE;
1711: p_error_desc := SQLERRM;
1712: l_location := l_module_name||'select_fnd_id_flex_segments';
1713: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1714: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1715: END;
1716: END IF;
1717:
1710: p_error_code := g_FAILURE;
1711: p_error_desc := SQLERRM;
1712: l_location := l_module_name||'select_fnd_id_flex_segments';
1713: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1714: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1715: END;
1716: END IF;
1717:
1718: IF (p_error_code = g_SUCCESS) THEN
1724: WHEN OTHERS THEN
1725: p_error_code := g_FAILURE;
1726: p_error_desc := SQLERRM;
1727: l_location := l_module_name||'select_fv_system_parameters';
1728: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1729: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1730: END;
1731: END IF;
1732:
1725: p_error_code := g_FAILURE;
1726: p_error_desc := SQLERRM;
1727: l_location := l_module_name||'select_fv_system_parameters';
1728: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1729: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1730: END;
1731: END IF;
1732:
1733: EXCEPTION
1734: WHEN OTHERS THEN
1735: p_error_code := g_FAILURE;
1736: p_error_desc := SQLERRM;
1737: l_location := l_module_name||'.final_exception';
1738: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1739: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1740: END initialize_program_variables;
1741:
1742: ----------------------------------------------------------------------
1735: p_error_code := g_FAILURE;
1736: p_error_desc := SQLERRM;
1737: l_location := l_module_name||'.final_exception';
1738: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
1739: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
1740: END initialize_program_variables;
1741:
1742: ----------------------------------------------------------------------
1743: -- INSERT_SF224_BATCHES
1766: BEGIN
1767: p_error_code := g_SUCCESS;
1768: l_module_name := g_module_name || 'insert_sf224_batches';
1769:
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1771: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'in insert_sf224_batches procedure, before the insert.');
1772: END IF;
1773: l_string1 := 'INSERT INTO FV_SF224_TEMP
1774: (
1767: p_error_code := g_SUCCESS;
1768: l_module_name := g_module_name || 'insert_sf224_batches';
1769:
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1771: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'in insert_sf224_batches procedure, before the insert.');
1772: END IF;
1773: l_string1 := 'INSERT INTO FV_SF224_TEMP
1774: (
1775: je_batch_id,
1904: dbms_sql.bind_variable(l_cur,':b_request_id',g_request_id);
1905: l_row := dbms_sql.EXECUTE(l_cur);
1906: dbms_sql.close_cursor(l_cur);
1907: /* END for non-sla, upgraded 11i data */
1908: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'End of Insert for upgraded 11i data ');
1909: /* Start for je_source is payables and je_category is non treasury */
1910:
1911: l_string2 := ' SELECT glb.je_batch_id,
1912: ffp.fund_value,
2127: dbms_sql.bind_variable(l_cur,':b_request_id',g_request_id);
2128: l_row := dbms_sql.EXECUTE(l_cur);
2129: dbms_sql.close_cursor(l_cur);
2130: /* END for je_source is payables and je_category is non treasury*/
2131: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'End of Insert for je_source is payables and je_category is non treasury');
2132: /* Start for je_source is payables and je_category is treasury confirmation */
2133:
2134: l_string2 := ' SELECT glb.je_batch_id,
2135: ffp.fund_value,
2237: dbms_sql.bind_variable(l_cur,':b_request_id',g_request_id);
2238: l_row := dbms_sql.EXECUTE(l_cur);
2239: dbms_sql.close_cursor(l_cur);
2240: /* END for je_source is payables and je_category is treasury confirmation */
2241: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'End of Insert for je_source is payables and je_category is treasury confirmation');
2242:
2243: /* Start for je_source is project and je_category is labour_cost */
2244:
2245: l_string2 := ' SELECT glb.je_batch_id,
2346: dbms_sql.bind_variable(l_cur,':b_request_id',g_request_id);
2347: l_row := dbms_sql.EXECUTE(l_cur);
2348: dbms_sql.close_cursor(l_cur);
2349: /* END for je_source is project and je_category is labour_cost */
2350: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'End of Insert for je_source is project and je_category is labour_cost');
2351: /* Start for je_source is Receivables, based on ar_cash_receipt_history_all */
2352:
2353: l_string2 := ' SELECT glb.je_batch_id,
2354: ffp.fund_value,
2458: dbms_sql.bind_variable(l_cur,':b_request_id',g_request_id);
2459: l_row := dbms_sql.EXECUTE(l_cur);
2460: dbms_sql.close_cursor(l_cur);
2461: /* END for je_source is Receivables, based on ar_cash_receipt_history_all*/
2462: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'End of Insert for je_source is Receivables, based on ar_cash_receipt_history_all');
2463: /* Start for je_source is Receivables , based on AR_RECEIVABLE_APPLICATIONS_ALL */
2464:
2465: l_string2 := ' SELECT glb.je_batch_id,
2466: ffp.fund_value,
2571: l_row := dbms_sql.EXECUTE(l_cur);
2572: dbms_sql.close_cursor(l_cur);
2573:
2574: /* END for je_source is Receivables , based on AR_RECEIVABLE_APPLICATIONS_ALL */
2575: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'End of Insert for je_source is Receivables , based on AR_RECEIVABLE_APPLICATIONS_ALL ');
2576: /* Start for for je_source is Receivables , based on AR_MISC_CASH_DISTRIBUTIONS_ALL */
2577:
2578: l_string2 := ' SELECT glb.je_batch_id,
2579: ffp.fund_value,
2683: dbms_sql.bind_variable(l_cur,':b_request_id',g_request_id);
2684: l_row := dbms_sql.EXECUTE(l_cur);
2685: dbms_sql.close_cursor(l_cur);
2686: /* END for je_source is Receivables , based on AR_MISC_CASH_DISTRIBUTIONS_ALL */
2687: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'End of Insert for je_source is Receivables , based on AR_MISC_CASH_DISTRIBUTIONS_ALL ');
2688:
2689: EXCEPTION
2690: WHEN OTHERS THEN
2691: p_error_code := sqlcode;
2689: EXCEPTION
2690: WHEN OTHERS THEN
2691: p_error_code := sqlcode;
2692: p_error_desc := sqlerrm;
2693: fv_utility.log_mesg(fnd_log.level_unexpected, l_module_name||'.final_exception', p_error_desc) ;
2694: END insert_sf224_batches ;
2695:
2696:
2697: ----------------------------------------------------------------------
2852: RETURN;
2853: END IF;
2854:
2855: p_def_org_id := mo_global.get_current_org_id;
2856: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2857: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Deriving PAYGROUP for org id '|| p_def_org_id);
2858: END IF;
2859:
2860: -- Determine the default paygroup based on the org_id
2853: END IF;
2854:
2855: p_def_org_id := mo_global.get_current_org_id;
2856: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2857: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Deriving PAYGROUP for org id '|| p_def_org_id);
2858: END IF;
2859:
2860: -- Determine the default paygroup based on the org_id
2861: BEGIN
2864: FROM FV_Operating_units_all
2865: WHERE org_id = p_def_org_id;
2866: EXCEPTION
2867: WHEN No_Data_Found THEN
2868: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2869: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PAYABLES IA PAYGROUP NOT FOUND,BASED ON THE ORG_ID '
2870: ||TO_CHAR(p_def_org_id));
2871: END IF;
2872: NULL;
2865: WHERE org_id = p_def_org_id;
2866: EXCEPTION
2867: WHEN No_Data_Found THEN
2868: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2869: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PAYABLES IA PAYGROUP NOT FOUND,BASED ON THE ORG_ID '
2870: ||TO_CHAR(p_def_org_id));
2871: END IF;
2872: NULL;
2873: WHEN OTHERS THEN
2873: WHEN OTHERS THEN
2874: error_code := g_FAILURE;
2875: error_buf :=SQLERRM || '-- Error in Process_Sf224_Transactions procedure '||
2876: 'while determining the payables ia paygroup.';
2877: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error2', error_buf) ;
2878: END;
2879:
2880: --Determine the attribute column used in AR Reclass Receipt DFF
2881: BEGIN
2884: FROM fv_system_parameters;
2885: EXCEPTION
2886: WHEN NO_DATA_FOUND THEN
2887: l_ar_reclass_attribute:=NULL;
2888: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Receivables Reclassification Field' ||
2890: ' has not set in Define Federal System Parameters Form');
2891: END IF;
2892: END;
2885: EXCEPTION
2886: WHEN NO_DATA_FOUND THEN
2887: l_ar_reclass_attribute:=NULL;
2888: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Receivables Reclassification Field' ||
2890: ' has not set in Define Federal System Parameters Form');
2891: END IF;
2892: END;
2893:
2935: IF (C1%NOTFOUND) THEN
2936: EXIT;
2937: END IF;
2938:
2939: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'---------------------------------');
2941: END IF;
2942: -- Determine the default alc
2943: BEGIN
2936: EXIT;
2937: END IF;
2938:
2939: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'---------------------------------');
2941: END IF;
2942: -- Determine the default alc
2943: BEGIN
2944: SELECT agency_location_code
2949: WHEN NO_DATA_FOUND THEN
2950: error_buf := 'The default agency_location_code could not be determined
2951: -- Error in Process_Sf224_Transactions procedure.';
2952: error_code := g_FAILURE;
2953: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error3', error_buf) ;
2954: RETURN;
2955: WHEN OTHERS THEN
2956: error_buf := SQLERRM||'-- Error in Process_Sf224_Transactions procedure.';
2957: error_code := g_FAILURE;
2954: RETURN;
2955: WHEN OTHERS THEN
2956: error_buf := SQLERRM||'-- Error in Process_Sf224_Transactions procedure.';
2957: error_code := g_FAILURE;
2958: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error4', error_buf) ;
2959: RETURN;
2960: END;
2961: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2962: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DEFAULT ALC IS '||P_DEF_ALC_CODE);
2957: error_code := g_FAILURE;
2958: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error4', error_buf) ;
2959: RETURN;
2960: END;
2961: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2962: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DEFAULT ALC IS '||P_DEF_ALC_CODE);
2963: END IF;
2964: --Fetch the end date for the period in which txn was entered
2965: BEGIN
2958: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error4', error_buf) ;
2959: RETURN;
2960: END;
2961: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2962: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DEFAULT ALC IS '||P_DEF_ALC_CODE);
2963: END IF;
2964: --Fetch the end date for the period in which txn was entered
2965: BEGIN
2966: SELECT start_date,
2973: AND glp.application_id = 101;
2974: EXCEPTION WHEN OTHERS THEN
2975: error_code := 2;
2976: error_buf := substr(sqlerrm,1,50) || ' while fetching txn end date';
2977: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error5', error_buf) ;
2978: END;
2979:
2980: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2981: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'END DATE OF THE TRANSACTION PERIOD '||
2976: error_buf := substr(sqlerrm,1,50) || ' while fetching txn end date';
2977: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error5', error_buf) ;
2978: END;
2979:
2980: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2981: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'END DATE OF THE TRANSACTION PERIOD '||
2982: to_char(l_txn_end_date, 'MM/DD/YYYY'));
2983: END IF;
2984:
2977: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error5', error_buf) ;
2978: END;
2979:
2980: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2981: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'END DATE OF THE TRANSACTION PERIOD '||
2982: to_char(l_txn_end_date, 'MM/DD/YYYY'));
2983: END IF;
2984:
2985:
2986: -----------------------------------------------------------------------
2987: -- Initializing variables
2988: -----------------------------------------------------------------------
2989:
2990: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2991: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TXN WITH SOURCE ='||
2992: L_JE_SOURCE||',Category='||l_je_category||',Batch='||l_name||
2993: ',Header='||l_je_header_id||',Line='||l_je_line_num );
2994: END IF;
2987: -- Initializing variables
2988: -----------------------------------------------------------------------
2989:
2990: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2991: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TXN WITH SOURCE ='||
2992: L_JE_SOURCE||',Category='||l_je_category||',Batch='||l_name||
2993: ',Header='||l_je_header_id||',Line='||l_je_line_num );
2994: END IF;
2995: l_processed_flag := 'N';
3102: EXCEPTION
3103: WHEN others THEN
3104: error_buf :='PA Accomplish Date Error'||sqlerrm;
3105: error_code := g_FAILURE;
3106: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error7', error_buf) ;
3107: RETURN;
3108: END;
3109: END IF;
3110: ELSE --l_je_from_sla_flag
3154: EXCEPTION
3155: WHEN others THEN
3156: error_buf :='PA Accomplish Date Error'||sqlerrm;
3157: error_code := g_FAILURE;
3158: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error7', error_buf) ;
3159: RETURN;
3160: END;
3161: END IF;
3162: END IF;
3176: INTO l_document_number
3177: FROM gl_je_headers
3178: WHERE je_header_id = l_je_header_id;
3179: END;
3180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3181: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Document_Num => ' || l_document_number);
3182: END IF;
3183: IF l_reference_2 IS NULL Then
3184: x_name := 'Blank Invoice Id' ;
3177: FROM gl_je_headers
3178: WHERE je_header_id = l_je_header_id;
3179: END;
3180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3181: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Document_Num => ' || l_document_number);
3182: END IF;
3183: IF l_reference_2 IS NULL Then
3184: x_name := 'Blank Invoice Id' ;
3185: Set_Exception('R');
3240: ELSIF (l_je_source = 'Receivables') THEN -- source1
3241: vl_misc_cd_flag := 'N';
3242: IF (NVL(l_je_from_sla_flag,'N') IN ('N', 'U')) THEN
3243: IF (l_je_category = 'Misc Receipts') THEN -- rec category
3244: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING A MISC RECEIPT');
3246: END IF;
3247: l_cash_receipt_id := l_reference_2;
3248: l_cash_receipt_hist_id := l_reference_5;
3241: vl_misc_cd_flag := 'N';
3242: IF (NVL(l_je_from_sla_flag,'N') IN ('N', 'U')) THEN
3243: IF (l_je_category = 'Misc Receipts') THEN -- rec category
3244: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING A MISC RECEIPT');
3246: END IF;
3247: l_cash_receipt_id := l_reference_2;
3248: l_cash_receipt_hist_id := l_reference_5;
3249: ELSE -- rec category
3246: END IF;
3247: l_cash_receipt_id := l_reference_2;
3248: l_cash_receipt_hist_id := l_reference_5;
3249: ELSE -- rec category
3250: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING A TRADE RECEIPT OR OTHER');
3252: END IF;
3253: -- get the cash receipt id, and the cash receipt history id
3254: l_cash_receipt_id := SUBSTR(l_reference_2,0,INSTR(l_reference_2,'C')-1);
3247: l_cash_receipt_id := l_reference_2;
3248: l_cash_receipt_hist_id := l_reference_5;
3249: ELSE -- rec category
3250: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING A TRADE RECEIPT OR OTHER');
3252: END IF;
3253: -- get the cash receipt id, and the cash receipt history id
3254: l_cash_receipt_id := SUBSTR(l_reference_2,0,INSTR(l_reference_2,'C')-1);
3255: l_cash_receipt_hist_id := SUBSTR(l_reference_2,INSTR(l_reference_2,'C')+1,LENGTH(l_reference_2));
3254: l_cash_receipt_id := SUBSTR(l_reference_2,0,INSTR(l_reference_2,'C')-1);
3255: l_cash_receipt_hist_id := SUBSTR(l_reference_2,INSTR(l_reference_2,'C')+1,LENGTH(l_reference_2));
3256: END IF;
3257: ELSE --l_je_from_sla_flag is 'Y'
3258: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING RECEIPT WHEN SOURCE IS SLA');
3260: END IF;
3261: l_cash_receipt_id := l_reference_2;
3262: l_cash_receipt_hist_id := l_reference_5;
3255: l_cash_receipt_hist_id := SUBSTR(l_reference_2,INSTR(l_reference_2,'C')+1,LENGTH(l_reference_2));
3256: END IF;
3257: ELSE --l_je_from_sla_flag is 'Y'
3258: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING RECEIPT WHEN SOURCE IS SLA');
3260: END IF;
3261: l_cash_receipt_id := l_reference_2;
3262: l_cash_receipt_hist_id := l_reference_5;
3263: END IF;
3260: END IF;
3261: l_cash_receipt_id := l_reference_2;
3262: l_cash_receipt_hist_id := l_reference_5;
3263: END IF;
3264: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT ID = '
3266: ||TO_NUMBER(l_cash_receipt_id));
3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HISTORY ID = '
3268: ||TO_NUMBER(l_cash_receipt_hist_id));
3261: l_cash_receipt_id := l_reference_2;
3262: l_cash_receipt_hist_id := l_reference_5;
3263: END IF;
3264: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT ID = '
3266: ||TO_NUMBER(l_cash_receipt_id));
3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HISTORY ID = '
3268: ||TO_NUMBER(l_cash_receipt_hist_id));
3269: END IF;
3263: END IF;
3264: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT ID = '
3266: ||TO_NUMBER(l_cash_receipt_id));
3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HISTORY ID = '
3268: ||TO_NUMBER(l_cash_receipt_hist_id));
3269: END IF;
3270: IF ((l_cash_receipt_id IS NULL) OR (l_cash_receipt_hist_id IS NULL)) THEN
3271: x_name := 'Blank Cash Receipt Id ' ;
3275: SELECT 'Y'
3276: INTO l_exists
3277: FROM Ar_Cash_Receipts_All
3278: WHERE cash_receipt_id = to_number(l_cash_receipt_id);
3279: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT ID EXISTS');
3281: END IF;
3282: EXCEPTION
3283: WHEN no_data_found THEN
3276: INTO l_exists
3277: FROM Ar_Cash_Receipts_All
3278: WHERE cash_receipt_id = to_number(l_cash_receipt_id);
3279: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT ID EXISTS');
3281: END IF;
3282: EXCEPTION
3283: WHEN no_data_found THEN
3284: x_name := 'Invalid Cash Receipt Id - '||TO_NUMBER(l_cash_receipt_id) ;
3292: INTO l_exists
3293: FROM Ar_Cash_Receipt_History_All
3294: WHERE cash_receipt_history_id = to_number(l_cash_receipt_hist_id)
3295: AND cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3296: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HIST ID EXISTS IN '||
3298: 'Ar_Cash_Receipt_History_All.');
3299: END IF;
3300: EXCEPTION
3293: FROM Ar_Cash_Receipt_History_All
3294: WHERE cash_receipt_history_id = to_number(l_cash_receipt_hist_id)
3295: AND cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3296: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HIST ID EXISTS IN '||
3298: 'Ar_Cash_Receipt_History_All.');
3299: END IF;
3300: EXCEPTION
3301: WHEN no_data_found THEN
3299: END IF;
3300: EXCEPTION
3301: WHEN no_data_found THEN
3302: IF(l_je_category = 'Misc Receipts') THEN
3303: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3304: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOR MISC RECEIPT: '||
3305: 'Cash Receipt Hist Id does not '||
3306: 'exist in Ar_Cash_Receipt_History_All table.'||
3307: 'Checking in Ar_Misc_Cash_Distributions_All table.');
3300: EXCEPTION
3301: WHEN no_data_found THEN
3302: IF(l_je_category = 'Misc Receipts') THEN
3303: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3304: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOR MISC RECEIPT: '||
3305: 'Cash Receipt Hist Id does not '||
3306: 'exist in Ar_Cash_Receipt_History_All table.'||
3307: 'Checking in Ar_Misc_Cash_Distributions_All table.');
3308: END IF;
3307: 'Checking in Ar_Misc_Cash_Distributions_All table.');
3308: END IF;
3309: l_exists := 'M';
3310: ELSE
3311: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3312: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOR TRADE RECEIPT: '||
3313: 'Cash Receipt Hist Id does not '||
3314: 'exist in Ar_Cash_Receipt_History_All table.'||
3315: 'Checking in Ar_Receivable_Applications_All table.');
3308: END IF;
3309: l_exists := 'M';
3310: ELSE
3311: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3312: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOR TRADE RECEIPT: '||
3313: 'Cash Receipt Hist Id does not '||
3314: 'exist in Ar_Cash_Receipt_History_All table.'||
3315: 'Checking in Ar_Receivable_Applications_All table.');
3316: END IF;
3327: INTO l_temp_cr_hist_id
3328: FROM Ar_Receivable_Applications_All
3329: WHERE receivable_application_id = TO_NUMBER(l_cash_receipt_hist_id);
3330: l_cash_receipt_hist_id := l_temp_cr_hist_id;
3331: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3332: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HIST ID EXISTS IN '||
3333: 'Ar_Receivable_Applications_All table and is '||
3334: TO_NUMBER(l_cash_receipt_hist_id)||'.Checking in '||
3335: 'Ar_Cash_Receipt_History_All to see if it is a valid '||
3328: FROM Ar_Receivable_Applications_All
3329: WHERE receivable_application_id = TO_NUMBER(l_cash_receipt_hist_id);
3330: l_cash_receipt_hist_id := l_temp_cr_hist_id;
3331: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3332: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HIST ID EXISTS IN '||
3333: 'Ar_Receivable_Applications_All table and is '||
3334: TO_NUMBER(l_cash_receipt_hist_id)||'.Checking in '||
3335: 'Ar_Cash_Receipt_History_All to see if it is a valid '||
3336: 'cash receipt hist id.');
3340: INTO l_exists
3341: FROM Ar_Cash_Receipt_History_All
3342: WHERE cash_receipt_history_id = TO_NUMBER(l_cash_receipt_hist_id)
3343: AND cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3344: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3345: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HIST ID EXISTS IN '||
3346: 'the Ar_Cash_Receipt_History_All table.');
3347: END IF;
3348: EXCEPTION
3341: FROM Ar_Cash_Receipt_History_All
3342: WHERE cash_receipt_history_id = TO_NUMBER(l_cash_receipt_hist_id)
3343: AND cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3344: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3345: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASH RECEIPT HIST ID EXISTS IN '||
3346: 'the Ar_Cash_Receipt_History_All table.');
3347: END IF;
3348: EXCEPTION
3349: WHEN NO_DATA_FOUND THEN
3371: INTO l_exists
3372: FROM Ar_Misc_Cash_Distributions_All
3373: WHERE misc_cash_distribution_id = TO_NUMBER(l_cash_receipt_hist_id)
3374: AND cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3375: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3376: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'MISC CASH DISTRIBUTION ID EXISTS IN '||
3377: 'Ar_Misc_Cash_Distributions_All table and is '|| TO_NUMBER(l_cash_receipt_hist_id));
3378: END IF;
3379: vl_misc_cd_flag := 'Y';
3372: FROM Ar_Misc_Cash_Distributions_All
3373: WHERE misc_cash_distribution_id = TO_NUMBER(l_cash_receipt_hist_id)
3374: AND cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3375: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3376: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'MISC CASH DISTRIBUTION ID EXISTS IN '||
3377: 'Ar_Misc_Cash_Distributions_All table and is '|| TO_NUMBER(l_cash_receipt_hist_id));
3378: END IF;
3379: vl_misc_cd_flag := 'Y';
3380: EXCEPTION
3470: vg_bank_acct_id := NULL;
3471: IF (x_name <> 'MANUAL') THEN -- manual
3472: IF (l_je_source = 'Receivables' ) THEN -- source2
3473: l_exists := 'N';
3474: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3476: 'GETTING THE ACCOMPLISH DATE FOR RECEIPTS');
3477: END IF;
3478: -- Check IF the cash receipt is a reversal
3471: IF (x_name <> 'MANUAL') THEN -- manual
3472: IF (l_je_source = 'Receivables' ) THEN -- source2
3473: l_exists := 'N';
3474: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3476: 'GETTING THE ACCOMPLISH DATE FOR RECEIPTS');
3477: END IF;
3478: -- Check IF the cash receipt is a reversal
3479: IF ((l_je_category = 'Misc Receipts') AND (vl_misc_cd_flag = 'Y')) THEN -- rev check
3483: FROM Ar_Misc_Cash_Distributions_All
3484: WHERE misc_cash_distribution_id = l_cash_receipt_hist_id
3485: AND cash_receipt_id = l_cash_receipt_id
3486: AND created_from = 'ARP_REVERSE_RECEIPT.REVERSE';
3487: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3489: 'MISC CASH DIST ID HAS REVERSE VALUE IN '||'created from column....it is a reversal');
3490: END IF;
3491: EXCEPTION
3484: WHERE misc_cash_distribution_id = l_cash_receipt_hist_id
3485: AND cash_receipt_id = l_cash_receipt_id
3486: AND created_from = 'ARP_REVERSE_RECEIPT.REVERSE';
3487: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3489: 'MISC CASH DIST ID HAS REVERSE VALUE IN '||'created from column....it is a reversal');
3490: END IF;
3491: EXCEPTION
3492: WHEN NO_DATA_FOUND THEN
3494: WHEN OTHERS THEN
3495: error_buf := SQLERRM||'- Error while deriving the reversal status'
3496: ||' for the misc cash dist id '||l_cash_receipt_hist_id;
3497: error_code := 2;
3498: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error10', error_buf) ;
3499: RETURN;
3500: END;
3501: ELSE -- rev check
3502: BEGIN
3505: FROM Ar_Cash_Receipt_History_All
3506: WHERE cash_receipt_history_id = l_cash_receipt_hist_id
3507: AND cash_receipt_id = l_cash_receipt_id
3508: AND status='REVERSED';
3509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3511: 'REVERSAL CASH RECEIPT HIST ID EXISTS..it is a reversal');
3512: END IF;
3513: EXCEPTION
3506: WHERE cash_receipt_history_id = l_cash_receipt_hist_id
3507: AND cash_receipt_id = l_cash_receipt_id
3508: AND status='REVERSED';
3509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3511: 'REVERSAL CASH RECEIPT HIST ID EXISTS..it is a reversal');
3512: END IF;
3513: EXCEPTION
3514: WHEN NO_DATA_FOUND THEN
3516: WHEN OTHERS THEN
3517: error_buf := SQLERRM||'- Error while deriving the status'
3518: ||' for the cash receipt hist id '||l_cash_receipt_hist_id;
3519: error_code := 2;
3520: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error11', error_buf) ;
3521: RETURN;
3522: END;
3523: END IF; -- rev check
3524: BEGIN
3530: WHEN OTHERS THEN
3531: error_buf := SQLERRM|| '- Error while deriving the accomplish date'
3532: ||' for the cash receipt id '||l_cash_receipt_id;
3533: error_code := 1 ;
3534: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error12', error_buf) ;
3535: RETURN;
3536: END;
3537: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3538: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3533: error_code := 1 ;
3534: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error12', error_buf) ;
3535: RETURN;
3536: END;
3537: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3538: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3539: 'ACCOMPLISH DATE IS '||TO_CHAR(L_ACCOMPLISH_DATE, 'MM/DD/YYYY'));
3540: END IF;
3541: BEGIN
3534: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error12', error_buf) ;
3535: RETURN;
3536: END;
3537: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3538: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3539: 'ACCOMPLISH DATE IS '||TO_CHAR(L_ACCOMPLISH_DATE, 'MM/DD/YYYY'));
3540: END IF;
3541: BEGIN
3542: SELECT remit_bank_acct_use_id
3542: SELECT remit_bank_acct_use_id
3543: INTO vg_bank_acct_id
3544: FROM Ar_Cash_Receipts_All
3545: WHERE cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3546: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3547: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCOUNT ID');
3548: END IF;
3549: -- Get the agency location code
3550: Get_Alc
3543: INTO vg_bank_acct_id
3544: FROM Ar_Cash_Receipts_All
3545: WHERE cash_receipt_id = TO_NUMBER(l_cash_receipt_id);
3546: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3547: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCOUNT ID');
3548: END IF;
3549: -- Get the agency location code
3550: Get_Alc
3551: (
3556: );
3557: EXCEPTION
3558: WHEN NO_DATA_FOUND THEN
3559: -- Unable to find the remittance_bank_account_id
3560: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3561: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3562: 'UNABLE TO FIND THE BANK ACCT ID');
3563: END IF;
3564: Set_Exception('D');
3557: EXCEPTION
3558: WHEN NO_DATA_FOUND THEN
3559: -- Unable to find the remittance_bank_account_id
3560: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3561: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3562: 'UNABLE TO FIND THE BANK ACCT ID');
3563: END IF;
3564: Set_Exception('D');
3565: WHEN OTHERS THEN
3565: WHEN OTHERS THEN
3566: error_buf := SQLERRM||'- Error while deriving the agency_location_code'
3567: ||' for the cash receipt id '||l_cash_receipt_id;
3568: error_code := 2;
3569: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error13', error_buf) ;
3570: RETURN;
3571: END;
3572: --- Check for Interagency funds
3573: l_ia_flag := 'N';
3594: ' FROM AR_CASH_RECEIPTS_ALL ACR WHERE ACR.cash_receipt_id = '
3595: || l_cash_receipt_id;
3596: l_reclass_receipt_number := NULL;
3597: EXECUTE IMMEDIATE sql_stmt1 INTO l_reclass_receipt_number ;
3598: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3599: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
3600: 'Reclass Receipt Number: '|| l_reclass_receipt_number );
3601: END IF;
3602: EXCEPTION
3595: || l_cash_receipt_id;
3596: l_reclass_receipt_number := NULL;
3597: EXECUTE IMMEDIATE sql_stmt1 INTO l_reclass_receipt_number ;
3598: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3599: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
3600: 'Reclass Receipt Number: '|| l_reclass_receipt_number );
3601: END IF;
3602: EXCEPTION
3603: WHEN NO_DATA_FOUND THEN
3637: INTO l_obligation_date,
3638: l_inv_amount ;
3639: EXIT WHEN C2%NOTFOUND;
3640: vl_refund_cnt := 0;
3641: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3642: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3643: 'BATCH_ID,HEADER_ID,FUND,REF2 ='||L_BATCH_ID||','||
3644: l_je_header_id||','||l_fund_code||','||l_reference_2);
3645: END IF;
3638: l_inv_amount ;
3639: EXIT WHEN C2%NOTFOUND;
3640: vl_refund_cnt := 0;
3641: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3642: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3643: 'BATCH_ID,HEADER_ID,FUND,REF2 ='||L_BATCH_ID||','||
3644: l_je_header_id||','||l_fund_code||','||l_reference_2);
3645: END IF;
3646: OPEN Get_Count_Csr
3653: l_je_from_sla_flag
3654: );
3655: FETCH Get_Count_Csr INTO vl_refund_cnt;
3656: CLOSE Get_Count_Csr;
3657: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3658: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3659: 'THE # OF RECORDS IN FV_SF224_TEMP '||VL_REFUND_CNT);
3660: END IF;
3661: IF (vl_refund_cnt = 0) THEN
3654: );
3655: FETCH Get_Count_Csr INTO vl_refund_cnt;
3656: CLOSE Get_Count_Csr;
3657: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3658: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3659: 'THE # OF RECORDS IN FV_SF224_TEMP '||VL_REFUND_CNT);
3660: END IF;
3661: IF (vl_refund_cnt = 0) THEN
3662: l_record_type := 'Receipt_refund';
3659: 'THE # OF RECORDS IN FV_SF224_TEMP '||VL_REFUND_CNT);
3660: END IF;
3661: IF (vl_refund_cnt = 0) THEN
3662: l_record_type := 'Receipt_refund';
3663: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3664: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3665: 'RECORD_TYPE AFTER REFUNDS CHECK IS '||L_RECORD_TYPE);
3666: END IF;
3667: l_type := 'AP_REFUND';
3660: END IF;
3661: IF (vl_refund_cnt = 0) THEN
3662: l_record_type := 'Receipt_refund';
3663: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3664: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3665: 'RECORD_TYPE AFTER REFUNDS CHECK IS '||L_RECORD_TYPE);
3666: END IF;
3667: l_type := 'AP_REFUND';
3668: l_update_type := 'RECEIPT';
3668: l_update_type := 'RECEIPT';
3669: l_processed_flag := 'Y';
3670: --l_record_type := 'Receipt_refund';
3671: x_name := 'Refunds_and_Voids';
3672: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3673: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3674: 'BEFORE SET_TRANSACTION_TYPE');
3675: END IF;
3676: set_transaction_type;
3669: l_processed_flag := 'Y';
3670: --l_record_type := 'Receipt_refund';
3671: x_name := 'Refunds_and_Voids';
3672: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3673: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3674: 'BEFORE SET_TRANSACTION_TYPE');
3675: END IF;
3676: set_transaction_type;
3677: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3673: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3674: 'BEFORE SET_TRANSACTION_TYPE');
3675: END IF;
3676: set_transaction_type;
3677: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3678: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3679: 'AFTER SET_TRANSACTION_TYPE');
3680: END IF;
3681: -- Added for WAPA bug fix.
3674: 'BEFORE SET_TRANSACTION_TYPE');
3675: END IF;
3676: set_transaction_type;
3677: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3678: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3679: 'AFTER SET_TRANSACTION_TYPE');
3680: END IF;
3681: -- Added for WAPA bug fix.
3682: -- Bug 1013752
3710: -- Hence accomplish date would be ref6.
3711: l_accomplish_date := l_reference_6;
3712: IF l_reference_3 IS NULL THEN -- ref3-0
3713: -- Case when ref1 is null, ref3 is null and ref6 is not null
3714: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
3716: 'CASE:REF1,REF3 ARE NULL; REF6 IS NOT NULL');
3717: END IF;
3718: Set_Exception('D');
3711: l_accomplish_date := l_reference_6;
3712: IF l_reference_3 IS NULL THEN -- ref3-0
3713: -- Case when ref1 is null, ref3 is null and ref6 is not null
3714: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
3716: 'CASE:REF1,REF3 ARE NULL; REF6 IS NOT NULL');
3717: END IF;
3718: Set_Exception('D');
3719: GOTO end_label;
3718: Set_Exception('D');
3719: GOTO end_label;
3720: ELSE -- ref3-0
3721: -- Case when ref1 is null,ref3 and ref6 are not null
3722: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3724: 'CASE:REF1 IS NULL, REF3 AND REF6 ARE NOT NULL');
3725: END IF;
3726: BEGIN
3719: GOTO end_label;
3720: ELSE -- ref3-0
3721: -- Case when ref1 is null,ref3 and ref6 are not null
3722: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3724: 'CASE:REF1 IS NULL, REF3 AND REF6 ARE NOT NULL');
3725: END IF;
3726: BEGIN
3727: SELECT ce_bank_acct_use_id
3727: SELECT ce_bank_acct_use_id
3728: INTO vg_bank_acct_id
3729: FROM Ap_Checks_All
3730: WHERE check_id = TO_NUMBER(l_reference_3);
3731: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3732: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCOUNT ID');
3733: END IF;
3734: EXCEPTION
3735: WHEN NO_DATA_FOUND THEN
3728: INTO vg_bank_acct_id
3729: FROM Ap_Checks_All
3730: WHERE check_id = TO_NUMBER(l_reference_3);
3731: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3732: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCOUNT ID');
3733: END IF;
3734: EXCEPTION
3735: WHEN NO_DATA_FOUND THEN
3736: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3732: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCOUNT ID');
3733: END IF;
3734: EXCEPTION
3735: WHEN NO_DATA_FOUND THEN
3736: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3738: 'UNABLE TO FIND THE BANK ACCOUNT ID');
3739: END IF;
3740: -- Unable to find the bank_account_id
3733: END IF;
3734: EXCEPTION
3735: WHEN NO_DATA_FOUND THEN
3736: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3738: 'UNABLE TO FIND THE BANK ACCOUNT ID');
3739: END IF;
3740: -- Unable to find the bank_account_id
3741: Set_Exception('D');
3743: WHEN OTHERS THEN
3744: error_buf := SQLERRM||'- Error while deriving the '||
3745: 'bank_account_id from Ap_Checks_All table.';
3746: error_code := 2;
3747: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error14', error_buf) ;
3748: RETURN;
3749: END;
3750: END IF; -- ref3-0
3751: ELSE -- ref1
3752: -- Case when ref1 is not null
3753: IF l_reference_3 IS NULL THEN -- ref3
3754: IF l_reference_6 IS NULL THEN -- ref6-1
3755: -- Case when ref1 is not null,ref3 and ref6 are null
3756: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3757: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3758: 'CASE:REF1 IS NOT NULL;REF3 AND REF6 ARE NULL');
3759: END IF;
3760: BEGIN
3753: IF l_reference_3 IS NULL THEN -- ref3
3754: IF l_reference_6 IS NULL THEN -- ref6-1
3755: -- Case when ref1 is not null,ref3 and ref6 are null
3756: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3757: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3758: 'CASE:REF1 IS NOT NULL;REF3 AND REF6 ARE NULL');
3759: END IF;
3760: BEGIN
3761: SELECT checkrun_name,treasury_doc_date,org_id
3761: SELECT checkrun_name,treasury_doc_date,org_id
3762: INTO vl_checkrun_name, l_accomplish_date, l_org_id
3763: FROM Fv_Treasury_Confirmations_All
3764: WHERE treasury_confirmation_id = TO_NUMBER(l_reference_1);
3765: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3766: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3767: 'FOUND THE CHECKRUN_NAME,DOC_DATE,ORG_ID');
3768: END IF;
3769: EXCEPTION
3762: INTO vl_checkrun_name, l_accomplish_date, l_org_id
3763: FROM Fv_Treasury_Confirmations_All
3764: WHERE treasury_confirmation_id = TO_NUMBER(l_reference_1);
3765: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3766: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3767: 'FOUND THE CHECKRUN_NAME,DOC_DATE,ORG_ID');
3768: END IF;
3769: EXCEPTION
3770: WHEN OTHERS THEN
3771: error_buf := SQLERRM||'- Error while deriving the '||
3772: 'checkrun_name,treasury_doc_date from '||
3773: 'Fv_Treasury_Confirmations_All table.';
3774: error_code := 2;
3775: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error15', error_buf) ;
3776: RETURN;
3777: END;
3778: ELSE -- ref6-1
3779: -- Case when ref1 is not null,ref3 is null, and ref6 is not null
3776: RETURN;
3777: END;
3778: ELSE -- ref6-1
3779: -- Case when ref1 is not null,ref3 is null, and ref6 is not null
3780: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3781: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3782: 'CASE:REF1 AND REF6 ARE NOT NULL;REF3 IS NULL');
3783: END IF;
3784: l_accomplish_date := l_reference_6;
3777: END;
3778: ELSE -- ref6-1
3779: -- Case when ref1 is not null,ref3 is null, and ref6 is not null
3780: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3781: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3782: 'CASE:REF1 AND REF6 ARE NOT NULL;REF3 IS NULL');
3783: END IF;
3784: l_accomplish_date := l_reference_6;
3785: BEGIN
3786: SELECT checkrun_name,org_id
3787: INTO vl_checkrun_name,l_org_id
3788: FROM Fv_Treasury_Confirmations_All
3789: WHERE treasury_confirmation_id = TO_NUMBER(l_reference_1);
3790: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3791: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3792: 'FOUND THE CHECKRUN_NAME,ORG_ID');
3793: END IF;
3794: EXCEPTION
3787: INTO vl_checkrun_name,l_org_id
3788: FROM Fv_Treasury_Confirmations_All
3789: WHERE treasury_confirmation_id = TO_NUMBER(l_reference_1);
3790: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3791: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3792: 'FOUND THE CHECKRUN_NAME,ORG_ID');
3793: END IF;
3794: EXCEPTION
3795: WHEN OTHERS THEN
3795: WHEN OTHERS THEN
3796: error_buf := SQLERRM||'- Error while deriving the '||
3797: 'checkrun_name from Fv_Treasury_Confirmations_All table.';
3798: error_code := 2;
3799: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error16', error_buf);
3800: RETURN;
3801: END;
3802: END IF; -- ref6-1
3803: IF (vl_checkrun_name IS NOT NULL) THEN -- vl_checkrun
3806: INTO vg_bank_acct_id
3807: FROM Ap_Inv_Selection_Criteria_All
3808: WHERE checkrun_name = vl_checkrun_name
3809: AND org_id = l_org_id;
3810: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3811: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3812: 'FOUND THE BANK ACCOUNT ID.');
3813: END IF;
3814: EXCEPTION
3807: FROM Ap_Inv_Selection_Criteria_All
3808: WHERE checkrun_name = vl_checkrun_name
3809: AND org_id = l_org_id;
3810: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3811: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3812: 'FOUND THE BANK ACCOUNT ID.');
3813: END IF;
3814: EXCEPTION
3815: WHEN NO_DATA_FOUND THEN
3812: 'FOUND THE BANK ACCOUNT ID.');
3813: END IF;
3814: EXCEPTION
3815: WHEN NO_DATA_FOUND THEN
3816: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3818: 'UNABLE TO FIND BANK ACCOUNT ID');
3819: END IF;
3820: -- Unable to find the bank_account_id
3813: END IF;
3814: EXCEPTION
3815: WHEN NO_DATA_FOUND THEN
3816: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3818: 'UNABLE TO FIND BANK ACCOUNT ID');
3819: END IF;
3820: -- Unable to find the bank_account_id
3821: Set_Exception('D');
3823: WHEN OTHERS THEN
3824: error_buf := SQLERRM||'- Error while deriving the '||
3825: 'bank_account_id from Ap_Inv_Selection_Criteria_All table.';
3826: error_code := 2;
3827: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error17', error_buf) ;
3828: RETURN;
3829: END;
3830: END IF; -- vl_checkrun
3831: ELSIF l_reference_3 IS NOT NULL THEN -- ref3
3828: RETURN;
3829: END;
3830: END IF; -- vl_checkrun
3831: ELSIF l_reference_3 IS NOT NULL THEN -- ref3
3832: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASE WHEN REF3 IS NOT NULL');
3834: END IF;
3835: IF l_reference_6 IS NULL THEN -- ref6-2
3836: -- Case when ref1 and ref3 is not null, and ref6 is null
3829: END;
3830: END IF; -- vl_checkrun
3831: ELSIF l_reference_3 IS NOT NULL THEN -- ref3
3832: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CASE WHEN REF3 IS NOT NULL');
3834: END IF;
3835: IF l_reference_6 IS NULL THEN -- ref6-2
3836: -- Case when ref1 and ref3 is not null, and ref6 is null
3837: -- In this scenario, we determine the accomplish date,
3835: IF l_reference_6 IS NULL THEN -- ref6-2
3836: -- Case when ref1 and ref3 is not null, and ref6 is null
3837: -- In this scenario, we determine the accomplish date,
3838: -- based on the reference_1, and alc based on reference_3.
3839: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3841: 'CASE:REF1 AND REF3 ARE NOT NULL;REF6 IS NULL');
3842: END IF;
3843: BEGIN
3836: -- Case when ref1 and ref3 is not null, and ref6 is null
3837: -- In this scenario, we determine the accomplish date,
3838: -- based on the reference_1, and alc based on reference_3.
3839: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3841: 'CASE:REF1 AND REF3 ARE NOT NULL;REF6 IS NULL');
3842: END IF;
3843: BEGIN
3844: SELECT treasury_doc_date
3844: SELECT treasury_doc_date
3845: INTO l_accomplish_date
3846: FROM Fv_Treasury_Confirmations_All
3847: WHERE treasury_confirmation_id = TO_NUMBER(l_reference_1);
3848: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND TREASURY_DOC_DATE');
3850: END IF;
3851: EXCEPTION
3852: WHEN OTHERS THEN
3845: INTO l_accomplish_date
3846: FROM Fv_Treasury_Confirmations_All
3847: WHERE treasury_confirmation_id = TO_NUMBER(l_reference_1);
3848: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND TREASURY_DOC_DATE');
3850: END IF;
3851: EXCEPTION
3852: WHEN OTHERS THEN
3853: error_buf := SQLERRM||'- Error while deriving the '||
3852: WHEN OTHERS THEN
3853: error_buf := SQLERRM||'- Error while deriving the '||
3854: 'treasury_doc_date from Fv_Treasury_Confirmations_All table.';
3855: error_code := 2;
3856: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error18', error_buf) ;
3857: RETURN;
3858: END;
3859: ELSE -- ref6-2
3860: -- Case when ref3 is not null, and ref6 is not null
3857: RETURN;
3858: END;
3859: ELSE -- ref6-2
3860: -- Case when ref3 is not null, and ref6 is not null
3861: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3862: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3863: 'CASE:REF1,REF3 AND REF6 ARE NOT NULL');
3864: END IF;
3865: l_accomplish_date := l_reference_6;
3858: END;
3859: ELSE -- ref6-2
3860: -- Case when ref3 is not null, and ref6 is not null
3861: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3862: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3863: 'CASE:REF1,REF3 AND REF6 ARE NOT NULL');
3864: END IF;
3865: l_accomplish_date := l_reference_6;
3866: END IF; -- ref6-2
3868: SELECT ce_bank_acct_use_id
3869: INTO vg_bank_acct_id
3870: FROM Ap_Checks_All
3871: WHERE check_id = TO_NUMBER(l_reference_3);
3872: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCOUNT ID');
3874: END IF;
3875: EXCEPTION
3876: WHEN NO_DATA_FOUND THEN
3869: INTO vg_bank_acct_id
3870: FROM Ap_Checks_All
3871: WHERE check_id = TO_NUMBER(l_reference_3);
3872: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCOUNT ID');
3874: END IF;
3875: EXCEPTION
3876: WHEN NO_DATA_FOUND THEN
3877: -- Unable to find the bank_account_id
3880: WHEN OTHERS THEN
3881: error_buf := SQLERRM||'- Error while deriving the '||
3882: 'bank_account_id from Ap_Checks_All table.';
3883: error_code := 2;
3884: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error19', error_buf) ;
3885: RETURN;
3886: END;
3887: END IF; -- ref3
3888: END IF; -- ref1
3886: END;
3887: END IF; -- ref3
3888: END IF; -- ref1
3889: -- Determine the Alc for the bank_account_id found above.
3890: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3891: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE ALC..');
3892: END IF;
3893: Get_Alc
3894: (
3887: END IF; -- ref3
3888: END IF; -- ref1
3889: -- Determine the Alc for the bank_account_id found above.
3890: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3891: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE ALC..');
3892: END IF;
3893: Get_Alc
3894: (
3895: p_bank_acct_id => vg_bank_acct_id,
3910: WHEN OTHERS THEN
3911: error_code := 2;
3912: error_buf := SQLERRM||'--Error while deriving the org_id, in the '||
3913: 'procedure Process_Sf224_Transactions.';
3914: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error20', error_buf) ;
3915: END;
3916: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3917: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
3918: 'ORG ID OF THE TXN IS '||TO_CHAR(L_ORG_ID));
3912: error_buf := SQLERRM||'--Error while deriving the org_id, in the '||
3913: 'procedure Process_Sf224_Transactions.';
3914: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error20', error_buf) ;
3915: END;
3916: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3917: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
3918: 'ORG ID OF THE TXN IS '||TO_CHAR(L_ORG_ID));
3919: END IF;
3920: IF l_org_id IS NULL THEN
3913: 'procedure Process_Sf224_Transactions.';
3914: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error20', error_buf) ;
3915: END;
3916: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3917: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
3918: 'ORG ID OF THE TXN IS '||TO_CHAR(L_ORG_ID));
3919: END IF;
3920: IF l_org_id IS NULL THEN
3921: l_payables_ia_paygroup := p_def_p_ia_paygroup ;
3929: WHEN OTHERS THEN
3930: error_code := 2;
3931: error_buf := SQLERRM ||'--Error while deriving the '||
3932: 'payables_ia_paygroup in the procedure Process_Sf224_Transactions';
3933: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error21', error_buf) ;
3934: END;
3935: END IF ;
3936: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3932: 'payables_ia_paygroup in the procedure Process_Sf224_Transactions';
3933: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error21', error_buf) ;
3934: END;
3935: END IF ;
3936: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3938: 'PAYBLES PAY GROUP IS '||L_PAYABLES_IA_PAYGROUP);
3939: END IF;
3940: l_record_type := 'Disbursement';
3933: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error21', error_buf) ;
3934: END;
3935: END IF ;
3936: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3938: 'PAYBLES PAY GROUP IS '||L_PAYABLES_IA_PAYGROUP);
3939: END IF;
3940: l_record_type := 'Disbursement';
3941: BEGIN /* to process DIT payments */
3961: EXCEPTION
3962: WHEN too_many_rows THEN
3963: error_buf := 'Too many rows in invoice info,dit select';
3964: error_code := g_FAILURE;
3965: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error22', error_buf) ;
3966: RETURN;
3967: WHEN No_Data_Found THEN
3968: l_ia_flag := 'N' ;
3969: END;
3966: RETURN;
3967: WHEN No_Data_Found THEN
3968: l_ia_flag := 'N' ;
3969: END;
3970: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3972: 'VENDOR ID,INVOICE AMT,CHECK DATE ARE: '||
3973: TO_CHAR(l_vendor_id)||' '||TO_CHAR(l_inv_amount)||' '||
3974: TO_CHAR(l_check_date, 'MM/DD/YYYY'));
3967: WHEN No_Data_Found THEN
3968: l_ia_flag := 'N' ;
3969: END;
3970: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3972: 'VENDOR ID,INVOICE AMT,CHECK DATE ARE: '||
3973: TO_CHAR(l_vendor_id)||' '||TO_CHAR(l_inv_amount)||' '||
3974: TO_CHAR(l_check_date, 'MM/DD/YYYY'));
3975: END IF;
3972: 'VENDOR ID,INVOICE AMT,CHECK DATE ARE: '||
3973: TO_CHAR(l_vendor_id)||' '||TO_CHAR(l_inv_amount)||' '||
3974: TO_CHAR(l_check_date, 'MM/DD/YYYY'));
3975: END IF;
3976: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'INTERAGENCY FLAG IS '||L_IA_FLAG);
3978: END IF;
3979: l_error_stage := 1;
3980: BEGIN
3973: TO_CHAR(l_vendor_id)||' '||TO_CHAR(l_inv_amount)||' '||
3974: TO_CHAR(l_check_date, 'MM/DD/YYYY'));
3975: END IF;
3976: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'INTERAGENCY FLAG IS '||L_IA_FLAG);
3978: END IF;
3979: l_error_stage := 1;
3980: BEGIN
3981: SELECT ce_bank_acct_use_id
3990: error_buf := SQLERRM||'- Error while deriving the '||
3991: 'bank_account_id from Ap_Checks_All table when '||
3992: 'category<>Trea Conf.';
3993: error_code := 2;
3994: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error24', error_buf) ;
3995: RETURN;
3996: END;
3997: -- Determine the Alc for the bank_account_id found above.
3998: Get_Alc
4012: EXCEPTION
4013: WHEN too_many_rows THEN
4014: error_buf := 'Too many rows in chargeback flag Prelim select';
4015: error_code := g_FAILURE;
4016: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error23', error_buf) ;
4017: RETURN;
4018: END;
4019: END IF ;
4020: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4016: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error23', error_buf) ;
4017: RETURN;
4018: END;
4019: END IF ;
4020: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4021: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4022: 'CHARGEBACK FLAG AND BILLING AGENCY FUND ARE :'
4023: || L_CB_FLAG ||' '|| L_BILLING_AGENCY_FUND);
4024: END IF;
4017: RETURN;
4018: END;
4019: END IF ;
4020: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4021: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4022: 'CHARGEBACK FLAG AND BILLING AGENCY FUND ARE :'
4023: || L_CB_FLAG ||' '|| L_BILLING_AGENCY_FUND);
4024: END IF;
4025: BEGIN /* Void Date */
4030: FROM ap_checks_all apc,
4031: ap_invoices_all api
4032: WHERE api.invoice_id = Nvl(l_reference, 0)
4033: AND apc.check_id = nvl(l_reference_3,0);
4034: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4036: 'CHECK DATE/ACCOM DATE AND VOID DATE ARE '||
4037: TO_CHAR(l_accomplish_date, 'MM/DD/YYYY')||' '||
4038: TO_CHAR(l_void_date, 'MM/DD/YYYY'));
4031: ap_invoices_all api
4032: WHERE api.invoice_id = Nvl(l_reference, 0)
4033: AND apc.check_id = nvl(l_reference_3,0);
4034: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4036: 'CHECK DATE/ACCOM DATE AND VOID DATE ARE '||
4037: TO_CHAR(l_accomplish_date, 'MM/DD/YYYY')||' '||
4038: TO_CHAR(l_void_date, 'MM/DD/YYYY'));
4039: END IF;
4045: FROM ap_invoice_payments
4046: WHERE invoice_id = NVL(l_reference, 0)
4047: AND check_id = NVL(l_reference_3,0)
4048: AND invoice_payment_id >l_reference_9;
4049: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4050: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4051: 'VOID DATE IS NOT NULL AND INVOICE '||
4052: 'payment id is '||TO_CHAR(l_inv_pay_id));
4053: END IF;
4046: WHERE invoice_id = NVL(l_reference, 0)
4047: AND check_id = NVL(l_reference_3,0)
4048: AND invoice_payment_id >l_reference_9;
4049: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4050: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4051: 'VOID DATE IS NOT NULL AND INVOICE '||
4052: 'payment id is '||TO_CHAR(l_inv_pay_id));
4053: END IF;
4054: IF (l_inv_pay_id = 0) THEN
4054: IF (l_inv_pay_id = 0) THEN
4055: l_accomplish_date := l_void_date ;
4056: l_record_type := 'VOID';
4057: BEGIN /* V1 */
4058: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4059: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4060: 'Before Getting the Obligation Date');
4061: END IF;
4062: l_obligation_date := get_void_check_obligation_date
4055: l_accomplish_date := l_void_date ;
4056: l_record_type := 'VOID';
4057: BEGIN /* V1 */
4058: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4059: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4060: 'Before Getting the Obligation Date');
4061: END IF;
4062: l_obligation_date := get_void_check_obligation_date
4063: ( TO_NUMBER(l_reference_2),
4067: l_record_type := 'VOID';
4068: l_processed_flag := 'Y';
4069: l_update_type := 'VOID_PAYABLE';
4070: l_type := 'VOID';
4071: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4073: 'OBLIGATION DATE IS '||TO_CHAR(l_obligation_date, 'MM/DD/YYYY'));
4074: END IF;
4075: EXCEPTION
4068: l_processed_flag := 'Y';
4069: l_update_type := 'VOID_PAYABLE';
4070: l_type := 'VOID';
4071: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4073: 'OBLIGATION DATE IS '||TO_CHAR(l_obligation_date, 'MM/DD/YYYY'));
4074: END IF;
4075: EXCEPTION
4076: WHEN No_Data_Found THEN
4073: 'OBLIGATION DATE IS '||TO_CHAR(l_obligation_date, 'MM/DD/YYYY'));
4074: END IF;
4075: EXCEPTION
4076: WHEN No_Data_Found THEN
4077: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4079: 'NO DATE FUND Exception while getting the Obligation Date');
4080: END IF;
4081: error_buf := 'No Data Fund Exception while getting the Obligation Date for VOID';
4074: END IF;
4075: EXCEPTION
4076: WHEN No_Data_Found THEN
4077: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4079: 'NO DATE FUND Exception while getting the Obligation Date');
4080: END IF;
4081: error_buf := 'No Data Fund Exception while getting the Obligation Date for VOID';
4082: error_code := g_FAILURE;
4079: 'NO DATE FUND Exception while getting the Obligation Date');
4080: END IF;
4081: error_buf := 'No Data Fund Exception while getting the Obligation Date for VOID';
4082: error_code := g_FAILURE;
4083: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error25', error_buf);
4084: RETURN;
4085: WHEN too_many_rows THEN
4086: error_buf := 'Too many rows in obligation_date select';
4087: error_code := g_FAILURE;
4084: RETURN;
4085: WHEN too_many_rows THEN
4086: error_buf := 'Too many rows in obligation_date select';
4087: error_code := g_FAILURE;
4088: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error25', error_buf);
4089: RETURN;
4090: END ; /* V1 */
4091: END IF;
4092: END IF;
4094: EXCEPTION
4095: WHEN too_many_rows THEN
4096: error_buf := 'Too many rows in void_date disbursement select';
4097: error_code := g_FAILURE;
4098: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error26', error_buf) ;
4099: RETURN;
4100: WHEN no_data_found THEN
4101: NULL;
4102: WHEN OTHERS THEN
4101: NULL;
4102: WHEN OTHERS THEN
4103: error_Buf := sqlerrm ;
4104: error_Code := g_FAILURE ;
4105: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error27', error_buf) ;
4106: ROLLBACK ;
4107: RETURN;
4108: END ; /* Void Date */
4109: IF (l_ia_flag = 'Y' AND l_error_stage <> g_FAILURE) THEN
4143: l_accomplish_date := l_check_date ;
4144: END IF;
4145: END IF; /* charge back flag = 'Y' */
4146: END IF;
4147: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4148: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4149: 'RECORD TYPE IS '||L_RECORD_TYPE);
4150: END IF;
4151: EXCEPTION
4144: END IF;
4145: END IF; /* charge back flag = 'Y' */
4146: END IF;
4147: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4148: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4149: 'RECORD TYPE IS '||L_RECORD_TYPE);
4150: END IF;
4151: EXCEPTION
4152: WHEN no_data_found THEN
4164: END IF;
4165: WHEN others THEN
4166: error_buf := sqlerrm;
4167: error_code := g_FAILURE;
4168: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error28', error_buf) ;
4169: ROLLBACK;
4170: RETURN;
4171: END ; /* End proces DIT */
4172: ELSIF (l_je_category = 'Treasury Confirmation' AND
4177: SELECT void_date
4178: INTO l_accomplish_date
4179: FROM ap_checks_all
4180: WHERE check_id = To_number (nvl(l_reference_3,'0')) ;
4181: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4182: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4183: 'VOID DATE/ACCOMPLISH DATE IS '||
4184: TO_CHAR(l_accomplish_date, 'MM/DD/YYYY'));
4185: END IF;
4178: INTO l_accomplish_date
4179: FROM ap_checks_all
4180: WHERE check_id = To_number (nvl(l_reference_3,'0')) ;
4181: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4182: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4183: 'VOID DATE/ACCOMPLISH DATE IS '||
4184: TO_CHAR(l_accomplish_date, 'MM/DD/YYYY'));
4185: END IF;
4186: -- invoice_id
4187: SELECT invoice_date
4188: INTO l_invoice_date
4189: FROM ap_invoices_all
4190: WHERE Invoice_id = to_number (nvl(l_reference_4,'0')) ;
4191: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4192: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'INVOICE DATE IS '||
4193: TO_CHAR(l_invoice_date, 'MM/DD/YYYY'));
4194: END IF;
4195: EXCEPTION
4188: INTO l_invoice_date
4189: FROM ap_invoices_all
4190: WHERE Invoice_id = to_number (nvl(l_reference_4,'0')) ;
4191: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4192: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'INVOICE DATE IS '||
4193: TO_CHAR(l_invoice_date, 'MM/DD/YYYY'));
4194: END IF;
4195: EXCEPTION
4196: WHEN no_data_found THEN
4193: TO_CHAR(l_invoice_date, 'MM/DD/YYYY'));
4194: END IF;
4195: EXCEPTION
4196: WHEN no_data_found THEN
4197: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4198: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4199: 'UNABLE TO FIND EITHER THE VOID '||
4200: 'date or invoice date');
4201: END IF;
4194: END IF;
4195: EXCEPTION
4196: WHEN no_data_found THEN
4197: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4198: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4199: 'UNABLE TO FIND EITHER THE VOID '||
4200: 'date or invoice date');
4201: END IF;
4202: l_billing_agency_fund := 'UNDEFINED';
4212: SELECT ce_bank_acct_use_id
4213: INTO vg_bank_acct_id
4214: FROM Ap_Checks_All
4215: WHERE check_id = TO_NUMBER(l_reference_3);
4216: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4217: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCT ID');
4218: END IF;
4219: EXCEPTION
4220: WHEN NO_DATA_FOUND THEN
4213: INTO vg_bank_acct_id
4214: FROM Ap_Checks_All
4215: WHERE check_id = TO_NUMBER(l_reference_3);
4216: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4217: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FOUND THE BANK ACCT ID');
4218: END IF;
4219: EXCEPTION
4220: WHEN NO_DATA_FOUND THEN
4221: -- Unable to find the bank_account_id
4218: END IF;
4219: EXCEPTION
4220: WHEN NO_DATA_FOUND THEN
4221: -- Unable to find the bank_account_id
4222: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4223: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4224: 'UNABLE TO FIND THE BANK ACCT ID');
4225: END IF;
4226: Set_Exception('D');
4219: EXCEPTION
4220: WHEN NO_DATA_FOUND THEN
4221: -- Unable to find the bank_account_id
4222: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4223: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4224: 'UNABLE TO FIND THE BANK ACCT ID');
4225: END IF;
4226: Set_Exception('D');
4227: WHEN OTHERS THEN
4227: WHEN OTHERS THEN
4228: error_buf := SQLERRM||'- Error while deriving the '||
4229: 'bank_account_id from Ap_Checks_All table when name like VOID.';
4230: error_code := 2;
4231: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error29', error_buf) ;
4232: RETURN;
4233: END;
4234: -- Determine the Alc for the bank_account_id found above.
4235: Get_Alc
4242: /* Reassigning l_reference_4 to l_reference_2. This is because
4243: the process is saving invoice_id in reference_2 column. */
4244: l_reference_2 := l_reference_4;
4245: BEGIN /* V1 */
4246: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4248: 'Before Calling the get_void_check_obligation_date Procedure ... ');
4249: END IF;
4250: l_obligation_date :=get_void_check_obligation_date
4243: the process is saving invoice_id in reference_2 column. */
4244: l_reference_2 := l_reference_4;
4245: BEGIN /* V1 */
4246: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4248: 'Before Calling the get_void_check_obligation_date Procedure ... ');
4249: END IF;
4250: l_obligation_date :=get_void_check_obligation_date
4251: ( TO_NUMBER(l_reference_2),
4251: ( TO_NUMBER(l_reference_2),
4252: TO_NUMBER(l_reference_3),
4253: TO_NUMBER(l_reference_8)
4254: );
4255: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4257: 'After Calling the get_void_check_obligation_date Procedure l_obligation_date ');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OBLIGATION DATE IS '||
4259: TO_CHAR(l_obligation_date, 'MM/DD/YYYY'));
4252: TO_NUMBER(l_reference_3),
4253: TO_NUMBER(l_reference_8)
4254: );
4255: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4257: 'After Calling the get_void_check_obligation_date Procedure l_obligation_date ');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OBLIGATION DATE IS '||
4259: TO_CHAR(l_obligation_date, 'MM/DD/YYYY'));
4260: END IF;
4254: );
4255: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4257: 'After Calling the get_void_check_obligation_date Procedure l_obligation_date ');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OBLIGATION DATE IS '||
4259: TO_CHAR(l_obligation_date, 'MM/DD/YYYY'));
4260: END IF;
4261: l_record_type := 'VOID';
4262: l_processed_flag := 'Y';
4263: l_update_type := 'VOID_PAYABLE';
4264: l_type := 'VOID';
4265: EXCEPTION
4266: WHEN No_Data_Found THEN
4267: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4269: 'UNABLE TO FIND OBLIGATION DATE');
4270: END IF;
4271: error_buf := 'No Data Fund Exception while getting the Obligation Date for VOID';
4264: l_type := 'VOID';
4265: EXCEPTION
4266: WHEN No_Data_Found THEN
4267: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4269: 'UNABLE TO FIND OBLIGATION DATE');
4270: END IF;
4271: error_buf := 'No Data Fund Exception while getting the Obligation Date for VOID';
4272: error_code := g_FAILURE;
4269: 'UNABLE TO FIND OBLIGATION DATE');
4270: END IF;
4271: error_buf := 'No Data Fund Exception while getting the Obligation Date for VOID';
4272: error_code := g_FAILURE;
4273: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error25', error_buf) ;
4274: RETURN;
4275: WHEN too_many_rows THEN
4276: error_buf := 'Too many rows in obligation_date select';
4277: error_code := g_FAILURE;
4274: RETURN;
4275: WHEN too_many_rows THEN
4276: error_buf := 'Too many rows in obligation_date select';
4277: error_code := g_FAILURE;
4278: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error30', error_buf) ;
4279: RETURN;
4280: END ; /* V1 */
4281: ELSIF (l_je_source = 'Project Accounting') AND(l_je_category ='Labor Cost') THEN -- source2
4282: IF (l_exception_category = 'NO_PA_ACCOMPLISH_DATE') THEN
4292: l_record_type := 'MANUAL';
4293: IF (x_name = 'MANUAL') THEN
4294: Set_Exception('R');
4295: END IF;
4296: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACCOMPLISH DATE IS '
4298: ||TO_CHAR(l_accomplish_date, 'MM/DD/YYYY'));
4299: END IF;
4300: END IF; -- Manual
4293: IF (x_name = 'MANUAL') THEN
4294: Set_Exception('R');
4295: END IF;
4296: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACCOMPLISH DATE IS '
4298: ||TO_CHAR(l_accomplish_date, 'MM/DD/YYYY'));
4299: END IF;
4300: END IF; -- Manual
4301: ------------------------------------------------------------
4305: AND g_payment_type_flag = 'R'
4306: AND g_invoice_type_lookup_code IN ( 'CREDIT','DEBIT')
4307: AND l_reference_2 IS NOT NULL AND l_reference_3 IS NOT NULL
4308: AND l_reference_8 IS NOT NULL THEN /*g_payment_type_flag = 'R' */
4309: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4310: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_payment_type_flag = R');
4311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_invoice_type_lookup_code ' ||
4312: g_invoice_type_lookup_code);
4313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Check Void Date : '||
4306: AND g_invoice_type_lookup_code IN ( 'CREDIT','DEBIT')
4307: AND l_reference_2 IS NOT NULL AND l_reference_3 IS NOT NULL
4308: AND l_reference_8 IS NOT NULL THEN /*g_payment_type_flag = 'R' */
4309: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4310: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_payment_type_flag = R');
4311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_invoice_type_lookup_code ' ||
4312: g_invoice_type_lookup_code);
4313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Check Void Date : '||
4314: g_check_void_date );
4307: AND l_reference_2 IS NOT NULL AND l_reference_3 IS NOT NULL
4308: AND l_reference_8 IS NOT NULL THEN /*g_payment_type_flag = 'R' */
4309: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4310: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_payment_type_flag = R');
4311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_invoice_type_lookup_code ' ||
4312: g_invoice_type_lookup_code);
4313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Check Void Date : '||
4314: g_check_void_date );
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_1 : ' || l_reference_1 );
4309: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4310: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_payment_type_flag = R');
4311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_invoice_type_lookup_code ' ||
4312: g_invoice_type_lookup_code);
4313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Check Void Date : '||
4314: g_check_void_date );
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_1 : ' || l_reference_1 );
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_2 (INV ID) : ' ||
4317: l_reference_2 );
4311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'g_invoice_type_lookup_code ' ||
4312: g_invoice_type_lookup_code);
4313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Check Void Date : '||
4314: g_check_void_date );
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_1 : ' || l_reference_1 );
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_2 (INV ID) : ' ||
4317: l_reference_2 );
4318: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_3 (CHECK ID) : ' ||
4319: l_reference_3 );
4312: g_invoice_type_lookup_code);
4313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Check Void Date : '||
4314: g_check_void_date );
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_1 : ' || l_reference_1 );
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_2 (INV ID) : ' ||
4317: l_reference_2 );
4318: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_3 (CHECK ID) : ' ||
4319: l_reference_3 );
4320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_4 : ' || l_reference_4 );
4314: g_check_void_date );
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_1 : ' || l_reference_1 );
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_2 (INV ID) : ' ||
4317: l_reference_2 );
4318: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_3 (CHECK ID) : ' ||
4319: l_reference_3 );
4320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_4 : ' || l_reference_4 );
4321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_5 : ' || l_reference_5 );
4322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_6 : ' || l_reference_6 );
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_2 (INV ID) : ' ||
4317: l_reference_2 );
4318: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_3 (CHECK ID) : ' ||
4319: l_reference_3 );
4320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_4 : ' || l_reference_4 );
4321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_5 : ' || l_reference_5 );
4322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_6 : ' || l_reference_6 );
4323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_8 (INV DIST NO) : ' ||
4324: l_reference_8 );
4317: l_reference_2 );
4318: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_3 (CHECK ID) : ' ||
4319: l_reference_3 );
4320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_4 : ' || l_reference_4 );
4321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_5 : ' || l_reference_5 );
4322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_6 : ' || l_reference_6 );
4323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_8 (INV DIST NO) : ' ||
4324: l_reference_8 );
4325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_9 : ' || l_reference_9 );
4318: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_3 (CHECK ID) : ' ||
4319: l_reference_3 );
4320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_4 : ' || l_reference_4 );
4321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_5 : ' || l_reference_5 );
4322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_6 : ' || l_reference_6 );
4323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_8 (INV DIST NO) : ' ||
4324: l_reference_8 );
4325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_9 : ' || l_reference_9 );
4326: END IF;
4319: l_reference_3 );
4320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_4 : ' || l_reference_4 );
4321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_5 : ' || l_reference_5 );
4322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_6 : ' || l_reference_6 );
4323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_8 (INV DIST NO) : ' ||
4324: l_reference_8 );
4325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_9 : ' || l_reference_9 );
4326: END IF;
4327: BEGIN /* Refund Checks */
4321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_5 : ' || l_reference_5 );
4322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_6 : ' || l_reference_6 );
4323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_8 (INV DIST NO) : ' ||
4324: l_reference_8 );
4325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_reference_9 : ' || l_reference_9 );
4326: END IF;
4327: BEGIN /* Refund Checks */
4328: SELECT obligation_date
4329: INTO l_obligation_date
4334: AND invoice_id = l_reference_2
4335: AND check_id = l_reference_3
4336: -- AND invoice_payment_id = l_reference_9
4337: AND distribution_line_number = l_reference_8;
4338: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4339: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Obligation Date : ' ||
4340: l_obligation_date );
4341: END IF;
4342: l_processed_flag := 'Y';
4335: AND check_id = l_reference_3
4336: -- AND invoice_payment_id = l_reference_9
4337: AND distribution_line_number = l_reference_8;
4338: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4339: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Obligation Date : ' ||
4340: l_obligation_date );
4341: END IF;
4342: l_processed_flag := 'Y';
4343: l_update_type := 'PAYABLE_REFUND';
4385: SELECT apc.void_check_number /* replace attribute1 with new field name */
4386: INTO l_void_check_number
4387: FROM ap_checks_all apc
4388: WHERE apc.check_id = to_number(l_reference_3);
4389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Void Check Number : '|| l_void_check_number );
4391: END IF;
4392: EXCEPTION
4393: WHEN NO_DATA_FOUND THEN
4386: INTO l_void_check_number
4387: FROM ap_checks_all apc
4388: WHERE apc.check_id = to_number(l_reference_3);
4389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Void Check Number : '|| l_void_check_number );
4391: END IF;
4392: EXCEPTION
4393: WHEN NO_DATA_FOUND THEN
4394: l_void_check_number:=NULL;
4400: WHERE APP.CHECK_ID = TO_NUMBER(L_REFERENCE_3)
4401: AND APP.invoice_payment_id = TO_NUMBER(L_REFERENCE_9)
4402: AND APP.reversal_inv_pmt_id IS NOT NULL
4403: AND APP.reversal_flag ='Y';
4404: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4405: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Voided Reclassified Payment: '||l_voided_reclassified_payment);
4406: END IF;
4407: EXCEPTION
4408: WHEN NO_DATA_FOUND THEN
4401: AND APP.invoice_payment_id = TO_NUMBER(L_REFERENCE_9)
4402: AND APP.reversal_inv_pmt_id IS NOT NULL
4403: AND APP.reversal_flag ='Y';
4404: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4405: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Voided Reclassified Payment: '||l_voided_reclassified_payment);
4406: END IF;
4407: EXCEPTION
4408: WHEN NO_DATA_FOUND THEN
4409: l_voided_reclassified_payment:='N';
4412: BEGIN
4413: sql_stmt1:= 'SELECT ACR.' || l_ar_reclass_attribute ||
4414: ' FROM AR_CASH_RECEIPTS_ALL ACR WHERE ACR.cash_receipt_id = '||l_cash_receipt_id;
4415: EXECUTE IMMEDIATE sql_stmt1 INTO l_reclass_receipt_number ;
4416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Reclass Receipt Number: '|| l_reclass_receipt_number );
4418: END IF;
4419: EXCEPTION
4420: WHEN NO_DATA_FOUND THEN
4413: sql_stmt1:= 'SELECT ACR.' || l_ar_reclass_attribute ||
4414: ' FROM AR_CASH_RECEIPTS_ALL ACR WHERE ACR.cash_receipt_id = '||l_cash_receipt_id;
4415: EXECUTE IMMEDIATE sql_stmt1 INTO l_reclass_receipt_number ;
4416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Reclass Receipt Number: '|| l_reclass_receipt_number );
4418: END IF;
4419: EXCEPTION
4420: WHEN NO_DATA_FOUND THEN
4421: l_reclass_receipt_number:=NULL;
4429: ' and exists (SELECT ''Y'' FROM AR_CASH_RECEIPTS_ALL AC2 '||
4430: ' WHERE AC2.' || l_ar_reclass_attribute ||
4431: ' = ' || '''' || l_document_number || '''' || ' )' ;
4432: EXECUTE IMMEDIATE sql_stmt INTO l_receipt_reclassified ;
4433: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4434: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Receipt Reclassified: '|| l_receipt_reclassified );
4435: END IF;
4436: EXCEPTION
4437: WHEN NO_DATA_FOUND THEN
4430: ' WHERE AC2.' || l_ar_reclass_attribute ||
4431: ' = ' || '''' || l_document_number || '''' || ' )' ;
4432: EXECUTE IMMEDIATE sql_stmt INTO l_receipt_reclassified ;
4433: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4434: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Receipt Reclassified: '|| l_receipt_reclassified );
4435: END IF;
4436: EXCEPTION
4437: WHEN NO_DATA_FOUND THEN
4438: l_receipt_reclassified:='N';
4448: ' and exists (SELECT ''Y'' FROM AR_CASH_RECEIPTS_ALL AC2 '||
4449: ' WHERE AC2.' || l_ar_reclass_attribute ||
4450: ' = ' || '''' || l_document_number || '''' || ' )' ;
4451: EXECUTE IMMEDIATE sql_stmt INTO l_receipt_reclassified ;
4452: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4453: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Receipt Reclassified: '|| l_receipt_reclassified );
4454: END IF;
4455: EXCEPTION
4456: WHEN NO_DATA_FOUND THEN
4449: ' WHERE AC2.' || l_ar_reclass_attribute ||
4450: ' = ' || '''' || l_document_number || '''' || ' )' ;
4451: EXECUTE IMMEDIATE sql_stmt INTO l_receipt_reclassified ;
4452: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4453: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Receipt Reclassified: '|| l_receipt_reclassified );
4454: END IF;
4455: EXCEPTION
4456: WHEN NO_DATA_FOUND THEN
4457: l_receipt_reclassified:='N';
4492: IF error_code <> g_SUCCESS THEN
4493: RETURN;
4494: END IF;
4495: ELSE
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' No GWA Reporter Category found for the ALC: ' || l_alc_code ||
4497: ' for the selected period: '|| l_gl_period);
4498: l_reportable:='E';
4499: END IF;
4500: ELSE
4501: l_reportable :='I';
4502: END IF;
4503:
4504: IF l_reportable='X' or l_reportable='E' THEN
4505: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'deleting the section VI, VII exception ');
4507: END IF;
4508: DELETE fv_sf224_temp fv
4509: WHERE fv.je_line_num = L_JE_LINE_NUM
4502: END IF;
4503:
4504: IF l_reportable='X' or l_reportable='E' THEN
4505: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'deleting the section VI, VII exception ');
4507: END IF;
4508: DELETE fv_sf224_temp fv
4509: WHERE fv.je_line_num = L_JE_LINE_NUM
4510: AND fv.je_header_id = L_JE_HEADER_ID
4523: l_record_category := 'EXCEPTION' ;
4524: Insert_New_Transaction(l_org_amount, 1);
4525:
4526: END IF;
4527: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4528: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'UPDATING FV_SF224_TEMP WITH THE ALC_CODE');
4529: END IF;
4530:
4531:
4524: Insert_New_Transaction(l_org_amount, 1);
4525:
4526: END IF;
4527: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4528: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'UPDATING FV_SF224_TEMP WITH THE ALC_CODE');
4529: END IF;
4530:
4531:
4532: Update fv_sf224_temp
4576:
4577: IF (sqlcode < 0) THEN
4578: error_buf := 'fv_sf224_temp table Update failed ';
4579: error_code := g_FAILURE;
4580: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error31', error_buf) ;
4581: RETURN;
4582: END IF;
4583: END LOOP; -- end c1
4584: CLOSE c1;
4581: RETURN;
4582: END IF;
4583: END LOOP; -- end c1
4584: CLOSE c1;
4585: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4586: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-----------------------------------------------');
4587: END IF;
4588: COMMIT;
4589: EXCEPTION
4582: END IF;
4583: END LOOP; -- end c1
4584: CLOSE c1;
4585: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4586: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-----------------------------------------------');
4587: END IF;
4588: COMMIT;
4589: EXCEPTION
4590: WHEN OTHERS THEN
4592: error_buf := sqlerrm ;
4593: IF C1%ISOPEN THEN
4594: CLOSE C1;
4595: END IF ;
4596: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', error_buf) ;
4597: ROLLBACK ;
4598: RETURN ;
4599: END Process_Sf224_Transactions; /* of procedure */
4600:
4628: END;
4629: ELSE
4630: /*CHECK FOR PAYMENTS AND COLLECTION BASED ON COLUMN_GROUP */
4631: IF (l_column_group = 20 OR l_column_group = 31 ) THEN
4632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4633: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'column group is 20 or 31 ');
4634: END IF;
4635: BEGIN
4636: SELECT mp.trx_category_coll
4629: ELSE
4630: /*CHECK FOR PAYMENTS AND COLLECTION BASED ON COLUMN_GROUP */
4631: IF (l_column_group = 20 OR l_column_group = 31 ) THEN
4632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4633: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'column group is 20 or 31 ');
4634: END IF;
4635: BEGIN
4636: SELECT mp.trx_category_coll
4637: INTO l_reportable
4642: WHEN no_data_found THEN
4643: l_reportable:='E';
4644: END;
4645: ELSIF (l_column_group = 21 OR l_column_group = 30 ) THEN
4646: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4647: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'column group is 21 or 30 ');
4648: END IF;
4649: BEGIN
4650: SELECT mp.trx_category_pay
4643: l_reportable:='E';
4644: END;
4645: ELSIF (l_column_group = 21 OR l_column_group = 30 ) THEN
4646: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4647: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'column group is 21 or 30 ');
4648: END IF;
4649: BEGIN
4650: SELECT mp.trx_category_pay
4651: INTO l_reportable
4661: EXCEPTION
4662: WHEN OTHERS THEN
4663: p_error_code := g_FAILURE;
4664: p_error_desc := SQLERRM || '-- Error in procedure Check_partial_reporting.';
4665: fv_utility.log_mesg(fnd_log.level_unexpected, l_module_name||'.final_exception', p_error_desc) ;
4666: RETURN;
4667: END Check_partial_reporting;
4668:
4669:
4674: PROCEDURE Set_Exception(exp_type VARCHAR2) IS
4675: l_module_name VARCHAR2(200) ;
4676: BEGIN
4677: l_module_name := g_module_name || 'Set_Exception';
4678: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4679: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'IN SET_EXCEPTION PROC WITH EXP_TYPE = '||EXP_TYPE);
4680: END IF;
4681: IF (exp_type = 'R') THEN
4682: -- Reported as Manual exception
4675: l_module_name VARCHAR2(200) ;
4676: BEGIN
4677: l_module_name := g_module_name || 'Set_Exception';
4678: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4679: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'IN SET_EXCEPTION PROC WITH EXP_TYPE = '||EXP_TYPE);
4680: END IF;
4681: IF (exp_type = 'R') THEN
4682: -- Reported as Manual exception
4683: l_name := 'MANUAL';
4694: l_reported_flag := 'Y';
4695: l_exception_exists := 'Y';
4696: l_record_category := 'EXCEPTION';
4697: Insert_New_Transaction(l_amount, 1);
4698: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4699: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TXN INSERTED');
4700: END IF;
4701: EXCEPTION
4702: WHEN OTHERS THEN
4695: l_exception_exists := 'Y';
4696: l_record_category := 'EXCEPTION';
4697: Insert_New_Transaction(l_amount, 1);
4698: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4699: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TXN INSERTED');
4700: END IF;
4701: EXCEPTION
4702: WHEN OTHERS THEN
4703: error_code := 2;
4701: EXCEPTION
4702: WHEN OTHERS THEN
4703: error_code := 2;
4704: error_buf := SQLERRM || '-- Error in procedure Set_Exception.';
4705: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', error_buf) ;
4706: RETURN;
4707: END Set_Exception;
4708:
4709:
4749: WHEN OTHERS THEN
4750: p_error_code := g_FAILURE;
4751: p_error_desc := SQLERRM;
4752: l_location := l_module_name||'.final_exception';
4753: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4754: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4755: END Get_Alc;
4756:
4757:
4750: p_error_code := g_FAILURE;
4751: p_error_desc := SQLERRM;
4752: l_location := l_module_name||'.final_exception';
4753: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4754: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4755: END Get_Alc;
4756:
4757:
4758:
4854: WHEN OTHERS THEN
4855: error_code := sqlcode ;
4856: error_buf := sqlerrm ;
4857: RollBack ;
4858: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', error_buf) ;
4859: Return ;
4860: END Insert_new_transaction;
4861:
4862: ----------------------------------------------------------------------
4865: Procedure set_transaction_type is
4866: l_module_name VARCHAR2(200) ;
4867: BEGIN
4868: l_module_name := g_module_name || 'set_transaction_type';
4869: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4870: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'IN SET_TRANSACTION_TYPE PROC');
4871: END IF;
4872: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'EXCEPTION CATEGORY IS '||L_EXCEPTION_CATEGORY);
4866: l_module_name VARCHAR2(200) ;
4867: BEGIN
4868: l_module_name := g_module_name || 'set_transaction_type';
4869: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4870: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'IN SET_TRANSACTION_TYPE PROC');
4871: END IF;
4872: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'EXCEPTION CATEGORY IS '||L_EXCEPTION_CATEGORY);
4874: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RECORD TYPE IS '||L_RECORD_TYPE);
4868: l_module_name := g_module_name || 'set_transaction_type';
4869: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4870: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'IN SET_TRANSACTION_TYPE PROC');
4871: END IF;
4872: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'EXCEPTION CATEGORY IS '||L_EXCEPTION_CATEGORY);
4874: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RECORD TYPE IS '||L_RECORD_TYPE);
4875: END IF;
4876: l_sf224_type_code := upper(l_sf224_type_code);
4869: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4870: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'IN SET_TRANSACTION_TYPE PROC');
4871: END IF;
4872: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'EXCEPTION CATEGORY IS '||L_EXCEPTION_CATEGORY);
4874: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RECORD TYPE IS '||L_RECORD_TYPE);
4875: END IF;
4876: l_sf224_type_code := upper(l_sf224_type_code);
4877: l_sign_number := 1;
4870: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'IN SET_TRANSACTION_TYPE PROC');
4871: END IF;
4872: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'EXCEPTION CATEGORY IS '||L_EXCEPTION_CATEGORY);
4874: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RECORD TYPE IS '||L_RECORD_TYPE);
4875: END IF;
4876: l_sf224_type_code := upper(l_sf224_type_code);
4877: l_sign_number := 1;
4878: IF(l_record_type = 'Receipt') THEN
4911: WHEN OTHERS THEN
4912: error_code := sqlcode ;
4913: error_buf := sqlerrm ;
4914: ROLLBACK ;
4915: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', error_buf) ;
4916: RETURN;
4917: END set_transaction_type;
4918:
4919:
4944: WHEN OTHERS THEN
4945: p_error_code := g_FAILURE;
4946: p_error_desc := SQLERRM;
4947: l_location := l_module_name||'delete_fv_sf224_temp';
4948: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4949: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4950: END;
4951:
4952: IF (p_error_code = g_SUCCESS) THEN
4945: p_error_code := g_FAILURE;
4946: p_error_desc := SQLERRM;
4947: l_location := l_module_name||'delete_fv_sf224_temp';
4948: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4949: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4950: END;
4951:
4952: IF (p_error_code = g_SUCCESS) THEN
4953: BEGIN
4964: WHEN OTHERS THEN
4965: p_error_code := g_FAILURE;
4966: p_error_desc := SQLERRM;
4967: l_location := l_module_name||'update_fv_sf224_temp';
4968: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4969: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4970: END;
4971: END IF;
4972:
4965: p_error_code := g_FAILURE;
4966: p_error_desc := SQLERRM;
4967: l_location := l_module_name||'update_fv_sf224_temp';
4968: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4969: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4970: END;
4971: END IF;
4972:
4973: EXCEPTION
4974: WHEN OTHERS THEN
4975: p_error_code := g_FAILURE;
4976: p_error_desc := SQLERRM;
4977: l_location := l_module_name||'.final_exception';
4978: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4979: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4980: END pre_process;
4981:
4982:
4975: p_error_code := g_FAILURE;
4976: p_error_desc := SQLERRM;
4977: l_location := l_module_name||'.final_exception';
4978: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
4979: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_error_desc) ;
4980: END pre_process;
4981:
4982:
4983:
5003: WHERE tmp.set_of_books_id = sob
5004: AND tmp.alc_code IS NOT NULL;
5005: BEGIN
5006: l_module_name := g_module_name || 'check_alc_address';
5007: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Start of check_alc_address p_alc_code => ' || p_alc) ;
5009: END IF;
5010: IF p_alc = 'ALL' THEN /* p_alc = 'ALL' */
5011: FOR alc_code_rec IN alc_code_csr LOOP
5004: AND tmp.alc_code IS NOT NULL;
5005: BEGIN
5006: l_module_name := g_module_name || 'check_alc_address';
5007: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Start of check_alc_address p_alc_code => ' || p_alc) ;
5009: END IF;
5010: IF p_alc = 'ALL' THEN /* p_alc = 'ALL' */
5011: FOR alc_code_rec IN alc_code_csr LOOP
5012: BEGIN
5017: AND set_of_books_id = sob;
5018: EXCEPTION
5019: WHEN NO_DATA_FOUND THEN
5020: IF l_alc_add_missing_count = 0 THEN
5021: fv_utility.log_mesg(fnd_log.LEVEL_ERROR, l_module_name,'ALC address not found for the following ALC(s)');
5022: error_buf := SUBSTR(error_buf,1,40) || ' WITH WARNING **' ||
5023: fnd_global.newline() || 'ALC Address Not Found For The ALC(s)' ;
5024: END IF;
5025: l_alc_add_missing_count := l_alc_add_missing_count+1;
5022: error_buf := SUBSTR(error_buf,1,40) || ' WITH WARNING **' ||
5023: fnd_global.newline() || 'ALC Address Not Found For The ALC(s)' ;
5024: END IF;
5025: l_alc_add_missing_count := l_alc_add_missing_count+1;
5026: fv_utility.log_mesg(fnd_log.LEVEL_ERROR, l_module_name,l_alc_add_missing_count || ' : ' || alc_code_rec.alc_code);
5027: error_buf := error_buf || fnd_global.newline() || l_alc_add_missing_count ||' : ' || alc_code_rec.alc_code ;
5028: END;
5029: END LOOP;
5030: ELSE /* when p_alc is not 'ALL' */
5036: AND set_of_books_id = sob;
5037: EXCEPTION
5038: WHEN NO_DATA_FOUND THEN
5039: l_alc_add_missing_count := l_alc_add_missing_count+1;
5040: fv_utility.LOG_MESG(Fnd_Log.LEVEL_ERROR, l_module_name,'ALC address not found for the following ALC ' || p_alc);
5041: error_buf := SUBSTR(error_buf,1,40) || ' WITH WARNING **' || fnd_global.newline() ||
5042: 'ALC Address Not Found For The ALC ' || p_alc ;
5043: END;
5044: END IF; /* p_alc = 'ALL' */
5047: -- error_buf := SUBSTR(error_buf,1,40) || ' WITH WARNING **' || fnd_global.newline() ||
5048: -- 'ALC address not found for the ALC(s)' ;
5049: NULL;
5050: ELSE
5051: fv_utility.LOG_MESG(Fnd_Log.LEVEL_ERROR, l_module_name,'Error in seting the Concurent Program Status as Waring');
5052: error_code := SQLCODE ;
5053: error_buf := SQLERRM;
5054: END IF;
5055: END IF; /* l_alc_add_missing_count > 0 */
5052: error_code := SQLCODE ;
5053: error_buf := SQLERRM;
5054: END IF;
5055: END IF; /* l_alc_add_missing_count > 0 */
5056: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5057: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'End of check_alc_address ') ;
5058: END IF;
5059: EXCEPTION
5060: WHEN OTHERS THEN
5053: error_buf := SQLERRM;
5054: END IF;
5055: END IF; /* l_alc_add_missing_count > 0 */
5056: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5057: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'End of check_alc_address ') ;
5058: END IF;
5059: EXCEPTION
5060: WHEN OTHERS THEN
5061: error_code := SQLCODE;
5059: EXCEPTION
5060: WHEN OTHERS THEN
5061: error_code := SQLCODE;
5062: error_buf := SQLERRM;
5063: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', error_buf) ;
5064: RAISE;
5065: END check_alc_address;
5066:
5067: ----------------------------------------------------------------------
5087: l_module_name := g_module_name || '.extract';
5088: p_retcode := g_SUCCESS;
5089: sob := p_set_of_books_id;
5090:
5091: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5092: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'In extrac procdure ');
5093: End if;
5094:
5095:
5088: p_retcode := g_SUCCESS;
5089: sob := p_set_of_books_id;
5090:
5091: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5092: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'In extrac procdure ');
5093: End if;
5094:
5095:
5096: check_report_definitions
5172: WHEN OTHERS THEN
5173: p_retcode := g_FAILURE;
5174: p_errbuf := SQLERRM;
5175: l_location := l_module_name||'.final_exception';
5176: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
5177: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
5178: END extract;
5179:
5180:
5173: p_retcode := g_FAILURE;
5174: p_errbuf := SQLERRM;
5175: l_location := l_module_name||'.final_exception';
5176: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
5177: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
5178: END extract;
5179:
5180:
5181:
5198: l_po_dist_id ap_invoice_distributions_all.po_distribution_id%TYPE;
5199: l_parent_invoice_id ap_invoices_all.invoice_id%TYPE;
5200: BEGIN
5201: l_module_name := g_module_name || 'get_void_check_obligation_date';
5202: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5203: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Start of get_void_check_obligation_date') ;
5204: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, ' p_invoice_id => ' || p_invoice_id ||
5205: ' p_check_id => ' || p_check_id ||
5206: ' P_inv_dist_num => ' || P_inv_dist_num) ;
5199: l_parent_invoice_id ap_invoices_all.invoice_id%TYPE;
5200: BEGIN
5201: l_module_name := g_module_name || 'get_void_check_obligation_date';
5202: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5203: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Start of get_void_check_obligation_date') ;
5204: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, ' p_invoice_id => ' || p_invoice_id ||
5205: ' p_check_id => ' || p_check_id ||
5206: ' P_inv_dist_num => ' || P_inv_dist_num) ;
5207: END IF;
5200: BEGIN
5201: l_module_name := g_module_name || 'get_void_check_obligation_date';
5202: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5203: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Start of get_void_check_obligation_date') ;
5204: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, ' p_invoice_id => ' || p_invoice_id ||
5205: ' p_check_id => ' || p_check_id ||
5206: ' P_inv_dist_num => ' || P_inv_dist_num) ;
5207: END IF;
5208:
5213: FROM ap_invoice_distributions_all
5214: WHERE invoice_id = p_invoice_id ;
5215: --AND distribution_line_number = p_inv_dist_num;
5216: --------------
5217: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5218: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5219: ' l_po_dist_id => ' || l_po_dist_id || ' l_parent_invoice_id => ' || l_parent_invoice_id) ;
5220: END IF;
5221: IF l_po_dist_id <> 0 THEN
5214: WHERE invoice_id = p_invoice_id ;
5215: --AND distribution_line_number = p_inv_dist_num;
5216: --------------
5217: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5218: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5219: ' l_po_dist_id => ' || l_po_dist_id || ' l_parent_invoice_id => ' || l_parent_invoice_id) ;
5220: END IF;
5221: IF l_po_dist_id <> 0 THEN
5222: SELECT NVL(gl_encumbered_date,creation_date)
5222: SELECT NVL(gl_encumbered_date,creation_date)
5223: INTO l_obligation_date
5224: FROM po_distributions
5225: WHERE po_distribution_id =l_po_dist_id;
5226: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5227: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5228: 'Obligation Date is PO Date => ' || l_obligation_date);
5229: END IF;
5230: ELSIF l_parent_invoice_id <> 0 THEN
5223: INTO l_obligation_date
5224: FROM po_distributions
5225: WHERE po_distribution_id =l_po_dist_id;
5226: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5227: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5228: 'Obligation Date is PO Date => ' || l_obligation_date);
5229: END IF;
5230: ELSIF l_parent_invoice_id <> 0 THEN
5231: SELECT INVOICE_DATE
5231: SELECT INVOICE_DATE
5232: INTO l_obligation_date
5233: FROM ap_invoices_all
5234: WHERE invoice_id = l_parent_invoice_id;
5235: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5237: 'Obligation Date is Parent Invoice Date => ' || l_obligation_date);
5238: END IF;
5239: ELSE
5232: INTO l_obligation_date
5233: FROM ap_invoices_all
5234: WHERE invoice_id = l_parent_invoice_id;
5235: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5237: 'Obligation Date is Parent Invoice Date => ' || l_obligation_date);
5238: END IF;
5239: ELSE
5240: SELECT INVOICE_DATE
5240: SELECT INVOICE_DATE
5241: INTO l_obligation_date
5242: FROM ap_invoices_all
5243: WHERE invoice_id = p_invoice_id;
5244: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5246: 'Obligation Date is Invoice Date => ' || l_obligation_date);
5247: END IF;
5248: END IF;
5241: INTO l_obligation_date
5242: FROM ap_invoices_all
5243: WHERE invoice_id = p_invoice_id;
5244: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5246: 'Obligation Date is Invoice Date => ' || l_obligation_date);
5247: END IF;
5248: END IF;
5249:
5247: END IF;
5248: END IF;
5249:
5250:
5251: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5253: 'End of get_void_check_obligation_date l_obligation_date NEW CODE => ' || l_obligation_date) ;
5254: END IF;
5255: RETURN l_obligation_date;
5248: END IF;
5249:
5250:
5251: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5253: 'End of get_void_check_obligation_date l_obligation_date NEW CODE => ' || l_obligation_date) ;
5254: END IF;
5255: RETURN l_obligation_date;
5256: EXCEPTION
5254: END IF;
5255: RETURN l_obligation_date;
5256: EXCEPTION
5257: WHEN NO_DATA_FOUND THEN
5258: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'NO DATA FOUND EXCEPTION');
5260: END IF;
5261: RAISE;
5262: WHEN OTHERS THEN
5255: RETURN l_obligation_date;
5256: EXCEPTION
5257: WHEN NO_DATA_FOUND THEN
5258: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'NO DATA FOUND EXCEPTION');
5260: END IF;
5261: RAISE;
5262: WHEN OTHERS THEN
5263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'NO DATA FOUND EXCEPTION');
5260: END IF;
5261: RAISE;
5262: WHEN OTHERS THEN
5263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'WHEN OTHERS EXCEPTION');
5265: END IF;
5266: error_code := SQLCODE;
5267: error_buf := SQLERRM;
5260: END IF;
5261: RAISE;
5262: WHEN OTHERS THEN
5263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'WHEN OTHERS EXCEPTION');
5265: END IF;
5266: error_code := SQLCODE;
5267: error_buf := SQLERRM;
5268: RAISE ;
5316: l_error_code NUMBER;
5317: l_error_buf VARCHAR2(1000);
5318: BEGIN
5319: l_module_name := g_module_name || '.fv_ap_refund_populate';
5320: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Strat of the fv_ap_refund_populate Process');
5322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_set_of_books_id : ' || p_set_of_books_id) ;
5323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_org_id : ' || p_org_id ) ;
5324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_low : ' || p_gl_period_low) ;
5317: l_error_buf VARCHAR2(1000);
5318: BEGIN
5319: l_module_name := g_module_name || '.fv_ap_refund_populate';
5320: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Strat of the fv_ap_refund_populate Process');
5322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_set_of_books_id : ' || p_set_of_books_id) ;
5323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_org_id : ' || p_org_id ) ;
5324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_low : ' || p_gl_period_low) ;
5325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_high : ' || p_gl_period_high) ;
5318: BEGIN
5319: l_module_name := g_module_name || '.fv_ap_refund_populate';
5320: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Strat of the fv_ap_refund_populate Process');
5322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_set_of_books_id : ' || p_set_of_books_id) ;
5323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_org_id : ' || p_org_id ) ;
5324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_low : ' || p_gl_period_low) ;
5325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_high : ' || p_gl_period_high) ;
5326: END IF;
5319: l_module_name := g_module_name || '.fv_ap_refund_populate';
5320: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Strat of the fv_ap_refund_populate Process');
5322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_set_of_books_id : ' || p_set_of_books_id) ;
5323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_org_id : ' || p_org_id ) ;
5324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_low : ' || p_gl_period_low) ;
5325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_high : ' || p_gl_period_high) ;
5326: END IF;
5327: l_user_id := fnd_global.user_id;
5320: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Strat of the fv_ap_refund_populate Process');
5322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_set_of_books_id : ' || p_set_of_books_id) ;
5323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_org_id : ' || p_org_id ) ;
5324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_low : ' || p_gl_period_low) ;
5325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_high : ' || p_gl_period_high) ;
5326: END IF;
5327: l_user_id := fnd_global.user_id;
5328: l_conc_request_id := fnd_global.conc_request_id;
5321: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Strat of the fv_ap_refund_populate Process');
5322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_set_of_books_id : ' || p_set_of_books_id) ;
5323: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_org_id : ' || p_org_id ) ;
5324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_low : ' || p_gl_period_low) ;
5325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_period_high : ' || p_gl_period_high) ;
5326: END IF;
5327: l_user_id := fnd_global.user_id;
5328: l_conc_request_id := fnd_global.conc_request_id;
5329: l_set_of_books_id := p_set_of_books_id;
5335: FROM gl_period_statuses
5336: WHERE ledger_id = l_set_of_books_id
5337: AND application_id = 101
5338: AND period_name = p_gl_period_low;
5339: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5340: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Start Date for the period low is : ' ||
5341: l_gl_start_date ) ;
5342: END IF;
5343: EXCEPTION
5336: WHERE ledger_id = l_set_of_books_id
5337: AND application_id = 101
5338: AND period_name = p_gl_period_low;
5339: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5340: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Start Date for the period low is : ' ||
5341: l_gl_start_date ) ;
5342: END IF;
5343: EXCEPTION
5344: WHEN NO_DATA_FOUND THEN
5341: l_gl_start_date ) ;
5342: END IF;
5343: EXCEPTION
5344: WHEN NO_DATA_FOUND THEN
5345: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5346: 'Error in getting Start Date for the period Low ' ) ;
5347: RAISE;
5348: END;
5349: BEGIN
5352: FROM gl_period_statuses
5353: WHERE ledger_id = l_set_of_books_id
5354: AND application_id = 101
5355: AND period_name = p_gl_period_high;
5356: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5357: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'End Date for the period low is : ' ||
5358: l_gl_end_date ) ;
5359: END IF;
5360: EXCEPTION
5353: WHERE ledger_id = l_set_of_books_id
5354: AND application_id = 101
5355: AND period_name = p_gl_period_high;
5356: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5357: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'End Date for the period low is : ' ||
5358: l_gl_end_date ) ;
5359: END IF;
5360: EXCEPTION
5361: WHEN NO_DATA_FOUND THEN
5358: l_gl_end_date ) ;
5359: END IF;
5360: EXCEPTION
5361: WHEN NO_DATA_FOUND THEN
5362: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5363: 'Error in getting End Date for the Period High ' ) ;
5364: RAISE;
5365: END;
5366:
5516: AND apid.invoice_id = api.invoice_id
5517: )
5518:
5519: );
5520: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'No of Rows inserted into the FV table : '
5522: || SQL%ROWCOUNT ) ;
5523: END IF;
5524: COMMIT;
5517: )
5518:
5519: );
5520: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'No of Rows inserted into the FV table : '
5522: || SQL%ROWCOUNT ) ;
5523: END IF;
5524: COMMIT;
5525: -- Call the report to display the data populated by the process
5522: || SQL%ROWCOUNT ) ;
5523: END IF;
5524: COMMIT;
5525: -- Call the report to display the data populated by the process
5526: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5527: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5528: 'SUBMITTING FMS 224 Populate Payables Refunds Process Report .....') ;
5529: END IF;
5530: SELECT printer,
5523: END IF;
5524: COMMIT;
5525: -- Call the report to display the data populated by the process
5526: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5527: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5528: 'SUBMITTING FMS 224 Populate Payables Refunds Process Report .....') ;
5529: END IF;
5530: SELECT printer,
5531: number_of_copies
5541: l_org_id,p_gl_period_low,p_gl_period_high);
5542: IF l_report_conc_request_id = 0 THEN
5543: retcode := -1 ;
5544: errbuf := 'ERROR SUBMITTING FMS 224 Populate Payables Refunds Process Report. ';
5545: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
5546: 'ERROR SUBMITTING FMS 224 Populate Payables Refunds Process Report. ') ;
5547: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5549: 'Deleting all the Data from FV table inserted by the current process') ;
5543: retcode := -1 ;
5544: errbuf := 'ERROR SUBMITTING FMS 224 Populate Payables Refunds Process Report. ';
5545: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
5546: 'ERROR SUBMITTING FMS 224 Populate Payables Refunds Process Report. ') ;
5547: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5549: 'Deleting all the Data from FV table inserted by the current process') ;
5550: END IF;
5551: DELETE FROM fv_refunds_voids_all
5544: errbuf := 'ERROR SUBMITTING FMS 224 Populate Payables Refunds Process Report. ';
5545: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
5546: 'ERROR SUBMITTING FMS 224 Populate Payables Refunds Process Report. ') ;
5547: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5549: 'Deleting all the Data from FV table inserted by the current process') ;
5550: END IF;
5551: DELETE FROM fv_refunds_voids_all
5552: WHERE TYPE = 'PAYABLE_REFUND' AND conc_request_id = l_conc_request_id;
5550: END IF;
5551: DELETE FROM fv_refunds_voids_all
5552: WHERE TYPE = 'PAYABLE_REFUND' AND conc_request_id = l_conc_request_id;
5553: COMMIT;
5554: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5556: 'No of Rows Deleted from FV table : ' || SQL%ROWCOUNT ) ;
5557: END IF;
5558: END IF;
5551: DELETE FROM fv_refunds_voids_all
5552: WHERE TYPE = 'PAYABLE_REFUND' AND conc_request_id = l_conc_request_id;
5553: COMMIT;
5554: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5556: 'No of Rows Deleted from FV table : ' || SQL%ROWCOUNT ) ;
5557: END IF;
5558: END IF;
5559: EXCEPTION
5557: END IF;
5558: END IF;
5559: EXCEPTION
5560: WHEN OTHERS THEN
5561: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','When Others Exception') ;
5562: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','Error Code : ' ||
5563: SQLCODE) ;
5564: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','Error Mesg : ' ||
5565: SQLERRM) ;
5558: END IF;
5559: EXCEPTION
5560: WHEN OTHERS THEN
5561: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','When Others Exception') ;
5562: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','Error Code : ' ||
5563: SQLCODE) ;
5564: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','Error Mesg : ' ||
5565: SQLERRM) ;
5566: errbuf := SQLERRM;
5560: WHEN OTHERS THEN
5561: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','When Others Exception') ;
5562: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','Error Code : ' ||
5563: SQLCODE) ;
5564: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception','Error Mesg : ' ||
5565: SQLERRM) ;
5566: errbuf := SQLERRM;
5567: retcode := SQLCODE;
5568: END fv_ap_refund_populate;