Procedure

TfrmOrders.InitOrderSheetsForEvtDelay

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Procedure TfrmOrders.SetEvtIFN(var AnEvtIFN: integer);
var
  APtEvntID,AnEvtInfo: string;
begin
  if lstSheets.ItemIndex < 0 then
    APtEvntID := Piece(lstSheets.Items[0],'^',1)
  else
    APtEvntID := Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1);
  if CharAt(APtEvntID,1) <> 'C' then
  begin
    if Pos('EVT',APtEvntID)>0 then
      AnEvtIFN  := StrToIntDef(Piece(APtEvntID,';',1),0)
    else
    begin
      AnEvtInfo := EventInfo(APtEvntID);
      AnEvtIFN  := StrToIntDef(Piece(AnEvtInfo,'^',2),0);
    end;
  end else
    AnEvtIFN := 0;
end;

Visibility

Public

Owner

TfrmOrders

Declaration

procedure InitOrderSheetsForEvtDelay;

Calls Hierarchy


TfrmOrders.InitOrderSheetsForEvtDelay
 ├TfrmOrders.InitOrderSheets
 │ ├TfrmOrders.ClearOrderSheets
 │ ├LoadOrderSheetsED
 │ ├DGroupAll
 │ └EventInfo
 └TfrmOrders.DfltViewForEvtDelay
   ├TfrmOrders.CanChangeOrderView
   │ └ActiveOrdering
   └LoadOrderViewDefault

Called-By Hierarchy


                  TfrmOrders.InitOrderSheetsForEvtDelay
                            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┤ │ 
                           TfrmOrders.DisplayPage┘ │ │ 
                                          ..(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.LoadSizesForUser┤         │ │ │ │ │ 
    TfrmFrame.LoadUserPreferences┘ │         │ │ │ │ │ 
           TfrmFrame.UMInitiate┘   │         │ │ │ │ │ 
         TfrmFrame.mnuFontSizeClick┘         │ │ │ │ │ 
                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.lstWriteClick┤ 
                           TfrmOrders.mnuActCopyClick┤ 
                           TfrmOrders.mnuActSignClick┤ 
                         TfrmOrders.PtEvtCompleted...┤ 
                        TfrmOrders.RefreshToFirstItem┤ 
                              TfrmOrders.UMEventOccur┤ 
                             TfrmMeds.mnuActCopyClick┤ 
                                            Highlight┤ 
                             SetDelayEventForMed...┘ │ 
                                            Highlight┤ 
                                  SetViewForCopy...┘ │ 
                         ExecuteReleaseEventOrders...┤ 
                                  ExecuteChangeEvt...┤ 
                               TfrmChgEvent.Highlight┤ 
                                ExecuteChangeEvt...┘ │ 
                                   ExecuteDCOrders...┘ 

Calls

Name Declaration Comments
TfrmOrders.DfltViewForEvtDelay procedure DfltViewForEvtDelay; -
TfrmOrders.InitOrderSheets procedure InitOrderSheets; -

Called-By

Name Declaration Comments
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -
ExecuteDCOrders function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; -
ExecuteReleaseEventOrders function ExecuteReleaseEventOrders(AnOrderList: TList): boolean; -
Highlight procedure Highlight(APtEvtID: string); -
Highlight procedure Highlight(APtEvtID: string); -
TfrmChgEvent.Highlight procedure Highlight(APtEvtID: string); -
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -
TfrmOrders.lstWriteClick procedure lstWriteClick(Sender: TObject); -
TfrmOrders.mnuActCopyClick procedure mnuActCopyClick(Sender: TObject); -
TfrmMeds.mnuActCopyClick procedure mnuActCopyClick(Sender: TObject); -
TfrmOrders.mnuActSignClick procedure mnuActSignClick(Sender: TObject); -
TfrmOrders.PtEvtCompleted function PtEvtCompleted(APtEvtID: integer; APtEvtName: string; FromMeds: boolean = False; Signing: boolean = False): boolean; -
TfrmOrders.RefreshToFirstItem procedure RefreshToFirstItem; -
TfrmOrders.UMEventOccur procedure UMEventOccur(var Message: TMessage); message UM_EVENTOCCUR; -


Source

2735  procedure TfrmOrders.InitOrderSheetsForEvtDelay;
2736  begin
2737    InitOrderSheets;
2738    DfltViewForEvtDelay;
2739  end;