Class

TfrmFrame

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


  TfrmFrame = class(TfrmBase508Form)
    pnlToolbar: TPanel;
    stsArea: TStatusBar;
    tabPage: TTabControl;
    pnlPage: TPanel;
    bvlPageTop: TBevel;
    bvlToolTop: TBevel;
    pnlPatient: TKeyClickPanel;
    lblPtName: TStaticText;
    lblPtSSN: TStaticText;
    lblPtAge: TStaticText;
    pnlVisit: TKeyClickPanel;
    lblPtLocation: TStaticText;
    lblPtProvider: TStaticText;
    mnuFrame: TMainMenu;
    mnuFile: TMenuItem;
    mnuFileExit: TMenuItem;
    mnuFileOpen: TMenuItem;
    mnuFileReview: TMenuItem;
    Z1: TMenuItem;
    mnuFilePrint: TMenuItem;
    mnuEdit: TMenuItem;
    mnuEditUndo: TMenuItem;
    Z3: TMenuItem;
    mnuEditCut: TMenuItem;
    mnuEditCopy: TMenuItem;
    mnuEditPaste: TMenuItem;
    Z4: TMenuItem;
    mnuEditPref: TMenuItem;
    Prefs1: TMenuItem;
    mnu18pt1: TMenuItem;
    mnu14pt1: TMenuItem;
    mnu12pt1: TMenuItem;
    mnu10pt1: TMenuItem;
    mnu8pt: TMenuItem;
    mnuHelp: TMenuItem;
    mnuHelpContents: TMenuItem;
    mnuHelpTutor: TMenuItem;
    Z5: TMenuItem;
    mnuHelpAbout: TMenuItem;
    mnuTools: TMenuItem;
    mnuView: TMenuItem;
    mnuViewChart: TMenuItem;
    mnuChartReports: TMenuItem;
    mnuChartLabs: TMenuItem;
    mnuChartDCSumm: TMenuItem;
    mnuChartCslts: TMenuItem;
    mnuChartNotes: TMenuItem;
    mnuChartOrders: TMenuItem;
    mnuChartMeds: TMenuItem;
    mnuChartProbs: TMenuItem;
    mnuChartCover: TMenuItem;
    mnuHelpBroker: TMenuItem;
    mnuFileEncounter: TMenuItem;
    mnuViewDemo: TMenuItem;
    mnuViewPostings: TMenuItem;
    mnuHelpLists: TMenuItem;
    Z6: TMenuItem;
    mnuHelpSymbols: TMenuItem;
    mnuFileNext: TMenuItem;
    Z7: TMenuItem;
    mnuFileRefresh: TMenuItem;
    pnlPrimaryCare: TKeyClickPanel;
    lblPtCare: TStaticText;
    lblPtAttending: TStaticText;
    pnlReminders: TKeyClickPanel;
    imgReminder: TImage;
    mnuViewReminders: TMenuItem;
    anmtRemSearch: TAnimate;
    lstCIRNLocations: TORListBox;
    popCIRN: TPopupMenu;
    popCIRNSelectAll: TMenuItem;
    popCIRNSelectNone: TMenuItem;
    popCIRNClose: TMenuItem;
    mnuFilePrintSetup: TMenuItem;
    LabInfo1: TMenuItem;
    mnuFileNotifRemove: TMenuItem;
    Z8: TMenuItem;
    mnuToolsOptions: TMenuItem;
    mnuChartSurgery: TMenuItem;
    OROpenDlg: TOpenDialog;
    mnuFileResumeContext: TMenuItem;
    mnuFileResumeContextSet: TMenuItem;
    Useexistingcontext1: TMenuItem;
    mnuFileBreakContext: TMenuItem;
    pnlCCOW: TPanel;
    imgCCOW: TImage;
    pnlPatientSelected: TPanel;
    pnlNoPatientSelected: TPanel;
    pnlPostings: TKeyClickPanel;
    lblPtPostings: TStaticText;
    lblPtCWAD: TStaticText;
    mnuFilePrintSelectedItems: TMenuItem;
    popAlerts: TPopupMenu;
    mnuAlertContinue: TMenuItem;
    mnuAlertForward: TMenuItem;
    mnuAlertRenew: TMenuItem;
    AppEvents: TApplicationEvents;
    paVAA: TKeyClickPanel;
    mnuToolsGraphing: TMenuItem;
    laVAA2: TButton;
    laMHV: TButton;
    mnuViewInformation: TMenuItem;
    mnuViewVisits: TMenuItem;
    mnuViewPrimaryCare: TMenuItem;
    mnuViewMyHealtheVet: TMenuItem;
    mnuInsurance: TMenuItem;
    mnuViewFlags: TMenuItem;
    mnuViewRemoteData: TMenuItem;
    compAccessTabPage: TVA508ComponentAccessibility;
    pnlCVnFlag: TPanel;
    btnCombatVet: TButton;
    pnlFlag: TKeyClickPanel;
    lblFlag: TLabel;
    pnlRemoteData: TKeyClickPanel;
    pnlVistaWeb: TKeyClickPanel;
    lblVistaWeb: TLabel;
    pnlCIRN: TKeyClickPanel;
    lblCIRN: TLabel;
    mnuEditRedo: TMenuItem;
    lblPtMHTC: TStaticText;
    DigitalSigningSetup1: TMenuItem;
    procedure tabPageChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure pnlPatientMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlPatientMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlVisitMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlVisitMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mnuFileExitClick(Sender: TObject);
    procedure pnlPostingsMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlPostingsMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mnuFontSizeClick(Sender: TObject);
    procedure mnuChartTabClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure mnuFileOpenClick(Sender: TObject);
    procedure mnuHelpBrokerClick(Sender: TObject);
    procedure mnuFileEncounterClick(Sender: TObject);
    procedure mnuViewPostingsClick(Sender: TObject);
    procedure mnuHelpAboutClick(Sender: TObject);
    procedure mnuFileReviewClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure mnuHelpListsClick(Sender: TObject);
    procedure ToolClick(Sender: TObject);
    procedure mnuEditClick(Sender: TObject);
    procedure mnuEditUndoClick(Sender: TObject);
    procedure mnuEditCutClick(Sender: TObject);
    procedure mnuEditCopyClick(Sender: TObject);
    procedure mnuEditPasteClick(Sender: TObject);
    procedure mnuHelpSymbolsClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mnuFilePrintClick(Sender: TObject);
    procedure mnuGECStatusClick(Sender: TObject);
    procedure mnuFileNextClick(Sender: TObject);
    procedure pnlPrimaryCareMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pnlPrimaryCareMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlRemindersMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlRemindersMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlCIRNClick(Sender: TObject);
    procedure lstCIRNLocationsClick(Sender: TObject);
    procedure popCIRNCloseClick(Sender: TObject);
    procedure popCIRNSelectAllClick(Sender: TObject);
    procedure popCIRNSelectNoneClick(Sender: TObject);
    procedure mnuFilePrintSetupClick(Sender: TObject);
    procedure lstCIRNLocationsChange(Sender: TObject);
    procedure LabInfo1Click(Sender: TObject);
    procedure mnuFileNotifRemoveClick(Sender: TObject);
    procedure mnuToolsOptionsClick(Sender: TObject);
    procedure mnuFileRefreshClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure pnlPrimaryCareEnter(Sender: TObject);
    procedure pnlPrimaryCareExit(Sender: TObject);
    procedure pnlPatientClick(Sender: TObject);
    procedure pnlVisitClick(Sender: TObject);
    procedure pnlPrimaryCareClick(Sender: TObject);
    procedure pnlRemindersClick(Sender: TObject);
    procedure pnlPostingsClick(Sender: TObject);
    procedure ctxContextorCanceled(Sender: TObject);
    procedure ctxContextorCommitted(Sender: TObject);
    procedure ctxContextorPending(Sender: TObject;
      const aContextItemCollection: IDispatch);
    procedure mnuFileBreakContextClick(Sender: TObject);
    procedure mnuFileResumeContextGetClick(Sender: TObject);
    procedure mnuFileResumeContextSetClick(Sender: TObject);
    procedure pnlFlagMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlFlagMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlFlagClick(Sender: TObject);
    procedure mnuFilePrintSelectedItemsClick(Sender: TObject);
    procedure mnuAlertRenewClick(Sender: TObject);
    procedure mnuAlertForwardClick(Sender: TObject);
    procedure pnlFlagEnter(Sender: TObject);
    procedure pnlFlagExit(Sender: TObject);
    procedure tabPageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure lstCIRNLocationsExit(Sender: TObject);
    procedure AppEventsActivate(Sender: TObject);
    procedure ScreenActiveFormChange(Sender: TObject);
    procedure AppEventsShortCut(var Msg: TWMKey; var Handled: Boolean);
    procedure mnuToolsGraphingClick(Sender: TObject);
    procedure pnlCIRNMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlCIRNMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure laMHVClick(Sender: TObject);
    procedure laVAA2Click(Sender: TObject);
    procedure ViewInfo(Sender: TObject);
    procedure mnuViewInformationClick(Sender: TObject);
    procedure compAccessTabPageCaptionQuery(Sender: TObject;
      var Text: string);
    procedure btnCombatVetClick(Sender: TObject);
    procedure pnlVistaWebClick(Sender: TObject);
    procedure pnlVistaWebMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pnlVistaWebMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mnuEditRedoClick(Sender: TObject);
    procedure tabPageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DigitalSigningSetup1Click(Sender: TObject);
  private
    FProccessingNextClick : boolean;
    FJustEnteredApp : boolean;
    FCCOWInstalled: boolean;
    FCCOWContextChanging: boolean;
    FCCOWIconName: string;
    FCCOWDrivedChange: boolean;
    FCCOWBusy: boolean;
    FCCOWError: boolean;
    FNoPatientSelected: boolean;
    FRefreshing: boolean;
    FClosing: boolean;
    FContextChanging: Boolean;
    FChangeSource: Integer;
    FCreateProgress: Integer;
    FEditCtrl: TCustomEdit;
    FLastPage: TfrmPage;
    FNextButtonL: Integer;
    FNextButtonR: Integer;
    FNextButtonActive: Boolean;
    FNextButtonBitmap: TBitmap;
    FNextButton: TBitBtn;
    FTerminate: Boolean;
    FTabChanged: TNotifyEvent;
    FOldActivate: TNotifyEvent;
    FOldActiveFormChange: TNotifyEvent;
    FECSAuthUser: Boolean;
    FFixedStatusWidth: integer;
    FPrevInPatient: Boolean;
    FFirstLoad:    Boolean;
    FFlagList: TStringList;
    FPrevPtID: string;
    FGraphFloatActive: boolean;
    FGraphContext: string;
    FDoNotChangeEncWindow: boolean;
    FOrderPrintForm: boolean;
    FReviewclick: boolean;
    FCtrlTabUsed: boolean;
    procedure RefreshFixedStatusWidth;
    procedure FocusApplicationTopForm;
    procedure AppActivated(Sender: TObject);
    procedure AppDeActivated(Sender: TObject);
    procedure AppException(Sender: TObject; E: Exception);
    function AllowContextChangeAll(var Reason: string):  Boolean;
    procedure ClearPatient;
    procedure ChangeFont(NewFontSize: Integer);
    //procedure CreateTab(var AnInstance: TObject; AClass: TClass; ATabID: integer; ALabel: string);
    procedure CreateTab(ATabID: integer; ALabel: string);
    procedure DetermineNextTab;
    function ExpandCommand(x: string): string;
    procedure FitToolbar;
    procedure LoadSizesForUser;
    procedure SaveSizesForUser;
    procedure LoadUserPreferences;
    procedure SaveUserPreferences;
    procedure SwitchToPage(NewForm: TfrmPage);
    function TabToPageID(Tab: Integer): Integer;
    function TimeoutCondition: boolean;
    function GetTimedOut: boolean;
    procedure TimeOutAction;
    procedure SetUserTools;
    procedure SetDebugMenu;
    procedure SetupPatient(AFlaggedList : TStringList = nil);
    //procedure SetUpCIRN;
    procedure RemindersChanged(Sender: TObject);
    procedure ReportsOnlyDisplay;
    procedure UMInitiate(var Message: TMessage);   message UM_INITIATE;
    procedure UMNewOrder(var Message: TMessage);   message UM_NEWORDER;
    procedure UMStatusText(var Message: TMessage); message UM_STATUSTEXT;
    procedure UMShowPage(var Message: TMessage);   message UM_SHOWPAGE;
    procedure WMSetFocus(var Message: TMessage);   message WM_SETFOCUS;
    procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
    procedure UpdateECSParameter(var CmdParameter: string);
    function  ValidECSUser: boolean;
    procedure StartCCOWContextor;
    function  AllowCCOWContextChange(var CCOWResponse: UserResponse; NewDFN: string): boolean;
    procedure UpdateCCOWContext;
    procedure CheckHyperlinkResponse(aContextItemCollection: IDispatch; var HyperlinkReason: string);
    procedure CheckForDifferentPatient(aContextItemCollection: IDispatch; var PtChanged: boolean);
{$IFDEF CCOWBROKER}
    procedure CheckForDifferentUser(aContextItemCollection: IDispatch; var UserChanged: boolean);
{$ENDIF}
    procedure HideEverything(AMessage: string = 'No patient is currently selected.');
    procedure ShowEverything;
    //function FindBestCCOWDFN(var APatientName: string): string;
    function FindBestCCOWDFN: string;
    procedure HandleCCOWError(AMessage: string);
    procedure SetUpNextButton;
    procedure NextButtonClick(Sender: TObject);
    procedure NextButtonMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  public
    EnduringPtSelSplitterPos, frmFrameHeight, pnlPatientSelectedHeight: integer;
    EnduringPtSelColumns: string;
    procedure SetBADxList;
    procedure SetActiveTab(PageID: Integer);

    function PageIDToTab(PageID: Integer): Integer;
    procedure ShowHideChartTabMenus(AMenuItem: TMenuItem);
    procedure UpdatePtInfoOnRefresh;
    function  TabExists(ATabID: integer): boolean;
    procedure DisplayEncounterText;
    function DLLActive: boolean;
    property ChangeSource:    Integer read FChangeSource;
    property CCOWContextChanging: Boolean read FCCOWContextChanging;
    property CCOWDrivedChange: Boolean  read FCCOWDrivedChange;
    property CCOWBusy: Boolean    read FCCOWBusy  write FCCOWBusy;
    property ContextChanging: Boolean read FContextChanging;
    property TimedOut:        Boolean read GetTimedOut;
    property Closing:         Boolean read FClosing;
    property OnTabChanged:    TNotifyEvent read FTabChanged write FTabChanged;
    property GraphFloatActive: boolean read FGraphFloatActive write FGraphFloatActive;
    property GraphContext: string read FGraphContext write FGraphContext;
    procedure ToggleMenuItemChecked(Sender: TObject);
    procedure SetUpCIRN;
    property DoNotChangeEncWindow: boolean read FDoNotChangeEncWindow write FDoNotChangeEncWindow;
    property OrderPrintForm: boolean read FOrderPrintForm write FOrderPrintForm;
  end;

