'############################### KEYWORD DRIVEN FRAMEWORK

#####################################
'File Name : User Defined Functions
'Author : Open2Test
'Version : V 1.00
'Date of Creation : 17 February 2009
'###################################### Common Functions
#######################################
Option Explicit 'To enforce variable declaration
'##################################################################################
###############
'Function name : Func_FunctionCall
'Description : If the user requires to perform application specific
operations /functions.
'Parameters : 1. The Function Name to be used.
' 2. The parameters to be used with the called
Function.
'Assumptions : NA
'##################################################################################
###############
'The following function is for 'CallFunction' Keyword
'##################################################################################
###############
Public Function Func_FunctionCall(strFunName, StrParameters)
Dim arrActionParam 'Stores the Action Parameters
Dim intActionParamCount 'Stores the number of parameters
Dim strInfo 'Stores all the parameters to be used in the
functions
Dim inta 'Used for looping
strInfo = StrParameters
If strInfo <> "" then
arrActionParam = Split(strInfo,":",-1,1)'Splitting the parameters to be used
intActionParamCount = UBound(arrActionParam)
For inta = 0 to intActionParamCount 'Retrieving the parameters
If Instr(1,arrActionParam(inta),"Null",1) <> 0 Then
arrActionParam(inta)=""
Else
cellData = arrActionParam(inta)
Call GetValue(cellData)
arrActionParam(inta) = cellData
End If
Next
End If
Select Case lcase(strFunName) 'Selecting the used defined functions

'User Defined function created by Umesh ###################

Case "function1"
Call login_dialog()
Case "udaselection" ' UDA Link Selection
Call UDA_selection()
Case "title"
Call Captiontitle()
Case "ptitle"
Call Pcaptiontitle()
Case"uda"
Call uda_assmnt1()
Case "dialog"
Call delete_assmnt()
Case "delete_assmnt"
 Call lock_unlock_assmnt()
Case"view_assess"
Call view_assess()
Case "assessment_type"
Call uda_assmnt()
Case "edit_assmnt_type"
Call edit_assmnt()
Case "mds"
Call uda_mds()
Case"dialog1"
Call dialog_mds()
Case "section"
Call uda_section()
Case "option"
Call uda_option()
Case "uda_multi"
Call multichoice()
Case "dialog_close"
Call uda_dialog()
Case "instruction"
Call multichoice_instruction()
Case "instruction1"
Call yes_no_choice()
Case"instruction2"
Call date_time_text_numeric()
Case "instruction3"
Call label()
Case "instruction4"
Call decision()
Case"instruction5"
Call database_health_record_no()
Case "instruction6"
Call graphics_file_upload()
Case "instruction7"
Call graphics_residance_lebel()
Case "instruction8"
Call database_cur_admit_date()
Case "instruction9"
Call database_primary_phy()
Case "instruction10"
Call database_birth_date()
'*********************User defined function by Lokesh******************************
Case "selectclinicalreport"
Call func_selectclinicalreport()
Case "selresreport"
Call func_selresreport()
Case "reportoutput"
Call func_reportoutput()
Case "closepdf"
Call func_closepdf()
Case "selresident"
Call func_selresident()
Case "selassessment"
Call func_selassessment()
Case "selectresident"
Call func_selectresident()
'**************************User Defined by Panna*************************
Case "viewtemplate"
Call View_Template()
 Case "udaselection1"
Call UDA_selection1()
Case "ifile"
Call Importfile()
Case "dtemplate"
Call Deletetemplate()
Case "vtemplate"
Call viewtemplate()
Case "tstatus"
Call templatestatus()

End select
End Function

'###############***********************User defined function by

UDA_Panna*******************************************

'################Login into Kns application with dialog handling #############

Function login_dialog()
'Login into Kns application with dialog handling
If Browser("Welcome to Keane NetSolutions").Dialog("Message from
webpage").Exist Then
Browser("Welcome to Keane NetSolutions").Dialog("Message from
webpage").WinButton("OK").Click
End If
End Function

'#############################UDA Link selection #####################

Function UDA_selection()
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Templates").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Templates").Click
Else
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Click
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Templates").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Templates").Click
Else
Reporter.ReportEvent ,micFail ,"Templates link not exist"
End If
End If
End Function
'#################### Add Not Published Title Under UDA ###################
Function Captiontitle()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next

