Function

TfrmMeds.GetActionText

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmMeds

Declaration

function GetActionText(const AMed: TMedListRec): string;

Called-By Hierarchy


                                                        TfrmMeds.GetActionText
                                                        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┘   

Called-By

Name Declaration Comments
TfrmMeds.GetListText function GetListText(const AMed: TMedListRec; Column: integer; var Detail: string): string; -


Source

797   function TfrmMeds.GetActionText(const AMed: TMedListRec): string;
798   var
799     AnAction: string;
800     Abbreviation: string;
801   begin
802     AnAction := uPendingChanges.Values[Piece(AMed.OrderID, ';', 1)];
803     Abbreviation := Piece(AnAction, U, 1);
804     result := '';
805     if Length(Abbreviation) > 0 then
806     begin
807       if CharAt(Abbreviation, 1) = 'X' then result := 'Change'
808       else if Abbreviation = 'NW' then result := 'New'
809       else if Abbreviation = 'RN' then result := 'Renew'
810       else if Abbreviation = 'RF' then result := 'Refill'
811       else if Abbreviation = 'HD' then result := 'Hold'
812       else if Abbreviation = 'DL' then result := 'Deleted'
813       else if Abbreviation = 'DC' then result := 'DC'
814       else if Abbreviation = 'UH' then result := 'Unhold'
815            
816       else result := Abbreviation;
817     end;
818   end;