236: l_prc_map_count NUMBER;
237:
238: BEGIN
239: l_module_name := g_module_name || 'MAIN';
240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STARTING THE FACTS TRANSACTION REGISTER '||
242: 'Main Process ...');
243: END IF;
244:
237:
238: BEGIN
239: l_module_name := g_module_name || 'MAIN';
240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STARTING THE FACTS TRANSACTION REGISTER '||
242: 'Main Process ...');
243: END IF;
244:
245: g_set_of_books_id := p_set_of_books_id;
282:
283: -- Get Period Year
284: IF (g_error_code = 0)
285: THEN
286: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
287: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
288: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DERIVING THE PERIOD YEAR.....');
289: END IF;
290: GET_PERIOD_YEAR (p_from_period_name, p_to_period_name);
283: -- Get Period Year
284: IF (g_error_code = 0)
285: THEN
286: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
287: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
288: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DERIVING THE PERIOD YEAR.....');
289: END IF;
290: GET_PERIOD_YEAR (p_from_period_name, p_to_period_name);
291: END IF;
284: IF (g_error_code = 0)
285: THEN
286: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
287: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
288: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DERIVING THE PERIOD YEAR.....');
289: END IF;
290: GET_PERIOD_YEAR (p_from_period_name, p_to_period_name);
291: END IF;
292:
292:
293: -- Process Input start_date and end_date
294: IF (g_error_code = 0)
295: THEN
296: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE PERIOD INFO ...');
298: END IF;
299: PROCESS_PERIOD_INFO;
300: END IF;
293: -- Process Input start_date and end_date
294: IF (g_error_code = 0)
295: THEN
296: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE PERIOD INFO ...');
298: END IF;
299: PROCESS_PERIOD_INFO;
300: END IF;
301:
301:
302: -- Get Account and Balancing Segment values
303: IF (g_error_code = 0)
304: THEN
305: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE QUALIFIER SEGMENTS ...');
307: END IF;
308: GET_QUALIFIER_SEGMENTS;
309: END IF;
302: -- Get Account and Balancing Segment values
303: IF (g_error_code = 0)
304: THEN
305: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE QUALIFIER SEGMENTS ...');
307: END IF;
308: GET_QUALIFIER_SEGMENTS;
309: END IF;
310:
309: END IF;
310:
311: -- Purge the data IF any for the Treasury Symbol
312: IF (g_error_code = 0)THEN
313: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
314: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING EXISTING DATA OF ');
315: END IF;
316: PURGE_FACTS_TRANSACTIONS ;
317: END IF ;
310:
311: -- Purge the data IF any for the Treasury Symbol
312: IF (g_error_code = 0)THEN
313: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
314: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING EXISTING DATA OF ');
315: END IF;
316: PURGE_FACTS_TRANSACTIONS ;
317: END IF ;
318:
327: treasury_symbol_range_rec.treasury_symbol;
328:
329:
330: IF (g_error_code = 0) THEN
331: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
333: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS JOURNAL LINES ...');
334: END IF;
335: JOURNAL_PROCESS;
328:
329:
330: IF (g_error_code = 0) THEN
331: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
333: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS JOURNAL LINES ...');
334: END IF;
335: JOURNAL_PROCESS;
336: END IF;
329:
330: IF (g_error_code = 0) THEN
331: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
333: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS JOURNAL LINES ...');
334: END IF;
335: JOURNAL_PROCESS;
336: END IF;
337:
373:
374: IF l_req_id = 0 THEN
375: p_errbuf := 'Error submitting RX Report ';
376: p_retcode := -1 ;
377: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
378: RETURN;
379: ELSE
380: -- if concurrent request submission failed then abort process
381: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
377: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
378: RETURN;
379: ELSE
380: -- if concurrent request submission failed then abort process
381: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
383: 'Concurrent Request Id for RX Report - ' ||l_req_id);
384: END IF;
385: END IF;
378: RETURN;
379: ELSE
380: -- if concurrent request submission failed then abort process
381: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
383: 'Concurrent Request Id for RX Report - ' ||l_req_id);
384: END IF;
385: END IF;
386:
392:
393: IF (l_call_status = FALSE) THEN
394: p_errbuf := 'Cannot wait for the status of RX Report.';
395: p_retcode := 1;
396: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
397: PURGE_FACTS_TRANSACTIONS ;
398: END IF;
399:
400:
400:
401: ELSE
402: p_retcode := 1;
403: p_errbuf := '** No Data Found for the Transaction Register Process **';
404: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
405: RETURN;
406: END IF;
407: END;
408:
420: THEN
421: p_retcode := 1;
422: p_errbuf := 'Transaction Register Process completed with warning because the Public Law, Advance,
423: and Transfer attribute columns are not established on the Define System Parameters Form.';
424: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
425: COMMIT;
426: RETURN;
427: ELSE
428: p_retcode := 0;
426: RETURN;
427: ELSE
428: p_retcode := 0;
429: p_errbuf := '** Transaction Register Process completed Successfully **';
430: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
431: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,p_errbuf);
432: END IF;
433: COMMIT;
434: RETURN;
427: ELSE
428: p_retcode := 0;
429: p_errbuf := '** Transaction Register Process completed Successfully **';
430: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
431: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,p_errbuf);
432: END IF;
433: COMMIT;
434: RETURN;
435: END IF ;
440: THEN
441: p_errbuf := '** Transaction Register Process Failed ** '||SQLERRM;
442: p_retcode := 2;
443: ROLLBACK;
444: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
445: END main;
446:
447: -- ------------------------------------------------------------------
448: -- PROCEDURE GET_PERIOD_YEAR
470: WHEN NO_DATA_FOUND THEN
471: g_error_code := 2;
472: g_error_buf := 'Period Set name not found for set of books '
473: ||to_char(g_set_of_books_id);
474: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
475: RETURN;
476: WHEN OTHERS THEN
477: g_error_code := SQLCODE ;
478: g_error_buf := SQLERRM ||
477: g_error_code := SQLCODE ;
478: g_error_buf := SQLERRM ||
479: ' -- Error in Get_Period_Year procedure,while getting the '
480: ||'period set name.' ;
481: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
482: RETURN;
483: END;
484:
485: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
481: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
482: RETURN;
483: END;
484:
485: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD SET NAME IS '||L_PERIOD_SET_NAME);
487: END IF;
488:
489: BEGIN
482: RETURN;
483: END;
484:
485: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD SET NAME IS '||L_PERIOD_SET_NAME);
487: END IF;
488:
489: BEGIN
490: SELECT period_year,adjustment_period_flag
497: g_error_code := 2;
498: g_error_buf := 'Period Year not found for the set of books '
499: ||to_char(g_set_of_books_id) ||
500: ' and the period set name '||l_period_set_name;
501: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
502: RETURN;
503: WHEN OTHERS THEN
504: g_error_code := SQLCODE ;
505: g_error_buf := SQLERRM ||
504: g_error_code := SQLCODE ;
505: g_error_buf := SQLERRM ||
506: ' -- Error in Get_Period_Year procedure,'||
507: ' while getting the period year.' ;
508: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
509: RETURN;
510: END;
511:
512: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
508: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
509: RETURN;
510: END;
511:
512: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD YEAR IS '||TO_CHAR(G_PERIOD_YEAR));
514: END IF;
515:
516: BEGIN -- From Period Start Date
509: RETURN;
510: END;
511:
512: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD YEAR IS '||TO_CHAR(G_PERIOD_YEAR));
514: END IF;
515:
516: BEGIN -- From Period Start Date
517: SELECT start_date
525: WHEN NO_DATA_FOUND THEN
526: g_error_code := 2;
527: g_error_buf := 'Start Date not defined for the period name '
528: ||p_period_from;
529: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
530: RETURN;
531: WHEN OTHERS THEN
532: g_error_code := SQLCODE ;
533: g_error_buf := SQLERRM ||
533: g_error_buf := SQLERRM ||
534: ' -- Error in Get_Period_Year procedure, '||
535: 'while getting the start date for the from period '
536: ||p_period_from ;
537: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
538: RETURN;
539: END;
540:
541: -- From Period Start Date
538: RETURN;
539: END;
540:
541: -- From Period Start Date
542: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD START DATE IS '||TO_CHAR(G_START_DATE, 'MM/DD/YYYY'));
544: END IF;
545: BEGIN -- To Period End Date
546: SELECT end_date
539: END;
540:
541: -- From Period Start Date
542: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD START DATE IS '||TO_CHAR(G_START_DATE, 'MM/DD/YYYY'));
544: END IF;
545: BEGIN -- To Period End Date
546: SELECT end_date
547: INTO g_end_date
554: WHEN NO_DATA_FOUND THEN
555: g_error_code := 2;
556: g_error_buf := 'End Date not defined for the period name '
557: ||p_period_to;
558: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
559: RETURN;
560: WHEN OTHERS THEN
561: g_error_code := SQLCODE ;
562: g_error_buf := SQLERRM ||
562: g_error_buf := SQLERRM ||
563: ' -- Error in Get_Period_Year procedure, '||
564: 'while getting the end date for the to period '||
565: p_period_to ;
566: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
567: RETURN;
568: END; -- To Period End Date
569:
570: -- Setting up the retcode
574: WHEN OTHERS THEN
575: g_error_code := SQLCODE ;
576: g_error_buf := SQLERRM ||
577: ' -- Error in Get_Period_Year procedure.' ;
578: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
579: RETURN;
580: END get_period_year;
581:
582: -- -------------------------------------------------------------
606: g_error_code := 2;
607: g_error_buf := 'PROCESS PERIOD INFO - period_num corresponding '||
608: 'to From Period Name ' || g_from_period_name ||
609: ' not found.';
610: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
611: RETURN;
612: WHEN OTHERS THEN
613: g_error_code := SQLCODE ;
614: g_error_buf := SQLERRM ||
614: g_error_buf := SQLERRM ||
615: 'PROCESS PERIOD INFO - Error when getting '||
616: 'min(period_num) from gl_period_statuses '||
617: 'for From Period Name '|| g_from_period_name;
618: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
619: RETURN;
620: END;
621:
622: BEGIN
632: g_error_code := 2;
633: g_error_buf := 'PROCESS PERIOD INFO - period corresponding '||
634: 'to To Period Name ' || g_to_period_name ||
635: ' not found.';
636: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
637: RETURN;
638: WHEN OTHERS THEN
639: g_error_code := SQLCODE ;
640: g_error_buf := SQLERRM ||
640: g_error_buf := SQLERRM ||
641: 'PROCESS PERIOD INFO - Error when getting '||
642: 'max(period_num) from gl_period_statuses for '||
643: 'To Period Name '|| g_to_period_name;
644: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
645: RETURN;
646: END;
647: -- END IF;
648: -- Setting up the retcode
651: WHEN OTHERS THEN
652: g_error_code := SQLCODE ;
653: g_error_buf := SQLERRM ||
654: ' -- Error in Process_Period_Info procedure.' ;
655: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
656: RETURN;
657: END process_period_info;
658: -- -------------------------------------------------------------
659: -- PROCEDURE GET QUALIFIER SEGMENTS
678: );
679:
680: IF (l_error_code) THEN
681: g_error_code := 2 ;
682: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
683: RETURN;
684: END IF;
685:
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
682: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
683: RETURN;
684: END IF;
685:
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
689: ||g_acct_segment_name);
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
683: RETURN;
684: END IF;
685:
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
689: ||g_acct_segment_name);
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
691: END IF;
684: END IF;
685:
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
689: ||g_acct_segment_name);
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
691: END IF;
692: BEGIN
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
689: ||g_acct_segment_name);
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
691: END IF;
692: BEGIN
693: -- Determine the Flex Value Set Id for the Acct segment
694: SELECT flex_value_set_id
697: WHERE application_column_name = g_acct_segment_name
698: AND application_id = g_apps_id
699: AND id_flex_code = g_id_flex_code
700: AND id_flex_num = g_coa_id ;
701: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
702: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FLEX VALUE SET ID IS '||
703: to_char(g_acc_value_set_id));
704: END IF;
705: EXCEPTION
698: AND application_id = g_apps_id
699: AND id_flex_code = g_id_flex_code
700: AND id_flex_num = g_coa_id ;
701: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
702: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FLEX VALUE SET ID IS '||
703: to_char(g_acc_value_set_id));
704: END IF;
705: EXCEPTION
706: WHEN NO_DATA_FOUND THEN
705: EXCEPTION
706: WHEN NO_DATA_FOUND THEN
707: g_error_code := 2 ;
708: g_error_buf := 'GET QUALIFIER SEGMENTS - flex_value_set_id not found';
709: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
710: RETURN;
711: WHEN TOO_MANY_ROWS THEN
712: g_error_code := 2 ;
713: g_error_buf := 'GET QUALIFIER SEGMENTS - More than one ' ||
711: WHEN TOO_MANY_ROWS THEN
712: g_error_code := 2 ;
713: g_error_buf := 'GET QUALIFIER SEGMENTS - More than one ' ||
714: 'row returned while getting flex_value_set_id';
715: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
716: RETURN;
717: WHEN OTHERS THEN
718: g_error_code := SQLCODE;
719: g_error_buf := SQLERRM ||
718: g_error_code := SQLCODE;
719: g_error_buf := SQLERRM ||
720: '-- GET QUALIFIER SEGMENTS Error '||
721: 'when getting acct_value_set_id';
722: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
723: RETURN;
724: END;
725:
726: -- Setting up the retcode
729: WHEN OTHERS THEN
730: g_error_code := SQLCODE ;
731: g_error_buf := SQLERRM ||
732: ' -- Error in Get_QualIFier_Segments procedure.' ;
733: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
734: RETURN;
735: END get_qualifier_segments;
736:
737:
900: g_error_code := SQLCODE;
901: g_error_buf := SQLERRM ||
902: ' -- Error in Journal_Process'||
903: ' procedure due to Open_Cursor.';
904: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
905: RETURN;
906: END;
907: BEGIN
908: SELECT 'X', factsI_journal_attribute,
923: g_error_code := 1;
924: g_error_buf := 'Warning in Journal_Process procedure ' ||
925: '- Journal Trading Partner not defined on'||
926: ' System Parameter form';
927: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
928: ELSE
929: l_jrnl := ' ,gjl.' || l_jrnl_att;
930: g_error_code := 0;
931: g_error_buf := NULL;
928: ELSE
929: l_jrnl := ' ,gjl.' || l_jrnl_att;
930: g_error_code := 0;
931: g_error_buf := NULL;
932: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
933: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
934: || l_jrnl_att);
935: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
929: l_jrnl := ' ,gjl.' || l_jrnl_att;
930: g_error_code := 0;
931: g_error_buf := NULL;
932: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
933: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
934: || l_jrnl_att);
935: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
931: g_error_buf := NULL;
932: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
933: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
934: || l_jrnl_att);
935: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
932: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
933: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
934: || l_jrnl_att);
935: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
933: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
934: || l_jrnl_att);
935: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
934: || l_jrnl_att);
935: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
942: END IF;
935: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
942: END IF;
943: END IF;
936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
942: END IF;
943: END IF;
944:
937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
942: END IF;
943: END IF;
944:
945: -- Set the global variable to false if facts
959: g_error_code := SQLCODE;
960: g_error_buf := 'Error in Journal_Process procedure - Journal '||
961: 'Trading Partner and other Parameters not '||
962: 'defined on System Parameter form';
963: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
964: RETURN;
965: WHEN OTHERS THEN
966: g_error_code := SQLCODE;
967: g_error_buf := SQLERRM ||
965: WHEN OTHERS THEN
966: g_error_code := SQLCODE;
967: g_error_buf := SQLERRM ||
968: ' -- Error in Journal_Process procedure.' ;
969: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
970: RETURN;
971: END;
972:
973: IF (g_source IS NOT NULL)
1000: INTO l_fyr_segment_name
1001: FROM fv_pya_fiscalyear_segment
1002: WHERE set_of_books_id = g_set_of_books_id;
1003:
1004: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1005: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FISCAL YR SEGMENT '||L_FYR_SEGMENT_NAME);
1006: END IF;
1007:
1008: Exception
1001: FROM fv_pya_fiscalyear_segment
1002: WHERE set_of_books_id = g_set_of_books_id;
1003:
1004: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1005: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FISCAL YR SEGMENT '||L_FYR_SEGMENT_NAME);
1006: END IF;
1007:
1008: Exception
1009:
1009:
1010: WHEN Others THEN
1011: g_error_code := SQLCODE;
1012: g_error_buf := SQLERRM ;
1013: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.select1',g_error_buf);
1014: RETURN;
1015: End;
1016:
1017: -- Load segments array table
1216: g_error_code := SQLCODE;
1217: g_error_buf := SQLERRM ||
1218: ' -- Error in Journal_Process procedure due '||
1219: 'to cursor Parse.';
1220: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.select1',g_error_buf);
1221: RETURN;
1222: END;
1223:
1224: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1220: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.select1',g_error_buf);
1221: RETURN;
1222: END;
1223:
1224: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1225: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_JRNL_SELECT);
1226: -- END IF;
1227:
1228: -- Bind the variables
1221: RETURN;
1222: END;
1223:
1224: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1225: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_JRNL_SELECT);
1226: -- END IF;
1227:
1228: -- Bind the variables
1229: dbms_sql.bind_variable(l_jrnl_cursor, ':sob_id', l_sob);
1359: counter,l_tr_main_acct, 150);
1360: counter := counter+1;
1361: END IF;
1362:
1363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1360: counter := counter+1;
1361: END IF;
1362:
1363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1361: END IF;
1362:
1363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1362:
1363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1373: END IF;
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1373: END IF;
1374:
1367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1373: END IF;
1374:
1375: BEGIN
1368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1373: END IF;
1374:
1375: BEGIN
1376: l_exec_ret := dbms_sql.execute(l_jrnl_cursor);
1379: g_error_code := SQLCODE;
1380: g_error_buf := SQLERRM ||
1381: ' -- Error in Journal_Process procedure due '||
1382: 'to cursor Execute.';
1383: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.message1',G_ERROR_BUF);
1384: RETURN;
1385: END;
1386: i := 0;
1387: LOOP
1446: l_account_class := NULL;
1447:
1448: l_jrnl_fetch := DBMS_SQL.FETCH_ROWS(l_jrnl_cursor);
1449:
1450: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1451: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_JRNL_FETCH '||L_JRNL_FETCH);
1452: END IF;
1453:
1454: IF (l_jrnl_fetch = 0)
1447:
1448: l_jrnl_fetch := DBMS_SQL.FETCH_ROWS(l_jrnl_cursor);
1449:
1450: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1451: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_JRNL_FETCH '||L_JRNL_FETCH);
1452: END IF;
1453:
1454: IF (l_jrnl_fetch = 0)
1455: THEN
1454: IF (l_jrnl_fetch = 0)
1455: THEN
1456: IF (i = 0)
1457: THEN
1458: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1459: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO JOURNAL TRANSACTIONS'||
1460: ' to process for '||g_treasury_symbol||' !!!');
1461: END IF;
1462: END IF;
1455: THEN
1456: IF (i = 0)
1457: THEN
1458: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1459: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO JOURNAL TRANSACTIONS'||
1460: ' to process for '||g_treasury_symbol||' !!!');
1461: END IF;
1462: END IF;
1463: EXIT; -- Exit the loop
1460: ' to process for '||g_treasury_symbol||' !!!');
1461: END IF;
1462: END IF;
1463: EXIT; -- Exit the loop
1464: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1465: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'MUST EXIT THE LOOP');
1466: END IF;
1467: END IF;
1468:
1461: END IF;
1462: END IF;
1463: EXIT; -- Exit the loop
1464: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1465: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'MUST EXIT THE LOOP');
1466: END IF;
1467: END IF;
1468:
1469: -- Fetch the records into variables
1591:
1592: l_valid_flag := 'Y';
1593: l_feeder_flag := 'Y';
1594: i := 1;
1595: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1597: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1598: || l_account_number);
1599: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1592: l_valid_flag := 'Y';
1593: l_feeder_flag := 'Y';
1594: i := 1;
1595: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1597: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1598: || l_account_number);
1599: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1600: END IF;
1593: l_feeder_flag := 'Y';
1594: i := 1;
1595: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1597: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1598: || l_account_number);
1599: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1600: END IF;
1601:
1595: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1597: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1598: || l_account_number);
1599: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1600: END IF;
1601:
1602: -- Get Fund Group, Dept_id, Bureau_code and Balancing Segment.
1603: GET_FUND_GROUP_INFO (l_ccid,
1624: -- Account Number exists in FV_FACTS_ATTRIBUTES table
1625: -- and can be used to get FACTS attributes.
1626: -- l_sgl_acct_num := l_account_number;
1627:
1628: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1629: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1630: 'for the child account -'||l_account_number);
1631: END IF;
1632: LOAD_FACTS_ATTRIBUTES (l_account_number, l_bal_segment) ;
1625: -- and can be used to get FACTS attributes.
1626: -- l_sgl_acct_num := l_account_number;
1627:
1628: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1629: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1630: 'for the child account -'||l_account_number);
1631: END IF;
1632: LOAD_FACTS_ATTRIBUTES (l_account_number, l_bal_segment) ;
1633:
1641: l_sgl_acct_num := Null;
1642: GET_SGL_PARENT(l_account_number, l_sgl_acct_num) ;
1643:
1644: IF l_sgl_acct_num IS NOT NULL Then
1645: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1646: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1647: 'for the parent account -'||l_sgl_acct_num);
1648: END IF;
1649: LOAD_FACTS_ATTRIBUTES (l_sgl_acct_num, l_bal_segment) ;
1642: GET_SGL_PARENT(l_account_number, l_sgl_acct_num) ;
1643:
1644: IF l_sgl_acct_num IS NOT NULL Then
1645: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1646: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1647: 'for the parent account -'||l_sgl_acct_num);
1648: END IF;
1649: LOAD_FACTS_ATTRIBUTES (l_sgl_acct_num, l_bal_segment) ;
1650: END IF;
1657: FROM fv_facts_ussgl_accounts
1658: WHERE ussgl_account = l_account_number;
1659:
1660: l_sgl_acct_num := l_account_number;
1661: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1662: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHILD ACCOUNT IS A USSGL: '|| L_SGL_ACCT_NUM);
1663: END IF;
1664: EXCEPTION
1665: WHEN NO_DATA_FOUND THEN
1658: WHERE ussgl_account = l_account_number;
1659:
1660: l_sgl_acct_num := l_account_number;
1661: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1662: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHILD ACCOUNT IS A USSGL: '|| L_SGL_ACCT_NUM);
1663: END IF;
1664: EXCEPTION
1665: WHEN NO_DATA_FOUND THEN
1666: l_sgl_acct_num := Null;
1664: EXCEPTION
1665: WHEN NO_DATA_FOUND THEN
1666: l_sgl_acct_num := Null;
1667: GET_SGL_PARENT(l_account_number, l_sgl_acct_num);
1668: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PARENT ACCOUNT: '|| L_SGL_ACCT_NUM);
1670: END IF;
1671: END;
1672:
1665: WHEN NO_DATA_FOUND THEN
1666: l_sgl_acct_num := Null;
1667: GET_SGL_PARENT(l_account_number, l_sgl_acct_num);
1668: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PARENT ACCOUNT: '|| L_SGL_ACCT_NUM);
1670: END IF;
1671: END;
1672:
1673: IF (g_error_code <> 0)
1737: l_prn_num := '000';
1738: l_prn_text := 'Default PRN Code';
1739:
1740:
1741: IF ( FND_LOG.LEVEL_STATEMENT >=
1742: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1743: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1744: l_module_name, 'Defaulting the Reporting'
1745: ||'codes as the apportionment '
1738: l_prn_text := 'Default PRN Code';
1739:
1740:
1741: IF ( FND_LOG.LEVEL_STATEMENT >=
1742: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1743: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1744: l_module_name, 'Defaulting the Reporting'
1745: ||'codes as the apportionment '
1746: ||'Category flag is N ') ;
1739:
1740:
1741: IF ( FND_LOG.LEVEL_STATEMENT >=
1742: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1743: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1744: l_module_name, 'Defaulting the Reporting'
1745: ||'codes as the apportionment '
1746: ||'Category flag is N ') ;
1747: End If ;
2078: INTO l_account_class
2079: FROM ra_cust_trx_line_gl_dist_all
2080: WHERE cust_trx_line_gl_dist_id = l_source_distribution_id_num_1;
2081:
2082: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2083: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
2084: 'Account class: '||l_account_class);
2085: END IF;
2086:
2079: FROM ra_cust_trx_line_gl_dist_all
2080: WHERE cust_trx_line_gl_dist_id = l_source_distribution_id_num_1;
2081:
2082: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2083: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
2084: 'Account class: '||l_account_class);
2085: END IF;
2086:
2087: IF l_account_class <> 'REC' THEN
2233: -- Get the vendor id from Payables (Includes invoice and Payments)
2234: -------------------------------------------------------------------
2235: IF (l_source = 'Payables' AND l_category <> 'Treasury Confirmation')
2236: THEN
2237: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2240: END IF;
2241: IF (l_reference_2 IS NOT NULL)
2234: -------------------------------------------------------------------
2235: IF (l_source = 'Payables' AND l_category <> 'Treasury Confirmation')
2236: THEN
2237: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2240: END IF;
2241: IF (l_reference_2 IS NOT NULL)
2242: THEN
2235: IF (l_source = 'Payables' AND l_category <> 'Treasury Confirmation')
2236: THEN
2237: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2240: END IF;
2241: IF (l_reference_2 IS NOT NULL)
2242: THEN
2243: BEGIN
2253: AND i.vendor_id = v.vendor_id
2254: AND fvv.vendor_id = v.vendor_id;
2255: EXCEPTION
2256: WHEN NO_DATA_FOUND THEN
2257: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.select_1',' NO DATA FOUND !!');
2258: WHEN INVALID_NUMBER THEN
2259: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2260: END;
2261:
2255: EXCEPTION
2256: WHEN NO_DATA_FOUND THEN
2257: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.select_1',' NO DATA FOUND !!');
2258: WHEN INVALID_NUMBER THEN
2259: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2260: END;
2261:
2262: ELSE
2263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2259: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2260: END;
2261:
2262: ELSE
2263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. INVOICE_ID IS NULL');
2265: END IF;
2266: END IF;
2267: -------------------------------------------------------------------
2260: END;
2261:
2262: ELSE
2263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. INVOICE_ID IS NULL');
2265: END IF;
2266: END IF;
2267: -------------------------------------------------------------------
2268: -- Get the Vendor ID for Purchasing Inventory Records
2269: ------------------------------------------------------------------
2270: ELSIF (l_source = 'Purchasing') THEN
2271: IF (l_category = 'Receiving') THEN
2272:
2273: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2275: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2277: END IF;
2270: ELSIF (l_source = 'Purchasing') THEN
2271: IF (l_category = 'Receiving') THEN
2272:
2273: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2275: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2277: END IF;
2278: IF (l_reference_2 IS NOT NULL AND
2271: IF (l_category = 'Receiving') THEN
2272:
2273: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2275: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2277: END IF;
2278: IF (l_reference_2 IS NOT NULL AND
2279: l_reference_5 IS NOT NULL) THEN
2272:
2273: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2275: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2277: END IF;
2278: IF (l_reference_2 IS NOT NULL AND
2279: l_reference_5 IS NOT NULL) THEN
2280: BEGIN
2293: AND v.vendor_id = ph.vendor_id
2294: AND fvv.vendor_id = ph.vendor_id;
2295: EXCEPTION
2296: WHEN NO_DATA_FOUND THEN
2297: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE'||
2299: ' is Purchasing and category'||
2300: ' is Receiving!!');
2301: END IF;
2294: AND fvv.vendor_id = ph.vendor_id;
2295: EXCEPTION
2296: WHEN NO_DATA_FOUND THEN
2297: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE'||
2299: ' is Purchasing and category'||
2300: ' is Receiving!!');
2301: END IF;
2302:
2300: ' is Receiving!!');
2301: END IF;
2302:
2303: WHEN INVALID_NUMBER THEN
2304: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_5');
2305: END;
2306: ELSE
2307: IF (l_reference_2 IS NULL) THEN
2308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2304: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_5');
2305: END;
2306: ELSE
2307: IF (l_reference_2 IS NULL) THEN
2308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2309: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. PO_HEADER_ID '||
2310: 'is NULL');
2311: END IF;
2312: ELSE
2305: END;
2306: ELSE
2307: IF (l_reference_2 IS NULL) THEN
2308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2309: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. PO_HEADER_ID '||
2310: 'is NULL');
2311: END IF;
2312: ELSE
2313: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2309: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. PO_HEADER_ID '||
2310: 'is NULL');
2311: END IF;
2312: ELSE
2313: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2314: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_5 I.E.'||
2315: ' Transaction_id is NULL');
2316: END IF;
2317: END IF;
2310: 'is NULL');
2311: END IF;
2312: ELSE
2313: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2314: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_5 I.E.'||
2315: ' Transaction_id is NULL');
2316: END IF;
2317: END IF;
2318: END IF;
2317: END IF;
2318: END IF;
2319:
2320: ELSIF (l_category = 'Purchases') THEN
2321: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REFERENCE 2: '|| L_REFERENCE_2);
2323: END IF;
2324:
2325: IF (l_reference_2 IS NOT NULL) THEN
2318: END IF;
2319:
2320: ELSIF (l_category = 'Purchases') THEN
2321: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REFERENCE 2: '|| L_REFERENCE_2);
2323: END IF;
2324:
2325: IF (l_reference_2 IS NOT NULL) THEN
2326: BEGIN
2338: AND pov.vendor_id = poh.vendor_id
2339: AND fvv.vendor_id = poh.vendor_id;
2340: EXCEPTION
2341: WHEN NO_DATA_FOUND THEN
2342: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2343: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE IS'||
2344: ' Purchasing and category'||
2345: ' is Purchases!!');
2346: END IF;
2339: AND fvv.vendor_id = poh.vendor_id;
2340: EXCEPTION
2341: WHEN NO_DATA_FOUND THEN
2342: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2343: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE IS'||
2344: ' Purchasing and category'||
2345: ' is Purchases!!');
2346: END IF;
2347: WHEN INVALID_NUMBER THEN
2344: ' Purchasing and category'||
2345: ' is Purchases!!');
2346: END IF;
2347: WHEN INVALID_NUMBER THEN
2348: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2349: END;
2350: ELSE
2351:
2352: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2348: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2349: END;
2350: ELSE
2351:
2352: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'REFERENCE_2 I.E. PO HEADER ID'||
2354: ' is NULL');
2355: END IF;
2356: END IF;
2349: END;
2350: ELSE
2351:
2352: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'REFERENCE_2 I.E. PO HEADER ID'||
2354: ' is NULL');
2355: END IF;
2356: END IF;
2357: END IF;
2359: -----------------------------------------------------------
2360: -- Customer id for Receivables transactions
2361: -----------------------------------------------------------
2362: ELSIF (l_source = 'Receivables') THEN
2363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '||L_NAME);
2365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 7: '|| L_REFERENCE_7);
2366: END IF;
2367: IF (l_reference_7 IS NOT NULL) THEN
2360: -- Customer id for Receivables transactions
2361: -----------------------------------------------------------
2362: ELSIF (l_source = 'Receivables') THEN
2363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '||L_NAME);
2365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 7: '|| L_REFERENCE_7);
2366: END IF;
2367: IF (l_reference_7 IS NOT NULL) THEN
2368: l_vendor_id := to_number(l_reference_7);
2361: -----------------------------------------------------------
2362: ELSIF (l_source = 'Receivables') THEN
2363: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '||L_NAME);
2365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 7: '|| L_REFERENCE_7);
2366: END IF;
2367: IF (l_reference_7 IS NOT NULL) THEN
2368: l_vendor_id := to_number(l_reference_7);
2369: BEGIN
2374: WHERE hzca.cust_account_id = to_number(l_reference_7)
2375: AND fcv.customer_id = hzca.cust_account_id;
2376: EXCEPTION
2377: WHEN NO_DATA_FOUND THEN
2378: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO DATA FOUND !!');
2380: END IF;
2381: WHEN INVALID_NUMBER THEN
2382: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_7');
2375: AND fcv.customer_id = hzca.cust_account_id;
2376: EXCEPTION
2377: WHEN NO_DATA_FOUND THEN
2378: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO DATA FOUND !!');
2380: END IF;
2381: WHEN INVALID_NUMBER THEN
2382: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_7');
2383: END;
2378: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO DATA FOUND !!');
2380: END IF;
2381: WHEN INVALID_NUMBER THEN
2382: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_7');
2383: END;
2384: ELSE
2385: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_7 I.E. '||
2381: WHEN INVALID_NUMBER THEN
2382: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_7');
2383: END;
2384: ELSE
2385: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_7 I.E. '||
2387: 'customer_id is NULL');
2388: END IF;
2389: END IF;
2382: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_7');
2383: END;
2384: ELSE
2385: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_7 I.E. '||
2387: 'customer_id is NULL');
2388: END IF;
2389: END IF;
2390: --------------------------------------------------------------------
2392: --------------------------------------------------------------------
2393: ELSIF (l_source = 'Payables' AND
2394: l_category = 'Treasury Confirmation') THEN
2395: l_stage := 4;
2396: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2397: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2398: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 3: '|| L_REFERENCE_3);
2399: END IF;
2400: IF (l_reference_3 IS NOT NULL)
2393: ELSIF (l_source = 'Payables' AND
2394: l_category = 'Treasury Confirmation') THEN
2395: l_stage := 4;
2396: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2397: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2398: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 3: '|| L_REFERENCE_3);
2399: END IF;
2400: IF (l_reference_3 IS NOT NULL)
2401: THEN
2394: l_category = 'Treasury Confirmation') THEN
2395: l_stage := 4;
2396: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2397: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2398: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 3: '|| L_REFERENCE_3);
2399: END IF;
2400: IF (l_reference_3 IS NOT NULL)
2401: THEN
2402: BEGIN
2412: AND apc.check_id = to_number(l_reference_3)
2413: AND fvv.vendor_id = v.vendor_id;
2414: EXCEPTION
2415: WHEN NO_DATA_FOUND THEN
2416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message_22',' NO DATA FOUND !!');
2418: END IF;
2419: WHEN INVALID_NUMBER THEN
2420: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_3');
2413: AND fvv.vendor_id = v.vendor_id;
2414: EXCEPTION
2415: WHEN NO_DATA_FOUND THEN
2416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message_22',' NO DATA FOUND !!');
2418: END IF;
2419: WHEN INVALID_NUMBER THEN
2420: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_3');
2421: END;
2416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message_22',' NO DATA FOUND !!');
2418: END IF;
2419: WHEN INVALID_NUMBER THEN
2420: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_3');
2421: END;
2422: ELSE
2423: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_3 I.E. CHECK_ID IS NULL');
2419: WHEN INVALID_NUMBER THEN
2420: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_3');
2421: END;
2422: ELSE
2423: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_3 I.E. CHECK_ID IS NULL');
2425: END IF;
2426: END IF;
2427: -------------------------------------------------------------
2420: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_3');
2421: END;
2422: ELSE
2423: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_3 I.E. CHECK_ID IS NULL');
2425: END IF;
2426: END IF;
2427: -------------------------------------------------------------
2428: -- Budgetary Transaction
2433: SELECT dept_id||main_account
2434: FROM fv_be_trx_dtls
2435: WHERE transaction_id = to_number(l_reference_1);
2436: BEGIN
2437: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2438: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BUDGETARY TRANSACTION');
2439: END IF;
2440: l_feeder_flag := 'Y';
2441: OPEN dept_cur ;
2434: FROM fv_be_trx_dtls
2435: WHERE transaction_id = to_number(l_reference_1);
2436: BEGIN
2437: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2438: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BUDGETARY TRANSACTION');
2439: END IF;
2440: l_feeder_flag := 'Y';
2441: OPEN dept_cur ;
2442: FETCH dept_cur INTO l_eliminations_id ;
2445: l_vendor_id := l_eliminations_id;
2446: l_vendor_tYpe := 'FEDERAL';
2447: END IF;
2448: ELSE
2449: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN '||
2451: 'source = '||l_source);
2452: END IF;
2453: END IF ;
2446: l_vendor_tYpe := 'FEDERAL';
2447: END IF;
2448: ELSE
2449: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN '||
2451: 'source = '||l_source);
2452: END IF;
2453: END IF ;
2454: CLOSE dept_cur ;
2500: END IF;
2501: END IF;
2502: END IF;
2503:
2504: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FEEDER FLAG : '||L_FEEDER_FLAG);
2506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
2507: END IF;
2508: IF (l_vendor_id IS NULL)
2501: END IF;
2502: END IF;
2503:
2504: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FEEDER FLAG : '||L_FEEDER_FLAG);
2506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
2507: END IF;
2508: IF (l_vendor_id IS NULL)
2509: THEN
2502: END IF;
2503:
2504: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FEEDER FLAG : '||L_FEEDER_FLAG);
2506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
2507: END IF;
2508: IF (l_vendor_id IS NULL)
2509: THEN
2510: IF ((g_govt_non_govt_ind = 'F' AND l_feeder_flag = 'Y')
2532: g_govt_non_govt_val := 'F';
2533: END IF;
2534: END IF; -- Govt Non Govt = F or Y
2535: ELSE -- l_vendor_id IS NOT NULL
2536: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2537: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID IS NOT NULL');
2538: END IF;
2539: IF (l_feeder_flag = 'Y')
2540: THEN
2533: END IF;
2534: END IF; -- Govt Non Govt = F or Y
2535: ELSE -- l_vendor_id IS NOT NULL
2536: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2537: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID IS NOT NULL');
2538: END IF;
2539: IF (l_feeder_flag = 'Y')
2540: THEN
2541: IF (g_govt_non_govt_val = 'F' AND UPPER(l_vendor_type) <> 'FEDERAL')
2721: --g_transfer_main_acct := '0000';
2722: WHEN INVALID_NUMBER THEN
2723: g_transfer_dept_id := ' ';
2724: g_transfer_main_acct := ' ';
2725: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_1');
2726: END;
2727: ELSE
2728: -- l_reference_1 is null
2729: -- If an attribute column is not set up for transfer
2771: g_error_buf := sqlerrm ||
2772: ' [ JOURNAL_PROCESS '||
2773: ' l_disbursements_flag - ' ||
2774: l_sgl_acct_num||' ] ' ;
2775: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1',g_error_buf);
2776: RETURN ;
2777: END;
2778:
2779: BEGIN
2790: g_error_code := sqlcode ;
2791: g_error_buf := sqlerrm ||
2792: ' [JOURNAL_PROCESS '||
2793: '- v_time_frame ] ' ;
2794: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_2',g_error_buf);
2795: RETURN ;
2796: END;
2797:
2798: IF l_time_frame = 'NO_YEAR'
2810: g_error_code := sqlcode ;
2811: g_error_buf := sqlerrm ||
2812: ' [JOURNAL_PROCESS '||
2813: ' l_fyr_segment_value - ] ' ;
2814: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_3',g_error_buf);
2815: END;
2816:
2817: IF l_fyr_segment_value IS NOT NULL THEN
2818: IF l_fyr_segment_value = l_seg_fiscal_yr THEN
2824: END IF;
2825:
2826: END IF;
2827:
2828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
2830: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: L_VENDOR_ID');
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2825:
2826: END IF;
2827:
2828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
2830: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: L_VENDOR_ID');
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2826: END IF;
2827:
2828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
2830: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: L_VENDOR_ID');
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
2827:
2828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
2830: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: L_VENDOR_ID');
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
2835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
2828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
2830: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: L_VENDOR_ID');
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
2835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
2836: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
2829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
2830: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: L_VENDOR_ID');
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
2835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
2836: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
2837: END IF;
2830: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: L_VENDOR_ID');
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
2835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
2836: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
2837: END IF;
2838:
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
2835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
2836: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
2837: END IF;
2838:
2839: IF g_src_flag = 1 THEN
2832: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
2833: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
2835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
2836: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
2837: END IF;
2838:
2839: IF g_src_flag = 1 THEN
2840: l_source := 'Purchasing';
2897: return;
2898: END IF;
2899: END LOOP;
2900: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
2901: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2902: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL PROCESSES ...');
2903: END IF;
2904: EXCEPTION
2905: WHEN OTHERS THEN
2898: END IF;
2899: END LOOP;
2900: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
2901: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2902: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL PROCESSES ...');
2903: END IF;
2904: EXCEPTION
2905: WHEN OTHERS THEN
2906: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
2906: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
2907: g_error_code := 2 ;
2908: g_error_buf := 'JOURNAL PROCESSES - Exception Main (Others) - ' ||
2909: to_char(sqlcode) || ' - ' || SQLERRM;
2910: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
2911: END JOURNAL_PROCESS;
2912:
2913: -- -------------------------------------------------------------------
2914: -- PROCEDURE GET_DOC_INFO
3163:
3164: l_module_name := g_module_name || 'GET_DOC_INFO';
3165: l_rev_exists := 'N';
3166: p_reversed := NULL;
3167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3169: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3164: l_module_name := g_module_name || 'GET_DOC_INFO';
3165: l_rev_exists := 'N';
3166: p_reversed := NULL;
3167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3169: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3165: l_rev_exists := 'N';
3166: p_reversed := NULL;
3167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3169: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3173: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3166: p_reversed := NULL;
3167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3169: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3173: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3169: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3173: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3169: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3173: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3176: END IF;
3169: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3173: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3176: END IF;
3177: -- Set the values to Null
3170: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3173: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3176: END IF;
3177: -- Set the values to Null
3178: l_document_num := NULL;
3171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3173: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3176: END IF;
3177: -- Set the values to Null
3178: l_document_num := NULL;
3179: l_doc_date := NULL;
3193:
3194: -- Code for Purchasing
3195: IF p_je_source_name = 'Purchasing'
3196: THEN
3197: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3198: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASING ...');
3199: END IF;
3200:
3201: IF p_je_category_name = 'Requisitions'
3194: -- Code for Purchasing
3195: IF p_je_source_name = 'Purchasing'
3196: THEN
3197: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3198: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASING ...');
3199: END IF;
3200:
3201: IF p_je_category_name = 'Requisitions'
3202: THEN
3199: END IF;
3200:
3201: IF p_je_category_name = 'Requisitions'
3202: THEN
3203: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3204: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REQUISITIONS ...');
3205: END IF;
3206: l_document_num := p_reference4;
3207: -- If an attribute col has been defined in
3200:
3201: IF p_je_category_name = 'Requisitions'
3202: THEN
3203: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3204: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REQUISITIONS ...');
3205: END IF;
3206: l_document_num := p_reference4;
3207: -- If an attribute col has been defined in
3208: -- system parameters form, then select that
3257: END IF;
3258:
3259: ELSIF p_je_category_name = 'Purchases'
3260: THEN
3261: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASES ...');
3263: END IF;
3264: l_document_num := p_reference4;
3265:
3258:
3259: ELSIF p_je_category_name = 'Purchases'
3260: THEN
3261: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASES ...');
3263: END IF;
3264: l_document_num := p_reference4;
3265:
3266: IF g_pur_order_date_seg IS NOT NULL
3327: END IF;
3328:
3329: ELSIF p_je_category_name = 'Receiving'
3330: THEN
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,' RECEIVING ...');
3333: END IF;
3334: IF g_rec_trxn_date_seg IS NOT NULL
3335: THEN
3328:
3329: ELSIF p_je_category_name = 'Receiving'
3330: THEN
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,' RECEIVING ...');
3333: END IF;
3334: IF g_rec_trxn_date_seg IS NOT NULL
3335: THEN
3336: l_select :=
3342: rcv_shipment_headers rcv
3343: WHERE rt.shipment_header_id = rcv.shipment_header_Id
3344: AND rt.transaction_id = '||to_number(p_reference5) ;
3345:
3346: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3347: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_SELECT);
3348: END IF;
3349:
3350: OPEN pur_rec FOR l_select ;
3343: WHERE rt.shipment_header_id = rcv.shipment_header_Id
3344: AND rt.transaction_id = '||to_number(p_reference5) ;
3345:
3346: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3347: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_SELECT);
3348: END IF;
3349:
3350: OPEN pur_rec FOR l_select ;
3351: FETCH pur_rec INTO l_temp_doc_date,
3396: CLOSE pur_rec;
3397: END IF;
3398:
3399: ELSE
3400: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3401: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3402: END IF;
3403: l_document_num := p_name;
3404: l_doc_date := p_date;
3397: END IF;
3398:
3399: ELSE
3400: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3401: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3402: END IF;
3403: l_document_num := p_name;
3404: l_doc_date := p_date;
3405: l_doc_creation_date := p_creation_date;
3407: END IF;
3408: -- Code for Payables
3409: ELSIF p_je_source_name = 'Payables'
3410: THEN
3411: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYABLES ...');
3413: END IF;
3414: IF p_je_category_name = 'Purchase Invoices'
3415: THEN
3408: -- Code for Payables
3409: ELSIF p_je_source_name = 'Payables'
3410: THEN
3411: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYABLES ...');
3413: END IF;
3414: IF p_je_category_name = 'Purchase Invoices'
3415: THEN
3416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYABLES ...');
3413: END IF;
3414: IF p_je_category_name = 'Purchase Invoices'
3415: THEN
3416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASE INVOICES ...');
3418: END IF;
3419: OPEN Pay_Pur;
3420: FETCH Pay_Pur INTO l_document_num,
3413: END IF;
3414: IF p_je_category_name = 'Purchase Invoices'
3415: THEN
3416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASE INVOICES ...');
3418: END IF;
3419: OPEN Pay_Pur;
3420: FETCH Pay_Pur INTO l_document_num,
3421: l_doc_date,
3471: FETCH Pay_Pay_Check INTO l_void_date, l_check_date;
3472: CLOSE Pay_Pay_Check;
3473: IF (l_void_date IS NULL)
3474: THEN
3475: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS ...');
3477: END IF;
3478: OPEN Pay_Pay;
3479: FETCH Pay_Pay INTO l_document_num, l_doc_date,
3472: CLOSE Pay_Pay_Check;
3473: IF (l_void_date IS NULL)
3474: THEN
3475: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS ...');
3477: END IF;
3478: OPEN Pay_Pay;
3479: FETCH Pay_Pay INTO l_document_num, l_doc_date,
3480: l_doc_creation_date,
3480: l_doc_creation_date,
3481: l_doc_created_by;
3482: CLOSE Pay_Pay;
3483: ELSE
3484: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID HANDLING ...');
3486: END IF;
3487: OPEN Pay_Pay_Void;
3488: FETCH Pay_Pay_Void INTO l_inv_payment_id;
3481: l_doc_created_by;
3482: CLOSE Pay_Pay;
3483: ELSE
3484: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID HANDLING ...');
3486: END IF;
3487: OPEN Pay_Pay_Void;
3488: FETCH Pay_Pay_Void INTO l_inv_payment_id;
3489: CLOSE Pay_Pay_Void;
3488: FETCH Pay_Pay_Void INTO l_inv_payment_id;
3489: CLOSE Pay_Pay_Void;
3490: IF (l_inv_payment_id <> 0)
3491: THEN
3492: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS NON-VOID ...');
3494: END IF;
3495: OPEN Pay_Pay_Non_Void;
3496: FETCH Pay_Pay_Non_Void INTO l_document_num,
3489: CLOSE Pay_Pay_Void;
3490: IF (l_inv_payment_id <> 0)
3491: THEN
3492: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS NON-VOID ...');
3494: END IF;
3495: OPEN Pay_Pay_Non_Void;
3496: FETCH Pay_Pay_Non_Void INTO l_document_num,
3497: l_doc_creation_date,
3499: CLOSE Pay_Pay_Non_Void;
3500: l_doc_date := l_check_date;
3501: ELSIF (l_inv_payment_id = 0)
3502: THEN
3503: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID ...');
3505: END IF;
3506: OPEN Pay_Pay_Void_Values;
3507: FETCH Pay_Pay_Void_Values INTO l_document_num,
3500: l_doc_date := l_check_date;
3501: ELSIF (l_inv_payment_id = 0)
3502: THEN
3503: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID ...');
3505: END IF;
3506: OPEN Pay_Pay_Void_Values;
3507: FETCH Pay_Pay_Void_Values INTO l_document_num,
3508: l_doc_creation_date,
3535: END IF;
3536:
3537: ELSIF p_je_category_name = 'Treasury Confirmation'
3538: AND upper(p_name) not like '%VOID%' THEN
3539: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3540: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION ...');
3541: END IF;
3542: OPEN Pay_Treas;
3543: FETCH Pay_Treas INTO l_document_num,
3536:
3537: ELSIF p_je_category_name = 'Treasury Confirmation'
3538: AND upper(p_name) not like '%VOID%' THEN
3539: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3540: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION ...');
3541: END IF;
3542: OPEN Pay_Treas;
3543: FETCH Pay_Treas INTO l_document_num,
3544: l_doc_date,
3546: l_doc_created_by;
3547: CLOSE Pay_Treas;
3548: ELSIF p_je_category_name = 'Treasury Confirmation'
3549: AND upper(p_name) like '%VOID%' THEN
3550: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3551: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION VOID ...');
3552: END IF;
3553: OPEN Pay_Treas_Check;
3554: FETCH Pay_Treas_Check INTO l_doc_date, l_document_num;
3547: CLOSE Pay_Treas;
3548: ELSIF p_je_category_name = 'Treasury Confirmation'
3549: AND upper(p_name) like '%VOID%' THEN
3550: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3551: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION VOID ...');
3552: END IF;
3553: OPEN Pay_Treas_Check;
3554: FETCH Pay_Treas_Check INTO l_doc_date, l_document_num;
3555: CLOSE Pay_Treas_Check;
3557: FETCH Pay_Treas_Void INTO l_doc_creation_date,
3558: l_doc_created_by;
3559: CLOSE Pay_Treas_Void;
3560: ELSE
3561: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3562: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3563: END IF;
3564: l_document_num := p_name;
3565: l_doc_date := p_date;
3558: l_doc_created_by;
3559: CLOSE Pay_Treas_Void;
3560: ELSE
3561: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3562: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3563: END IF;
3564: l_document_num := p_name;
3565: l_doc_date := p_date;
3566: l_doc_creation_date := p_creation_date;
3568: END IF;
3569: -- Code for Receivables
3570: ELSIF p_je_source_name = 'Receivables'
3571: THEN
3572: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' RECEIVABLES ...');
3574: END IF;
3575: l_refer2 := p_reference2;
3576: l_document_num := p_reference4;
3569: -- Code for Receivables
3570: ELSIF p_je_source_name = 'Receivables'
3571: THEN
3572: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' RECEIVABLES ...');
3574: END IF;
3575: l_refer2 := p_reference2;
3576: l_document_num := p_reference4;
3577: IF (p_reference2 is null)
3575: l_refer2 := p_reference2;
3576: l_document_num := p_reference4;
3577: IF (p_reference2 is null)
3578: THEN
3579: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3580: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2 IS NULL ...');
3581: END IF;
3582: l_document_num := l_refer4;
3583: ELSE
3576: l_document_num := p_reference4;
3577: IF (p_reference2 is null)
3578: THEN
3579: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3580: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2 IS NULL ...');
3581: END IF;
3582: l_document_num := l_refer4;
3583: ELSE
3584: IF (p_je_category_name = 'Adjustment')
3582: l_document_num := l_refer4;
3583: ELSE
3584: IF (p_je_category_name = 'Adjustment')
3585: THEN
3586: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3587: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADJUSTMENT ...');
3588: END IF;
3589: OPEN Receivables_Adjustment;
3590: FETCH Receivables_Adjustment INTO l_doc_date,
3583: ELSE
3584: IF (p_je_category_name = 'Adjustment')
3585: THEN
3586: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3587: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADJUSTMENT ...');
3588: END IF;
3589: OPEN Receivables_Adjustment;
3590: FETCH Receivables_Adjustment INTO l_doc_date,
3591: l_doc_creation_date,
3592: l_doc_created_by;
3593: CLOSE Receivables_Adjustment;
3594: ELSIF (p_je_category_name = 'Credit Memo Applications')
3595: THEN
3596: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3597: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMO APPLICATIONS ...');
3598: END IF;
3599: OPEN Receivables_CMA;
3600: FETCH Receivables_CMA INTO l_doc_date,
3593: CLOSE Receivables_Adjustment;
3594: ELSIF (p_je_category_name = 'Credit Memo Applications')
3595: THEN
3596: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3597: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMO APPLICATIONS ...');
3598: END IF;
3599: OPEN Receivables_CMA;
3600: FETCH Receivables_CMA INTO l_doc_date,
3601: l_doc_creation_date,
3603: CLOSE Receivables_CMA;
3604: ELSIF (p_je_category_name IN ('Credit Memos',
3605: 'Debit Memos', 'Sales Invoices'))
3606: THEN
3607: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3608: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMOS/'||
3609: 'Debit Memos/ Sales Invoices ...');
3610: END IF;
3611: OPEN Receivables_Memos_Inv;
3604: ELSIF (p_je_category_name IN ('Credit Memos',
3605: 'Debit Memos', 'Sales Invoices'))
3606: THEN
3607: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3608: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMOS/'||
3609: 'Debit Memos/ Sales Invoices ...');
3610: END IF;
3611: OPEN Receivables_Memos_Inv;
3612: FETCH Receivables_Memos_Inv INTO l_doc_date,
3613: l_doc_creation_date,
3614: l_doc_created_by;
3615: CLOSE Receivables_Memos_Inv;
3616: ELSE
3617: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3618: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRADE RECEIPTS/ MISC RECEIPTS/ '||
3619: 'Reversals/ Others ...');
3620: END IF;
3621: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3614: l_doc_created_by;
3615: CLOSE Receivables_Memos_Inv;
3616: ELSE
3617: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3618: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRADE RECEIPTS/ MISC RECEIPTS/ '||
3619: 'Reversals/ Others ...');
3620: END IF;
3621: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3622: LENGTH(p_ref2));
3622: LENGTH(p_ref2));
3623:
3624: IF (p_je_category_name = 'Misc Receipts')
3625: THEN
3626: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3627: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING A MISC RECEIPT');
3628: END IF;
3629: l_refer2 := p_ref2;
3630: l_cash_receipt_hist_id := p_reference5;
3623:
3624: IF (p_je_category_name = 'Misc Receipts')
3625: THEN
3626: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3627: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING A MISC RECEIPT');
3628: END IF;
3629: l_refer2 := p_ref2;
3630: l_cash_receipt_hist_id := p_reference5;
3631: ELSE
3628: END IF;
3629: l_refer2 := p_ref2;
3630: l_cash_receipt_hist_id := p_reference5;
3631: ELSE
3632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3633: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING A TRADE RECEIPT '||
3634: 'or Other');
3635: END IF;
3636: l_refer2 := p_reference2;
3629: l_refer2 := p_ref2;
3630: l_cash_receipt_hist_id := p_reference5;
3631: ELSE
3632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3633: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING A TRADE RECEIPT '||
3634: 'or Other');
3635: END IF;
3636: l_refer2 := p_reference2;
3637: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3636: l_refer2 := p_reference2;
3637: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3638: LENGTH(p_ref2));
3639: END IF;
3640: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3641: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT ID = '||L_REFER2);
3642: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID = ' ||
3643: l_cash_receipt_hist_id);
3644: END IF;
3637: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3638: LENGTH(p_ref2));
3639: END IF;
3640: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3641: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT ID = '||L_REFER2);
3642: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID = ' ||
3643: l_cash_receipt_hist_id);
3644: END IF;
3645: l_receipt_hist_status := NULL;
3638: LENGTH(p_ref2));
3639: END IF;
3640: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3641: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT ID = '||L_REFER2);
3642: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID = ' ||
3643: l_cash_receipt_hist_id);
3644: END IF;
3645: l_receipt_hist_status := NULL;
3646: OPEN Receivables_Hist (TO_NUMBER(l_cash_receipt_hist_id),
3670: CLOSE Receivables_History;
3671:
3672: IF (l_rev_exists = 'Y')
3673: THEN
3674: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3675: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'||
3676: ' Ar_Cash_Receipt_History_All ... REVERSAL');
3677: END IF;
3678: END IF;
3671:
3672: IF (l_rev_exists = 'Y')
3673: THEN
3674: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3675: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'||
3676: ' Ar_Cash_Receipt_History_All ... REVERSAL');
3677: END IF;
3678: END IF;
3679: END IF;
3686: CLOSE Receivables_Applications;
3687: IF (l_temp_cr_hist_id IS NOT NULL)
3688: THEN
3689: l_cash_receipt_hist_id := l_temp_cr_hist_id;
3690: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3691: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3692: ||' Ar_Receivable_Applications_All: '
3693: ||l_cash_receipt_hist_id);
3694: END IF;
3687: IF (l_temp_cr_hist_id IS NOT NULL)
3688: THEN
3689: l_cash_receipt_hist_id := l_temp_cr_hist_id;
3690: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3691: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3692: ||' Ar_Receivable_Applications_All: '
3693: ||l_cash_receipt_hist_id);
3694: END IF;
3695: -- Use cash_receipt_history_id obtained above to find
3698: FETCH Receivables_Exists INTO l_rev_exists;
3699: CLOSE Receivables_Exists;
3700: IF (l_rev_exists = 'Y')
3701: THEN
3702: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3703: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3704: ||' Ar_Cash_Receipt_History_All: '
3705: ||l_cash_receipt_hist_id);
3706: END IF;
3699: CLOSE Receivables_Exists;
3700: IF (l_rev_exists = 'Y')
3701: THEN
3702: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3703: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3704: ||' Ar_Cash_Receipt_History_All: '
3705: ||l_cash_receipt_hist_id);
3706: END IF;
3707: l_rev_exists := 'N';
3722: l_doc_created_by_d;
3723: CLOSE Receivables_History;
3724: IF (l_rev_exists = 'Y')
3725: THEN
3726: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3727: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REVERSAL CASH RECEIPT '||
3728: 'Hist Id'||
3729: ' exists ... REVERSAL');
3730: END IF;
3723: CLOSE Receivables_History;
3724: IF (l_rev_exists = 'Y')
3725: THEN
3726: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3727: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REVERSAL CASH RECEIPT '||
3728: 'Hist Id'||
3729: ' exists ... REVERSAL');
3730: END IF;
3731: END IF;
3755: END IF;
3756:
3757: IF (l_rev_exists = 'Y')
3758: THEN
3759: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3760: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN '
3761: ||'Ar_Misc_Cash_Distributions_All: '
3762: ||l_cash_receipt_hist_id);
3763: END IF;
3756:
3757: IF (l_rev_exists = 'Y')
3758: THEN
3759: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3760: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN '
3761: ||'Ar_Misc_Cash_Distributions_All: '
3762: ||l_cash_receipt_hist_id);
3763: END IF;
3764: l_rev_exists := 'N';
3794:
3795: IF (l_rev_exists = 'Y')
3796: THEN
3797: p_reversed := 'R';
3798: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3799: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MISC CASH DISC ID HAS'||
3800: ' Reverse value in created ' ||
3801: 'from ... REVERSAL');
3802: END IF;
3795: IF (l_rev_exists = 'Y')
3796: THEN
3797: p_reversed := 'R';
3798: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3799: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MISC CASH DISC ID HAS'||
3800: ' Reverse value in created ' ||
3801: 'from ... REVERSAL');
3802: END IF;
3803: END IF;
3830:
3831: -- Code for Budgetary Transaction
3832: ELSIF p_je_source_name = 'Budgetary Transaction'
3833: THEN
3834: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGETARY TRANSACTION ...');
3836: END IF;
3837: fnd_file.put_line (fnd_file.log, 'Budget p_reference_1 = '||p_reference1);
3838: OPEN Budget_Transac;
3831: -- Code for Budgetary Transaction
3832: ELSIF p_je_source_name = 'Budgetary Transaction'
3833: THEN
3834: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGETARY TRANSACTION ...');
3836: END IF;
3837: fnd_file.put_line (fnd_file.log, 'Budget p_reference_1 = '||p_reference1);
3838: OPEN Budget_Transac;
3839: FETCH Budget_Transac INTO l_document_num,
3845: p_gl_date := l_doc_date;
3846: -- Code for Manual
3847: ELSIF p_je_source_name = 'Manual'
3848: THEN
3849: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3850: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MANUAL ...');
3851: END IF;
3852: OPEN Manual;
3853: FETCH Manual INTO l_doc_date;
3846: -- Code for Manual
3847: ELSIF p_je_source_name = 'Manual'
3848: THEN
3849: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3850: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MANUAL ...');
3851: END IF;
3852: OPEN Manual;
3853: FETCH Manual INTO l_doc_date;
3854: CLOSE Manual;
3863: l_doc_creation_date := p_creation_date;
3864: l_doc_created_by := p_created_by;
3865: -- Code for Misc
3866: ELSE
3867: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3868: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3869: END IF;
3870: --Bug#3225337
3871: --IF (p_reference4 IS NOT NULL)
3864: l_doc_created_by := p_created_by;
3865: -- Code for Misc
3866: ELSE
3867: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3868: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3869: END IF;
3870: --Bug#3225337
3871: --IF (p_reference4 IS NOT NULL)
3872: IF (NVL(p_reference4, '-100') <> '-100')
3900: p_doc_num := l_document_num;
3901: p_doc_date := l_doc_date;
3902: p_doc_creation_date := l_doc_creation_date;
3903: p_doc_created_by := l_doc_created_by;
3904: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3905: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
3906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
3907: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
3908: l_doc_creation_date);
3901: p_doc_date := l_doc_date;
3902: p_doc_creation_date := l_doc_creation_date;
3903: p_doc_created_by := l_doc_created_by;
3904: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3905: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
3906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
3907: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
3908: l_doc_creation_date);
3909: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
3902: p_doc_creation_date := l_doc_creation_date;
3903: p_doc_created_by := l_doc_created_by;
3904: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3905: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
3906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
3907: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
3908: l_doc_creation_date);
3909: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
3910: END IF;
3903: p_doc_created_by := l_doc_created_by;
3904: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3905: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
3906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
3907: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
3908: l_doc_creation_date);
3909: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
3910: END IF;
3911:
3905: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
3906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
3907: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
3908: l_doc_creation_date);
3909: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
3910: END IF;
3911:
3912: fnd_file.put_line (fnd_file.log, '<<<<<
3913: fnd_file.put_line (fnd_file.log, 'p_doc_num='||p_doc_num);
3924: WHEN OTHERS THEN
3925: g_error_code := SQLCODE;
3926: g_error_buf := SQLERRM ||
3927: ' Error in Get_Doc_Info Procedure.' ;
3928: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
3929: RETURN;
3930: END GET_DOC_INFO;
3931: -- -------------------------------------------------------------------
3932: -- PROCEDURE GET_DOC_USER
3942: IS
3943: l_module_name VARCHAR2(200);
3944: BEGIN
3945: l_module_name := g_module_name || 'GET_DOC_USER';
3946: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3947: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3948: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC USER ...');
3949: END IF;
3950: BEGIN
3943: l_module_name VARCHAR2(200);
3944: BEGIN
3945: l_module_name := g_module_name || 'GET_DOC_USER';
3946: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3947: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3948: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC USER ...');
3949: END IF;
3950: BEGIN
3951: SELECT user_name
3944: BEGIN
3945: l_module_name := g_module_name || 'GET_DOC_USER';
3946: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3947: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3948: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC USER ...');
3949: END IF;
3950: BEGIN
3951: SELECT user_name
3952: INTO p_entry_user
3956: WHEN NO_DATA_FOUND
3957: THEN
3958: p_entry_user := NULL;
3959: END;
3960: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3961: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||P_ENTRY_USER);
3962: END IF;
3963: -- Setting up the retcode
3964: g_error_code := 0;
3957: THEN
3958: p_entry_user := NULL;
3959: END;
3960: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3961: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||P_ENTRY_USER);
3962: END IF;
3963: -- Setting up the retcode
3964: g_error_code := 0;
3965: EXCEPTION
3966: WHEN OTHERS THEN
3967: g_error_code := SQLCODE ;
3968: g_error_buf := SQLERRM ||
3969: ' -- Error in Get_Doc_User procedure.' ;
3970: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
3971: RETURN;
3972: END GET_DOC_USER;
3973: -- -------------------------------------------------------------------
3974: -- PROCEDURE RESET_ATTRIBUTES
4023: EXCEPTION
4024: WHEN OTHERS THEN
4025: g_error_code := SQLCODE ;
4026: g_error_buf := SQLERRM;
4027: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4028: RAISE;
4029:
4030: END reset_facts_attributes ;
4031: -- -------------------------------------------------------------------
4060: p_reporting_type := NULL;
4061: WHEN OTHERS THEN
4062: g_error_code := sqlcode ;
4063: g_error_buf := sqlerrm ;
4064: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4065: RETURN ;
4066: END get_ussgl_info ;
4067: -- --------------------------------------------------------------------
4068: -- PROCEDURE GET_FUND_GROUP_INFO
4085: l_exec_ret INTEGER;
4086: l_row_exists VARCHAR2(1) := NULL;
4087: BEGIN
4088: l_module_name := g_module_name || 'get_fund_group_info';
4089: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4090: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4091: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET FUND GROUP INFO ...');
4092: END IF;
4093: g_error_code := 0;
4086: l_row_exists VARCHAR2(1) := NULL;
4087: BEGIN
4088: l_module_name := g_module_name || 'get_fund_group_info';
4089: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4090: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4091: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET FUND GROUP INFO ...');
4092: END IF;
4093: g_error_code := 0;
4094: g_error_buf := NULL;
4087: BEGIN
4088: l_module_name := g_module_name || 'get_fund_group_info';
4089: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4090: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4091: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET FUND GROUP INFO ...');
4092: END IF;
4093: g_error_code := 0;
4094: g_error_buf := NULL;
4095:
4114: NULL;
4115: WHEN OTHERS THEN
4116: g_error_code := sqlcode;
4117: g_error_buf := sqlerrm;
4118: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1',g_error_buf);
4119: END;
4120:
4121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4117: g_error_buf := sqlerrm;
4118: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1',g_error_buf);
4119: END;
4120:
4121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4125: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4118: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1',g_error_buf);
4119: END;
4120:
4121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4125: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4119: END;
4120:
4121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4125: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4127: END IF;
4120:
4121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4125: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4127: END IF;
4128: IF (l_row_exists IS NULL)
4121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4125: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4127: END IF;
4128: IF (l_row_exists IS NULL)
4129: THEN
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4125: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4127: END IF;
4128: IF (l_row_exists IS NULL)
4129: THEN
4130: p_fund_group := NULL;
4146: NULL;
4147: WHEN OTHERS THEN
4148: g_error_code := sqlcode;
4149: g_error_buf := sqlerrm;
4150: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_2',g_error_buf);
4151: END;
4152: EXCEPTION
4153: WHEN OTHERS THEN
4154: g_error_code := sqlcode;
4152: EXCEPTION
4153: WHEN OTHERS THEN
4154: g_error_code := sqlcode;
4155: g_error_buf := sqlerrm;
4156: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_3',g_error_buf);
4157: END;
4158: ELSIF p_bureau_id IS NULL THEN
4159: p_bureau_id := '00';
4160: END IF ;
4157: END;
4158: ELSIF p_bureau_id IS NULL THEN
4159: p_bureau_id := '00';
4160: END IF ;
4161: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4162: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING GET FUND GROUP INFO ...');
4163: END IF;
4164: EXCEPTION
4165: WHEN NO_DATA_FOUND THEN
4158: ELSIF p_bureau_id IS NULL THEN
4159: p_bureau_id := '00';
4160: END IF ;
4161: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4162: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING GET FUND GROUP INFO ...');
4163: END IF;
4164: EXCEPTION
4165: WHEN NO_DATA_FOUND THEN
4166: g_error_buf := 'Get Fund Group Info: NO DATA FOUND for ccid : ' || p_ccid;
4168: DBMS_SQL.CLOSE_CURSOR(l_fund_cursor);
4169: g_error_code := 2 ;
4170: g_error_buf := 'GET FUND GROUP INFO - Exception (Others) - ' ||
4171: to_char(sqlcode) || ' - ' || sqlerrm ;
4172: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4173: END get_fund_group_info ;
4174: -- --------------------------------------------------------------------
4175: -- PROCEDURE POPULATE_TABLE
4176: -- --------------------------------------------------------------------
4230: p_sla_entity_id NUMBER ) IS
4231: l_module_name VARCHAR2(200);
4232: BEGIN
4233: l_module_name := g_module_name || 'populate_table';
4234: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4231: l_module_name VARCHAR2(200);
4232: BEGIN
4233: l_module_name := g_module_name || 'populate_table';
4234: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4232: BEGIN
4233: l_module_name := g_module_name || 'populate_table';
4234: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4233: l_module_name := g_module_name || 'populate_table';
4234: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4234: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4236: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4238: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4241: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4244: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6)||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4249: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4261: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER||'''');
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4275:
4268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4275:
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4269: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY||'''');
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4275:
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE||'''');
4271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG||'''');
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4275:
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4272: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG||'''');
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4275:
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG||'''');
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4275:
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG||'''');
4275:
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4282: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4275:
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4282: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4276: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25)||'''');
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4282: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4284: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4277: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4282: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4284: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4285:
4278: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4282: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4284: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4285:
4286: END IF;
4279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4282: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4284: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4285:
4286: END IF;
4287:
4280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4282: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4284: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4285:
4286: END IF;
4287:
4288: INSERT INTO fv_facts_trx_temp
4387: p_sla_hdr_event_id,
4388: p_sla_hdr_creation_date,
4389: p_sla_entity_id );
4390:
4391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATED FV_FACTS_TRX_TEMP TABLE ...');
4393: END IF;
4394: EXCEPTION
4395: WHEN OTHERS THEN
4388: p_sla_hdr_creation_date,
4389: p_sla_entity_id );
4390:
4391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATED FV_FACTS_TRX_TEMP TABLE ...');
4393: END IF;
4394: EXCEPTION
4395: WHEN OTHERS THEN
4396: g_error_code := SQLCODE ;
4394: EXCEPTION
4395: WHEN OTHERS THEN
4396: g_error_code := SQLCODE ;
4397: g_error_buf := 'POPULATE TABLE procedure, Error Occured -- ' || SQLERRM;
4398: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4399: END populate_table;
4400:
4401:
4402: -- -------------------------------------------------------------------
4466: AND set_of_books_id = g_set_of_books_id;
4467: g_attributes_found :='Y';
4468: EXCEPTION
4469: WHEN NO_DATA_FOUND THEN
4470: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'NO ATTRIBUTES DEFINIED FOR THE ACCOUNT - ' ||
4471: acct_num );
4472: g_attributes_found := 'N';
4473: RETURN;
4474: WHEN OTHERS THEN
4473: RETURN;
4474: WHEN OTHERS THEN
4475: g_error_code := sqlcode ;
4476: g_error_buf := sqlerrm ;
4477: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_3',g_error_buf);
4478: RETURN;
4479: END ;
4480:
4481:
4504: RETURN;
4505: WHEN OTHERS THEN
4506: g_error_code := sqlcode ;
4507: g_error_buf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;
4508: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_4',g_error_buf);
4509: RETURN;
4510: END ;
4511: ------------------------------------------------
4512: -- Deriving Indefinite Definite Flag
4711: EXCEPTION
4712: When Others Then
4713: g_error_code := sqlcode ;
4714: g_error_buf := sqlerrm || ' [LOAD_FACTS_ATTRIBUTES]' ;
4715: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4716: return;
4717:
4718: END load_facts_attributes ;
4719: -- -------------------------------------------------------------------
4736: WHEN OTHERS THEN
4737: g_error_code := sqlcode ;
4738: g_error_buf := sqlerrm ||
4739: 'PURGE DATA';
4740: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4741: RETURN ;
4742: END purge_facts_transactions ;
4743: -- -------------------------------------------------------------------
4744: -- PROCEDURE GET_SGL_PARENT
4793: FROM fv_facts_attributes
4794: WHERE facts_acct_number = sgl_acct_num
4795: AND set_of_books_id = g_set_of_books_id;
4796: -- Return the account Number
4797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4798: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SGL PARENT ACCOUNT:'||
4799: sgl_acct_num||'-'||
4800: acct_num) ;
4801: END IF;
4794: WHERE facts_acct_number = sgl_acct_num
4795: AND set_of_books_id = g_set_of_books_id;
4796: -- Return the account Number
4797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4798: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SGL PARENT ACCOUNT:'||
4799: sgl_acct_num||'-'||
4800: acct_num) ;
4801: END IF;
4802: RETURN ;
4811: RETURN ;
4812: WHEN OTHERS THEN
4813: g_error_code := SQLCODE ;
4814: g_error_buf := SQLERRM;
4815: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4816: RETURN;
4817: END;
4818: End get_sgl_parent ;
4819: -- -------------------------------------------------------------------
4850: EXCEPTION
4851: WHEN NO_DATA_FOUND THEN
4852: g_error_code := -1 ;
4853: g_error_buf := 'No Financing Account found for the passed Treasury Symbol [GET_COHORT_INFO] ' ;
4854: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1',g_error_buf);
4855: RETURN;
4856: WHEN TOO_MANY_ROWS THEN
4857: g_error_code := -1 ;
4858: g_error_buf := 'More than one Financing Account returned for the passed Treasury Symbol [GET_COHORT_INFO]' ;
4855: RETURN;
4856: WHEN TOO_MANY_ROWS THEN
4857: g_error_code := -1 ;
4858: g_error_buf := 'More than one Financing Account returned for the passed Treasury Symbol [GET_COHORT_INFO]' ;
4859: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception2',g_error_buf);
4860: RETURN;
4861: WHEN OTHERS THEN
4862: g_error_code := SQLCODE ;
4863: g_error_buf := 'WHEN OTHERS IN [GET_COHORT_INFO]'||SQLERRM;
4860: RETURN;
4861: WHEN OTHERS THEN
4862: g_error_code := SQLCODE ;
4863: g_error_buf := 'WHEN OTHERS IN [GET_COHORT_INFO]'||SQLERRM;
4864: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4865: RETURN;
4866: END get_cohort_info ;
4867: --------------------------------------------------------------------------------
4868: -- Get program segments, for all fund values of the given treasury_symbol, from
5034: EXCEPTION
5035: WHEN OTHERS THEN
5036: g_error_buf := SQLERRM;
5037: g_error_code := -1;
5038: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5039: l_module_name||'.final_exception',g_error_buf);
5040:
5041: END load_program_seg;
5042: --------------------------------------------------------------------------------
5198: EXCEPTION
5199: WHEN OTHERS THEN
5200: g_error_buf := SQLERRM;
5201: g_error_code := -1;
5202: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5203: l_module_name||'.final_exception',g_error_buf);
5204: RAISE;
5205:
5206: END get_prc_val;