If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then

If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboTemplateArea").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboTemplateArea").Select "Title"
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebEdit("txtCaption").Set str
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboAssessmentType").Select "Entry"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebCheckBox("chkScores").Set "ON"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebRadioGroup("rdoPublish").Select "#0"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Image("btnSave").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Image("btnCloseWindow").Click
' If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Dialog("Message from webpage").Exist Then
' Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Dialog("Message from webpage").WinButton("OK").Click
' End If
Else Reporter.ReportEvent ,micFail , " Template Area dropdown box is not
available"
End If
Else Reporter.ReportEvent,micWarning , "UDA -- Webpage Dialog is not display"
End If
End Function

' #################### Add Published Title Under UDA

################################
Function Pcaptiontitle()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next

If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then

If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboTemplateArea").Exist Then
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboTemplateArea").Select "Title"
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebEdit("txtCaption").Set str
Wait(2)
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboAssessmentType").Select "Entry"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebCheckBox("chkScores").Set "ON"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebRadioGroup("rdoStatus").Select "#0"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebRadioGroup("rdoPublish").Select "#0"
Wait(2)
 Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Image("btnSave").Click
' Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Image("btnCloseWindow").Click

Wait(2)
' If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Dialog("Message from webpage").Exist Then
' Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Dialog("Message from webpage").WinButton("OK").Click
' End If

' Browser("Keane NetSolutions").Window("UDA -- Webpage

Dialog").Page("UDA").Frame("Frame").Image("btnCloseWindow").Click

Else Reporter.ReportEvent ,micFail , " Template Area dropdown box is not

available"
End If
Else Reporter.ReportEvent,micWarning , "UDA -- Webpage Dialog is not display"
End If
End Function

Function delete_assmnt()
If Browser("Keane NetSolutions").Dialog("Message from webpage").Exist Then
Browser("Keane NetSolutions").Dialog("Message from
webpage").WinButton("OK").Click
End If
End Function

Function uda_assmnt1()
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Click
Else
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Assessments").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Assessments").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Click
Else
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("CHARTING").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("CHARTING").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Assessments").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Click
End If
End If
End If
End Function

' Delete an Lock/Unlock assessment from summury screen ################

Function lock_unlock_assmnt()
 Dim U
