Class

TfrmBALocalDiagnoses

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmBALocalDiagnoses = class(TfrmAutoSz)
  pnlTop: TPanel;
  lbOrders: TListBox;
  pnlMain: TPanel;
  lbSections: TORListBox;
  pnlBottom: TORAutoPanel;
  cbAddToPDList: TCheckBox;
  cbAddToPL: TCheckBox;
  btnPrimary: TButton;
  btnRemove: TButton;
  btnSelectAll: TButton;
  buOK: TButton;
  buCancel: TButton;
  btnOther: TButton;
  lbDiagnosis: TORListBox;
  lblDiagSect: TLabel;
  lblDiagCodes: TLabel;
  lblPatientName: TStaticText;
  gbProvDiag: TGroupBox;
  lvDxGrid: TListView;
  procedure buOKClick(Sender: TObject);
  procedure buCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure Button4Click(Sender: TObject);
  procedure lbSectionsClick(Sender: TObject);
  procedure btnOtherClick(Sender: TObject);
  procedure btnPrimaryClick(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure btnSelectAllClick(Sender: TObject);
  procedure cbAddToPLClick(Sender: TObject);
  procedure ProcessAddToItems;
  procedure lbDiagnosisClick(Sender: TObject);
  procedure FormActivate(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure AddDiagnosistoPersonalDiagnosesList1Click(Sender: TObject);
  procedure AddDiagnosistoPersonalDiagnosesList2Click(Sender: TObject);

  procedure cbAddToPDListClick(Sender: TObject);
  procedure lbSectionsDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure lvDxGridKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure lvDxGridKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure lvDxGridClick(Sender: TObject);
  procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);

private
  { Private declarations }


  inactiveCodes: integer;
  procedure MainDriver;
  procedure LoadEncounterForm;
  procedure AddProbsToDiagnosis;
  procedure AddPCEToDiagnosis;//**  adds dx's if selected currently from ecf
  procedure AddPersonalDxToDiagnosisList;
  procedure ListDiagnosisSections(Dest: TStrings);
  procedure ListDiagnosisCodes(Section : String);
  procedure DiagnosisSelection(SelectedDx: String);
  procedure EnsurePrimary;
  function  IsDxAlreadySelected(SelectedDx: string):boolean;
  procedure BuildTempDxList;
  procedure AssocDxToOrders;
  procedure BuildBADxList;
  procedure ListGlobalDx(pOrderIDList: TStringList);
  procedure ListConsultDX(pOrderDxList: TStringList);
  procedure DeselectGridItems;
  procedure ListSelectedOrders;
  procedure BuildConsultDxList(pDxList: TStringList);
  function  AddToWhatList(IsPLChecked:boolean; IsPDLChecked:boolean):string;
  procedure AddToProblemList;
  procedure AddToPersonalDxList;
  procedure InactiveICDNotification;
  procedure LoadTempDXLists;
  procedure SetAddToCBoxStatus;
  procedure SetAddToCheckBoxStatus(ADiagnosis:string);
  procedure ClearAndDisableCBoxes;
  procedure ProcessMultSelections;
  function  ProblemListDxFound(pDxCode:string):boolean;
  function  PersonalListDxFound(pDxCode:string):boolean;
  procedure ReSetCheckBoxStatus(pDxCode:String);
  procedure DeleteSelectedDx;

public
   FLastHintItemNum: integer;
   procedure Enter(theCaller: smallint; pOrderIDList: TStringList);
   procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string);
end;

DFM Objects


frmBALocalDiagnoses : TfrmBALocalDiagnoses
 ├pnlTop : TPanel
 │ ├lbOrders : TListBox
 │ └lblPatientName : TStaticText
 ├pnlMain : TPanel
 │ ├lblDiagSect : TLabel
 │ ├lblDiagCodes : TLabel
 │ ├lbSections : TORListBox
 │ ├btnOther : TButton
 │ └lbDiagnosis : TORListBox
 ├pnlBottom : TORAutoPanel
 │ ├cbAddToPDList : TCheckBox
 │ ├cbAddToPL : TCheckBox
 │ ├btnPrimary : TButton
 │ ├btnRemove : TButton
 │ ├btnSelectAll : TButton
 │ ├buOK : TButton
 │ ├buCancel : TButton
 │ └gbProvDiag : TGroupBox
 │   └lvDxGrid : TListView
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnOther TButton Public/Published -
btnPrimary TButton Public/Published -
btnRemove TButton Public/Published -
btnSelectAll TButton Public/Published -
buCancel TButton Public/Published -
buOK TButton Public/Published -
cbAddToPDList TCheckBox Public/Published -
cbAddToPL TCheckBox Public/Published -
FLastHintItemNum Integer Public -
gbProvDiag Simple (unknown) Public/Published -
inactiveCodes Integer Private Private declarations
lbDiagnosis TORListBox Public/Published -
lblDiagCodes TLabel Public/Published -
lblDiagSect TLabel Public/Published -
lblPatientName TStaticText Public/Published -
lbOrders TListBox Public/Published -
lbSections TORListBox Public/Published -
lvDxGrid Simple (unknown) Public/Published -
pnlBottom Simple (unknown) Public/Published -
pnlMain TPanel Public/Published -
pnlTop TPanel Public/Published -

