Procedure

TfrmODBBank.ExtractTypeScreen

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Protected

Owner

TfrmODBBank

Declaration

procedure ExtractTypeScreen(OutList:TStrings; AList:TStrings);

Called-By Hierarchy


        TfrmODBBank.ExtractTypeScreen
            TfrmODBBank.SetupDialog┤ 
        TfrmODBBank.SetOnQuickOrder┤ 
        TfrmODBBank.cboQuickClick┘ │ 
     TfrmODBBank.cboAvailTestSelect┤ 
          TfrmODBBank.SetupDialog┤ │ 
     TfrmODBBank.cboAvailTestExit┘ │ 
     TfrmODBBank.cboAvailCompSelect┤ 
     TfrmODBBank.cboAvailCompExit┘ │ 
         TfrmODBBank.btnRemoveClick┤ 
          TfrmODBBank.SetupDialog┤ │ 
   TfrmODBBank.SetOnQuickOrder...┘ │ 
       TfrmODBBank.cboSurgeryChange┘ 
          TfrmODBBank.SetupDialog┤   
   TfrmODBBank.SetOnQuickOrder...┤   
TfrmODBBank.cboAvailCompSelect...┤   
      TfrmODBBank.tQuantityChange┘   

Called-By

Name Declaration Comments
TfrmODBBank.btnRemoveClick procedure btnRemoveClick(Sender: TObject); -
TfrmODBBank.cboAvailCompSelect procedure cboAvailCompSelect(Sender: TObject); -
TfrmODBBank.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODBBank.cboSurgeryChange procedure cboSurgeryChange(Sender: TObject); -
TfrmODBBank.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODBBank.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

1830  procedure TfrmODBBank.ExtractTypeScreen(OutList:TStrings; AList:TStrings);
1831  begin
1832    ExtractItems(OutList, AList, 'TYPE AND SCREEN');
1833  end;