Class

TfrmProblems

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmHSplit

Declaration


  TfrmProblems = class(TfrmHSplit)
    mnuProbs: TMainMenu;
    mnuView: TMenuItem;
    mnuViewChart: TMenuItem;
    mnuChartCover: TMenuItem;
    mnuChartProbs: TMenuItem;
    mnuChartMeds: TMenuItem;
    mnuChartOrders: TMenuItem;
    mnuChartNotes: TMenuItem;
    mnuChartCslts: TMenuItem;
    mnuChartDCSumm: TMenuItem;
    mnuChartLabs: TMenuItem;
    mnuChartReports: TMenuItem;
    mnuAct: TMenuItem;
    mnuActNew: TMenuItem;
    Z3: TMenuItem;
    mnuActChange: TMenuItem;
    mnuActInactivate: TMenuItem;
    mnuActRemove: TMenuItem;
    mnuActVerify: TMenuItem;
    Z4: TMenuItem;
    mnuActAnnotate: TMenuItem;
    Z1: TMenuItem;
    mnuViewActive: TMenuItem;
    mnuViewBoth: TMenuItem;
    popProb: TPopupMenu;
    popChange: TMenuItem;
    popInactivate: TMenuItem;
    popRestore: TMenuItem;
    popRemove: TMenuItem;
    popVerify: TMenuItem;
    N36: TMenuItem;
    popAnnotate: TMenuItem;
    N37: TMenuItem;
    pnlProbList: TORAutoPanel;
    pnlProbCats: TPanel;
    lblProbCats: TLabel;
    lstCatPick: TORListBox;
    pnlProbEnt: TPanel;
    pnlProbDlg: TPanel;
    wgProbData: TCaptionListBox;
    mnuViewInactive: TMenuItem;
    mnuViewRemoved: TMenuItem;
    N1: TMenuItem;
    mnuActRestore: TMenuItem;
    mnuViewFilters: TMenuItem;
    N2: TMenuItem;
    lblProbList: TOROffsetLabel;
    pnlView: TPanel;
    N3: TMenuItem;
    popViewDetails: TMenuItem;
    lstView: TORListBox;
    lblView: TOROffsetLabel;
    N4: TMenuItem;
    mnuActDetails: TMenuItem;
    bbNewProb: TORAlignButton;
    lblProbEnt: TLabel;
    mnuViewSave: TMenuItem;
    mnuViewRestoreDefault: TMenuItem;
    mnuViewComments: TMenuItem;
    sptProbPanel: TSplitter;
    pnlButtons: TPanel;
    bbOtherProb: TORAlignButton;
    bbCancel: TORAlignButton;
    pnlProbs: TPanel;
    lblProblems: TLabel;
    lstProbPick: TORListBox;
    edProbEnt: TCaptionEdit;
    mnuChartSurgery: TMenuItem;
    HeaderControl: THeaderControl;
    mnuViewInformation: TMenuItem;
    mnuViewDemo: TMenuItem;
    mnuViewVisits: TMenuItem;
    mnuViewPrimaryCare: TMenuItem;
    mnuViewMyHealtheVet: TMenuItem;
    mnuInsurance: TMenuItem;
    mnuViewFlags: TMenuItem;
    mnuViewReminders: TMenuItem;
    mnuViewRemoteData: TMenuItem;
    mnuViewPostings: TMenuItem;
    mnuOptimizeFields: TMenuItem;
    procedure mnuChartTabClick(Sender: TObject);
    procedure lstProbPickClick(Sender: TObject);
    procedure lstProbPickDblClick(Sender: TObject);
    procedure lstCatPickClick(Sender: TObject);
    procedure lstProbActsClick(Sender: TObject);
    procedure pnlRightResize(Sender:TObject);
    procedure pnlProbEntResize(Sender: TObject);
    procedure wgProbDataClick(Sender: TObject);
    procedure wgProbDataDblClick(Sender: TObject);
    procedure edProbEntKeyPress(Sender: TObject; var Key: Char);
    procedure bbOtherProbClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bbCancelClick(Sender: TObject);
    procedure lstViewClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure mnuViewSaveClick(Sender: TObject);
    procedure mnuViewRestoreDefaultClick(Sender: TObject);
    procedure mnuViewCommentsClick(Sender: TObject);
    procedure wgProbDataMeasureItem(Control: TWinControl; Index: Integer;
      var Height: Integer);
    procedure wgProbDataDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure HeaderControlSectionResize(HeaderControl: THeaderControl;
      Section: THeaderSection);
    procedure lstViewExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure pnlRightExit(Sender: TObject);
    procedure bbNewProbExit(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ViewInfo(Sender: TObject);
    procedure mnuViewInformationClick(Sender: TObject);
    procedure mnuOptimizeFieldsClick(Sender: TObject);
    procedure HeaderControlSectionClick(HeaderControl: THeaderControl;
      Section: THeaderSection);
    procedure HeaderControlMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure HeaderControlMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    function getTotalSectionsWidth : integer;
    procedure setSectionWidths;
    procedure sptHorzMoved(Sender: TObject);
  private
    FContextString: string;
    FFilterString: string;
    FI10Active: Boolean;
    FAllProblems: TStringList;      //Unfiltered list of problems
    FProblemsVisible: TStringList;  //Parallels FAllProblems.  "Y" for visible
    FItemData: TStringList;  //Parallels Grid.  String representation of integer indexes into FAllProblems
    // FProblemsVisible[FItemData[i]] = 'Y'
    FWarningShown: boolean;
    FOldFramePnlPatientExit: TNotifyEvent;
    FMousing: TDateTime;
    FSilent: boolean;
    procedure frmFramePnlPatientExit(Sender: TObject);
    procedure UMCloseProblem(var Message:TMessage); message UM_CLOSEPROBLEM; {pdr}
    procedure ApplyViewFilters;
//    procedure UMPLFilter(var Message:TMessage); message UM_PLFILTER; {pdr}
    procedure UMPLLexicon(var Message:TMessage); message UM_PLLEX; {pdr}
    procedure GetRowCount;
    procedure RefreshList;
    procedure SetGridPieces(Pieces: string);
    procedure ShowPnlView();
    function PlainText( MString: string): string;
    function MString( index: integer): string;
  public
    function  AllowContextChange(var WhyNot: string): Boolean; override;
    procedure LoadProblems;
    procedure LoadUserCats(AList:Tstringlist);
    procedure LoadUserProbs(AList:TstringList);
    procedure AddProblem;
    procedure EditProblem(const why:char);
    procedure LoadPatientParams(AList:TstringList);
    procedure LoadUserParams(Alist:TstringList);
    procedure UpdateProblem(const why:char;Line: string;AllProblemsIndex:integer);
    procedure RestoreProblem;
    procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean);
    procedure ClearPtData; override;
    procedure DisplayPage; override;
    procedure NoRowSelected;
    procedure RowSelected;
    procedure ClearGrid;
    procedure RequestPrint; override;
    procedure SetFontSize( NewFontSize: integer); override;
    function HighlightDuplicate( NewProb: string; const Msg: string;
      DlgType: TMsgDlgType; Action: string): boolean;
    property Silent: Boolean read FSilent write FSilent;
  end;

