RE: [Talk] Processing ext. txt file

[Terry Evans]

Ross I could use the Bar Dictionary script(s)   Thanks in advance   Terry M Evans, CPHIMS Chief Information Officer 985 435-4820   -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Ross Stolle Sent: Wednesday, August 06, 2003 2:54 PM To: '[EMAIL PROTECTED]' Subject: RE: [Talk] Processing ext. txt file   Scott,             Here is how I do it…   Open "c:\yourfile.txt" For Input As #1 Counter = 1   Dim NEWREC Dim Procedure Dim RVUcost   Connect "", stMeditech Do Until EOF(1)     Line Input #1, NEWREC         Procedure = Mid(NEWREC, 1, 10) ‘starting at column 1 for 10 characters         Procedure = Trim(Procedure)         RVUcost = Mid(NEWREC, 11, 10)  ‘starting at the 11th column for 10 characters         RVUcost = Trim(RVUcost)               Your code here…             .             .             .             . Loop     If you’d like some examples of BAR dictionaries I’ve updated just let me know.  I’ve looked at both text files or Excel files.   Ross Stolle Avera McKennan Hospital Sioux Falls, SD     -----Original Message----- From: White,Scott A [mailto:[EMAIL PROTECTED] Sent: Wednesday, 06 August, 2003 2:13 PM To: '[EMAIL PROTECTED]' Subject: [Talk] Processing ext. txt file   Hello everyone,   I am trying to figure out the next step in the evolution of this "simple" script.  It currently signs into my MAGIC 4.9 MEDITECH B/AR module and enters one complete entry.  Then files it.   What I'd like to do is access my external *.txt file and have it process all 2,000+ entries for updating my charge procedure code dictionary in B/AR.   I had this example of a script that used a random access file and lots of wonderful things; but I cannot reverse engineer it enough to make any use of it.   Does anyone have a simple way of accessing an external *.txt file to load records in MEDITECH?   This is the code I used to get it to process one complete record.       Sub ProcessProcedure(Optional dummy As String)   Procedure = 3201289 RVUCost = 0.0175 Pause "Mnemonic"   Enter Trim(Procedure) Wait 1 Enter "" Enter "" Enter ""   Pause "Rel Value" Key "{F10}" Wait 1 Enter RVUCost Wait 1       Enter "" Key "{F12}" Pause "2" Key "{F10}"   Enter "F"   End Sub       Thanks in advance for any pointer on this.   Scott 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. ____________________ Confidentiality Notice: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure, or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.