added LSL2 stored procedures

LSL2/STPROC/FIX_MFC.txt

@@ -0,0 +1,49 @@
+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:
+* * * * * * *
+
+