Function

TfrmMeds.GetMedList

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmMeds

Declaration

function GetMedList(Control: TWinControl): TList;

Called-By Hierarchy


                                                         TfrmMeds.GetMedList
                                                     TfrmMeds.GetPlainText┤ 
                                                    TfrmMeds.NotifyOrder┤ │ 
                                                  TfrmFrame.UMNewOrder┘ │ │ 
                                                TfrmMeds.RefreshMedLists┘ │ 
                                                  TfrmMeds.DisplayPage┤   │ 
                                               TfrmMeds.NotifyOrder...┤   │ 
                                                  TfrmMeds.SetFontSize┤   │ 
                                                TfrmFrame.ChangeFont┘ │   │ 
                                        TfrmFrame.LoadSizesForUser┤   │   │ 
                                   TfrmFrame.LoadUserPreferences┘ │   │   │ 
                                          TfrmFrame.UMInitiate┘   │   │   │ 
                                        TfrmFrame.mnuFontSizeClick┘   │   │ 
                               TfrmMeds.SortbyStatusthenLocation1Click┤   │ 
                TfrmMeds.SortbyClinicOrderthenStatusthenStopDate1Click┤   │ 
TfrmMeds.SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click┤   │ 
                                           TfrmOptionsOther.btnOKClick┘   │ 
                                               TfrmMeds.lstMedsMeasureItem┤ 
                                                  TfrmMeds.lstMedsDrawItem┤ 
                                                   TfrmMeds.CheckMedStatus┘ 
                                                TfrmMeds.mnuActHoldClick┤   
                                               TfrmMeds.mnuActRenewClick┤   
                                              TfrmMeds.mnuActUnholdClick┤   
                                              TfrmMeds.mnuActChangeClick┤   
                                                TfrmMeds.mnuActCopyClick┤   
                                              TfrmMeds.mnuActRefillClick┘   

Called-By

Name Declaration Comments
TfrmMeds.CheckMedStatus function CheckMedStatus(ActiveList: TListBox): boolean; -
TfrmMeds.GetPlainText function GetPlainText(Control: TWinControl; Index: integer): string; -
TfrmMeds.lstMedsDrawItem procedure lstMedsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); -
TfrmMeds.lstMedsMeasureItem procedure lstMedsMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); -


Source

896   function TFrmMeds.GetMedList(Control: TWinControl): TList;
897   begin
898     case Control.Tag of
899       TAG_OUTPT: result := uMedListOut;
900       TAG_NONVA: result := uMedListNonVA;
901       TAG_INPT:  result := uMedListIn;
902       else
903       result := nil;
904     end;
905   end;