Hello everyone,  me again.  Still working with this external file and have this little snag.
It cycles through the records pretty well until it comes across two items that meet this
criteria:     If At("Not found.  New?  Y") Then
 
For some reason the script does not acknowledge the second time it sees this and just goes
to the Else statement.  How to I reset the script after the first ocurrence of this condition?
Actually, do I need to reset it?
 
Thanks,
 
Scott
 
If LOF(F) < Len(Rec) Then Stop    ' no source file
             
    Do While Not EOF(F)
        DoEvents
BeginCycle:
        Line Input #F, InputRecord
        If Len(InputRecord) > 10 Then         ' skip blank lines
            Proc = Trim(Mid(InputRecord, 1, 10))
            Amt = Trim(Mid(InputRecord, 12, 10))
                          
                Enter Proc
                Wait 0.5
                If At("Not found.  New?  Y") Then
                    Wait 0.5
                    Key "{F10}"
                     Wait 0.5
                    Enter ""
                    Key "{F10}"
                     Wait 0.5
                    GoTo BeginCycle
                Else

CONFIDENTIALITY NOTICE: This e-mail communication and any attachments may contain confidential and privileged information for the use of the designated recipients named above. If you are not the intended recipient, you are hereby notified that you have received this communication in error and that any review, disclosure, dissemination, distribution or copying of it or its contents is prohibited. If you have received this communication in error, please notify Saratoga Hospital immediately by e-mail at [EMAIL PROTECTED] and destroy all copies of this communication and any attachments.

Reply via email to