Procedure

ClearReminderData

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Interfaced

Declaration

procedure ClearReminderData;

Calls Hierarchy


ClearReminderData
 └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


                                ClearReminderData
                         TfrmFrame.ClearPatient┘ 
                       TfrmFrame.SetupPatient┘   
                  UpdatePatientInfoForAlert┤     
               TfrmFrame.mnuFileNextClick┘ │     
             TfrmFrame.mnuFileOpenClick┤   │     
                 TfrmFrame.UMInitiate┤ │   │     
        TfrmFrame.mnuFileNextClick...┤ │   │     
        TfrmFrame.mnuFileRefreshClick┤ │   │     
        TfrmOrders.CheckOrderStatus┤ │ │   │     
    TfrmOrders.mnuActChgEvntClick┤ │ │ │   │     
       TfrmOrders.mnuActHoldClick┤ │ │ │   │     
     TfrmOrders.mnuActUnholdClick┤ │ │ │   │     
      TfrmOrders.mnuActRenewClick┤ │ │ │   │     
     TfrmOrders.mnuActChangeClick┤ │ │ │   │     
       TfrmOrders.mnuActCopyClick┘ │ │ │   │     
             TfrmMeds.mnuActDCClick┤ │ │   │     
            TfrmMeds.CheckMedStatus┘ │ │   │     
         TfrmMeds.mnuActHoldClick┤   │ │   │     
        TfrmMeds.mnuActRenewClick┤   │ │   │     
       TfrmMeds.mnuActUnholdClick┤   │ │   │     
       TfrmMeds.mnuActChangeClick┤   │ │   │     
         TfrmMeds.mnuActCopyClick┤   │ │   │     
       TfrmMeds.mnuActRefillClick┘   │ │   │     
                   TfrmFrame.ViewInfo┘ │   │     
                TfrmDCSumm.ViewInfo┤   │   │     
              TfrmConsults.ViewInfo┤   │   │     
      TfrmFrame.pnlRemindersMouseUp┤   │   │     
       TfrmFrame.RemindersChanged┘ │   │   │     
           TfrmFrame.FormCreate┘   │   │   │     
             TfrmFrame.pnlCIRNClick┤   │   │     
       TfrmFrame.pnlVistaWebClick┤ │   │   │     
            TfrmFrame.FormKeyDown┘ │   │   │     
          TfrmFrame.pnlPatientClick┤   │   │     
            TfrmFrame.pnlVisitClick┤   │   │     
      TfrmFrame.pnlPrimaryCareClick┤   │   │     
        TfrmFrame.pnlRemindersClick┤   │   │     
         TfrmFrame.pnlPostingsClick┤   │   │     
             TfrmFrame.pnlFlagClick┤   │   │     
               TfrmFrame.laMHVClick┤   │   │     
              TfrmFrame.laVAA2Click┤   │   │     
                TfrmOrders.ViewInfo┤   │   │     
                  TfrmMeds.ViewInfo┤   │   │     
               TfrmSurgery.ViewInfo┤   │   │     
                 TfrmNotes.ViewInfo┤   │   │     
              TfrmProblems.ViewInfo┘   │   │     
      TfrmFrame.mnuFileNotifRemoveClick┤   │     
              TfrmFrame.NextButtonClick┘   │     
            TfrmFrame.SetUpNextButton┘     │     
      TfrmFrame.mnuFileOpenClick...┤       │     
               TfrmFrame.FormResize┘       │     
             TfrmFrame.ChangeFont┘         │     
     TfrmFrame.LoadSizesForUser┤           │     
TfrmFrame.LoadUserPreferences┘ │           │     
       TfrmFrame.UMInitiate┘   │           │     
     TfrmFrame.mnuFontSizeClick┘           │     
              TfrmFrame.mnuFileOpenClick...┤     
           TfrmFrame.AllowCCOWContextChange┤     
            TfrmFrame.mnuFileNextClick...┤ │     
            TfrmFrame.mnuFileOpenClick...┤ │     
   TfrmFrame.mnuFileResumeContextSetClick┘ │     
                TfrmFrame.UpdateCCOWContext┤     
            TfrmFrame.mnuFileOpenClick...┤ │     
          TfrmFrame.ctxContextorCommitted┤ │     
           TfrmFrame.StartCCOWContextor┘ │ │     
                 TfrmFrame.FormCreate┘   │ │     
   TfrmFrame.mnuFileResumeContextGetClick┘ │     
     TfrmFrame.mnuFileResumeContextSetClick┘     

Calls

Name Declaration Comments
ProcessingChangeString function ProcessingChangeString: string; -

Called-By

Name Declaration Comments
TfrmFrame.ClearPatient procedure ClearPatient; -


Source

1957  procedure ClearReminderData;
1958  var
1959    Changed: boolean;
1960  
1961  begin
1962    if(assigned(frmReminderTree)) then
1963      frmReminderTree.Free;
1964    Changed := ((ActiveReminders.Count > 0) or (OtherReminders.Count > 0) or
1965                (ProcessingChangeString <> U));
1966    ActiveReminders.Notifier.BeginUpdate;
1967    OtherReminders.Notifier.BeginUpdate;
1968    RemindersInProcess.Notifier.BeginUpdate;
1969    try
1970      ProcessedReminders.Clear;
1971      if(assigned(KillReminderDialogProc)) then
1972        KillReminderDialogProc(nil);
1973      ActiveReminders.Clear;
1974      OtherReminders.Clear;
1975      EvaluatedReminders.Clear;
1976      ReminderCallList.Clear;
1977      RemindersInProcess.KillObjects;
1978      RemindersInProcess.Clear;
1979      LastProcessingList := '';
1980      InitialRemindersLoaded := FALSE;
1981      CoverSheetRemindersInBackground := FALSE;
1982    finally
1983      RemindersInProcess.Notifier.EndUpdate;
1984      OtherReminders.Notifier.EndUpdate;
1985      ActiveReminders.Notifier.EndUpdate(Changed);
1986      RemindersStarted := FALSE;
1987      LastReminderLocation := -2;
1988      RemForm.Form := nil;
1989    end;
1990  end;