DFM Objects


frmFrame : TfrmFrame
 ├pnlNoPatientSelected : TPanel
 ├pnlPatientSelected : TPanel
 │ ├bvlPageTop : TBevel
 │ ├pnlToolbar : TPanel
 │ │ ├bvlToolTop : TBevel
 │ │ ├pnlCCOW : TPanel
 │ │ │ └imgCCOW : TImage
 │ │ ├pnlPatient : TKeyClickPanel
 │ │ │ ├lblPtName : TStaticText
 │ │ │ ├lblPtSSN : TStaticText
 │ │ │ └lblPtAge : TStaticText
 │ │ ├pnlVisit : TKeyClickPanel
 │ │ │ ├lblPtLocation : TStaticText
 │ │ │ └lblPtProvider : TStaticText
 │ │ ├pnlPrimaryCare : TKeyClickPanel
 │ │ │ ├lblPtCare : TStaticText
 │ │ │ ├lblPtAttending : TStaticText
 │ │ │ └lblPtMHTC : TStaticText
 │ │ ├pnlReminders : TKeyClickPanel
 │ │ │ ├imgReminder : TImage
 │ │ │ └anmtRemSearch : TAnimate
 │ │ ├pnlPostings : TKeyClickPanel
 │ │ │ ├lblPtPostings : TStaticText
 │ │ │ └lblPtCWAD : TStaticText
 │ │ ├paVAA : TKeyClickPanel
 │ │ │ ├laVAA2 : TButton
 │ │ │ └laMHV : TButton
 │ │ ├pnlCVnFlag : TPanel
 │ │ │ ├btnCombatVet : TButton
 │ │ │ └pnlFlag : TKeyClickPanel
 │ │ │   └lblFlag : TLabel
 │ │ └pnlRemoteData : TKeyClickPanel
 │ │   ├pnlVistaWeb : TKeyClickPanel
 │ │   │ └lblVistaWeb : TLabel
 │ │   └pnlCIRN : TKeyClickPanel
 │ │     └lblCIRN : TLabel
 │ ├stsArea : TStatusBar
 │ ├tabPage : TTabControl
 │ └pnlPage : TPanel
 │   └lstCIRNLocations : TORListBox
 ├amgrMain : TVA508AccessibilityManager
 ├mnuFrame : TMainMenu
 │ ├mnuFile : TMenuItem
 │ │ ├mnuFileOpen : TMenuItem
 │ │ ├mnuFileRefresh : TMenuItem
 │ │ ├mnuFileResumeContext : TMenuItem
 │ │ │ ├mnuFileResumeContextSet : TMenuItem
 │ │ │ └Useexistingcontext1 : TMenuItem
 │ │ ├mnuFileBreakContext : TMenuItem
 │ │ ├mnuFileEncounter : TMenuItem
 │ │ ├mnuFileReview : TMenuItem
 │ │ ├Z7 : TMenuItem
 │ │ ├mnuFileNext : TMenuItem
 │ │ ├mnuFileNotifRemove : TMenuItem
 │ │ ├Z1 : TMenuItem
 │ │ ├mnuFilePrintSetup : TMenuItem
 │ │ ├mnuFilePrintSelectedItems : TMenuItem
 │ │ ├mnuFilePrint : TMenuItem
 │ │ └mnuFileExit : TMenuItem
 │ ├mnuEdit : TMenuItem
 │ │ ├mnuEditUndo : TMenuItem
 │ │ ├mnuEditRedo : TMenuItem
 │ │ ├Z3 : TMenuItem
 │ │ ├mnuEditCut : TMenuItem
 │ │ ├mnuEditCopy : TMenuItem
 │ │ ├mnuEditPaste : TMenuItem
 │ │ ├Z4 : TMenuItem
 │ │ └mnuEditPref : TMenuItem
 │ │   └Prefs1 : TMenuItem
 │ │     ├mnu8pt : TMenuItem
 │ │     ├mnu10pt1 : TMenuItem
 │ │     ├mnu12pt1 : TMenuItem
 │ │     ├mnu14pt1 : TMenuItem
 │ │     └mnu18pt1 : TMenuItem
 │ ├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
 │ ├mnuTools : TMenuItem
 │ │ ├Z8 : TMenuItem
 │ │ ├mnuToolsGraphing : TMenuItem
 │ │ ├LabInfo1 : TMenuItem
 │ │ ├mnuToolsOptions : TMenuItem
 │ │ └DigitalSigningSetup1 : TMenuItem
 │ └mnuHelp : TMenuItem
 │   ├mnuHelpContents : TMenuItem
 │   ├mnuHelpTutor : TMenuItem
 │   ├Z5 : TMenuItem
 │   ├mnuHelpBroker : TMenuItem
 │   ├mnuHelpLists : TMenuItem
 │   ├mnuHelpSymbols : TMenuItem
 │   ├Z6 : TMenuItem
 │   └mnuHelpAbout : TMenuItem
 ├popCIRN : TPopupMenu
 │ ├popCIRNSelectAll : TMenuItem
 │ ├popCIRNSelectNone : TMenuItem
 │ └popCIRNClose : TMenuItem
 ├OROpenDlg : TOpenDialog
 ├popAlerts : TPopupMenu
 │ ├mnuAlertContinue : TMenuItem
 │ ├mnuAlertForward : TMenuItem
 │ └mnuAlertRenew : TMenuItem
 ├AppEvents : TApplicationEvents
 └compAccessTabPage : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
