Class

TfrmConsultAction

Module

fConsultAct

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmConsultAction = class(TfrmBase508Form)
  lblActionBy: TOROffsetLabel;
  calDateofAction: TORDateBox;
  lblDateofAction: TOROffsetLabel;
  cboPerson: TORComboBox;
  memComments: TCaptionMemo;
  lblComments: TOROffsetLabel;
  lblToService: TOROffsetLabel;
  cboAttentionOf: TORComboBox;
  lblAttentionOf: TOROffsetLabel;
  lblUrgency: TOROffsetLabel;
  cmdOK: TORAlignButton;
  cmdCancel: TORAlignButton;
  cboUrgency: TORComboBox;
  pnlBase: TPanel;
  pnlForward: TPanel;
  pnlOther: TPanel;
  treService: TORTreeView;
  pnlComments: TPanel;
  pnlAllActions: TPanel;
  grpSigFindings: TRadioGroup;
  pnlSigFind: TPanel;
  cboService: TORComboBox;
  pnlAlert: TPanel;
  ckAlert: TCheckBox;
  Label1: TMemo;
  lblAutoAlerts: TStaticText;
  procedure cmdCancelClick(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure NewPersonNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure ProviderNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure ckAlertClick(Sender: TObject);
  procedure treServiceChange(Sender: TObject; Node: TTreeNode);
  procedure treServiceExit(Sender: TObject);
  procedure cboServiceSelect(Sender: TObject);           {**REV**}
private
   FActionType: integer ;
   FChanged: boolean ;
   FActionBy: Int64;
   FActionDate: TFMDateTime;
   FToService: integer ;
   FAttentionOf: int64 ;
   FUrgency: integer ;
   FSigFind: string;
   FComments: TStrings ;
   FAlert: integer ;
   FAlertTo: string ;
   FIsProcedure: boolean;
   FProcIEN: integer;
   FUserLevel: integer;
   FUserIsRequester: boolean;
   function SetupForward(IsProcedure: boolean; ProcIEN: integer): boolean;
   procedure SetupAddComment;
   procedure SetupAdminComplete;
   procedure SetupSigFindings;
   procedure SigFindPanelShow;
   procedure SetupReceive;
   procedure SetupSchedule;
   procedure SetupOther;
   procedure ShowAutoAlertText;
end;

DFM Objects


frmConsultAction : TfrmConsultAction
 ├pnlBase : TPanel
 │ ├pnlForward : TPanel
 │ │ ├lblToService : TOROffsetLabel
 │ │ ├lblAttentionOf : TOROffsetLabel
 │ │ ├lblUrgency : TOROffsetLabel
 │ │ ├Label1 : TMemo
 │ │ ├cboAttentionOf : TORComboBox
 │ │ ├cboUrgency : TORComboBox
 │ │ ├treService : TORTreeView
 │ │ └cboService : TORComboBox
 │ └pnlOther : TPanel
 │   ├pnlSigFind : TPanel
 │   │ └grpSigFindings : TRadioGroup
 │   ├pnlComments : TPanel
 │   │ ├lblComments : TOROffsetLabel
 │   │ ├memComments : TCaptionMemo
 │   │ └pnlAlert : TPanel
 │   │   ├lblAutoAlerts : TStaticText
 │   │   └ckAlert : TCheckBox
 │   └pnlAllActions : TPanel
 │     ├lblActionBy : TOROffsetLabel
 │     ├lblDateofAction : TOROffsetLabel
 │     ├calDateofAction : TORDateBox
 │     ├cmdOK : TORAlignButton
 │     ├cmdCancel : TORAlignButton
 │     └cboPerson : TORComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
calDateofAction TORDateBox Public/Published -
cboAttentionOf TORComboBox Public/Published -
cboPerson TORComboBox Public/Published -
cboService TORComboBox Public/Published -
cboUrgency TORComboBox Public/Published -
ckAlert TCheckBox Public/Published -
cmdCancel TORAlignButton Public/Published -
cmdOK TORAlignButton Public/Published -
FActionBy Int64 Private -
FActionDate TFMDateTime Private -
FActionType Integer Private -
FAlert Integer Private -
FAlertTo UnicodeString Private -
FAttentionOf Int64 Private -
FChanged Boolean Private -
FComments TStrings Private -
FIsProcedure Boolean Private -
FProcIEN Integer Private -
FSigFind UnicodeString Private -
FToService Integer Private -
FUrgency Integer Private -
FUserIsRequester Boolean Private -
FUserLevel Integer Private -
grpSigFindings TRadioGroup Public/Published -
Label1 TMemo Public/Published -
lblActionBy TOROffsetLabel Public/Published -
lblAttentionOf TOROffsetLabel Public/Published -
lblAutoAlerts TStaticText Public/Published -
lblComments TOROffsetLabel Public/Published -
lblDateofAction TOROffsetLabel Public/Published -
lblToService TOROffsetLabel Public/Published -
lblUrgency TOROffsetLabel Public/Published -
memComments TCaptionMemo Public/Published -
pnlAlert TPanel Public/Published -
pnlAllActions TPanel Public/Published -
pnlBase TPanel Public/Published -
pnlComments TPanel Public/Published -
pnlForward TPanel Public/Published -
pnlOther TPanel Public/Published -
pnlSigFind TPanel Public/Published -
treService TORTreeView Public/Published -

Methods

Name Declaration Scope Comments
cboServiceSelect procedure cboServiceSelect(Sender: TObject); {**REV**} Public/Published REV**
ckAlertClick procedure ckAlertClick(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
NewPersonNeedData procedure NewPersonNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published ============================= Control events ================================
ProviderNeedData procedure ProviderNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
SetupAddComment procedure SetupAddComment; Private -
SetupAdminComplete procedure SetupAdminComplete; Private -
SetupForward function SetupForward(IsProcedure: boolean; ProcIEN: integer): boolean; Private =================== Setup form for different actions ===========================
SetupOther procedure SetupOther; Private -
SetupReceive procedure SetupReceive; Private -
SetupSchedule procedure SetupSchedule; Private -
SetupSigFindings procedure SetupSigFindings; Private -
ShowAutoAlertText procedure ShowAutoAlertText; Private
Procedure TfrmConsultAction.ShowAutoAlertText;      ****  SEE BELOW FOR REPLACEMENT - v27.9 Phelps/Vertigan
const
  TX_ALERT1          = 'An alert will automatically be sent to ';
  TX_ALERT_PROVIDER  = 'the ordering provider';
  TX_ALERT_SVC_USERS = 'notification recipients for this service.';
  TX_ALERT_NOBODY    = 'No automatic alerts will be sent.';  // this should be rare to never
var
  x: string;
begin
  case FUserLevel of
     UL_NONE, UL_REVIEW:
       begin
         if FUserIsRequester then
           x := TX_ALERT1 + TX_ALERT_SVC_USERS
         else
           x := TX_ALERT1 + TX_ALERT_PROVIDER + ' and to ' + TX_ALERT_SVC_USERS;
       end;
     UL_UPDATE, UL_ADMIN, UL_UPDATE_AND_ADMIN:
       begin
         if FUserIsRequester then
           x := TX_ALERT_NOBODY
         else
           x := TX_ALERT1 + TX_ALERT_PROVIDER + '.';
       end;
   end;
   lblAutoAlerts.Caption := x;
end;
SigFindPanelShow procedure SigFindPanelShow; Private -
treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); Public/Published -
treServiceExit procedure treServiceExit(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fConsultAct (78) frmConsultAction Read
fConsultAct (113) - Read