Seite 1 von 1

Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 07:39
von frabu
Hallo,
kann ich den Patienten den Terminzettel ("Patientermine"), nachdem ich ihn ausgedruckt habe in der Karteikarte (F3) abspeichern. Dies quasi als Nachweis, dass dem Patienten ein Terminzettel ausgedruckt wurde.
(Wir nutzen normalerwesie handgeschriebene Terminzettel, immer wieder behaupten aber Patienten, ein anderes Datum genannt bekommen zu haben und kommen zum falschen Zeitpunkt/Datum. Evtl. würden wir bei großen Terminen dann eine Turbomedlösung "zum Beweis" bevorzugen.).

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 08:25
von Nobbie
Hallo,
das wird nichts werden. Wenn sie das Formular "Terminzettel" editieren, erkennt TM, dass es nicht mehr das Originalformular ist und meckert das mit einer Fehlermeldung an. (Ich wollte den z.B. automatisch druckbar machen um Strg+d zu umgehen).
Wir haben das dahingehend gelöst, dass wir auf dem Terminzettel einen Vermerk haben: bitte am Termin vorlegen. Machen auch die meisten Patienten. Das hat noch den Vorteil, dass die Pat.-Nr. drauf ist, und wir dadurch den richtigen Schmitz, Meier, Müller usw. aufrufen.
Gruß Nobbie

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 09:24
von frabu
Ok, danke für den Tipp!

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 09:39
von Max
Nobbie hat geschrieben:Hallo,
das wird nichts werden. Wenn sie das Formular "Terminzettel" editieren, erkennt TM, dass es nicht mehr das Originalformular ist und meckert das mit einer Fehlermeldung an. (Ich wollte den z.B. automatisch druckbar machen um Strg+d zu umgehen).
Wir haben das dahingehend gelöst, dass wir auf dem Terminzettel einen Vermerk haben: bitte am Termin vorlegen. Machen auch die meisten Patienten. Das hat noch den Vorteil, dass die Pat.-Nr. drauf ist, und wir dadurch den richtigen Schmitz, Meier, Müller usw. aufrufen.
Gruß Nobbie
Könnte man das Formular nicht unter dem neu zu erstellenden Ordner "Eigene" speichern? Das sollte klappen, auch wenn Änderungen vorgenommen wurden, oder?

Ansonsten kann man die Formularprüfung deaktivieren und auch Formulare zu Turbomed schicken, habe ich vor Ewigkeiten mit meiner Rechnungsvorlage machen müssen. Die kam signiert zurück.

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 09:56
von Nobbie
Das kann man machen. Nur wird der Terminkalender das Originalformular weiterhin aufrufen oder man müßte im Terminkalender rumprogammieren. Das führt dann wohl auch zu der Fehlermeldung. Und im Terminkalender rumprogrammieren übersteigt bei weitem meine bescheidenen Kenntnisse.

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 10:09
von Nobbie
Wie kann man die Formularprüfung denn deaktivieren?

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 12:46
von Kasimir
Max hat geschrieben:
Nobbie hat geschrieben: ...Formulare zu Turbomed schicken, habe ich vor Ewigkeiten mit meiner Rechnungsvorlage machen müssen. Die kam signiert zurück.
Das habe ich mit meinem Marcumarplan gemacht, weil mir das Standardformular nicht gefällt.
Also ich würde auch vorschlagen, sich das geänderte Formular signieren zu lassen, so geht man allen Problemen aus dem Weg.

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 12:57
von baerdoc
Nobbie hat geschrieben:Wie kann man die Formularprüfung denn deaktivieren?
1.) Datei Global.ini mit einem Text-Editor öffnen.
2.) unter folgendem Punkt nein "eintragen": TURBOMED-Sicherheitsprüfung={nein}

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 13:23
von Nobbie
cool, danke

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 13:33
von Nobbie
Affengeil, unser Terminzettel druckt sich jetzt ohne Strg+d direkt nach dem aufrufen !

Re: Terminzettel in F3 abspeichern

Verfasst: Dienstag 6. März 2018, 14:12
von Nobbie
Man muß TM offensichtlich einmal als Administrator starten damit das greift.

Re: Terminzettel in F3 abspeichern

Verfasst: Samstag 17. März 2018, 08:18
von Nobbie
Man müsste jetzt nur noch einen Hotkey haben, um den Terminzettel aufzurufen, damit das leidige anklicken mit der Mouse entfällt.

Re: Terminzettel in F3 abspeichern

Verfasst: Samstag 17. März 2018, 15:53
von NuklMed
Danke für die Vorschläge! Aber schade, dass nicht automatisch wie bei Bescheinigungen die Speicherung erfolgt oder zumindest das Angebot kommt, speichern zu können. Ich habe schon vor vielen Jahren bei Turbomed den Wunsch geäußert, die Terminzettel abspeichern zu können. Es kam nie eine Reaktion. So schwierig dürfte das doch eigentlich nicht zu Programmieren sein, liebe Leute von TM. Aber gut, dass es wenigstens pfiffige und hilfsbereite Nutzer hier im Forum gibt, vielen Dank an Euch!

Re: Terminzettel in F3 abspeichern

Verfasst: Sonntag 18. März 2018, 08:22
von Nobbie
Ich habe auch schon vor Jahren das automatisierte Drucken angefragt und da hieß es "Wir können das als Wunsch aufnehmen, aber das geht nicht zur Zeit", und dabei war es ganz einfach. Vielleicht kann man sich das Speichern an einem anderen Formular abgucken, z.B. Attest, ich schaue da mal nach. Oder als Auftragsprogammierung bei einem TM-Partner.
Gruß Nobbie

