289: l_data_fix := p_data_fix;
290: --We are making migration_id and p_data_fix flag independent....
291: IF (p_migration_id IS NULL) THEN
292: mig_name := 'QM Migration Data Validation Script';
293: migration_id := GMA_MIGRATION.gma_migration_start( p_app_short_name =>
294: 'GMD',
295: p_mig_name =>
296: mig_name);
297: ELSE
394: OL-Overlap cannot be resolved.
395: */
396: --Bug start 3542894
397: l_position := 51;
398: GMA_MIGRATION.gma_insert_message (
399: p_run_id => migration_id,
400: p_table_name => 'QC_SPEC_MST',
401: p_DB_ERROR => '',
402: p_param1 => '',
418: SET from_date = l_samples_date.min_date,
419: to_date = l_samples_date.max_date
420: WHERE qc_spec_id = l_spec_less_from_date.qc_spec_id;
421: END IF;
422: GMA_MIGRATION.gma_insert_message (
423: p_run_id => migration_id,
424: p_table_name => 'QC_SPEC_MST',
425: p_DB_ERROR => '',
426: p_param1 => l_spec_less_from_date.qc_spec_id,
443: UPDATE qc_spec_mst
444: SET migration_status = 'WD'
445: WHERE qc_spec_id = l_spec_less_from_date.qc_spec_id;
446: END IF;
447: GMA_MIGRATION.gma_insert_message (
448: p_run_id => migration_id,
449: p_table_name => 'QC_SPEC_MST',
450: p_DB_ERROR => '',
451: p_param1 => l_spec_less_from_date.qc_spec_id,
462: END IF;
463: END LOOP;
464: END LOOP;
465: l_position:=59;
466: GMA_MIGRATION.gma_insert_message (
467: p_run_id => migration_id,
468: p_table_name => 'QC_SPEC_MST',
469: p_DB_ERROR => '',
470: p_param1 => '',
485: -- of_vendor_id
486: FOR l_null_vendor_id_spec IN c_null_vendor_id_spec
487: LOOP
488: -- The spec vendor_id does not have corresponding of_vendor_id
489: GMA_MIGRATION.gma_insert_message (
490: p_run_id => migration_id,
491: p_table_name => 'QC_SPEC_MST',
492: p_DB_ERROR => '',
493: p_param1 => l_null_vendor_id_spec.qc_spec_id,
552: -- B3568239 END
553:
554:
555: l_position :=60;
556: GMA_MIGRATION.gma_insert_message (
557: p_run_id => migration_id,
558: p_table_name => 'QC_SPEC_MST',
559: p_DB_ERROR => '',
560: p_param1 => '',
598: is_total_overlap := TRUE;
599: l_position :=90;
600: --dbms_output.put_line('Is overlap true is true, no processing exit...');
601: -- CN Just return or continue after marking Spec, Smpl and Rslt
602: GMA_MIGRATION.gma_insert_message (
603: p_run_id => migration_id,
604: p_table_name => 'QC_SPEC_TEST',
605: p_DB_ERROR => '',
606: p_param1 => l_specs.l_a_qc_spec_id,
670: l_position :=120;
671:
672:
673:
674: GMA_MIGRATION.gma_insert_message (
675: p_run_id => migration_id,
676: p_table_name => 'QC_SPEC_TEST',
677: p_DB_ERROR => '',
678: p_param1 => l_specs.l_a_qc_spec_id,
697: WHERE qc_spec_id = l_specs.l_a_qc_spec_id;
698: END IF;
699: l_position :=130;
700:
701: GMA_MIGRATION.gma_insert_message (
702: p_run_id => migration_id,
703: p_table_name => 'QC_SPEC_TEST',
704: p_DB_ERROR => '',
705: p_param1 => l_specs.l_a_qc_spec_id,
728: END IF;
729:
730: l_position :=150;
731:
732: GMA_MIGRATION.gma_insert_message (
733: p_run_id => migration_id,
734: p_table_name => 'QC_SPEC_TEST',
735: p_DB_ERROR => '',
736: p_param1 => l_specs.l_a_qc_spec_id,
770: END IF;
771:
772: l_position :=180;
773:
774: GMA_MIGRATION.gma_insert_message (
775: p_run_id => migration_id,
776: p_table_name => 'QC_SPEC_TEST',
777: p_DB_ERROR => '',
778: p_param1 => l_specs.l_a_qc_spec_id,
788: ELSE
789:
790: unable_to_resolve := TRUE;
791: l_position :=190;
792: GMA_MIGRATION.gma_insert_message (
793: p_run_id => migration_id,
794: p_table_name => 'QC_SPEC_TEST',
795: p_DB_ERROR => '',
796: p_param1 => l_specs.l_a_qc_spec_id,
875: --------------------------------
876: EXCEPTION
877: WHEN OTHERS THEN
878: x_return_status := 'U';
879: GMA_MIGRATION.gma_insert_message (
880: p_run_id => migration_id,
881: p_table_name => 'QC_SPEC_MST',
882: p_DB_ERROR => sqlerrm,
883: p_param1 => '',
884: p_param2 => '',
885: p_param3 => '',
886: p_param4 => '',
887: p_param5 => '',
888: p_message_token => 'GMA_MIGRATION_DB_ERROR',
889: p_message_type => 'E',
890: p_line_no => '1',
891: p_position => l_position,
892: p_base_message => 'Validation DB ERROR '||sqlerrm);