Makros für Radiologen: Makro zur Auswahl der Patienten zur Röntgenkontrastmittel Applikation: frmkmunvert
Dieses Makro gehört zu Makros für Radiologen: Makro zur Auswahl der Patienten zur Röntgenkontrastmittel Applikation.
'******wenn KM Reaktion in der Vorgeschichte Fragen nach dem Schweregrad***********
Userform Code:
---------------
Option Explicit ''*******werden Variablen definiert
Dim ANTWORT As Byte
Dim SCHWER As Byte
Dim MITTEL As Byte
Dim LEICHT As Byte
-----------------
Private Sub UserForm_Initialize() ''*******beim Initialisieren wird Patienten ID und MTA ID übernommen*****
Me.labid.Caption = ID
Me.labmta.Caption = MTA
End Sub
-----------------
Private Sub cmdschwer_Click() ''*********Taste schwere KM Reaktion in der Vorgeschichte***********
PROTOKOLL = PROTOKOLL & ", " & "schwere KM Reaktion"
SCHWER = MsgBox("Rücksprache mit Arzt. " & vbCrLf & "Wenn " & _
"Anweisung: Nur NATIV, dann ok." & vbCrLf & "Bei Anweisung: Keine " & _
"Untersuchung, dann abbrechen", vbOKCancel + vbCritical)
If SCHWER = 1 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: NATIV"
REPORT = "Nur NATIV." & vbCrLf & "(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
If SCHWER = 2 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: keine Untersuchung"
REPORT = "Keine Untersuchung." & vbCrLf & "(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
End Sub
-----------------------
Private Sub cmdmittel_Click() ''********Taste mittelschwere KM Reaktion in der Vorgeschichte***********
PROTOKOLL = PROTOKOLL & ", " & "mittelschwere KM Reaktion"
MITTEL = MsgBox(mbCORTISON, vbYesNoCancel + vbCritical)
If MITTEL = 6 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: KM"
CORTISON = " Prednisolon 30 m Tbl. 12 h und 2h vor KM iv " & _
"und damit neuer Termin und Anästhesist "
Unload frmkmunvertr
frmSsd.Show
End If
If MITTEL = 7 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: NATIV"
REPORT = "Nur NATIV nach Anweisung." & vbCrLf & "(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
If MITTEL = 2 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung keine Untersuchung"
REPORT = "Keine Untersuchung nach Anweisung." & vbCrLf & _
"(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
End Sub
-------------------------
Private Sub cmdleicht_Click() ''***********Taste leichte KM Reaktion in der Vorgeschichte***********
PROTOKOLL = PROTOKOLL & ", " & "leichte KM Reaktion"
ANTWORT = MsgBox("Antiallergika iv vor KM erforderlich. " & _
"Ist Begleitung vorhanden oder kann organisiert werden?", vbYesNo + vbQuestion)
If ANTWORT = 7 Then
PROTOKOLL = PROTOKOLL & ", " & "keine Begl."
LEICHT = MsgBox("Keine Begleitung und neuer Termin. " & _
mbANTIALLERGIKA, vbYesNoCancel + vbCritical)
If LEICHT = 6 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: KM, Antiallergika, neuer Termin mir Begl."
ANTIALLERGIKA = " 20 min vorher je 1 Amp Tavegil iv und Tagamed iv. "
BEGLEITUNG = " Neuer Termin mit Begleitung wegen " & _
"sedierender Wirkung der Antiallergika. "
MsgBox "Anweisung: KM, Antiallergika, neuer Termin mit Begl."
Unload frmkmunvertr
frmSsd.Show
End If
If LEICHT = 7 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: NATIV"
REPORT = "Nur NATIV nach Anweisung." & vbCrLf & "(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
If LEICHT = 2 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: keine Untersuchung"
REPORT = "Keine Untersuchung nach Anweisung." & vbCrLf & _
"(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
Else
PROTOKOLL = PROTOKOLL & ", " & "Begl. ok"
LEICHT = MsgBox("Begl. vorhanden. " & _
mbANTIALLERGIKA, vbYesNoCancel + vbCritical)
If LEICHT = 6 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: KM, Antiallergika"
ANTIALLERGIKA = " 20 min vorher je 1 Amp Tavegil iv und Tagamed iv. "
BEGLEITUNG = " Begleitung über die " & _
"sedierende Wirkung der Antiallergika informieren. "
MsgBox "Anweisung: KM, Antiallergika, Begl. informieren"
Unload frmkmunvertr
frmSsd.Show
End If
If LEICHT = 7 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: NATIV"
REPORT = "Anweisung: Nur NATIV." & vbCrLf & "(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
If LEICHT = 2 Then
PROTOKOLL = PROTOKOLL & ", " & "Anweisung: keine Untersuchung"
REPORT = "Keine Untersuchung nach Anweisung." & vbCrLf & _
"(" & PROTOKOLL & ")"
MsgBox REPORT
Call Ausdruck(REPORT)
End
End If
End If
End Sub