U=Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("Add_assessment").Image("Lock").GetROProperty("file name")
If U="icon-locked.gif" Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("Add_assessment").Image("Lock").Click
Browser("Keane NetSolutions").Dialog("Message from
webpage").WinButton("OK").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("Add_assessment").Image("Delete").Click
Browser("Keane NetSolutions").Dialog("Message from
webpage").WinButton("OK").Click
Else
If U="icon-unlocked.gif" Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("Add_assessment").Image("Delete").Click
Browser("Keane NetSolutions").Dialog("Message from
webpage").WinButton("OK").Click
End If
End If
End Function

Function view_assess()
If Browser("Keane NetSolutions").Window("UDAAssessment -- Webpage").Exist Then
Browser("Keane NetSolutions").Window("UDAAssessment --
Webpage").Page("UDAAssessment").Image("btnRunReport").Click
Wait(2)
Browser("Keane NetSolutions").Window("UDAAssessment -- Webpage").Close
End If
End Function
'************************** For Facility*****************
Function uda_assmnt()
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Exist Then
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Assessment Types").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Assessment Types").Click
Else
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Assessment Types").Click
End If
End If
End Function

Function edit_assmnt()
Dim R
R= browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").WebEdit("Edit").GetROProperty("default value")
If R="Umesh" Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").WebEdit("Edit").Set"KNS"
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").Image("Edit").Click
End if
If R= "Umesh1" Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").WebEdit("Edit").Set"KNS"
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").Image("Edit").Click

Else
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").WebEdit("Edit").Set"Umesh"
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").Image("Edit").Click
End if
End Function

Function uda_mds()
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Exist Then
If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("MDS 3.0 Correlation").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("MDS 3.0 Correlation").Click
Else
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("UDA").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("MDS 3.0 Correlation").Click
End If
End If
End Function

Function dialog_mds()
If Browser("Keane NetSolutions").Dialog("Message from webpage").Exist Then
Browser("Keane NetSolutions").Dialog("Message from
webpage").WinButton("OK").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("rbottom").WebList("ddlTemplates").Click
End If
End Function

Function uda_section()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboTemplateArea").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebList("cboTemplateArea").Select "Section"
Wait(2)
If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebEdit("txtCaption").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").WebEdit("txtCaption").Set str
Else
Reporter.ReportEvent micFail, "Section Caption Text box ", " Is Not
Available"
End If
End If
End Function
Function uda_option()
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA").Frame("Frame").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
Dim j
For j = 0 To colCheckboxes.Count -1
colCheckboxes(j).Set "ON"
Next
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_5").Image("btnSave").Click
' Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Image("btnCloseWindow").Click
End Function
'########################### Select multi choice###################
Function multichoice()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Single and multiple choice").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").WebEdit("txtCaption").Set str
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_3").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -2
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").WebCheckBox("chkField").GetROProperty("disa
bled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
End If
Dim str1
Dim s
 Const LETTERS1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For s = 1 to 3
str1 = str1 & Mid( LETTERS1, RandomNumber( 1, Len( LETTERS1 ) ), 1 )
Next

Browser("Keane NetSolutions").Window("UDA -- Webpage

Dialog").Page("UDA_2").Frame("Frame_3").WebEdit("ChoiceAdd").Set str1
Dim num
Dim n
Const NUMBER = "0123456789"
For n = 1 to 2
num = num & Mid( NUMBER, RandomNumber( 1, Len( NUMBER ) ), 1 )
Next

Browser("Keane NetSolutions").Window("UDA -- Webpage

Dialog").Page("UDA_2").Frame("Frame_3").WebEdit("ScoreAdd").Set num
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").Image("SaveRespo").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").Image("btnCloseWindow").Click

End Function

Function uda_dialog()
If Browser("Keane NetSolutions").Window("-- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("-- Webpage Dialog").Close
Else
Reporter.ReportEvent micWarning, "Window not found","Window is not existing"
End If
End Function
'######################## Multiple Choice Section Items Selection with Instruction
########
Function multichoice_instruction()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Single and multiple choice").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").WebEdit("txtCaption").Set str
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_3").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -2
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").WebCheckBox("chkField").GetROProperty("disa
bled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").Link("Create instructions").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").WebEdit("txtInstruction").Set
"Instructions need to added hear !!!!!"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").Image("btnSave").Click
browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").Image("btnCloseWindow").Click
End If
Dim str1
Dim s
Const LETTERS1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For s = 1 to 3
str1 = str1 & Mid( LETTERS1, RandomNumber( 1, Len( LETTERS1 ) ), 1 )
Next

Browser("Keane NetSolutions").Window("UDA -- Webpage

Dialog").Page("UDA_2").Frame("Frame_3").WebEdit("ChoiceAdd").Set str1
Dim num
Dim n
Const NUMBER = "0123456789"
For n = 1 to 2
num = num & Mid( NUMBER, RandomNumber( 1, Len( NUMBER ) ), 1 )
Next

Browser("Keane NetSolutions").Window("UDA -- Webpage

Dialog").Page("UDA_2").Frame("Frame_3").WebEdit("ScoreAdd").Set num
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").Image("SaveRespo").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").Image("btnCloseWindow").Click
End Function

Function yes_no_choice()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Yes and No choice").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_4").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_4").WebEdit("txtCaption").Set str
' msgbox str
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_4").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -2
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_4").WebCheckBox("chkField").GetROProperty("disa
bled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_4").WebEdit("txtYes").Set"10"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_4").WebEdit("txtNo").Set "20"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_4").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_4").Image("btnCloseWindow").Click
End If
End Function

Function date_time_text_numeric()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Date time").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").WebEdit("txtCaption").Set str
' msgbox str
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_6").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -2
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").WebCheckBox("chkField").GetROProperty("disa
bled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").WebRadioGroup("rdoFormat").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").WebEdit("txtFieldsize").Set "50"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_6").Image("btnCloseWindow").Click
End If
End Function

