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.
Seit Neuestem klappt das Skript für das Hautkrebsscreening nicht mehr. Welches ist denn das Offizielle?

 

Vielen Dank!
Gefragt in Frage von (25.1k Punkte)
0 Punkte

1 Antwort

Das Skript für ND HKS mit GU ist immer das gleiche wie im Thread gepostet wurde und hat sich seit 2022 nicht geändert. Aber wie schon damals gewarnt wurde, das Ausführen des Skripts ist GUI sensitiv und hängt davon ab, welche Karteielemente sichtbar sind. Evtl. ist die linke Pat.Info zugeklappt, muss aber sichtbar sein.

Beantwortet von (17.7k Punkte)
0 Punkte

Hallo! Seit einem der neueren Updates funktioniert das Skript reproduzierbar an mehreren Arbeitsplätzen nicht mehr. Es kommt folgende Fehlermeldung:

Wurde da etwas geändert?

Vielen Dank!

Sehr geehrter Herr Stößel,

vielen Dank für die Meldung. Es gab tatsächlich die Änderungen in der Kartei in eDoku Ansicht, die leider in puncto HKS Skript übersehen wurden.

In Quartalsupdate-Version wird das Skript korrigiert.

Sie können auch selbst in der Skriptverwaltung das Skript anpassen. An der gekennzeichneten Stellen muss man "of splitter group 1" hinzufügen.

So das Skript soll wie folgt sein

tell application "tomedo" to activate 

-- Reiter „eDoku“ auswählen 
set timeoutSeconds to 0.0 
set uiScript to "click (first radio button whose title contains \"eDoku\") of tab group 1 of splitter group 1 of (first splitter group whose value of attribute \"AXIdentifier\" is \"patInfoSplitView\") of splitter group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- Auf die Taste „+eHKS“ klicken (HKS-Doku anlegen) 
set timeoutSeconds to 5.0 
set uiScript to "click button \"eHKS\" of splitter group 1 of tab group 1 of splitter group 1 of (first splitter group whose value of attribute \"AXIdentifier\" is \"patInfoSplitView\") of splitter group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- Doku: Diagnose -- 
-------------------- 
-- Reiter „Diagnose“ auswählen (in der Dokumentation) 
set timeoutSeconds to 3.0 
set uiScript to "click radio button \"Diagnose\" of tab group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- „Verdachtsdiagnose nicht-Dermatologe“: „Nein“ auswählen 
set timeoutSeconds to 0.0 
set uiScript to "click radio button 2 of radio group 1 of group 1 of tab group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- „Screening-Teilnehmer wird an einen Dermatologen überwiesen“: „Nein“ auswählen 
set timeoutSeconds to 0.0 
set uiScript to "click radio button 2 of radio group 2 of group 1 of tab group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- „Gesundheitsuntersuchung“: „Ja“ auswählen 
set timeoutSeconds to 0.0 
set uiScript to "click radio button 1 of radio group 1 of group 2 of tab group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- Auf die Taste „Heute“ klicken 
set timeoutSeconds to 0.0 
set uiScript to "click button \"Heute\" of tab group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- Doku: Patient/Arzt -- 
------------------------ 
-- Reiter „Patient/Arzt“ auswählen (in der Dokumentation) 
set timeoutSeconds to 0.0 
set uiScript to "click radio button \"Patient/Arzt\" of tab group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- Auf die Taste „Pat.ID übernehmen“ klicken 
set timeoutSeconds to 0.0 
set uiScript to "click button \"Pat.ID übernehmen\" of group 2 of tab group 1 of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

-- Auf die Taste „OK“ klicken 
set timeoutSeconds to 0.0 
set uiScript to "click button \"OK\" of window 1 of application process \"tomedo\"" 
my doWithTimeout(uiScript, timeoutSeconds) 

on doWithTimeout(uiScript, timeoutSeconds)  
	set endDate to (current date) + timeoutSeconds  
	repeat  
		try  
			run script "tell application \"System Events\"  
" & uiScript & "  
end tell"  
			exit repeat  
		on error errorMessage  
			if ((current date) > endDate) then  
				error "Can not " & uiScript  
			end if  
		end try  
	end repeat  
end doWithTimeout

 

Vielen Dank! HAt funktioniert.
18,213 Beiträge
26,434 Antworten
47,390 Kommentare
26,740 Nutzer