Diagnosesicherheit nicht mehr voreinstellbar

[wahnfried]

Wie viel Herr Kollege Wahnfried, wollen Sie sich noch gefallen lassen? ...

Oder war es Egoismus, der zu Viele davon abgehalten hat, Berechnug, oder einfach nur Gleichgültigkeit?

...dazu empfehle ich folgenden Beitrag, der satirisch klingt, m.E. aber viel Wahrheitsgehalt hat:

https://www.youtube.com/watch?v=AMWv3VY-4v8&spfreload=1

Grüsse, Wahnfried

p.s.: passiven Widerstand, wo es geht, praktiziere ich durchaus - für mehr reicht derzeit Kraft und Zeit nicht.
-- Papierkartei, dadurch keine Sorge mit Veränderlichkeit von elektronischen Dokumenten
-- etliche Patienten ohne eGK, die eben regelmäßig ihre Versicherungsbescheinigung herfaxen lassen
-- selbstgestrickte Arbeitserleichterungen - ggfs auch hier übernommene...

Mit der "Mitmach-Bereitschaft der Kollegen" betr. Protest gegen Drangsalierungen von Seiten KV/KBV habe ich schlechte Erfahrungen - darauf vertraue ich nicht mehr. Anwesende sind natürlich - wie immer - ausgenommen.
W.

[Zwarte Piet]

Hallo liebe Leidensgenossen;
ich hab Anfang der Woche meine "zuständige" Sachbearbeiterin beider KV angerufen und mich beschwert; - Sie hat so getan, als habe sie von dieser "Neuerung" noch nie gehört und hat mich ganz geduldig meckern und protestieren lassen. - Ich merkte so richtig wie ihr das alles "am Arsch vorbei" ging; - und mir war nachher auch nicht leichter.
Es ist halt ein Jammer daß wir von unseren eigenen Kollegen (die sind ja in der KV) ständig verkauft werden.
Der Arztberuf könnte schön schein wenn man sich nicht am laufenden Band über so einen Mist ärgern müsste der ja keinen noch so kleinen Vorteil für Irgendjemanden eine Vorteil bringt.

[schmidt-dietrich]

11. Mai Frankfurt? und ich hatte gehört es ist ein Fortbildungstag bundesweit..?

[hamipe]

Ich habe versucht dazu jemanden bei der KBV zu sprechen, die wimmeln einen auf eine Helpline ab, verbinden nicht mit Dem zuständigen "Dezernat 6", die dann egschaltet Helpline verlangt, dass man eine email an ein Adresse schickt und dann würde sich jemand melden. Was machen die mit unserne Zwangsabgaben? Für uns sie sie jedenfalls nicht da! Hans-Michael Penzler.

[Pimpfi]

Was machen die mit unserne Zwangsabgaben? Für uns sie sie jedenfalls nicht da! Hans-Michael Penzler.

Sehen Sie doch - Die machen was sie wollen!

Und lassen sich dabei nicht stören

[Thomas]

Also ich personlich kann scottsdalegirl nur zustimmen - ich finde die extra Taste wirklich nicht schlimm. Aber wenn ich jemanden einen Gefallen tun kann, dann programmiere ich in meiner Freizeit mal schnell ein AutoHotKey-Script, dass das "gesichert" automatisch auswählt, wenn die Standardvorgabe "-" drin steht.

Wer mag das haben?

Liebe Grüße
Thomas

[premolar]

Ich würde mich darüber freuen.
Schöne Grüße

[schmidt-dietrich]

ist doch sinnvoll - aber darum geht es doch auch nicht es ist mal wieder eine Entscheidung vom Schreibtisch eines unnötigen udn von uns allimentierten Bürokraten, der nicht begreift, das damit nur wieder der "workflow" unnütz leidet! Schließlich ist es doch anders wichtiger, d.h. A / Z / V werden dann jeweils statt gesicht rausgescuth, wenn nötig. ...
Diese ganzen "Nichtleistungserbringer.." nerven, weil es ja Stein um Stein an allen Ecken dadurch aufwendiger wird und es unsere Zeit klaut, für den Pat.
Und diese Änderungen mit Zwischenupdates ebenso unnützer Zeitdiebstahl meiner (!) Freizeit - stelle ich bal CGM in Rechung ))

[Thomas]

So.... ich habe hier https://copy.com/8OZpWIHW1HsLFSNz ein Zip-File zum Autohotkey-Script hinterlegt, dass das Script auch als fertiges, direkt ausführbares Programm enthält. (Hochladen geht nicht, weil das Forum nur ganz kleine Anhänge erlaubt.) Das Script selbst sieht so aus:

