Class

TfrmEncounter

Module

fEncnt

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmEncounter = class(TfrmBase508Form)
  cboPtProvider: TORComboBox;
  lblProvider: TLabel;
  cmdOK: TButton;
  cmdCancel: TButton;
  lblLocation: TLabel;
  txtLocation: TCaptionEdit;
  dlgDateRange: TORDateRangeDlg;
  cmdDateRange: TButton;
  lblInstruct: TLabel;
  Panel1: TPanel;
  pgeVisit: TPageControl;
  tabClinic: TTabSheet;
  lstClinic: TORListBox;
  tabAdmit: TTabSheet;
  lstAdmit: TORListBox;
  tabNewVisit: TTabSheet;
  lblVisitDate: TLabel;
  lblNewVisit: TLabel;
  calVisitDate: TORDateBox;
  ckbHistorical: TORCheckBox;
  cboNewVisit: TORComboBox;
  Panel2: TPanel;
  lblDateRange: TLabel;
  lblClinic: TLabel;
  Panel3: TPanel;
  lblAdmit: TLabel;
  procedure FormCreate(Sender: TObject);
  procedure pgeVisitChange(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure cboNewVisitNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure calVisitDateChange(Sender: TObject);
  procedure cboNewVisitChange(Sender: TObject);
  procedure calVisitDateExit(Sender: TObject);
  procedure cboPtProviderNeedData(Sender: TObject;
    const StartFrom: String; Direction, InsertAt: Integer);
  procedure ckbHistoricalClick(Sender: TObject);
  procedure cmdDateRangeClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure lstAdmitChange(Sender: TObject);
  procedure lstClinicChange(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure pgeVisitMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
private
  CLINIC_TXT : String;
  FFilter: Int64;
  FPCDate: TFMDateTime;
  FProvider: Int64;
  FLocation: Integer;
  FLocationName: string;
  FDateTime: TFMDateTime;
  FVisitCategory: Char;
  FStandAlone: Boolean;
  FFromSelf: Boolean;
  FFromDate: TFMDateTime;
  FThruDate: TFMDateTIme;
  FEncFutureLimit: string;
  FFromCreate: Boolean;
  FOldHintEvent: TShowHintEvent;
  OKPressed: Boolean;
  DoNotNeedLocation: Boolean;     //AGP This is used to not force a location when writing a delayed order
  procedure AppShowHint(var HintStr: string; var CanShow: Boolean;
                        var HintInfo: THintInfo);
  procedure SetVisitCat;
  function AllowAutoFocusChange: Boolean;
public
  { Public declarations }
end;

DFM Objects


frmEncounter : TfrmEncounter
 ├lblInstruct : TLabel
 ├lblLocation : TLabel
 ├lblProvider : TLabel
 ├cboPtProvider : TORComboBox
 ├cmdDateRange : TButton
 ├txtLocation : TCaptionEdit
 ├cmdCancel : TButton
 ├cmdOK : TButton
 ├Panel1 : TPanel
 │ └pgeVisit : TPageControl
 │   ├tabClinic : TTabSheet
 │   │ ├lstClinic : TORListBox
 │   │ └Panel2 : TPanel
 │   │   ├lblDateRange : TLabel
 │   │   └lblClinic : TLabel
 │   ├tabAdmit : TTabSheet
 │   │ ├lstAdmit : TORListBox
 │   │ └Panel3 : TPanel
 │   │   └lblAdmit : TLabel
 │   └tabNewVisit : TTabSheet
 │     ├lblVisitDate : TLabel
 │     ├lblNewVisit : TLabel
 │     ├calVisitDate : TORDateBox
 │     ├ckbHistorical : TORCheckBox
 │     └cboNewVisit : TORComboBox
 ├amgrMain : TVA508AccessibilityManager
 └dlgDateRange : TORDateRangeDlg

Class Hierarchy


Class Fields

Name Type Scope Comments
calVisitDate TORDateBox Public/Published -
cboNewVisit TORComboBox Public/Published -
cboPtProvider TORComboBox Public/Published -
ckbHistorical Simple (unknown) Public/Published -
CLINIC_TXT UnicodeString Private -
cmdCancel TButton Public/Published -
cmdDateRange TButton Public/Published -
cmdOK TButton Public/Published -
dlgDateRange Simple (unknown) Public/Published -
DoNotNeedLocation Boolean Private AGP This is used to not force a location when writing a delayed order
FDateTime TFMDateTime Private -
FEncFutureLimit UnicodeString Private -
FFilter Int64 Private -
FFromCreate Boolean Private -
FFromDate TFMDateTime Private -
FFromSelf Boolean Private -
FLocation Integer Private -
FLocationName UnicodeString Private -
FOldHintEvent Simple (unknown) Private -
FPCDate TFMDateTime Private -
FProvider Int64 Private -
FStandAlone Boolean Private -
FThruDate TFMDateTime Private -
FVisitCategory Char Private -
lblAdmit TLabel Public/Published -
lblClinic TLabel Public/Published -
lblDateRange TLabel Public/Published -
lblInstruct TLabel Public/Published -
lblLocation TLabel Public/Published -
lblNewVisit TLabel Public/Published -
lblProvider TLabel Public/Published -
lblVisitDate TLabel Public/Published -
lstAdmit TORListBox Public/Published -
lstClinic TORListBox Public/Published -
OKPressed Boolean Private -
Panel1 TPanel Public/Published -
Panel2 TPanel Public/Published -
Panel3 TPanel Public/Published -
pgeVisit Simple (unknown) Public/Published -
tabAdmit Simple (unknown) Public/Published -
tabClinic Simple (unknown) Public/Published -
tabNewVisit Simple (unknown) Public/Published -
txtLocation Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
AllowAutoFocusChange function AllowAutoFocusChange: Boolean; Private -
AppShowHint procedure AppShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); Private
Procedure TfrmEncounter.cboPtProviderChange(Sender: TObject);
var
  txt: string;
  AIEN: Int64;

begin
  if(FFilter <> NPF_ENCOUNTER) then exit;
  AIEN := cboPtProvider.ItemIEN;
  if(AIEN <> 0) then
  begin
    txt := InvalidPCEProviderTxt(AIEN, FPCDate);
    if(txt <> '') then
    begin
      InfoBox(cboPtProvider.text + txt, TX_BAD_PROV, MB_OK);
      cboPtProvider.ItemIndex := -1;
    end;
  end;
end;
calVisitDateChange procedure calVisitDateChange(Sender: TObject); Public/Published -
calVisitDateExit procedure calVisitDateExit(Sender: TObject); Public/Published -
cboNewVisitChange procedure cboNewVisitChange(Sender: TObject); Public/Published -
cboNewVisitNeedData procedure cboNewVisitNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboPtProviderNeedData procedure cboPtProviderNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
ckbHistoricalClick procedure ckbHistoricalClick(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdDateRangeClick procedure cmdDateRangeClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
lstAdmitChange procedure lstAdmitChange(Sender: TObject); Public/Published -
lstClinicChange procedure lstClinicChange(Sender: TObject); Public/Published V|A;DateTime;LocIEN^DateTime^LocName^Status
pgeVisitChange procedure pgeVisitChange(Sender: TObject); Public/Published -
pgeVisitMouseDown procedure pgeVisitMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
SetVisitCat procedure SetVisitCat; Private -

Referenced By (2)

Module (line) Referrer Type
fEncnt (131) - Read
fEncnt (137) - Read