By
Morphice
Hello ,
I am new to autoIT, I am wondering if someone could guide me in the correct path for this program. Attached are the steps for the program as well as what I currently have. Any help is greatly appreciated . Thank You.
* workbooks\sheets will be organized on per level basis , 1st sheet lvl 1 ,2nd sheet lvl 2 etc or workbook 1 = level 1, workbook 2 = level 2 etc.
; = comments and reminders
#include <MsgBoxConstants.au3>
#include <EditConstants.au3>
#include<excel.au3>
#include<Array.au3>
Global Const $PatientLookupX = 320
Global Const $PatientLookupY = 64 ; down 1 and enter
Global Const $PatientTextBoxX = 410
Global Const $PatientTextBoxY = 217 ; click , Ctrl + V , Enter
Global Const $PHMhubX = 512
Global Const $PHMhubY = 613 ;click down 1 enter button
Global Const $HealthRiskAssesmetX = 40
Global Const $HealthRiskAssesmetY = 162
Global Const $AddnewAssesmentX = 168
Global Const $AddnewAssesmentY = 98
Global Const $SelectAssesmentX = 342
Global Const $SelectAssesmentY = 98 ; Down 7 and enter Risk score new
Global Const $EmptyAnswerBarX = 465
Global Const $EmptyAnswerBarY = 145
Global Const $LowriskpreventionX = 716
Global Const $LowriskpreventionY = 324
Global Const $MediumriskPreventionX = 716
Global Const $MediumriskPreventionY = 352
Global Const $HighriskPreventionX = 716
Global Const $HighriskPreventionY = 377
Global Const $CatatrosphicPreventionX = 714
Global Const $CatatrosphicPreventionY = 399
Global Const $ClosebuttonX = 1167
Global Const $ClosebuttonY = 666
Global Const $SaveRiskButtonX = 1161
Global Const $SaveRiskButtonY = 692
Global Const $ExitCPScreenX = 1339
Global Const $ExitCPScreenY = 8
Global Const $ExitpatientHubX = 1000
Global Const $ExitpatientHubY = 79
Global Const $sleepMod = 2
Global Const $sleepVal = 5000*$sleepMod
Global Const $sleepLow = 200*$sleepMod
Global Const $sleepMed = 1000*$sleepMod
Global Const $sleepHigh = 3500*$sleepMod
;Function Open excel , read account number in column A
;-------------------------------------------------------------------------------------------------------------------------------------------------------
HotKeySet("{ESC}","stopbaby")
Func _WinWaitActivate($title,$text,$timeout=0)
$hWnd = WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
$i=0
While
$i <=2
$i = $i+1
Local $Open_excel = _Excel_Open()
Local $File_path = "D:\AutoIT\Risk_Test.xlsx"
Local $Open_workbook = _Excel_BookOpen($Open_excel,$File_path)
WinActivate($Open_workbook)
Local $Read_account_number = _Excel_RangeRead($Open_workbook,default,"A" &$i)
_Excel_Close($Open_excel,False)
WEnd
;---------------------------------------------------------------------------------------------------------------------------------------------------
Func NavtoSearch()
WinActivate(eClinicalWorks (Garcia,Erick)
Sleep($sleepMed)
MouseClick("",693,77)
Send("!p") ; shortcut for patient menu
Send("{DOWN}") ; down 1
send ("{Enter}") ; patient lookup
Sleep($sleepMed)
;paste account number How would I do this???
Send("{Enter}") ;Once patient is found, + enter = takes you to patient hub
Sleep($sleepMed)
Next
NavtoPHMHub()
;-------------------------------------------------------------------------------------------------------------------------------------------------------
Func NavtoPHMHub()
MouseClick("",$PHMhubX,$PHMhubY)
Sleep($sleepLow)
Send("{DOWN}")
Send("{ENTER}") ;takes you to Care Plan HUB
Next
NavtoRiskScore()
;-------------------------------------------------------------------------------------------------------------------------------------------------------
Func NavtoRiskScore()
MouseClick("",$HealthRiskAssesmetX,$HealthRiskAssesmetY) ;Clicks on HealthRisk assesment
Sleep($sleepLow)
MouseClick("",$AddnewAssesmentX,$AddnewAssesmentY) ; Click addnew assesment
Sleep($sleepLow)
MouseClick("",$SelectAssesmentX,$SelectAssesmentY) ;click select assesment tab
Sleep($sleepLow)
Send("{DOWN 7}")
Send("{ENTER}")
Sleep($sleepLow)
MouseClick("",$EmptyAnswerBarX,$EmptyAnswerBarY) ;Click on Empty answer bar
Sleep($sleepLow)
MouseClick("",$LowriskpreventionX,$LowriskpreventionY) ; selects Risk Score, Change for other types 1-6
Next
NavtoNextPatient()
Func NavtoNextPatient
MouseClick("",$ClosebuttonX,$ClosebuttonY)
MouseClick("",$SaveRiskButtonX,$SaveRiskButtonY)
MouseClick("",$ExitCPScreenX,$ExitCPScreenY)
MouseClick("",$ExitpatientHubX,$ExitpatientHubY)
EndFunc
;Function should loop back to excel sheet, copy next account number, activate eclinicalworks, and repeat the steps
;---------------------------------------------------------------------------------------------------------------------------------------------------------
Func stopbaby()
exit
EndFunc
Best Regards,
Morphice
steps for program.docx