Nachdem mich das ganze bei uns auch schon seit 2 Jahren nervt, habe ich nach erneuter Anregung durch diesen Beitrag das für das in unserer Region häufig verwendete Portal "umgebaut". Da die Patienten häufig zumindest in der Praxis nicht den Code dabei haben (glücklichweise steht er aber auch noch auf den Befunden), habe ich bei dem entsprechenden Onlinetermin ein Feld hinzugefügt, in das der Patient den Code direkt selbst eingeben kann.
Bei Anlage eines Besuchs wird überprüft, ob der Patient den Code online bereits eingegeben hat. Ist dies der Fall, wird ein Karteieintrag angelegt, in den der Code übernommen wird. In dem Karteieintrag ist ein Button zum Öffnen des Scripts, das dann die Radiologieportalseite aufruft und den Code und Geburtsdatum einträgt. Dabei ist es egal, ob der Patient den Code mit oder ohne "-" eingegeben hat. Der "-" wird mittels AppleScript gelöscht.
In den Karteieintrag kann man zusätzlich noch kurz den radiologischen Befund zusammenfassen, sodass dieser später als radiologischer Fremdbefund im Brief aufgeführt wird.
on replace_chars(this_text, search_string, replacement_string)
set AppleScript's text item delimiters to the search_string
set the item_list to every text item of this_text
set AppleScript's text item delimiters to the replacement_string
set this_text to the item_list as string
set AppleScript's text item delimiters to ""
return this_text
end replace_chars
set hdscode to (replace_chars("$[karteiEintragValue_withArgs FB customKarteiEintragEntries.c1 _ J]$", "-", "")) as string
tell application "System Events"
-- tell application "/Applications/Safari.app" to activate
--delay 2.0
open location "https://www.hdscode.de/"
delay 4.0
set str_hdscode to hdscode
-- set str_hdscode to "$[karteiEintragValue_withArgs FB customKarteiEintragEntries.c1 _ J]$"
repeat with chr_hdscode in str_hdscode
keystroke chr_hdscode
delay 0.02
end repeat
delay 0.2
set str_geb to "$[pg]$"
repeat with chr_geb in str_geb
keystroke chr_geb
delay 0.02
end repeat
delay 0.5
key code 48
delay 0.5
key code 36
end tell