Aus der Autohotkey-Trickkiste: IGeL-Rechnung erstellen
Verfasst: Samstag 27. Juli 2013, 20:46
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
Viel Erfolg!
Thomas
- 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
Thomas