Function

TCtrlInits.FindInitByName

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

Look first in FOIList, then in FDfltList for initial values identified by name (~section)

Visibility

Private

Owner

TCtrlInits

Declaration

function FindInitByName(const AName: string): TCtrlInit;

Called-By Hierarchy


                       TCtrlInits.FindInitByName
                         TCtrlInits.SetControl┤ 
                      TfrmODMedIn.InitDialog┤ │ 
                    TfrmODMedIn.FormCreate┘ │ │ 
                   TfrmODMedIn.SetOnOISelect┤ │ 
                   TfrmODMedIn.SetupDialog┤ │ │ 
           TfrmODMedIn.cboMedicationSelect┘ │ │ 
                TfrmODMedIn.CheckFormAlt┘   │ │ 
           TfrmODMedIn.cboDispenseExit┤     │ │ 
     TfrmODMedIn.cboDispenseMouseClick┘     │ │ 
  TfrmODMedIn.cboMedicationSelect...┘       │ │ 
                          ExecuteComplexDose┤ │ 
              TfrmODMedOut.cmdComplexClick┘ │ │ 
                     TfrmODMedOut.FormCreate┤ │ 
                     TfrmODMedOut.InitDialog┤ │ 
                   TfrmODMedOut.FormCreate┘ │ │ 
                  TfrmODMedOut.SetOnOISelect┤ │ 
                  TfrmODMedOut.SetupDialog┤ │ │ 
          TfrmODMedOut.cboMedicationSelect┘ │ │ 
               TfrmODMedOut.CheckFormAlt┘   │ │ 
          TfrmODMedOut.cboDispenseExit┤     │ │ 
    TfrmODMedOut.cboDispenseMouseClick┘     │ │ 
 TfrmODMedOut.cboMedicationSelect...┘       │ │ 
                       TfrmODProc.InitDialog┤ │ 
                     TfrmODProc.FormCreate┤ │ │ 
                  TfrmODProc.cboProcSelect┘ │ │ 
                TfrmODProc.radInpatientClick┤ │ 
               TfrmODProc.radOutpatientClick┤ │ 
                       TfrmODCslt.InitDialog┤ │ 
                     TfrmODCslt.FormCreate┘ │ │ 
                TfrmODCslt.radInpatientClick┤ │ 
               TfrmODCslt.radOutpatientClick┤ │ 
                        TfrmODRad.InitDialog┤ │ 
                     TfrmODRad.SetupDialog┤ │ │ 
                 TfrmODRad.ImageTypeChange┘ │ │ 
                 TfrmODRad.cboImTypeExit┤   │ │ 
        TfrmODRad.cboImTypeDropDownClose┘   │ │ 
                        TfrmODLab.FormCreate┤ │ 
                        TfrmODLab.InitDialog┤ │ 
                      TfrmODLab.FormCreate┘ │ │ 
                      TfrmODLab.LoadCollType┤ │ 
               TfrmODLab.cboCollSampChange┤ │ │ 
                   TfrmODLab.SetupDialog┤ │ │ │ 
            TfrmODLab.cboAvailTestSelect┘ │ │ │ 
                 TfrmODLab.SetupDialog┤   │ │ │ 
            TfrmODLab.cboAvailTestExit┘   │ │ │ 
     TfrmODLab.DetermineCollectionDefaults┘ │ │ 
                   TfrmODLab.SetupDialog┤   │ │ 
         TfrmODLab.cboAvailTestSelect...┘   │ │ 
                    TfrmODLab.SetupCollTimes┤ │ 
                      TfrmODLab.FormCreate┤ │ │ 
                     TfrmODLab.SetupDialog┤ │ │ 
                 TfrmODLab.LoadCollType...┤ │ │ 
               TfrmODLab.cboCollTypeChange┤ │ │ 
  TfrmODLab.DetermineCollectionDefaults...┘ │ │ 
    TfrmODLab.DetermineCollectionDefaults...┤ │ 
                      TfrmODBBank.FormCreate┤ │ 
                  TfrmODBBank.SetupCollTimes┤ │ 
                  TfrmODBBank.LoadCollType┤ │ │ 
 TfrmODBBank.DetermineCollectionDefaults┘ │ │ │ 
        TfrmODBBank.cboAvailTestSelect┘   │ │ │ 
             TfrmODBBank.SetupDialog┤     │ │ │ 
        TfrmODBBank.cboAvailTestExit┘     │ │ │ 