anmtRemSearch Simple (unknown) Public/Published -
AppEvents Simple (unknown) Public/Published -
btnCombatVet TButton Public/Published -
bvlPageTop Simple (unknown) Public/Published -
bvlToolTop Simple (unknown) Public/Published -
compAccessTabPage Simple (unknown) Public/Published -
DigitalSigningSetup1 Simple (unknown) Public/Published -
EnduringPtSelColumns UnicodeString Public -
EnduringPtSelSplitterPos Integer Public -
FCCOWBusy Boolean Private -
FCCOWContextChanging Boolean Private -
FCCOWDrivedChange Boolean Private -
FCCOWError Boolean Private -
FCCOWIconName UnicodeString Private -
FCCOWInstalled Boolean Private -
FChangeSource Integer Private -
FClosing Boolean Private -
FContextChanging Boolean Private -
FCreateProgress Integer Private -
FCtrlTabUsed Boolean Private -
FDoNotChangeEncWindow Boolean Private -
FECSAuthUser Boolean Private -
FEditCtrl Simple (unknown) Private -
FFirstLoad Boolean Private -
FFixedStatusWidth Integer Private -
FFlagList TStringList Private -
FGraphContext UnicodeString Private -
FGraphFloatActive Boolean Private -
FJustEnteredApp Boolean Private -
FLastPage TfrmPage Private -
FNextButton Simple (unknown) Private -
FNextButtonActive Boolean Private -
FNextButtonBitmap Simple (unknown) Private -
FNextButtonL Integer Private -
FNextButtonR Integer Private -
FNoPatientSelected Boolean Private -
FOldActivate Simple (unknown) Private -
FOldActiveFormChange Simple (unknown) Private -
FOrderPrintForm Boolean Private -
FPrevInPatient Boolean Private -
FPrevPtID UnicodeString Private -
FProccessingNextClick Boolean Private -
FRefreshing Boolean Private -
FReviewclick Boolean Private -
frmFrameHeight Integer Public -
FTabChanged Simple (unknown) Private -
FTerminate Boolean Private -
imgCCOW Simple (unknown) Public/Published -
imgReminder Simple (unknown) Public/Published -
LabInfo1 Simple (unknown) Public/Published -
laMHV TButton Public/Published -
laVAA2 TButton Public/Published -
lblCIRN TLabel Public/Published -
lblFlag TLabel Public/Published -
lblPtAge Simple (unknown) Public/Published -
lblPtAttending Simple (unknown) Public/Published -
lblPtCare Simple (unknown) Public/Published -
lblPtCWAD Simple (unknown) Public/Published -
lblPtLocation Simple (unknown) Public/Published -
lblPtMHTC Simple (unknown) Public/Published -
lblPtName Simple (unknown) Public/Published -
lblPtPostings Simple (unknown) Public/Published -
lblPtProvider Simple (unknown) Public/Published -
lblPtSSN Simple (unknown) Public/Published -
lblVistaWeb TLabel Public/Published -
lstCIRNLocations Simple (unknown) Public/Published -
mnu10pt1 Simple (unknown) Public/Published -
mnu12pt1 Simple (unknown) Public/Published -
mnu14pt1 Simple (unknown) Public/Published -
mnu18pt1 Simple (unknown) Public/Published -
mnu8pt Simple (unknown) Public/Published -
mnuAlertContinue Simple (unknown) Public/Published -
mnuAlertForward Simple (unknown) Public/Published -
mnuAlertRenew Simple (unknown) Public/Published -
mnuChartCover Simple (unknown) Public/Published -
mnuChartCslts Simple (unknown) Public/Published -
mnuChartDCSumm Simple (unknown) Public/Published -
mnuChartLabs Simple (unknown) Public/Published -
mnuChartMeds Simple (unknown) Public/Published -
mnuChartNotes Simple (unknown) Public/Published -
mnuChartOrders Simple (unknown) Public/Published -
mnuChartProbs Simple (unknown) Public/Published -
mnuChartReports Simple (unknown) Public/Published -
mnuChartSurgery Simple (unknown) Public/Published -
mnuEdit Simple (unknown) Public/Published -
mnuEditCopy Simple (unknown) Public/Published -
mnuEditCut Simple (unknown) Public/Published -
mnuEditPaste Simple (unknown) Public/Published -
mnuEditPref Simple (unknown) Public/Published -
mnuEditRedo Simple (unknown) Public/Published -
mnuEditUndo Simple (unknown) Public/Published -
mnuFile Simple (unknown) Public/Published -
mnuFileBreakContext Simple (unknown) Public/Published -
mnuFileEncounter Simple (unknown) Public/Published -
mnuFileExit Simple (unknown) Public/Published -
mnuFileNext Simple (unknown) Public/Published -
mnuFileNotifRemove Simple (unknown) Public/Published -
mnuFileOpen Simple (unknown) Public/Published -
mnuFilePrint Simple (unknown) Public/Published -
mnuFilePrintSelectedItems Simple (unknown) Public/Published -
mnuFilePrintSetup Simple (unknown) Public/Published -
mnuFileRefresh Simple (unknown) Public/Published -
mnuFileResumeContext Simple (unknown) Public/Published -
mnuFileResumeContextSet Simple (unknown) Public/Published -
mnuFileReview Simple (unknown) Public/Published -
mnuFrame Simple (unknown) Public/Published -
mnuHelp Simple (unknown) Public/Published -
mnuHelpAbout Simple (unknown) Public/Published -
mnuHelpBroker Simple (unknown) Public/Published -
mnuHelpContents Simple (unknown) Public/Published -
mnuHelpLists Simple (unknown) Public/Published -
mnuHelpSymbols Simple (unknown) Public/Published -
mnuHelpTutor Simple (unknown) Public/Published -
mnuInsurance Simple (unknown) Public/Published -
mnuTools Simple (unknown) Public/Published -
mnuToolsGraphing Simple (unknown) Public/Published -
mnuToolsOptions Simple (unknown) Public/Published -
mnuView Simple (unknown) Public/Published -
mnuViewChart Simple (unknown) Public/Published -
mnuViewDemo Simple (unknown) Public/Published -
mnuViewFlags Simple (unknown) Public/Published -
mnuViewInformation Simple (unknown) Public/Published -
mnuViewMyHealtheVet Simple (unknown) Public/Published -
mnuViewPostings Simple (unknown) Public/Published -
mnuViewPrimaryCare Simple (unknown) Public/Published -
mnuViewReminders Simple (unknown) Public/Published -
mnuViewRemoteData Simple (unknown) Public/Published -
mnuViewVisits Simple (unknown) Public/Published -
OROpenDlg Simple (unknown) Public/Published -
paVAA Simple (unknown) Public/Published -
pnlCCOW TPanel Public/Published -
pnlCIRN Simple (unknown) Public/Published -
pnlCVnFlag TPanel Public/Published -
pnlFlag Simple (unknown) Public/Published -
pnlNoPatientSelected TPanel Public/Published -
pnlPage TPanel Public/Published -
pnlPatient Simple (unknown) Public/Published -
pnlPatientSelected TPanel Public/Published -
pnlPatientSelectedHeight Integer Public -
pnlPostings Simple (unknown) Public/Published -
pnlPrimaryCare Simple (unknown) Public/Published -
pnlReminders Simple (unknown) Public/Published -
pnlRemoteData Simple (unknown) Public/Published -
pnlToolbar TPanel Public/Published -
pnlVisit Simple (unknown) Public/Published -
pnlVistaWeb Simple (unknown) Public/Published -
popAlerts Simple (unknown) Public/Published -
popCIRN Simple (unknown) Public/Published -
popCIRNClose Simple (unknown) Public/Published -
popCIRNSelectAll Simple (unknown) Public/Published -
popCIRNSelectNone Simple (unknown) Public/Published -
Prefs1 Simple (unknown) Public/Published -
stsArea Simple (unknown) Public/Published -
tabPage Simple (unknown) Public/Published -
Useexistingcontext1 Simple (unknown) Public/Published -
Z1 Simple (unknown) Public/Published -
Z3 Simple (unknown) Public/Published -
Z4 Simple (unknown) Public/Published -
Z5 Simple (unknown) Public/Published -
Z6 Simple (unknown) Public/Published -
Z7 Simple (unknown) Public/Published -
Z8 Simple (unknown) Public/Published -

