Function

TfrmOrders.GetPlainText

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmOrders

Declaration

function GetPlainText(AnOrder: TOrder; index: integer):string;

Calls Hierarchy


TfrmOrders.GetPlainText
 └TfrmOrders.GetOrderText
   ├LoadFlagReason
   ├TfrmOrders.GetStartStopText
   └NameOfStatus

Called-By Hierarchy


                                    TfrmOrders.GetPlainText
                                   TfrmOrders.NotifyOrder┤ 
                                   TfrmFrame.UMNewOrder┘ │ 
                               TfrmOrders.RedrawOrderList┤ 
                              TfrmOrders.NotifyOrder...┤ │ 
                      TfrmOrders.hdrOrdersSectionResize┤ │ 
                    TfrmOrders.mnuOptimizeFieldsClick┘ │ │ 
                             TfrmFrame.WMSysCommand┤   │ │ 
                             TfrmOrders.SetFontSize┤   │ │ 
                             TfrmFrame.ChangeFont┘ │   │ │ 
                     TfrmFrame.LoadSizesForUser┤   │   │ │ 
                TfrmFrame.LoadUserPreferences┘ │   │   │ │ 
                       TfrmFrame.UMInitiate┘   │   │   │ │ 
                     TfrmFrame.mnuFontSizeClick┘   │   │ │ 
                   TfrmOrders.hdrOrdersSectionClick┤   │ │ 
                            TfrmOrders.sptHorzMoved┘   │ │ 
                           TfrmOrders.mnuActChangeClick┤ │ 
                              TfrmOrders.SetFontSize...┘ │ 
                             TfrmOrders.SynchListToOrders┤ 
                              TfrmOrders.NotifyOrder...┤ │ 
                               TfrmOrders.mnuActDCClick┤ │ 
                          TfrmOrders.mnuActChgEvntClick┤ │ 
                             TfrmOrders.mnuActHoldClick┤ │ 
                           TfrmOrders.mnuActUnholdClick┤ │ 
                            TfrmOrders.mnuActRenewClick┤ │ 
                         TfrmOrders.mnuActCompleteClick┤ │ 
                           TfrmOrders.mnuActVerifyClick┤ │ 
                         TfrmOrders.mnuActChartRevClick┤ │ 
                                TfrmOrders.RequestPrint┘ │ 
                          TfrmFrame.mnuFilePrintClick┘   │ 
                                  TfrmOrders.AddToListBox┘ 
                            TfrmOrders.RefreshOrderList┘   
                            TfrmOrders.NotifyOrder...┤     
                              TfrmOrders.SetOrderView┤     
                      TfrmOrders.mnuViewActiveClick┤ │     
                     TfrmOrders.mnuViewCurrentClick┤ │     
                    TfrmOrders.mnuViewExpiringClick┤ │     
                     TfrmOrders.mnuViewExpiredClick┤ │     
                    TfrmOrders.mnuViewUnsignedClick┤ │     
                  TfrmOrders.ProcessNotifications┘ │ │     
                         TfrmOrders.DisplayPage┘   │ │     
                       TfrmOrders.ViewAlertedOrders┘ │     
               TfrmOrders.ProcessNotifications...┘   │     
                        TfrmOrders.mnuViewCustomClick┤     
                      TfrmOrders.mnuViewDfltShowClick┤     
                             TfrmOrders.DisplayPage┘ │     
                            TfrmOrders.lstSheetsClick┤     
                       TfraEvntDelayList.CheckMatch┤ │     
                          TfrmOrdersTS.cmdOKClick┘ │ │     
TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick┤   │ │     
                       TfrmOrdersTS.FormKeyDown┘   │ │     
                 TfraEvntDelayList.mlstEventsChange┤ │     
   TfrmOrdersTS.fraEvntDelayListcboEvntListChange┤ │ │     
    TfrmOrdersTS.fraEvntDelayListmlstEventsChange┤ │ │     
    TfrmMedCopy.fraEvntDelayListcboEvntListChange┤ │ │     
     TfrmMedCopy.fraEvntDelayListmlstEventsChange┤ │ │     
 TfrmCopyOrders.fraEvntDelayListcboEvntListChange┤ │ │     
  TfrmCopyOrders.fraEvntDelayListmlstEventsChange┘ │ │     
                 TfrmOrders.mnuViewDfltShowClick...┤ │     
                                          ..(rec)..┤ │     
                           TfrmOrders.lstWriteClick┤ │     
                         TfrmOrders.mnuActCopyClick┤ │     
                         TfrmOrders.mnuActSignClick┤ │     
                          TfrmOrders.ResetOrderPage┤ │     
                  TfrmOrders.btnDelayedOrderClick┘ │ │     
              TfrmOrders.PlaceOrderForDefaultDialog┤ │     
                 TfrmOrders.DisplayDefaultDlgList┤ │ │     
                   TfrmOrders.ResetOrderPage...┘ │ │ │     
                                DisplayEvntDialog┤ │ │     
                            SetDelayEventForMed┘ │ │ │     
                     TfrmMeds.mnuActCopyClick┘   │ │ │     
                                DisplayEvntDialog┤ │ │     
                                 SetViewForCopy┘ │ │ │     
                   TfrmOrders.mnuActCopyClick┘   │ │ │     
                                DisplayEvntDialog┘ │ │     
                               ExecuteChangeEvt┘   │ │     
                TfrmOrders.mnuActChgEvntClick┘     │ │     
                           TfrmOrders.ClickLstSheet┤ │     
            TfraEvntDelayList.mlstEventsChange...┤ │ │     
                     TfrmOrders.ResetOrderPage...┤ │ │     
                        ExecuteReleaseEventOrders┘ │ │     
                      TfrmOrders.mnuActRelClick┘   │ │     
                        TfrmOrders.InitOrderSheets2┤ │     
                     TfrmFrame.mnuFileReviewClick┘ │ │     
                          TfrmOrders.PtEvtCompleted┤ │     
                       TfrmFrame.DetermineNextTab┤ │ │     
                     TfrmFrame.mnuFileOpenClick┤ │ │ │     
                         TfrmFrame.UMInitiate┤ │ │ │ │     
                   TfrmFrame.mnuFileNextClick┤ │ │ │ │     
              TfrmFrame.mnuFileOpenClick...┤ │ │ │ │ │     
          TfrmFrame.mnuFileNotifRemoveClick┤ │ │ │ │ │     
                  TfrmFrame.NextButtonClick┘ │ │ │ │ │     
                TfrmFrame.SetUpNextButton┘   │ │ │ │ │     
          TfrmFrame.mnuFileOpenClick...┤     │ │ │ │ │     
                   TfrmFrame.FormResize┘     │ │ │ │ │     
              TfrmFrame.ChangeFont...┘       │ │ │ │ │     
                TfrmFrame.mnuFileRefreshClick┤ │ │ │ │     
                TfrmOrders.CheckOrderStatus┤ │ │ │ │ │     
            TfrmOrders.mnuActChgEvntClick┤ │ │ │ │ │ │     
               TfrmOrders.mnuActHoldClick┤ │ │ │ │ │ │     
             TfrmOrders.mnuActUnholdClick┤ │ │ │ │ │ │     
              TfrmOrders.mnuActRenewClick┤ │ │ │ │ │ │     
             TfrmOrders.mnuActChangeClick┤ │ │ │ │ │ │     
               TfrmOrders.mnuActCopyClick┘ │ │ │ │ │ │     
                     TfrmMeds.mnuActDCClick┤ │ │ │ │ │     
                    TfrmMeds.CheckMedStatus┘ │ │ │ │ │     
                 TfrmMeds.mnuActHoldClick┤   │ │ │ │ │     
                TfrmMeds.mnuActRenewClick┤   │ │ │ │ │     
               TfrmMeds.mnuActUnholdClick┤   │ │ │ │ │     
               TfrmMeds.mnuActChangeClick┤   │ │ │ │ │     
                 TfrmMeds.mnuActCopyClick┤   │ │ │ │ │     
               TfrmMeds.mnuActRefillClick┘   │ │ │ │ │     
                           TfrmFrame.ViewInfo┘ │ │ │ │     
                        TfrmDCSumm.ViewInfo┤   │ │ │ │     
                      TfrmConsults.ViewInfo┤   │ │ │ │     
              TfrmFrame.pnlRemindersMouseUp┤   │ │ │ │     
               TfrmFrame.RemindersChanged┘ │   │ │ │ │     
                   TfrmFrame.FormCreate┘   │   │ │ │ │     
                     TfrmFrame.pnlCIRNClick┤   │ │ │ │     
               TfrmFrame.pnlVistaWebClick┤ │   │ │ │ │     
                    TfrmFrame.FormKeyDown┘ │   │ │ │ │     
                  TfrmFrame.pnlPatientClick┤   │ │ │ │     
                    TfrmFrame.pnlVisitClick┤   │ │ │ │     
              TfrmFrame.pnlPrimaryCareClick┤   │ │ │ │     
                TfrmFrame.pnlRemindersClick┤   │ │ │ │     
                 TfrmFrame.pnlPostingsClick┤   │ │ │ │     
                     TfrmFrame.pnlFlagClick┤   │ │ │ │     
                       TfrmFrame.laMHVClick┤   │ │ │ │     
                      TfrmFrame.laVAA2Click┤   │ │ │ │     
                        TfrmOrders.ViewInfo┤   │ │ │ │     
                          TfrmMeds.ViewInfo┤   │ │ │ │     
                       TfrmSurgery.ViewInfo┤   │ │ │ │     
                         TfrmNotes.ViewInfo┤   │ │ │ │     
                      TfrmProblems.ViewInfo┘   │ │ │ │     
                    TfrmFrame.UpdateCCOWContext┘ │ │ │     
                TfrmFrame.mnuFileOpenClick...┤   │ │ │     
              TfrmFrame.ctxContextorCommitted┤   │ │ │     
               TfrmFrame.StartCCOWContextor┘ │   │ │ │     
                     TfrmFrame.FormCreate┘   │   │ │ │     
       TfrmFrame.mnuFileResumeContextGetClick┘   │ │ │     
                     TfrmFrame.mnuFileReviewClick┤ │ │     
                     TfrmOrders.lstSheetsClick...┤ │ │     
                         TfrmOrders.lstWriteClick┤ │ │     
                         TfrmOrders.mnuActDCClick┤ │ │     
                    TfrmOrders.mnuActChgEvntClick┤ │ │     
                       TfrmOrders.mnuActHoldClick┤ │ │     
                       TfrmOrders.mnuActFlagClick┤ │ │     
                    TfrmOrders.mnuActCommentClick┤ │ │     
                     TfrmOrders.mnuActChangeClick┤ │ │     
                       TfrmOrders.mnuActCopyClick┤ │ │     
                       TfrmOrders.mnuActSignClick┤ │ │     
                  TfrmOrders.btnDelayedOrderClick┤ │ │     
                         TfrmMeds.mnuActCopyClick┤ │ │     
                          TfrmODActive.btnOKClick┘ │ │     
                            TfrmOrders.UMEventOccur┤ │     
                           TfrmMeds.mnuActCopyClick┤ │     
                            TfrmMeds.mnuActNewClick┤ │     
                             SetDelayEventForMed...┤ │     
                                  SetViewForCopy...┤ │     
                          TfrmCopyOrders.cmdOKClick┤ │     
                      TfrmCopyOrders.UMStillDelay┤ │ │     
TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick┤ │ │     
                       TfrmCopyOrders.FormKeyDown┘ │ │     
                                ExecuteChangeEvt...┤ │     
                                    ExecuteDCOrders┘ │     
                         TfrmOrders.mnuActDCClick┤   │     
                           TfrmMeds.mnuActDCClick┘   │     
                            TfrmOrders.SaveSignOrders┤     
                          TfrmOrders.NotifyOrder...┘ │     
                           TfrmOrders.mnuActSignClick┤     
                 TfrmOrders.EventRealeasedOrder1Click┤     
                         TfrmOrders.ResetOrderPage...┤     
                         TfrmOrders.PtEvtCompleted...┤     
                        TfrmOrders.RefreshToFirstItem┤     
                              TfrmOrders.UMEventOccur┤     
                          TfrmOrders.hdrOrdersMouseUp┘     

Calls

Name Declaration Comments
TfrmOrders.GetOrderText function GetOrderText(AnOrder: TOrder; Index: integer; Column: integer): string; -

Called-By

Name Declaration Comments
TfrmOrders.AddToListBox procedure AddToListBox(AnOrderList: TList); -
TfrmOrders.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -
TfrmOrders.RedrawOrderList procedure RedrawOrderList; -
TfrmOrders.SynchListToOrders procedure SynchListToOrders; -


Source

1294  function TfrmOrders.GetPlainText(AnOrder: TOrder; index: integer):string;
1295  var
1296    i: integer;
1297    FirstColumnDisplayed: Integer;
1298    x: string;
1299  begin
1300    result := '';
1301    if hdrOrders.Sections[0].Text = 'Event' then
1302      FirstColumnDisplayed := 0
1303    else
1304      FirstColumnDisplayed := 1;
1305    for i:= FirstColumnDisplayed to 9 do begin
1306      x := GetOrderText(AnOrder, index, i);
1307      if x <> '' then
1308        result := result + hdrOrders.Sections[i].Text + ': ' + x + CRLF;
1309    end;
1310  end;