Function

TCtrlInits.DefaultText

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public

Owner

TCtrlInits

Declaration

function DefaultText(const ASection: string): string;

Calls Hierarchy


TCtrlInits.DefaultText
 └TCtrlInits.FindInitByName

Called-By Hierarchy


                       TCtrlInits.DefaultText
                  TfrmODMedIn.SetOnOISelect┤ 
                  TfrmODMedIn.SetupDialog┤ │ 
          TfrmODMedIn.cboMedicationSelect┘ │ 
               TfrmODMedIn.CheckFormAlt┘   │ 
          TfrmODMedIn.cboDispenseExit┤     │ 
    TfrmODMedIn.cboDispenseMouseClick┘     │ 
 TfrmODMedIn.cboMedicationSelect...┘       │ 
                         ExecuteComplexDose┤ 
             TfrmODMedOut.cmdComplexClick┘ │ 
                 TfrmODMedOut.SetOnOISelect┤ 
                 TfrmODMedOut.SetupDialog┤ │ 
         TfrmODMedOut.cboMedicationSelect┘ │ 
              TfrmODMedOut.CheckFormAlt┘   │ 
         TfrmODMedOut.cboDispenseExit┤     │ 
   TfrmODMedOut.cboDispenseMouseClick┘     │ 
TfrmODMedOut.cboMedicationSelect...┘       │ 
                    TfrmODMedNVA.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┘       

Calls

Name Declaration Comments
TCtrlInits.FindInitByName function FindInitByName(const AName: string): TCtrlInit; -

Called-By

Name Declaration Comments
ExecuteComplexDose function ExecuteComplexDose(CtrlInits: TCtrlInits; Responses: TResponses): Boolean; -
TfrmODMedNVA.FormCreate procedure FormCreate(Sender: TObject); -
TfrmODMeds.FormCreate procedure FormCreate(Sender: TObject); -
TfrmODMedNVA.SetOnMedSelect procedure SetOnMedSelect; -
TfrmODMeds.SetOnMedSelect procedure SetOnMedSelect; -
TfrmODMedIn.SetOnOISelect procedure SetOnOISelect; -
TfrmODMedOut.SetOnOISelect procedure SetOnOISelect; -


Source

492   function TCtrlInits.DefaultText(const ASection: string): string;
493   var
494     CtrlInit: TCtrlInit;
495   begin
496     Result := '';
497     CtrlInit := FindInitByName(ASection);
498     if CtrlInit <> nil then Result := CtrlInit.ListID;
499   end;