From f9c02613b8bbbaf7c7451331c94a0fe945ac0e11 Mon Sep 17 00:00:00 2001 From: Sean Cusack Date: Thu, 11 Aug 2022 17:45:53 +0100 Subject: [PATCH] EPS & Home visits - loops until search target found Quicksearch - HRT and HTN guidelines Textexpansions - Gabapentin dosing Referral letter - first draft, not working --- includes/EPS.ahk | 56 ++++++++++++++++--------- includes/PrintHomeVisitsImageSearch.ahk | 35 ++++++++++------ includes/QuickSearch.ahk | 4 ++ includes/TextExpansions.ahk | 10 ++++- includes/referral_letter.ahk | 55 ++++++++++++++++++++++++ 5 files changed, 127 insertions(+), 33 deletions(-) create mode 100644 includes/referral_letter.ahk diff --git a/includes/EPS.ahk b/includes/EPS.ahk index dc87e99..5432635 100644 --- a/includes/EPS.ahk +++ b/includes/EPS.ahk @@ -16,38 +16,54 @@ SetBatchLines -1 LoadEPS: -CoordMode, Pixel, Screen -ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_icon.png -CenterImgSrchCoords("assets\eps\prescription_icon.png", FoundX, FoundY) -If ErrorLevel - Return +Loop, 20 +{ + CoordMode, Pixel, Screen + ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_icon.png + CenterImgSrchCoords("assets\eps\prescription_icon.png", FoundX, FoundY) + Sleep, 100 +} +Until ErrorLevel = 0 + FoundX := FoundX+45 CoordMode, Mouse, Screen Click, %FoundX%, %FoundY% Left, 2 -Sleep, 10 -Sleep, 200 -CoordMode, Pixel, Screen -ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_select_all.png -CenterImgSrchCoords("assets\eps\prescription_select_all.png", FoundX, FoundY) +;Sleep, 1500 +Loop, 20 +{ + CoordMode, Pixel, Screen + ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_select_all.png + CenterImgSrchCoords("assets\eps\prescription_select_all.png", FoundX, FoundY) + Sleep, 100 +} +Until ErrorLevel = 0 If ErrorLevel { - MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue. - IfMsgBox, Cancel - Return + MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue. + IfMsgBox, Cancel + Return } + CoordMode, Mouse, Screen Click, %FoundX%, %FoundY% Left, 1 Sleep, 10 -Sleep, 200 -CoordMode, Pixel, Screen -ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_selected.png -CenterImgSrchCoords("assets\eps\prescription_selected.png", FoundX, FoundY) +;Sleep, 200 +Loop, 20 +{ + CoordMode, Pixel, Screen + ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_selected.png + CenterImgSrchCoords("assets\eps\prescription_selected.png", FoundX, FoundY) + + Sleep, 100 +} +Until ErrorLevel = 0 If ErrorLevel { - MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue. - IfMsgBox, Cancel - Return + MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue. + IfMsgBox, Cancel + Return } + CoordMode, Mouse, Screen Click, %FoundX%, %FoundY% Right, 1 Sleep, 10 diff --git a/includes/PrintHomeVisitsImageSearch.ahk b/includes/PrintHomeVisitsImageSearch.ahk index 18c1ec3..fe2ded3 100644 --- a/includes/PrintHomeVisitsImageSearch.ahk +++ b/includes/PrintHomeVisitsImageSearch.ahk @@ -18,10 +18,15 @@ SetBatchLines -1 F18:: PrintHomeVisits: -CoordMode, Pixel, Screen -CoordMode, Mouse, Screen -ImageSearch, FoundX, FoundY, 893, 661, 2455, 1439, assets\homevisits\home_visit_icon.png -CenterImgSrchCoords("assets\homevisits\home_visit_icon.png", FoundX, FoundY) +Loop, 10 +{ + CoordMode, Pixel, Screen + CoordMode, Mouse, Screen + ImageSearch, FoundX, FoundY, 893, 661, 2455, 1439, assets\homevisits\home_visit_icon.png + CenterImgSrchCoords("assets\homevisits\home_visit_icon.png", FoundX, FoundY) + Sleep, 100 +} +Until ErrorLevel = 0 If (ErrorLevel) { MsgBox, 0, , Couldn't find the home visit icon @@ -30,16 +35,22 @@ If (ErrorLevel) FoundX := FoundX + 43 Click, %FoundX%, %FoundY% Left, 2 Sleep, 10 -Sleep, 300 -CoordMode, Pixel, Screen -CoordMode, Mouse, Screen -ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\homevisits\home_visit_wrench.png -CenterImgSrchCoords("assets\homevisits\home_visit_wrench.png", FoundX, FoundY) +;Sleep, 300 +Loop, 20 +{ + CoordMode, Pixel, Screen + CoordMode, Mouse, Screen + ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\homevisits\home_visit_wrench.png + CenterImgSrchCoords("assets\homevisits\home_visit_wrench.png", FoundX, FoundY + Sleep, 100 +} +Until ErrorLevel = 0 If (ErrorLevel) { MsgBox, 0, , Couldn't find Spanner Icon Return } + VisitsY := FoundY+50 Click, %FoundX%, %VisitsY% Left, 1 Sleep, 10 @@ -55,7 +66,7 @@ Loop, 18 Send, {Down} } Send, {Enter} -Sleep, 300 +Sleep, 500 CoordMode, Pixel, Screen CoordMode, Mouse, Screen ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\homevisits\home_visit_summary.png @@ -64,10 +75,10 @@ If (ErrorLevel = 0) FoundY := FoundY-100 Click, %FoundX%, %FoundY% Left, 1 Sleep, 10 - Loop, 50 + Loop, 30 { Send, {PgDn} - Sleep, 100 + Sleep, 150 CoordMode, Pixel, Screen CoordMode, Mouse, Screen ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\homevisits\home_visit_summary_entry.png diff --git a/includes/QuickSearch.ahk b/includes/QuickSearch.ahk index fb4c827..e56b0ac 100644 --- a/includes/QuickSearch.ahk +++ b/includes/QuickSearch.ahk @@ -13,6 +13,10 @@ InputBox, vQuery, BNF Search, , , 200, 100 ;; Need some sort of select statemnt here, probably better to check wordcount first, if just 1 then a shortcut if (vQuery == "can") { Run, chrome.exe "https://www.nice.org.uk/guidance/ng12/chapter/Recommendations-organised-by-site-of-cancer" +} else if (vQuery == "hrt") { + Run, chrome.exe "https://d2931px9t312xa.cloudfront.net/menopausedoctor/files/information/229/Easy`%20HRT`%20prescribing`%20guide.pdf" +} else if (vQuery == "htn") { + Run, chrome.exe "https://www.england.nhs.uk/london/wp-content/uploads/sites/8/2019/11/NICE-NG136-Visual-Summary.pdf" ;; Sarches } else { diff --git a/includes/TextExpansions.ahk b/includes/TextExpansions.ahk index 19646d6..3447531 100644 --- a/includes/TextExpansions.ahk +++ b/includes/TextExpansions.ahk @@ -33,7 +33,7 @@ ;; examshoulder. -> L/R shoulder - normal appearance, no swelling, erythema or bruising. Normal range of abduction, flexion and extension. Passive = active rom. Empty can test and hawkins test normal. Rotator cuff exam NAD. ;; examknee. -> L/R knee - normal appearance, no swelling, erythema or bruising. No effusion or joint line tenderness. Normal range of flexion. Collateral and cruciates ligaments intact. McMurrays negative. - +;; gaba3d -> Take 1 capsule daily, increase to twice daily after 3 days and again to 3 times daily after another 3 days ;; Replaces the letters 'cnr' with: Called, no reply ::cnr.:: @@ -134,4 +134,12 @@ return ::examknee.:: SendInput L/R knee - normal appearance, no swelling, erythema or bruising. No effusion or joint line tenderness. Normal range of flexion. Collateral and cruciates ligaments intact. McMurrays negative. +return + +::gaba3d.:: +SendInput Take 1 capsule daily, increase to twice daily after 3 days and again to 3 times daily after another 3 days +return + +::gabaweek.:: +SendInput Take 1 capsule daily, increase to twice daily after 1 week and three times daily after another week return \ No newline at end of file diff --git a/includes/referral_letter.ahk b/includes/referral_letter.ahk new file mode 100644 index 0000000..b9e7ab8 --- /dev/null +++ b/includes/referral_letter.ahk @@ -0,0 +1,55 @@ +; This script was created using Pulover's Macro Creator +; www.macrocreator.com + +#NoEnv +SetWorkingDir %A_ScriptDir% +CoordMode, Mouse, Screen +SendMode Input +#SingleInstance Force +SetTitleMatchMode 2 +#WinActivateForce +SetControlDelay 1 +SetWinDelay 0 +SetKeyDelay -1 +SetMouseDelay -1 +SetBatchLines -1 + + +^F3:: +Macro1: +WinActivate, SystmOne +Sleep, 333 +Send, ^6 +Sleep, 100 +CoordMode, Pixel, Screen +ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, C:\Sean\AHK\PuloversMacroCreator-Portable (1)\MacroCreatorPortable\x64\MacroCreator\Screenshots\Screen_20220531094245.png +CenterImgSrchCoords("C:\Sean\AHK\PuloversMacroCreator-Portable (1)\MacroCreatorPortable\x64\MacroCreator\Screenshots\Screen_20220531094245.png", FoundX, FoundY) +If ErrorLevel +{ + MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue. + IfMsgBox, Cancel + Return +} +Click, %FoundX%, %FoundY% Left, 1 +Sleep, 10 +Send, !o +Sleep, 300 +Loop, 14 +{ + Send, {Tab} +} +Return + + +CenterImgSrchCoords(File, ByRef CoordX, ByRef CoordY) +{ + static LoadedPic + LastEL := ErrorLevel + + Gui, Pict:Add, Pic, vLoadedPic, % RegExReplace(File, "^(\*\w+\s)+") + GuiControlGet, LoadedPic, Pict:Pos + Gui, Pict:Destroy + CoordX += LoadedPicW // 2 + CoordY += LoadedPicH // 2 + ErrorLevel := LastEL +}