COMPILE ROUTINE FIX_MFC(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
DECLARE FUNCTION Get_Status, Set_Printer

$INSERT MFC_EQUATES


OPEN 'MFC' To FileIn ELSE
	DEBUG
	GOTO Bail
END


Select FileIn


Done = 0
RecCnt = 0
LOOP
	READNEXT MFCKey ELSE Done = 1
UNTIL Done 
	READ MFCRec FROM FileIn,MFCKey THEN
	
		WriteFlag = 0
		IF MFCRec<MFC_ASM_PN$> = '54-117817A02' THEN
			IF MFCRec<MFC_OUTLET_PRESS$> NE 'ATM' THEN
				RecCnt += 1
				MFCRec<MFC_OUTLET_PRESS$> = 'ATM'
				WRITE MFCRec ON FileIn,MFCKey THEN
					Send_Dyn(RecCnt:' ':MFCKey)
				END
			END
		END
	END
REPEAT




IF Get_Status(errCode) THEN DEBUG


* * * * * * *
Bail:
* * * * * * *