DFM Objects


frmProblems : TfrmProblems
 ├shpPageBottom : TShape
 ├sptHorz : TSplitter
 ├pnlLeft : TPanel
 │ ├pnlButtons : TPanel
 │ │ ├bbOtherProb : TORAlignButton
 │ │ └bbCancel : TORAlignButton
 │ ├pnlView : TPanel
 │ │ ├lblView : TOROffsetLabel
 │ │ ├lstView : TORListBox
 │ │ └bbNewProb : TORAlignButton
 │ ├pnlProbEnt : TPanel
 │ │ ├lblProbEnt : TLabel
 │ │ └edProbEnt : TCaptionEdit
 │ └pnlProbList : TORAutoPanel
 │   ├sptProbPanel : TSplitter
 │   ├pnlProbCats : TPanel
 │   │ ├lblProbCats : TLabel
 │   │ └lstCatPick : TORListBox
 │   └pnlProbs : TPanel
 │     ├lblProblems : TLabel
 │     └lstProbPick : TORListBox
 ├pnlRight : TPanel
 │ ├lblProbList : TOROffsetLabel
 │ ├pnlProbDlg : TPanel
 │ ├wgProbData : TCaptionListBox
 │ └HeaderControl : THeaderControl
 ├amgrMain : TVA508AccessibilityManager
 ├popProb : TPopupMenu
 │ ├popChange : TMenuItem
 │ ├popInactivate : TMenuItem
 │ ├popVerify : TMenuItem
 │ ├N36 : TMenuItem
 │ ├popAnnotate : TMenuItem
 │ ├N37 : TMenuItem
 │ ├popRemove : TMenuItem
 │ ├popRestore : TMenuItem
 │ ├N3 : TMenuItem
 │ ├popViewDetails : TMenuItem
 │ └mnuOptimizeFields : TMenuItem
 └mnuProbs : TMainMenu
   ├mnuView : TMenuItem
   │ ├mnuViewChart : TMenuItem
   │ │ ├mnuChartCover : TMenuItem
   │ │ ├mnuChartProbs : TMenuItem
   │ │ ├mnuChartMeds : TMenuItem
   │ │ ├mnuChartOrders : TMenuItem
   │ │ ├mnuChartNotes : TMenuItem
   │ │ ├mnuChartCslts : TMenuItem
   │ │ ├mnuChartSurgery : TMenuItem
   │ │ ├mnuChartDCSumm : TMenuItem
   │ │ ├mnuChartLabs : TMenuItem
   │ │ └mnuChartReports : TMenuItem
   │ ├mnuViewInformation : TMenuItem
   │ │ ├mnuViewDemo : TMenuItem
   │ │ ├mnuViewVisits : TMenuItem
   │ │ ├mnuViewPrimaryCare : TMenuItem
   │ │ ├mnuViewMyHealtheVet : TMenuItem
   │ │ ├mnuInsurance : TMenuItem
   │ │ ├mnuViewFlags : TMenuItem
   │ │ ├mnuViewRemoteData : TMenuItem
   │ │ ├mnuViewReminders : TMenuItem
   │ │ └mnuViewPostings : TMenuItem
   │ ├Z1 : TMenuItem
   │ ├mnuViewActive : TMenuItem
   │ ├mnuViewInactive : TMenuItem
   │ ├mnuViewBoth : TMenuItem
   │ ├mnuViewRemoved : TMenuItem
   │ ├mnuViewFilters : TMenuItem
   │ ├mnuViewComments : TMenuItem
   │ ├N2 : TMenuItem
   │ ├mnuViewSave : TMenuItem
   │ └mnuViewRestoreDefault : TMenuItem
   └mnuAct : TMenuItem
     ├mnuActNew : TMenuItem
     ├Z3 : TMenuItem
     ├mnuActChange : TMenuItem
     ├mnuActInactivate : TMenuItem
     ├mnuActVerify : TMenuItem
     ├N1 : TMenuItem
     ├mnuActAnnotate : TMenuItem
     ├Z4 : TMenuItem
     ├mnuActRemove : TMenuItem
     ├mnuActRestore : TMenuItem
     ├N4 : TMenuItem
     └mnuActDetails : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