Function label()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Label").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_7").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_7").WebEdit("txtCaption").Set str
' msgbox str
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_7").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -2
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_7").WebCheckBox("chkBold").GetROProperty("disab
led")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_7").WebList("cboColor").Select 1
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_7").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_7").Image("btnCloseWindow").Click
End If
End Function

Function decision()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Decision").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_8").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_8").WebEdit("txtCaption").Set str
' msgbox str
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_8").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -1
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_8").WebCheckBox("chkField").GetROProperty("disa
bled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_8").WebEdit("txtYes").Set"20"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_8").WebEdit("txtNo").Set"10"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_8").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_8").Image("btnCloseWindow").Click
End If
End Function

Function database_health_record_no()

If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then

Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Database fields").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebList("cboField").Select 11
'Dim A
'A=Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebEdit("txtCaption").GetROProperty("innert
ext")
'Msgbox A
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebEdit("txtCaption").Set "Health record
number"
Wait(2)
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_9").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -2
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebCheckBox("chkInstructions").GetROPropert
y("disabled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnCloseWindow").Click
End If
End Function
'############## Uploading an file in Template Database field

Function graphics_file_upload()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Graphics").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebEdit("txtCaption").Set str
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebRadioGroup("chkAttachGraphics").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").Image("imgAttachPhoto").Click
Browser("Keane NetSolutions_2").Window("UDA -- Webpage Dialog").Window("Upload
Resident Photo").Activate
Browser("Keane NetSolutions_2").Window("UDA -- Webpage Dialog").Window("Upload
Resident Photo").Page("Upload Resident Photo").WebFile("fuResPhoto").Click
Browser("Keane NetSolutions_2").Window("UDA -- Webpage Dialog").Window("Upload
Resident Photo").Page("Upload Resident Photo").WebFile("fuResPhoto").Set "C:\HSD\
UDA\Document\Blue hills.jpg"
Browser("Keane NetSolutions_2").Window("UDA -- Webpage Dialog").Window("Upload
Resident Photo").Page("Upload Resident Photo").WebButton("Upload").Click
Browser("Keane NetSolutions_2").Window("UDA -- Webpage Dialog").Activate
Browser("Keane NetSolutions_2").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Link("View graphic").Click
Browser("Keane NetSolutions_2").Window("UDA -- Webpage Dialog").Window("-- Webpage
Dialog").Close
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_10").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -2
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebCheckBox("chkDecisionField").GetROPrope
rty("disabled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
' Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_7").WebList("cboColor").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").Image("btnCloseWindow").Click
End If
End Function

' upload graphics at residance lebel##################

Function graphics_residance_lebel()
Dim str
Dim i
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 to 6
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Graphics").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebEdit("txtCaption").Click
Setting.WebPackage("ReplayType") = 2
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebEdit("txtCaption").Set str
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebRadioGroup("chkResidentLevel").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebCheckBox("chkDecisionField").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").WebList("cboDecisionField").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").Image("btnSave").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_10").Image("btnCloseWindow").Click
End If
End Function
'######################## Current admit Date for Data base field

Function database_cur_admit_date()

If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then

Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Database fields").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebList("cboField").Select 1
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebEdit("txtCaption").Set "Admit Date"
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebCheckBox("chkDecisionField").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebList("cboDecisionField").Select 0

Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnSave").Click
' Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnCloseWindow").Click
End If
End Function
'############################# Primary physican name in Database field

Function database_primary_phy()

If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist

Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Database fields").Click
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebList("cboField").Select 16
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebEdit("txtCaption").Set "Primary
Phyisican"
Wait(2)
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_9").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -1
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebCheckBox("chkDecisionField").GetROProper
ty("disabled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Link("Create instructions").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").WebEdit("txtInstruction").Set
"Primary Physican Name"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").Image("btnSave").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").Image("btnCloseWindow").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebList("cboDecisionField").Select 0

Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnSave").Click
' Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnCloseWindow").Click
End If
End Function

'################# Birth Date for Database##############

Function database_birth_date()
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").Image("Database fields").Click
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebList("cboField").Select 0
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebEdit("txtCaption").Set "Birthdate"
Wait(2)
Dim j
Dim oDesc: Set oDesc = Description.Create
oDesc("micclass").Value = "WebCheckBox"
oDesc("visible").Value = True
Dim colCheckboxes: Set colCheckboxes = Browser("Keane NetSolutions").Window("UDA
-- Webpage Dialog").Page("UDA_2").Frame("Frame_9").ChildObjects(oDesc)
'msgbox colCheckboxes.Count
For j = 0 To colCheckboxes.Count -1
Dim k
k = Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebCheckBox("chkDecisionField").GetROProper
ty("disabled")
' Msgbox K
If k = "0" Then

colCheckboxes(j).Set "ON"
Elseif k="1" Then

Reporter.ReportEvent micDone, "Web Check box ", " Is disable"

End If
Next
Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Link("Create instructions").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").WebEdit("txtInstruction").Set "Birth
Date selection!!!"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").Image("btnSave").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("Instructions --
Webpage").Page("Instructions").Frame("Frame").Image("btnCloseWindow").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").WebList("cboDecisionField").Select 0

Wait(2)
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnSave").Click
'Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_9").Image("btnCloseWindow").Click
End If
End Function

'**************** USer Defined function by Lokesh*************************

Function func_selectclinicalreport()

If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Clinical Reports").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Clinical Reports").Click
Exit Function
End If

If Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Image("Reports").Exist Then
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Image("Reports").Click
Browser("Keane NetSolutions").Page("Keane
NetSolutions").Frame("left").Link("Clinical Reports").Click
Exit Function
End If

End Function

Function func_selresreport()
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents").Image("btnSearch").Click 49,10
wait(2)
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents").WebCheckBox("grdAvail$ctl02$chkSelect").Set "ON"
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents").WebCheckBox("grdAvail$ctl03$chkSelect").Set "ON"
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents").Image("btnSelect").Click 37,11
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents").Image("btnContinue").Click 46,9
wait(2)
Browser("Keane NetSolutions").Page("Keane
NetSolutions_2").Frame("Frame").Image("btnRunReport").Click 48,2
wait(15)
'Browser("Browser").ActiveX("Adobe PDF Reader").WinObject("AVPageView").Click
128,46
'Browser("Browser").ActiveX("Adobe PDF Reader").WinScrollBar("ScrollBar").Set 29932
'Browser("Browser").ActiveX("Adobe PDF Reader").WinObject("AVPageView").Click
187,341
'Browser("Browser").ActiveX("Adobe PDF Reader").WinObject("AVPageView").Click
187,341
'Browser("Browser").ActiveX("Adobe PDF Reader").WinObject("AVPageView").Drag
245,353
'Browser("Browser").ActiveX("Adobe PDF Reader").WinObject("AVPageView").Drop
211,349
'Browser("Browser").ActiveX("Adobe PDF Reader").WinObject("AVPageView").Drag
220,342
'Browser("Browser").ActiveX("Adobe PDF Reader").WinObject("AVPageView").Drop
144,340
Browser("Browser").CloseAllTabs
End Function

Function func_reportoutput()
wait (8)
Browser("Keane NetSolutions").Window("Keane NetSolutions --").Activate
If Browser("Keane NetSolutions").Window("Keane
NetSolutions --").Page("Keane NetSolutions").Frame("Frame").Image("Search for
text").Exist Then
Browser("Keane NetSolutions").Window("Keane
NetSolutions --").Page("Keane NetSolutions").Frame("Frame").Image("Search for
text").Click
Reporter.ReportEvent micPass, "UDA Clinical
Report should be displayed successfully", "UDA Clinical Report displayed
successfully"
Else
Reporter.ReportEvent micFail, "UDA Clinical
Report should be displayed successfully", "Failed to display UDA Clinical Report"
End If

If Browser("Keane NetSolutions").Window("Keane NetSolutions

--").Page("Keane NetSolutions").Frame("Frame").Image("Go to Last Page").Exist Then
Browser("Keane NetSolutions").Window("Keane NetSolutions
--").Page("Keane NetSolutions").Frame("Frame").Image("Go to Last Page").Click
End If
wait(8)
If Browser("Keane NetSolutions").Window("Keane NetSolutions --").Exist
Then
Browser("Keane NetSolutions").Window("Keane NetSolutions
--").Close
End If

End Function

Function func_closepdf()
Browser("Browser").CloseAllTabs
End Function

Function func_selresident()
Browser("Keane NetSolutions").Window("Select Residents --
Webpage").Page("Select Residents").Image("btnSearch").Click 49,10
wait(2)
Browser("Keane NetSolutions").Window("Select Residents --
Webpage").Page("Select Residents").WebCheckBox("grdAvail$ctl02$chkSelect").Set "ON"
Browser("Keane NetSolutions").Window("Select Residents --
Webpage").Page("Select Residents").WebCheckBox("grdAvail$ctl03$chkSelect").Set "ON"
Browser("Keane NetSolutions").Window("Select Residents --
Webpage").Page("Select Residents").Image("btnSelect").Click 37,11
Browser("Keane NetSolutions").Window("Select Residents --
Webpage").Page("Select Residents").Image("btnContinue").Click 46,9
wait(2)
Browser("Keane NetSolutions").Page("Keane
NetSolutions_2").Frame("Frame").Image("btnRunReport").Click 48,2
End Function

Function func_selassessment()
If Browser("Keane NetSolutions").Window("Search For Assessment").Page("Search
For Assessment").Image("select").Exist Then
Browser("Keane NetSolutions").Window("Search For
Assessment").Page("Search For Assessment").Image("select").Click
End If
End Function

Function func_selectresident()
Browser("Keane NetSolutions").Page("Keane
NetSolutions_3").Frame("Frame").WebRadioGroup("SelRes").Select "rbSelRes"
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents_2").Image("btnSearch").Click 59,8
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents_2").WebCheckBox("grdAvail$ctl118$chkSelect").Set "ON"
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents_2").Image("btnSelect").Click 27,14
Browser("Keane NetSolutions").Window("Select Residents -- Webpage").Page("Select
Residents_2").Image("btnContinue").Click 41,12
End Function

'*****************User defined function by Panna*****************

Function View_Template()
If Browser("Keane NetSolutions").Window("UDA -- Webpage Dialog").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplate").Select"Section
items"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_2").WebList("cboTemplateStatus").Select 0
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").Link("View template").Click
Reporter.ReportEvent micDone, "UDAFacilityWorksheet --Page is display
Successfully", " with Assessment Tittle selection dropdown"
If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("UDAFacilityWorksheet --").Page("UDAFacilityWorksheet").Exist Then
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("UDAFacilityWorksheet
--").Page("UDAFacilityWorksheet").Frame("Frame").Image("btnRunReport").Click
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("UDAFacilityWorksheet
--").Page("UDAFacilityWorksheet").Frame("Frame").WebButton("View Report").Click
Wait(5)
If Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("UDAFacilityWorksheet --").Window("Keane NetSolutions --").Exist
Then
Reporter.ReportEvent micPass, "View Template report is display
successfully", " With Selection Item"
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("UDAFacilityWorksheet --").Window("Keane NetSolutions --").Close
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Window("UDAFacilityWorksheet --").Close
Browser("Keane NetSolutions").Window("UDA -- Webpage
Dialog").Page("UDA_2").Frame("Frame_3").Image("btnCloseWindow").Click
'Reporter.ReportEvent micDone, "User are able to view selected Template
report successfully", " For Selection Item"
End If
End If
End If
End Function

Function UDA_selection1()
If Browser("NetSolutions from NTT").Page("NetSolutions from
NTT").Frame("left").Link("Templates").Exist Then
Browser("NetSolutions from NTT").Page("NetSolutions from
NTT").Frame("left").Link("Templates").Click
Else
Browser("NetSolutions from NTT").Page("NetSolutions from
NTT").Frame("left").Link("UDA").Click
 If Browser("NetSolutions from NTT").Page("NetSolutions from
NTT").Frame("left").Link("Templates").Exist Then
Browser("NetSolutions from NTT").Page("NetSolutions from
NTT").Frame("left").Link("Templates").Click
Else
Reporter.ReportEvent ,micFail ,"Templates link not exist"
End If
End If
End Function
'##################### Import file #################
Function Importfile()
If Browser("NetSolutions from NTT").Window("Import/Export
Assessment").Page("Import/Export Assessment").Exist Then
Browser("NetSolutions from NTT").Window("Import/Export
Assessment").Page("Import/Export
Assessment").Frame("Frame").WebRadioGroup("rdoImportExport").Select "0"
Wait(3)
Browser("NetSolutions from NTT").Window("Import/Export
Assessment").Page("Import/Export
Assessment").Frame("Frame").WebFile("fileImport").Click
wait(4)
'browser("NetSolutions from NTT").Window("Import/Export Assessment").Dialog("Choose
File to Upload").WinListView("SysListView32").Select "FC01UDA.xml"
Browser("NetSolutions from NTT").Window("Import/Export Assessment").Dialog("Choose
File to Upload").WinEdit("File name:").Set "FC01UDA.xml"
Wait(1)
Browser("NetSolutions from NTT").Window("Import/Export Assessment").Dialog("Choose
File to Upload").WinButton("Open").Click
Browser("NetSolutions from NTT").Window("Import/Export
Assessment").Page("Import/Export
Assessment").Frame("Frame").Image("btnUpload").Click
Browser("NetSolutions from NTT").Window("Import/Export
Assessment").Page("Import/Export
Assessment").Frame("Frame").Image("btnImport").Click
Wait(5)
Browser("NetSolutions from NTT").Window("Import/Export Assessment").Dialog("Message
from webpage").WinButton("OK").Click
Browser("NetSolutions from NTT").Window("Import/Export
Assessment").Page("Import/Export
Assessment").Frame("Frame").Image("btnCloseWindow").Click
Reporter.ReportEvent micPass, "Import File","Successfully"
Else
Reporter.ReportEvent micFail, "Import/Export Assessment "," Page not display"
End If
End Function
' ########################### Delete Template ##############################
Function Deletetemplate()
If Browser("NetSolutions from NTT").Dialog("Message from webpage").Exist Then
Reporter.ReportEvent micWarning , "Template is in Use", "Can not be
deleted !!!!!!!"
Wait(2)
Browser("NetSolutions from NTT").Dialog("Message from
webpage").WinButton("OK").Click
Else
Browser("NetSolutions from NTT").Page("NetSolutions from
NTT").Frame("rbottom").Image("Delete Template").Click
Browser("NetSolutions from NTT").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Image("btnSave").Click
Browser("NetSolutions from NTT").Window("UDA -- Webpage
Dialog").Page("UDA").Frame("Frame").Image("btnCloseWindow").Click
End If
End Function
'########################### View Template by Link
##################################################
Function viewtemplate()
If Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Page("UDAFacilityWorksheet").Exist Then
Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Page("UDAFacilityWorksheet").Frame("Frame").Image("cmdAsmtTitle").Click
Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Window("Search For Assessment").Page("Search For
Assessment").Image("select").Click
Wait(4)
Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Page("UDAFacilityWorksheet").Frame("Frame").Image("btnRunReport").Click
Wait(3)
Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Page("UDAFacilityWorksheet").Frame("Frame").WebButton("View Report").Click
Wait(8)
If Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Window("Keane NetSolutions --").Exist Then
Wait(5)
Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Window("Keane NetSolutions --").Close
Reporter.ReportEvent micDone, "Defaulted template","Viewed and printed
Successfully !!!!!!!"
Browser("NetSolutions from NTT").Window("UDAFacilityWorksheet
--").Close
Else
Reporter.ReportEvent micFail ,"Defaulted template Report","are not
display"
End If
Else
Reporter.ReportEvent micFail ,"View template","Dialog box is not display"
End If
End Function
'############################# Change Template Status ###############
Function templatestatus()
If Browser("NetSolutions from NTT").Dialog("VBScript").Exist Then
Browser("NetSolutions from NTT").Dialog("VBScript").WinButton("Yes").Click
Reporter.ReportEvent micPass , "Template Status","Change
Successfully !!!!!!!!!!!!"
Else
Reporter.ReportEvent micWarning ,"Template Status","Change dialog box not
display !!!!!!!!"
End If
End Function