#include <IE.au3>
#include <MsgBoxConstants.au3>

; Set fixed window size to display the same on any system
Local $oIE = _IECreate("http://192.168.100.192:8080/eArchive/")
_IEPropertySet($oIE, "left", "0")
_IEPropertySet($oIE, "top", "0")
_IEPropertySet($oIE, "height", "900")
_IEPropertySet($oIE, "width", "1100")

_IELoadWait($oIE)

WinWaitActive ("eArchive::MEDHOST")
Sleep(1000)

; Enter username
Send("AUTOIT")
Send("{TAB}")

;~ Local $password = InputBox("Password", "Please enter your password", "", "*")

; Enter password
Send("AUTOIT1")
Send("{ENTER}")

_IELoadWait($oIE)

Sleep(16000)

$oForm =  _IEFormGetObjByName($oIE, "j_id29:compForm")
$Documents = _IEFormElementGetObjByName ($oForm, "j_id29:compForm:classMenu")
_IEFormElementOptionselect ($Documents, "PATIENT INFORMATION", 1, "byText")

Sleep(2000)

_IELinkClickByText($oIE, "Template")

Sleep(1000)

Local $Filter = _IEFormElementGetObjByName ($oForm, "j_id29:compForm:templateSearchChar")

_IEFormElementSetValue($Filter, "MR-ER")
MouseClick("LEFT","215","500")
Send("{ENTER}")

Sleep(1000)

MouseClick("LEFT","220","550")
Sleep(500)
MouseClick("LEFT","220","570")
Sleep(500)
MouseClick("LEFT","220","570")
Sleep(500)
MouseClick("LEFT","220","590")
Sleep(500)
MouseClick("LEFT","220","590")

Sleep(1000)

_IEFormElementSetValue($Filter, "ORDER")
MouseClick("LEFT","215","545")
Send("{ENTER}")

Sleep(1000)

MouseClick("LEFT","220","600")
Sleep(500)

Local $oForm1 =  _IEFormGetObjByName($oIE, "j_id29:searchForm")
Local $Facilities = _IEFormElementGetObjByName ($oForm1, "j_id29:searchForm:facilityMenu")
_IEFormElementOptionselect ($Facilities, "CLAIBORNE MEDICAL CENTER", 1, "byText")