Procedure

TfrmBALocalDiagnoses.buCancelClick

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmBALocalDiagnoses

Declaration

procedure buCancelClick(Sender: TObject);


Source

447   procedure TfrmBALocalDiagnoses.buCancelClick(Sender: TObject);
448   begin
449      lvDxGrid.Clear;
450      fODConsult.displayDXCode := 'DXCANCEL';// retain original dx in consult dialog
451      UBAGlobals.TFactors := '';  // clear treatment factors from last order.// hds00006266
452      Close;
453   end;