Class

TfrmReview

Module

fReview

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmReview = class(TfrmBase508Form)
  fraCoPay: TfraCoPayDesc;
  laDiagnosis: TLabel;
  gbxDxLookup: TGroupBox;
  buDiagnosis: TButton;
  poBACopyPaste: TPopupMenu;
  Copy1: TMenuItem;
  Paste1: TMenuItem;
  Diagnosis1: TMenuItem;
  Exit1: TMenuItem;
  pnlProvInfo: TPanel;
  lblProvInfo: TLabel;
  pnlDEAText: TPanel;
  lblDEAText: TStaticText;
  pnlBottom: TPanel;
  pnlSignature: TPanel;
  lblESCode: TLabel;
  txtESCode: TCaptionEdit;
  pnlOrderAction: TPanel;
  Label1: TStaticText;
  lblHoldSign: TStaticText;
  radSignChart: TRadioButton;
  radHoldSign: TRadioButton;
  grpRelease: TGroupBox;
  radVerbal: TRadioButton;
  radPhone: TRadioButton;
  radPolicy: TRadioButton;
  radRelease: TRadioButton;
  cmdOK: TButton;
  cmdCancel: TButton;
  pnlCombined: TORAutoPanel;
  pnlReview: TPanel;
  lstReview: TCaptionCheckListBox;
  lblSig: TStaticText;
  pnlCSReview: TPanel;
  lblCSReview: TLabel;
  lstCSReview: TCaptionCheckListBox;
  lblSmartCardNeeded: TStaticText;
  pnlTop: TPanel;
  procedure FormCreate(Sender: TObject);
  procedure lstReviewDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure lstReviewClickCheck(Sender: TObject);
  procedure radReleaseClick(Sender: TObject);
  procedure txtESCodeChange(Sender: TObject);
  procedure lstReviewMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer);
  procedure FormDestroy(Sender: TObject);
  procedure lstReviewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  procedure buDiagnosisClick(Sender: TObject);
  procedure lstReviewClick(Sender: TObject);
  procedure Exit1Click(Sender: TObject);
  procedure lstReviewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure Copy1Click(Sender: TObject);
  procedure Paste1Click(Sender: TObject);
  procedure ClearDiagnoses1Click(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
  procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure fraCoPayLabel24MouseMove(Sender: TObject; Shift: TShiftState;
    X, Y: Integer);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure lstReviewKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormResize(Sender: TObject);
  procedure lstCSReviewMeasureItem(Control: TWinControl; Index: Integer;
    var AHeight: Integer);
  procedure lstCSReviewDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure lstCSReviewClickCheck(Sender: TObject);
  procedure lstCSReviewMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
  procedure lstCSReviewMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure lstCSReviewKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure lstCSReviewClick(Sender: TObject);
  procedure FormPaint(Sender: TObject);

private
  { Private declarations }
  FOKPressed: Boolean;
  FShowPanel: Integer;
  FSilent: Boolean;
  FCouldSign: Boolean;
  FLastHintItem: integer;
  FOldHintPause: integer;
  FOldHintHidePause: integer;
  FIsEvtChange: boolean;
  procedure AddHeader(s: string);
  procedure AddCSHeader(s: string);
  function AddItem(ChangeItem: TChangeItem): integer;
  function AddCSItem(ChangeItem: TChangeItem): integer;
  procedure BuildList(FullList: boolean);
  procedure BuildFullList;
  procedure BuildSignList;
  procedure PlaceComponents;
  procedure CleanupChangesList(Sender: TObject; ChangeItem: TChangeItem);  {**RV**}
  function ItemsAreChecked: Boolean;
  function CSItemsAreChecked: Boolean;
  function nonDCCSItemsAreChecked: Boolean;
  function AnyItemsAreChecked: Boolean;
  function SignRequiredForAny(FullList: boolean): Boolean;
  procedure AdjustSignatureTop( HeightAdjustment: integer);
  function IsSignatureRequired: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;
  function GetCheckBoxStatus(gridItemIndex : smallint) : string; overload; 
  function GetNonNilItemCount : integer; //CQ5172
end;

DFM Objects


frmReview : TfrmReview
 ├laDiagnosis : TLabel
 ├gbxDxLookup : TGroupBox
 │ └buDiagnosis : TButton
 ├pnlCombined : TORAutoPanel
 │ ├pnlReview : TPanel
 │ │ ├lstReview : TCaptionCheckListBox
 │ │ └lblSig : TStaticText
 │ └pnlCSReview : TPanel
 │   ├lblCSReview : TLabel
 │   ├lstCSReview : TCaptionCheckListBox
 │   └lblSmartCardNeeded : TStaticText
 ├pnlBottom : TPanel
 │ ├pnlSignature : TPanel
 │ │ ├lblESCode : TLabel
 │ │ └txtESCode : TCaptionEdit
 │ ├pnlOrderAction : TPanel
 │ │ ├Label1 : TStaticText
 │ │ ├radSignChart : TRadioButton
 │ │ ├radHoldSign : TRadioButton
 │ │ ├grpRelease : TGroupBox
 │ │ │ ├radVerbal : TRadioButton
 │ │ │ ├radPhone : TRadioButton
 │ │ │ └radPolicy : TRadioButton
 │ │ └radRelease : TRadioButton
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ └lblHoldSign : TStaticText
 ├pnlDEAText : TPanel
 │ └lblDEAText : TStaticText
 ├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
 │ │ │   ├pnlCV : TPanel
 │ │ │   │ └lblCV2 : 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
buDiagnosis TButton Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
Copy1 TMenuItem Public/Published -
Diagnosis1 TMenuItem Public/Published -
Exit1 TMenuItem Public/Published -
FCouldSign Boolean Private -
FIsEvtChange Boolean Private -
FLastHintItem Integer Private -
FOKPressed Boolean Private Private declarations
FOldHintHidePause Integer Private -
FOldHintPause Integer Private -
fraCoPay TfraCoPayDesc Public/Published -
FShowPanel Integer Private -
FSilent Boolean Private -
gbxDxLookup TGroupBox Public/Published -
grpRelease TGroupBox Public/Published -
Label1 TStaticText Public/Published -
laDiagnosis TLabel Public/Published -
lblCSReview TLabel Public/Published -
lblDEAText TStaticText Public/Published -
lblESCode TLabel Public/Published -
lblHoldSign TStaticText Public/Published -
lblProvInfo TLabel Public/Published -
lblSig TStaticText Public/Published -
lblSmartCardNeeded TStaticText Public/Published -
lstCSReview Simple (unknown) Public/Published -
lstReview Simple (unknown) Public/Published -
Paste1 TMenuItem Public/Published -
pnlBottom TPanel Public/Published -
pnlCombined TORAutoPanel Public/Published -
pnlCSReview TPanel Public/Published -
pnlDEAText TPanel Public/Published -
pnlOrderAction TPanel Public/Published -
pnlProvInfo TPanel Public/Published -
pnlReview TPanel Public/Published -
pnlSignature TPanel Public/Published -
pnlTop TPanel Public/Published -
poBACopyPaste TPopupMenu Public/Published -
radHoldSign TRadioButton Public/Published -
radPhone TRadioButton Public/Published -
radPolicy TRadioButton Public/Published -
radRelease TRadioButton Public/Published -
radSignChart TRadioButton Public/Published -
radVerbal TRadioButton Public/Published -
txtESCode TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
AddCSHeader procedure AddCSHeader(s: string); Private Add header to review list, object is left nil
AddCSItem function AddCSItem(ChangeItem: TChangeItem): integer; Private Add a single review item to the list with its associated TChangeItem object
AddHeader procedure AddHeader(s: string); Private Add header to review list, object is left nil
AddItem function AddItem(ChangeItem: TChangeItem): integer; Private Add a single review item to the list with its associated TChangeItem object
AdjustSignatureTop procedure AdjustSignatureTop( HeightAdjustment: integer); Private This has been added to support correct anchoring for the lstReview list.
AnyItemsAreChecked function AnyItemsAreChecked: Boolean; Private -
buDiagnosisClick procedure buDiagnosisClick(Sender: TObject); Public/Published
Begin BillingAware
End BillingAware
BuildFullList procedure BuildFullList; Private -
BuildList procedure BuildList(FullList: boolean); Private -
BuildSignList procedure BuildSignList; Private -
CleanupChangesList procedure CleanupChangesList(Sender: TObject; ChangeItem: TChangeItem); {**RV**} Private
RV**
Added for v15.3 - called by Changes.Remove, but only if fReview in progress
ClearDiagnoses1Click procedure ClearDiagnoses1Click(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published Cancelled - do nothing
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published Validate the electronic signature & call SaveSignItem for the encounter
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 CS Review List are checked for applying signature
Exit1Click procedure Exit1Click(Sender: TObject); Public/Published -
FormatListForScreenReader procedure FormatListForScreenReader; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
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 -
FormKeyUp procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormMouseDown procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 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 -
fraCoPayLabel24MouseMove procedure fraCoPayLabel24MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
GetCheckBoxStatus function GetCheckBoxStatus(gridItemIndex : smallint) : string; overload; Public - Obtain checkbox status for selected order - BY ORDER ID
GetCheckBoxStatus function GetCheckBoxStatus(sourceOrderID : string) : string; overload; Public
PASS IN ORDER ID - NOT GRID INDEX

   - Obtain checkbox status for selected order - BY ORDER ID
GetNonNilItemCount function GetNonNilItemCount : integer; Public
CQ5172
CQ5172
GetNumberOfSelectedOrders function GetNumberOfSelectedOrders : byte; Private - Return the number of orders in clstOrders that are currently selected.
IsSignatureRequired function IsSignatureRequired:boolean; Private -
ItemsAreChecked function ItemsAreChecked: Boolean; Private Return true if any items in the Review List are checked for applying signature
lstCSReviewClick procedure lstCSReviewClick(Sender: TObject); Public/Published
If grid item is an order-able item, then enable the Diagnosis button
 else disable the Diagnosis button.
Begin BillingAware
End BillingAware
lstCSReviewClickCheck procedure lstCSReviewClickCheck(Sender: TObject); Public/Published Prevent grayed checkboxes from being changed to anything else
lstCSReviewDrawItem procedure lstCSReviewDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published
Outdent the header items (thus hiding the checkbox) 
Begin BillingAware
End BillingAware
lstCSReviewKeyUp procedure lstCSReviewKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lstCSReviewMeasureItem procedure lstCSReviewMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); Public/Published -
lstCSReviewMouseDown procedure lstCSReviewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published - Open copy/paste popup menu.
lstCSReviewMouseMove procedure lstCSReviewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published
Begin BillingAware
End BillingAware
lstReviewClick procedure lstReviewClick(Sender: TObject); Public/Published
If grid item is an order-able item, then enable the Diagnosis button
 else disable the Diagnosis button.
Begin BillingAware
End BillingAware
lstReviewClickCheck procedure lstReviewClickCheck(Sender: TObject); Public/Published Prevent grayed checkboxes from being changed to anything else
lstReviewDrawItem procedure lstReviewDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published
Outdent the header items (thus hiding the checkbox) 
Begin BillingAware
End BillingAware
lstReviewKeyUp procedure lstReviewKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lstReviewMeasureItem procedure lstReviewMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); Public/Published -
lstReviewMouseDown procedure lstReviewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published - Open copy/paste popup menu.
lstReviewMouseMove procedure lstReviewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published
Begin BillingAware
End BillingAware
nonDCCSItemsAreChecked function nonDCCSItemsAreChecked: Boolean; Private Return true if any items in the CS 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
PlaceComponents procedure PlaceComponents; Private -
radReleaseClick procedure radReleaseClick(Sender: TObject); Public/Published -
SetCheckBoxStatus procedure SetCheckBoxStatus(thisOrderID: string); Public - Set the current CI checkboxes status
SetItemTextToState procedure SetItemTextToState; Private -
ShowTreatmentFactorHints procedure ShowTreatmentFactorHints(var pHintText: string; var pCompName: TVA508StaticText); Private
508
BILLING AWARE Procedure

 508
SignRequiredForAny function SignRequiredForAny(FullList: boolean): Boolean; Private -
txtESCodeChange procedure txtESCodeChange(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fReview (141) frmReview Read
fReview (287) - Read