Makros für Radiologen: Makro zur Auswahl der Patienten zur Röntgenkontrastmittel Applikation: frmkmunvert

Aus Wikibooks

Dieses Makro gehört zu Makros für Radiologen: Makro zur Auswahl der Patienten zur Röntgenkontrastmittel Applikation.

Datei:Frmkmunvert.png

'******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