Properties

Name Type Scope Comments
CCOWBusy Boolean Public -
CCOWContextChanging Boolean Public -
CCOWDrivedChange Boolean Public -
ChangeSource Integer Public -
Closing Boolean Public -
ContextChanging Boolean Public -
DoNotChangeEncWindow Boolean Public -
GraphContext UnicodeString Public -
GraphFloatActive Boolean Public -
OnTabChanged Simple (unknown) Public -
OrderPrintForm Boolean Public -
TimedOut Boolean Public -

Methods

Name Declaration Scope Comments
AllowCCOWContextChange function AllowCCOWContextChange(var CCOWResponse: UserResponse; NewDFN: string): boolean; Private -
AllowContextChangeAll function AllowContextChangeAll(var Reason: string): Boolean; Private -
AppActivated procedure AppActivated(Sender: TObject); Private -
AppDeActivated procedure AppDeActivated(Sender: TObject); Private Close Treatment Factor hint window if alt-tab pressed.
AppEventsActivate procedure AppEventsActivate(Sender: TObject); Public/Published -
AppEventsShortCut procedure AppEventsShortCut(var Msg: TWMKey; var Handled: Boolean); Public/Published -
AppException procedure AppException(Sender: TObject; E: Exception); Private General Functions and Procedures
btnCombatVetClick procedure btnCombatVetClick(Sender: TObject); Public/Published -
ChangeFont procedure ChangeFont(NewFontSize: Integer); Private
Makes changes in all components whenever the font size is changed.  This is hardcoded and
  based on MS Sans Serif for now, as only the font size may be selected. Courier New is used
  wherever non-proportional fonts are required.
