'####################################################################
'
'    Script Name :  Consumer Portal testing - Main Script
'    
'       Created By    :   Miken Gandhi
'   Created Date:        26-Feb-2007
'
'    Description   :    This script is Main Script Engine for Consumer Portal
'   Features   : 1)  Establish Start Up Condition
'  
'
'####################################################################

'====================================================================
' 1.0  Call the Setup Script for gathering information from User.
'====================================================================
   RunAction "Setup", oneIteration

'====================================================================
' 1.1  Call the Setup Script for gathering information from User.
'====================================================================
    
  datatable.Import(Environment.Value("KDataTableNew"))
  vRowCount=datatable.GetRowCount
     Dim tNumofSheets
  tNumofSheets = datatable.GetSheetCount
  For i = 2 to tNumofSheets
      datatable.DeleteSheet(2)
     Next
  
  vFirstRow = 9
        'vCurrRow=9
  'datatable.SetCurrentRow(vCurrRow)

  While vFirstRow < vRowCount
   ' 1.1.1  Loop through rows until Run Test indicator = "Y"
   '====================================================================
             vFirstRow  =  vFirstRow +1
       datatable.SetCurrentRow(vFirstRow )
   
     if( Ucase( datatable.value("Run"))= "Y") Then
     
    
     '  1.1.2  Initialize variables and arrays for this test case
     '=================================================================
      vTestCase    =  datatable.Value("TestNm")
      vCaseStatus  = "Pass"
                     vFirstRow      =  datatable.GetCurrentRow

     '  1.1.3  Reset arrays for this testcase
     '==================================================================
     kTranxn = Environment.Value("kTranxn")
     If kTranxn = "MedEB" or kTranxn =  "MedCT" or  kTranxn = "DenEB" or  kTranxn = "DenCT" then
       call  f_ClearArray()
     elseif kTranxn = "MedClaim" or kTranxn = "DenClaim" then
       Call f_ClearClmArray()
                    end if

     '  1.1.4   Extract expected results from data table
     '==================================================================
     ' tLoadActionstr = kTranxn&"LoadExpResults"
           RunAction kTranxn&" LoadExpResults", oneIteration
                   
        ' 1.1.5   Extract Actual results from the application
     '==================================================================
                    RunAction kTranxn&" GetActualResults", oneIteration
     
     'RunAction "MedEB GetActualResults1", oneIteration
     
 
        ' 1.1.6   Compare exp and actual arrays OR Autopopulate
     '==================================================================
        kRunMode =  environment.Value("kRunMode")
                    If  kRunMode <> "Autopopulate - For Dataload" Then
       RunAction kTranxn&" CompareNReportResults", oneIteration
                    Else
      RunAction kTranxn&" DATALOAD", oneIteration
     End If
   end if  
  wend
   
  
    datatable.Export(Environment.Value("KDataTableNew"))

  
  RunAction "Execute Macro", oneIteration

  f_SetupRunResultsII()