Besuchsanlage durch Aktionskette nach Eintrag in Kartei

Daniel Krieg

Hallo zusammen.

Ich versuche eine Aktionskette anzulegen, welche einen Besuch in der Tageslist automatisch anlegt (ohne ToDo) sobald irgendein Karteeintrag in der Patienten-Kartei erstellt/geändert wurde.

Ist dies möglich?

Ich finde beim Basteln an der Aktionskette nicht den richtigen Weg.

Vielen Dank.

Hans Jörg Baumann

Moin,

das geht mit einem AppleScript:

open location "tomedo://patient#$[pid]$"



-- CMD + D

tell application "System Events"

	keystroke "d" using command down

	delay 0.5

	keystroke " "

	delay 0.5

	key code 53

end tell

Dieses Script ruft zunächst einmal den aktuellen Patienten noch einmal per Patienten-ID auf, damit der Fokus an der korrekten Stelle landet. Anschließend simuliert es die Tasteneingaben CMD-D (ruft die Patientendetails auf) und dann die Tasteneingabe "Leertaste", damit wird der Besuch wie gewünscht angelegt. Fertig.

Sind Sie sicher, dass diese Funktion von allen Nutzern und immer gewünscht ist (in meiner Praxis würde diese Funktion stören, da auch mal was dokumentiert wird ohne Besuch...)?

Andreas Baxmann

Wir verwenden für die Besuchsanlage dazu das folgende Skript, das zuverlässig funktioniert. Es können Besuchsinfos direkt eingetragen werden und der Patient wird direkt auf die Tagesliste eingetragen. Wenn gewünscht, kann auch gleich ein ToDo assoziiert werden (Kommentar --) :

-- Funktion, um das Fenster zu fokussieren, das mit "Kartei" beginnt

on focusKarteiWindow()

tell application "System Events"

tell application process "tomedo"

-- Schleife durch alle Fenster und finde das erste, das mit "Kartei" beginnt

repeat with w in windows

if (name of w) ends with "Kartei" then

-- Fokussiere das Fenster

perform action "AXRaise" of w

exit repeat -- Beende die Schleife nach dem ersten Treffer

end if

end repeat

end tell

end tell

end focusKarteiWindow

-- Funktion, um das Fenster anzuzeigen, das mit "Patientendetails" beginnt

on focusDetailWindow()

tell application "System Events"

-- Command + D drücken

keystroke "d" using command down

end tell

end focusDetailWindow

-- Funktion "set_besuch()"

on set_besuch()

tell application "System Events"

-- Command + K drücken

keystroke "k" using command down

delay 0.2

-- Pat auf Tagesliste

keystroke "l" using {command down, option down}

-- Besuchsinfo um Leerzeichen ergänzen für Aktionskette

--delay 0.2

-- Leerzeichen anfügen für Aktionskettenerkennung auf Kommandozeile

--keystroke space

-- Nächstes ToDo beenden erzeugt TL Eintrag

--key code 123 using {command down, option down}

-- Enter-Taste drücken

--keystroke return

--delay 5.0

end tell

end set_besuch

-- Auswahldialog für Besuchsinfo

--set vBesInfoList to {"Bes_Info_AU", "Bes_Info_eRezept", "Bes_Info_Rezept_abholen"}

--set vBesInfo to choose from list vBesInfoList with prompt "Wählen Sie die Besuchsinfo:" default items {"Bes_Info_eAU"}

-- Rufe die Funktion zum Fokussieren des "Kartei"-Fensters auf

focusKarteiWindow()

-- Eintrag Tagesliste erzeugen

set_besuch()

-- Patientendetails mit ToDo Liste anzeigen

focusDetailWindow()

Andreas Baxmann

Besuch beenden aus Aktionskette:

-- Funktion, um das Fenster zu fokussieren, das mit "Kartei" beginnt

on focusKarteiWindow()

tell application "System Events"

tell application process "tomedo"

-- Schleife durch alle Fenster und finde das erste, das mit "Kartei" beginnt

repeat with w in windows

if (name of w) ends with "Kartei" then

-- Fokussiere das Fenster

perform action "AXRaise" of w

exit repeat -- Beende die Schleife nach dem ersten Treffer

end if

end repeat

end tell

end tell

end focusKarteiWindow

-- Rufe die Funktion zum Fokussieren des "Kartei"-Fensters auf

focusKarteiWindow()

tell application "System Events"

-- Alle ToDos beenden

key code 123 using {shift down, command down, option down}

-- Pat Besuch beenden

keystroke "e" using {command down, option down}

end tell

Clemens Siebolds

Soweit so gut, aber gibt es hier seitens Tomedo keine Möglichkeit das als AK zu hinterlegen?

Grund: Versorgungspauschale und Zunahme der Komplexität und des BEdarfes des automatischen Zählers...