CheckForDifferentPatient procedure CheckForDifferentPatient(aContextItemCollection: IDispatch; var PtChanged: boolean); Private -
CheckForDifferentUser procedure CheckForDifferentUser(aContextItemCollection: IDispatch; var UserChanged: boolean); Private -
CheckHyperlinkResponse procedure CheckHyperlinkResponse(aContextItemCollection: IDispatch; var HyperlinkReason: string); Private -
ClearPatient procedure ClearPatient; Private Call all pages to make sure patient related information is cleared (when switching patients)
compAccessTabPageCaptionQuery procedure compAccessTabPageCaptionQuery(Sender: TObject; var Text: string); Public/Published -
CreateTab procedure CreateTab(ATabID: integer; ALabel: string); Private Procedure CreateTab(var AnInstance: TObject; AClass: TClass; ATabID: integer; ALabel: string);
ctxContextorCanceled procedure ctxContextorCanceled(Sender: TObject); Public/Published -
ctxContextorCommitted procedure ctxContextorCommitted(Sender: TObject); Public/Published -
ctxContextorPending procedure ctxContextorPending(Sender: TObject; const aContextItemCollection: IDispatch); Public/Published -
DetermineNextTab procedure DetermineNextTab; Private -
DigitalSigningSetup1Click procedure DigitalSigningSetup1Click(Sender: TObject); Public/Published -
DisplayEncounterText procedure DisplayEncounterText; Public Updates the display in the header bar of encounter related information (location & provider)
DLLActive function DLLActive: boolean; Public -
ExpandCommand function ExpandCommand(x: string): string; Private
Tool Menu Events ------------------------------------------------------------------------- 

 look for 'macros' on the command line and expand them using current context