TfrmODBBank.DetermineCollectionDefaults...┤ │ │ 
             TfrmODBBank.cboCollTypeChange┘ │ │ 
                 TfrmODBBank.LoadCollType...┤ │ 
  TfrmODBBank.DetermineCollectionDefaults...┤ │ 
                      TfrmODMedIV.InitDialog┤ │ 
                    TfrmODMedIV.FormCreate┘ │ │ 
                     TfrmODVitals.InitDialog┤ │ 
                   TfrmODVitals.FormCreate┘ │ │ 
                 TfrmODMedNVA.SetOnMedSelect┤ │ 
                  TfrmODMedNVA.SetupDialog┤ │ │ 
               TfrmODMedNVA.btnSelectClick┤ │ │ 
               TfrmODMedNVA.UMDelayClick┘ │ │ │ 
             TfrmODMedNVA.CheckFormAltDose┘ │ │ 
             TfrmODMedNVA.cboDosageClick┘   │ │ 
            TfrmODMedNVA.cboDosageExit┘     │ │ 
                       TfrmODMeds.FormCreate┤ │ 
                   TfrmODMeds.SetOnMedSelect┤ │ 
                    TfrmODMeds.SetupDialog┤ │ │ 
                 TfrmODMeds.btnSelectClick┤ │ │ 
                 TfrmODMeds.UMDelayClick┘ │ │ │ 
               TfrmODMeds.CheckFormAltDose┘ │ │ 
               TfrmODMeds.cboDosageClick┘   │ │ 
             TfrmODMeds.cboDosageKeyUp┘     │ │ 
                    TfrmODAllergy.FormCreate┤ │ 
                    TfrmODAllergy.InitDialog┘ │ 
                  TfrmODAllergy.FormCreate┤   │ 
             TfrmODAllergy.DisableControls┤   │ 
   TfrmODAllergy.ckNoKnownAllergiesClick┘ │   │ 
              TfrmODAllergy.EnableControls┘   │ 
   TfrmODAllergy.ckNoKnownAllergiesClick┘     │ 
                        TCtrlInits.SetListOnly┤ 
                     TfrmODMedIn.SetAltCombo┤ │ 
                   TfrmODMedIn.SetupDialog┤ │ │ 
        TfrmODMedIn.cboMedicationSelect...┘ │ │ 
                    TfrmODMedOut.SetAltCombo┘ │ 
                  TfrmODMedOut.SetupDialog┤   │ 
       TfrmODMedOut.cboMedicationSelect...┘   │ 
                       TCtrlInits.SetPopupMenu┤ 
                       ExecuteComplexDose...┤ │ 
                     TfrmODMedOut.SetupNouns┘ │ 
             TfrmODMedOut.SetOnOISelect...┘   │ 
                        TCtrlInits.DefaultText┤ 
                TfrmODMedIn.SetOnOISelect...┤ │ 
                       ExecuteComplexDose...┤ │ 
               TfrmODMedOut.SetOnOISelect...┤ │ 
                     TfrmODMedNVA.FormCreate┤ │ 
              TfrmODMedNVA.SetOnMedSelect...┤ │ 
                       TfrmODMeds.FormCreate┤ │ 
                TfrmODMeds.SetOnMedSelect...┘ │ 
                             TCtrlInits.TextOf┘ 
                TfrmODMedIn.SetOnOISelect...┤   
               TfrmODMedOut.SetOnOISelect...┤   
              TfrmODMedNVA.SetOnMedSelect...┤   
                TfrmODMeds.SetOnMedSelect...┘   

Called-By

Name Declaration Comments
TCtrlInits.DefaultText function DefaultText(const ASection: string): string; -
TCtrlInits.SetControl procedure SetControl(AControl: TControl; const ASection: string); -
TCtrlInits.SetListOnly procedure SetListOnly(AControl: TControl; const ASection: string); -
TCtrlInits.SetPopupMenu procedure SetPopupMenu(AMenu: TPopupMenu; AClickEvent: TNotifyEvent; const ASection: string); -
TCtrlInits.TextOf function TextOf(const ASection: string): string; -


Source

398   function TCtrlInits.FindInitByName(const AName: string): TCtrlInit;
399   { look first in FOIList, then in FDfltList for initial values identified by name (~section) }
400   var
401     i: Integer;
402   begin
403     Result := nil;
404     with FOIList do
405       for i := 0 to Count - 1 do if TCtrlInit(Items[i]).Name = AName then
406       begin
407         Result := TCtrlInit(Items[i]);
408         break;
409       end;
410     if Result = nil then with FDfltList do
411       for i := 0 to Count - 1 do if TCtrlInit(Items[i]).Name = AName then
412       begin
413         Result := TCtrlInit(Items[i]);
414         break;
415       end;
416   end;