In article <[log in to unmask]>, Adrian Midgley
<[log in to unmask]> writes
>on error goto hell
>
>If not fit_to_come_to_surgery_today then
> fit_to_fly_tomorrow=false
> else
> come.to.surgery=now()
>endif
> ' for all values of today and tomorrow
Sub possible_scenario
total_charge=0
If not emergency then
if not ill
Charge_callout = 60
Medical = 57
total_charge= Charge_callout + Medical
else
come_to_surgery= True
Endif
Else
nhs_ooh_visit=true
Endif
If total_charge then why_not
End sub
Regards
George
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|