bbCancel Simple (unknown) Public/Published -
bbNewProb Simple (unknown) Public/Published -
bbOtherProb Simple (unknown) Public/Published -
edProbEnt Simple (unknown) Public/Published -
FAllProblems TStringList Private Unfiltered list of problems
FContextString UnicodeString Private -
FFilterString UnicodeString Private -
FI10Active Boolean Private -
FItemData TStringList Private Parallels Grid. String representation of integer indexes into FAllProblems
FMousing TDateTime Private -
FOldFramePnlPatientExit TNotifyEvent Private -
FProblemsVisible TStringList Private Parallels FAllProblems. "Y" for visible
FSilent Boolean Private -
FWarningShown Boolean Private FProblemsVisible[FItemData[i]] = 'Y'
HeaderControl THeaderControl Public/Published -
lblProbCats TLabel Public/Published -
lblProbEnt TLabel Public/Published -
lblProblems TLabel Public/Published -
lblProbList TOROffsetLabel Public/Published -
lblView TOROffsetLabel Public/Published -
lstCatPick TORListBox Public/Published -
lstProbPick TORListBox Public/Published -
lstView TORListBox Public/Published -
mnuAct TMenuItem Public/Published -
mnuActAnnotate TMenuItem Public/Published -
mnuActChange TMenuItem Public/Published -
mnuActDetails TMenuItem Public/Published -
mnuActInactivate TMenuItem Public/Published -
mnuActNew TMenuItem Public/Published -
mnuActRemove TMenuItem Public/Published -
mnuActRestore TMenuItem Public/Published -
mnuActVerify TMenuItem Public/Published -
mnuChartCover TMenuItem Public/Published -
mnuChartCslts TMenuItem Public/Published -
mnuChartDCSumm TMenuItem Public/Published -
mnuChartLabs TMenuItem Public/Published -
mnuChartMeds TMenuItem Public/Published -
mnuChartNotes TMenuItem Public/Published -
mnuChartOrders TMenuItem Public/Published -
mnuChartProbs TMenuItem Public/Published -
mnuChartReports TMenuItem Public/Published -
mnuChartSurgery TMenuItem Public/Published -
mnuInsurance TMenuItem Public/Published -
mnuOptimizeFields TMenuItem Public/Published -
mnuProbs Simple (unknown) Public/Published -
mnuView TMenuItem Public/Published -
mnuViewActive TMenuItem Public/Published -
mnuViewBoth TMenuItem Public/Published -
mnuViewChart TMenuItem Public/Published -
mnuViewComments TMenuItem Public/Published -
mnuViewDemo TMenuItem Public/Published -
mnuViewFilters TMenuItem Public/Published -
mnuViewFlags TMenuItem Public/Published -
mnuViewInactive TMenuItem Public/Published -
mnuViewInformation TMenuItem Public/Published -
mnuViewMyHealtheVet TMenuItem Public/Published -
mnuViewPostings TMenuItem Public/Published -
mnuViewPrimaryCare TMenuItem Public/Published -
mnuViewReminders TMenuItem Public/Published -
mnuViewRemoteData TMenuItem Public/Published -
mnuViewRemoved TMenuItem Public/Published -
mnuViewRestoreDefault TMenuItem Public/Published -
mnuViewSave TMenuItem Public/Published -
mnuViewVisits TMenuItem Public/Published -
N1 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N3 TMenuItem Public/Published -
N36 TMenuItem Public/Published -
N37 TMenuItem Public/Published -
N4 TMenuItem Public/Published -
pnlButtons TPanel Public/Published -
pnlProbCats TPanel Public/Published -
pnlProbDlg TPanel Public/Published -
pnlProbEnt TPanel Public/Published -
pnlProbList TORAutoPanel Public/Published -
pnlProbs TPanel Public/Published -
pnlView TPanel Public/Published -
popAnnotate TMenuItem Public/Published -
popChange TMenuItem Public/Published -
popInactivate TMenuItem Public/Published -
popProb TPopupMenu Public/Published -
popRemove TMenuItem Public/Published -
popRestore TMenuItem Public/Published -
popVerify TMenuItem Public/Published -
popViewDetails TMenuItem Public/Published -
sptProbPanel TSplitter Public/Published -
wgProbData TCaptionListBox Public/Published -
Z1 TMenuItem Public/Published -
Z3 TMenuItem Public/Published -
Z4 TMenuItem Public/Published -

