Procedure

InitReminderObjects

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Global

Declaration

procedure InitReminderObjects;

Calls Hierarchy


InitReminderObjects
 ├InitReminderList
 ├RemindersInProcessChanged
 │ └ProcessingChangeString
 │   └TReminderDialog.Processing
 │     └CheckItem
 │       ├ChildrenChecked
 │       │ └CheckItem...
 │       └TRemDlgElement.Add2PN
 │         ├TRemDlgElement.ElemType
 │         └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)..
 └LocationChanged
   └LoadReminderData
     ├BeginReminderUpdate
     ├GetCurrentReminders
     ├CheckReminders
     │ ├EvaluateReminders
     │ └ReminderEvaluated
     ├GetOtherReminders
     └EndReminderUpdate

Called-By Hierarchy


        InitReminderObjects
uReminders.initialization┘ 

Calls

Name Declaration Comments
InitReminderList procedure InitReminderList(var List: TORStringList); -
LocationChanged procedure LocationChanged(Sender: TObject); -
RemindersInProcessChanged procedure RemindersInProcessChanged(Data: Pointer; Sender: TObject; var CanNotify: boolean); -

Called-By

Name Declaration Comments
uReminders.initialization - -


Source

2002  procedure InitReminderObjects;
2003  var
2004    M: TMethod;
2005  
2006    procedure InitReminderList(var List: TORStringList);
2007    begin
2008      if(not assigned(List)) then
2009        List := TORStringList.Create;
2010    end;
2011  
2012  begin
2013    InitReminderList(ActiveReminders);
2014    InitReminderList(OtherReminders);
2015    InitReminderList(EvaluatedReminders);
2016    InitReminderList(ReminderCallList);
2017    InitReminderList(RemindersInProcess);
2018    InitReminderList(ProcessedReminders);
2019  
2020    M.Code := @RemindersInProcessChanged;
2021    M.Data := nil;
2022    RemindersInProcess.Notifier.OnNotify :=  TCanNotifyEvent(M);
2023  
2024    AddToNotifyWhenCreated(LocationChanged, TEncounter);
2025  
2026    RemForm.Form := nil;
2027  end;