From e62940c2afcc0720a20f66d1d0621b22ee2f684c Mon Sep 17 00:00:00 2001 From: Sean Cusack Date: Wed, 25 May 2022 19:08:23 +0100 Subject: [PATCH] Added home visit summary, right click menu, and EPS --- Launcher.ahk | 12 ++- assets/eps/prescription_icon.png | Bin 0 -> 200 bytes assets/eps/prescription_select_all.png | Bin 0 -> 673 bytes assets/eps/prescription_selected.png | Bin 0 -> 135 bytes assets/homevisits/home_visit_icon.png | Bin 0 -> 366 bytes assets/homevisits/home_visit_summary.png | Bin 0 -> 704 bytes .../homevisits/home_visit_summary_entry.png | Bin 0 -> 928 bytes assets/homevisits/home_visit_wrench.png | Bin 0 -> 334 bytes includes/EPS.ahk | 62 +++++++++++++ includes/PrintHomeVisitsImageSearch.ahk | 86 ++++++++++++++++++ includes/S1Utils.ahk | 10 +- libraries/helper_library.ahk | 14 +++ 12 files changed, 176 insertions(+), 8 deletions(-) create mode 100644 assets/eps/prescription_icon.png create mode 100644 assets/eps/prescription_select_all.png create mode 100644 assets/eps/prescription_selected.png create mode 100644 assets/homevisits/home_visit_icon.png create mode 100644 assets/homevisits/home_visit_summary.png create mode 100644 assets/homevisits/home_visit_summary_entry.png create mode 100644 assets/homevisits/home_visit_wrench.png create mode 100644 includes/EPS.ahk create mode 100644 includes/PrintHomeVisitsImageSearch.ahk diff --git a/Launcher.ahk b/Launcher.ahk index d49b9e7..68e5d5d 100644 --- a/Launcher.ahk +++ b/Launcher.ahk @@ -21,9 +21,19 @@ SetKeyDelay, 50 #Include includes\TextExpansions.ahk ;; Text expansions for autohotkey ;#Include includes\ChromeController.ahk ;; S1 chrome controls for AMGP #Include includes\QuickSearch.ahk ;; Quicksearch / shortcut tools - +#Include includes\PrintHomeVisitsImageSearch.ahk +#Include includes\EPS.ahk ; Reload Script after changes (Ctrl + F1) ^F1:: Reload +Return + +F15:: +Menu MyMenu, Add, View EPS, LoadEPS +Menu MyMenu, Add, Sign Px, signpx +Menu MyMenu, Add, Print home visits, PrintHomeVisits +Menu MyMenu, Add, Med3, med3 +Menu MyMenu, Add, Enter notes from AMGP, copyemailnotes +Menu MyMenu, Show Return \ No newline at end of file diff --git a/assets/eps/prescription_icon.png b/assets/eps/prescription_icon.png new file mode 100644 index 0000000000000000000000000000000000000000..8da32017548ef27dd06931b7ac13808e0ad0517c GIT binary patch literal 200 zcmeAS@N?(olHy`uVBq!ia0vp^LO?9a!3HF~Pw#sVq!^2X+?^QKos)S9a~60+7BevL9R^{>eJ?tmT$R?fEF=$y85}Sb4q9e0I>u@Q~&?~ literal 0 HcmV?d00001 diff --git a/assets/eps/prescription_select_all.png b/assets/eps/prescription_select_all.png new file mode 100644 index 0000000000000000000000000000000000000000..36b1344a96fd42c52f12b6508f4f89cf4e5acce5 GIT binary patch literal 673 zcmV;S0$%-zP)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0yarRK~!i%?U*rg z!yphvb0;4_K8h|94x&4_4R^?-Fm62V+_?y|;Ng;qCM5 zZ2G>h%2WlnQWe}vy@0#l@8){Fn#<*4lv2AD@&^a-;Cx6UaJSpd>hX9Ot@Wtm-h}+Y zftZAG4-RCfI#juW3MdCkYNZoqnvA+yfl7ZB1F=)>Kdh_f&2LRjV@Pf=l(+QkdiM=p|(OXQWkU+O{() z^QWb?G-BpGDH_vu6&JS6DF)6?su4yGlX1_j=~O(q)!=5{vvJXxuKk;j zZ!ZO|lvQVwVb$0O>Dt&kQ*qy?X;yxZMfcxI?Z9d+Az?HTtDvYl*w+y!{CC4jgD(?HRpM$kNZ3QfO2WY&v`fm(C zi-H3PTnXZm`zNn{1`ISV`@i-DRBgD~Uq{1qucK^adM#}EtugTe~DWM4fayKVj literal 0 HcmV?d00001 diff --git a/assets/homevisits/home_visit_icon.png b/assets/homevisits/home_visit_icon.png new file mode 100644 index 0000000000000000000000000000000000000000..1dfae85a2a4fd267a57d02c695ac853525a5c90a GIT binary patch literal 366 zcmV-!0g?WRP)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0Ru@yK~zXf?UXSJ z!axv3J(In72f+ha*jaf23r}H_TJRns7NQaiMhhXJs06*im_Hi%WY-uaNu$Ms&CKk7 z*(9XmZ+8-gVd4CssK4=~IvZO-&$h?LTTyE@myWkI>P>g1y=46rh6s0wfSB5RqHqo1 zM9F&E2@O&5@q7wrF_}f9eIV=eNx|AS12~JxEP_C~T?K2~4B#v#Ra9S0rR}>)aJ`5$ z8Vc5N9W%U#vzSy7g5-D<84m9}M9=G}hZ)|(Sr2qf` M07*qoM6N<$f;X>@>;M1& literal 0 HcmV?d00001 diff --git a/assets/homevisits/home_visit_summary.png b/assets/homevisits/home_visit_summary.png new file mode 100644 index 0000000000000000000000000000000000000000..f1f1ccfa9948a74ab03540be7ebaa2163028d4f6 GIT binary patch literal 704 zcmV;x0zdtUP)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0#!*wK~!i%?U}J| z!Y~j(`GrpHr!?QuZ{T}a=~T62nWHZJLZ)sE&`NYbYDfo`OxHWd4o5gbh;p=$v-G66 zj?TH~v!jwhnxp^m{bK!ssblTeP4dV!`m0!K7YdC@uN3TzLYoR zFL|lbSSkg)dFq$UDwKZ{v5lqDN=Xy-4e}uQ;WUf-@_iMeX$En!lKYbkW*94;F3R!0 zLh{4WkviRA`Z?z+2+;g2IXh6`3cUqd869K9EnO9-X9 zl=xAw-(12iq?Tv(-f^>mVGvbHra8i5Q=(Yi;?Q8lZ5z2+bo=0bdFMDMcYlN zJRbZx$NS=oN|MUs;NN0=nNbUsTAe=*F-}18!_nXV=ccUGAh=yM)*<=fT%S~g|KriN z8tah!aIR9SHj*EXNo|4ThtpW9{qkSX=`a8GjjEv2Z&da*RpDzYK>=x{?7M$GCrLG$ mVNw+^sS21>1x#w^r0@%>A=S2q;>eBw0000Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D12suRK~!i%?N`le z6hRR7&1Rn=PcQ+!x*`%p99Y5Q9y|y#hw|Ufy;-F#QBU2A2PWzWjkh3Gny zxCXsWgA_x4FiO>X6uRS@xq&i9wHol1a&=aMYhBg7r=PP4rj{ z24n1=rf|FI+VOd(=~{9-bA#PTsJ;)hCzPNuaLD!j`3sReF+f}H&jf6C35D6|yorMUK{&*}(HrJl4$8AE;xzc;z%Mta5tBC>|i&qb~o7N;H@6;Nxw^SexJk_fz{Ype^C)d#t^xgrQ zM$5wQs^mgB{N{=)T*wc~98%#X#b)-&Kb-}XLjrW0000!3HE_1!JxODaPU;cPEB*=VV?2IV|apzK#qG z8~eHcB(eheoCO|{#S9F5he4R}c>anMpx|Rq7sn6}@3)sXay1(W9Q(NEzx0k9O$sUJ zCb^$@GUw<~+w&7XacZXTIW$+()vHZ@%4ydB9;TX0Yus&pyhXRI%bvGP^SA_m@tFd* z^tDG4D?V8CRZ6r4OQc!+PMc$K#&SD*4Hxs93zgi35tS9P+j4I|?75d&sHxNPVcuhN z+r{M?$!9pXhsSU+zyG^#UU4~hrbx%(HCvZ=NR{o_Jw=78U$tx=2T)p`Mg$7Pn2Gy>WkWskkx@+vXP*5~#9Lv;(=Grt<>ey%w8 dv+mg+rbGPUh6>UgazO7gc)I$ztaD0e0sw6+ghK!T literal 0 HcmV?d00001 diff --git a/includes/EPS.ahk b/includes/EPS.ahk new file mode 100644 index 0000000..dc87e99 --- /dev/null +++ b/includes/EPS.ahk @@ -0,0 +1,62 @@ +; 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 + + +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 +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) +If ErrorLevel +{ + 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) +If ErrorLevel +{ + MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue. + IfMsgBox, Cancel + Return +} +CoordMode, Mouse, Screen +Click, %FoundX%, %FoundY% Right, 1 +Sleep, 10 +Send, {Enter} +Return + +^G:: ;; Px +signpx: +Send {Space 50} +Send +{Home} +Send {Del} +return \ No newline at end of file diff --git a/includes/PrintHomeVisitsImageSearch.ahk b/includes/PrintHomeVisitsImageSearch.ahk new file mode 100644 index 0000000..18c1ec3 --- /dev/null +++ b/includes/PrintHomeVisitsImageSearch.ahk @@ -0,0 +1,86 @@ +; 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 + +; UserGlobalVars + +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) +If (ErrorLevel) +{ + MsgBox, 0, , Couldn't find the home visit icon + Return +} +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) +If (ErrorLevel) +{ + MsgBox, 0, , Couldn't find Spanner Icon + Return +} +VisitsY := FoundY+50 +Click, %FoundX%, %VisitsY% Left, 1 +Sleep, 10 +Loop, 10 +{ + Send, +{Down} +} +Click, %FoundX%, %FoundY% Left, 1 +Sleep, 10 +Sleep, 300 +Loop, 18 +{ + Send, {Down} +} +Send, {Enter} +Sleep, 300 +CoordMode, Pixel, Screen +CoordMode, Mouse, Screen +ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\homevisits\home_visit_summary.png +If (ErrorLevel = 0) +{ + FoundY := FoundY-100 + Click, %FoundX%, %FoundY% Left, 1 + Sleep, 10 + Loop, 50 + { + Send, {PgDn} + Sleep, 100 + CoordMode, Pixel, Screen + CoordMode, Mouse, Screen + ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\homevisits\home_visit_summary_entry.png + If (ErrorLevel = 0) + { + Click, %FoundX%, %FoundY% Left, 2 + Sleep, 10 + Break + } + } +} +Else +{ + MsgBox, 0, , Couldn't find Name title in Summary Printout Window +} +Return \ No newline at end of file diff --git a/includes/S1Utils.ahk b/includes/S1Utils.ahk index 44df0f3..1dc7887 100644 --- a/includes/S1Utils.ahk +++ b/includes/S1Utils.ahk @@ -54,18 +54,19 @@ Return ;; Med3, Not fit for work, Free Text, in S1. To do this Assign med3 to F12 menu under letter M ^M:: +med3: Send {F12} Sleep 200 SendRaw {m} Sleep 1000 Send {Space} Send {Tab 4} -Send {Space} -Send {Tab} + return ;; Copy email notes into record ^+E:: +copyemailnotes: ClipBoard := RegExReplace(ClipBoard, "\R+\R", "`r`n") ; Removes blank lines Send ^w Sleep 600 @@ -96,8 +97,3 @@ Send {End} Send {PgDn 2} return -^G:: ;; Px -Send {Space 50} -Send +{Home} -Send {Del} -return diff --git a/libraries/helper_library.ahk b/libraries/helper_library.ahk index 88a69bb..bc44e13 100644 --- a/libraries/helper_library.ahk +++ b/libraries/helper_library.ahk @@ -30,4 +30,18 @@ check_in_win_title(match) { } else { return false } +} + +; From pulovers macro creator +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 } \ No newline at end of file