my $loc_font_wx=Wx::Font->new($gl_cfg->{client_point_size}, wxMODERN, wxFONTSTYLE_ITALIC, wxFONTWEIGHT_BOLD, 0, $gl_cfg->{client_font});
	$mu->record('after i_Booking set focus');
	
# 	Referring Dr details from Dr file
	$booking_dlg->{Ctl_Booking_Referring_Doctor_Lbl} = Wx::StaticText->new($booking_dlg->{booking_main}, wxID_ANY, __t('Referring Doctor'), wxDefaultPosition, wxDefaultSize, );
	
	$mu->record('before i_Booking i_staticText 1');
	
	$booking_dlg->{Ctl_Booking_Referring_Doctor_Txt} = i_staticText->new($booking_dlg->{booking_main}, wxID_ANY, "", wxDefaultPosition, wxDefaultSize, );
	$mu->record('after i_Booking i_staticText 1');
	$booking_dlg->{Ctl_Booking_Referring_Doctor_Txt}->SetFont($loc_font_wx);
	$mu->record('before i_Booking Ctl_Booking_Referring_Doctor_Ref_4_Lbl');
	$booking_dlg->{Ctl_Booking_Referring_Doctor_Ref_4_Lbl} = Wx::StaticText->new($booking_dlg->{booking_main}, wxID_ANY, __t("Ref 4"), wxDefaultPosition, wxDefaultSize, );
	$mu->record('before i_Booking i_staticText 2');
	$booking_dlg->{Ctl_Booking_Referring_Doctor_Ref_4_Txt} = i_staticText->new($booking_dlg->{booking_main}, wxID_ANY, "", wxDefaultPosition, __xy_size(100), );
	$mu->record('after i_Booking i_staticText 2');
	$booking_dlg->{Ctl_Booking_Referring_Doctor_Ref_4_Txt}->SetFont($loc_font_wx);


##</code><code>##


     0  773984 (     0)  193264 (     0)  43436 (     0)      8 (     0)  368884 (     0) after i_Booking set focus
     0  773984 (     0)  193264 (     0)  43436 (     0)      8 (     0)  368884 (     0) before i_Booking i_staticText 1
     0  773984 (     0)  193264 (     0)  43436 (     0)      8 (     0)  368884 (     0) after i_Booking i_staticText 1
     0  774604 (   620)  193264 (     0)  43436 (     0)      8 (     0)  368884 (     0) before i_Booking Ctl_Booking_Referring_Doctor_Ref_4_Lbl