Code: Alles auswählen

SetTitleMatchMode, 3
SetTitleMatchMode, Slow
Loop
{
  WinWaitActive, Diagnose
  WinGetText, strFenstertext
  strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
  If (strDiagnosenSicherheit = "-")
    Send, g
}
Return

Das Programm einfach starten, es liegt dann als "H"-Symbol unten rechts am Bildschirm bei den anderen Symbolen und wartet auf ein Diagnosenfenster. Idealerweise sollte es natürlich in die Autostart-Gruppe aufgenommen werden. Sollte die Diagnosensicherheit "-" sein, so wird ein "g" getippt. Nicht mehr, und nicht weniger...

Viele Grüße
Thomas

[premolar]

Vielen Dank für Ihre Bemühungen. Ich habe das kleine exe Programm gestartet und es befindet sich unten rechts in der Taskleiste. Allerdings ist die Diagnosensicherheit immer noch nicht "gesichert". Habe ich irgendwas falsch gemacht.

Schöne Grüße

[premolar]

Hallo liebe Forumsmitglieder,

das Programm von Thomas funktioniert einwandfrei und ist eine große Hilfe bei der Eingabe von Diagnosen.
Mein Fehler war es, mich nicht als Administrator anzumelden.

Ich wünsche allen ein schönes Wochenende.

Schöne Grüße

Ronald

[caesar]

Hallo Thomas,

herzlichen Dank für dieses schöne Script, supi und freu!
Da man ja über rdp mit direktem Programmaufruf kein zweites Prog mit starten kann, habe ich mir doch gleich mal in der myTM-Menü-Anpassung einen Hyperlink zu dieser Exe eingebaut. Also einmal angeklickt und schon läuft es auch über rdp im Hintergrund.
gruß
caesar

[Thomas]

Ich habe eine zweite Version gebaut: Bei TurboMeds mit HzV (oder aus sonst einem Grund) gibt es neben dem "einfachen" Diagnosenfenster auch noch ein "komplexeres" Fenster. Das muss natürlich anders behandelt werden. Ich habe die Dateien im verlinkten Paket aktualisiert, hier ist der Quellcode für das Script:

Code: Alles auswählen

SetTitleMatchMode, Slow
Loop
{
  SetTitleMatchMode, RegEx
  WinWaitActive, ^Diagnose$|^\QTURBOMED - [Gestellte Diagnose]\E$
  SetTitleMatchMode, 3
  WinGetText, strFenstertext
  IfWinExist, Diagnose
  {
    OutputDebug, Wir sind in einem "alten" Diagnosefenster
    loop, 1
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "-")
      Send, g
    WinWaitclose, Diagnose
  }
  Else IfWinExist, TURBOMED - [Gestellte Diagnose]
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster
    loop, 9
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }
}
Return

[caesar]

Hallo Thomas,

könnten Sie noch die erste Version für 32 bit schreiben und veröffentlichen?? Wäre supi.
Ich wünschte, ich könnte auch programmieren
gruß
caesar

[Thomas]

Hallo Caesar,

ach, die ollen 32bit Window Systeme gibt's auch noch? Ich hab's nochmal unter XP kompiliert - zum Glück steht hier noch ein alter Lufu-Rechner damit herum... Und die neue Version kann das kleine und das große Diagnosenformular. Also nur eine Programmversion...

Liebe Grüße,
Thomas

[caesar]

@Thomas

many, many thx ) Das flutscht

Beste Grüße
caesar

[XRAY]

@ Thomas

Vielen Dank für das hilfreiche Skript, erleichtert das Arbeiten ungemein, bin auch ernsthaft ein wenig neidisch auf Ihre Programmierkünste

Eventuelle Patches für künftige KV-Bugs sind ebenfalls willkommen

Herzliche Grüße, xray

[Pimpfi]

@ Thomas

Vielen herzlichen Dank für das Schreiben und vor allem Bereitstellen des Skriptes!

Funktioniert prima! Ich bin genauso wie auch sonst alle bei uns sehr glücklich darüber - und erleichtert

[Thomas]

Vielen Dank. Es freut mich zu hören, dass ich helfen konnte

[Kasimir]

Hallo.
Ich habe die erste Version des Programms heruntergeladen, als Admin die "exe"-Datei gestartet, es erscheint auch das kleine "H", aber es funktioniert nicht.
Was mach ich falsch (System Win 8, 64 bit)?