Makros für Radiologen: Makro zum Report der lumbalen Knochendichtemessung mit QCT: Makro Osteodensitometrie: ODfrmIndik
Dieses Makro gehört zu Makro zum Report der lumbalen Knochendichtemessung mit QCT.
Option Explicit
Private Sub cmdok_Click()
ODINDIK = "Beschwerden und Befunde: "
If ODfrmIndik.optVAOP.Value = True Then ODINDIK = ODINDIK & "Verdacht auf Osteoporose. " & vbCrLf
If ODfrmIndik.optTherap.Value = True Then ODINDIK = ODINDIK & "Osteoporose unter Therapie. " & vbCrLf
ODINDIK = ODINDIK & "Rechtfertigende Indikation: "
If ODfrmIndik.optKnD.Value = True Then ODINDIK = ODINDIK & "Knochendichte? "
If ODfrmIndik.optVerl.Value = True Then ODINDIK = ODINDIK & "Verlauf? "
ODINDIK = ODINDIK & vbCrLf
Unload ODfrmIndik
End Sub
Private Sub UserForm_Initialize()
Me.optVAOP.Value = True
Me.optKnD.Value = True
End Sub