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.


Reply via email to