Procedure

RemindersInProcessChanged

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Global

Declaration

procedure RemindersInProcessChanged(Data: Pointer; Sender: TObject; var CanNotify: boolean);

Calls Hierarchy


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

Called-By Hierarchy


    RemindersInProcessChanged
        InitReminderObjects┘ 
uReminders.initialization┘   

Calls

Name Declaration Comments
ProcessingChangeString function ProcessingChangeString: string; -

Called-By

Name Declaration Comments
InitReminderObjects procedure InitReminderObjects; -


Source

1992  procedure RemindersInProcessChanged(Data: Pointer; Sender: TObject; var CanNotify: boolean);
1993  var
1994    CurProcessing: string;
1995  begin
1996    CurProcessing := ProcessingChangeString;
1997    CanNotify := (LastProcessingList <> CurProcessing);
1998    if(CanNotify) then
1999      LastProcessingList := CurProcessing;
2000  end;