FindBestCCOWDFN function FindBestCCOWDFN: string; Private
Function FindBestCCOWDFN(var APatientName: string): string;
function TfrmFrame.FindBestCCOWDFN(var APatientName: string): string;
FitToolbar procedure FitToolbar; Private
Resizes and repositions the panels & labels used in the toolbar 
var
WidthNeeded: integer;
FocusApplicationTopForm procedure FocusApplicationTopForm; Private -
FormActivate procedure FormActivate(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); Public/Published Cancels close if the user cancels the ReviewChanges screen
FormCreate procedure FormCreate(Sender: TObject); Public/Published Connect to server, create tab pages, select a patient, & initialize core objects
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published Free core objects used by CPRS
FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published
Need to resize tab forms specifically since they don't inherit resize event (because they
  are derived from TForm itself)
GetTimedOut function GetTimedOut: boolean; Private -
HandleCCOWError procedure HandleCCOWError(AMessage: string); Private =========================== CCOW main changes ========================
HideEverything procedure HideEverything(AMessage: string = 'No patient is currently selected.'); Private -
LabInfo1Click procedure LabInfo1Click(Sender: TObject); Public/Published -
laMHVClick procedure laMHVClick(Sender: TObject); Public/Published -
laVAA2Click procedure laVAA2Click(Sender: TObject); Public/Published
Var
  InsuranceSubscriberName: string;
  ReportString: TStringList; //CQ7782
