Added home visit summary, right click menu, and EPS

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

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

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