Class

TfrmMeds

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmPage

Declaration


TfrmMeds = class(TfrmPage)
  mnuMeds: TMainMenu;
  mnuView: TMenuItem;
  mnuViewChart: TMenuItem;
  mnuChartReports: TMenuItem;
  mnuChartLabs: TMenuItem;
  mnuChartDCSumm: TMenuItem;
  mnuChartCslts: TMenuItem;
  mnuChartNotes: TMenuItem;
  mnuChartOrders: TMenuItem;
  mnuChartMeds: TMenuItem;
  mnuChartProbs: TMenuItem;
  mnuChartCover: TMenuItem;
  mnuAct: TMenuItem;
  mnuActNew: TMenuItem;
  Z1: TMenuItem;
  mnuActChange: TMenuItem;
  mnuActDC: TMenuItem;
  mnuActHold: TMenuItem;
  mnuActRenew: TMenuItem;
  Z2: TMenuItem;
  mnuViewActive: TMenuItem;
  mnuViewExpiring: TMenuItem;
  Z3: TMenuItem;
  mnuViewSortClass: TMenuItem;
  mnuViewSortName: TMenuItem;
  Z4: TMenuItem;
  mnuViewDetail: TMenuItem;
  popMed: TPopupMenu;
  popMedDetails: TMenuItem;
  N1: TMenuItem;
  popMedChange: TMenuItem;
  popMedDC: TMenuItem;
  popMedRenew: TMenuItem;
  N2: TMenuItem;
  popMedNew: TMenuItem;
  mnuActCopy: TMenuItem;
  mnuActRefill: TMenuItem;
  mnuActTransfer: TMenuItem;
  popMedRefill: TMenuItem;
  mnuChartSurgery: TMenuItem;
  mnuViewHistory: TMenuItem;
  popMedHistory: TMenuItem;
  pnlBottom: TORAutoPanel;
  splitBottom: TSplitter;
  pnlMedIn: TPanel;
  lstMedsIn: TCaptionListBox;
  hdrMedsIn: THeaderControl;
  pnlNonVA: TPanel;
  lstMedsNonVA: TCaptionListBox;
  hdrMedsNonVA: THeaderControl;
  splitTop: TSplitter;
  pnlTop: TORAutoPanel;
  lstMedsOut: TCaptionListBox;
  hdrMedsOut: THeaderControl;
  mnuViewInformation: TMenuItem;
  mnuViewDemo: TMenuItem;
  mnuViewVisits: TMenuItem;
  mnuViewPrimaryCare: TMenuItem;
  mnuViewMyHealtheVet: TMenuItem;
  mnuInsurance: TMenuItem;
  mnuViewFlags: TMenuItem;
  mnuViewReminders: TMenuItem;
  mnuViewRemoteData: TMenuItem;
  mnuViewPostings: TMenuItem;
  mnuOptimizeFields: TMenuItem;
  SortbyStatusthenLocation1: TMenuItem;
  SortbyClinicOrderthenStatusthenStopDate1: TMenuItem;
  SortbyDrugalphabeticallystatusactivestatusrecentexpired1: TMenuItem;
  N3: TMenuItem;
  pnlView: TPanel;
  txtView: TVA508StaticText;
  mnuActUnhold: TMenuItem;
  procedure mnuChartTabClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure lstMedsMeasureItem(Control: TWinControl; Index: Integer;
    var AHeight: Integer);
  procedure lstMedsDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure mnuViewDetailClick(Sender: TObject);
  procedure lstMedsExit(Sender: TObject);
  procedure lstMedsDblClick(Sender: TObject);
  procedure lstMedsInClick(Sender: TObject);
  procedure lstMedsOutClick(Sender: TObject);
  procedure hdrMedsOutSectionResize(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure hdrMedsInSectionResize(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure mnuActDCClick(Sender: TObject);
  procedure mnuActHoldClick(Sender: TObject);
  procedure mnuActRenewClick(Sender: TObject);
  procedure mnuActChangeClick(Sender: TObject);
  procedure mnuActCopyClick(Sender: TObject);
  procedure mnuActNewClick(Sender: TObject);
  procedure mnuActRefillClick(Sender: TObject);
  procedure mnuActClick(Sender: TObject);
  procedure mnuViewHistoryClick(Sender: TObject);
  procedure popMedPopup(Sender: TObject);
  procedure mnuViewClick(Sender: TObject);
  procedure lstMedsNonVAClick(Sender: TObject);
  procedure lstMedsNonVADblClick(Sender: TObject);
  procedure lstMedsNonVAExit(Sender: TObject);
  procedure hdrMedsNonVASectionResize(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure FormResize(Sender: TObject);
  procedure hdrMedsOutResize(Sender: TObject);
  procedure hdrMedsNonVAResize(Sender: TObject);
  procedure hdrMedsInResize(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure splitBottomMoved(Sender: TObject);
  procedure splitTopMoved(Sender: TObject);
  procedure hdrMedsOutMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure hdrMedsNonVAMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure hdrMedsInMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure hdrMedsOutMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure hdrMedsNonVAMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure hdrMedsInMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure ActivateDeactiveRenew(AListBox: TListBox);
  procedure ViewInfo(Sender: TObject);
  procedure mnuViewInformationClick(Sender: TObject);
  procedure mnuOptimizeFieldsClick(Sender: TObject);
  procedure hdrMedsOutSectionClick(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure hdrMedsNonVASectionClick(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure hdrMedsInSectionClick(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure SortbyStatusthenLocation1Click(Sender: TObject);
  procedure SortbyClinicOrderthenStatusthenStopDate1Click(
    Sender: TObject);
  procedure SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click(
    Sender: TObject);
  procedure mnuActUnholdClick(Sender: TObject);
private
  FIterating: Boolean;
  FActionOnMedsTab: Boolean;
  FParentComplexOrderID: string;
  uMedListIn: TList;
  uMedListOut: TList;
  uMedListNonVA: TList;
  uPendingChanges: TStringList;
  uDGrp: array[0..6] of Integer;
  uPharmacyOrdersIn: TStringList;
  uPharmacyOrdersOut: TStringList;
  uNonVAOrdersOut:  TStringList;
  ChildODList: TStringList;
  FSortView: integer;
  function ListSelected(const ErrMsg: string): TListBox;
  procedure ValidateSelected(AListBox: TListBox; const AnAction, WarningMsg, WarningTitle: string);
  procedure MakeSelectedList(AListBox: TListBox; AList: TList; ActName: String = '');
  procedure SynchListToOrders(AListBox: TListBox; AList: TList);
  function GetActionText(const AMed: TMedListRec): string;
  function GetInstructText(const AMed: TMedListRec; var Detail: string): string;
  function GetListText(const AMed: TMedListRec; Column: integer; var Detail: string): string;
  function GetPlainText(Control: TWinControl; Index: integer): string;
  function GetHeader(Control: TWinControl): THeaderControl;
  function GetMedList(Control: TWinControl): TList;
  function GetPharmacyOrders(Control: TWinControl): TStringList;
  //function PatientStatusChanged: boolean;
  procedure ClearChildODList;
  procedure SetViewCaption(Caption : String);
  procedure lstMedsInRightClickHandler(var Msg: TMessage; var Handled: Boolean);
  procedure lstMedsNonVARightClickHandler(var Msg: TMessage; var Handled: Boolean);
  procedure lstMedsOutRightClickHandler(var Msg: TMessage; var Handled: Boolean);
public
  procedure RefreshMedLists;
  procedure ClearPtData; override;
  procedure DisplayPage; override;
  procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override;
  procedure SetFontSize( FontSize: integer); override;
  property ActionOnMedsTab: boolean     read FActionOnMedsTab;
  property ParentComplexOrderID: string read FParentComplexOrderID  write FParentComplexOrderID;
  procedure InitfMedsSize;
  procedure SetSectionWidths(Sender: TObject);
  function GetTotalSectionsWidth(Sender: TObject) : integer;
  function CheckMedStatus(ActiveList: TListBox): boolean;
  property SortView: integer read FSortView write FSortView;
end;

DFM Objects


frmMeds : TfrmMeds
 ├shpPageBottom : TShape
 ├splitTop : TSplitter
 ├pnlBottom : TORAutoPanel
 │ ├splitBottom : TSplitter
 │ ├pnlMedIn : TPanel
 │ │ ├lstMedsIn : TCaptionListBox
 │ │ └hdrMedsIn : THeaderControl
 │ └pnlNonVA : TPanel
 │   ├lstMedsNonVA : TCaptionListBox
 │   └hdrMedsNonVA : THeaderControl
 ├pnlTop : TORAutoPanel
 │ ├lstMedsOut : TCaptionListBox
 │ └hdrMedsOut : THeaderControl
 ├pnlView : TPanel
 │ └txtView : TVA508StaticText
 ├amgrMain : TVA508AccessibilityManager
 ├mnuMeds : 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
 │ │ ├Z2 : TMenuItem
 │ │ ├mnuViewActive : TMenuItem
 │ │ ├mnuViewExpiring : TMenuItem
 │ │ ├Z3 : TMenuItem
 │ │ ├mnuViewSortClass : TMenuItem
 │ │ ├Z4 : TMenuItem
 │ │ ├mnuViewDetail : TMenuItem
 │ │ ├mnuViewSortName : TMenuItem
 │ │ ├mnuViewHistory : TMenuItem
 │ │ ├N3 : TMenuItem
 │ │ ├SortbyStatusthenLocation1 : TMenuItem
 │ │ ├SortbyClinicOrderthenStatusthenStopDate1 : TMenuItem
 │ │ └SortbyDrugalphabeticallystatusactivestatusrecentexpired1 : TMenuItem
 │ └mnuAct : TMenuItem
 │   ├mnuActNew : TMenuItem
 │   ├Z1 : TMenuItem
 │   ├mnuActChange : TMenuItem
 │   ├mnuActDC : TMenuItem
 │   ├mnuActUnhold : TMenuItem
 │   ├mnuActHold : TMenuItem
 │   ├mnuActRenew : TMenuItem
 │   ├mnuActCopy : TMenuItem
 │   ├mnuActTransfer : TMenuItem
 │   └mnuActRefill : TMenuItem
 └popMed : TPopupMenu
   ├popMedDetails : TMenuItem
   ├popMedHistory : TMenuItem
   ├N1 : TMenuItem
   ├popMedChange : TMenuItem
   ├popMedDC : TMenuItem
   ├popMedRefill : TMenuItem
   ├popMedRenew : TMenuItem
   ├N2 : TMenuItem
   ├popMedNew : TMenuItem
   └mnuOptimizeFields : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
ChildODList TStringList Private -
FActionOnMedsTab Boolean Private -
FIterating Boolean Private -
FParentComplexOrderID UnicodeString Private -
FSortView Integer Private -
hdrMedsIn THeaderControl Public/Published -
hdrMedsNonVA THeaderControl Public/Published -
hdrMedsOut THeaderControl Public/Published -
lstMedsIn TCaptionListBox Public/Published -
lstMedsNonVA TCaptionListBox Public/Published -
lstMedsOut TCaptionListBox Public/Published -
mnuAct TMenuItem Public/Published -
mnuActChange TMenuItem Public/Published -
mnuActCopy TMenuItem Public/Published -
mnuActDC TMenuItem Public/Published -
mnuActHold TMenuItem Public/Published -
mnuActNew TMenuItem Public/Published -
mnuActRefill TMenuItem Public/Published -
mnuActRenew TMenuItem Public/Published -
mnuActTransfer TMenuItem Public/Published -
mnuActUnhold 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 -
mnuMeds Simple (unknown) Public/Published -
mnuOptimizeFields TMenuItem Public/Published -
mnuView TMenuItem Public/Published -
mnuViewActive TMenuItem Public/Published -
mnuViewChart TMenuItem Public/Published -
mnuViewDemo TMenuItem Public/Published -
mnuViewDetail TMenuItem Public/Published -
mnuViewExpiring TMenuItem Public/Published -
mnuViewFlags TMenuItem Public/Published -
mnuViewHistory 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 -
mnuViewSortClass TMenuItem Public/Published -
mnuViewSortName TMenuItem Public/Published -
mnuViewVisits TMenuItem Public/Published -
N1 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N3 TMenuItem Public/Published -
pnlBottom Simple (unknown) Public/Published -
pnlMedIn TPanel Public/Published -
pnlNonVA TPanel Public/Published -
pnlTop Simple (unknown) Public/Published -
pnlView TPanel Public/Published -
popMed TPopupMenu Public/Published -
popMedChange TMenuItem Public/Published -
popMedDC TMenuItem Public/Published -
popMedDetails TMenuItem Public/Published -
popMedHistory TMenuItem Public/Published -
popMedNew TMenuItem Public/Published -
popMedRefill TMenuItem Public/Published -
popMedRenew TMenuItem Public/Published -
SortbyClinicOrderthenStatusthenStopDate1 TMenuItem Public/Published -
SortbyDrugalphabeticallystatusactivestatusrecentexpired1 TMenuItem Public/Published -
SortbyStatusthenLocation1 TMenuItem Public/Published -
splitBottom TSplitter Public/Published -
splitTop TSplitter Public/Published -
txtView TVA508StaticText Public/Published -
uDGrp Array (static) Private -
uMedListIn TList Private -
uMedListNonVA TList Private -
uMedListOut TList Private -
uNonVAOrdersOut TStringList Private -
uPendingChanges TStringList Private -
uPharmacyOrdersIn TStringList Private -
uPharmacyOrdersOut TStringList Private -
Z1 TMenuItem Public/Published -
Z2 TMenuItem Public/Published -
Z3 TMenuItem Public/Published -
Z4 TMenuItem Public/Published -

Properties

Name Type Scope Comments
ActionOnMedsTab Boolean Public -
ParentComplexOrderID UnicodeString Public -
SortView Integer Public -

Methods

Name Declaration Scope Comments
ActivateDeactiveRenew procedure ActivateDeactiveRenew(AListBox: TListBox); Public/Published -
CheckMedStatus function CheckMedStatus(ActiveList: TListBox): boolean; Public -
ClearChildODList procedure ClearChildODList; Private Function PatientStatusChanged: boolean;
ClearPtData procedure ClearPtData; override; Public TPage common methods ---------------------------------------------------------------------
DisplayPage procedure DisplayPage; override; Public -
FormCreate procedure FormCreate(Sender: TObject); Public/Published Form events ------------------------------------------------------------------------------
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormMouseUp procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetActionText function GetActionText(const AMed: TMedListRec): string; Private -
GetHeader function GetHeader(Control: TWinControl): THeaderControl; Private -
GetInstructText function GetInstructText(const AMed: TMedListRec; var Detail: string): string; Private -
GetListText function GetListText(const AMed: TMedListRec; Column: integer; var Detail: string): string; Private -
GetMedList function GetMedList(Control: TWinControl): TList; Private -
GetPharmacyOrders function GetPharmacyOrders(Control: TWinControl): TStringList; Private -
GetPlainText function GetPlainText(Control: TWinControl; Index: integer): string; Private -
GetTotalSectionsWidth function GetTotalSectionsWidth(Sender: TObject) : integer; Public
Function TfrmMeds.PatientStatusChanged: boolean;
const

  msgTxt1 = 'Patient status was changed from ';
  msgTxt2 = 'CPRS needs to refresh patient information to display patient latest record.';
   //GE CQ9537  - Change message text
  msgTxt3 = 'Patient has been admitted.';
  msgTxt4 = CRLF +'You will be prompted to sign your orders.  Any new orders subsequently' +
            CRLF + 'entered and signed will be directed to the inpatient staff.';

var
  PtSelect: TPtSelect;
  IsInpatientNow: boolean;
  ptSts: string;
begin
  result := False;
  SelectPatient(Patient.DFN, PtSelect);
  IsInpatientNow := Length(PtSelect.Location) > 0;
   //GE CQ9537  - Change message text
  if Patient.Inpatient <> IsInpatientNow then
  begin
    if (not Patient.Inpatient) then MessageDlg(msgTxt3 + msgTxt4, mtWarning, [mbOK], 0);
    if Patient.Inpatient then ptSts := 'Inpatient to Outpatient.';
    MessageDlg(msgTxt1 + ptSts + #13#10#13 + msgTxt2, mtWarning, [mbOK], 0);
    frmFrame.mnuFileRefreshClick(Application);
    Result := True;
  end;
end;

CQ7586
Return stored values of column widths
hdrMedsInMouseDown procedure hdrMedsInMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
hdrMedsInMouseUp procedure hdrMedsInMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published CQ7586
hdrMedsInResize procedure hdrMedsInResize(Sender: TObject); Public/Published -
hdrMedsInSectionClick procedure hdrMedsInSectionClick(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
hdrMedsInSectionResize procedure hdrMedsInSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
hdrMedsNonVAMouseDown procedure hdrMedsNonVAMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
hdrMedsNonVAMouseUp procedure hdrMedsNonVAMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published CQ7586
hdrMedsNonVAResize procedure hdrMedsNonVAResize(Sender: TObject); Public/Published -
hdrMedsNonVASectionClick procedure hdrMedsNonVASectionClick(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
hdrMedsNonVASectionResize procedure hdrMedsNonVASectionResize(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
hdrMedsOutMouseDown procedure hdrMedsOutMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
hdrMedsOutMouseUp procedure hdrMedsOutMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published CQ7586
hdrMedsOutResize procedure hdrMedsOutResize(Sender: TObject); Public/Published -
hdrMedsOutSectionClick procedure hdrMedsOutSectionClick(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
hdrMedsOutSectionResize procedure hdrMedsOutSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
InitfMedsSize procedure InitfMedsSize; Public -
ListSelected function ListSelected(const ErrMsg: string): TListBox; Private
Action utilities --------------------------------------------------------------------------- 

 return selected listbox - inpatient or outpatient
lstMedsDblClick procedure lstMedsDblClick(Sender: TObject); Public/Published -
lstMedsDrawItem procedure lstMedsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
lstMedsExit procedure lstMedsExit(Sender: TObject); Public/Published -
lstMedsInClick procedure lstMedsInClick(Sender: TObject); Public/Published -
lstMedsInRightClickHandler procedure lstMedsInRightClickHandler(var Msg: TMessage; var Handled: Boolean); Private -
lstMedsMeasureItem procedure lstMedsMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); Public/Published -
lstMedsNonVAClick procedure lstMedsNonVAClick(Sender: TObject); Public/Published -
lstMedsNonVADblClick procedure lstMedsNonVADblClick(Sender: TObject); Public/Published -
lstMedsNonVAExit procedure lstMedsNonVAExit(Sender: TObject); Public/Published -
lstMedsNonVARightClickHandler procedure lstMedsNonVARightClickHandler(var Msg: TMessage; var Handled: Boolean); Private -
lstMedsOutClick procedure lstMedsOutClick(Sender: TObject); Public/Published -
lstMedsOutRightClickHandler procedure lstMedsOutRightClickHandler(var Msg: TMessage; var Handled: Boolean); Private -
MakeSelectedList procedure MakeSelectedList(AListBox: TListBox; AList: TList; ActName: String = ''); Private Make a list of selected med orders
mnuActChangeClick procedure mnuActChangeClick(Sender: TObject); Public/Published
Loop thru selected med orders, present ordering dialog for each with defaults to selected order 
 similar to action on fOrders
mnuActClick procedure mnuActClick(Sender: TObject); Public/Published Action menu events ----------------------------------------------------------------------
mnuActCopyClick procedure mnuActCopyClick(Sender: TObject); Public/Published
Loop thru selected med orders, present ordering dialog for each with defaults to selected order 
 similar to action on fOrders
mnuActDCClick procedure mnuActDCClick(Sender: TObject); Public/Published
Discontinue/cancel/delete the selected med orders as appropriate for each order 
 similar to action on fOrders
mnuActHoldClick procedure mnuActHoldClick(Sender: TObject); Public/Published
Hold the selected med orders as appropriate for each order 
 similar to action on fOrders
mnuActNewClick procedure mnuActNewClick(Sender: TObject); Public/Published
New med orders dependent on order dialog for inpatient or outpatient 
 similar to lstWriteClick on fOrders
mnuActRefillClick procedure mnuActRefillClick(Sender: TObject); Public/Published For selected orders, present refill dialog
mnuActRenewClick procedure mnuActRenewClick(Sender: TObject); Public/Published
Renew the selected med orders as appropriate for each order 
 similar to action on fOrders
mnuActUnholdClick procedure mnuActUnholdClick(Sender: TObject); Public/Published -
mnuChartTabClick procedure mnuChartTabClick(Sender: TObject); Public/Published -
mnuOptimizeFieldsClick procedure mnuOptimizeFieldsClick(Sender: TObject); Public/Published -
mnuViewClick procedure mnuViewClick(Sender: TObject); Public/Published -
mnuViewDetailClick procedure mnuViewDetailClick(Sender: TObject); Public/Published View menu events -------------------------------------------------------------------------
mnuViewHistoryClick procedure mnuViewHistoryClick(Sender: TObject); Public/Published -
mnuViewInformationClick procedure mnuViewInformationClick(Sender: TObject); Public/Published -
NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; Public -
popMedPopup procedure popMedPopup(Sender: TObject); Public/Published -
RefreshMedLists procedure RefreshMedLists; Public Listbox events ---------------------------------------------------------------------------
SetFontSize procedure SetFontSize( FontSize: integer); override; Public -
SetSectionWidths procedure SetSectionWidths(Sender: TObject); Public
CQ7586
Copy values of column widths into array variables.
SetViewCaption procedure SetViewCaption(Caption : String); Private -
SortbyClinicOrderthenStatusthenStopDate1Click procedure SortbyClinicOrderthenStatusthenStopDate1Click( Sender: TObject); Public/Published -
SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click procedure SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click( Sender: TObject); Public/Published -
SortbyStatusthenLocation1Click procedure SortbyStatusthenLocation1Click(Sender: TObject); Public/Published -
splitBottomMoved procedure splitBottomMoved(Sender: TObject); Public/Published -
splitTopMoved procedure splitTopMoved(Sender: TObject); Public/Published -
SynchListToOrders procedure SynchListToOrders(AListBox: TListBox; AList: TList); Private -
ValidateSelected procedure ValidateSelected(AListBox: TListBox; const AnAction, WarningMsg, WarningTitle: string); Private Loop to validate action on each selected med order, deselect if not valid
ViewInfo procedure ViewInfo(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fFrame (3378) - Read
fMeds (213) frmMeds Read
fMeds (2202) - Read