Procedure

TCtrlInits.ClearOI

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

Clears the records in FOIList, but not FDfltList

Visibility

Public

Owner

TCtrlInits

Declaration

procedure ClearOI;

Called-By Hierarchy


                             TCtrlInits.ClearOI
                           TCtrlInits.Destroy┤ 
                     TCtrlInits.LoadOrderItem┘ 
                  TfrmODMedIn.SetOnOISelect┤   
                  TfrmODMedIn.SetupDialog┤ │   
          TfrmODMedIn.cboMedicationSelect┘ │   
               TfrmODMedIn.CheckFormAlt┘   │   
          TfrmODMedIn.cboDispenseExit┤     │   
    TfrmODMedIn.cboDispenseMouseClick┘     │   
 TfrmODMedIn.cboMedicationSelect...┘       │   
                 TfrmODMedOut.SetOnOISelect┤   
                 TfrmODMedOut.SetupDialog┤ │   
         TfrmODMedOut.cboMedicationSelect┘ │   
              TfrmODMedOut.CheckFormAlt┘   │   
         TfrmODMedOut.cboDispenseExit┤     │   
   TfrmODMedOut.cboDispenseMouseClick┘     │   
TfrmODMedOut.cboMedicationSelect...┘       │   
                TfrmODMedNVA.SetOnMedSelect┤   
                 TfrmODMedNVA.SetupDialog┤ │   
              TfrmODMedNVA.btnSelectClick┤ │   
              TfrmODMedNVA.UMDelayClick┘ │ │   
            TfrmODMedNVA.CheckFormAltDose┘ │   
            TfrmODMedNVA.cboDosageClick┘   │   
           TfrmODMedNVA.cboDosageExit┘     │   
                  TfrmODMeds.SetOnMedSelect┘   
                   TfrmODMeds.SetupDialog┤     
                TfrmODMeds.btnSelectClick┤     
                TfrmODMeds.UMDelayClick┘ │     
              TfrmODMeds.CheckFormAltDose┘     
              TfrmODMeds.cboDosageClick┘       
            TfrmODMeds.cboDosageKeyUp┘         

Called-By

Name Declaration Comments
TCtrlInits.Destroy destructor Destroy; override; -
TCtrlInits.LoadOrderItem procedure LoadOrderItem(Src: TStrings); -


Source

340   procedure TCtrlInits.ClearOI;
341   { clears the records in FOIList, but not FDfltList }
342   var
343     i: Integer;
344   begin
345     with FOIList do for i := 0 to Count - 1 do TCtrlInit(Items[i]).Free;
346     FOIList.Clear;
347   end;