I had the software assurance...got 2005 std for the cost of the media. Less than $30.

Here is how I did it:

Function Main()

Dim oFSO, sImportFile ...

I think I figured it out.

Instead of: SELECT *

I did: SELECT tblVisit.*

I got it to work! Thanks for all your advice!

DavidP,

Your code pulls the data I want...except...I don't want the columns from tblPatient.

I only want the fields from tblVisit.

Any ideas how to do that?

Thanks

Yes there is a unique Patient MedRec# and then ACCT#'s for each visit. The ACCT#'s duplicate in tblVisit because there are multiple updates...like if they are moved to another...

Yes it is a DateTime field.

There could be multiple records in the tblVisit but I do just want the latest record.

On #4.

If your database has a lot of use you might consider doing transaction log backups.

A couple of my databases have heavy use. I do hourly transaction logs. ...

Nice!

Thanks, I am a noob that is still learning.

I appreciate your tips.

If you need to delete the archived files after a certain time period...I am doing that too. I only need to keep them one week.

You could easily modify this...

No prob...glad it helped you.

Can you do the copy command instead of the move command?

oFSO.CopyFile

This is how I am naming a file with the datetime stamp and moving it to a different directory:

Function Main()

' Declare variables

Dim oFSO

Dim sSourceFile, sDestinationFile

Dim sArchiveFile, dtMonth,...

Ok, I appologize Sergiy, I see now Farrell used your code.

Yes, it works for me now.

Thanks a bunch!

I was able to use your code Farrell.

I added the check for no Case end date.

It runs very fast too. Thanks

SELECT MAX(l.clrec_sysid) AS clrec_sysid,

l.cons_entity_id AS cons_entity_id,

lm.Max_event_date AS...

I get the following error on Sergiy's code:

Server: Msg 107, Level 16, State 2, Line 11

The column prefix 'l' does not match with a table name or alias name used...