I am out of the office August 11 and 12, 2003

**** Automated Reply*****

>>> "[EMAIL PROTECTED]" 08/11/03 20:04 >>>

I am out of the office August 11 and 12, 2003


**** Automated Reply*****

>>> "[EMAIL PROTECTED]" 08/11/03 19:16 >>>

Paul,

Thanks - I was getting worried about Steve.  Glad to hear he is just out of
the office.  If his "Out of Office" continues to notify everyone at its
current rate, then I think we'll all welcome him back in two days with a
heart-felt wave of appreciation ...

Dennis Sanderson
Programmer / Analyst
Brooks Health System
MCSD, MCSE, MCDBA

-----Original Message-----
From: Paul [mailto:[EMAIL PROTECTED]
Sent: Monday, August 11, 2003 7:11 PM
To: [EMAIL PROTECTED]
Subject: [Talk] Where's Steve?

Just in case anybody was wondering....

Steve is out of the office for the next two days.

:   )

Paul

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Steve Rop
Sent: Monday, August 11, 2003 3:27 PM
To: [EMAIL PROTECTED]
Subject: Re: [Talk] Processing ext. txt file (Out of the office)

I am out of the office August 11 and 12, 2003


**** Automated Reply*****

>>> "[EMAIL PROTECTED]" 08/11/03 15:47 >>>

I am out of the office August 11 and 12, 2003


**** Automated Reply*****

>>> "[EMAIL PROTECTED]" 08/11/03 11:30 >>>

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