initial commit, GP tools split into individual includes

includes/S1Utils.ahk

@@ -0,0 +1,88 @@
+;; Timings for sleep commands are based on what reliably works on my work machine - may need adjusting if not working well
+;; TODO: a search that loads appointment sarching instead of the patient record
+
+
+;; Searches for the NHS number in SystmOne's F10 menu
+;; Uses the clipboard as this is a method used by other AMGP actions/hotkeys
+SearchForPatientByNHS(ByRef patient_nhs) {
+	
+	;; Trim and remove spaces
+	patient_nhs := RTrim(patient_nhs, "`r`n")
+	patient_nhs := RegExReplace(patient_nhs, "[^\d+]")
+	
+	;; Checks to see if nhs_number is 10 digits, no checksum calculations currently
+	if(!valid_nhs_number(patient_nhs)) {
+		MsgBox, Invalid NHS number supplied - |%patient_nhs%| ;*[mybreak1]
+		return
+	}
+	
+	Clipboard := patient_nhs
+	SearchForPatientFromClipboard()
+	return
+}
+
+;; Searches for clipboard contents in SystmOne's F10 menu (no NHS nuumbebr validation)
+SearchForPatientFromClipboard() {
+	WinActivate, % "SystmOne GP"
+	Sleep 100
+	Send {F10}
+	Sleep 350
+	Send ^v
+	Sleep 50
+	Send {ENTER}
+	Sleep 200
+	Send {ENTER}
+	return
+}
+
+
+
+;; Med3, Not fit for work, Free Text, in S1. To do this Assign med3 to F12 menu under letter M
+^M::
+Send {F12}
+Sleep 200
+SendRaw {m}
+Sleep 1000
+Send {Space}
+Send {Tab 4}
+Send {Space}
+Send {Tab}
+return
+
+;; Copy email notes into record
+^+E::
+ClipBoard := RegExReplace(ClipBoard, "\R+\R", "`r`n") ; Removes blank lines
+Send ^w
+Sleep 600
+Send {Shift down}
+Send {Tab 16}
+Send {Shift up}
+Sleep 200
+Send {Shift down}
+Send {Home}
+Send {Shift up}
+Send {Del}
+Send {Control up}
+Send E-mail
+Send {Enter}
+Send {Tab}
+Send {Alt down}o{Alt up}
+Sleep 50
+Send ^v
+Send {BS}
+Send {Home}
+Send {PgUp 2}
+Send {Shift down}
+Send {End}
+Send {Down 2}
+Send {Shift up}
+Send {Del 2}
+Send {End}
+Send {PgDn 2}
+return
+
+^G:: ;; Px
+Send {Space 50}
+Send +{Home}
+Send {Del}
+return