Function

TfrmMeds.GetListText

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmMeds

Declaration

function GetListText(const AMed: TMedListRec; Column: integer; var Detail: string): string;

Calls Hierarchy


TfrmMeds.GetListText
 ├TfrmMeds.GetActionText
 └TfrmMeds.GetInstructText

Called-By Hierarchy


                                                        TfrmMeds.GetListText
                                                     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.lstMedsDrawItem┘ 

Calls

Name Declaration Comments
TfrmMeds.GetActionText function GetActionText(const AMed: TMedListRec): string; -
TfrmMeds.GetInstructText function GetInstructText(const AMed: TMedListRec; var Detail: string): string; -

Called-By

Name Declaration Comments
TfrmMeds.GetPlainText function GetPlainText(Control: TWinControl; Index: integer): string; -
TfrmMeds.lstMedsDrawItem procedure lstMedsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); -


Source

844   function TfrmMeds.GetListText(const AMed: TMedListRec; Column: integer; var Detail: string): string;
845   begin
846     result := '';
847     Detail := '';
848     if AMed.Status = 'Suspended' then AMed.Status := 'Active/Susp'; //HDS00007547	PSI-03-033 Interim Solution.
849     case Column of
850       0: result := GetActionText(AMed);
851       1: result := GetInstructText(AMed, Detail);
852       2: result := FormatFMDateTime('mm/dd/yy', AMed.StopDate);
853       3: result :=  AMed.Status;
854       4:
855        begin
856          if AMed.Inpatient then
857            result := MixedCase(AMed.Location)
858          else  result := FormatFMDateTime('mmm dd,yy', AMed.LastFill);
859        end;
860       5: result := AMed.Refills;
861       else
862     end;
863   end;