endifRE: [Talk] Meditech Magic - Batches and General Errors

[Corinna]

Mary,   What I do is start a counter before I enter the loop, then I increment that counter each time through the loop, if I have been in a long time first I will try to clear the at, next i will raise an error Example:   c= 0 Do     Stable 0.4     c=c+1     Pauseloop "one Thing", "123~"     Pauseloop "ANother Thing", "456~"     If c mod 20 = 19 then         at ""     End if     If c > 75 Then         'must be stuck in this loop do something to reset screen         'put a message to file         'get out     End if   Loop Until At("Something")   Thanks, Corinna Robertson   Boston Software Systems [EMAIL PROTECTED] www.bostonworkstation.com The Essential Tool for Healthcare Integration 866-653-5105 ext. 8 508-653-5105   From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Thompson, Mary Sent: Thursday, July 15, 2004 9:08 AM To: [EMAIL PROTECTED] Subject: RE: [Talk] Meditech Magic - Batches and General Errors Paul Will this handle those “I am stuck in a spot and not moving” what should I do? So no error message, or would I need to put in then If Pause = more then 10sec, error “time out” do next? I know that I can put more pauses or stables in to prevent this, but that seems to really slow down the script, any thoughts? Thank you Mary   Mary Thompson Special Project Manager Children's Mercy Hospital (816) 234-3940     Electronic mail from Mary Thompson, The Children's Mercy Hospital. This communication is intended only for the use of the addressee.  It may contain information which is privileged or confidential under applicable law.  If you are not the intended recipient or the agent of the recipient, you are hereby notified that any dissemination, copy or disclosure of this communication is strictly prohibited.  If you have received this communication in error, please immediately notify The Children's Mercy Hospital at 816-234-3940 or via return Internet electronic mail at [EMAIL PROTECTED] and expunge this communication without making any copies.  Thank you for your cooperation.   -----Original Message----- From: Paul Donoughe [mailto:[EMAIL PROTECTED] Sent: Wednesday, July 14, 2004 6:01 PM To: [EMAIL PROTECTED] Subject: RE: [Talk] Meditech Magic - Batches and General Errors   In Meditech Magic, the error messages always start in row 1, so you could do a check to see if you are in row 1, and take corrective action based on that.  The messages are usually cleared by hitting enter.   You can approach this from two directions that I am aware of.   1.  Set a time out value for your pause commands, and have the error logic do what I reference in the CheckError Routine below 2.  Call the CheckError routine below every time you key in something like an account number or try to file something that might cause an error.   You could even use a pauseloop on the off chance that more then one error is encounter.   I would recommend something like a......     Function CheckForError. dim FoundError as Boolean FoundError = False if at("@1")   then      errmsg = view(1,1,30)  ' row 1, col1  for a maximium of 30 characters      MySpecialErrorhandlingRoutine(ermsg)       FoundError = True end if return FoundError   Sub MySpecialErrorhandlingRoutine(rmsg)    select case msg          case "Invalid Account"                  'Process for handling this error         case "bla bla bla"                 ' Special Bla, Bla, Bla error handing         else                'default error handling' most likely just and enter end select end sub   I just typed this code off the top of my head.  I'm sure the logic is good ( relatively ), but I probably made about 20-30 syntax errors.   Paul From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Thompson, Mary Sent: Wednesday, July 14, 2004 3:08 PM To: [EMAIL PROTECTED] Subject: [Talk] Meditech Magic - Batches and General Errors I run remits through the Meditech batch routine, as well as charges using a script.  On occasion a new and exciting error will pop up, I am wondering if anyone has a general If “any” error or stop for more then 5 seconds, comment error field “Unknown error” and go to next.  I am completely in the dark on how to do this so if you have a line or two of code that would bring me in from the dark I would appreciate it so much! Thank you in advance! Mary   Mary Thompson Special Project Manager Children's Mercy Hospital (816) 234-3940     Electronic mail from Mary Thompson, The Children's Mercy Hospital. This communication is intended only for the use of the addressee.  It may contain information which is privileged or confidential under applicable law.  If you are not the intended recipient or the agent of the recipient, you are hereby notified that any dissemination, copy or disclosure of this communication is strictly prohibited.  If you have received this communication in error, please immediately notify The Children's Mercy Hospital at 816-234-3940 or via return Internet electronic mail at [EMAIL PROTECTED] and expunge this communication without making any copies.  Thank you for your cooperation.