LoadSizesForUser procedure LoadSizesForUser; Private Resize and Font-Change procedures --------------------------------------------------------
LoadUserPreferences procedure LoadUserPreferences; Private -
lstCIRNLocationsChange procedure lstCIRNLocationsChange(Sender: TObject); Public/Published -
lstCIRNLocationsClick procedure lstCIRNLocationsClick(Sender: TObject); Public/Published -
lstCIRNLocationsExit procedure lstCIRNLocationsExit(Sender: TObject); Public/Published -
mnuAlertForwardClick procedure mnuAlertForwardClick(Sender: TObject); Public/Published -
mnuAlertRenewClick procedure mnuAlertRenewClick(Sender: TObject); Public/Published -
mnuChartTabClick procedure mnuChartTabClick(Sender: TObject); Public/Published Use the Tag property of the menu item to switch to proper page
mnuEditClick procedure mnuEditClick(Sender: TObject); Public/Published -
mnuEditCopyClick procedure mnuEditCopyClick(Sender: TObject); Public/Published -
mnuEditCutClick procedure mnuEditCutClick(Sender: TObject); Public/Published -
mnuEditPasteClick procedure mnuEditPasteClick(Sender: TObject); Public/Published -
mnuEditRedoClick procedure mnuEditRedoClick(Sender: TObject); Public/Published -
mnuEditUndoClick procedure mnuEditUndoClick(Sender: TObject); Public/Published -
mnuFileBreakContextClick procedure mnuFileBreakContextClick(Sender: TObject); Public/Published -
mnuFileEncounterClick procedure mnuFileEncounterClick(Sender: TObject); Public/Published Displays encounter window and updates encounter display in case encounter was updated
mnuFileExitClick procedure mnuFileExitClick(Sender: TObject); Public/Published See the CloseQuery event
mnuFileNextClick procedure mnuFileNextClick(Sender: TObject); Public/Published -
mnuFileNotifRemoveClick procedure mnuFileNotifRemoveClick(Sender: TObject); Public/Published -
mnuFileOpenClick procedure mnuFileOpenClick(Sender: TObject); Public/Published
Select a new patient & update the header displays (patient id, encounter, postings) 
NextTab: Integer;     // moved up for visibility - v23.4  rV
i: smallint;
mnuFilePrintClick procedure mnuFilePrintClick(Sender: TObject); Public/Published -
mnuFilePrintSelectedItemsClick procedure mnuFilePrintSelectedItemsClick(Sender: TObject); Public/Published -
mnuFilePrintSetupClick procedure mnuFilePrintSetupClick(Sender: TObject); Public/Published -
mnuFileRefreshClick procedure mnuFileRefreshClick(Sender: TObject); Public/Published -
mnuFileResumeContextGetClick procedure mnuFileResumeContextGetClick(Sender: TObject); Public/Published -
mnuFileResumeContextSetClick procedure mnuFileResumeContextSetClick(Sender: TObject); Public/Published -
mnuFileReviewClick procedure mnuFileReviewClick(Sender: TObject); Public/Published Displays the Review Changes window (which resets the Encounter object)
mnuFontSizeClick procedure mnuFontSizeClick(Sender: TObject); Public/Published -
mnuGECStatusClick procedure mnuGECStatusClick(Sender: TObject); Public/Published -
mnuHelpAboutClick procedure mnuHelpAboutClick(Sender: TObject); Public/Published Displays the about screen
mnuHelpBrokerClick procedure mnuHelpBrokerClick(Sender: TObject); Public/Published
Help Menu Events ------------------------------------------------------------------------- 

 used for debugging - shows last n broker calls
mnuHelpListsClick procedure mnuHelpListsClick(Sender: TObject); Public/Published Used for debugging - shows internal contents of TORListBox
mnuHelpSymbolsClick procedure mnuHelpSymbolsClick(Sender: TObject); Public/Published Used for debugging - shows current symbol table
mnuToolsGraphingClick procedure mnuToolsGraphingClick(Sender: TObject); Public/Published -
mnuToolsOptionsClick procedure mnuToolsOptionsClick(Sender: TObject); Public/Published Personal preferences - changes may need to be applied to chart
mnuViewInformationClick procedure mnuViewInformationClick(Sender: TObject); Public/Published -
mnuViewPostingsClick procedure mnuViewPostingsClick(Sender: TObject); Public/Published View Menu Events -------------------------------------------------------------------------
NextButtonClick procedure NextButtonClick(Sender: TObject); Private -
NextButtonMouseDown procedure NextButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Private -
PageIDToTab function PageIDToTab(PageID: Integer): Integer; Public Returns the tab index that corresponds to a given PageID
pnlCIRNClick procedure pnlCIRNClick(Sender: TObject); Public/Published -
pnlCIRNMouseDown procedure pnlCIRNMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlCIRNMouseUp procedure pnlCIRNMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlFlagClick procedure pnlFlagClick(Sender: TObject); Public/Published -
pnlFlagEnter procedure pnlFlagEnter(Sender: TObject); Public/Published -
pnlFlagExit procedure pnlFlagExit(Sender: TObject); Public/Published -
pnlFlagMouseDown procedure pnlFlagMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlFlagMouseUp procedure pnlFlagMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlPatientClick procedure pnlPatientClick(Sender: TObject); Public/Published -
pnlPatientMouseDown procedure pnlPatientMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published
Toolbar Methods (make panels act like buttons) ------------------------------------------- 

 emulate a button press in the patient identification panel
