Class

TfrmdlgProb

Module

fProbEdt

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmdlgProb = class(TfrmBase508Form)
  Label1: TLabel;
  Label5: TLabel;
  edResDate: TCaptionEdit;
  Label7: TLabel;
  edUpdate: TCaptionEdit;
  pnlBottom: TPanel;
  bbQuit: TBitBtn;
  bbFile: TBitBtn;
  pnlComments: TPanel;
  Bevel1: TBevel;
  lblCmtDate: TOROffsetLabel;
  lblComment: TOROffsetLabel;
  lblCom: TStaticText;
  bbAdd: TBitBtn;
  bbRemove: TBitBtn;
  lstComments: TORListBox;
  bbEdit: TBitBtn;
  pnlTop: TPanel;
  lblAct: TLabel;
  rgStatus: TKeyClickRadioGroup;
  rgStage: TKeyClickRadioGroup;
  bbChangeProb: TBitBtn;
  edProb: TCaptionEdit;
  gbTreatment: TGroupBox;
  ckYSC: TCheckBox;
  ckYRad: TCheckBox;
  ckYAO: TCheckBox;
  ckYENV: TCheckBox;
  ckYHNC: TCheckBox;
  ckYMST: TCheckBox;
  ckYSHAD: TCheckBox;
  ckNSC: TCheckBox;
  ckNRad: TCheckBox;
  ckNAO: TCheckBox;
  ckNENV: TCheckBox;
  ckNHNC: TCheckBox;
  ckNMST: TCheckBox;
  ckNSHAD: TCheckBox;
  ckVerify: TCheckBox;
  edRecDate: TCaptionEdit;
  cbServ: TORComboBox;
  cbLoc: TORComboBox;
  lblLoc: TLabel;
  cbProv: TORComboBox;
  Label3: TLabel;
  edOnsetdate: TCaptionEdit;
  Label6: TLabel;
  procedure bbQuitClick(Sender: TObject);
  procedure bbAddComClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure bbFileClick(Sender: TObject);
  procedure bbRemoveClick(Sender: TObject);
  procedure cbProvKeyPress(Sender: TObject; var Key: Char);
  procedure rgStatusClick(Sender: TObject);
  procedure cbProvClick(Sender: TObject);
  procedure cbLocClick(Sender: TObject);
  procedure cbLocKeyPress(Sender: TObject; var Key: Char);
  procedure SetDefaultProb(Alist:TstringList;prob:string);
  procedure ControlChange(Sender: TObject);
  function  BadDates:Boolean;
  procedure cbProvDropDown(Sender: TObject);
  procedure cbLocDropDown(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure bbChangeProbClick(Sender: TObject);
  procedure cbLocNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cbProvNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cbServNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure bbEditClick(Sender: TObject);
  procedure ckTreatments(value: String; ckBox: Integer);
  function  TreatmentsCked(ckBox: Integer):String;
  procedure ckNSCClick(Sender: TObject);
  procedure rgStatusEnter(Sender: TObject);
private
  { Private declarations }
  FEditing: Boolean;
  FInitialShow: Boolean;
  FModified: Boolean;
  FProviderID: Int64;
  FLocationID: Longint;
  FDisplayGroupID: Integer;
  FInitialFocus: TWinControl;
  FCtrlMap: TStringList;
  FSourceOfClose: Integer;
  FOnInitiate: TNotifyEvent;
  fChanged:boolean;
  FSilent: boolean;
  FCanQuit: boolean;
  FSearchString: String;

  procedure UMTakeFocus(var Message: TMessage); message UM_TAKEFOCUS;
  procedure ShowComments;
  procedure GetEditedComments;
  procedure GetNewComments(Reason:char);
  function  OkToQuit:boolean;
  procedure ShowServiceCombo;
  procedure ShowClinicLocationCombo;
protected
  procedure CreateParams(var Params: TCreateParams); override;
  procedure DoShow; override;
  procedure Loaded; override;
  procedure ClearDialogControls; virtual;
  function  LackRequired: Boolean; virtual;
  procedure LoadDefaults; virtual;
  property  InitialFocus: TWinControl read FInitialFocus write FInitialFocus;
public
  { Public declarations }
  Reason:Char;
  problemIFN:String;
  subjProb:string; {parameters for problem being added}
  constructor Create(AOwner: TComponent); override ;
  destructor Destroy; override;
  property DisplayGroupID: Integer read FDisplayGroupID write FDisplayGroupID;
  property Editing: Boolean read FEditing write FEditing;
  property Silent: Boolean read FSilent write FSilent;
  property ProviderID: Int64 read FProviderID write FProviderID;
  property LocationID: Longint read FLocationID write FLocationID;
  property SourceOfClose: Integer read FSourceOfClose write FSourceOfClose;
  property OnInitiate: TNotifyEvent read FOnInitiate write FOnInitiate;
  procedure SetFontSize( NewFontSize: integer);
  property CanQuit: boolean read FCanQuit write FCanQuit;
end ;

DFM Objects


frmdlgProb : TfrmdlgProb
 ├Label1 : TLabel
 ├Label5 : TLabel
 ├Label7 : TLabel
 ├pnlComments : TPanel
 │ ├Bevel1 : TBevel
 │ ├lblCmtDate : TOROffsetLabel
 │ ├lblComment : TOROffsetLabel
 │ ├lblCom : TStaticText
 │ ├bbAdd : TBitBtn
 │ ├bbRemove : TBitBtn
 │ ├lstComments : TORListBox
 │ └bbEdit : TBitBtn
 ├pnlBottom : TPanel
 │ ├bbQuit : TBitBtn
 │ ├bbFile : TBitBtn
 │ ├ckVerify : TCheckBox
 │ └edRecDate : TCaptionEdit
 ├edResDate : TCaptionEdit
 ├edUpdate : TCaptionEdit
 ├pnlTop : TPanel
 │ ├lblAct : TLabel
 │ ├lblLoc : TLabel
 │ ├Label3 : TLabel
 │ ├Label6 : TLabel
 │ ├rgStatus : TKeyClickRadioGroup
 │ ├rgStage : TKeyClickRadioGroup
 │ ├bbChangeProb : TBitBtn
 │ ├edProb : TCaptionEdit
 │ ├gbTreatment : TGroupBox
 │ │ ├lblYN : TLabel
 │ │ ├ckNSC : TCheckBox
 │ │ ├ckNRad : TCheckBox
 │ │ ├ckNAO : TCheckBox
 │ │ ├ckNENV : TCheckBox
 │ │ ├ckNHNC : TCheckBox
 │ │ ├ckNMST : TCheckBox
 │ │ ├ckNSHAD : TCheckBox
 │ │ ├ckYSC : TCheckBox
 │ │ ├ckYAO : TCheckBox
 │ │ ├ckYRad : TCheckBox
 │ │ ├ckYENV : TCheckBox
 │ │ ├ckYSHAD : TCheckBox
 │ │ ├ckYMST : TCheckBox
 │ │ └ckYHNC : TCheckBox
 │ ├cbServ : TORComboBox
 │ ├cbLoc : TORComboBox
 │ ├cbProv : TORComboBox
 │ └edOnsetdate : TCaptionEdit
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
bbAdd Simple (unknown) Public/Published -
bbChangeProb Simple (unknown) Public/Published -
bbEdit Simple (unknown) Public/Published -
bbFile Simple (unknown) Public/Published -
bbQuit Simple (unknown) Public/Published -
bbRemove Simple (unknown) Public/Published -
Bevel1 Simple (unknown) Public/Published -
cbLoc TORComboBox Public/Published -
cbProv TORComboBox Public/Published -
cbServ TORComboBox Public/Published -
ckNAO TCheckBox Public/Published -
ckNENV TCheckBox Public/Published -
ckNHNC TCheckBox Public/Published -
ckNMST TCheckBox Public/Published -
ckNRad TCheckBox Public/Published -
ckNSC TCheckBox Public/Published -
ckNSHAD TCheckBox Public/Published -
ckVerify TCheckBox Public/Published -
ckYAO TCheckBox Public/Published -
ckYENV TCheckBox Public/Published -
ckYHNC TCheckBox Public/Published -
ckYMST TCheckBox Public/Published -
ckYRad TCheckBox Public/Published -
ckYSC TCheckBox Public/Published -
ckYSHAD TCheckBox Public/Published -
edOnsetdate Simple (unknown) Public/Published -
edProb Simple (unknown) Public/Published -
edRecDate Simple (unknown) Public/Published -
edResDate Simple (unknown) Public/Published -
edUpdate Simple (unknown) Public/Published -
FCanQuit Boolean Private -
fChanged Boolean Private -
FCtrlMap TStringList Private -
FDisplayGroupID Integer Private -
FEditing Boolean Private Private declarations
FInitialFocus TWinControl Private -
FInitialShow Boolean Private -
FLocationID LongInt Private -
FModified Boolean Private -
FOnInitiate TNotifyEvent Private -
FProviderID Int64 Private -
FSearchString UnicodeString Private -
FSilent Boolean Private -
FSourceOfClose Integer Private -
gbTreatment TGroupBox Public/Published -
Label1 TLabel Public/Published -
Label3 TLabel Public/Published -
Label5 TLabel Public/Published -
Label6 TLabel Public/Published -
Label7 TLabel Public/Published -
lblAct TLabel Public/Published -
lblCmtDate TOROffsetLabel Public/Published -
lblCom TStaticText Public/Published -
lblComment TOROffsetLabel Public/Published -
lblLoc TLabel Public/Published -
lstComments TORListBox Public/Published -
pnlBottom TPanel Public/Published -
pnlComments TPanel Public/Published -
pnlTop TPanel Public/Published -
problemIFN UnicodeString Public -
Reason Char Public Public declarations
rgStage Simple (unknown) Public/Published -
rgStatus Simple (unknown) Public/Published -
subjProb UnicodeString Public Parameters for problem being added

Properties

Name Type Scope Comments
CanQuit Boolean Public -
DisplayGroupID Integer Public -
Editing Boolean Public -
InitialFocus TWinControl Protected -
LocationID LongInt Public -
OnInitiate TNotifyEvent Public -
ProviderID Int64 Public -
Silent Boolean Public -
SourceOfClose Integer Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override ; Public
Old TPLDlgForm Methods 

 It is unusual to not call the inherited Create first, but necessary in this case; some
  of the TMStruct objects need to be created before the form gets its OnCreate event.

Destructors

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

Methods

Name Declaration Scope Comments
BadDates function BadDates:Boolean; Public/Published -
bbAddComClick procedure bbAddComClick(Sender: TObject); Public/Published -
bbChangeProbClick procedure bbChangeProbClick(Sender: TObject); Public/Published -
bbEditClick procedure bbEditClick(Sender: TObject); Public/Published -
bbFileClick procedure bbFileClick(Sender: TObject); Public/Published --------------------------------- file ---------------------------------
bbQuitClick procedure bbQuitClick(Sender: TObject); Public/Published -
bbRemoveClick procedure bbRemoveClick(Sender: TObject); Public/Published -
cbLocClick procedure cbLocClick(Sender: TObject); Public/Published -
cbLocDropDown procedure cbLocDropDown(Sender: TObject); Public/Published -
cbLocKeyPress procedure cbLocKeyPress(Sender: TObject; var Key: Char); Public/Published -
cbLocNeedData procedure cbLocNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cbProvClick procedure cbProvClick(Sender: TObject); Public/Published -
cbProvDropDown procedure cbProvDropDown(Sender: TObject); Public/Published -
cbProvKeyPress procedure cbProvKeyPress(Sender: TObject; var Key: Char); Public/Published -
cbProvNeedData procedure cbProvNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cbServNeedData procedure cbServNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
ckNSCClick procedure ckNSCClick(Sender: TObject); Public/Published -
ckTreatments procedure ckTreatments(value: String; ckBox: Integer); Public/Published
Used to set the checkboxes in order to properly set yes and no boxes
   Send How ckbox should be set and which box
   Value -> 1 Set to Yes, 2 Set to No, 0 Set Unknown
   ckBox:
     0 -> Service Connected
     1 -> Agent Orange
     2 -> Radiation
     3 -> Southwest Asia Conditions
     4 -> Shipboard Hazard and Defense
     5 -> MST
     6 -> Head and/or Neck Cancer
ClearDialogControls procedure ClearDialogControls; virtual; Protected
Base form procedures (shared by all ordering dialogs) 

 Reset all the controls in the dialog
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
CreateParams procedure CreateParams(var Params: TCreateParams); override; Protected -
DoShow procedure DoShow; override; Protected -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetEditedComments procedure GetEditedComments; Private -
GetNewComments procedure GetNewComments(Reason:char); Private -
LackRequired function LackRequired: Boolean; virtual; Protected -
LoadDefaults procedure LoadDefaults; virtual; Protected -
Loaded procedure Loaded; override; Protected -
OkToQuit function OkToQuit:boolean; Private -
rgStatusClick procedure rgStatusClick(Sender: TObject); Public/Published -
rgStatusEnter procedure rgStatusEnter(Sender: TObject); Public/Published -
SetDefaultProb procedure SetDefaultProb(Alist:TstringList;prob:string); Public/Published -
SetFontSize procedure SetFontSize( NewFontSize: integer); Public -
ShowClinicLocationCombo procedure ShowClinicLocationCombo; Private -
ShowComments procedure ShowComments; Private -
ShowServiceCombo procedure ShowServiceCombo; Private -
TreatmentsCked function TreatmentsCked(ckBox: Integer):String; Public/Published
Return 1 for checked 0 for not checked, and '' for unknown
  ckBox:
     0 -> Service Connected
     1 -> Agent Orange
     2 -> Radiation
     3 -> Southwest Asia Conditions
     4 -> Shipboard Hazard and Defense
     5 -> MST
     6 -> Head and/or Neck Cancer
UMTakeFocus procedure UMTakeFocus(var Message: TMessage); message UM_TAKEFOCUS; Private -

Referenced By (4)

Module (line) Referrer Type
fProbEdt (1340) - Read
fProbs (215) dlgProbs Read
fProbs (1381) - Read
fProbs (1423) - Read