Re: Terminzettel in F3 abspeichern

Verfasst: Sonntag 18. März 2018, 08:53
von Nobbie
Das ist offensichtlich der Programmcode zum speichern in der Kartei (der Anwesenheitsbescheinigung):

'############# Formular speichern ###############
Sub Form_QueryClose( ByVal Cancel )
If Modus <> "ZentralDruck" then
If Api.GetPrivateProfileString ("Ärztliche Bescheinigung zum Praxisbesuch" , "Runden" ,True, (File)) then
Uhr1_Deactivate 0 , False
Uhr2_Deactivate 0 , False
End If
if PatForm.FormClose (cancel,Restore) ="Save" then
Dim Kartei
if modus = "Restore" then
Set Kartei= Patform.AlleFormulare.PruefBfGueltigkeit(Modus, KarteiZeile).Karteikarte
else
Set Kartei= Patform.AlleFormulare.PruefBfGueltigkeit(Modus).Karteikarte
end if
PatForm.AlleFormulare.Karteispeichern "Ärztliche Bescheinigung Sprechstundenbesuch","ABS"
End if
End if
End Sub

Sub DatumOrt_KeyDown( ByVal Key , ByVal Shift , ByVal Index )
Patform.AlleFormulare.ShowListe key, DatumOrt,"F4"
End Sub


Das ist die Routine, die die Anwesenheitsbescheinigung druckt:

Sub Form_OnLoad
If Modus = "ZentralDruck" Then
Set MyProfil = CreateObject("TMFTools.FormularProfile")
Set MyProfil.Formular = Formular
Else
'--Aufruf von TMFTools.dll---
Set PatForm.Formular = Formular
Set PatForm.Behandlungsfall = Behandlungsfall
If NOT PatForm.FormularOK Then Formular.close: Exit Sub
If Not Restore Then
PatForm.FuelleKopf
FillDaten
WriteData
If Api.GetPrivateProfileString ("Anwesenheitsbescheinigung" , "Runden" ,True, (File)) then
Uhr1_Deactivate 0 , False
Uhr2_Deactivate 0 , False
Formular.print !!das habe ich eingefügt, damit der sich ohne Strg + d druckt
End If
Uhr1.SetFocus
End If
if modus = "KomplexRun" then
dim cKmplx
Set cKmplx = CreateObject("TMFtools.cKomplex")
Set cKmplx.ParentClass = PatForm
cKmplx.start
end if
End If
End Sub

Sub DatumOrt_DblClick( ByVal Index )
Patform.AlleFormulare.ShowListeMouse DatumOrt,"F4"
End Sub

Ich denke, das hier auch die Subroutine zum speichern aufgerufen wird.
Das muß man dann irgenwie in den Terminzettel reinbasteln.

Viel Spaß beim basteln.
Gruß Nobbie

Re: Terminzettel in F3 abspeichern

Verfasst: Sonntag 18. März 2018, 08:58
von Nobbie
Hier noch mal etwas übersichtlicher

Code: Alles auswählen

'############# Formular speichern ###############
Sub Form_QueryClose( ByVal Cancel )     
    If Modus <> "ZentralDruck" then    
        If Api.GetPrivateProfileString ("Ärztliche Bescheinigung zum Praxisbesuch" , "Runden" ,True, (File)) then
           Uhr1_Deactivate 0 ,  False
           Uhr2_Deactivate 0 ,  False
        End If   
        if PatForm.FormClose (cancel,Restore) ="Save" then  
        Dim Kartei
        if modus = "Restore" then 
           Set Kartei= Patform.AlleFormulare.PruefBfGueltigkeit(Modus, KarteiZeile).Karteikarte 
        else    
           Set Kartei= Patform.AlleFormulare.PruefBfGueltigkeit(Modus).Karteikarte 
        end if  
        PatForm.AlleFormulare.Karteispeichern "Ärztliche Bescheinigung Sprechstundenbesuch","ABS"   
        End if     
    End if
End Sub   

Sub DatumOrt_KeyDown( ByVal Key ,  ByVal Shift ,  ByVal Index )
    Patform.AlleFormulare.ShowListe key, DatumOrt,"F4"
End Sub

Sub DatumOrt_DblClick( ByVal Index )
    Patform.AlleFormulare.ShowListeMouse DatumOrt,"F4"
End Sub

Code: Alles auswählen

Sub Form_OnLoad       
    If Modus = "ZentralDruck" Then
       Set MyProfil = CreateObject("TMFTools.FormularProfile")
       Set MyProfil.Formular = Formular
    Else
       '--Aufruf von TMFTools.dll--- 
       Set PatForm.Formular = Formular 
       Set PatForm.Behandlungsfall = Behandlungsfall 
       If NOT PatForm.FormularOK Then Formular.close: Exit Sub         
       If Not Restore Then       
          PatForm.FuelleKopf 
          FillDaten  
          WriteData
          If Api.GetPrivateProfileString ("Anwesenheitsbescheinigung" , "Runden" ,True, (File)) then
             Uhr1_Deactivate 0 ,  False
             Uhr2_Deactivate 0 ,  False
                Formular.print
          End If   
          Uhr1.SetFocus
       End If     
       if modus = "KomplexRun" then
          dim cKmplx
          Set cKmplx = CreateObject("TMFtools.cKomplex")
          Set cKmplx.ParentClass = PatForm
          cKmplx.start
       end if
    End If
End Sub