Properties

Name Type Scope Comments
Silent Boolean Public -

Methods

Name Declaration Scope Comments
AddProblem procedure AddProblem; Public -
AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; override; Public -
ApplyViewFilters procedure ApplyViewFilters; Private Procedure TfrmProblems.UMPLFilter(var Message:TMessage);
bbCancelClick procedure bbCancelClick(Sender: TObject); Public/Published -
bbNewProbExit procedure bbNewProbExit(Sender: TObject); Public/Published -
bbOtherProbClick procedure bbOtherProbClick(Sender: TObject); Public/Published -
ClearGrid procedure ClearGrid; Public -
ClearPtData procedure ClearPtData; override; Public -
DisplayPage procedure DisplayPage; override; Public -
EditProblem procedure EditProblem(const why:char); Public -
edProbEntKeyPress procedure edProbEntKeyPress(Sender: TObject; var Key: Char); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormHide procedure FormHide(Sender: TObject); Public/Published -
FormMouseMove procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
frmFramePnlPatientExit procedure frmFramePnlPatientExit(Sender: TObject); Private -
GetRowCount procedure GetRowCount; Private -
getTotalSectionsWidth function getTotalSectionsWidth : integer; Public/Published -
HeaderControlMouseDown procedure HeaderControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
HeaderControlMouseUp procedure HeaderControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
HeaderControlSectionClick procedure HeaderControlSectionClick(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
HeaderControlSectionResize procedure HeaderControlSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
HighlightDuplicate function HighlightDuplicate( NewProb: string; const Msg: string; DlgType: TMsgDlgType; Action: string): boolean; Public -
LoadPatientParams procedure LoadPatientParams(AList:TstringList); Public -
LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); Public SCCond, tmpSCstr: string;
LoadProblems procedure LoadProblems; Public -
LoadUserCats procedure LoadUserCats(AList:Tstringlist); Public -
LoadUserParams procedure LoadUserParams(Alist:TstringList); Public -
LoadUserProbs procedure LoadUserProbs(AList:TstringList); Public -
lstCatPickClick procedure lstCatPickClick(Sender: TObject); Public/Published ------------------------ pdr - Problem list gadget event methods ------------
lstProbActsClick procedure lstProbActsClick(Sender: TObject); Public/Published -
lstProbPickClick procedure lstProbPickClick(Sender: TObject); Public/Published -
lstProbPickDblClick procedure lstProbPickDblClick(Sender: TObject); Public/Published -
lstViewClick procedure lstViewClick(Sender: TObject); Public/Published -
lstViewExit procedure lstViewExit(Sender: TObject); Public/Published
Tab Order tricks.  Need to change
  lstView

  bbNewProb
  bbOtherProb
  bbCancel

  pnlProbDlg
  wgProbData

