Class

TfrmSignOrders

Module

fOrdersSign

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


  TfrmSignOrders = class(TfrmBase508Form)
    laDiagnosis: TLabel;
    gbdxLookup: TGroupBox;
    buOrdersDiagnosis: TButton;
    poBACopyPaste: TPopupMenu;
    Copy1: TMenuItem;
    Paste1: TMenuItem; 
    Diagnosis1: TMenuItem;
    Exit1: TMenuItem;
    fraCoPay: TfraCoPayDesc;
    pnlDEAText: TPanel;
    lblDEAText: TStaticText;
    pnlProvInfo: TPanel;
    lblProvInfo: TLabel;
    pnlOrderList: TPanel;
    lblOrderList: TStaticText;
    clstOrders: TCaptionCheckListBox;
    pnlCSOrderList: TPanel;
    lblCSOrderList: TStaticText;
    lblSmartCardNeeded: TStaticText;
    clstCSOrders: TCaptionCheckListBox;
    pnlEsig: TPanel;
    lblESCode: TLabel;
    txtESCode: TCaptionEdit;
    cmdOK: TButton;
    cmdCancel: TButton;
    pnlCombined: TORAutoPanel;
    pnlTop: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure clstOrdersDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
    procedure clstOrdersMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer);
    procedure clstOrdersClickCheck(Sender: TObject);
    procedure clstOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure buOrdersDiagnosisClick(Sender: TObject);
    function IsSignatureRequired:boolean;
    procedure Exit1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject); 
    procedure clstOrdersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure clstOrdersClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer); 
    procedure fraCoPaylblHNCMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure fraCoPayLabel23Enter(Sender: TObject);
    procedure fraCoPayLabel23Exit(Sender: TObject);
    procedure clstOrdersKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormResize(Sender: TObject);
    procedure clstCSOrdersClick(Sender: TObject);
    procedure clstCSOrdersClickCheck(Sender: TObject);
    procedure clstCSOrdersMeasureItem(Control: TWinControl; Index: Integer;
      var AHeight: Integer);
    procedure clstCSOrdersDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure FormPaint(Sender: TObject);
  private
    OKPressed: Boolean;
    ESCode: string;
    FLastHintItem: integer;
    FOldHintPause: integer;
    FOldHintHidePause: integer;
    function ItemsAreChecked: Boolean;
    function CSItemsAreChecked: Boolean;
    function nonDCCSItemsAreChecked: Boolean;
    function AnyItemsAreChecked: Boolean;
    function GetNumberOfSelectedOrders : byte;
    procedure ShowTreatmentFactorHints(var pHintText: string; var pCompName: TVA508StaticText); // 508
    procedure SetItemTextToState;
    procedure FormatListForScreenReader;
  public
    procedure SetCheckBoxStatus(thisOrderID: string);
    function GetCheckBoxStatus(sourceOrderID : string) : string; overload;
    
end;

DFM Objects


frmSignOrders : TfrmSignOrders
 ├laDiagnosis : TLabel
 ├gbdxLookup : TGroupBox
 │ └buOrdersDiagnosis : TButton
 ├pnlDEAText : TPanel
 │ └lblDEAText : TStaticText
 ├pnlEsig : TPanel
 │ ├lblESCode : TLabel
 │ ├txtESCode : TCaptionEdit
 │ ├cmdOK : TButton
 │ └cmdCancel : TButton
 ├pnlCombined : TORAutoPanel
 │ ├pnlCSOrderList : TPanel
 │ │ ├lblCSOrderList : TStaticText
 │ │ ├lblSmartCardNeeded : TStaticText
 │ │ └clstCSOrders : TCaptionCheckListBox
 │ └pnlOrderList : TPanel
 │   ├lblOrderList : TStaticText
 │   └clstOrders : TCaptionCheckListBox
 ├pnlTop : TPanel
 │ ├fraCoPay : TfraCoPayDesc
 │ │ ├pnlRight : TPanel
 │ │ │ ├Spacer2 : TLabel
 │ │ │ ├lblCaption : TStaticText
 │ │ │ └pnlMain : TPanel
 │ │ │   ├spacer1 : TLabel
 │ │ │   ├pnlHNC : TPanel
 │ │ │   │ ├lblHNC2 : TVA508StaticText
 │ │ │   │ └lblHNC : TVA508StaticText
 │ │ │   ├pnlMST : TPanel
 │ │ │   │ ├lblMST2 : TVA508StaticText
 │ │ │   │ └lblMST : TVA508StaticText
 │ │ │   ├pnlSWAC : TPanel
 │ │ │   │ ├lblSWAC2 : TVA508StaticText
 │ │ │   │ └lblSWAC : TVA508StaticText
 │ │ │   ├pnlIR : TPanel
 │ │ │   │ ├lblIR2 : TVA508StaticText
 │ │ │   │ └lblIR : TVA508StaticText
 │ │ │   ├pnlAO : TPanel
 │ │ │   │ ├lblAO2 : TVA508StaticText
 │ │ │   │ └lblAO : TVA508StaticText
 │ │ │   ├pnlSC : TPanel
 │ │ │   │ ├lblSC2 : TVA508StaticText
 │ │ │   │ └lblSC : TVA508StaticText
 │ │ │   ├pnlCV : TPanel
 │ │ │   │ ├lblCV2 : TVA508StaticText
 │ │ │   │ └lblCV : TVA508StaticText
 │ │ │   └pnlSHD : TPanel
 │ │ │     ├lblSHAD : TVA508StaticText
 │ │ │     └lblSHAD2 : TVA508StaticText
 │ │ └pnlSCandRD : TPanel
 │ │   ├lblSCDisplay : TLabel
 │ │   └memSCDisplay : TCaptionMemo
 │ └pnlProvInfo : TPanel
 │   └lblProvInfo : TLabel
 ├amgrMain : TVA508AccessibilityManager
 └poBACopyPaste : TPopupMenu
   ├Copy1 : TMenuItem
   ├Paste1 : TMenuItem
   ├Diagnosis1 : TMenuItem
   └Exit1 : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
