Horos Skript

Question

Hallo, hat jemand für mich ein laufendes Skript zum Aufrufen von Horos und automatischem Einfügen des markierten Patientennamens? Ich habe meins leider zerschossen und das Skript vorher nicht kopiert :-(

Answer 1

Hallo,

folgend ein Skript. Hatte ich hier im Forum gefunden

 

tell application "System Events" to set allPocesses to name of every process
if (allPocesses contains "Horos") then

    -- wenn horos läuft
    
    tell application "Horos" to activate
    
    tell application "System Events"
        
        keystroke "r" using {control down}
        
        delay 1
        
        --key code 48
        
        keystroke "$[pn]$"
        
        key code 52
        
    end tell
    
else
    
    -- wenn horos nicht läuft
    
    tell application "Horos" to activate
    
    tell application "System Events"
        
        keystroke "r" using control down
        
        key code 48
        
        keystroke "$[pn]$"
        
        key code 52
        
    end tell
    
end if

Comments

Habe auch Horos! Was soll das Skript machen=

---

damit kann man über einen Button Horos starten und der Patientennachname wird ins Suchfeld direkt eingetragen und danach gesucht.

Problem ist - zumindest bei mir - dass die Suche bei Horos (auch wenn man den Namen manuell eingibt) nicht funktioniert, wenn ein Umlaut im Namen ist.

---

Hallo, dieses Skript hatte ich auch schon gefunden. Es funktioniert jedoch nicht, wenn horos bereits geöffnet ist.

Zollsoft hat ein Skript dafür. Vielleicht kann sich ja mal jemand von zollsoft äußern? Das wäre nett.

---

das muss ich nochmal genau überprüfen. Ich hatte gegenüber dem Script im Forum bei "horos läuft" die Tastenkombination auf nur CRTL+R geändert.

Answer 2

Ich habe jetzt ein funktionierendes Skript und dieses auch in den Tauschcenter hochgeladen.

Viele Grüße, Felix van Wasen

 

tell application "System Events" to set allPocesses to name of every process

 

if (allPocesses contains "Horos") then

 

-- wenn horos läuft

 

tell application "Horos" to activate

 

tell application "System Events"

 

keystroke "r" using control down

 

key code 48

 

keystroke "$[pn]$"

 

key code 52

 

end tell

 

else

 

-- wenn horos nicht läuft

 

tell application "Horos" to activate

 

tell application "System Events"

 

keystroke "r" using control down

 

key code 48

 

keystroke "$[pn]$"

 

key code 52

 

 

end tell

 

end if

tell application "Horos" to activate

 

tell application "System Events"

 

keystroke "r" using control down

 

key code 48

 

keystroke "$[pn]$"

 

key code 52

 

end tell

 

else

 

-- wenn horos nicht läuft

 

tell application "Horos" to activate

 

tell application "System Events"

 

keystroke "r" using control down

 

key code 48

 

keystroke "$[pn]$"

 

key code 52

 

 

end tell

 

end if