348: FEM_ENGINES_PKG.USER_MESSAGE(
349: p_app_name => 'FEM',
350: p_msg_text => 'PRINT_REPORT: ' || p_print_report_flag );
351:
352: FND_FILE.put_line(FND_FILE.LOG,null);
353:
354: --
355: -- Validate the dimensional information of all interface records
356: --
520: p_module => vc_module,
521: p_msg_text => 'SQL to report is ');
522: END IF;
523:
524: FND_FILE.put_line(FND_FILE.LOG,null);
525:
526: FEM_ENGINES_PKG.USER_MESSAGE(
527: p_app_name => 'FEM',
528: p_msg_text => 'SQL to report is ');
526: FEM_ENGINES_PKG.USER_MESSAGE(
527: p_app_name => 'FEM',
528: p_msg_text => 'SQL to report is ');
529:
530: FND_FILE.put_line(FND_FILE.LOG,null);
531:
532: -- Bug 5398129 hkaniven start
533: v_count := 1;
534: LOOP
599:
600: IF pv_print_report THEN
601: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_ERR_NUM');
602: FND_MESSAGE.set_token('NUM',pv_num_rows);
603: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
604: FND_MESSAGE.set_name('FEM','FEM_INTF_PRINT_ERR_NUM');
605: FND_MESSAGE.set_token('NUM',pv_num_rec_to_print);
606: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
607:
602: FND_MESSAGE.set_token('NUM',pv_num_rows);
603: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
604: FND_MESSAGE.set_name('FEM','FEM_INTF_PRINT_ERR_NUM');
605: FND_MESSAGE.set_token('NUM',pv_num_rec_to_print);
606: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
607:
608: FND_FILE.put_line(FND_FILE.OUTPUT,null);
609:
610: IF v_has_id_number THEN
604: FND_MESSAGE.set_name('FEM','FEM_INTF_PRINT_ERR_NUM');
605: FND_MESSAGE.set_token('NUM',pv_num_rec_to_print);
606: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
607:
608: FND_FILE.put_line(FND_FILE.OUTPUT,null);
609:
610: IF v_has_id_number THEN
611: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_REP1');
612: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
608: FND_FILE.put_line(FND_FILE.OUTPUT,null);
609:
610: IF v_has_id_number THEN
611: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_REP1');
612: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
613: ELSE
614: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_REP2');
615: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
616: END IF;
611: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_REP1');
612: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
613: ELSE
614: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_REP2');
615: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
616: END IF;
617:
618: FND_FILE.put_line(FND_FILE.OUTPUT,'------------------ ----------------------------------------------------------------------------------------------------------------');
619: FND_FILE.put_line(FND_FILE.OUTPUT,null);
614: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_REP2');
615: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
616: END IF;
617:
618: FND_FILE.put_line(FND_FILE.OUTPUT,'------------------ ----------------------------------------------------------------------------------------------------------------');
619: FND_FILE.put_line(FND_FILE.OUTPUT,null);
620:
621: v_rec_count := 0;
622:
615: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
616: END IF;
617:
618: FND_FILE.put_line(FND_FILE.OUTPUT,'------------------ ----------------------------------------------------------------------------------------------------------------');
619: FND_FILE.put_line(FND_FILE.OUTPUT,null);
620:
621: v_rec_count := 0;
622:
623: IF v_has_id_number THEN
641: v_dimension_name_part := SUBSTR(v_dimension_name, v_start, v_end - v_start + 1);
642: EXIT WHEN v_dimension_name_part IS NULL;
643:
644: IF v_start = 1 THEN
645: FND_FILE.put_line(FND_FILE.OUTPUT, rpad(v_id_num,20,' ') || v_dimension_name_part);
646: ELSE
647: FND_FILE.put_line(FND_FILE.OUTPUT,' ' || v_dimension_name_part);
648: END IF;
649:
643:
644: IF v_start = 1 THEN
645: FND_FILE.put_line(FND_FILE.OUTPUT, rpad(v_id_num,20,' ') || v_dimension_name_part);
646: ELSE
647: FND_FILE.put_line(FND_FILE.OUTPUT,' ' || v_dimension_name_part);
648: END IF;
649:
650: v_start := v_end + 1 ;
651: END LOOP;
672: v_dimension_name_part := SUBSTR(v_dimension_name, v_start, v_end - v_start + 1);
673: EXIT WHEN v_dimension_name_part IS NULL;
674:
675: IF v_start = 1 THEN
676: FND_FILE.put_line(FND_FILE.OUTPUT, rpad(v_rowid,20,' ') || v_dimension_name_part);
677: ELSE
678: FND_FILE.put_line(FND_FILE.OUTPUT,' ' || v_dimension_name_part);
679: END IF;
680:
674:
675: IF v_start = 1 THEN
676: FND_FILE.put_line(FND_FILE.OUTPUT, rpad(v_rowid,20,' ') || v_dimension_name_part);
677: ELSE
678: FND_FILE.put_line(FND_FILE.OUTPUT,' ' || v_dimension_name_part);
679: END IF;
680:
681: v_start := v_end + 1 ;
682: END LOOP;
686: END IF;
687: END IF;
688: ELSIF NOT v_no_data_found THEN
689: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_SUCC');
690: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
691: FND_FILE.put_line(FND_FILE.OUTPUT,null);
692:
693: FEM_ENGINES_PKG.User_Message
694: (p_app_name => 'FEM',
687: END IF;
688: ELSIF NOT v_no_data_found THEN
689: FND_MESSAGE.set_name('FEM','FEM_INTF_VALIDATE_SUCC');
690: FND_FILE.put_line(FND_FILE.OUTPUT, FND_MESSAGE.get);
691: FND_FILE.put_line(FND_FILE.OUTPUT,null);
692:
693: FEM_ENGINES_PKG.User_Message
694: (p_app_name => 'FEM',
695: p_msg_name => 'FEM_INTF_VALIDATE_SUCC');