Class

TfrmRemDlg

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmRemDlg = class(TfrmBase508Form)
  sb1: TScrollBox;
  sb2: TScrollBox;
  splTxtData: TSplitter;
  pnlFrmBottom: TPanel;
  pnlBottom: TPanel;
  splText: TSplitter;
  reData: TRichEdit;
  reText: TRichEdit;
  lblFootnotes: TLabel;
  gpButtons: TGridPanel;
  btnClear: TButton;
  btnClinMaint: TButton;
  btnVisit: TButton;
  btnBack: TButton;
  btnNext: TButton;
  btnFinish: TButton;
  btnCancel: TButton;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure sbResize(Sender: TObject);
  procedure btnClearClick(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure ProcessReminderFromNodeStr(value: string);
  procedure btnNextClick(Sender: TObject);
  procedure btnBackClick(Sender: TObject);
  procedure btnFinishClick(Sender: TObject);
  procedure btnClinMaintClick(Sender: TObject);
  procedure btnVisitClick(Sender: TObject);
  procedure KillDlg(ptr: Pointer; ID: string; KillObjects: boolean = FALSE);
  procedure FormShow(Sender: TObject);
  procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
    WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); //AGP Change 24.8
private
  FSCCond: TSCConditions;
  FSCPrompt: boolean;
  fVitalsDate: TFMDateTime;
  FSCRelated: integer;
  FAORelated: integer;
  FIRRelated: integer;
  FECRelated: integer;
  FMSTRelated: integer;
  FHNCRelated: integer;
  FCVRelated: integer;
  FSHDRelated: integer;
  FLastWidth: integer;
  FUseBox2: boolean;
  FExitOK: boolean;
  FReminder: TReminderDialog;
  CurReminderList: TORStringList;
  FClinMainBox: TfrmReportBox;
  FOldClinMaintOnDestroy: TNotifyEvent;
  FProcessingTemplate: boolean;
  FSilent: boolean;
protected
  procedure RemindersChanged(Sender: TObject);
  procedure ClearControls(All: boolean = FALSE);
  procedure BuildControls;
  function GetBox(Other: boolean = FALSE): TScrollBox;
  function KillAll: boolean;
  procedure ResetProcessing(Wipe: string = ''); //AGP CHANGE 24.8;
  procedure BoxUpdateDone;
  procedure ControlsChanged(Sender: TObject);
  procedure UMResyncRem(var Message: TMessage); message UM_RESYNCREM;
  procedure UpdateText(Sender: TObject);
  function GetCurReminderList: integer;
  function NextReminder: string;
  function BackReminder: string;
  procedure UpdateButtons;
  procedure PositionTrees(NodeID: string);
  procedure ClinMaintDestroyed(Sender: TObject);
  procedure ProcessTemplate(Template: TTemplate);
  procedure ClearMHTest(Rien: string);
public
  procedure ProcessReminder(ARemData: string; NodeID: string);
  procedure SetFontSize;
  property Silent: boolean read FSilent write FSilent;
end;

DFM Objects


frmRemDlg : TfrmRemDlg
 ├splTxtData : TSplitter
 ├sb1 : TScrollBox
 ├sb2 : TScrollBox
 ├pnlFrmBottom : TPanel
 │ ├lblFootnotes : TLabel
 │ └pnlBottom : TPanel
 │   ├splText : TSplitter
 │   ├reData : TRichEdit
 │   ├reText : TRichEdit
 │   └gpButtons : TGridPanel
 │     ├btnClear : TButton
 │     ├btnClinMaint : TButton
 │     ├btnVisit : TButton
 │     ├btnBack : TButton
 │     ├btnNext : TButton
 │     ├btnFinish : TButton
 │     └btnCancel : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnBack TButton Public/Published -
btnCancel TButton Public/Published -
btnClear TButton Public/Published -
btnClinMaint TButton Public/Published -
btnFinish TButton Public/Published -
btnNext TButton Public/Published -
btnVisit TButton Public/Published -
CurReminderList TORStringList Private -
FAORelated Integer Private -
FClinMainBox TfrmReportBox Private -
FCVRelated Integer Private -
FECRelated Integer Private -
FExitOK Boolean Private -
FHNCRelated Integer Private -
FIRRelated Integer Private -
FLastWidth Integer Private -
FMSTRelated Integer Private -
FOldClinMaintOnDestroy TNotifyEvent Private -
FProcessingTemplate Boolean Private -
FReminder TReminderDialog Private -
FSCCond Private -
FSCPrompt Boolean Private -
FSCRelated Integer Private -
FSHDRelated Integer Private -
FSilent Boolean Private -
FUseBox2 Boolean Private -
FVitalsDate TFMDateTime Private -
gpButtons Simple (unknown) Public/Published -
lblFootnotes TLabel Public/Published -
pnlBottom TPanel Public/Published -
pnlFrmBottom TPanel Public/Published -
reData TRichEdit Public/Published -
reText TRichEdit Public/Published -
sb1 TScrollBox Public/Published -
sb2 TScrollBox Public/Published -
splText TSplitter Public/Published -
splTxtData TSplitter Public/Published -

Properties

Name Type Scope Comments
Silent Boolean Public -

Methods

Name Declaration Scope Comments
BackReminder function BackReminder: string; Protected -
BoxUpdateDone procedure BoxUpdateDone; Protected -
btnBackClick procedure btnBackClick(Sender: TObject); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnClearClick procedure btnClearClick(Sender: TObject); Public/Published -
btnClinMaintClick procedure btnClinMaintClick(Sender: TObject); Public/Published -
btnFinishClick procedure btnFinishClick(Sender: TObject); Public/Published
Prompt: TRemPrompt;
Test: String;
btnNextClick procedure btnNextClick(Sender: TObject); Public/Published -
btnVisitClick procedure btnVisitClick(Sender: TObject); Public/Published -
BuildControls procedure BuildControls; Protected -
ClearControls procedure ClearControls(All: boolean = FALSE); Protected -
ClearMHTest procedure ClearMHTest(Rien: string); Protected -
ClinMaintDestroyed procedure ClinMaintDestroyed(Sender: TObject); Protected -
ControlsChanged procedure ControlsChanged(Sender: TObject); Protected -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormMouseWheel procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetBox function GetBox(Other: boolean = FALSE): TScrollBox; Protected -
GetCurReminderList function GetCurReminderList: integer; Protected -
KillAll function KillAll: boolean; Protected ClearMH: boolean;
KillDlg procedure KillDlg(ptr: Pointer; ID: string; KillObjects: boolean = FALSE); Public/Published AGP Change 24.8 You MUST pass an address to an object variable to get KillObj to work
NextReminder function NextReminder: string; Protected -
PositionTrees procedure PositionTrees(NodeID: string); Protected -
ProcessReminder procedure ProcessReminder(ARemData: string; NodeID: string); Public TfrmRemDlg
ProcessReminderFromNodeStr procedure ProcessReminderFromNodeStr(value: string); Public/Published -
ProcessTemplate procedure ProcessTemplate(Template: TTemplate); Protected -
RemindersChanged procedure RemindersChanged(Sender: TObject); Protected -
ResetProcessing procedure ResetProcessing(Wipe: string = ''); Protected
AGP CHANGE 24.8;
AGP CHANGE 24.8
sbResize procedure sbResize(Sender: TObject); Public/Published -
SetFontSize procedure SetFontSize; Public -
UMResyncRem procedure UMResyncRem(var Message: TMessage); message UM_RESYNCREM; Protected -
UpdateButtons procedure UpdateButtons; Protected -
UpdateText procedure UpdateText(Sender: TObject); Protected -

Referenced By (2)

Module (line) Referrer Type
fReminderDialog (106) frmRemDlg Read
fReminderDialog (233) - Read