Class

TRemPrompt

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TRemPrompt = class(TObject)
private
  FFromControl: boolean;
  FParent: TRemDlgElement;
  FRec4: string;
  FCaptionAssigned: boolean;
  FData: TRemData;
  FValue: string;
  FOverrideType: TRemPromptType;
  FIsShared: boolean;
  FSharedChildren: TList;
  FCurrentControl: TControl;
  FFromParent: boolean;
  FInitializing: boolean;
  FMiscText: string;
  FMonthReq: boolean;
  FPrintNow: String;
  FMHTestComplete: integer;
protected
  function RemDataActive(RData: TRemData; EncDt: TFMDateTime):Boolean;
  function CompareActiveDate(ActiveDates: TStringList; EncDt: TFMDateTime):Boolean;
  function RemDataChoiceActive(RData: TRemData; j: integer; EncDt: TFMDateTime):Boolean;
  function GetValue: string;
  procedure SetValueFromParent(Value: string);
  procedure SetValue(Value: string);
  procedure PromptChange(Sender: TObject);
  procedure VitalVerify(Sender: TObject);
  procedure ComboBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  function CanShare(Prompt: TRemPrompt): boolean;
  procedure InitValue;
  procedure DoMHTest(Sender: TObject);
  procedure DoWHReport(Sender: TObject);
  procedure ViewWHText(Sender: TObject);
  procedure GAFHelp(Sender: TObject);
  function EntryID: string;
  procedure EditKeyPress(Sender: TObject; var Key: Char);
public
  constructor Create;
  destructor Destroy; override;
  function PromptOK: boolean;
  function PromptType: TRemPromptType;
  function Add2PN: boolean;
  function InternalValue: string;
  function Forced: boolean;
  function Caption: string;
  function ForcedCaption: string;
  function SameLine: boolean;
  function Required: boolean;
  function NoteText: string;
  function VitalType: TVitalType;
  function VitalValue: string;
  function VitalUnitValue: string;
  property Value: string read GetValue write SetValue;
end;

Class Hierarchy


TObject
 └TRemPrompt

Class Fields

Name Type Scope Comments
FCaptionAssigned Boolean Private -
FCurrentControl TControl Private -
FData TRemData Private -
FFromControl Boolean Private -
FFromParent Boolean Private -
FInitializing Boolean Private -
FIsShared Boolean Private -
FMHTestComplete Integer Private -
FMiscText UnicodeString Private -
FMonthReq Boolean Private -
FOverrideType Private -
FParent TRemDlgElement Private -
FPrintNow UnicodeString Private -
FRec4 UnicodeString Private -
FSharedChildren TList Private -
FValue UnicodeString Private -

Properties

Name Type Scope Comments
Value 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 TRemPrompt
CanShare function CanShare(Prompt: TRemPrompt): boolean; Protected -
Caption function Caption: string; Public -
ComboBoxKeyDown procedure ComboBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Protected -
CompareActiveDate function CompareActiveDate(ActiveDates: TStringList; EncDt: TFMDateTime):Boolean; Protected Agp ICD-10 code was imported from RemDataActive
DoMHTest procedure DoMHTest(Sender: TObject); Protected -
DoWHReport procedure DoWHReport(Sender: TObject); Protected -
EditKeyPress procedure EditKeyPress(Sender: TObject; var Key: Char); Protected -
EntryID function EntryID: string; Protected -
Forced function Forced: boolean; Public -
ForcedCaption function ForcedCaption: string; Public -
GAFHelp procedure GAFHelp(Sender: TObject); Protected -
GetValue function GetValue: string; Protected
Returns TRemPrompt.FValue if this TRemPrompt is not a ptPrimaryDiag
Returns 0-False or 1-True if this TRemPrompt is a ptPrimaryDiag
InitValue procedure InitValue; Protected -
InternalValue function InternalValue: string; Public -
NoteText function NoteText: string; Public -
PromptChange procedure PromptChange(Sender: TObject); Protected Printoption: TORCheckBox;
PromptOK function PromptOK: boolean; Public -
PromptType function PromptType: TRemPromptType; Public -
RemDataActive function RemDataActive(RData: TRemData; EncDt: TFMDateTime):Boolean; Protected
Var
  ActDt, InActDt: Double;
  j: integer;
RemDataChoiceActive function RemDataChoiceActive(RData: TRemData; j: integer; EncDt: TFMDateTime):Boolean; Protected -
Required function Required: boolean; Public -
SameLine function SameLine: boolean; Public -
SetValue procedure SetValue(Value: string); Protected -
SetValueFromParent procedure SetValueFromParent(Value: string); Protected -
ViewWHText procedure ViewWHText(Sender: TObject); Protected -
VitalType function VitalType: TVitalType; Public -
VitalUnitValue function VitalUnitValue: string; Public -
VitalValue function VitalValue: string; Public -
VitalVerify procedure VitalVerify(Sender: TObject); Protected -

Referenced By (48)

Module (line) Referrer Type
uReminders (101) TRemDlgElement Read
uReminders (103) TRemDlgElement Read
uReminders (186) TRemData Read
uReminders (239) CanShare Read
uReminders (276) Sync Read
uReminders (277) UnSync Read
uReminders (3004) - Read
uReminders (3090) - Read
uReminders (3090) - Read
uReminders (3177) - Read
uReminders (3177) - Read
uReminders (3197) - Read
uReminders (3197) - Read
uReminders (3232) - Read
uReminders (3232) - Read
uReminders (3269) - Read
uReminders (3283) - Read
uReminders (3334) - Read
uReminders (3497) - Read
uReminders (3661) - Read
uReminders (4420) - Unknown
uReminders (4630) - Read
uReminders (4673) - Read
uReminders (4686) - Read
uReminders (4763) - Read
uReminders (4797) - Read
uReminders (4801) - Read
uReminders (4825) - Read
uReminders (4856) - Read
uReminders (4866) - Read
uReminders (4988) - Read
uReminders (4992) - Read
uReminders (5061) - Unknown
uReminders (5071) - Read
uReminders (5212) AddPrompt Read
uReminders (5290) - Read
uReminders (5312) - Read
uReminders (5366) - Read
uReminders (5375) - Read
uReminders (5394) - Read
uReminders (6245) - Read
uReminders (6974) - Read
uReminders (7054) - Read
uReminders (7058) - Read
uReminders (7078) - Read
uReminders (7093) - Read
uReminders (7123) - Read
uReminders (7137) - Read