You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
3.7 KiB
80 lines
3.7 KiB
|
|
Public Class Generic_Event_Handler
|
|
|
|
Public Event PatName_Changed(ByVal name As String, ByVal nr As Integer)
|
|
Public Event PatSaved(ByVal Nr As Integer)
|
|
Public Event Leistung_Changed(ByVal Behandlungsnummer As Integer, Total As Double)
|
|
Public Event Totale_Berechnet(ByVal behandlungsnummer As Integer)
|
|
Public Event Behandlung_changed(ByVal behandlungsnummer As Integer, patientnr As Integer)
|
|
Public Event Taxpunktwert_changed(ByVal behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double)
|
|
Public Event Total_Berechnet(ByVal behandlungsnummer As Integer, Total As Double)
|
|
Public Event Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnummer As Integer)
|
|
Public Event Behandlung_Abschliessen(ByVal behandlungsnummer As Integer, patient As Integer)
|
|
Public Event Behandlung_Zurücksetzen(ByVal behandlungsnummer As Integer, patient As Integer)
|
|
Public Event Recall_Anzeigen(Datum As DateTime, patient As Integer, behandler As Integer)
|
|
Public Event Finanzen_Anzeigen(patient As Integer)
|
|
Public Event Refresh_PrinterConfig()
|
|
Public Event Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer)
|
|
Public Event Insert_Protokoll_entry(Entry As String)
|
|
|
|
Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer)
|
|
RaiseEvent PatName_Changed(name, nr)
|
|
End Function
|
|
|
|
Public Function Fire_PatSaved(ByVal nr As Integer)
|
|
RaiseEvent PatSaved(nr)
|
|
End Function
|
|
|
|
Public Function Fire_Leistung_Changed(ByVal Behandlungsnummer As Integer, total As Double)
|
|
RaiseEvent Leistung_Changed(Behandlungsnummer, total)
|
|
End Function
|
|
|
|
Public Function Fire_Totale_Berechnet(ByVal Behandlungsnummer As Integer)
|
|
RaiseEvent Totale_Berechnet(Behandlungsnummer)
|
|
End Function
|
|
|
|
Public Function Fire_Behandlung_Changed(ByVal behandlungsnummer As Integer, ByVal patientnr As Integer)
|
|
RaiseEvent Behandlung_changed(behandlungsnummer, patientnr)
|
|
End Function
|
|
|
|
Public Function fire_Taxpunktwert_Changed(ByVal behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double)
|
|
RaiseEvent Taxpunktwert_changed(behandlungsnummer, patientnr, taxpunktwert)
|
|
End Function
|
|
|
|
Public Function Fire_Total_Berechnet(ByVal Behandlungsnummer As Integer, ByVal Total As Double)
|
|
RaiseEvent Total_Berechnet(Behandlungsnummer, Total)
|
|
End Function
|
|
|
|
Public Function Fire_Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnr As Integer)
|
|
RaiseEvent Behandlung_Inserted(Patientnr, Behandlungsnr)
|
|
End Function
|
|
|
|
Public Function Fire_Behandlung_Abschliessen(ByVal Behandlungsnr As Integer, ByVal patient As Integer)
|
|
RaiseEvent Behandlung_Abschliessen(Behandlungsnr, patient)
|
|
End Function
|
|
Public Function Fire_Behandlung_Zurücksetzen(ByVal Behandlungsnr As Integer, ByVal patient As Integer)
|
|
RaiseEvent Behandlung_Zurücksetzen(Behandlungsnr, patient)
|
|
End Function
|
|
|
|
Public Function Fire_Recall_Anzeigen(ByVal datum As DateTime, ByVal patient As Integer, ByVal behandler As Integer)
|
|
RaiseEvent Recall_Anzeigen(datum, patient, behandler)
|
|
End Function
|
|
|
|
Public Function Fire_Finanzen_Anzeigen(ByVal patient As Integer)
|
|
RaiseEvent Finanzen_Anzeigen(patient)
|
|
End Function
|
|
|
|
Public Function Fire_Refresh_PrinterConfig()
|
|
RaiseEvent Refresh_PrinterConfig()
|
|
End Function
|
|
|
|
Public Function Refresh_Behandlungen(ByVal Behandlungsnr As Integer, ByVal Patientnr As Integer)
|
|
RaiseEvent Refresh_Behandlung(Behandlungsnr, Patientnr)
|
|
End Function
|
|
|
|
Public Function Fire_Insert_Entry(ByVal Entry As String)
|
|
RaiseEvent Insert_Protokoll_entry(Entry)
|
|
End Function
|
|
End Class
|
|
|