aaa
adb
'-------------------------------------------------------------------------------------------------
' Core Functions
' 1) f_Create_List_Dialog
' 2) f_OpenFileDialog
' 3) f_GetCurrentTime
' 4) f_AddNewFolder
' 5) f_SetupRunResultsI
' 6) f_SetupRunResultsII
' 7) f_CloseOpenBrowsers
' 8) f_InitializeArrays_MedClaim
' 9) f_InitializeArrays_DenClaim
' 10)f_InitializeArrays_MedEB
' 11)f_InitializeArrays_DenEB
' 12)f_InitializeArrays_PharmEB
' 13)f_InitializeArrays_PharmClaim
' 14)f_ClearArray
' 15)f_PrintLog
' 16)f_SavePrintLog
' 17)f_whichwindow
' 18)f_SelectListItem
' 19)f_SelectCalendarDate
' 20)f_ClmWhichwindow
' 21)f_ClearClmArray
' 22)f_InitializeArrays_MedCT
' 23)f_MedCTWhichwindow
' 24)f_DenEBWhichwindow
' 25) f_InitializeArrays_DenCT
' 26) f_DenCTWhichwindow
' 27) f_DenClmWhichwindow
' 28) f_DenSelectCalendarDate
'-------------------------------------------------------------------------------------------------
'#############################################################################################
'#
'# Dim Global arrays
'#
'# Description : This Statement declares global array for accessing from all Actions.
'#
'#############################################################################################
Dim arField(90) , arInp(4) , arPat(7), arBen(54), arClmSummary(1), arClmDtl(7), arExp(60, 100) ,arClmExp(90, 100, 45) , arClmAct(90, 100, 45), arAct(60, 100), arMedClAct(90,100), arInput(9), tpossiblewindow(10),arExpSumSect(6), arActSumSect(6), arExpDtlSect(6),arActDtlSect(6), vFirstRow , tCurRow, tDebugMode, vWin , terror, arLFExp(100,10)
Dim NumofMedBen,NumofMenBen,NumofVisBen, arLFFields
arLFFields = Array("StepResult","Action", "Fieldtype","Browser", "Page", "Frame", "Field", "Property", "IEValue", "FFValue")
'#############################################################################################
'#
'# f_Create_List_Dialog
'#
'# Description : This function Creates a list Dialog box to capture the user input selection.
'#
'#############################################################################################
Function f_Create_List_Dialog(Title, message, List)
On Error Resume Next 'Used Later to handle items not in our list
msg = message 'This is the basic message
for i = lbound(List) to ubound (List)
newmess = msg & vbCrLf & cstr(i + 1) & " - " & List(i) 'loop through the Array and add
msg = newmess 'Each item from it to the list
next
flag = 0 'Controls when we have a valid selection
do while flag = 0
Ret = InputBox(msg,Title,"1") 'prompt for a selection from the list
Ret = CInt(Ret) 'Convert the selection to an Int
f_Create_List_Dialog = List(Ret-1) 'Set the fuction to equal the correct array element
flag = 1 'break out of the loop
If f_Create_List_Dialog = "" Then 'If we selected an invalid array element(C_L_D will be Null)
flag = 0 'reset the flag to 0 and loop round again for a vaild entry.
end if
Loop
End Function
'#############################################################################################
'#
'# f_OpenFileDialog(tpath,kDataTable)
'#
'# Description : This function Creates a File Select Dialog box to select the Datatable
'# the datatable for Testcase Execution.
'# Parameters : in tpath --> The path of the where datatables are stored.
'# out kDataTable --> The path and name of the selected datatable
'#
'#############################################################################################
Function f_OpenFileDialog(tpath,kDataTable)
'msgbox("i am in fopefiledialog function before tpath msgbox")
'msgbox(tpath)
Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
ObjFSO.Filter="ExcelFiles|*.xls"
ObjFSO.FilterIndex = 1
ObjFSO.InitialDir = tpath
InitFSO = ObjFSO.ShowOpen
If InitFSO = False Then
msgbox "Cannot proceed without selecting DataTable....Please Re-run the script!"
End If
KDataTable = ObjFSO.FileName
'msgbox(KDataTable)
end function
'#############################################################################################
'#
'# f_GetCurrentDateTime(time)
'#
'# Description : This function returns Date and time in the following format
'# MM MONYYYY_HH MM SS
'# Parameters : Out time --> The present time in the above format.
'#
'#############################################################################################
Function f_GetCurrentDateTime(tDateTime)
Dim tTime, tDate, tMonth, tDay, tYear, tdate_ddmonyyyy
tHour = Hour(Now)
if tHour < 10 then
tHour = "0"& tHour
end if
tMin = Minute(Now)
if tMin < 10 then
tMin = "0"& tMin
end if
'msgbox ("the Min is "& tMin)
tSec = Second(Now)
if tSec < 10 then
tSec = "0"& tSec
end if
'msgbox ("the Sec is "& tSec)
tTime = tHour &" " & tMin &" " & tSec
'msgbox (tTime)
tDate = Date
'msgbox(tDate)
tMonth = MonthName(Month(CDate(tDate)), true)
tDay = Day(Date())
tYear= Year(Date())
If tDay<10 Then
tDay="0"& tDay
End If
tdate_ddmonyyyy = tDay & " " & tMonth & " " & tYear
'msgbox (tdate_ddmonyyyy)
tDateTime = tdate_ddmonyyyy & "_" & tTime
end Function
'#############################################################################################
'#
'# f_AddNewFolder()
'# The above code checks whether the specified folder exists before attempting to create it.
'# If the folder exists, nothing is done, otherwise the folder is created.
'# If no name is specified for the folder, the folder will be created with the name "New Folder."
'#
'#############################################################################################
function f_AddNewFolder(path, folderName)
Dim fso1, f, fc, nf
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.GetFolder(path)
Set fc = f.SubFolders
If folderName <> "" Then
If Not(fso1.FolderExists(path & folderName)) then
Set nf = fc.Add(folderName)
End If
Else
Set nf = fc.Add("New Folder")
End If
End function
'#############################################################################################
'#
'# f_SetupRunResultsI()
'#
'#
'#
'# NOTE:
'# -> f_SetupRunResultsI is used in conjunction with 'f_SetupRunResultsII',
'# which is run at the end of the script, to move the completed results
'# table from local drive to its final destination
'#
'# Description:
'# Step 1. Get directory path of the data table
'# Step 2. Check whether TestRuns folders exists in this directory. If not, create one.
'# Step 3. copy table to C:Temp and then rename it by adding Run Name to title
'# e.g. "K:\My Tests\ClmMHS_030202wc.xls" becomes "C:\Temp\ClmMHS_030202wc_01 Apr 02_15 08 22.xls"
'# Create final path name for data table (used by f_eCP_SetupRunResultsII at end of run)
'# e.g. in the example above, "K:\My Tests\TestRuns\ClmMHS_030202wc_01 Apr 02_15 08 22.xls"
'#
'# See also: f_SetupRunResultsII
'#
'#############################################################################################
function f_SetupRunResultsI()
Dim tFileName, tarFileName, tFileNametxt,tRunName, tFileNametxt_inTemp
tRunName = Environment("kRunName")
tFilePath = Environment.Value("KDataTable")
tarFilePath=split(tFilePath ,"")
tFileNametxt = split(tarFilePath(ubound(tarFilePath)),".")
tNewfileName = tFileNametxt(0) & "_" & tRunName &".xls"
tFileNamePath_inTemp = "C:Temp" & tFileNametxt(0) &".xls"
tNewFileNamePath = "C:Temp"& tNewfileName
' Check if TestRuns folder is present if not create a folder with name "TestRuns"
tarFilePathFolder = ""
tcount1 = ubound(tarFilePath) - 1
for i = 0 to tcount1
if(i = 0) then
tarFilePathFolder = tarFilePath(i)
else
tarFilePathFolder = tarFilePathFolder & ""& tarFilePath(i)
end if
Next
tarFilePathFolder = tarFilePathFolder&""
call f_AddNewFolder (tarFilePathFolder, "TestRuns")
'Copy the file to Temp
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile tFilePath , "C:Temp", OverwriteExisting
'Rename it by adding the run name
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile (tFileNamePath_inTemp) , (tNewFileNamePath )
set objFSO = nothing
'Make it an environment variable for use in all actions.
Environment.Value("KDataTableNew") = tNewFileNamePath
'Copy the Macro file to Temp
tMacropath = Environment("fpathMacro")
tMacro = tMacropath &"Macros.xls"
Set objFSO2 = CreateObject("Scripting.FileSystemObject")
objFSO2.CopyFile tMacro, "C:Temp", OverwriteExisting
'msgbox "Did i copy the Macro"
end function
'#############################################################################################
'#
'# f_SetupRunResultsII()
'#
'#
'#
'# NOTE:
'# -> f_SetupRunResultsI is used in conjunction with 'f_SetupRunResultsII',
'# which is run at the end of the script, to move the completed results
'# table from local drive to its final destination
'#
'#
'#
'#############################################################################################
function f_SetupRunResultsII()
msgbox(" I am in setuprunresultsII")
Dim tFileName, tarFileName, tFileNametxt,tRunName, tFileNametxt_inTemp
tRunName = Environment("kRunName")
tFilePath = Environment.Value("KDataTable")
tarFilePath=split(tFilePath ,"")
tFileNametxt = split(tarFilePath(ubound(tarFilePath)),".")
tNewfileName = tFileNametxt(0) & "_" & tRunName &".xls"
tFileNamePath_inTemp = "C:Temp" & tFileNametxt(0) &".xls"
tNewFileNamePath = "C:Temp"& tNewfileName
tarFilePathFolder = ""
tcount1 = ubound(tarFilePath) - 1
for i = 0 to tcount1
if(i = 0) then
tarFilePathFolder = tarFilePath(i)
else
tarFilePathFolder = tarFilePathFolder & ""& tarFilePath(i)
end if
Next
tarFilePathFolder = tarFilePathFolder&"TestRuns"
'Copy the file to TestRuns
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile tNewFileNamePath , tarFilePathFolder, OverwriteExisting
set objFSO = nothing
end function
'#############################################################################################
'#
'# f_CloseOpenBrowsers()
'#
'# Close any open browsers
'#
'#############################################################################################
Function f_CloseOpenBrowsers()
For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='iexplore.exe'")
Process.Terminate
Next
'do while("True")
' TrueOrFlase = Browser("index:=0").Exist(0)
' if(TrueOrFlase = "False") then
' exit do
' else
' Browser("index:=0").close
' end if
'loop
End Function
'function f_CloseOpenBrowsers()
' do while("True")
' TrueOrFlase = Browser("index:=0").Exist(0)
' if(TrueOrFlase = "False") then
' exit do
' else
' Browser("index:=0").close
'' end if
' loop
' end function
'#############################################################################################
'#
'# f_InitializeArrays_MedClaim()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_MedClaim()
'******************************
' Testcase data
'******************************
arField(1) = "TestNm"
arField(2) = "TestScenario"
arField(3) = "ExpRes"
arField(4) = "SrcSys"
arField(5) = "Run"
arField(6) = "Result"
arField(7) = "ErrMsg_Scr"
arField(8) = "ErrMsg"
arField(9) = "ErrScr"
arField(10) = "Ver_Code"
arField(11) = "SrchTyp"
'******************************
' Input data
'******************************
arInp(0) = 12
arField(12) = "Input" ' Column Header
arInp(1) = 12
arInp(2) = 13
arField(13) = "SSOID"
arField(14) = "SSOPwd"
arField(15) = "PatientName"
arField(16) = "ClmDtRng"
arField(17) = "ClmDtStart"
arField(18) = "ClmDtEnd"
arInp(3) = 18
'******************************
' Patient Data
'******************************
arPat(0) = 19
arField(19) = "Patient1" ' Column Header
arPat(1) = 19
arPat(2) = 20
arField(20) = "PatientName"
arField(21) = "Plan"
arField(22) = "PharmacyPlan"
arField(23) = "ActNum"
arField(24) = "EffDt"
arField(25) = "EligStatus"
arField(26) = "CovEndDt"
arPat(3) = 26
'******************************
' Claim Summary Data
'******************************
arClmSummary(0) = 30
arField(30) = "NumClm" ' counter field
arField(31) = "VerifyClaim"
arField(32) = "SumClmNum"
arField(33) = "SumDOS"
arField(34) = "SumSerProvider"
arField(35) = "SumStatus"
arField(36) = "SumSubCharge"
arField(37) = "SumPdPlan"
arField(38) = "SumPdHRA"
arField(39) = "SumFSA"
arField(40) = "SumHAA"
arField(41) = "SumMemResp"
arClmSummary(1) = 41
'******************************
' Claim Detail Data
'******************************
arClmDtl(0) = 45
arField(45) = "NumDet" ' counter field
arField(46) = "DtlService"
arField(47) = "DtlDOS"
arField(48) = "DtlSubCharge"
arField(49) = "DtlNegDiscount"
arField(50) = "DtlNotCov"
arField(51) = "DtlCopayDed"
arField(52) = "DtlMemCopay"
arField(53) = "DtlCovBalance"
arField(54) = "DtlCignaCoins"
arField(55) = "DtlMemberCoins"
arField(56) = "DtlPdFSA"
arField(57) = "DtlPdHRA"
arField(58) = "DtlPdHAA"
arField(59) = "DtlMemResp"
arField(60) = "DtlRemarks"
arClmDtl(1) = 60
arClmDtl(2) = 65
arField(65) = "DtlClmMem"
arField(66) = "DtlClmDOS"
arField(67) = "DtlClmRecDt"
arField(68) = "DtlClmPrcDt"
arField(69) = "DtlClmServPrv"
arField(70) = "DtlClmNtwkInd"
arField(71) = "DtlClmStatus"
arClmDtl(3) = 71
arClmDtl(4) = 73
arField(73) = "PmtCOBInd"
arField(74) = "PmtOIConsdr"
arField(75) = "PmtOIPaid"
arField(76) = "NumChk"
arField(77) = "PmtCignaPd"
arField(78) = "PmtPaidTo"
arField(79) = "PmtPayAddr"
arField(80) = "PmtChkNum"
arField(81) = "PmtChkStat"
arField(82) = "PmtHRAPd"
arField(83) = "PmtHRAType"
arField(84) = "PmtFSAPd"
arField(85) = "PmtHAAPd"
arClmDtl(5) = 85
arClmDtl(6) = 86
arField(86) = "NumRmk" ' Counter field
arField(87) = "RmkCd"
arField(88) = "RmkCdAmt"
arField(89) = "RmkCdExpl"
arClmDtl(7) = 89
end function
'#############################################################################################
'#
'# f_InitializeArrays_DenClaim()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_DenClaim()
''******************************
' Testcase data
'******************************
arField(1) = "TestNm"
arField(2) = "TestScenario"
arField(3) = "ExpRes"
arField(4) = "SrcSys"
arField(5) = "Run"
arField(6) = "Result"
arField(7) = "ErrMsg_Scr"
arField(8) = "ErrMsg"
arField(9) = "ErrScr"
arField(10) = "Ver_Code"
arField(11) = "SrchTyp"
'******************************
' Input data
'******************************
arInp(0) = 12
arField(12) = "Input" ' Column Header
arInp(1) = 12
arInp(2) = 13
arField(13) = "SSOID"
arField(14) = "SSOPwd"
arField(15) = "PatientName"
arField(16) = "ClmDtRng"
arField(17) = "ClmDtStart"
arField(18) = "ClmDtEnd"
arInp(3) = 18
'******************************
' Patient Data
'******************************
arPat(0) = 19
arField(19) = "Patient1" ' Column Header
arPat(1) = 19
arPat(2) = 20
arField(20) = "PatientName"
arField(21) = "Plan"
arField(22) = "PharmacyPlan"
arField(23) = "ActNum"
arField(24) = "NtwkNm"
arField(25) = "EffDt"
arField(26) = "EligStatus"
arField(27) = "CovEndDt"
arPat(3) = 27
'******************************
' Claim Summary Data
'******************************
arClmSummary(0) = 30
arField(30) = "NumClm" ' counter field
arField(31) = "VerifyClaim"
arField(32) = "SumClmNum"
arField(33) = "SumDOS"
arField(34) = "SumSerProvider"
arField(35) = "SumStatus"
arField(36) = "SumSubCharge"
arField(37) = "SumPdPlan"
arClmSummary(1) = 37
'******************************
' Claim Detail Data
'******************************
arClmDtl(0) = 45
arField(45) = "NumDet" ' counter field
arField(46) = "DtlService"
arField(47) = "DtlToothNum"
arField(48) = "DtlDOS"
arField(49) = "DtlSubCharge"
arField(50) = "DtlNegDiscount"
arField(51) = "DtlNotCov"
arField(52) = "DtlCopayDed"
arField(53) = "DtlMemCopay"
arField(54) = "DtlCovBalance"
arField(55) = "DtlCignaCoins"
arField(56) = "DtlMemberCoins"
arField(57) = "DtlRemarks"
arClmDtl(1) = 57
arClmDtl(2) = 65
arField(65) = "DtlClmMem"
arField(66) = "DtlClmDOS"
arField(67) = "DtlClmRecDt"
arField(68) = "DtlClmPrcDt"
arField(69) = "DtlClmServPrv"
arField(70) = "DtlClmNtwkInd"
arField(71) = "DtlClmStatus"
arClmDtl(3) = 71
arClmDtl(4) = 73
arField(73) = "PmtCOBInd"
arField(74) = "PmtOIConsdr"
arField(75) = "PmtOIPaid"
arField(76) = "NumChk"
arField(77) = "PmtCignaPd"
arField(78) = "PmtPaidTo"
arField(79) = "PmtPayAddr"
arField(80) = "PmtChkNum"
arField(81) = "PmtChkStat"
arField(82) = "PmtHRAPd"
arField(83) = "PmtHRAType"
arField(84) = "PmtFSAPd"
arField(85) = "PmtHAAPd"
arClmDtl(5) = 85
arClmDtl(6) = 86
arField(86) = "NumRmk" ' Counter field
arField(87) = "RmkCd"
arField(88) = "RmkCdAmt"
arField(89) = "RmkCdExpl"
arClmDtl(7) = 89
end function
'#############################################################################################
'#
'# f_InitializeArrays_MedCT()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_MedCT()
'******************************
' Testcase data
'******************************
arField(1) = "TestNm"
arField(2) = "ExpRes"
arField(3) = "SrcSys"
arField(4) = "Run"
arField(5) = "Ver_Code"
arField(6) = "Result"
arField(7) = "ErrMsg_Scr"
arField(8) = "ErrMsg"
arField(9) = "ErrScr"
'******************************
' Input data
'******************************
arInp(0) = 11
arField(11) = "Patient1" ' Column Header
arInp(1) = 11
arInp(2) = 12
arField(12) = "SSOID"
arField(13) = "SSOPwd"
arField(14) = "InfoYear"
arInp(3) = 14
'******************************
' Patient Data
'******************************
arPat(0) = 15
arField(15) = "VerifyMemInfo" ' Column Header
arPat(1) = 15
arPat(2) = 16
arField(16) = "PatientName"
arField(17) = "Plan"
arField(18) = "PharmacyPlan"
arField(19) = "ActNum"
arField(20) = "EffDt"
arField(21) = "EligStatus"
arField(22) = "CovEndDt"
arField(23) = "#ofMem"
arPat(3) = 23
arPat(4) = 25
arField(25) = "Patient2" ' Column Header
arPat(5) = 25
arPat(6) = 26
arField(26) = "OtherMembers"
arPat(7) = 26
'******************************
' Cost Tracker Summary Page data
'******************************
arBen(0) = 30
arField(30) = "NumCTSum" ' counter field
arField(31) = "VerifyCTSum"
arField(32) = "CTSum_InName"
arField(33) = "CTSum_InAmt"
arField(34) = "CTSum_InMet"
arField(35) = "CTSum_InRem"
arField(36) = "CTSum_OutName"
arField(37) = "CTSum_OutAmt"
arField(38) = "CTSum_OutMet"
arField(39) = "CTSum_OutRem"
arBen(1) = 39
'******************************
' Cost Tracker Detail Page data
'******************************
arBen(2) = 40
arField(40) = "NumCTDtl" ' counter field
arField(41) = "VerifyCTDtl"
arField(42) = "CTDtlName"
arField(43) = "CTDtl_InAmt"
arField(44) = "CTDtl_InMet"
arField(45) = "CTDtl_InRem"
arField(46) = "CTDtl_OutAmt"
arField(47) = "CTDtl_OutMet"
arField(48) = "CtDtl_OutRem"
arBen(3) = 48
end function
' #############################################################################################
'#
'# f_InitializeArrays_DenCT()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_DenCT()
'******************************
' Testcase data
'******************************
arField(1) = "TestNm"
arField(2) = "ExpRes"
arField(3) = "SrcSys"
arField(4) = "Run"
arField(5) = "Ver_Code"
arField(6) = "Result"
arField(7) = "ErrMsg_Scr"
arField(8) = "ErrMsg"
arField(9) = "ErrScr"
'******************************
' Input data
'******************************
arInp(0) = 11
arField(11) = "Patient1" ' Column Header
arInp(1) = 11
arInp(2) = 12
arField(12) = "SSOID"
arField(13) = "SSOPwd"
arInp(3) = 13
'******************************
' Patient Data
'******************************
arPat(0) = 15
arField(15) = "VerifyMemInfo" ' Column Header
arPat(1) = 15
arPat(2) = 16
arField(16) = "PatientName"
arField(17) = "Plan"
arField(18) = "PharmacyPlan"
arField(19) = "ActNum"
arField(20) = "NtwkName"
arField(21) = "EffDt"
arField(22) = "EligStatus"
arField(23) = "CovEndDt"
arField(24) = "#ofMem"
arPat(3) = 24
'arField(16) = "PatientName"
'arField(17) = "Plan"
'arField(18) = "PharmacyPlan"
'arField(19) = "ActNum"
' arField(20) = "EffDt"
'arField(21) = "EligStatus"
'arField(22) = "CovEndDt"
'arField(23) = "#ofMem"
'arPat(3) = 23
arPat(4) = 25
arField(25) = "Patient2" ' Column Header
arPat(5) = 25
arPat(6) = 26
arField(26) = "OtherMembers"
arPat(7) = 26
'******************************
' Cost Tracker Summary Page data
'******************************
arBen(0) = 30
arField(30) = "NumCTSum" ' counter field
arField(31) = "VerifyCTSum"
arField(32) = "CTSum_InName"
arField(33) = "CTSum_InAmt"
arField(34) = "CTSum_InMet"
arField(35) = "CTSum_InRem"
arField(36) = "CTSum_OutName"
arField(37) = "CTSum_OutAmt"
arField(38) = "CTSum_OutMet"
arField(39) = "CTSum_OutRem"
arBen(1) = 39
'******************************
' Cost Tracker Detail Page data
'******************************
arBen(2) = 40
arField(40) = "NumCTDtl" ' counter field
arField(41) = "VerifyCTDtl"
arField(42) = "CTDtlName"
arField(43) = "CTDtl_InAmt"
arField(44) = "CTDtl_InMet"
arField(45) = "CTDtl_InRem"
arField(46) = "CTDtl_OutAmt"
arField(47) = "CTDtl_OutMet"
arField(48) = "CtDtl_OutRem"
arBen(3) = 48
end function
'#############################################################################################
'#
'# f_InitializeArrays_MedEB()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_MedEB()
'******************************
' Testcase data
'******************************
arField(1) = "TestNm"
arField(2) = "ExpRes"
arField(3) = "SrcSys"
arField(4) = "Run"
arField(5) = "Ver_Code"
arField(6) = "Result"
arField(7) = "ErrMsg_Scr"
arField(8) = "ErrMsg"
arField(9) = "ErrScr"
'******************************
' Input data
'******************************
arInp(0) = 11
arField(11) = "Patient1" ' Column Header
arInp(1) = 11
arInp(2) = 12
arField(12) = "SSOID"
arField(13) = "SSOPwd"
arField(14) = "PatientName"
arInp(3) = 14
'******************************
' Patient Data
'******************************
arPat(0) = 15
arField(15) = "VerifyMemInfo" ' Column Header
arPat(1) = 15
arPat(2) = 16
arField(16) = "PatientName"
arField(17) = "Plan"
arField(18) = "PharmacyPlan"
arField(19) = "ActNum"
arField(20) = "EffDt"
arField(21) = "EligStatus"
arField(22) = "CovEndDt"
arField(23) = "#ofMem"
arPat(3) = 23
arPat(4) = 25
arField(25) = "Patient2" ' Column Header
arPat(5) = 25
arPat(6) = 26
arField(26) = "OtherMembers"
arPat(7) = 26
'******************************
' Benefits data
'******************************
arBen(0) = 30
arField(30) = "NumMedBen" ' counter field
arField(31) = "VerifyMedBen"
arField(32) = "MedBenefit"
arField(33) = "MedAmt1"
arField(34) = "MedAmt2"
arField(35) = "MedAmt3"
arField(36) = "MedAmt4"
arBen(1) = 36
arBen(2) = 40
arField(40) = "NumVisBen" ' counter field
arField(41) = "VerifyVisBen"
arField(42) = "VisBenefit"
arField(43) = "VisAmt1"
arField(44) = "VisAmt2"
arField(45) = "VisAmt3"
arField(46) = "VisAmt4"
arBen(3) = 46
arBen(4) = 50
arField(50) = "NumMenBen" ' Counter field
arField(51) = "VerifyMenBen"
arField(52) = "MenBenefit"
arField(53) = "MenAmt1"
arField(54) = "MenAmt2"
arBen(5) = 54
end function
'#############################################################################################
'#
'# f_InitializeArrays_DenEB()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_DenEB()
'******************************
' Testcase data
'******************************
arField(1) = "TestNm"
arField(2) = "ExpRes"
arField(3) = "SrcSys"
arField(4) = "Run"
arField(5) = "Ver_Code"
arField(6) = "Result"
arField(7) = "ErrMsg_Scr"
arField(8) = "ErrMsg"
arField(9) = "ErrScr"
'******************************
' Input data
'******************************
arInp(0) = 11
arField(11) = "Patient1" ' Column Header
arInp(1) = 11
arInp(2) = 12
arField(12) = "SSOID"
arField(13) = "SSOPwd"
arField(14) = "PatientName"
arInp(3) = 14
'******************************
' Patient Data
'******************************
arPat(0) = 15
arField(15) = "VerifyMemInfo" ' Column Header
arPat(1) = 15
arPat(2) = 16
arField(16) = "PatientName"
arField(17) = "Plan"
arField(18) = "PharmacyPlan"
arField(19) = "ActNum"
arField(20) = "NtwkName"
arField(21) = "EffDt"
arField(22) = "EligStatus"
arField(23) = "CovEndDt"
arField(24) = "#ofMem"
arPat(3) = 24
arPat(4) = 25
arField(25) = "Patient2" ' Column Header
arPat(5) = 25
arPat(6) = 26
arField(26) = "OtherMembers"
arPat(7) = 26
'******************************
' Benefits data
'******************************
arBen(0) = 30
arField(30) = "NumMedBen" ' counter field
arField(31) = "VerifyMedBen"
arField(32) = "MedBenefit"
arField(33) = "MedAmt1"
arField(34) = "MedAmt2"
arBen(1) = 34
end function
'#############################################################################################
'#
'# f_InitializeArrays_PharmEB()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_PharmEB()
end function
'#############################################################################################
'#
'# f_InitializeArrays_PharmClaim()
'#
'# NOTE: The arField array lists all of the data elements to be verified and/or input.
'# These data elements are used for:
'# - headers for each column on the data table
'# - array elements in the arExp and arAct arrays
'#
'#############################################################################################
function f_InitializeArrays_PharmClaim()
end function
'#############################################################################################
'#
'# f_ClearArray( )
'# Clears the contents of arrays
'#
'#############################################################################################
function f_ClearArray( )
tMax1 = ubound(arAct,1)
tMax2 = ubound(arAct,2)
for j = 1 to tMax1
for i = 1 to tMax2
arAct(j,i) = ""
Next
Next
tMax1 = ubound(arExp,1)
tMax2 = ubound(arExp,2)
for j = 1 to tMax1
for i = 1 to tMax2
arExp(j,i) = ""
Next
Next
tMax = ubound(arInput)
for j = 1 to tMax
arInput(j) = ""
Next
end function
'#############################################################################################
'#
'# f_ClearClmArray( )
'# Clears the contents of arrays
'#
'#############################################################################################
function f_ClearClmArray( )
tMax1 = ubound(arClmAct,1)
tMax2 = ubound(arClmAct,2)
tMax3 = ubound(arClmAct,3)
for j = 1 to tMax1
for i = 1 to tMax2
for k = 1 to tMax3
arClmAct(j,i ,k) = ""
Next
Next
Next
tMax1 = ubound(arClmExp,1)
tMax2 = ubound(arClmExp,2)
tMax3 = ubound(arClmExp,3)
for j = 1 to tMax1
for i = 1 to tMax2
for k = 1 to tMax3
arClmExp(j,i ,k) = ""
Next
Next
Next
tMax = ubound(arInput)
for j = 1 to tMax
arInput(j) = ""
Next
end function
'#############################################################################################
'# Function: f_PrintLog
'# This function is similar to WinRunner's print function, except it outputs data to a
'# Notepad window.The performance is not as fast as the WinRunner's print function, but
'# its a good way to monitor output while running a test instead of using a msgbox.
'# The "LogFile.txt" is saved to the testname directory. You can easily change the location
'# of where the log file is saved by modifying the LogFile
'#############################################################################################
Function f_PrintLog (Message)
LogFile = Environment.Value("TestDir") & "LogFile.txt"
f_ForWriting = 2 ' use 2 for (over) writing, 8 for appending
If (Window("regexpwndclass:=Notepad", "regexpwndtitle:=Notepad").Exist = False) Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set OutputFile = fso.OpenTextFile (LogFile, f_ForWriting, True)
OutputFile.WriteLine Now
OutputFile.Close
wait 1
SystemUtil.Run "Notepad", LogFile
End If
Window("regexpwndclass:=Notepad", "regexpwndtitle:=Notepad").Activate
set WshShell = CreateObject("WScript.Shell")
'Navigate to last line in Notepad window
WshShell.SendKeys "^a" 'Select All (Ctrl + A)
WshShell.SendKeys "{DOWN}" ' Down Arrow
Window("regexpwndclass:=Notepad", "regexpwndtitle:=Notepad").WinEditor("nativeclass:=Edit").Type Message & MicReturn
Set WshShell = Nothing
'set WshShell = CreateObject("WScript.Shell")
'WshShell.SendKeys "^s" 'Save (Ctrl + S)
'Set WshShell = Nothing
End Function
'#############################################################################################
'# Function: f_SavePrintLog
'# This function is used in conjuction with f_PrintLog. This function is kept seperate
'# in order to improve performance.
'#############################################################################################
Function f_SavePrintLog ()
Window("regexpwndclass:=Notepad", "regexpwndtitle:=Notepad").Activate
set WshShell = CreateObject("WScript.Shell")
Set WshShell = Nothing
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^s" 'Save (Ctrl + S)
Set WshShell = Nothing
End Function
'#############################################################################################
'# Function: f_Whichwindow
'#
'#############################################################################################
Function f_Whichwindow()
vWin = ""
if Browser("Browser").Page("Consumer Portal Home").Exist then
if Browser("Browser").Page("Consumer Portal Home").WebElement("Error").Exist then
vWin = "Consumer Portal Home - Error"
else
vWin = "Consumer Portal Home"
end if
elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_HomePage").Link("lnk_Welcome").Exist(0) then
vWin = "myCIGNA_Homepage"
elseif browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").WebElement("lnk_Medical benefit details").Exist(0) then
vWin = "myCIGNA_Summary"
elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MemberSummary").WebTable("Last Name").Exist(0) then
vWin = "myCIGNA_MemberSummary"
elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_BenefitsDetails").WebElement("Err_Temporarily Unavailable").Exist(0) then
vWin = "myCIGNA_BenefitsDetails_Unavailable"
elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_BenefitsDetails").WebTable("tbl_MedBenefits").Exist(0) then
vWin = "myCIGNA_BenefitsDetails"
elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_Vision").WebTable("tbl_Vision").exist(0) then
vWin = "myCIGNA_Vision"
elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MentalHealth").WebTable("tbl_Mental Health").Exist(0) then
vWin = "myCIGNA_MentalHealth"
else
vWin = "Unexpected Window"
end if
End Function
'#############################################################################################
'# Function: f_ClmWhichwindow
'#
'#############################################################################################
'Function f_ClmWhichwindow()
'vWin = ""
' if Browser("Browser").Page("Consumer Portal Home").Exist then
' if Browser("Browser").Page("Consumer Portal Home").WebElement("Error").Exist then
' vWin = "Consumer Portal Home - Error"
' else
'' vWin = "Consumer Portal Home"
' end if
' elseif browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").WebElement("lnk_Medical benefit details").Exist then
' vWin = "myCIGNA_Summary"
' elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MemberSummary").WebTable("Last Name").Exist then
' vWin = "myCIGNA_MemberSummary"
' elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_BenefitsDetails").WebTable("tbl_MedBenefits").Exist then
' vWin = "myCIGNA_BenefitsDetails"
' elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_Vision").WebTable("tbl_Vision").exist then
' vWin = "myCIGNA_Vision"
' elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MentalHealth").WebTable("tbl_Mental Health").Exist then
' vWin = "myCIGNA_MentalHealth"
' else
' vWin = "Unexpected Window"
' end if
' msgbox " The window is" & vWin
'
'myCIGNA_Summary
'myCIGNA_MemberSummary
'myCIGNA_BenefitsDetails
'end if
'End Function
'#############################################################################################
'# Function: f_arraypossiblewindows
'#
'#############################################################################################
function f_arraypossiblewindows()
end function
'#############################################################################################
'# Function: f_SelectListItem
'#
'#############################################################################################
public function f_SelectListItem(obj, mySubstr)
'grab list contents (will be semi-colon delimited)
listContents = obj.GetROProperty ("all items")
'split list contents into individual array elements
listArr = split(listContents, ";", -1, 1)
for i=1 to UBound (listArr)
'check if your string matches and begins on first character of list item
'if so, then it is a match
if (InStr(1, listArr(i), mySubstr, 1) = 1) then
obj.Select (listArr(i))
matchListItem = 0
end if
next
End Function
'#############################################################################################
'# Function: f_SelectCalendarDate
'#
'#############################################################################################
Function f_SelectCalendarDate(tcalendar, tcalendardate)
tdate = tcalendardate
tcal = tcalendar
arrdate = split(tdate,"/")
tmonth = arrdate(0)
tmonthname = MonthName(tmonth)
tMonYear = tmonthname &" "&arrdate(2)
If tcal = 1 Then
tdate1 = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebEdit("fromDate").GetROProperty("value")
Browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").Image("Img_calendar").Click
elseif tcal = 2 then
tdate1 = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebEdit("toDate").GetROProperty("value")
Browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").Image("Img_calendar_2").Click
End If
tdate = cdate(tdate)
x = datediff("d", tdate, tdate1)
text = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebElement("Month Year").GetROProperty("innertext")
tcounter = 1
If tMonYear <> text Then
Do
'msgbox ttime
if x > 0 then
Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebButton("<").Click
elseif x < 0 then
Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebButton(">").Click
end if
text = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebElement("Month Year").GetROProperty("innertext")
If tMonYear = text Then
Exit do
end if
tcounter = tcounter + 1
Loop Until tcounter = 48
End if
tdateobj = "<_"&arrdate(1)
Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebElement(tdateobj).click
'If tcal = 1 Then
' Browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").Image("Img_calendar").Click
'elseif tcal = 2 then
' Browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").Image("Img_calendar_2").Click
'End If
'text = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebElement("Month Year").GetROProperty("innertext")
'msgbox text
'tcounter = 1
'ttime = now
'If tMonYear <> text Then
'Do
'msgbox ttime
'Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebButton("<").Click
'text = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebElement("Month Year").GetROProperty("innertext")
'ttime = now
'msgbox ttime
'If tMonYear = text Then
' Exit do
'end if
'msgbox "to set "&tMonYear & " text :"& text
'tcounter = tcounter + 1
'Loop Until tcounter = 48
'End If
'tdateobj = "<_"&arrdate(1)
'msgbox tdateobj
'Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrch").WebElement(tdateobj).click
end function
'#############################################################################################
'# Function: f_ClmWhichwindow
'#
'#############################################################################################
Function f_ClmWhichwindow (tWin1,tWin2,tWin3,tWin4)
vWin = ""
tarWin = Array(tWin1, tWin2, tWin3, tWin4 )
for i = 0 to 3
Select Case tarWin(i)
Case "Consumer Portal Home"
'msgbox " I went in CP HOME section"
if Browser("Browser").Page("Consumer Portal Home").Exist(25) then
if Browser("Browser").Page("Consumer Portal Home").WebElement("Error").Exist(20) then
'msgbox " I went in CP ERROR section"
vWin = "Consumer Portal Home - Error"
'msgbox " The window is" & vWin
Exit for
else
'msgbox " i went in CP home else section"
vWin = "Consumer Portal Home"
'msgbox " The window is" & vWin
Exit for
end if
end if
Case "myCIGNA_Home"
If browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_HomePage").Link("lnk_Welcome").Exist(25) Then
vWin = "myCIGNA_Home"
Exit for
End If
Case "myCIGNA_Summary"
if browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").WebElement("lnk_Medical benefit details").Exist(25) then
vWin = "myCIGNA_Summary"
'msgbox " The window is" & vWin
Exit for
end if
Case "myCIGNA_AdvancedClmSearch"
if browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").Exist(25) then
tcheck1 = browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").WebRadioGroup("rbtn_dateType").Exist(5)
'msgbox tcheck1
tcheck2 = Browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").Image("Img_calendar").Exist(1)
'msgbox tcheck2
tcheck3 = Browser("myCIGNA").Page("myCIGNA_3").Frame("myCIGNAClmAdvSrch").Image("Img_calendar_2").Exist(1)
'msgbox tcheck3
elseif Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_ClaimsSummary2").Exist(25) then
tcheck4 = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_ClaimsSummary2").WebElement("NoClaimsError").Exist(1)
'msgbox tcheck4
end if
if tcheck1 = "True" and tcheck2 = "True" and tcheck3 = "True" then
'msgbox "I am in this section after all three are TRUE"
If browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_ClaimsSummary2").WebElement("UnavailableError").Exist Then
vWin = "myCIGNA_AdvancedClmSearch - Error1"
Exit for
elseif browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNAClmAdvSrchErr").WebElement("tbl_Error").Exist then
vWin = "myCIGNA_AdvancedClmSearch - Error"
'msgbox " The window is" & vWin
Exit for
else
vWin = "myCIGNA_AdvancedClmSearch"
'msgbox " The window is" & vWin
Exit for
end if
elseif tcheck4 = "True" then
vWin = "myCIGNA_AdvancedClmSearch - NoClmError"
'msgbox " The window is" & vWin
Exit for
end if
Case "myCIGNA_ClaimSummary"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_ClaimsSummary").WebTable("tbl_Search Result").Exist(25) then
vWin = "myCIGNA_ClaimSummary"
'msgbox " The window is" & vWin
Exit for
end if
Case "myCIGNA_ClaimDetails"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_ClaimDetails").WebTable("tbl_DetailLines").Exist(25) then
vWin = "myCIGNA_ClaimDetails"
'msgbox " The window is" & vWin
Exit for
end if
Case ""
'msgbox " i am in empty section"
Case Else
'msgbox " This window is not defined "
End Select
Next
if vWin = "" then
vWin = "UnExpected Window"
end if
'msgbox " The win before returning is " & vWin
f_ClmWhichwindow = vWin
End Function
'#############################################################################################
'# Function: f_MedCTWhichwindow
'#
'#############################################################################################
Function f_MedCTWhichwindow (tWin1,tWin2,tWin3,tWin4)
vWin = ""
tarWin = Array(tWin1, tWin2, tWin3, tWin4 )
for i = 0 to 3
Select Case tarWin(i)
Case "Consumer Portal Home"
'msgbox " I went in CP HOME section"
if Browser("Browser").Page("Consumer Portal Home").Exist(25) then
if Browser("Browser").Page("Consumer Portal Home").WebElement("Error").Exist(20) then
vWin = "Consumer Portal Home - Error"
Exit for
else
vWin = "Consumer Portal Home"
Exit for
end if
end if
Case "myCIGNA_Home"
If browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_HomePage").Link("lnk_Welcome").Exist(25) Then
vWin = "myCIGNA_Home"
Exit for
End If
Case "myCIGNA_Summary"
check1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MedCostTracker_Sum2").Link("lnk_View deductibles and maximums").Exist(30)
check2 = browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").WebElement("lnk_Medical benefit details").Exist(5)
if check1 = "True" then
vWin = "myCIGNA_Summary"
Exit for
elseif check1 = "False" and check2 ="True" then
vWin = "myCIGNA_Summary1"
Exit for
end if
Case "myCIGNA_MemberSummary"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MemberSummary").WebTable("Last Name").Exist then
vWin = "myCIGNA_MemberSummary"
Exit for
end if
Case "myCIGNA_CTDetails"
tSelectYear = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MedCostTracker_Details").WebList("lst_InfoFor").Exist(10)
tCTtable = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MedCostTracker_Details").WebTable("tbl_OutofPocketYTD").Exist(10)
if tSelectYear = "True" and tCTtable = "True" then
vWin = "myCIGNA_CTDetails"
'msgbox " The window is" & vWin
Exit for
elseif tSelectYear = "True" and tCTtable = "False" then
vWin = "myCIGNA_CTDetails_Error"
Exit for
end if
Case ""
'msgbox " i am in empty section"
Case Else
'msgbox " This window is not defined "
End Select
Next
if vWin = "" then
vWin = "UnExpected Window"
end if
'msgbox " The win before returning is " & vWin
f_MedCTWhichwindow = vWin
End Function
'#############################################################################################
'# Function: f_DenEBWhichwindow
'#
'#############################################################################################
Function f_DenEBWhichwindow (tWin1,tWin2,tWin3,tWin4)
vWin = ""
tarWin = Array(tWin1, tWin2, tWin3, tWin4 )
for i = 0 to 3
'msgbox tarWin(i)
Select Case tarWin(i)
Case "Consumer Portal Home"
if Browser("Browser").Page("Consumer Portal Home").Exist(25) then
if Browser("Browser").Page("Consumer Portal Home").WebElement("Error").Exist(20) then
vWin = "Consumer Portal Home - Error"
Exit for
else
vWin = "Consumer Portal Home"
Exit for
end if
end if
Case "myCIGNA_Home"
If browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_HomePage").Link("lnk_Welcome").Exist(25) Then
vWin = "myCIGNA_Home"
Exit for
End If
Case "myCIGNA_DenSummary"
texist = browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").Exist(4)
tselected = browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").GetROProperty("class")
If texist = "True" and tselected = "selected" Then
texist1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DentalSummary").Link("View your dental benefit").Exist
If texist1 = "True" Then
vWin = "myCIGNA_DenSummary"
else
vWin = "myCIGNA_DenSummary1"
end if
Exit for
elseif texist = "True" and tselected = "" Then
browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").Click
texist1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DentalSummary").Link("View your dental benefit").Exist
If texist1 = "True" Then
vWin = "myCIGNA_DenSummary"
else
vWin = "myCIGNA_DenSummary1"
end if
Exit for
elseif texist = "False" and tselected = "" then
vWin = "myCIGNA_DenSummary_Unavailable"
Exit for
End If
Case "myCIGNA_DentalMbrSummary"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DentalMbrSummary").WebTable("tbl_MbrInfo").Exist then
vWin = "myCIGNA_DentalMbrSummary"
Exit for
end if
Case "myCIGNA_DentalBenefitsDtls"
ttblexist =browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenBenefitsDetails").WebTable("tbl_DenBenefits").Exist
If ttblexist = "True" Then
vWin = "myCIGNA_DentalBenefitsDtls"
Exit for
End If
Case "myCIGNA_DentalCTDetails"
tCTtable = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenCostTracker_Details").WebTable("tbl_Details").Exist(10)
tCTRows = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenCostTracker_Details").WebTable("tbl_Details").RowCount
if tCTRows > 6 and tCTtable = "True" then
vWin = "myCIGNA_DentalCTDetails"
Exit for
elseif tCTRows <= 6 and tCTtable = "False" then
vWin = "myCIGNA_DentalCTDetails_Error"
Exit for
end if
Case ""
'msgbox " i am in empty section"
Case Else
'msgbox " This window is not defined "
End Select
Next
if vWin = "" then
vWin = "UnExpected Window"
end if
'msgbox " The win before returning is " & vWin
f_DenEBWhichwindow = vWin
End Function
'#############################################################################################
'# Function: f_DenCTWhichwindow
'#
'#############################################################################################
Function f_DenCTWhichwindow (tWin1,tWin2,tWin3,tWin4)
vWin = ""
tarWin = Array(tWin1, tWin2, tWin3, tWin4 )
for i = 0 to 3
'msgbox tarWin(i)
Select Case tarWin(i)
Case "Consumer Portal Home"
if Browser("Browser").Page("Consumer Portal Home").Exist(25) then
if Browser("Browser").Page("Consumer Portal Home").WebElement("Error").Exist(20) then
vWin = "Consumer Portal Home - Error"
Exit for
else
vWin = "Consumer Portal Home"
Exit for
end if
end if
Case "myCIGNA_Home"
If browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_HomePage").Link("lnk_Welcome").Exist(25) Then
vWin = "myCIGNA_Home"
Exit for
End If
Case "myCIGNA_DenSummary"
texist = browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").Exist(4)
tselected = browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").GetROProperty("class")
If texist = "True" and tselected = "selected" Then
texist1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenCostTracker_Sum1").WebList("lst_CostTrackerSelect").Exist
If texist1 = "True" Then
vWin = "myCIGNA_DenSummary"
else
vWin = "myCIGNA_DenSummary1"
end if
Exit for
elseif texist = "True" and tselected = "" Then
browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").Click
texist1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenCostTracker_Sum1").WebList("lst_CostTrackerSelect").Exist
texist2 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenCostTracker_Sum1").Link("lnk_View deductibles and maximums").Exist
If texist1 = "True" and texist2 = "True" Then
vWin = "myCIGNA_DenSummary"
else
vWin = "myCIGNA_DenSummary1"
end if
Exit for
elseif texist = "False" and tselected = "" then
vWin = "myCIGNA_DenSummary_Unavailable"
Exit for
End If
Case "myCIGNA_DentalMbrSummary"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DentalMbrSummary").WebTable("tbl_MbrInfo").Exist then
vWin = "myCIGNA_DentalMbrSummary"
Exit for
end if
Case "myCIGNA_DentalBenefitsDtls"
ttblexist =browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenBenefitsDetails").WebTable("tbl_DenBenefits").Exist
If ttblexist = "True" Then
vWin = "myCIGNA_DentalBenefitsDtls"
Exit for
End If
Case "myCIGNA_CTDetails"
tSelectYear = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MedCostTracker_Details").WebList("lst_InfoFor").Exist(10)
tCTtable = Browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_MedCostTracker_Details").WebTable("tbl_OutofPocketYTD").Exist(10)
if tSelectYear = "True" and tCTtable = "True" then
vWin = "myCIGNA_CTDetails"
Exit for
elseif tSelectYear = "True" and tCTtable = "False" then
vWin = "myCIGNA_CTDetails_Error"
Exit for
end if
Case ""
Case Else
End Select
Next
if vWin = "" then
vWin = "UnExpected Window"
end if
f_DenCTWhichwindow = vWin
End Function
'#############################################################################################
'# Function: f_DenClmWhichwindow
'#
'#############################################################################################
Function f_DenClmWhichwindow (tWin1,tWin2,tWin3,tWin4)
vWin = ""
tarWin = Array(tWin1, tWin2, tWin3, tWin4 )
for i = 0 to 3
Select Case tarWin(i)
Case "Consumer Portal Home"
if Browser("Browser").Page("Consumer Portal Home").Exist(25) then
if Browser("Browser").Page("Consumer Portal Home").WebElement("Error").Exist(20) then
vWin = "Consumer Portal Home - Error"
Exit for
else
vWin = "Consumer Portal Home"
Exit for
end if
end if
Case "myCIGNA_Home"
If browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_HomePage").Link("lnk_Welcome").Exist(25) Then
vWin = "myCIGNA_Home"
Exit for
End If
Case "myCIGNA_DenSummary"
texist = browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").Exist(35)
tselected = browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").GetROProperty("class")
If texist = "True" and tselected = "selected" Then
texist1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenCostTracker_Sum1").Link("lnk_Advanced date range search").Exist
If texist1 = "True" Then
vWin = "myCIGNA_DenSummary"
else
vWin = "myCIGNA_DenSummary1"
end if
Exit for
elseif texist = "True" and tselected = "" Then
browser("myCIGNA").Page("myCIGNA").Frame("myCIGNA_Summary").Link("lnk_Dental").Click
texist1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenCostTracker_Sum1").Link("lnk_Advanced date range search").Exist
If texist1 = "True" Then
vWin = "myCIGNA_DenSummary"
else
vWin = "myCIGNA_DenSummary1"
end if
Exit for
elseif texist = "False" and tselected = "" then
vWin = "myCIGNA_DenSummary_Unavailable"
Exit for
End If
Case "myCIGNA_DentalMbrSummary"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DentalMbrSummary").WebTable("tbl_MbrInfo").Exist then
vWin = "myCIGNA_DentalMbrSummary"
Exit for
end if
Case "myCIGNA_AdvancedClmSearch"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").Exist(25) then
tcheck1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").WebRadioGroup("rbtn_dateType").Exist(5)
tcheck2 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").Image("Img_calendar").Exist(1)
tcheck3 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").Image("Img_calendar_2").Exist(1)
tcheck5 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").WebElement("Error_Msg").Exist(0)
elseif browser("myCIGNA").Page("myCIGNA_2").frame("myCIGNA_DenClaimsSummary").Exist(25) then
tcheck4 = browser("myCIGNA").Page("myCIGNA_2").frame("myCIGNA_DenClaimsSummary").WebTable("tbl_Error").Exist(1)
end if
If tcheck1 = "True" and tcheck2 = "True" and tcheck3 = "True" then
If tcheck5 = "True" Then
vWin = "myCIGNA_AdvancedClmSearch - Error"
Exit for
else
vWin = "myCIGNA_AdvancedClmSearch"
Exit for
End If
elseif tcheck4 = "True" then
vWin = "myCIGNA_AdvancedClmSearch - Error1"
Exit for
end if
Case "myCIGNA_ClaimSummary"
if browser("myCIGNA").Page("myCIGNA_2").frame("myCIGNA_DenClaimsSummary").webtable("tbl_Search Result").Exist(25) then
vWin = "myCIGNA_ClaimSummary"
Exit for
end if
Case "myCIGNA_ClaimDetails"
if browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNA_DenClaimDetails").WebTable("tbl_DetailLines").Exist(25) then
vWin = "myCIGNA_ClaimDetails"
Exit for
end if
Case ""
'msgbox " i am in empty section"
Case Else
'msgbox " This window is not defined "
End Select
Next
if vWin = "" then
vWin = "UnExpected Window"
end if
f_DenClmWhichwindow = vWin
End Function
'#############################################################################################
'# Function: f_DenSelectCalendarDate
'#
'#############################################################################################
Function f_DenSelectCalendarDate(tcalendar, tcalendardate)
tdate = tcalendardate
tcal = tcalendar
arrdate = split(tdate,"/")
tmonth = arrdate(0)
tmonthname = MonthName(tmonth)
tMonYear = tmonthname &" "&arrdate(2)
If tcal = 1 Then
tdate1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").webedit("fromDate").GetROProperty("value")
browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").Image("Img_calendar").Click
elseif tcal = 2 then
tdate1 = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").webedit("toDate").GetROProperty("value")
browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").Image("Img_calendar_2").Click
End If
tdate = cdate(tdate)
x = datediff("d", tdate, tdate1)
text = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").WebElement("Month Year").GetROProperty("innertext")
tcounter = 1
If tMonYear <> text Then
Do
'msgbox ttime
if x > 0 then
browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").WebButton("<").Click
elseif x < 0 then
browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").WebButton(">").Click
end if
text = browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").WebElement("Month Year").GetROProperty("innertext")
If tMonYear = text Then
Exit do
end if
tcounter = tcounter + 1
Loop Until tcounter = 48
End if
tdateobj = "<_"&arrdate(1)
browser("myCIGNA").Page("myCIGNA_2").Frame("myCIGNADenClmAdvSrch").WebElement(tdateobj).click
end function