to
  lstView

  pnlProbDlg
  wgProbData

  bbNewProb
  bbOtherProb
  bbCancel
mnuChartTabClick procedure mnuChartTabClick(Sender: TObject); Public/Published -
mnuOptimizeFieldsClick procedure mnuOptimizeFieldsClick(Sender: TObject); Public/Published -
mnuViewCommentsClick procedure mnuViewCommentsClick(Sender: TObject); Public/Published -
mnuViewInformationClick procedure mnuViewInformationClick(Sender: TObject); Public/Published -
mnuViewRestoreDefaultClick procedure mnuViewRestoreDefaultClick(Sender: TObject); Public/Published -
mnuViewSaveClick procedure mnuViewSaveClick(Sender: TObject); Public/Published -
MString function MString( index: integer): string; Private -
NoRowSelected procedure NoRowSelected; Public -
PlainText function PlainText( MString: string): string; Private -
pnlProbEntResize procedure pnlProbEntResize(Sender: TObject); Public/Published
Var
  i:integer;
pnlRightExit procedure pnlRightExit(Sender: TObject); Public/Published -
pnlRightResize procedure pnlRightResize(Sender:TObject); Public/Published -
RefreshList procedure RefreshList; Private -
RequestPrint procedure RequestPrint; override; Public -
RestoreProblem procedure RestoreProblem; Public -
RowSelected procedure RowSelected; Public -
SetFontSize procedure SetFontSize( NewFontSize: integer); override; Public -
SetGridPieces procedure SetGridPieces(Pieces: string); Private -
setSectionWidths procedure setSectionWidths; Public/Published -
ShowPnlView procedure ShowPnlView(); Private -
sptHorzMoved procedure sptHorzMoved(Sender: TObject); Public/Published -
UMCloseProblem procedure UMCloseProblem(var Message:TMessage); message UM_CLOSEPROBLEM; {pdr} Private Pdr
UMPLLexicon procedure UMPLLexicon(var Message:TMessage); message UM_PLLEX; {pdr} Private
Procedure UMPLFilter(var Message:TMessage); message UM_PLFILTER; {pdr}

pdr
UpdateProblem procedure UpdateProblem(const why:char;Line: string;AllProblemsIndex:integer); Public -
ViewInfo procedure ViewInfo(Sender: TObject); Public/Published -
wgProbDataClick procedure wgProbDataClick(Sender: TObject); Public/Published -
wgProbDataDblClick procedure wgProbDataDblClick(Sender: TObject); Public/Published -
wgProbDataDrawItem procedure wgProbDataDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
wgProbDataMeasureItem procedure wgProbDataMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fFrame (3374) - Read
fProbs (214) frmProblems Read
fProbs (2158) - Read