I have not been working with VB very long and I get confused with this,
so can you geniuses help me out.

I have an internet script, that connects to a web page and checks
Eligibility Verification.  This is what my script looks like Looking for
"Eligibility" on the page.

 

Script...

WaitForPage

 

        If Web1.Find("Eligibility<LEGEND>@Beneficiary Eligibility
Verification") Then

           D("RESULT") = Web1.table(1, 2) ' Eligible

                  Web1.WB.ExecWB OLECMDID_PRINT,
OLECMDEXECOPT_DONTPROMPTUSER

                            WaitForPage

        End If

 

D.Next_

End of Script Section.  This works great printing the page if it says
"Eligibility" 

 

This is what the screen looks like.

 

 

 

 

I would like to exclude 1 eligibility.  (If it looks like above)
Something like this.

 

If Web1.find("MediKan<TD>@Beneficiary Eligibility Verification") Then

            D.Next

 

So, I want to look for "Eligibility" but if you find "Eligibility" &
"MediKan"  Then D.Next, if you only see "Eligibility" then D("result")=
etc...

 

 

Thanks,

 

Bruce Broaddus

Revenue Cycle Application Analyst

Stormont-Vail Health Care

[email protected]

 



Stormont-Vail HealthCare is proud to be in the top 5 percent of hospitals in 
the country honored by the American Nurses Credentialing Center's Magnet 
Recognition Program.

******************************************************************************************************************

The information transmitted in this e-mail and in any replies and forwards are 
for the sole use of the above individual(s) or entities and may contain 
proprietary, privileged and/or highly confidential information.  Any 
unauthorized dissemination, review, distribution or copying of these 
communications is strictly prohibited.  If this e-mail has been transmitted to 
you in error, please notify and return the original message to the sender 
immediately at the above listed address.  Thank you for your cooperation.

******************************************************************************************************************

<<image001.png>>

Reply via email to