Function

GetReminderData

Directives

Overload

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Interfaced

Declaration

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

Calls Hierarchy


GetReminderData
 └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)..

Calls

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


Source

2189  function GetReminderData(Lst: TStrings; Finishing: boolean = FALSE;
2190                                           Historical: boolean = FALSE): integer;
2191  var
2192    i: integer;
2193  begin
2194    Result := 0;
2195    for i := 0 to RemindersInProcess.Count-1 do
2196      inc(Result, TReminder(RemindersInProcess.Objects[i]).AddData(Lst, Finishing, Historical));
2197  end;