Aus der Autohotkey-Trickkiste: IGeL-Rechnung erstellen

[Thomas]

Vielleicht interessiert ja jemanden das IGeL-Autohotkey-Script, das ich bei mir verwende. Das Script wird auf einen Menüpunkt gelegt (siehe anderer Thread zu dem Thema) und

• erstellt einen neuen Privatfall
  führt einen Komplex aus (der dann alle Ziffern und alle Diagnosen übernimmt, etc)
  erstellt und druckt dann gleich die Privatrechnung

Code: Alles auswählen

#Commentflag '
Erfolg=0
send, !h!h!hp
loop, 10
{
  ifwinactive, TURBOMED - [Neuaufnahme Privat-Behandlungsfall ohne KVK]
  {
    send, +{tab}{f9}
    winwaitactive, TURBOMED - [Eigene Listen -- Privatkassen]
  }
  ifwinactive, TURBOMED - [Eigene Listen -- Privatkassen]
  {
    send, igel
    sleep, 500
    send, {space}
    Erfolg=1
    break
  }
  sleep, 100
}
if %Erfolg% = 0
{
  msgbox, IGeL-Programm abgebrochen, bitte rufen Sie es noch einmal auf.
  return
}
winwaitactive, TURBOMED - [Neuaufnahme Privat-Behandlungsfall ohne KVK]
send, {f5}
winwaitnotactive, TURBOMED - [Neuaufnahme Privat-Behandlungsfall ohne KVK]
sleep, 500
wingettitle, PatFenster
send, ^x
winwaitactive, TURBOMED - [Eigene Listen -- Komplexe]
send, igel
msgbox, 0, IGeL Rechnung, Bitte wählen Sie nun den gewünschte IGeL-Komplex aus, 2
winwaitactive, TURBOMED - [Bitte wählen Sie die abzurechnenden Gebührennummern]
send, ^{space}{enter}
NumDiagnosen=1
loop
{
  ifwinactive, TURBOMED - [Bitte wählen Sie aus folgenden gestellten Diagnosen aus:]
  {
    send, !ne
    winwaitactive, Hinweis
    controlgettext, text, static1
    StringSplit, word_array, text, %A_Space%
    NumDiagnosen=%word_array4%
    send, !o
    winwaitactive, TURBOMED - [Bitte wählen Sie aus folgenden gestellten Diagnosen aus:]
    send, ^{space}{enter}
    winwaitnotactive, TURBOMED - [Bitte wählen Sie aus folgenden gestellten Diagnosen aus:]
  }
  ifwinactive, TURBOMED - [Bitte treffen Sie eine Auswahl]
  {
    break
  }
}
send, {space}
sleep, 500
send, {enter}
sleep, 500
clipboard = ; Empty the clipboard
Send, ^c
ClipWait, 2
Rechnungsnummer=%clipboard%
send, {enter}
winwaitactive, TURBOMED - [Dauer- und aktuelle Abrechnungsdiagnosen
loop, %NumDiagnosen%
{
  send, {space}
}
send, {enter}
winwaitnotactive, TURBOMED - [Dauer- und aktuelle Abrechnungsdiagnosen
sleep, 500
winwaitactive, TURBOMED - [Rechnungsdaten
send, !d
winwaitactive, TURBOMED - [Vorlage:
send, ^e
winwaitactive, TURBOMED - [Drucken...
send, !d
winwaitactive, %PatFenster%
return

Viel Erfolg!

Thomas