pnlPatientMouseUp procedure pnlPatientMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published Emulate the button raising in the patient identification panel & call Patient Inquiry
pnlPostingsClick procedure pnlPostingsClick(Sender: TObject); Public/Published -
pnlPostingsMouseDown procedure pnlPostingsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published Emulate a button press in the postings panel
pnlPostingsMouseUp procedure pnlPostingsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published Emulate a button raising in the posting panel and call Postings
pnlPrimaryCareClick procedure pnlPrimaryCareClick(Sender: TObject); Public/Published -
pnlPrimaryCareEnter procedure pnlPrimaryCareEnter(Sender: TObject); Public/Published -
pnlPrimaryCareExit procedure pnlPrimaryCareExit(Sender: TObject); Public/Published -
pnlPrimaryCareMouseDown procedure pnlPrimaryCareMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlPrimaryCareMouseUp procedure pnlPrimaryCareMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlRemindersClick procedure pnlRemindersClick(Sender: TObject); Public/Published -
pnlRemindersMouseDown procedure pnlRemindersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlRemindersMouseUp procedure pnlRemindersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlVisitClick procedure pnlVisitClick(Sender: TObject); Public/Published -
pnlVisitMouseDown procedure pnlVisitMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published Emulate a button press in the encounter panel
pnlVisitMouseUp procedure pnlVisitMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published Emulate a button raising in the encounter panel and call Update Provider/Location
pnlVistaWebClick procedure pnlVistaWebClick(Sender: TObject); Public/Published -
pnlVistaWebMouseDown procedure pnlVistaWebMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlVistaWebMouseUp procedure pnlVistaWebMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
popCIRNCloseClick procedure popCIRNCloseClick(Sender: TObject); Public/Published -
popCIRNSelectAllClick procedure popCIRNSelectAllClick(Sender: TObject); Public/Published -
popCIRNSelectNoneClick procedure popCIRNSelectNoneClick(Sender: TObject); Public/Published -
RefreshFixedStatusWidth procedure RefreshFixedStatusWidth; Private Form Events (Create, Destroy) -----------------------------------------------------------
RemindersChanged procedure RemindersChanged(Sender: TObject); Private Procedure SetUpCIRN;
ReportsOnlyDisplay procedure ReportsOnlyDisplay; Private -
SaveSizesForUser procedure SaveSizesForUser; Private -
SaveUserPreferences procedure SaveUserPreferences; Private -
ScreenActiveFormChange procedure ScreenActiveFormChange(Sender: TObject); Public/Published -
SetActiveTab procedure SetActiveTab(PageID: Integer); Public -
SetBADxList procedure SetBADxList; Public -
SetDebugMenu procedure SetDebugMenu; Private -
SetUpCIRN procedure SetUpCIRN; Public --------------------- CIRN-related procedures --------------------------------
SetUpNextButton procedure SetUpNextButton; Private -
SetupPatient procedure SetupPatient(AFlaggedList : TStringList = nil); Private File Menu Events -------------------------------------------------------------------------
SetUserTools procedure SetUserTools; Private OptionsClick: TNotifyEvent;
ShowEverything procedure ShowEverything; Private -
ShowHideChartTabMenus procedure ShowHideChartTabMenus(AMenuItem: TMenuItem); Public -
StartCCOWContextor procedure StartCCOWContextor; Private -
SwitchToPage procedure SwitchToPage(NewForm: TfrmPage); Private Unmerge/merge menus, bring page to top of z-order, call form-specific OnDisplay code
TabExists function TabExists(ATabID: integer): boolean; Public -
tabPageChange procedure tabPageChange(Sender: TObject); Public/Published Switches to form linked to NewTab
tabPageMouseDown procedure tabPageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
tabPageMouseUp procedure tabPageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
TabToPageID function TabToPageID(Tab: Integer): Integer; Private Returns the constant that identifies the page given a TabIndex
TimeOutAction procedure TimeOutAction; Private -
TimeoutCondition function TimeoutCondition: boolean; Private -
ToggleMenuItemChecked procedure ToggleMenuItemChecked(Sender: TObject); Public Temporary Calls --------------------------------------------------------------------------
ToolClick procedure ToolClick(Sender: TObject); Public/Published
Executes the program associated with an item on the Tools menu, the command line is stored
  in the item's hint property
UMInitiate procedure UMInitiate(var Message: TMessage); message UM_INITIATE; Private -
UMNewOrder procedure UMNewOrder(var Message: TMessage); message UM_NEWORDER; Private
Updates posted to MainForm --------------------------------------------------------------- 

 post a notice of change in orders to all TPages, wParam=OrderAction, lParam=TOrder
UMShowPage procedure UMShowPage(var Message: TMessage); message UM_SHOWPAGE; Private Shows a page when the UM_SHOWPAGE message is received
UMStatusText procedure UMStatusText(var Message: TMessage); message UM_STATUSTEXT; Private
Status Bar Methods 

 displays status bar text (using the pointer to a text buffer passed in LParam)
UpdateCCOWContext procedure UpdateCCOWContext; Private -
UpdateECSParameter procedure UpdateECSParameter(var CmdParameter: string); Private ECS
UpdatePtInfoOnRefresh procedure UpdatePtInfoOnRefresh; Public -
ValidECSUser function ValidECSUser: boolean; Private ECS
ViewInfo procedure ViewInfo(Sender: TObject); Public/Published -
WMSetFocus procedure WMSetFocus(var Message: TMessage); message WM_SETFOCUS; Private Tab Selection (navigate between pages) ---------------------------------------------------
WMSysCommand procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND; Private -

Referenced By (3)

Module (line) Referrer Type
CPRSChart (357) - Read
fFrame (374) frmFrame Read
fFrame (4653) - Read