Methods

Name Declaration Scope Comments
AddDiagnosistoPersonalDiagnosesList1Click procedure AddDiagnosistoPersonalDiagnosesList1Click(Sender: TObject); Public/Published -
AddDiagnosistoPersonalDiagnosesList2Click procedure AddDiagnosistoPersonalDiagnosesList2Click(Sender: TObject); Public/Published -
AddPCEToDiagnosis procedure AddPCEToDiagnosis; Private Adds dx's if selected currently from ecf
AddPersonalDxToDiagnosisList procedure AddPersonalDxToDiagnosisList; Private -
AddProbsToDiagnosis procedure AddProbsToDiagnosis; Private ** Add problem-list enteries to Diagnosis selection list
AddToPersonalDxList procedure AddToPersonalDxList; Private -
AddToProblemList procedure AddToProblemList; Private -
AddToWhatList function AddToWhatList(IsPLChecked:boolean; IsPDLChecked:boolean):string; Private -
AssocDxToOrders procedure AssocDxToOrders; Private -
btnOtherClick procedure btnOtherClick(Sender: TObject); Public/Published -
btnPrimaryClick procedure btnPrimaryClick(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
btnSelectAllClick procedure btnSelectAllClick(Sender: TObject); Public/Published -
buCancelClick procedure buCancelClick(Sender: TObject); Public/Published -
BuildBADxList procedure BuildBADxList; Private -
BuildConsultDxList procedure BuildConsultDxList(pDxList: TStringList); Private ** adds grid items to BAConsultDxList - uConsults
BuildTempDxList procedure BuildTempDxList; Private -
buOKClick procedure buOKClick(Sender: TObject); Public/Published -
Button4Click procedure Button4Click(Sender: TObject); Public/Published -
cbAddToPDListClick procedure cbAddToPDListClick(Sender: TObject); Public/Published -
cbAddToPLClick procedure cbAddToPLClick(Sender: TObject); Public/Published -
ClearAndDisableCBoxes procedure ClearAndDisableCBoxes; Private -
DeleteSelectedDx procedure DeleteSelectedDx; Private -
DeselectGridItems procedure DeselectGridItems; Private -
DiagnosisSelection procedure DiagnosisSelection(SelectedDx: String); Private -
EnsurePrimary procedure EnsurePrimary; Private -
Enter procedure Enter(theCaller: smallint; pOrderIDList: TStringList); Public Entry point *****************//
FormActivate procedure FormActivate(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
InactiveICDNotification procedure InactiveICDNotification; Private -
IsDxAlreadySelected function IsDxAlreadySelected(SelectedDx: string):boolean; Private Insure unique diagnoses entered.
lbDiagnosisClick procedure lbDiagnosisClick(Sender: TObject); Public/Published -
lbOrdersMouseMove procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
lbSectionsClick procedure lbSectionsClick(Sender: TObject); Public/Published -
lbSectionsDrawItem procedure lbSectionsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
ListConsultDX procedure ListConsultDX(pOrderDxList: TStringList); Private -
ListDiagnosisCodes procedure ListDiagnosisCodes(Section : String); Private -
ListDiagnosisSections procedure ListDiagnosisSections(Dest: TStrings); Private Return section names in format: ListIndex^SectionName (sections begin with '^')
ListGlobalDx procedure ListGlobalDx(pOrderIDList: TStringList); Private Need to get rec based on orderid
ListSelectedOrders procedure ListSelectedOrders; Private -
LoadEncounterForm procedure LoadEncounterForm; Private Load the major coding lists that are used by the encounter form for a given location
LoadTempDXLists procedure LoadTempDXLists; Private
Loads string lists containing Diagnoses contained in the Problem and Personal DX List.
 These lists will be used to insure duplicates can not be entered via add to check boxes.
LoadTempRec procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string); Public -
lvDxGridClick procedure lvDxGridClick(Sender: TObject); Public/Published -
lvDxGridKeyDown procedure lvDxGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lvDxGridKeyUp procedure lvDxGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
MainDriver procedure MainDriver; Private -
PersonalListDxFound function PersonalListDxFound(pDxCode:string):boolean; Private -
ProblemListDxFound function ProblemListDxFound(pDxCode:string):boolean; Private -
ProcessAddToItems procedure ProcessAddToItems; Public/Published -
ProcessMultSelections procedure ProcessMultSelections; Private -
ReSetCheckBoxStatus procedure ReSetCheckBoxStatus(pDxCode:String); Private -
SetAddToCBoxStatus procedure SetAddToCBoxStatus; Private Set Add To Check Boxes status.
SetAddToCheckBoxStatus procedure SetAddToCheckBoxStatus(ADiagnosis:string); Private -

Referenced By (3)

Module (line) Referrer Type
fBALocalDiagnoses (128) frmBALocalDiagnoses Read
fBALocalDiagnoses (157) - Read
fReview (2191) - Read