Function

TfrmOrders.GetStartStopText

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmOrders

Declaration

function GetStartStopText(StartTime: string; StopTime: string): string;

Called-By Hierarchy


                                    TfrmOrders.GetStartStopText
                                      TfrmOrders.GetOrderText┘ 
                                    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┘     │   
                             TfrmOrders.MeasureColumnHeight┤   
                          TfrmOrders.lstOrdersMeasureItem┘ │   
                               TfrmOrders.lstOrdersDrawItem┘   

Called-By

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


Source

1354  function TfrmOrders.GetStartStopText(StartTime: string; StopTime: string): string;
1355  var
1356    y: string;
1357  begin
1358    result := FormatFMDateTimeStr('mm/dd/yy hh:nn', StartTime);
1359    if IsFMDateTime(StartTime) and (Length(StartTime) = FM_DATE_ONLY) then result := Piece(result, ' ', 1);
1360    if Length(result) > 0 then result := 'Start: ' + result;
1361    y := FormatFMDateTimeStr('mm/dd/yy hh:nn', StopTime);
1362    if IsFMDateTime(StopTime)  and (Length(StopTime)  = FM_DATE_ONLY) then y := Piece(y, ' ', 1);
1363    if Length(y) > 0 then result := result + CRLF + 'Stop: ' + y;
1364  end;