OTK Störung - IONOS als Mailserver®
Alle Hinweise und Informationen finden Sie unter folgendem Link.

BEDINGTE Freigabe der macOS Version Sequoia für tomedo®
Alle Hinweise und Informationen finden Sie unter folgendem Link.

Hallo Alle,

in unserer orthopädischen Praxis nutzen wir seit kurzem intensiv die Trainingsapp Mawendo, damit wir einerseits Heilmittelbudget sparen, andererseits unsere Patienten zum fast immer vernachlässigten Training anleiten. Ich habe ein Skript gebaut, dass die Daten automatisch in das Formular zur Neuanlage eines Trainingsplans  einträgt, das liegt bei uns direkt in der Patientenakte in der Toolbar.

Voraussetzung ist, dass der Arbeitsplatz, an dem das Skript startet, grundsätzlich am Mawendo angemeldet ist, und die Benutzernummer bekannt ist, die muss noch ins Skript (unten markiert in rot) eingetragen werden. (Zu finden, wenn man in Mawendo einen neuen Plan anlegt und in der URL nachsieht, erklärt sich ansich von selbst).

Vielleicht kann das jemand brauchen, ist auch im Tauschcenter eingestellt!

Gruß

Dirk Schemmann

 

on page_loaded(timeout_value) -- in seconds

delay 1

repeat with i from 1 to timeout_value

tell application "Safari"

if name of current tab of window 1 is not "Loading" then exit repeat

end tell

--delay 1

delay 2

end repeat

if i is timeout_value then return false

tell application "Safari"

repeat until (do JavaScript "document.readyState" in document 1) is "complete"

delay 0.5

end repeat

end tell

return true

end page_loaded

 

tell application "Safari" to open location "https://app.mawendo.com/o/BENUTZER/plan"

tell application "Safari" to activate

set GebDat to "$[pg2]$"

set TagGebDat to text 1 through 2 of GebDat

set MonGebDat to text 3 through 4 of GebDat

set JahrGebDat to text 5 through 8 of GebDat

if page_loaded(20) then

tell application "System Events"

if "$[pMW]$" is "W" then

key code {48, 49, 48}

else

key code {48, 124, 49, 48}

end if

keystroke "$[pt]$"

key code 48

keystroke "$[patient_name]$"

key code 48

keystroke "$[patient_vorname]$"

key code 48

keystroke TagGebDat

key code 48

keystroke MonGebDAt

key code 48

keystroke JahrGebDat

key code 48

keystroke "$[pemail]$"

end tell

 

else

say "Mawendo lädt nicht"

end if

Gefragt von (860 Punkte)
wieder getaggt von
+3 Punkte

Bitte logge dich ein oder melde dich neu an um den Beitrag zu beantworten.

18,130 Beiträge
26,364 Antworten
47,221 Kommentare
26,037 Nutzer