GO_BLOCK('MDT_DISSRCP_TEMP3');
	EXECUTE_QUERY;
	FIRST_RECORD;
	LOOP
		EXIT WHEN :SYSTEM.RECORD_STATUS ='NEW';	

BEGIN
		
	SELECT RAIL_CODE, YEAR_CODE, DEPOT_CODE, WARD_CODE, PL_NO, PL_CAT, NLU, PD_RATE INTO
	MRAIL, MYEAR, MDEPOT, MWARD, MPL, MCAT, MNLU, MPDR FROM MGM_PLMASTER_DEPOT_TEMP WHERE
	MDEPOT = :MDT_DISSRCP_TEMP3.DEPOT_CODE AND MYEAR = :MDT_DISSRCP_TEMP3.YEAR_CODE AND
	MPL = :MDT_DISSRCP_TEMP3.PL_NO AND MWARD = :MDT_DISSRCP_TEMP3.WARD_CODE;

IF :MDT_DISSRCP_TEMP3.DEPOT_CODE||:MDT_DISSRCP_TEMP3.WARD_CODE||:MDT_DISSRCP_TEMP3.PL_NO !=
		MDEPOT||MWARD||MPL THEN
		PLER := 'PL001';
		INSERT INTO MDT_ERROR_DET (SEQ_NO,ERRCODE) VALUES (:MDT_DISSRCP_TEMP3.SEQ_NO,PLER);
		ERFLG := 1;
	ELSE IF :MDT_DISSRCP_TEMP3.DEPOT_CODE||:MDT_DISSRCP_TEMP3.WARD_CODE||:MDT_DISSRCP_TEMP3.PL_NO||:MDT_DISSRCP_TEMP3.PL_CAT !=
		MDEPOT||MWARD||MPL||MCAT THEN
		CATER := 'CAT02';
		INSERT INTO MDT_ERROR_DET (SEQ_NO,ERRCODE) VALUES (:MDT_DISSRCP_TEMP3.SEQ_NO,CATER);
		ERFLG := 1;
	ELSE IF :MDT_DISSRCP_TEMP3.DEPOT_CODE||:MDT_DISSRCP_TEMP3.WARD_CODE||:MDT_DISSRCP_TEMP3.PL_NO||:MDT_DISSRCP_TEMP3.PL_CAT||:MDT_DISSRCP_TEMP3.UOM_CCODE !=
		MDEPOT||MWARD||MPL||MCAT||MNLU THEN
		UTER := 'UT002';
		INSERT INTO MDT_ERROR_DET (SEQ_NO,ERRCODE) VALUES (:MDT_DISSRCP_TEMP3.SEQ_NO,UTER);
		ERFLG := 1;
	END IF;
	END IF;
	END IF;
	EXCEPTION
					WHEN NO_DATA_FOUND THEN
					NULL;
					WHEN TOO_MANY_ROWS THEN
					NULL;
	END;

END LOOP;