[Home] [Help]
248: l_prc_map_count NUMBER;
249:
250: BEGIN
251: l_module_name := g_module_name || 'MAIN';
252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STARTING THE FACTS TRANSACTION REGISTER '||
254: 'Main Process ...');
255: END IF;
256: --Set SLA security context
249:
250: BEGIN
251: l_module_name := g_module_name || 'MAIN';
252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
253: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STARTING THE FACTS TRANSACTION REGISTER '||
254: 'Main Process ...');
255: END IF;
256: --Set SLA security context
257: xla_security_pkg.set_security_context(602);
296:
297: -- Get Period Year
298: IF (g_error_code = 0)
299: THEN
300: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
301: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
302: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DERIVING THE PERIOD YEAR.....');
303: END IF;
304: GET_PERIOD_YEAR (p_from_period_name, p_to_period_name);
297: -- Get Period Year
298: IF (g_error_code = 0)
299: THEN
300: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
301: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
302: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DERIVING THE PERIOD YEAR.....');
303: END IF;
304: GET_PERIOD_YEAR (p_from_period_name, p_to_period_name);
305: END IF;
298: IF (g_error_code = 0)
299: THEN
300: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
301: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
302: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DERIVING THE PERIOD YEAR.....');
303: END IF;
304: GET_PERIOD_YEAR (p_from_period_name, p_to_period_name);
305: END IF;
306:
306:
307: -- Process Input start_date and end_date
308: IF (g_error_code = 0)
309: THEN
310: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE PERIOD INFO ...');
312: END IF;
313: PROCESS_PERIOD_INFO;
314: END IF;
307: -- Process Input start_date and end_date
308: IF (g_error_code = 0)
309: THEN
310: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE PERIOD INFO ...');
312: END IF;
313: PROCESS_PERIOD_INFO;
314: END IF;
315:
315:
316: -- Get Account and Balancing Segment values
317: IF (g_error_code = 0)
318: THEN
319: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE QUALIFIER SEGMENTS ...');
321: END IF;
322: GET_QUALIFIER_SEGMENTS;
323: END IF;
316: -- Get Account and Balancing Segment values
317: IF (g_error_code = 0)
318: THEN
319: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
320: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GET THE QUALIFIER SEGMENTS ...');
321: END IF;
322: GET_QUALIFIER_SEGMENTS;
323: END IF;
324:
323: END IF;
324:
325: -- Purge the data IF any for the Treasury Symbol
326: IF (g_error_code = 0)THEN
327: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING EXISTING DATA OF ');
329: END IF;
330: PURGE_FACTS_TRANSACTIONS ;
331: END IF ;
324:
325: -- Purge the data IF any for the Treasury Symbol
326: IF (g_error_code = 0)THEN
327: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING EXISTING DATA OF ');
329: END IF;
330: PURGE_FACTS_TRANSACTIONS ;
331: END IF ;
332:
341: treasury_symbol_range_rec.treasury_symbol;
342:
343:
344: IF (g_error_code = 0) THEN
345: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
346: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
347: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS JOURNAL LINES ...');
348: END IF;
349: JOURNAL_PROCESS;
342:
343:
344: IF (g_error_code = 0) THEN
345: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
346: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
347: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS JOURNAL LINES ...');
348: END IF;
349: JOURNAL_PROCESS;
350: END IF;
343:
344: IF (g_error_code = 0) THEN
345: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
346: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
347: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS JOURNAL LINES ...');
348: END IF;
349: JOURNAL_PROCESS;
350: END IF;
351:
405:
406: IF l_req_id = 0 THEN
407: p_errbuf := 'Error submitting RX Report ';
408: p_retcode := -1 ;
409: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
410: RETURN;
411: ELSE
412: -- if concurrent request submission failed then abort process
413: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
409: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
410: RETURN;
411: ELSE
412: -- if concurrent request submission failed then abort process
413: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
415: 'Concurrent Request Id for RX Report - ' ||l_req_id);
416: END IF;
417: END IF;
410: RETURN;
411: ELSE
412: -- if concurrent request submission failed then abort process
413: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
415: 'Concurrent Request Id for RX Report - ' ||l_req_id);
416: END IF;
417: END IF;
418:
424:
425: IF (l_call_status = FALSE) THEN
426: p_errbuf := 'Cannot wait for the status of RX Report.';
427: p_retcode := 1;
428: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
429: PURGE_FACTS_TRANSACTIONS ;
430: END IF;
431:
432:
432:
433: ELSE
434: p_retcode := 1;
435: p_errbuf := '** No Data Found for the Transaction Register Process **';
436: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
437: RETURN;
438: END IF;
439: END;
440:
452: THEN
453: p_retcode := 1;
454: p_errbuf := 'Transaction Register Process completed with warning because the Public Law, Advance,
455: and Transfer attribute columns are not established on the Define System Parameters Form.';
456: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,p_errbuf);
457: COMMIT;
458: RETURN;
459: ELSE
460: p_retcode := 0;
458: RETURN;
459: ELSE
460: p_retcode := 0;
461: p_errbuf := '** Transaction Register Process completed Successfully **';
462: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,p_errbuf);
464: END IF;
465: COMMIT;
466: RETURN;
459: ELSE
460: p_retcode := 0;
461: p_errbuf := '** Transaction Register Process completed Successfully **';
462: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,p_errbuf);
464: END IF;
465: COMMIT;
466: RETURN;
467: END IF ;
472: THEN
473: p_errbuf := '** Transaction Register Process Failed ** '||SQLERRM;
474: p_retcode := 2;
475: ROLLBACK;
476: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
477: END main;
478:
479: -- ------------------------------------------------------------------
480: -- PROCEDURE GET_PERIOD_YEAR
502: WHEN NO_DATA_FOUND THEN
503: g_error_code := 2;
504: g_error_buf := 'Period Set name not found for set of books '
505: ||to_char(g_set_of_books_id);
506: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
507: RETURN;
508: WHEN OTHERS THEN
509: g_error_code := SQLCODE ;
510: g_error_buf := SQLERRM ||
509: g_error_code := SQLCODE ;
510: g_error_buf := SQLERRM ||
511: ' -- Error in Get_Period_Year procedure,while getting the '
512: ||'period set name.' ;
513: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
514: RETURN;
515: END;
516:
517: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
513: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
514: RETURN;
515: END;
516:
517: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD SET NAME IS '||L_PERIOD_SET_NAME);
519: END IF;
520:
521: BEGIN
514: RETURN;
515: END;
516:
517: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD SET NAME IS '||L_PERIOD_SET_NAME);
519: END IF;
520:
521: BEGIN
522: SELECT period_year,adjustment_period_flag
529: g_error_code := 2;
530: g_error_buf := 'Period Year not found for the set of books '
531: ||to_char(g_set_of_books_id) ||
532: ' and the period set name '||l_period_set_name;
533: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
534: RETURN;
535: WHEN OTHERS THEN
536: g_error_code := SQLCODE ;
537: g_error_buf := SQLERRM ||
536: g_error_code := SQLCODE ;
537: g_error_buf := SQLERRM ||
538: ' -- Error in Get_Period_Year procedure,'||
539: ' while getting the period year.' ;
540: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
541: RETURN;
542: END;
543:
544: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
540: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
541: RETURN;
542: END;
543:
544: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
545: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD YEAR IS '||TO_CHAR(G_PERIOD_YEAR));
546: END IF;
547:
548: BEGIN -- From Period Start Date
541: RETURN;
542: END;
543:
544: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
545: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD YEAR IS '||TO_CHAR(G_PERIOD_YEAR));
546: END IF;
547:
548: BEGIN -- From Period Start Date
549: SELECT start_date
557: WHEN NO_DATA_FOUND THEN
558: g_error_code := 2;
559: g_error_buf := 'Start Date not defined for the period name '
560: ||p_period_from;
561: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
562: RETURN;
563: WHEN OTHERS THEN
564: g_error_code := SQLCODE ;
565: g_error_buf := SQLERRM ||
565: g_error_buf := SQLERRM ||
566: ' -- Error in Get_Period_Year procedure, '||
567: 'while getting the start date for the from period '
568: ||p_period_from ;
569: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
570: RETURN;
571: END;
572:
573: -- From Period Start Date
570: RETURN;
571: END;
572:
573: -- From Period Start Date
574: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
575: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD START DATE IS '||TO_CHAR(G_START_DATE, 'MM/DD/YYYY'));
576: END IF;
577: BEGIN -- To Period End Date
578: SELECT end_date
571: END;
572:
573: -- From Period Start Date
574: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
575: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD START DATE IS '||TO_CHAR(G_START_DATE, 'MM/DD/YYYY'));
576: END IF;
577: BEGIN -- To Period End Date
578: SELECT end_date
579: INTO g_end_date
586: WHEN NO_DATA_FOUND THEN
587: g_error_code := 2;
588: g_error_buf := 'End Date not defined for the period name '
589: ||p_period_to;
590: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
591: RETURN;
592: WHEN OTHERS THEN
593: g_error_code := SQLCODE ;
594: g_error_buf := SQLERRM ||
594: g_error_buf := SQLERRM ||
595: ' -- Error in Get_Period_Year procedure, '||
596: 'while getting the end date for the to period '||
597: p_period_to ;
598: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
599: RETURN;
600: END; -- To Period End Date
601:
602: -- Setting up the retcode
606: WHEN OTHERS THEN
607: g_error_code := SQLCODE ;
608: g_error_buf := SQLERRM ||
609: ' -- Error in Get_Period_Year procedure.' ;
610: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
611: RETURN;
612: END get_period_year;
613:
614: -- -------------------------------------------------------------
638: g_error_code := 2;
639: g_error_buf := 'PROCESS PERIOD INFO - period_num corresponding '||
640: 'to From Period Name ' || g_from_period_name ||
641: ' not found.';
642: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
643: RETURN;
644: WHEN OTHERS THEN
645: g_error_code := SQLCODE ;
646: g_error_buf := SQLERRM ||
646: g_error_buf := SQLERRM ||
647: 'PROCESS PERIOD INFO - Error when getting '||
648: 'min(period_num) from gl_period_statuses '||
649: 'for From Period Name '|| g_from_period_name;
650: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
651: RETURN;
652: END;
653:
654: BEGIN
664: g_error_code := 2;
665: g_error_buf := 'PROCESS PERIOD INFO - period corresponding '||
666: 'to To Period Name ' || g_to_period_name ||
667: ' not found.';
668: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
669: RETURN;
670: WHEN OTHERS THEN
671: g_error_code := SQLCODE ;
672: g_error_buf := SQLERRM ||
672: g_error_buf := SQLERRM ||
673: 'PROCESS PERIOD INFO - Error when getting '||
674: 'max(period_num) from gl_period_statuses for '||
675: 'To Period Name '|| g_to_period_name;
676: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
677: RETURN;
678: END;
679: -- END IF;
680: -- Setting up the retcode
683: WHEN OTHERS THEN
684: g_error_code := SQLCODE ;
685: g_error_buf := SQLERRM ||
686: ' -- Error in Process_Period_Info procedure.' ;
687: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
688: RETURN;
689: END process_period_info;
690: -- -------------------------------------------------------------
691: -- PROCEDURE GET QUALIFIER SEGMENTS
710: );
711:
712: IF (l_error_code) THEN
713: g_error_code := 2 ;
714: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
715: RETURN;
716: END IF;
717:
718: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
714: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
715: RETURN;
716: END IF;
717:
718: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
719: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
721: ||g_acct_segment_name);
722: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
715: RETURN;
716: END IF;
717:
718: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
719: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
721: ||g_acct_segment_name);
722: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
723: END IF;
716: END IF;
717:
718: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
719: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
721: ||g_acct_segment_name);
722: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
723: END IF;
724: BEGIN
718: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
719: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||G_BAL_SEGMENT_NAME);
720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '
721: ||g_acct_segment_name);
722: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
723: END IF;
724: BEGIN
725: -- Determine the Flex Value Set Id for the Acct segment
726: SELECT flex_value_set_id
729: WHERE application_column_name = g_acct_segment_name
730: AND application_id = g_apps_id
731: AND id_flex_code = g_id_flex_code
732: AND id_flex_num = g_coa_id ;
733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FLEX VALUE SET ID IS '||
735: to_char(g_acc_value_set_id));
736: END IF;
737: EXCEPTION
730: AND application_id = g_apps_id
731: AND id_flex_code = g_id_flex_code
732: AND id_flex_num = g_coa_id ;
733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FLEX VALUE SET ID IS '||
735: to_char(g_acc_value_set_id));
736: END IF;
737: EXCEPTION
738: WHEN NO_DATA_FOUND THEN
737: EXCEPTION
738: WHEN NO_DATA_FOUND THEN
739: g_error_code := 2 ;
740: g_error_buf := 'GET QUALIFIER SEGMENTS - flex_value_set_id not found';
741: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
742: RETURN;
743: WHEN TOO_MANY_ROWS THEN
744: g_error_code := 2 ;
745: g_error_buf := 'GET QUALIFIER SEGMENTS - More than one ' ||
743: WHEN TOO_MANY_ROWS THEN
744: g_error_code := 2 ;
745: g_error_buf := 'GET QUALIFIER SEGMENTS - More than one ' ||
746: 'row returned while getting flex_value_set_id';
747: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
748: RETURN;
749: WHEN OTHERS THEN
750: g_error_code := SQLCODE;
751: g_error_buf := SQLERRM ||
750: g_error_code := SQLCODE;
751: g_error_buf := SQLERRM ||
752: '-- GET QUALIFIER SEGMENTS Error '||
753: 'when getting acct_value_set_id';
754: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
755: RETURN;
756: END;
757:
758: -- Setting up the retcode
761: WHEN OTHERS THEN
762: g_error_code := SQLCODE ;
763: g_error_buf := SQLERRM ||
764: ' -- Error in Get_QualIFier_Segments procedure.' ;
765: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
766: RETURN;
767: END get_qualifier_segments;
768:
769:
935: g_error_code := SQLCODE;
936: g_error_buf := SQLERRM ||
937: ' -- Error in Journal_Process'||
938: ' procedure due to Open_Cursor.';
939: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
940: RETURN;
941: END;
942: BEGIN
943: SELECT 'X', factsI_journal_attribute,
958: g_error_code := 1;
959: g_error_buf := 'Warning in Journal_Process procedure ' ||
960: '- Journal Trading Partner not defined on'||
961: ' System Parameter form';
962: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
963: ELSE
964: l_jrnl := ' ,gjl.' || l_jrnl_att;
965: g_error_code := 0;
966: g_error_buf := NULL;
963: ELSE
964: l_jrnl := ' ,gjl.' || l_jrnl_att;
965: g_error_code := 0;
966: g_error_buf := NULL;
967: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
968: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
969: || l_jrnl_att);
970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
964: l_jrnl := ' ,gjl.' || l_jrnl_att;
965: g_error_code := 0;
966: g_error_buf := NULL;
967: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
968: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
969: || l_jrnl_att);
970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
966: g_error_buf := NULL;
967: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
968: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
969: || l_jrnl_att);
970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
967: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
968: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
969: || l_jrnl_att);
970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
968: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'JOURNAL ATTRIBUTE COLUMN = '
969: || l_jrnl_att);
970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
969: || l_jrnl_att);
970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
977: END IF;
970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PLAW COLUMN = '||L_PL_CODE_COL);
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
977: END IF;
978: END IF;
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADV TYPE COLUMN = '||L_ADVANCE_TYPE_COL);
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
977: END IF;
978: END IF;
979:
972: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR MAIN A/C COLUMN = '||L_TR_MAIN_ACCT_COL);
973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TR DEPT ID COLUMN = '||L_TR_DEPT_ID_COL);
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REQ DATE SEG = '||G_REQ_DATE_SEG);
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PO DATE SEG = '||G_PUR_ORDER_DATE_SEG);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REC TXN DATE SEG = '||G_REC_TRXN_DATE_SEG);
977: END IF;
978: END IF;
979:
980: -- Set the global variable to false if facts
994: g_error_code := SQLCODE;
995: g_error_buf := 'Error in Journal_Process procedure - Journal '||
996: 'Trading Partner and other Parameters not '||
997: 'defined on System Parameter form';
998: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,g_error_buf);
999: RETURN;
1000: WHEN OTHERS THEN
1001: g_error_code := SQLCODE;
1002: g_error_buf := SQLERRM ||
1000: WHEN OTHERS THEN
1001: g_error_code := SQLCODE;
1002: g_error_buf := SQLERRM ||
1003: ' -- Error in Journal_Process procedure.' ;
1004: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_error_buf);
1005: RETURN;
1006: END;
1007:
1008: IF (g_source IS NOT NULL)
1042: INTO l_fyr_segment_name
1043: FROM fv_pya_fiscalyear_segment
1044: WHERE set_of_books_id = g_set_of_books_id;
1045:
1046: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FISCAL YR SEGMENT '||L_FYR_SEGMENT_NAME);
1048: END IF;
1049:
1050: Exception
1043: FROM fv_pya_fiscalyear_segment
1044: WHERE set_of_books_id = g_set_of_books_id;
1045:
1046: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FISCAL YR SEGMENT '||L_FYR_SEGMENT_NAME);
1048: END IF;
1049:
1050: Exception
1051:
1051:
1052: WHEN Others THEN
1053: g_error_code := SQLCODE;
1054: g_error_buf := SQLERRM ;
1055: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.select1',g_error_buf);
1056: RETURN;
1057: End;
1058:
1059: -- Load segments array table
1255: g_error_code := SQLCODE;
1256: g_error_buf := SQLERRM ||
1257: ' -- Error in Journal_Process procedure due '||
1258: 'to cursor Parse.';
1259: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.select1',g_error_buf);
1260: RETURN;
1261: END;
1262:
1263: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1259: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.select1',g_error_buf);
1260: RETURN;
1261: END;
1262:
1263: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1264: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_JRNL_SELECT);
1265: -- END IF;
1266:
1267: -- Bind the variables
1260: RETURN;
1261: END;
1262:
1263: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1264: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_JRNL_SELECT);
1265: -- END IF;
1266:
1267: -- Bind the variables
1268: dbms_sql.bind_variable(l_jrnl_cursor, ':sob_id', l_sob);
1405: counter,l_tr_main_acct, 150);
1406: counter := counter+1;
1407: END IF;
1408:
1409: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1411: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1406: counter := counter+1;
1407: END IF;
1408:
1409: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1411: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1407: END IF;
1408:
1409: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1411: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1408:
1409: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1411: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1409: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1411: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SOB_ID: '|| L_SOB);
1411: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1411: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COA_ID: '|| L_COA);
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1412: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY_CODE: '|| G_CURRENCY_CODE);
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1413: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ACTUAL_FLAG: '|| 'A');
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1414: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STATUS: '|| 'P');
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1415: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_LOW: '|| G_PERIOD_NUM_LOW);
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_NUM_HIGH: '|| G_PERIOD_NUM_HIGH);
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD_YEAR: '|| L_PERIOD_YEAR);
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1425: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,6001,1000));
1418: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY_SYMBOL_ID: '|| G_TREASURY_SYMBOL_ID);
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1425: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,6001,1000));
1426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,7001,1000));
1419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1425: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,6001,1000));
1426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,7001,1000));
1427: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,8001,1000));
1420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,1001,1000));
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1425: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,6001,1000));
1426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,7001,1000));
1427: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,8001,1000));
1428: END IF;
1421: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,2001,1000));
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1425: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,6001,1000));
1426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,7001,1000));
1427: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,8001,1000));
1428: END IF;
1429:
1422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,3001,1000));
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1425: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,6001,1000));
1426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,7001,1000));
1427: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,8001,1000));
1428: END IF;
1429:
1430:
1423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,4001,1000));
1424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,5001,1000));
1425: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,6001,1000));
1426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,7001,1000));
1427: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,substr(l_jrnl_select,8001,1000));
1428: END IF;
1429:
1430:
1431:
1436: g_error_code := SQLCODE;
1437: g_error_buf := SQLERRM ||
1438: ' -- Error in Journal_Process procedure due '||
1439: 'to cursor Execute.';
1440: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.message1',G_ERROR_BUF);
1441: RETURN;
1442: END;
1443: i := 0;
1444: LOOP
1505: l_get_trx_part_from_reimb := FALSE;
1506:
1507: l_jrnl_fetch := DBMS_SQL.FETCH_ROWS(l_jrnl_cursor);
1508:
1509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_JRNL_FETCH '||L_JRNL_FETCH);
1511: END IF;
1512:
1513: IF (l_jrnl_fetch = 0)
1506:
1507: l_jrnl_fetch := DBMS_SQL.FETCH_ROWS(l_jrnl_cursor);
1508:
1509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_JRNL_FETCH '||L_JRNL_FETCH);
1511: END IF;
1512:
1513: IF (l_jrnl_fetch = 0)
1514: THEN
1513: IF (l_jrnl_fetch = 0)
1514: THEN
1515: IF (i = 0)
1516: THEN
1517: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO JOURNAL TRANSACTIONS'||
1519: ' to process for '||g_treasury_symbol||' !!!');
1520: END IF;
1521: END IF;
1514: THEN
1515: IF (i = 0)
1516: THEN
1517: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO JOURNAL TRANSACTIONS'||
1519: ' to process for '||g_treasury_symbol||' !!!');
1520: END IF;
1521: END IF;
1522: EXIT; -- Exit the loop
1519: ' to process for '||g_treasury_symbol||' !!!');
1520: END IF;
1521: END IF;
1522: EXIT; -- Exit the loop
1523: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'MUST EXIT THE LOOP');
1525: END IF;
1526: END IF;
1527:
1520: END IF;
1521: END IF;
1522: EXIT; -- Exit the loop
1523: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'MUST EXIT THE LOOP');
1525: END IF;
1526: END IF;
1527:
1528: -- Fetch the records into variables
1659:
1660: l_valid_flag := 'Y';
1661: l_feeder_flag := 'Y';
1662: i := 1;
1663: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1665: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1666: || l_account_number);
1667: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1660: l_valid_flag := 'Y';
1661: l_feeder_flag := 'Y';
1662: i := 1;
1663: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1665: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1666: || l_account_number);
1667: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1668: fv_utility.debug_mesg(FND_LOG.LEVEL_STATEMENT, l_module_name,'****g_transaction_partner_val:'||g_transaction_partner_val);
1661: l_feeder_flag := 'Y';
1662: i := 1;
1663: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1665: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1666: || l_account_number);
1667: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1668: fv_utility.debug_mesg(FND_LOG.LEVEL_STATEMENT, l_module_name,'****g_transaction_partner_val:'||g_transaction_partner_val);
1669: END IF;
1663: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1665: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1666: || l_account_number);
1667: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1668: fv_utility.debug_mesg(FND_LOG.LEVEL_STATEMENT, l_module_name,'****g_transaction_partner_val:'||g_transaction_partner_val);
1669: END IF;
1670:
1671: -- Get Fund Group, Dept_id, Bureau_code and Balancing Segment.
1664: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1665: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING ACCOUNT NUMBER - '
1666: || l_account_number);
1667: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'------------------------');
1668: fv_utility.debug_mesg(FND_LOG.LEVEL_STATEMENT, l_module_name,'****g_transaction_partner_val:'||g_transaction_partner_val);
1669: END IF;
1670:
1671: -- Get Fund Group, Dept_id, Bureau_code and Balancing Segment.
1672: GET_FUND_GROUP_INFO (l_ccid,
1693: -- Account Number exists in FV_FACTS_ATTRIBUTES table
1694: -- and can be used to get FACTS attributes.
1695: -- l_sgl_acct_num := l_account_number;
1696:
1697: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1698: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1699: 'for the child account -'||l_account_number);
1700: END IF;
1701: LOAD_FACTS_ATTRIBUTES (l_account_number, l_bal_segment) ;
1694: -- and can be used to get FACTS attributes.
1695: -- l_sgl_acct_num := l_account_number;
1696:
1697: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1698: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1699: 'for the child account -'||l_account_number);
1700: END IF;
1701: LOAD_FACTS_ATTRIBUTES (l_account_number, l_bal_segment) ;
1702:
1710: l_sgl_acct_num := Null;
1711: GET_SGL_PARENT(l_account_number, l_sgl_acct_num) ;
1712:
1713: IF l_sgl_acct_num IS NOT NULL Then
1714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1716: 'for the parent account -'||l_sgl_acct_num);
1717: END IF;
1718: LOAD_FACTS_ATTRIBUTES (l_sgl_acct_num, l_bal_segment) ;
1711: GET_SGL_PARENT(l_account_number, l_sgl_acct_num) ;
1712:
1713: IF l_sgl_acct_num IS NOT NULL Then
1714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOADING FACTS ATTRIBUTES '||
1716: 'for the parent account -'||l_sgl_acct_num);
1717: END IF;
1718: LOAD_FACTS_ATTRIBUTES (l_sgl_acct_num, l_bal_segment) ;
1719: END IF;
1726: FROM fv_facts_ussgl_accounts
1727: WHERE ussgl_account = l_account_number;
1728:
1729: l_sgl_acct_num := l_account_number;
1730: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1731: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHILD ACCOUNT IS A USSGL: '|| L_SGL_ACCT_NUM);
1732: END IF;
1733: EXCEPTION
1734: WHEN NO_DATA_FOUND THEN
1727: WHERE ussgl_account = l_account_number;
1728:
1729: l_sgl_acct_num := l_account_number;
1730: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1731: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHILD ACCOUNT IS A USSGL: '|| L_SGL_ACCT_NUM);
1732: END IF;
1733: EXCEPTION
1734: WHEN NO_DATA_FOUND THEN
1735: l_sgl_acct_num := Null;
1733: EXCEPTION
1734: WHEN NO_DATA_FOUND THEN
1735: l_sgl_acct_num := Null;
1736: GET_SGL_PARENT(l_account_number, l_sgl_acct_num);
1737: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1738: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PARENT ACCOUNT: '|| L_SGL_ACCT_NUM);
1739: END IF;
1740: END;
1741:
1734: WHEN NO_DATA_FOUND THEN
1735: l_sgl_acct_num := Null;
1736: GET_SGL_PARENT(l_account_number, l_sgl_acct_num);
1737: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1738: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PARENT ACCOUNT: '|| L_SGL_ACCT_NUM);
1739: END IF;
1740: END;
1741:
1742: IF (g_error_code <> 0)
1806: l_prn_num := '000';
1807: l_prn_text := 'Default PRN Code';
1808:
1809:
1810: IF ( FND_LOG.LEVEL_STATEMENT >=
1811: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1812: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1813: l_module_name, 'Defaulting the Reporting'
1814: ||'codes as the apportionment '
1807: l_prn_text := 'Default PRN Code';
1808:
1809:
1810: IF ( FND_LOG.LEVEL_STATEMENT >=
1811: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1812: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1813: l_module_name, 'Defaulting the Reporting'
1814: ||'codes as the apportionment '
1815: ||'Category flag is N ') ;
1808:
1809:
1810: IF ( FND_LOG.LEVEL_STATEMENT >=
1811: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1812: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1813: l_module_name, 'Defaulting the Reporting'
1814: ||'codes as the apportionment '
1815: ||'Category flag is N ') ;
1816: End If ;
2158: INTO l_account_class
2159: FROM ra_cust_trx_line_gl_dist_all
2160: WHERE cust_trx_line_gl_dist_id = l_source_distribution_id_num_1;
2161:
2162: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2163: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
2164: 'Account class: '||l_account_class);
2165: END IF;
2166:
2159: FROM ra_cust_trx_line_gl_dist_all
2160: WHERE cust_trx_line_gl_dist_id = l_source_distribution_id_num_1;
2161:
2162: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2163: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
2164: 'Account class: '||l_account_class);
2165: END IF;
2166:
2167: IF l_account_class <> 'REC' THEN
2319: -- Get the vendor id from Payables (Includes invoice and Payments)
2320: -------------------------------------------------------------------
2321: IF (l_source = 'Payables' AND l_category <> 'Treasury Confirmation')
2322: THEN
2323: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2326: END IF;
2327: IF (l_reference_2 IS NOT NULL)
2320: -------------------------------------------------------------------
2321: IF (l_source = 'Payables' AND l_category <> 'Treasury Confirmation')
2322: THEN
2323: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2326: END IF;
2327: IF (l_reference_2 IS NOT NULL)
2328: THEN
2321: IF (l_source = 'Payables' AND l_category <> 'Treasury Confirmation')
2322: THEN
2323: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SOURCE: '|| L_SOURCE);
2325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2326: END IF;
2327: IF (l_reference_2 IS NOT NULL)
2328: THEN
2329: BEGIN
2339: AND i.vendor_id = v.vendor_id
2340: AND fvv.vendor_id = v.vendor_id;
2341: EXCEPTION
2342: WHEN NO_DATA_FOUND THEN
2343: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.select_1',' NO DATA FOUND !!');
2344: WHEN INVALID_NUMBER THEN
2345: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2346: END;
2347:
2341: EXCEPTION
2342: WHEN NO_DATA_FOUND THEN
2343: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.select_1',' NO DATA FOUND !!');
2344: WHEN INVALID_NUMBER THEN
2345: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2346: END;
2347:
2348: ELSE
2349: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2345: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2346: END;
2347:
2348: ELSE
2349: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. INVOICE_ID IS NULL');
2351: END IF;
2352: END IF;
2353: -------------------------------------------------------------------
2346: END;
2347:
2348: ELSE
2349: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. INVOICE_ID IS NULL');
2351: END IF;
2352: END IF;
2353: -------------------------------------------------------------------
2354: -- Get the Vendor ID for Purchasing Inventory Records
2355: ------------------------------------------------------------------
2356: ELSIF (l_source = 'Purchasing') THEN
2357: IF (l_category = 'Receiving') THEN
2358:
2359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2363: END IF;
2356: ELSIF (l_source = 'Purchasing') THEN
2357: IF (l_category = 'Receiving') THEN
2358:
2359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2363: END IF;
2364: IF (l_reference_2 IS NOT NULL AND
2357: IF (l_category = 'Receiving') THEN
2358:
2359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2363: END IF;
2364: IF (l_reference_2 IS NOT NULL AND
2365: l_reference_5 IS NOT NULL) THEN
2358:
2359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NAME: '|| L_NAME);
2361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 2: '|| L_REFERENCE_2);
2362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE 5: '|| L_REFERENCE_5);
2363: END IF;
2364: IF (l_reference_2 IS NOT NULL AND
2365: l_reference_5 IS NOT NULL) THEN
2366: BEGIN
2379: AND v.vendor_id = ph.vendor_id
2380: AND fvv.vendor_id = ph.vendor_id;
2381: EXCEPTION
2382: WHEN NO_DATA_FOUND THEN
2383: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE'||
2385: ' is Purchasing and category'||
2386: ' is Receiving!!');
2387: END IF;
2380: AND fvv.vendor_id = ph.vendor_id;
2381: EXCEPTION
2382: WHEN NO_DATA_FOUND THEN
2383: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE'||
2385: ' is Purchasing and category'||
2386: ' is Receiving!!');
2387: END IF;
2388:
2386: ' is Receiving!!');
2387: END IF;
2388:
2389: WHEN INVALID_NUMBER THEN
2390: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_5');
2391: END;
2392: ELSE
2393: IF (l_reference_2 IS NULL) THEN
2394: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2390: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_5');
2391: END;
2392: ELSE
2393: IF (l_reference_2 IS NULL) THEN
2394: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2395: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. PO_HEADER_ID '||
2396: 'is NULL');
2397: END IF;
2398: ELSE
2391: END;
2392: ELSE
2393: IF (l_reference_2 IS NULL) THEN
2394: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2395: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. PO_HEADER_ID '||
2396: 'is NULL');
2397: END IF;
2398: ELSE
2399: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2395: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_2 I.E. PO_HEADER_ID '||
2396: 'is NULL');
2397: END IF;
2398: ELSE
2399: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2400: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_5 I.E.'||
2401: ' Transaction_id is NULL');
2402: END IF;
2403: END IF;
2396: 'is NULL');
2397: END IF;
2398: ELSE
2399: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2400: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REFERENCE_5 I.E.'||
2401: ' Transaction_id is NULL');
2402: END IF;
2403: END IF;
2404: END IF;
2403: END IF;
2404: END IF;
2405:
2406: ELSIF (l_category = 'Purchases') THEN
2407: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2408: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REFERENCE 2: '|| L_REFERENCE_2);
2409: END IF;
2410:
2411: IF (l_reference_2 IS NOT NULL) THEN
2404: END IF;
2405:
2406: ELSIF (l_category = 'Purchases') THEN
2407: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2408: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REFERENCE 2: '|| L_REFERENCE_2);
2409: END IF;
2410:
2411: IF (l_reference_2 IS NOT NULL) THEN
2412: BEGIN
2424: AND pov.vendor_id = poh.vendor_id
2425: AND fvv.vendor_id = poh.vendor_id;
2426: EXCEPTION
2427: WHEN NO_DATA_FOUND THEN
2428: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2429: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE IS'||
2430: ' Purchasing and category'||
2431: ' is Purchases!!');
2432: END IF;
2425: AND fvv.vendor_id = poh.vendor_id;
2426: EXCEPTION
2427: WHEN NO_DATA_FOUND THEN
2428: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2429: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NO DATA FOUND WHEN SOURCE IS'||
2430: ' Purchasing and category'||
2431: ' is Purchases!!');
2432: END IF;
2433: WHEN INVALID_NUMBER THEN
2430: ' Purchasing and category'||
2431: ' is Purchases!!');
2432: END IF;
2433: WHEN INVALID_NUMBER THEN
2434: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2435: END;
2436: ELSE
2437:
2438: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2434: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_2');
2435: END;
2436: ELSE
2437:
2438: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2439: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'REFERENCE_2 I.E. PO HEADER ID'||
2440: ' is NULL');
2441: END IF;
2442: END IF;
2435: END;
2436: ELSE
2437:
2438: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2439: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'REFERENCE_2 I.E. PO HEADER ID'||
2440: ' is NULL');
2441: END IF;
2442: END IF;
2443: END IF;
2445: -----------------------------------------------------------
2446: -- Customer id for Receivables transactions
2447: -----------------------------------------------------------
2448: ELSIF (l_source = 'Receivables') THEN
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,
2451: ' NAME: '||L_NAME);
2452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2453: ' REFERENCE 7: '|| L_REFERENCE_7);
2446: -- Customer id for Receivables transactions
2447: -----------------------------------------------------------
2448: ELSIF (l_source = 'Receivables') THEN
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,
2451: ' NAME: '||L_NAME);
2452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2453: ' REFERENCE 7: '|| L_REFERENCE_7);
2454:
2448: ELSIF (l_source = 'Receivables') THEN
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,
2451: ' NAME: '||L_NAME);
2452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2453: ' REFERENCE 7: '|| L_REFERENCE_7);
2454:
2455: END IF;
2456: IF (l_reference_7 IS NOT NULL) THEN
2489: END IF;
2490: */
2491: EXCEPTION
2492: WHEN NO_DATA_FOUND THEN
2493: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2495: ' NO DATA FOUND !!');
2496: END IF;
2497: /*
2490: */
2491: EXCEPTION
2492: WHEN NO_DATA_FOUND THEN
2493: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2495: ' NO DATA FOUND !!');
2496: END IF;
2497: /*
2498: fv_utility.log_mesg('Customer class code not found');
2500: l_get_trx_part_from_reimb := TRUE;
2501: END IF;
2502: */
2503: WHEN INVALID_NUMBER THEN
2504: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
2505: 'Invalid Number passed to REFERENCE_7');
2506: END;
2507: /*
2508: IF l_get_trx_part_from_reimb then
2514: RETURN;
2515: END IF;
2516: */
2517: ELSE
2518: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2520: ' REFERENCE_7 I.E. '|| 'customer_id is NULL');
2521: END IF;
2522: END IF;
2515: END IF;
2516: */
2517: ELSE
2518: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2520: ' REFERENCE_7 I.E. '|| 'customer_id is NULL');
2521: END IF;
2522: END IF;
2523: --------------------------------------------------------------------
2525: --------------------------------------------------------------------
2526: ELSIF (l_source = 'Payables' AND
2527: l_category = 'Treasury Confirmation') THEN
2528: l_stage := 4;
2529: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2531: ' SOURCE: '|| L_SOURCE);
2532: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2533: ' REFERENCE 3: '|| L_REFERENCE_3);
2526: ELSIF (l_source = 'Payables' AND
2527: l_category = 'Treasury Confirmation') THEN
2528: l_stage := 4;
2529: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2531: ' SOURCE: '|| L_SOURCE);
2532: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2533: ' REFERENCE 3: '|| L_REFERENCE_3);
2534: END IF;
2528: l_stage := 4;
2529: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2531: ' SOURCE: '|| L_SOURCE);
2532: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2533: ' REFERENCE 3: '|| L_REFERENCE_3);
2534: END IF;
2535: IF (l_reference_3 IS NOT NULL) THEN
2536: BEGIN
2546: AND apc.check_id = to_number(l_reference_3)
2547: AND fvv.vendor_id = v.vendor_id;
2548: EXCEPTION
2549: WHEN NO_DATA_FOUND THEN
2550: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||
2552: '.message_22',' NO DATA FOUND !!');
2553: END IF;
2554: WHEN INVALID_NUMBER THEN
2547: AND fvv.vendor_id = v.vendor_id;
2548: EXCEPTION
2549: WHEN NO_DATA_FOUND THEN
2550: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||
2552: '.message_22',' NO DATA FOUND !!');
2553: END IF;
2554: WHEN INVALID_NUMBER THEN
2555: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
2551: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||
2552: '.message_22',' NO DATA FOUND !!');
2553: END IF;
2554: WHEN INVALID_NUMBER THEN
2555: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
2556: 'Invalid Number passed to REFERENCE_3');
2557: END;
2558: ELSE
2559: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2555: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
2556: 'Invalid Number passed to REFERENCE_3');
2557: END;
2558: ELSE
2559: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2561: ' REFERENCE_3 I.E. CHECK_ID IS NULL');
2562: END IF;
2563: END IF;
2556: 'Invalid Number passed to REFERENCE_3');
2557: END;
2558: ELSE
2559: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2561: ' REFERENCE_3 I.E. CHECK_ID IS NULL');
2562: END IF;
2563: END IF;
2564: -------------------------------------------------------------
2578: --WHERE transaction_id = to_number(l_reference_1);
2579: l_doc_number fv_be_trx_hdrs.doc_number%TYPE;
2580: l_cust_class_code hz_cust_accounts_all.customer_class_code%TYPE;
2581: BEGIN
2582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2583: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2584: 'BUDGETARY TRANSACTION');
2585: END IF;
2586: l_feeder_flag := 'Y';
2579: l_doc_number fv_be_trx_hdrs.doc_number%TYPE;
2580: l_cust_class_code hz_cust_accounts_all.customer_class_code%TYPE;
2581: BEGIN
2582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2583: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2584: 'BUDGETARY TRANSACTION');
2585: END IF;
2586: l_feeder_flag := 'Y';
2587: OPEN dept_cur ;
2610: END IF;
2611: END IF;
2612:
2613: ELSE
2614: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2616: 'NO DATA FOUND WHEN source = '||l_source);
2617: END IF;
2618:
2611: END IF;
2612:
2613: ELSE
2614: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2616: 'NO DATA FOUND WHEN source = '||l_source);
2617: END IF;
2618:
2619: END IF ;
2663: END IF;
2664: END IF;
2665: END IF;
2666:
2667: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2668: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2669: ' FEEDER FLAG:'||L_FEEDER_FLAG);
2670: END IF;
2671: IF (l_vendor_id IS NULL) THEN
2664: END IF;
2665: END IF;
2666:
2667: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2668: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2669: ' FEEDER FLAG:'||L_FEEDER_FLAG);
2670: END IF;
2671: IF (l_vendor_id IS NULL) THEN
2672: IF ((g_govt_non_govt_ind = 'F' AND
2694: g_govt_non_govt_val := 'F';
2695: END IF;
2696: END IF; -- Govt Non Govt = F or Y
2697: ELSE -- l_vendor_id IS NOT NULL
2698: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2699: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2700: ' VENDOR ID IS NOT NULL');
2701: END IF;
2702: IF (l_feeder_flag = 'Y') THEN
2695: END IF;
2696: END IF; -- Govt Non Govt = F or Y
2697: ELSE -- l_vendor_id IS NOT NULL
2698: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2699: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2700: ' VENDOR ID IS NOT NULL');
2701: END IF;
2702: IF (l_feeder_flag = 'Y') THEN
2703: IF (g_govt_non_govt_val = 'F' AND
2882: --g_transfer_main_acct := '0000';
2883: WHEN INVALID_NUMBER THEN
2884: g_transfer_dept_id := ' ';
2885: g_transfer_main_acct := ' ';
2886: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Invalid Number passed to REFERENCE_1');
2887: END;
2888: ELSE
2889: -- l_reference_1 is null
2890: -- If an attribute column is not set up for transfer
2932: g_error_buf := sqlerrm ||
2933: ' [ JOURNAL_PROCESS '||
2934: ' l_disbursements_flag - ' ||
2935: l_sgl_acct_num||' ] ' ;
2936: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
2937: ||'.exception_1',g_error_buf);
2938: RETURN ;
2939: END;
2940:
2953: g_error_code := sqlcode ;
2954: g_error_buf := sqlerrm ||
2955: ' [JOURNAL_PROCESS '||
2956: '- v_time_frame ] ' ;
2957: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
2958: ||'.exception_2',g_error_buf);
2959: RETURN ;
2960: END;
2961:
2975: g_error_code := sqlcode ;
2976: g_error_buf := sqlerrm ||
2977: ' [JOURNAL_PROCESS '||
2978: ' l_fyr_segment_value - ] ' ;
2979: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_3',g_error_buf);
2980: END;
2981:
2982: IF l_fyr_segment_value IS NOT NULL THEN
2983: IF l_fyr_segment_value = l_seg_fiscal_yr THEN
2996: --then derive using the Reimbursable Agreement segment value
2997: --if the segment has been setup or has a value, irrespective
2998: --of the journal source.
2999: ----------------------------------------------------------------
3000: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3001: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3002: '****g_transaction_partner_val:'||g_transaction_partner_val);
3003: END IF;
3004:
2997: --if the segment has been setup or has a value, irrespective
2998: --of the journal source.
2999: ----------------------------------------------------------------
3000: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3001: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3002: '****g_transaction_partner_val:'||g_transaction_partner_val);
3003: END IF;
3004:
3005: IF (g_transaction_partner_val NOT IN ('N', 'F', 'X') AND
3003: END IF;
3004:
3005: IF (g_transaction_partner_val NOT IN ('N', 'F', 'X') AND
3006: g_reimb_agree_seg_name IS NOT NULL) THEN
3007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3008: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3009: 'Getting trx prtnr value based on reimb val');
3010: END IF;
3011: get_trx_part_from_reimb(l_reimb_agree_seg_val);
3004:
3005: IF (g_transaction_partner_val NOT IN ('N', 'F', 'X') AND
3006: g_reimb_agree_seg_name IS NOT NULL) THEN
3007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3008: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3009: 'Getting trx prtnr value based on reimb val');
3010: END IF;
3011: get_trx_part_from_reimb(l_reimb_agree_seg_val);
3012:
3036: ----------------------------------------------------------------
3037: --All process ends here
3038: ----------------------------------------------------------------
3039:
3040: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
3042: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: '||L_VENDOR_ID);
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3037: --All process ends here
3038: ----------------------------------------------------------------
3039:
3040: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
3042: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: '||L_VENDOR_ID);
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3038: ----------------------------------------------------------------
3039:
3040: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
3042: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: '||L_VENDOR_ID);
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3046: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
3039:
3040: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
3042: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: '||L_VENDOR_ID);
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3046: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
3047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
3040: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
3042: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: '||L_VENDOR_ID);
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3046: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
3047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
3048: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
3041: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN VIEW');
3042: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: '||L_VENDOR_ID);
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3046: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
3047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
3048: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
3049: END IF;
3042: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VENDOR ID: '||L_VENDOR_ID);
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3046: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
3047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
3048: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
3049: END IF;
3050:
3043: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ELIMINATIONS ID: '|| L_ELIMINATIONS_ID);
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3046: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
3047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
3048: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
3049: END IF;
3050:
3051: IF g_src_flag = 1 THEN
3044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GNG: '||G_GOVT_NON_GOVT_VAL);
3045: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID: '|| L_CCID);
3046: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCT#: '|| L_ACCOUNT_NUMBER);
3047: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT: '|| L_ENTERED_DR);
3048: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT: '|| L_ENTERED_CR);
3049: END IF;
3050:
3051: IF g_src_flag = 1 THEN
3052: l_source := 'Purchasing';
3110: return;
3111: END IF;
3112: END LOOP;
3113: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
3114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL PROCESSES ...');
3116: END IF;
3117: EXCEPTION
3118: WHEN OTHERS THEN
3111: END IF;
3112: END LOOP;
3113: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
3114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL PROCESSES ...');
3116: END IF;
3117: EXCEPTION
3118: WHEN OTHERS THEN
3119: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
3119: DBMS_SQL.CLOSE_CURSOR(l_jrnl_cursor);
3120: g_error_code := 2 ;
3121: g_error_buf := 'JOURNAL PROCESSES - Exception Main (Others) - ' ||
3122: to_char(sqlcode) || ' - ' || SQLERRM;
3123: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
3124: END JOURNAL_PROCESS;
3125:
3126: -- -------------------------------------------------------------------
3127: -- PROCEDURE GET_DOC_INFO
3355: FROM ra_customer_trx_all
3356: WHERE customer_trx_id = l_refer2;
3357: BEGIN
3358:
3359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BEGIN GET_DOC_INFO');
3361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_header_id='||p_je_header_id);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3356: WHERE customer_trx_id = l_refer2;
3357: BEGIN
3358:
3359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BEGIN GET_DOC_INFO');
3361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_header_id='||p_je_header_id);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3357: BEGIN
3358:
3359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BEGIN GET_DOC_INFO');
3361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_header_id='||p_je_header_id);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3358:
3359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BEGIN GET_DOC_INFO');
3361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_header_id='||p_je_header_id);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BEGIN GET_DOC_INFO');
3361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_header_id='||p_je_header_id);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BEGIN GET_DOC_INFO');
3361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_header_id='||p_je_header_id);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_header_id='||p_je_header_id);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_date='||p_gl_date);
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_source_name='||p_je_source_name);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_date='||p_gl_date);
3370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_rec_public_law_code_col='||p_rec_public_law_code_col);
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_je_category_name='||p_je_category_name);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_date='||p_gl_date);
3370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_rec_public_law_code_col='||p_rec_public_law_code_col);
3371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_sl_link_id='||p_gl_sl_link_id);
3364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_name='||p_name);
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_date='||p_gl_date);
3370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_rec_public_law_code_col='||p_rec_public_law_code_col);
3371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_sl_link_id='||p_gl_sl_link_id);
3372: END IF;
3365: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_date='||p_date);
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_date='||p_gl_date);
3370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_rec_public_law_code_col='||p_rec_public_law_code_col);
3371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_sl_link_id='||p_gl_sl_link_id);
3372: END IF;
3373:
3366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_creation_date='||p_creation_date);
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_date='||p_gl_date);
3370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_rec_public_law_code_col='||p_rec_public_law_code_col);
3371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_sl_link_id='||p_gl_sl_link_id);
3372: END IF;
3373:
3374: l_module_name := g_module_name || 'GET_DOC_INFO';
3367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_created_by='||p_created_by);
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_ref2='||p_ref2);
3369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_date='||p_gl_date);
3370: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_rec_public_law_code_col='||p_rec_public_law_code_col);
3371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'p_gl_sl_link_id='||p_gl_sl_link_id);
3372: END IF;
3373:
3374: l_module_name := g_module_name || 'GET_DOC_INFO';
3375: l_rev_exists := 'N';
3373:
3374: l_module_name := g_module_name || 'GET_DOC_INFO';
3375: l_rev_exists := 'N';
3376: p_reversed := NULL;
3377: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3374: l_module_name := g_module_name || 'GET_DOC_INFO';
3375: l_rev_exists := 'N';
3376: p_reversed := NULL;
3377: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3375: l_rev_exists := 'N';
3376: p_reversed := NULL;
3377: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3383: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3376: p_reversed := NULL;
3377: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3383: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3377: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3383: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3385: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3383: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3385: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3386: END IF;
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC INFO ...');
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3383: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3385: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3386: END IF;
3387: -- Set the values to Null
3380: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF1: '||P_REFERENCE1);
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3383: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3385: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3386: END IF;
3387: -- Set the values to Null
3388: l_document_num := NULL;
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2: '||P_REFERENCE2);
3382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF3: '||P_REFERENCE3);
3383: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF4: '||P_REFERENCE4);
3384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF5: '||P_REFERENCE5);
3385: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF9: '||P_REFERENCE9);
3386: END IF;
3387: -- Set the values to Null
3388: l_document_num := NULL;
3389: l_doc_date := NULL;
3402:
3403:
3404: -- Code for Purchasing
3405: IF p_je_source_name = 'Purchasing' THEN
3406: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3407: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASING ...');
3408: END IF;
3409:
3410: IF p_je_category_name = 'Requisitions' THEN
3403:
3404: -- Code for Purchasing
3405: IF p_je_source_name = 'Purchasing' THEN
3406: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3407: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASING ...');
3408: END IF;
3409:
3410: IF p_je_category_name = 'Requisitions' THEN
3411: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3407: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASING ...');
3408: END IF;
3409:
3410: IF p_je_category_name = 'Requisitions' 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,' REQUISITIONS ...');
3413: END IF;
3414:
3415: l_document_num := p_reference4;
3408: END IF;
3409:
3410: IF p_je_category_name = 'Requisitions' 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,' REQUISITIONS ...');
3413: END IF;
3414:
3415: l_document_num := p_reference4;
3416:
3466: CLOSE pur_req;
3467: END IF;
3468:
3469: ELSIF p_je_category_name = 'Purchases' THEN
3470: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3471: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASES ...');
3472: END IF;
3473: l_document_num := p_reference4;
3474:
3467: END IF;
3468:
3469: ELSIF p_je_category_name = 'Purchases' THEN
3470: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3471: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASES ...');
3472: END IF;
3473: l_document_num := p_reference4;
3474:
3475: IF g_pur_order_date_seg IS NOT NULL THEN
3535: END IF;
3536:
3537: ELSIF p_je_category_name = 'Receiving'
3538: 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,' RECEIVING ...');
3541: END IF;
3542: IF g_rec_trxn_date_seg IS NOT NULL
3543: THEN
3536:
3537: ELSIF p_je_category_name = 'Receiving'
3538: 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,' RECEIVING ...');
3541: END IF;
3542: IF g_rec_trxn_date_seg IS NOT NULL
3543: THEN
3544: l_select :=
3550: rcv_shipment_headers rcv
3551: WHERE rt.shipment_header_id = rcv.shipment_header_Id
3552: AND rt.transaction_id = '||to_number(p_reference5) ;
3553:
3554: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_SELECT);
3556: END IF;
3557:
3558: OPEN pur_rec FOR l_select ;
3551: WHERE rt.shipment_header_id = rcv.shipment_header_Id
3552: AND rt.transaction_id = '||to_number(p_reference5) ;
3553:
3554: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_SELECT);
3556: END IF;
3557:
3558: OPEN pur_rec FOR l_select ;
3559: FETCH pur_rec INTO l_temp_doc_date,
3604: CLOSE pur_rec;
3605: END IF;
3606:
3607: ELSE
3608: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3609: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3610: END IF;
3611: l_document_num := p_name;
3612: l_doc_date := p_date;
3605: END IF;
3606:
3607: ELSE
3608: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3609: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3610: END IF;
3611: l_document_num := p_name;
3612: l_doc_date := p_date;
3613: l_doc_creation_date := p_creation_date;
3615: END IF;
3616: -- Code for Payables
3617: ELSIF p_je_source_name = 'Payables'
3618: THEN
3619: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3620: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYABLES ...');
3621: END IF;
3622: IF p_je_category_name = 'Purchase Invoices'
3623: THEN
3616: -- Code for Payables
3617: ELSIF p_je_source_name = 'Payables'
3618: THEN
3619: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3620: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYABLES ...');
3621: END IF;
3622: IF p_je_category_name = 'Purchase Invoices'
3623: THEN
3624: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3620: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYABLES ...');
3621: END IF;
3622: IF p_je_category_name = 'Purchase Invoices'
3623: THEN
3624: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASE INVOICES ...');
3626: END IF;
3627: OPEN Pay_Pur;
3628: FETCH Pay_Pur INTO l_document_num,
3621: END IF;
3622: IF p_je_category_name = 'Purchase Invoices'
3623: THEN
3624: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PURCHASE INVOICES ...');
3626: END IF;
3627: OPEN Pay_Pur;
3628: FETCH Pay_Pur INTO l_document_num,
3629: l_doc_date,
3679: FETCH Pay_Pay_Check INTO l_void_date, l_check_date;
3680: CLOSE Pay_Pay_Check;
3681: IF (l_void_date IS NULL)
3682: THEN
3683: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS ...');
3685: END IF;
3686: OPEN Pay_Pay;
3687: FETCH Pay_Pay INTO l_document_num, l_doc_date,
3680: CLOSE Pay_Pay_Check;
3681: IF (l_void_date IS NULL)
3682: THEN
3683: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS ...');
3685: END IF;
3686: OPEN Pay_Pay;
3687: FETCH Pay_Pay INTO l_document_num, l_doc_date,
3688: l_doc_creation_date,
3688: l_doc_creation_date,
3689: l_doc_created_by;
3690: CLOSE Pay_Pay;
3691: ELSE
3692: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3693: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID HANDLING ...');
3694: END IF;
3695: OPEN Pay_Pay_Void;
3696: FETCH Pay_Pay_Void INTO l_inv_payment_id;
3689: l_doc_created_by;
3690: CLOSE Pay_Pay;
3691: ELSE
3692: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3693: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID HANDLING ...');
3694: END IF;
3695: OPEN Pay_Pay_Void;
3696: FETCH Pay_Pay_Void INTO l_inv_payment_id;
3697: CLOSE Pay_Pay_Void;
3696: FETCH Pay_Pay_Void INTO l_inv_payment_id;
3697: CLOSE Pay_Pay_Void;
3698: IF (l_inv_payment_id <> 0)
3699: THEN
3700: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3701: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS NON-VOID ...');
3702: END IF;
3703: OPEN Pay_Pay_Non_Void;
3704: FETCH Pay_Pay_Non_Void INTO l_document_num,
3697: CLOSE Pay_Pay_Void;
3698: IF (l_inv_payment_id <> 0)
3699: THEN
3700: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3701: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS NON-VOID ...');
3702: END IF;
3703: OPEN Pay_Pay_Non_Void;
3704: FETCH Pay_Pay_Non_Void INTO l_document_num,
3705: l_doc_creation_date,
3707: CLOSE Pay_Pay_Non_Void;
3708: l_doc_date := l_check_date;
3709: ELSIF (l_inv_payment_id = 0)
3710: THEN
3711: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3712: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID ...');
3713: END IF;
3714: OPEN Pay_Pay_Void_Values;
3715: FETCH Pay_Pay_Void_Values INTO l_document_num,
3708: l_doc_date := l_check_date;
3709: ELSIF (l_inv_payment_id = 0)
3710: THEN
3711: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3712: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PAYMENTS VOID ...');
3713: END IF;
3714: OPEN Pay_Pay_Void_Values;
3715: FETCH Pay_Pay_Void_Values INTO l_document_num,
3716: l_doc_creation_date,
3743: END IF;
3744:
3745: ELSIF p_je_category_name = 'Treasury Confirmation'
3746: AND upper(p_name) not like '%VOID%' THEN
3747: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3748: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION ...');
3749: END IF;
3750: OPEN Pay_Treas;
3751: FETCH Pay_Treas INTO l_document_num,
3744:
3745: ELSIF p_je_category_name = 'Treasury Confirmation'
3746: AND upper(p_name) not like '%VOID%' THEN
3747: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3748: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION ...');
3749: END IF;
3750: OPEN Pay_Treas;
3751: FETCH Pay_Treas INTO l_document_num,
3752: l_doc_date,
3763: WHERE invoice_id = p_reference4;
3764:
3765: ELSIF p_je_category_name = 'Treasury Confirmation'
3766: AND upper(p_name) like '%VOID%' THEN
3767: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION VOID ...');
3769: END IF;
3770: OPEN Pay_Treas_Check;
3771: FETCH Pay_Treas_Check INTO l_doc_date, l_document_num;
3764:
3765: ELSIF p_je_category_name = 'Treasury Confirmation'
3766: AND upper(p_name) like '%VOID%' THEN
3767: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY CONFIRMATION VOID ...');
3769: END IF;
3770: OPEN Pay_Treas_Check;
3771: FETCH Pay_Treas_Check INTO l_doc_date, l_document_num;
3772: CLOSE Pay_Treas_Check;
3774: FETCH Pay_Treas_Void INTO l_doc_creation_date,
3775: l_doc_created_by;
3776: CLOSE Pay_Treas_Void;
3777: ELSE
3778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3779: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3780: END IF;
3781: l_document_num := p_name;
3782: l_doc_date := p_date;
3775: l_doc_created_by;
3776: CLOSE Pay_Treas_Void;
3777: ELSE
3778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3779: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
3780: END IF;
3781: l_document_num := p_name;
3782: l_doc_date := p_date;
3783: l_doc_creation_date := p_creation_date;
3785: END IF;
3786: -- Code for Receivables
3787: ELSIF p_je_source_name = 'Receivables'
3788: THEN
3789: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3790: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' RECEIVABLES ...');
3791: END IF;
3792: l_refer2 := p_reference2;
3793: l_document_num := p_reference4;
3786: -- Code for Receivables
3787: ELSIF p_je_source_name = 'Receivables'
3788: THEN
3789: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3790: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' RECEIVABLES ...');
3791: END IF;
3792: l_refer2 := p_reference2;
3793: l_document_num := p_reference4;
3794: IF (p_reference2 is null)
3792: l_refer2 := p_reference2;
3793: l_document_num := p_reference4;
3794: IF (p_reference2 is null)
3795: THEN
3796: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3797: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2 IS NULL ...');
3798: END IF;
3799: l_document_num := l_refer4;
3800: ELSE
3793: l_document_num := p_reference4;
3794: IF (p_reference2 is null)
3795: THEN
3796: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3797: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REF2 IS NULL ...');
3798: END IF;
3799: l_document_num := l_refer4;
3800: ELSE
3801: IF (p_je_category_name = 'Adjustment')
3799: l_document_num := l_refer4;
3800: ELSE
3801: IF (p_je_category_name = 'Adjustment')
3802: THEN
3803: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3804: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADJUSTMENT ...');
3805: END IF;
3806: OPEN Receivables_Adjustment;
3807: FETCH Receivables_Adjustment INTO l_doc_date,
3800: ELSE
3801: IF (p_je_category_name = 'Adjustment')
3802: THEN
3803: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3804: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADJUSTMENT ...');
3805: END IF;
3806: OPEN Receivables_Adjustment;
3807: FETCH Receivables_Adjustment INTO l_doc_date,
3808: l_doc_creation_date,
3809: l_doc_created_by;
3810: CLOSE Receivables_Adjustment;
3811: ELSIF (p_je_category_name = 'Credit Memo Applications')
3812: THEN
3813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMO APPLICATIONS ...');
3815: END IF;
3816: OPEN Receivables_CMA;
3817: FETCH Receivables_CMA INTO l_doc_date,
3810: CLOSE Receivables_Adjustment;
3811: ELSIF (p_je_category_name = 'Credit Memo Applications')
3812: THEN
3813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMO APPLICATIONS ...');
3815: END IF;
3816: OPEN Receivables_CMA;
3817: FETCH Receivables_CMA INTO l_doc_date,
3818: l_doc_creation_date,
3820: CLOSE Receivables_CMA;
3821: ELSIF (p_je_category_name IN ('Credit Memos',
3822: 'Debit Memos', 'Sales Invoices'))
3823: THEN
3824: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3825: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMOS/'||
3826: 'Debit Memos/ Sales Invoices ...');
3827: END IF;
3828: OPEN Receivables_Memos_Inv;
3821: ELSIF (p_je_category_name IN ('Credit Memos',
3822: 'Debit Memos', 'Sales Invoices'))
3823: THEN
3824: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3825: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT MEMOS/'||
3826: 'Debit Memos/ Sales Invoices ...');
3827: END IF;
3828: OPEN Receivables_Memos_Inv;
3829: FETCH Receivables_Memos_Inv INTO l_doc_date,
3830: l_doc_creation_date,
3831: l_doc_created_by;
3832: CLOSE Receivables_Memos_Inv;
3833: ELSE
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,'TRADE RECEIPTS/ MISC RECEIPTS/ '||
3836: 'Reversals/ Others ...');
3837: END IF;
3838: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3831: l_doc_created_by;
3832: CLOSE Receivables_Memos_Inv;
3833: ELSE
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,'TRADE RECEIPTS/ MISC RECEIPTS/ '||
3836: 'Reversals/ Others ...');
3837: END IF;
3838: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3839: LENGTH(p_ref2));
3839: LENGTH(p_ref2));
3840:
3841: IF (p_je_category_name = 'Misc Receipts')
3842: THEN
3843: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING A MISC RECEIPT');
3845: END IF;
3846: l_refer2 := p_ref2;
3847: l_cash_receipt_hist_id := p_reference5;
3840:
3841: IF (p_je_category_name = 'Misc Receipts')
3842: THEN
3843: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING A MISC RECEIPT');
3845: END IF;
3846: l_refer2 := p_ref2;
3847: l_cash_receipt_hist_id := p_reference5;
3848: ELSE
3845: END IF;
3846: l_refer2 := p_ref2;
3847: l_cash_receipt_hist_id := p_reference5;
3848: ELSE
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,' PROCESSING A TRADE RECEIPT '||
3851: 'or Other');
3852: END IF;
3853: l_refer2 := p_reference2;
3846: l_refer2 := p_ref2;
3847: l_cash_receipt_hist_id := p_reference5;
3848: ELSE
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,' PROCESSING A TRADE RECEIPT '||
3851: 'or Other');
3852: END IF;
3853: l_refer2 := p_reference2;
3854: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3853: l_refer2 := p_reference2;
3854: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3855: LENGTH(p_ref2));
3856: END IF;
3857: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3858: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT ID = '||L_REFER2);
3859: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID = ' ||
3860: l_cash_receipt_hist_id);
3861: END IF;
3854: l_cash_receipt_hist_id := SUBSTR(p_ref2, INSTR(p_ref2,'C')+1,
3855: LENGTH(p_ref2));
3856: END IF;
3857: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3858: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT ID = '||L_REFER2);
3859: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID = ' ||
3860: l_cash_receipt_hist_id);
3861: END IF;
3862: l_receipt_hist_status := NULL;
3855: LENGTH(p_ref2));
3856: END IF;
3857: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3858: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT ID = '||L_REFER2);
3859: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID = ' ||
3860: l_cash_receipt_hist_id);
3861: END IF;
3862: l_receipt_hist_status := NULL;
3863: OPEN Receivables_Hist (TO_NUMBER(l_cash_receipt_hist_id),
3887: CLOSE Receivables_History;
3888:
3889: IF (l_rev_exists = 'Y')
3890: THEN
3891: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3892: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'||
3893: ' Ar_Cash_Receipt_History_All ... REVERSAL');
3894: END IF;
3895: END IF;
3888:
3889: IF (l_rev_exists = 'Y')
3890: THEN
3891: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3892: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'||
3893: ' Ar_Cash_Receipt_History_All ... REVERSAL');
3894: END IF;
3895: END IF;
3896: END IF;
3903: CLOSE Receivables_Applications;
3904: IF (l_temp_cr_hist_id IS NOT NULL)
3905: THEN
3906: l_cash_receipt_hist_id := l_temp_cr_hist_id;
3907: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3908: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3909: ||' Ar_Receivable_Applications_All: '
3910: ||l_cash_receipt_hist_id);
3911: END IF;
3904: IF (l_temp_cr_hist_id IS NOT NULL)
3905: THEN
3906: l_cash_receipt_hist_id := l_temp_cr_hist_id;
3907: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3908: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3909: ||' Ar_Receivable_Applications_All: '
3910: ||l_cash_receipt_hist_id);
3911: END IF;
3912: -- Use cash_receipt_history_id obtained above to find
3915: FETCH Receivables_Exists INTO l_rev_exists;
3916: CLOSE Receivables_Exists;
3917: IF (l_rev_exists = 'Y')
3918: THEN
3919: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3920: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3921: ||' Ar_Cash_Receipt_History_All: '
3922: ||l_cash_receipt_hist_id);
3923: END IF;
3916: CLOSE Receivables_Exists;
3917: IF (l_rev_exists = 'Y')
3918: THEN
3919: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3920: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN'
3921: ||' Ar_Cash_Receipt_History_All: '
3922: ||l_cash_receipt_hist_id);
3923: END IF;
3924: l_rev_exists := 'N';
3939: l_doc_created_by_d;
3940: CLOSE Receivables_History;
3941: IF (l_rev_exists = 'Y')
3942: THEN
3943: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3944: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REVERSAL CASH RECEIPT '||
3945: 'Hist Id'||
3946: ' exists ... REVERSAL');
3947: END IF;
3940: CLOSE Receivables_History;
3941: IF (l_rev_exists = 'Y')
3942: THEN
3943: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3944: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REVERSAL CASH RECEIPT '||
3945: 'Hist Id'||
3946: ' exists ... REVERSAL');
3947: END IF;
3948: END IF;
3972: END IF;
3973:
3974: IF (l_rev_exists = 'Y')
3975: THEN
3976: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN '
3978: ||'Ar_Misc_Cash_Distributions_All: '
3979: ||l_cash_receipt_hist_id);
3980: END IF;
3973:
3974: IF (l_rev_exists = 'Y')
3975: THEN
3976: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASH RECEIPT HIST ID EXITS IN '
3978: ||'Ar_Misc_Cash_Distributions_All: '
3979: ||l_cash_receipt_hist_id);
3980: END IF;
3981: l_rev_exists := 'N';
4011:
4012: IF (l_rev_exists = 'Y')
4013: THEN
4014: p_reversed := 'R';
4015: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4016: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MISC CASH DISC ID HAS'||
4017: ' Reverse value in created ' ||
4018: 'from ... REVERSAL');
4019: END IF;
4012: IF (l_rev_exists = 'Y')
4013: THEN
4014: p_reversed := 'R';
4015: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4016: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MISC CASH DISC ID HAS'||
4017: ' Reverse value in created ' ||
4018: 'from ... REVERSAL');
4019: END IF;
4020: END IF;
4047:
4048: -- Code for Budgetary Transaction
4049: ELSIF p_je_source_name = 'Budgetary Transaction'
4050: THEN
4051: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4052: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGETARY TRANSACTION ...');
4053: END IF;
4054: fnd_file.put_line (fnd_file.log, 'Budget p_reference_1 = '||p_reference1);
4055: OPEN Budget_Transac;
4048: -- Code for Budgetary Transaction
4049: ELSIF p_je_source_name = 'Budgetary Transaction'
4050: THEN
4051: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4052: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGETARY TRANSACTION ...');
4053: END IF;
4054: fnd_file.put_line (fnd_file.log, 'Budget p_reference_1 = '||p_reference1);
4055: OPEN Budget_Transac;
4056: FETCH Budget_Transac INTO l_document_num,
4062: p_gl_date := l_doc_date;
4063: -- Code for Manual
4064: ELSIF p_je_source_name = 'Manual'
4065: THEN
4066: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4067: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MANUAL ...');
4068: END IF;
4069: OPEN Manual;
4070: FETCH Manual INTO l_doc_date;
4063: -- Code for Manual
4064: ELSIF p_je_source_name = 'Manual'
4065: THEN
4066: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4067: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' MANUAL ...');
4068: END IF;
4069: OPEN Manual;
4070: FETCH Manual INTO l_doc_date;
4071: CLOSE Manual;
4080: l_doc_creation_date := p_creation_date;
4081: l_doc_created_by := p_created_by;
4082: -- Code for Misc
4083: ELSE
4084: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
4086: END IF;
4087: --Bug#3225337
4088: --IF (p_reference4 IS NOT NULL)
4081: l_doc_created_by := p_created_by;
4082: -- Code for Misc
4083: ELSE
4084: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' OTHERS ...');
4086: END IF;
4087: --Bug#3225337
4088: --IF (p_reference4 IS NOT NULL)
4089: IF (NVL(p_reference4, '-100') <> '-100')
4117: p_doc_num := l_document_num;
4118: p_doc_date := l_doc_date;
4119: p_doc_creation_date := l_doc_creation_date;
4120: p_doc_created_by := l_doc_created_by;
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,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
4125: l_doc_creation_date);
4118: p_doc_date := l_doc_date;
4119: p_doc_creation_date := l_doc_creation_date;
4120: p_doc_created_by := l_doc_created_by;
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,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
4125: l_doc_creation_date);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
4119: p_doc_creation_date := l_doc_creation_date;
4120: p_doc_created_by := l_doc_created_by;
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,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
4125: l_doc_creation_date);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
4127:
4120: p_doc_created_by := l_doc_created_by;
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,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
4125: l_doc_creation_date);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
4127:
4128:
4122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT NUMBER - '||L_DOCUMENT_NUM);
4123: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT DATE - '||L_DOC_DATE);
4124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATION DATE - '||
4125: l_doc_creation_date);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
4127:
4128:
4129: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'<<<<<
4130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_num='||p_doc_num);
4125: l_doc_creation_date);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
4127:
4128:
4129: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'<<<<<
4131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_date='||p_doc_date);
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||L_DOC_CREATED_BY);
4127:
4128:
4129: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'<<<<<
4130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_num='||p_doc_num);
4131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_date='||p_doc_date);
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4127:
4128:
4129: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'<<<<<
4130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_num='||p_doc_num);
4131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_date='||p_doc_date);
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4135: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_rec_public_law_code='||p_rec_public_law_code);
4128:
4129: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'<<<<<
4130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_num='||p_doc_num);
4131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_date='||p_doc_date);
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4135: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_rec_public_law_code='||p_rec_public_law_code);
4136: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_reversed='||p_reversed);
4129: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'<<<<<
4130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_num='||p_doc_num);
4131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_date='||p_doc_date);
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4135: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_rec_public_law_code='||p_rec_public_law_code);
4136: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_reversed='||p_reversed);
4137: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'END GET_DOC_INFO');
4130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_num='||p_doc_num);
4131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_date='||p_doc_date);
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4135: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_rec_public_law_code='||p_rec_public_law_code);
4136: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_reversed='||p_reversed);
4137: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'END GET_DOC_INFO');
4138: END IF;
4131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_date='||p_doc_date);
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4135: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_rec_public_law_code='||p_rec_public_law_code);
4136: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_reversed='||p_reversed);
4137: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'END GET_DOC_INFO');
4138: END IF;
4139:
4132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_creation_date='||p_doc_creation_date);
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4135: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_rec_public_law_code='||p_rec_public_law_code);
4136: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_reversed='||p_reversed);
4137: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'END GET_DOC_INFO');
4138: END IF;
4139:
4140: EXCEPTION
4133: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_doc_created_by='||p_doc_created_by);
4134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_gl_date='||p_gl_date);
4135: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_rec_public_law_code='||p_rec_public_law_code);
4136: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'p_reversed='||p_reversed);
4137: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'END GET_DOC_INFO');
4138: END IF;
4139:
4140: EXCEPTION
4141: WHEN OTHERS THEN
4141: WHEN OTHERS THEN
4142: g_error_code := SQLCODE;
4143: g_error_buf := SQLERRM ||
4144: ' Error in Get_Doc_Info Procedure.' ;
4145: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4146: RETURN;
4147: END GET_DOC_INFO;
4148: -- -------------------------------------------------------------------
4149: -- PROCEDURE GET_DOC_USER
4159: IS
4160: l_module_name VARCHAR2(200);
4161: BEGIN
4162: l_module_name := g_module_name || 'GET_DOC_USER';
4163: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4164: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4165: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC USER ...');
4166: END IF;
4167: BEGIN
4160: l_module_name VARCHAR2(200);
4161: BEGIN
4162: l_module_name := g_module_name || 'GET_DOC_USER';
4163: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4164: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4165: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC USER ...');
4166: END IF;
4167: BEGIN
4168: SELECT user_name
4161: BEGIN
4162: l_module_name := g_module_name || 'GET_DOC_USER';
4163: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4164: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4165: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET DOC USER ...');
4166: END IF;
4167: BEGIN
4168: SELECT user_name
4169: INTO p_entry_user
4173: WHEN NO_DATA_FOUND
4174: THEN
4175: p_entry_user := NULL;
4176: END;
4177: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||P_ENTRY_USER);
4179: END IF;
4180: -- Setting up the retcode
4181: g_error_code := 0;
4174: THEN
4175: p_entry_user := NULL;
4176: END;
4177: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOCUMENT CREATED BY - '||P_ENTRY_USER);
4179: END IF;
4180: -- Setting up the retcode
4181: g_error_code := 0;
4182: EXCEPTION
4183: WHEN OTHERS THEN
4184: g_error_code := SQLCODE ;
4185: g_error_buf := SQLERRM ||
4186: ' -- Error in Get_Doc_User procedure.' ;
4187: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4188: RETURN;
4189: END GET_DOC_USER;
4190: -- -------------------------------------------------------------------
4191: -- PROCEDURE RESET_ATTRIBUTES
4242: EXCEPTION
4243: WHEN OTHERS THEN
4244: g_error_code := SQLCODE ;
4245: g_error_buf := SQLERRM;
4246: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4247: RAISE;
4248:
4249: END reset_facts_attributes ;
4250: -- -------------------------------------------------------------------
4279: p_reporting_type := NULL;
4280: WHEN OTHERS THEN
4281: g_error_code := sqlcode ;
4282: g_error_buf := sqlerrm ;
4283: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4284: RETURN ;
4285: END get_ussgl_info ;
4286: -- --------------------------------------------------------------------
4287: -- PROCEDURE GET_FUND_GROUP_INFO
4310: l_bal_segment VARCHAR2(25);
4311:
4312: BEGIN
4313: l_module_name := g_module_name || 'get_fund_group_info';
4314: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET FUND GROUP INFO ...');
4317: END IF;
4318: g_error_code := 0;
4311:
4312: BEGIN
4313: l_module_name := g_module_name || 'get_fund_group_info';
4314: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET FUND GROUP INFO ...');
4317: END IF;
4318: g_error_code := 0;
4319: g_error_buf := NULL;
4312: BEGIN
4313: l_module_name := g_module_name || 'get_fund_group_info';
4314: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
4316: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING GET FUND GROUP INFO ...');
4317: END IF;
4318: g_error_code := 0;
4319: g_error_buf := NULL;
4320:
4352: NULL;
4353: WHEN OTHERS THEN
4354: g_error_code := sqlcode;
4355: g_error_buf := sqlerrm;
4356: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1',g_error_buf);
4357: END;
4358:
4359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4355: g_error_buf := sqlerrm;
4356: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1',g_error_buf);
4357: END;
4358:
4359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4356: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1',g_error_buf);
4357: END;
4358:
4359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4357: END;
4358:
4359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4365: END IF;
4358:
4359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4365: END IF;
4366: IF (l_row_exists IS NULL)
4359: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4365: END IF;
4366: IF (l_row_exists IS NULL)
4367: THEN
4360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' L_ROW_EXISTS: '||L_ROW_EXISTS);
4361: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_FUND_GROUP: '||P_FUND_GROUP);
4362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_DEPT_ID: '||P_DEPT_ID);
4363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BUREAU_ID: '||P_BUREAU_ID);
4364: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' P_BAL_SEGMENT: '||P_BAL_SEGMENT);
4365: END IF;
4366: IF (l_row_exists IS NULL)
4367: THEN
4368: p_fund_group := NULL;
4384: NULL;
4385: WHEN OTHERS THEN
4386: g_error_code := sqlcode;
4387: g_error_buf := sqlerrm;
4388: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_2',g_error_buf);
4389: END;
4390: EXCEPTION
4391: WHEN OTHERS THEN
4392: g_error_code := sqlcode;
4390: EXCEPTION
4391: WHEN OTHERS THEN
4392: g_error_code := sqlcode;
4393: g_error_buf := sqlerrm;
4394: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_3',g_error_buf);
4395: END;
4396: ELSIF p_bureau_id IS NULL THEN
4397: p_bureau_id := '00';
4398: END IF ;
4395: END;
4396: ELSIF p_bureau_id IS NULL THEN
4397: p_bureau_id := '00';
4398: END IF ;
4399: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4400: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING GET FUND GROUP INFO ...');
4401: END IF;
4402: EXCEPTION
4403: WHEN NO_DATA_FOUND THEN
4396: ELSIF p_bureau_id IS NULL THEN
4397: p_bureau_id := '00';
4398: END IF ;
4399: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4400: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING GET FUND GROUP INFO ...');
4401: END IF;
4402: EXCEPTION
4403: WHEN NO_DATA_FOUND THEN
4404: g_error_buf := 'Get Fund Group Info: NO DATA FOUND for ccid : ' || p_ccid;
4406: DBMS_SQL.CLOSE_CURSOR(l_fund_cursor);
4407: g_error_code := 2 ;
4408: g_error_buf := 'GET FUND GROUP INFO - Exception (Others) - ' ||
4409: to_char(sqlcode) || ' - ' || sqlerrm ;
4410: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4411: END get_fund_group_info ;
4412: -- --------------------------------------------------------------------
4413: -- PROCEDURE POPULATE_TABLE
4414: -- --------------------------------------------------------------------
4469: p_sla_entity_id NUMBER ) IS
4470: l_module_name VARCHAR2(200);
4471: BEGIN
4472: l_module_name := g_module_name || 'populate_table';
4473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4470: l_module_name VARCHAR2(200);
4471: BEGIN
4472: l_module_name := g_module_name || 'populate_table';
4473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4471: BEGIN
4472: l_module_name := g_module_name || 'populate_table';
4473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4472: l_module_name := g_module_name || 'populate_table';
4473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATING FV_FACTS_TRX_TEMP TABLE ...');
4475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4475: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL ID :'||P_TREASURY_SYMBOL_ID);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4476: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID :'||P_SET_OF_BOOKS_ID);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4477: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID :'||P_CODE_COMBINATION_ID);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND VALUE :'||P_FUND_VALUE);
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT NUMBER :'||P_ACCOUNT_NUMBER);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4480: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC SOURCE :'||P_DOCUMENT_SOURCE);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4481: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DOC NUMBER :'||P_DOCUMENT_NUMBER);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4482: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TXN DATE :'||P_TRANSACTION_DATE);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREATION DATE/TIME :'||P_CREATION_DATE_TIME);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENTRY USER :'||P_ENTRY_USER);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FED/NON-FED :'||P_FED_NON_FED);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4486: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRADING PARTNER :'||SUBSTR(P_TRADING_PARTNER,1,6));
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4487: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EXCH/NON-EXCH :'||P_EXCH_NON_EXCH);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4488: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CUST/NON-CUST :'||P_CUST_NON_CUST);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BUDGET SUB FUNCTION:'||P_BUDGET_SUBFUNCTION);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4490: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEBIT :'||P_DEBIT);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CREDIT :'||P_CREDIT);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4492: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER DEPT ID :'||P_TRANSFER_DEPT_ID);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4493: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSFER MAIN ACCT :'||P_TRANSFER_MAIN_ACCT);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4494: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR BUDGET AUTH :'||P_YEAR_BUDGET_AUTH);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ADVANCE FLAG :'||P_BUDGET_FUNCTION);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' COHORT :'||P_COHORT);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGIN/END :'||P_BEGIN_END);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INDEF/DEF FLAG :'||P_INDEF_DEF_FLAG);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B DTL :'||P_APPOR_CAT_B_DTL);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4500: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT B TXT :'||P_APPOR_CAT_B_TXT);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN NUM :'||P_PRN_NUM);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PRN TEXT :'||P_PRN_TXT);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4503: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PUBLIC LAW :'||P_PUBLIC_LAW);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' APPOR CAT CODE :'||P_APPOR_CAT_CODE);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AUTHORITY TYPE :'||P_AUTHORITY_TYPE);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRANSACTION PARTNER:'||P_TRANSACTION_PARTNER);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4507: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' REIMBURSEABLE FLAG :'||P_REIMBURSEABLE_FLAG);
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4515:
4508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEA CATEGORY :'||P_BEA_CATEGORY);
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4515:
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4509: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BORROWING SOURCE :'||P_BORROWING_SOURCE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4515:
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEF LIQUID FLAG :'||P_DEF_LIQUID_FLAG);
4511: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' DEFICIENCY FLAG :'||P_DEFICIENCY_FLAG);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4515:
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AVAILABILITY FLAG :'||P_AVAILABILITY_FLAG);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4515:
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LEGISLATION FLAG :'||P_LEGISLATION_FLAG);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4515:
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PYA_FLAG :'||P_PYA_FLAG);
4515:
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4522: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4515:
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4522: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TRUNCATED APPOR CAT B TXT:'||SUBSTR(P_APPOR_CAT_B_TXT,1,25));
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4522: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE CREATION DATE :'||P_JE_LINE_CREATION_DATE);
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4522: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4525:
4518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE MODIFIED DATE :'||P_JE_LINE_MODIFIED_DATE);
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4522: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4525:
4526: END IF;
4519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE PERIOD NAME :'||P_JE_LINE_PERIOD_NAME);
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4522: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4525:
4526: END IF;
4527:
4520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL DATE :'||P_GL_DATE);
4521: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GL POSTED DATE :'||P_GL_POSTED_DATE);
4522: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER EVENT ID :'||P_SLA_HDR_EVENT_ID);
4523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA HEADER CREATON DATE :'||P_SLA_HDR_CREATION_DATE);
4524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SLA ENTITY ID :'||P_SLA_ENTITY_ID);
4525:
4526: END IF;
4527:
4528: INSERT INTO fv_facts_trx_temp
4633: p_sla_hdr_event_id,
4634: p_sla_hdr_creation_date,
4635: p_sla_entity_id );
4636:
4637: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4638: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATED FV_FACTS_TRX_TEMP TABLE ...');
4639: END IF;
4640: EXCEPTION
4641: WHEN OTHERS THEN
4634: p_sla_hdr_creation_date,
4635: p_sla_entity_id );
4636:
4637: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4638: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POPULATED FV_FACTS_TRX_TEMP TABLE ...');
4639: END IF;
4640: EXCEPTION
4641: WHEN OTHERS THEN
4642: g_error_code := SQLCODE ;
4640: EXCEPTION
4641: WHEN OTHERS THEN
4642: g_error_code := SQLCODE ;
4643: g_error_buf := 'POPULATE TABLE procedure, Error Occured -- ' || SQLERRM;
4644: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4645: END populate_table;
4646:
4647:
4648: -- -------------------------------------------------------------------
4714: AND set_of_books_id = g_set_of_books_id;
4715: g_attributes_found :='Y';
4716: EXCEPTION
4717: WHEN NO_DATA_FOUND THEN
4718: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'NO ATTRIBUTES DEFINIED FOR THE ACCOUNT - ' ||
4719: acct_num );
4720: g_attributes_found := 'N';
4721: RETURN;
4722: WHEN OTHERS THEN
4721: RETURN;
4722: WHEN OTHERS THEN
4723: g_error_code := sqlcode ;
4724: g_error_buf := sqlerrm ;
4725: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_3',g_error_buf);
4726: RETURN;
4727: END ;
4728:
4729:
4754: RETURN;
4755: WHEN OTHERS THEN
4756: g_error_code := sqlcode ;
4757: g_error_buf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;
4758: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_4',g_error_buf);
4759: RETURN;
4760: END ;
4761: ------------------------------------------------
4762: -- Deriving Indefinite Definite Flag
4988: EXCEPTION
4989: When Others Then
4990: g_error_code := sqlcode ;
4991: g_error_buf := sqlerrm || ' [LOAD_FACTS_ATTRIBUTES]' ;
4992: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
4993: return;
4994:
4995: END load_facts_attributes ;
4996: -- -------------------------------------------------------------------
5013: WHEN OTHERS THEN
5014: g_error_code := sqlcode ;
5015: g_error_buf := sqlerrm ||
5016: 'PURGE DATA';
5017: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
5018: RETURN ;
5019: END purge_facts_transactions ;
5020: -- -------------------------------------------------------------------
5021: -- PROCEDURE GET_SGL_PARENT
5070: FROM fv_facts_attributes
5071: WHERE facts_acct_number = sgl_acct_num
5072: AND set_of_books_id = g_set_of_books_id;
5073: -- Return the account Number
5074: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SGL PARENT ACCOUNT:'||
5076: sgl_acct_num||'-'||
5077: acct_num) ;
5078: END IF;
5071: WHERE facts_acct_number = sgl_acct_num
5072: AND set_of_books_id = g_set_of_books_id;
5073: -- Return the account Number
5074: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SGL PARENT ACCOUNT:'||
5076: sgl_acct_num||'-'||
5077: acct_num) ;
5078: END IF;
5079: RETURN ;
5088: RETURN ;
5089: WHEN OTHERS THEN
5090: g_error_code := SQLCODE ;
5091: g_error_buf := SQLERRM;
5092: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
5093: RETURN;
5094: END;
5095: End get_sgl_parent ;
5096: -- -------------------------------------------------------------------
5129: EXCEPTION
5130: WHEN NO_DATA_FOUND THEN
5131: g_error_code := -1 ;
5132: g_error_buf := 'No Financing Account found for the passed Treasury Symbol [GET_COHORT_INFO] ' ;
5133: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1',g_error_buf);
5134: RETURN;
5135: WHEN TOO_MANY_ROWS THEN
5136: g_error_code := -1 ;
5137: g_error_buf := 'More than one Financing Account returned for the passed Treasury Symbol [GET_COHORT_INFO]' ;
5134: RETURN;
5135: WHEN TOO_MANY_ROWS THEN
5136: g_error_code := -1 ;
5137: g_error_buf := 'More than one Financing Account returned for the passed Treasury Symbol [GET_COHORT_INFO]' ;
5138: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception2',g_error_buf);
5139: RETURN;
5140: WHEN OTHERS THEN
5141: g_error_code := SQLCODE ;
5142: g_error_buf := 'WHEN OTHERS IN [GET_COHORT_INFO]'||SQLERRM;
5139: RETURN;
5140: WHEN OTHERS THEN
5141: g_error_code := SQLCODE ;
5142: g_error_buf := 'WHEN OTHERS IN [GET_COHORT_INFO]'||SQLERRM;
5143: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_error_buf);
5144: RETURN;
5145: END get_cohort_info ;
5146: --------------------------------------------------------------------------------
5147: -- Get program segments, for all fund values of the given treasury_symbol, from
5313: EXCEPTION
5314: WHEN OTHERS THEN
5315: g_error_buf := SQLERRM;
5316: g_error_code := -1;
5317: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5318: l_module_name||'.final_exception',g_error_buf);
5319:
5320: END load_program_seg;
5321: --------------------------------------------------------------------------------
5477: EXCEPTION
5478: WHEN OTHERS THEN
5479: g_error_buf := SQLERRM;
5480: g_error_code := -1;
5481: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5482: l_module_name||'.final_exception',g_error_buf);
5483: RAISE;
5484:
5485: END get_prc_val;
5879: EXCEPTION
5880: WHEN OTHERS THEN
5881: g_error_buf := SQLERRM;
5882: g_error_code := -1;
5883: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5884: l_module_name||'.final_exception',g_error_buf);
5885: END group_po_rec_lines ;
5886: --------------------------------------------------------------------------------
5887: PROCEDURE get_trx_part_from_reimb
5889:
5890: l_module_name VARCHAR2(200) := g_module_name || 'get_trx_part_from_reimb';
5891: l_cust_class_code VARCHAR2(25);
5892: BEGIN
5893: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5894: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5895: 'BEGIN '||l_module_name);
5896: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5897: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
5890: l_module_name VARCHAR2(200) := g_module_name || 'get_trx_part_from_reimb';
5891: l_cust_class_code VARCHAR2(25);
5892: BEGIN
5893: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5894: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5895: 'BEGIN '||l_module_name);
5896: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5897: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
5898: END IF;
5892: BEGIN
5893: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5894: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5895: 'BEGIN '||l_module_name);
5896: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5897: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
5898: END IF;
5899: SELECT hzca.customer_class_code
5900: INTO l_cust_class_code
5909: ELSIF l_cust_class_code <> 'FEDERAL' THEN
5910: g_transaction_partner_val := 'X';
5911: END IF;
5912:
5913: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5914: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5915: 'g_transaction_partner_val:'||g_transaction_partner_val);
5916: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5917: 'END '||l_module_name);
5910: g_transaction_partner_val := 'X';
5911: END IF;
5912:
5913: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5914: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5915: 'g_transaction_partner_val:'||g_transaction_partner_val);
5916: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5917: 'END '||l_module_name);
5918: END IF;
5912:
5913: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5914: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5915: 'g_transaction_partner_val:'||g_transaction_partner_val);
5916: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5917: 'END '||l_module_name);
5918: END IF;
5919: EXCEPTION
5920: WHEN NO_DATA_FOUND THEN
5922: ('No record found for trx number: '||p_reimb_agree_seg_val);
5923: WHEN OTHERS THEN
5924: g_error_buf := SQLERRM;
5925: g_error_code := -1;
5926: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5927: l_module_name||'.final_exception',g_error_buf);
5928: END get_trx_part_from_reimb;
5929: --------------------------------------------------------------------------------
5930: PROCEDURE get_fnf_from_reimb
5932:
5933: l_module_name VARCHAR2(200) := g_module_name || 'get_fnf_from_reimb';
5934: l_cust_class_code VARCHAR2(25);
5935: BEGIN
5936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5938: 'BEGIN '||l_module_name);
5939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5940: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
5933: l_module_name VARCHAR2(200) := g_module_name || 'get_fnf_from_reimb';
5934: l_cust_class_code VARCHAR2(25);
5935: BEGIN
5936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5938: 'BEGIN '||l_module_name);
5939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5940: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
5941: END IF;
5935: BEGIN
5936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5938: 'BEGIN '||l_module_name);
5939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5940: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
5941: END IF;
5942: SELECT hzca.customer_class_code
5943: INTO l_cust_class_code
5952: ELSIF l_cust_class_code <> 'FEDERAL' THEN
5953: g_govt_non_govt_val := 'N';
5954: END IF;
5955:
5956: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5957: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5958: 'g_transaction_partner_val:'||g_transaction_partner_val);
5959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5960: 'END '||l_module_name);
5953: g_govt_non_govt_val := 'N';
5954: END IF;
5955:
5956: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5957: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5958: 'g_transaction_partner_val:'||g_transaction_partner_val);
5959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5960: 'END '||l_module_name);
5961: END IF;
5955:
5956: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5957: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5958: 'g_transaction_partner_val:'||g_transaction_partner_val);
5959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5960: 'END '||l_module_name);
5961: END IF;
5962: EXCEPTION
5963: WHEN NO_DATA_FOUND THEN
5967: g_govt_non_govt_val := 'N';
5968: WHEN OTHERS THEN
5969: g_error_buf := SQLERRM;
5970: g_error_code := -1;
5971: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5972: l_module_name||'.final_exception',g_error_buf);
5973: END get_fnf_from_reimb;
5974: --------------------------------------------------------------------------------
5975: PROCEDURE group_payables_lines IS
6200: EXCEPTION
6201: WHEN OTHERS THEN
6202: g_error_buf := SQLERRM;
6203: g_error_code := -1;
6204: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
6205: l_module_name||'.final_exception',g_error_buf);
6206: END;
6207: --------------------------------------------------------------------------------
6208: