Class

TRemDlgElement

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TRemDlgElement = class(TObject)
private
  FReminder: TReminderDialog;
  FParent: TRemDlgElement;
  FChildren: TList; // Points to other TRemDlgElement objects
  FData: TList; // List of TRemData objects
  FPrompts: TList; // list of TRemPrompts objects
  FText: string;
  FPNText: string;
  FRec1: string;
  FID: string;
  FDlgID: string;
  FHaveData: boolean;
  FTaxID: string;
  FChecked: boolean;
  FChildrenShareChecked: boolean;
  FHasSharedPrompts: boolean;
  FHasComment: boolean;
  FHasSubComments: boolean;
  FCommentPrompt: TRemPrompt;
  FFieldValues: TORStringList;
  FMSTPrompt: TRemPrompt;
  FWHPrintDevice, FWHResultChk, FWHResultNot: String;
  FVitalDateTime: TFMDateTime;  //AGP Changes 26.1
protected
  procedure Check4ChildrenSharedPrompts;
  function ShowChildren: boolean;
  function EnableChildren: boolean;
  function Enabled: boolean;
  procedure SetChecked(const Value: boolean);
  procedure UpdateData;
  function OneValidCode(Choices: TORStringList; ChoicesActiveDates: TList; encDt: TFMDateTime): string;
  procedure setActiveDates(Choices: TORStringList; ChoicesActiveDates: TList; ActiveDates: TStringList);
  procedure GetData;
  function TrueIndent: integer;
  procedure cbClicked(Sender: TObject);
  procedure cbEntered(Sender: TObject);
  procedure FieldPanelEntered(Sender: TObject);
  procedure FieldPanelExited(Sender: TObject);
  procedure FieldPanelKeyPress(Sender: TObject; var Key: Char);
  procedure FieldPanelOnClick(Sender: TObject);
  procedure FieldPanelLabelOnClick(Sender: TObject);

  function BuildControls(var Y: integer; ParentWidth: integer;
                              BaseParent, AOwner: TWinControl): TWinControl;
  function AddData(Lst: TStrings; Finishing: boolean; AHistorical: boolean = FALSE): integer;
  procedure FinishProblems(List: TStrings);
  function IsChecked: boolean;
  procedure SubCommentChange(Sender: TObject);
  function EntryID: string;
  procedure FieldPanelChange(Sender: TObject);
  procedure GetFieldValues(FldData: TStrings);
  procedure ParentCBEnter(Sender: TObject);
  procedure ParentCBExit(Sender: TObject);
public
  constructor Create;
  destructor Destroy; override;
  function ElemType: TRDElemType;
  function Add2PN: boolean;
  function Indent: integer;
  function FindingType: string;
  function Historical: boolean;
  function ResultDlgID: string;
  function IncludeMHTestInPN: boolean;
  function HideChildren: boolean;
  function ChildrenIndent: integer;
  function ChildrenSharePrompts: boolean;
  function ChildrenRequired: TRDChildReq;
  function Box: boolean;
  function BoxCaption: string;
  function IndentChildrenInPN: boolean;
  function IndentPNLevel: integer;
  function GetTemplateFieldValues(const Text: string; FldValues: TORStringList =  nil): string;
  procedure AddText(Lst: TStrings);
  property Text: string read FText;
  property ID: string read FID;
  property DlgID: string read FDlgID;
  property Checked: boolean read FChecked write SetChecked;
  property Reminder: TReminderDialog read FReminder;
  property HasComment: boolean read FHasComment;
  property WHPrintDevice: String read FWHPrintDevice write FWHPrintDevice;
  property WHResultChk: String read FWHResultChk write FWHResultChk;
  property WHResultNot: String read FWHResultNot write FWHResultNot;
  property VitalDateTime: TFMDateTime read FVitalDateTime write FVitalDateTime;
end;

Class Hierarchy


TObject
 └TRemDlgElement

Class Fields

Name Type Scope Comments
FChecked Boolean Private -
FChildren TList Private Points to other TRemDlgElement objects
FChildrenShareChecked Boolean Private -
FCommentPrompt TRemPrompt Private -
FData TList Private List of TRemData objects
FDlgID UnicodeString Private -
FFieldValues TORStringList Private -
FHasComment Boolean Private -
FHasSharedPrompts Boolean Private -
FHasSubComments Boolean Private -
FHaveData Boolean Private -
FID UnicodeString Private -
FMSTPrompt TRemPrompt Private -
FParent TRemDlgElement Private -
FPNText UnicodeString Private -
FPrompts TList Private List of TRemPrompts objects
FRec1 UnicodeString Private -
FReminder TReminderDialog Private -
FTaxID UnicodeString Private -
FText UnicodeString Private -
FVitalDateTime TFMDateTime Private AGP Changes 26.1
FWHPrintDevice UnicodeString Private -
FWHResultChk UnicodeString Private -
FWHResultNot UnicodeString Private -

Properties

Name Type Scope Comments
Checked Boolean Public -
DlgID UnicodeString Public -
HasComment Boolean Public -
ID UnicodeString Public -
Reminder TReminderDialog Public -
Text UnicodeString Public -
VitalDateTime TFMDateTime Public -
WHPrintDevice UnicodeString Public -
WHResultChk UnicodeString Public -
WHResultNot UnicodeString Public -

Constructors

Name Declaration Scope Comments
Create constructor Create; Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
Add2PN function Add2PN: boolean; Public -
AddData function AddData(Lst: TStrings; Finishing: boolean; AHistorical: boolean = FALSE): integer; Protected -
AddText procedure AddText(Lst: TStrings); Public -
Box function Box: boolean; Public -
BoxCaption function BoxCaption: string; Public -
BuildControls function BuildControls(var Y: integer; ParentWidth: integer; BaseParent, AOwner: TWinControl): TWinControl; Protected -
cbClicked procedure cbClicked(Sender: TObject); Protected -
cbEntered procedure cbEntered(Sender: TObject); Protected -
Check4ChildrenSharedPrompts procedure Check4ChildrenSharedPrompts; Protected -
ChildrenIndent function ChildrenIndent: integer; Public -
ChildrenRequired function ChildrenRequired: TRDChildReq; Public -
ChildrenSharePrompts function ChildrenSharePrompts: boolean; Public -
ElemType function ElemType: TRDElemType; Public -
EnableChildren function EnableChildren: boolean; Protected -
Enabled function Enabled: boolean; Protected -
EntryID function EntryID: string; Protected -
FieldPanelChange procedure FieldPanelChange(Sender: TObject); Protected -
FieldPanelEntered procedure FieldPanelEntered(Sender: TObject); Protected Cause the paint event to be called and draw a focus rectangle on the TFieldPanel
FieldPanelExited procedure FieldPanelExited(Sender: TObject); Protected Cause the paint event to be called and draw the TFieldPanel without the focus rect.
FieldPanelKeyPress procedure FieldPanelKeyPress(Sender: TObject; var Key: Char); Protected Check the associated checkbox when spacebar is pressed
FieldPanelLabelOnClick procedure FieldPanelLabelOnClick(Sender: TObject); Protected Call the FieldPanelOnClick so labels on the panels will also click the checkbox
FieldPanelOnClick procedure FieldPanelOnClick(Sender: TObject); Protected So the FieldPanel will check the associated checkbox
FindingType function FindingType: string; Public -
FinishProblems procedure FinishProblems(List: TStrings); Protected -
GetData procedure GetData; Protected -
GetFieldValues procedure GetFieldValues(FldData: TStrings); Protected -
GetTemplateFieldValues function GetTemplateFieldValues(const Text: string; FldValues: TORStringList = nil): string; Public
This is used to get the template field values if this reminder is not the
current reminder in dialog, in which case no uEntries will exist so we have
to get the template field values that were saved in the element.
HideChildren function HideChildren: boolean; Public -
Historical function Historical: boolean; Public -
IncludeMHTestInPN function IncludeMHTestInPN: boolean; Public -
Indent function Indent: integer; Public -
IndentChildrenInPN function IndentChildrenInPN: boolean; Public -
IndentPNLevel function IndentPNLevel: integer; Public -
IsChecked function IsChecked: boolean; Protected -
OneValidCode function OneValidCode(Choices: TORStringList; ChoicesActiveDates: TList; encDt: TFMDateTime): string; Protected Agp ICD-10 add this function to scan for valid codes against encounter date.
ParentCBEnter procedure ParentCBEnter(Sender: TObject); Protected -
ParentCBExit procedure ParentCBExit(Sender: TObject); Protected -
ResultDlgID function ResultDlgID: string; Public -
setActiveDates procedure setActiveDates(Choices: TORStringList; ChoicesActiveDates: TList; ActiveDates: TStringList); Protected -
SetChecked procedure SetChecked(const Value: boolean); Protected -
ShowChildren function ShowChildren: boolean; Protected -
SubCommentChange procedure SubCommentChange(Sender: TObject); Protected -
TrueIndent function TrueIndent: integer; Protected -
UpdateData procedure UpdateData; Protected -

Referenced By (45)

Module (line) Referrer Type
uReminders (85) TRemDlgElement Read
uReminders (178) TRemData Read
uReminders (202) TRemData Read
uReminders (214) TRemPrompt Read
uReminders (467) ElementChecked Read
uReminders (2402) - Read
uReminders (2417) - Read
uReminders (2418) - Read
uReminders (2457) - Read
uReminders (2487) - Read
uReminders (2490) ChildrenChecked Read
uReminders (2492) CheckItem Read
uReminders (2504) - Read
uReminders (2514) - Read
uReminders (2526) - Read
uReminders (2570) - Read
uReminders (2580) - Read
uReminders (2605) - Read
uReminders (2614) - Read
uReminders (2631) - Read
uReminders (2639) - Read
uReminders (2736) - Read
uReminders (2749) - Read
uReminders (3268) - Read
uReminders (3272) UpdateForcedValues Read
uReminders (3303) - Read
uReminders (3321) - Read
uReminders (3359) - Read
uReminders (3505) - Read
uReminders (3668) - Read
uReminders (4302) - Read
uReminders (4516) - Read
uReminders (4700) - Read
uReminders (4753) - Read
uReminders (4760) - Read
uReminders (4772) - Read
uReminders (4779) - Read
uReminders (4814) - Read
uReminders (4818) - Read
uReminders (4840) - Read
uReminders (4855) - Read
uReminders (4939) - Read
uReminders (4965) - Read
uReminders (4971) - Read
uReminders (5142) - Read