SPONSORS:






User Tag List

Thanks Thanks:  0
Likes Likes:  0
Dislikes Dislikes:  0
Results 1 to 3 of 3
  1. #1
    Junior Member
    Join Date
    Jan 2009
    Location
    Buffalo, NY
    Posts
    2
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Total Downloaded
    0

    Getting different results from custom VB Script

    I have some custom VB code written to loop through a web table to verify results. When I run the test from the beginning, it runs through the code but doesn't seem to report the results from the table. When complete, If I immediately run that action (without making any changes and on the existing web page) the results run properly. Can anyone tell me if they have ever experienced such a thing & a possible Solution? Any help would be GREATLY Appreciated!!

  2. #2
    Moderator
    Join Date
    Sep 2001
    Location
    Doncaster, UK
    Posts
    5,788
    Post Thanks / Like
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Total Downloaded
    0

    Re: Getting different results from custom VB Script

    Post your code so it can be analysed.

    Mark Smith.

  3. #3
    Junior Member
    Join Date
    Jan 2009
    Location
    Buffalo, NY
    Posts
    2
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Total Downloaded
    0

    Re: Getting different results from custom VB Script

    Here's a portion of the action I'm referring to. (It's pretty lengthy). When I run the entire test, It doesn't report the results correctly, almost appears to not see all values. When the test completes & I run just this action, all values are verified & reported accurately.
    'Verifies Coinsurance
    If Len(CoIns) >1 Then
    If InStr(ValueInCell_InNet, "Y") Then
    INCoIns = CoIns
    Elseif InStr(ValueInCell_InNet, "N") Then
    OONCoIns = CoIns
    End If
    End If

    'Verifies InNet Deductible NEED Time_Period & Other columns
    If Len(Ded) >1 Then
    If InStr(Time_Period,"Year") Then
    If InStr(ValueInCell_InNet, "Y") Then
    If InStr(Other, "Individual") Then
    INIndDed = Ded
    ElseIf InStr(Other, "Family") Then
    INFamDed = Ded
    End If
    End If
    End If
    End If

    'Verifies OON Deductible NEED Time_Period & Other columns
    If Len(Ded) >1 Then
    If InStr(Time_Period,"Year") Then
    If InStr(ValueInCell_InNet, "N") Then
    If InStr(Other, "Individual") Then
    OONInvDed = Ded
    ElseIf InStr(Other, "Family") Then
    OONFamDed = Ded
    End If
    End If
    End If
    End If

    'Verifies In Net OOP NEED Time_Period , Indiv & family are hard coded onto the data
    If Len(OOP) >1 Then
    If InStr(ValueInCell_InNet, "Y") Then
    If InStr(OOP, "Individual") Then
    INInvOOP = OOP
    ElseIf InStr(OOP, "Family") Then
    INFamOOP= OOP
    End If
    End If
    End If

    'Verifies OON OOP NEED Time_Period , Indiv & family are hard coded onto the data
    If Len(OOP) >1 Then
    If InStr(ValueInCell_InNet, "N") Then
    If InStr(OOP, "Individual") Then
    OONIndOOP = OOP
    ElseIf InStr(OOP, "Family") Then
    OONFamOOP = OOP
    End If
    End If
    End If

    'Report Results


    'Coinsurance
    If InStr (INCoIns,DataTable.Value ("Coinsurance_IN","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "In Network Coinsurance", "The In Network Coinsurance amount is " & InCoIns
    Else Reporter.ReportEvent micwarning, "In Network Coinsurance", "There is no In Network Coinsurance "
    End If

    If InStr (OONCoIns,DataTable.Value ("Coinsurance_OON","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "Out of Network Coinsurance", "The out of Network Coinsurance amount is " & OONCoIns
    Else Reporter.ReportEvent micwarning, "OON Network Coinsurance", "There is no OON Network Coinsurance "
    End If

    'Deductible
    If InStr (INIndDed,DataTable.Value ("DEDE_IN_Indiv","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "In Network Individual Deductible", "The In Network Individual Deductible is " & INIndDed
    Else Reporter.ReportEvent micwarning, "In Network Individual Deductible", "There is no In Network Individual Deductible"
    End If

    If InStr (INFamDed,DataTable.Value ("DEDE_IN_Family","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "In Network Family Deductible", "The In Network Family Deductible is " & INFamDed
    Else Reporter.ReportEvent micwarning, "In Network Family Deductible", "There is no In Network Family Deductible"
    End If

    If InStr (OONInvDed,DataTable.Value ("DEDE_OON_Indiv","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "OON Individual Deductible", "The OON Individual Deductible is " & OONInvDed
    Else Reporter.ReportEvent micwarning, "OON Individual Deductible", "There is no OON Individual Deductible"
    End If

    If InStr (OONFamDed,DataTable.Value ("DEDE_OON_Family","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "OON Family Deductible", "The OON Family Deductible is " & OONFamDed
    Else Reporter.ReportEvent micwarning, "OON Family Deductible", "There is no OON Family Deductible"
    End If

    'OOP
    If InStr (INInvOOP,DataTable.Value ("OOP_IN_Indiv","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "In Network Individual OOP", "The In Network Individual OOP is " & INInvOOP
    Else Reporter.ReportEvent micwarning, "In Network Individual OOP", "There is no In Network Individual OOP"
    End If

    If InStr (INFamOOP,DataTable.Value ("OOP_IN_Family","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "In Network Family OOP", "The In Network Family OOP is " & INFamOOP
    Else Reporter.ReportEvent micwarning, "In Network Family OOP", "There is no In Network Family OOP"
    End If

    If InStr (OONIndOOP,DataTable.Value ("OOP_OON_Indiv","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "OON Individual OOP", "The OON Individual OOP is " & OONIndOOP
    Else Reporter.ReportEvent micwarning, "OON Individual OOP", "There is no OON Individual OOP"
    End If

    If InStr (OONFamOOP,DataTable.Value ("OOP_OON_Family","Action1_Elig")) Then
    Reporter.ReportEvent micPass, "OON Family OOP", "The OON Family OOP is " & OONFamOOP
    Else Reporter.ReportEvent micwarning, "OON Family OOP", "There is no OON Family OOP"
    End If

 

 

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Search Engine Optimisation provided by DragonByte SEO v2.0.36 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Resources saved on this page: MySQL 12.50%
vBulletin Optimisation provided by vB Optimise v2.6.4 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
User Alert System provided by Advanced User Tagging v3.2.8 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
vBNominate (Lite) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Feedback Buttons provided by Advanced Post Thanks / Like (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Username Changing provided by Username Change (Free) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
BetaSoft Inc.
Digital Point modules: Sphinx-based search
All times are GMT -8. The time now is 06:21 PM.

Copyright BetaSoft Inc.