Skript HKS alles ok defekt? Welches ist jetzt das Funktionierende?

Question

Seit Neuestem klappt das Skript für das Hautkrebsscreening nicht mehr. Welches ist denn das Offizielle?

 

Vielen Dank!

Answer 1

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.

Comments

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.