Guten Tag,
ich suche Expertenrat für ein Apple-Script. Mein Plan ist folgendes: ein Apple-Script zur Ermittlung von Verschlussdrücken. Die MFA gibt der Reihe nach den höchsten RR vom Arm und beiden Knöcheln ein, dann wird gerechnet und interpretiert und das formatierte Ergebnis in die Zwischenablage kopiert. Jetzt kann die MFA den Befund mittels Command-V unter Befund einfügen.
Hier ist mein Script:
=======================
-- AppleScript zur Berechnung des ABI und Kopieren des Ergebnisses mit Interpretation in die Zwischenablage
-- Eingabe des systolischen Blutdrucks am Arm
set armBP to text returned of (display dialog "Bitte den systolischen Blutdruck am Arm eingeben (in mmHg):" default answer "")
set armBP to armBP as number
-- Eingabe des systolischen Blutdrucks am rechten Knöchel
set rightAnkleBP to text returned of (display dialog "Bitte den systolischen Blutdruck am rechten Knöchel eingeben (in mmHg):" default answer "")
set rightAnkleBP to rightAnkleBP as number
-- Eingabe des systolischen Blutdrucks am linken Knöchel
set leftAnkleBP to text returned of (display dialog "Bitte den systolischen Blutdruck am linken Knöchel eingeben (in mmHg):" default answer "")
set leftAnkleBP to leftAnkleBP as number
-- Berechnung des ABI für rechts und links mit einer Nachkommastelle
set rightABI to (round (rightAnkleBP / armBP * 10)) / 10
set leftABI to (round (leftAnkleBP / armBP * 10)) / 10
-- Interpretation der ABI-Werte für rechts
if rightABI < 0.9 then
set rightInterpretation to "Mögliche Durchblutungsstörung (ABI < 0.9)"
else if rightABI ≤ 1.4 then
set rightInterpretation to "Normaler Bereich (ABI 0.9–1.4)"
else
set rightInterpretation to "Hinweis auf versteifte Arterien (ABI > 1.4)"
end if
-- Interpretation der ABI-Werte für links
if leftABI < 0.9 then
set leftInterpretation to "Mögliche Durchblutungsstörung (ABI < 0.9)"
else if leftABI ≤ 1.4 then
set leftInterpretation to "Normaler Bereich (ABI 0.9–1.4)"
else
set leftInterpretation to "Hinweis auf versteifte Arterien (ABI > 1.4)"
end if
-- Gesamtergebnis als formatierten Text zusammenstellen
set resultText to "Ankle-Brachial-Index Ergebnisse\n" & ¬
"============================\n" & ¬
"Systolischer Blutdruck Arm: " & armBP & " mmHg\n\n" & ¬
"Rechte Seite:\n" & ¬
" Blutdruck Knöchel: " & rightAnkleBP & " mmHg\n" & ¬
" ABI rechts: " & rightABI & "\n" & ¬
" Interpretation: " & rightInterpretation & "\n\n" & ¬
"Linke Seite:\n" & ¬
" Blutdruck Knöchel: " & leftAnkleBP & " mmHg\n" & ¬
" ABI links: " & leftABI & "\n" & ¬
" Interpretation: " & leftInterpretation & "\n\n" & ¬
"Analyse abgeschlossen."
-- Ergebnis in die Zwischenablage kopieren
set the clipboard to resultText
-- Hinweis anzeigen
display dialog "Die ABI-Ergebnisse und ihre Interpretation wurden in die Zwischenablage kopiert." buttons {"OK"} default button 1
=====================
Leider bekomme ich folgende Fehlermeldung:
Hat jemand einen Rat, wo es klemmt? 1000 Dank für Infos.
Christoph Schenk