1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub Hospital_Destination_Country_Change()
If Hospital_Destination_Country = "Luxembourg" Then
If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
Else
MsgBox "According the secondary mission procedure,check if the patient is insured by CNS, or private insurance company. Then, send a demande de prise en charge to the patient insurance. "
End If
If Hospital_Destination_Country = "France" Or "Belgium" Then
If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
Else
MsgBox "According the secondary mission procedure,this flight is from/to a foreign country, fill up a cost acceptance sheet. If this event happens during a WE, contact DDS, ADK, HMS or RHC to approve the flight! "
End If
If Hospital_Destination_Country = "Germany" Then
If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then
MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company"
Else
MsgBox "According the secondary mission procedure,LAR just needs a transportschein and a Intensivtransportprotokoll undersigned by a doctor to be paid! "
End If
End Sub |
Partager