Procedure

TfrmRemDlg.FormCloseQuery

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemDlg

Declaration

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Calls Hierarchy


TfrmRemDlg.FormCloseQuery
 └TfrmRemDlg.KillAll
   ├TfrmFrame.GetTimedOut
   │ └TimedOut
   ├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)..
   ├TReminderDialog.GetPrintName
   ├TReminderDialog.GetIEN
   ├RemoveMHTest
   │ ├LoadMHDLL
   │ └UnloadMHDLL
   └TfrmRemDlg.ResetProcessing
     ├TfrmRemDlg.ClearControls
     │ ├WipeOutControls
     │ │ └..(rec)..
     │ └TfrmRemDlg.GetBox
     ├TfrmRemDlg.PositionTrees
     └TfrmRemDlg.KillDlg

Calls

Name Declaration Comments
TfrmRemDlg.KillAll function KillAll: boolean; -


Source

380   procedure TfrmRemDlg.FormCloseQuery(Sender: TObject;
381     var CanClose: Boolean);
382   begin
383     if(not FExitOK) then
384       CanClose := KillAll;
385   end;