Function

TReminderDialog.AddData

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Visibility

Protected

Owner

TReminderDialog

Declaration

function AddData(Lst: TStrings; Finishing: boolean = FALSE; Historical: boolean = FALSE): integer;

Calls Hierarchy


TReminderDialog.AddData
 └TRemDlgElement.AddData
   ├TRemDlgElement.Historical
   ├TPCEData.VisitDateTime
   │ └TPCEData.IsSecondaryVisit
   ├TRemData.AddData
   │ ├Add
   │ │ ├Code2DataType
   │ │ ├TRemDlgElement.Historical
   │ │ ├TRemPrompt.GetValue
   │ │ │ ├TRemDlgElement.Historical
   │ │ │ ├TPCEData.VisitDateTime...
   │ │ │ ├TRemPrompt.RemDataActive
   │ │ │ │ └TRemPrompt.CompareActiveDate
   │ │ │ └TRemPrompt.RemDataChoiceActive
   │ │ ├TPCEData.VisitDateTime...
   │ │ ├ValidateGAFDate
   │ │ │ ├TPatient.GetDateDied
   │ │ │ │ └DateOfDeath
   │ │ │ └FMToday
   │ │ │   └FMNow
   │ │ ├TPCEProviderList.PCEProvider
   │ │ │ ├Check
   │ │ │ │ └TPCEProviderList.IndexOfProvider
   │ │ │ └TPCEProviderList.PrimaryIEN
   │ │ │   └TPCEProviderList.GetPrimaryIdx
   │ │ ├AddPrompt
   │ │ │ ├TRemPrompt.PromptType
   │ │ │ │ └Code2PromptType
   │ │ │ ├TPCEProviderList.PCEProvider...
   │ │ │ ├TPCEData.VisitDateTime...
   │ │ │ ├TRemPrompt.VitalValue
   │ │ │ │ └TRemPrompt.GetValue...
   │ │ │ ├TRemPrompt.VitalType
   │ │ │ │ ├Code2VitalType
   │ │ │ │ └TRemData.InternalValue
   │ │ │ ├TRemPrompt.VitalUnitValue
   │ │ │ │ ├TRemPrompt.VitalType...
   │ │ │ │ └TRemPrompt.GetValue...
   │ │ │ ├ConvertVital
   │ │ │ ├FormatVitalForNote
   │ │ │ │ └ConvertVitalData
   │ │ │ ├TRemPrompt.GetValue...
   │ │ │ └TRemDlgElement.Historical
   │ │ └GetPCEDataText
   │ │   └GetDiagnosisText
   │ ├TRemDlgElement.Historical
   │ └TPCEData.VisitDateTime...
   ├TRemDlgElement.ElemType
   └..(rec)..

Called-By Hierarchy


TReminderDialog.AddData
      GetReminderData┤ 
      GetReminderData┘ 

Calls

Name Declaration Comments
TRemDlgElement.AddData function AddData(Lst: TStrings; Finishing: boolean; AHistorical: boolean = FALSE): integer; -

Called-By

Name Declaration Comments
GetReminderData function GetReminderData(Rem: TReminderDialog; Lst: TStrings; Finishing: boolean = FALSE; Historical: boolean = FALSE): integer; overload; -
GetReminderData function GetReminderData(Lst: TStrings; Finishing: boolean = FALSE; Historical: boolean = FALSE): integer; overload; -


Source

2627  function TReminderDialog.AddData(Lst: TStrings; Finishing: boolean = FALSE;
2628                             Historical: boolean = FALSE): integer;
2629  var
2630    i: integer;
2631    Elem: TRemDlgElement;
2632  
2633  begin
2634    Result := 0;
2635    if(assigned(FElements)) then
2636    begin
2637      for i := 0 to FElements.Count-1 do
2638      begin
2639        Elem := TRemDlgElement(FElements.Objects[i]);
2640        if (not assigned(Elem.FParent)) then
2641          inc(Result, Elem.AddData(Lst, Finishing, Historical));
2642      end;
2643    end;
2644  end;