Thanks for all the suggestions. I did already have exit sub within the subroutine, but it was always the exceptions that messed me up. I eventually just set everything to go back to a "check step" rule and then based on the screen Titles and Prompts, that step told it where to go next. It probably isn't the most efficient way to write the code, but it seems to work so I am going to sitck with it.
Thanks again, Reese Reese E. Walker Financial Systems Analyst Phoebe Putney Memorial Hospital Phone: (229) 312-4259 ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bennett, Brian Sent: Monday, June 09, 2008 10:34 AM To: '[email protected]' Subject: RE: [Talk] STEP ERROR I would set the Subroutine to define the next step. Unless you are already. Have had better luck letting the results of the sub determine the next step or sub. Sub Sumcheck() If data = This then Step = "go this step" 'if true go to this step, and continue. name_of_script else check whatever 'new sub end if End Sub Brian Bennett Affinity Health Systems Systems Analyst PBS\Clinic Billing (920)628-9055 [EMAIL PROTECTED] ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Walker, Reese Sent: Friday, June 06, 2008 11:15 PM To: [email protected] Subject: [Talk] STEP ERROR Hopefully someone will be able to help me with this over the weekend. I have steps that are calling subroutines to compare some data. Based on the comparisons, I am setting the STEP = "another step". However, once it exits the subroutine, the STEP is being reset by the RULES and it will go to that step instead of the one that I want it to go to. I have the GOTO box empty in the RULES screen. Of course I am not allowed to edit the actions on it so I can't delete that STEP. Here is an example of what I am talking about. ElseIf Step = "NAV TO ALL CHARGES" Then If Rule("Proration [EMAIL PROTECTED],32") Then AllCharges Step = "REV CODE" 'where does this come from? Exit Sub End If ElseIf Step = "REV CODE" Then If Rule("All [EMAIL PROTECTED],36") Then RevCode Step = "CONTRAST" 'where does this come from? Exit Sub End If ElseIf Step = "CONTRAST" Then If Rule("UB [EMAIL PROTECTED],36") Then CONTRAST Step = "NEXT REV CODE" 'where does this come from? Exit Sub End If All of these step = "" are messing me up, I am setting steps within the AllCharges, RevCode, and CONTRAST subroutines. Thanks in advance, Reese Reese E. Walker Financial Systems Analyst Phoebe Putney Memorial Hospital Albany, GA. 31702 Phone: (229) 312-4259 Pager: (229) 431-7658 Fax: (229) 312-4316 ________________________________ Disclaimer: The HIPAA Final Privacy Rule requires covered entities to safeguard certain Protected Health Information (PHI) related to a person's healthcare. Information being faxed to you may include PHI after appropriate authorization from the patient or under circumstances that do not require patient authorization. You, the recipient, are obligated to maintain PHI in a safe and secure manner. You may not re-disclose without additional patient consent or as required by law. Unauthorized re-disclosure or failure to safeguard PHI could subject you to penalties described in federal (HIPAA) and state law. If you the reader of this message are not the intended recipient, or the employee or agent responsible to deliver it to the intended recipient, please notify us immediately and destroy the related message.
