351:
352: -- Write the HTML header section
353: v_status_code := 'WRITE_HTML_HDR';
354:
355: FND_FILE.put_line
356: (FND_FILE.output,
357: ''
358: ||pv_nl||'
352: -- Write the HTML header section
353: v_status_code := 'WRITE_HTML_HDR';
354:
355: FND_FILE.put_line
356: (FND_FILE.output,
357: ''
358: ||pv_nl||'
361: ||'
379: ||'sans-serif; font-size:10pt; color:#000000}'
380: ||pv_nl||' .OraCopyright{ display: none; } .OraLegal{ display: none; } .OraPrivacy{ display: none; } tr:hover td.OraTableCellText{ background-color: wheat; } ');
381:
382: FND_FILE.put_line
383: (FND_FILE.output,
384: pv_nl||''
385: ||pv_nl||'
386:
387: -- Write the report title
388: v_status_code := 'WRITE_RPT_TITLE';
389:
390: FND_FILE.put_line
391: (FND_FILE.output,
392: pv_nl||'
387: -- Write the report title
388: v_status_code := 'WRITE_RPT_TITLE';
389:
390: FND_FILE.put_line
391: (FND_FILE.output,
392: pv_nl||'
395: ||pv_nl||'
396: ||TO_CHAR(SYSDATE, 'DD-MON-YY HH:MM:SS')||'
405: v_status_code := 'CHECK_UNASSIGNED_ALC';
406: -- Check if there are any unassigned ALCs
407:
408: -- Print section title
409: FND_FILE.put_line
410: (FND_FILE.output,
411: pv_nl||'
'
412: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_UNASSIGN_RC')
413: ||'
');
406: -- Check if there are any unassigned ALCs
407:
408: -- Print section title
409: FND_FILE.put_line
410: (FND_FILE.output,
411: pv_nl||'
'
412: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_UNASSIGN_RC')
413: ||'
');
414:
438:
439: END IF;
440:
441: -- Print the row text
442: FND_FILE.put_line(FND_FILE.output, pv_nl||v_unassigned_alc.row_text);
443:
444: END LOOP;
445:
446: -- Check if we have print Unassigned ALC table
446: -- Check if we have print Unassigned ALC table
447: IF (v_status_code = 'PRINT_UNASSIGNED_ALC_ROW')
448: THEN
449: -- Some rows are printed
450: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
451: ELSE
452: -- No setup issues are found
453: FND_FILE.put_line(FND_FILE.output,
454: pv_nl||''
449: -- Some rows are printed
450: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
451: ELSE
452: -- No setup issues are found
453: FND_FILE.put_line(FND_FILE.output,
454: pv_nl||''
455: ||FND_MESSAGE.Get_String('SQLGL',
456: 'GL_ASU_NO_ISSUES')
457: ||'
');
460: v_status_code := 'CHECK_MULTI_SRC_ALC';
461: -- Check if there are any ALCs assigned to multiple Sources
462:
463: -- Print section title
464: FND_FILE.put_line
465: (FND_FILE.output,
466: pv_nl||'
'
467: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_MULTI_SRC_RC')
468: ||'
');
461: -- Check if there are any ALCs assigned to multiple Sources
462:
463: -- Print section title
464: FND_FILE.put_line
465: (FND_FILE.output,
466: pv_nl||'
'
467: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_MULTI_SRC_RC')
468: ||'
');
469:
497:
498: END IF;
499:
500: -- Print the row text
501: FND_FILE.put_line(FND_FILE.output, pv_nl||v_multi_src_alc.row_text);
502:
503: END LOOP;
504:
505: -- Check if we have print Multi-Source ALC table
505: -- Check if we have print Multi-Source ALC table
506: IF (v_status_code = 'PRINT_MULTI_SRC_ALC_ROW')
507: THEN
508: -- Some rows are printed
509: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
510: ELSE
511: -- No setup issues are found
512: FND_FILE.put_line(FND_FILE.output,
513: pv_nl||''
508: -- Some rows are printed
509: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
510: ELSE
511: -- No setup issues are found
512: FND_FILE.put_line(FND_FILE.output,
513: pv_nl||''
514: ||FND_MESSAGE.Get_String('SQLGL',
515: 'GL_ASU_NO_ISSUES')
516: ||'
');
519: v_status_code := 'CHECK_ALC_TCURR';
520: -- Check if any ALC Ledgers have Balance Level ALC
521:
522: -- Print section title
523: FND_FILE.put_line
524: (FND_FILE.output,
525: pv_nl||'
'
526: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_BLRC_SRC')
527: ||'
');
520: -- Check if any ALC Ledgers have Balance Level ALC
521:
522: -- Print section title
523: FND_FILE.put_line
524: (FND_FILE.output,
525: pv_nl||'
'
526: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_BLRC_SRC')
527: ||'
');
528:
555:
556: END IF;
557:
558: -- Print the row text
559: FND_FILE.put_line(FND_FILE.output, pv_nl||v_alc_tcurr.row_text);
560:
561: END LOOP;
562:
563: -- Check if we have print RSOB Translated Currencies table
563: -- Check if we have print RSOB Translated Currencies table
564: IF (v_status_code = 'PRINT_ALC_TCURR_ROW')
565: THEN
566: -- Some rows are printed
567: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
568: ELSE
569: -- No setup issues are found
570: FND_FILE.put_line(FND_FILE.output,
571: pv_nl||''
566: -- Some rows are printed
567: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
568: ELSE
569: -- No setup issues are found
570: FND_FILE.put_line(FND_FILE.output,
571: pv_nl||''
572: ||FND_MESSAGE.Get_String('SQLGL',
573: 'GL_ASU_NO_ISSUES')
574: ||'
');
577: v_status_code := 'CHECK_JOURNAL_ALC';
578: -- Check if there are any journal level ALC Ledgers
579:
580: -- Print section title
581: FND_FILE.put_line
582: (FND_FILE.output,
583: pv_nl||'
'
584: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_JLRC_REVIEW')
585: ||'
');
578: -- Check if there are any journal level ALC Ledgers
579:
580: -- Print section title
581: FND_FILE.put_line
582: (FND_FILE.output,
583: pv_nl||'
'
584: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_JLRC_REVIEW')
585: ||'
');
586:
614:
615: END IF;
616:
617: -- Print the row text
618: FND_FILE.put_line(FND_FILE.output, pv_nl||v_journal_alc.row_text);
619:
620: END LOOP;
621:
622: -- Check if we have print Journal Level ALC Ledgers table
622: -- Check if we have print Journal Level ALC Ledgers table
623: IF (v_status_code = 'PRINT_JOURNAL_ALC_ROW')
624: THEN
625: -- Some rows are printed
626: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
627: ELSE
628: -- No setup issues are found
629: FND_FILE.put_line(FND_FILE.output,
630: pv_nl||''
625: -- Some rows are printed
626: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
627: ELSE
628: -- No setup issues are found
629: FND_FILE.put_line(FND_FILE.output,
630: pv_nl||''
631: ||FND_MESSAGE.Get_String('SQLGL',
632: 'GL_ASU_NO_ISSUES')
633: ||'
');
637: -- Check if there are any Subledger Level ALC GL relationships created by
638: -- the Upgrade
639:
640: -- Print section title
641: FND_FILE.put_line
642: (FND_FILE.output,
643: pv_nl||'
'
644: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_GL_CRT')
645: ||'
');
638: -- the Upgrade
639:
640: -- Print section title
641: FND_FILE.put_line
642: (FND_FILE.output,
643: pv_nl||'
'
644: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_GL_CRT')
645: ||'
');
646:
683: v_status_code := 'PRINT_CRT_GL_RS_ROW';
684:
685: END IF;
686:
687: FND_FILE.put_line(FND_FILE.output, pv_nl||v_crt_gl_rs.row_text);
688:
689: END LOOP;
690:
691: -- Check if we have print GL Setup Created by Upgrade table
691: -- Check if we have print GL Setup Created by Upgrade table
692: IF (v_status_code = 'PRINT_CRT_GL_RS_ROW')
693: THEN
694: -- Some rows are printed
695: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
696: ELSE
697: -- No setup issues are found
698: FND_FILE.put_line(FND_FILE.output,
699: pv_nl||''
694: -- Some rows are printed
695: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
696: ELSE
697: -- No setup issues are found
698: FND_FILE.put_line(FND_FILE.output,
699: pv_nl||''
700: ||FND_MESSAGE.Get_String('SQLGL',
701: 'GL_ASU_NO_ISSUES')
702: ||'
');
705: v_status_code := 'CHECK_INVALID_JRULE';
706: -- Check if there are any invalid journal inclusion rules setup
707:
708: -- Print section title
709: FND_FILE.put_line
710: (FND_FILE.output,
711: pv_nl||'
'
712: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_JRULE')
713: ||'
');
706: -- Check if there are any invalid journal inclusion rules setup
707:
708: -- Print section title
709: FND_FILE.put_line
710: (FND_FILE.output,
711: pv_nl||'
'
712: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_JRULE')
713: ||'
');
714:
742:
743: END IF;
744:
745: -- Print the row text
746: FND_FILE.put_line(FND_FILE.output, pv_nl||v_invalid_jrule.row_text);
747:
748: END LOOP;
749:
750: -- Check if we have print Invalid Journal Inclusion Rules table
750: -- Check if we have print Invalid Journal Inclusion Rules table
751: IF (v_status_code = 'PRINT_INVALID_JRULE_ROW')
752: THEN
753: -- Some rows are printed
754: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
755: ELSE
756: -- No setup issues are found
757: FND_FILE.put_line(FND_FILE.output,
758: pv_nl||''
753: -- Some rows are printed
754: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
755: ELSE
756: -- No setup issues are found
757: FND_FILE.put_line(FND_FILE.output,
758: pv_nl||''
759: ||FND_MESSAGE.Get_String('SQLGL',
760: 'GL_ASU_NO_ISSUES')
761: ||'
');
764: v_status_code := 'CHECK_DIFF_SETUP_ALC';
765: -- Check if there are any ALC with inconsistent setup
766:
767: -- Print section title
768: FND_FILE.put_line
769: (FND_FILE.output,
770: pv_nl||'
'
771: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_DIFF')
772: ||'
');
765: -- Check if there are any ALC with inconsistent setup
766:
767: -- Print section title
768: FND_FILE.put_line
769: (FND_FILE.output,
770: pv_nl||'
'
771: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_DIFF')
772: ||'
');
773:
805:
806: END IF;
807:
808: -- Print the row text
809: FND_FILE.put_line(FND_FILE.output, pv_nl||v_diff_setup_alc.row_text);
810:
811: END LOOP;
812:
813: -- Check if we have print Inconsisent ALC Setup table
813: -- Check if we have print Inconsisent ALC Setup table
814: IF (v_status_code = 'PRINT_DIFF_SETUP_ALC_ROW')
815: THEN
816: -- Some rows are printed
817: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
818: ELSE
819: -- No setup issues are found
820: FND_FILE.put_line(FND_FILE.output,
821: pv_nl||''
816: -- Some rows are printed
817: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
818: ELSE
819: -- No setup issues are found
820: FND_FILE.put_line(FND_FILE.output,
821: pv_nl||''
822: ||FND_MESSAGE.Get_String('SQLGL',
823: 'GL_ASU_NO_ISSUES')
824: ||'
');
827: v_status_code := 'CHECK_PARTIAL_SETUP_ALC';
828: -- Check if there are any ALC Ledgers with partial setup only
829:
830: -- Print section title
831: FND_FILE.put_line
832: (FND_FILE.output,
833: pv_nl||'
'
834: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_PARTIAL')
835: ||'
');
828: -- Check if there are any ALC Ledgers with partial setup only
829:
830: -- Print section title
831: FND_FILE.put_line
832: (FND_FILE.output,
833: pv_nl||'
'
834: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_POST_SLRC_PARTIAL')
835: ||'
');
836:
862:
863: END IF;
864:
865: -- Print the row text
866: FND_FILE.put_line(FND_FILE.output, pv_nl||v_partial_setup_alc.row_text);
867:
868: END LOOP;
869:
870: -- Check if we have print Incomplete ALC Setup table
870: -- Check if we have print Incomplete ALC Setup table
871: IF (v_status_code = 'PRINT_PARTIAL_SETUP_ALC_ROW')
872: THEN
873: -- Some rows are printed
874: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
875: ELSE
876: -- No setup issues are found
877: FND_FILE.put_line(FND_FILE.output,
878: pv_nl||''
873: -- Some rows are printed
874: FND_FILE.put_line(FND_FILE.output, pv_nl||'
');
875: ELSE
876: -- No setup issues are found
877: FND_FILE.put_line(FND_FILE.output,
878: pv_nl||''
879: ||FND_MESSAGE.Get_String('SQLGL',
880: 'GL_ASU_NO_ISSUES')
881: ||'
');
881: ||'
');
882: END IF;
883:
884: -- Complete the HTML report
885: FND_FILE.put_line(FND_FILE.output, pv_nl||'');
886:
887: -- Log the success exit
888: GL_MESSAGE.Func_Succ(func_name => v_func_name,
889: log_level => pc_log_level_procedure,
904: x_errbuf := SQLERRM;
905: x_retcode := SQLCODE;
906:
907: -- Print the fatal error message
908: FND_FILE.put_line
909: (FND_FILE.output,
910: pv_nl||'
'
911: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_FATAL_ERROR')
912: ||'
');
905: x_retcode := SQLCODE;
906:
907: -- Print the fatal error message
908: FND_FILE.put_line
909: (FND_FILE.output,
910: pv_nl||'
'
911: ||FND_MESSAGE.Get_String('SQLGL', 'GL_ASU_FATAL_ERROR')
912: ||'
');
913: -- Complete the HTML report