buOrdersDiagnosis TButton Public/Published -
clstCSOrders Simple (unknown) Public/Published -
clstOrders Simple (unknown) Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
Copy1 TMenuItem Public/Published -
Diagnosis1 TMenuItem Public/Published -
ESCode UnicodeString Private -
Exit1 TMenuItem Public/Published -
FLastHintItem Integer Private -
FOldHintHidePause Integer Private -
FOldHintPause Integer Private -
fraCoPay TfraCoPayDesc Public/Published -
gbdxLookup TGroupBox Public/Published -
laDiagnosis TLabel Public/Published -
lblCSOrderList TStaticText Public/Published -
lblDEAText TStaticText Public/Published -
lblESCode TLabel Public/Published -
lblOrderList TStaticText Public/Published -
lblProvInfo TLabel Public/Published -
lblSmartCardNeeded TStaticText Public/Published -
OKPressed Boolean Private -
Paste1 TMenuItem Public/Published -
pnlCombined TORAutoPanel Public/Published -
pnlCSOrderList TPanel Public/Published -
pnlDEAText TPanel Public/Published -
pnlEsig TPanel Public/Published -
pnlOrderList TPanel Public/Published -
pnlProvInfo TPanel Public/Published -
pnlTop TPanel Public/Published -
poBACopyPaste TPopupMenu Public/Published -
txtESCode TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
AnyItemsAreChecked function AnyItemsAreChecked: Boolean; Private -
buOrdersDiagnosisClick procedure buOrdersDiagnosisClick(Sender: TObject); Public/Published
Begin BillingAware
   New BA Button....
clstCSOrdersClick procedure clstCSOrdersClick(Sender: TObject); Public/Published
If grid item is an order-able item, then enable the Diagnosis button
 else disable the Diagnosis button.
clstCSOrdersClickCheck procedure clstCSOrdersClickCheck(Sender: TObject); Public/Published -
clstCSOrdersDrawItem procedure clstCSOrdersDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published
Begin BillingAware
End BillingAware
clstCSOrdersMeasureItem procedure clstCSOrdersMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); Public/Published -
clstOrdersClick procedure clstOrdersClick(Sender: TObject); Public/Published
If grid item is an order-able item, then enable the Diagnosis button
 else disable the Diagnosis button.
clstOrdersClickCheck procedure clstOrdersClickCheck(Sender: TObject); Public/Published -
clstOrdersDrawItem procedure clstOrdersDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published
Begin BillingAware
End BillingAware
clstOrdersKeyUp procedure clstOrdersKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
clstOrdersMeasureItem procedure clstOrdersMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); Public/Published -
clstOrdersMouseDown procedure clstOrdersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published - Open copy/paste popup menu.
clstOrdersMouseMove procedure clstOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published
Begin BillingAware
End BillingAware
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
Copy1Click procedure Copy1Click(Sender: TObject); Public/Published - Copy contents of the 'source' order for copy/paste operation
CSItemsAreChecked function CSItemsAreChecked: Boolean; Private Return true if any items in the Review List are checked for applying signature
Exit1Click procedure Exit1Click(Sender: TObject); Public/Published -
FormatListForScreenReader procedure FormatListForScreenReader; Private -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormMouseMove procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
FormPaint procedure FormPaint(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
fraCoPayLabel23Enter procedure fraCoPayLabel23Enter(Sender: TObject); Public/Published -
fraCoPayLabel23Exit procedure fraCoPayLabel23Exit(Sender: TObject); Public/Published -
fraCoPaylblHNCMouseMove procedure fraCoPaylblHNCMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
GetCheckBoxStatus function GetCheckBoxStatus(sourceOrderID : string) : string; overload; Public
PASS IN ORDER ID - NOT GRID INDEX

- Obtain checkbox status for selected order - BY ORDER ID
GetNumberOfSelectedOrders function GetNumberOfSelectedOrders : byte; Private - Return the number of orders in clstOrders that are currently selected.
IsSignatureRequired function IsSignatureRequired:boolean; Public/Published -
ItemsAreChecked function ItemsAreChecked: Boolean; Private Return true if any items in the Review List are checked for applying signature
nonDCCSItemsAreChecked function nonDCCSItemsAreChecked: Boolean; Private Return true if any items in the Review List are checked for applying signature
Paste1Click procedure Paste1Click(Sender: TObject); Public/Published - Populate 'target' orders of a copy/paste operation with contents of 'source' order
SetCheckBoxStatus procedure SetCheckBoxStatus(thisOrderID: string); Public - Set the current GRID checkboxes status
SetItemTextToState procedure SetItemTextToState; Private -
ShowTreatmentFactorHints procedure ShowTreatmentFactorHints(var pHintText: string; var pCompName: TVA508StaticText); Private
508
BILLING AWARE Procedure

 508

Referenced By (2)

Module (line) Referrer Type
fOrdersSign (120) frmSignOrders Read
fOrdersSign (357) - Read