Function

TfrmOrders.PtEvtCompleted

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Owner

TfrmOrders

Declaration

function PtEvtCompleted(APtEvtID: integer; APtEvtName: string; FromMeds: boolean = False; Signing: boolean = False): boolean;

Calls Hierarchy


TfrmOrders.PtEvtCompleted
 ├IsCompletedPtEvt
 ├TfrmOrders.GroupChangesUpdate
 │ ├TChanges.ChangeOrderGrp
 │ └TChanges.ReplaceODGrpName
 ├TfrmOrders.InitOrderSheetsForEvtDelay
 │ ├TfrmOrders.InitOrderSheets
 │ │ ├TfrmOrders.ClearOrderSheets
 │ │ ├LoadOrderSheetsED
 │ │ ├DGroupAll
 │ │ └EventInfo
 │ └TfrmOrders.DfltViewForEvtDelay
 │   ├TfrmOrders.CanChangeOrderView
 │   │ └ActiveOrdering
 │   └LoadOrderViewDefault
 ├TfrmOrders.lstSheetsClick
 │ ├CloseOrdering
 │ ├TfrmOrders.PtEvtCompleted...
 │ ├DeleteEmptyEvt
 │ │ ├PtEvtEmpty
 │ │ ├GetEventName
 │ │ └DeletePtEvent
 │ ├TfrmOrders.ChangesUpdate
 │ │ ├TheParentPtEvt
 │ │ └TChanges.Remove
 │ │   ├UnlockOrder
 │ │   └UnlockDocument
 │ ├TfrmOrders.InitOrderSheetsForEvtDelay...
 │ ├..(rec)..
 │ ├LoadWriteOrdersED
 │ ├LoadWriteOrders
 │ ├TfrmOrders.RefreshOrderList
 │ │ ├LoadOrdersAbbr
 │ │ │ ├ClearOrders
 │ │ │ ├LoadDGroupMap
 │ │ │ ├ExpiredOrdersStartDT
 │ │ │ ├FMNow
 │ │ │ └SeqOfDGroup
 │ │ │   └LoadDGroupMap
 │ │ ├ClearOrders
 │ │ ├LoadOrdersAbbr
 │ │ │ ├LoadDGroupMap
 │ │ │ ├FMNow
 │ │ │ └SeqOfDGroup...
 │ │ ├TfrmOrders.ExpandEventSection
 │ │ ├TfrmOrders.CompressEventSection
 │ │ ├SortOrders
 │ │ │ ├InverseByGroup
 │ │ │ │ └TChanges.Exist
 │ │ │ ├ForwardByGroup
 │ │ │ │ └TChanges.Exist
 │ │ │ ├InverseChrono
 │ │ │ └ForwardChrono
 │ │ ├TfrmOrders.AddToListBox
 │ │ │ └TfrmOrders.GetPlainText
 │ │ │   └TfrmOrders.GetOrderText
 │ │ │     ├LoadFlagReason
 │ │ │     ├TfrmOrders.GetStartStopText
 │ │ │     └NameOfStatus
 │ │ └DGroupAll
 │ ├PtEvtEmpty
 │ └DeletePtEvent
 └TfrmOrders.RefreshOrderList...

Called-By Hierarchy


                              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┤ 
                       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...┤ │ 
                            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.mnuActDCClick┤ 
                        TfrmOrders.mnuActChgEvntClick┤ 
                           TfrmOrders.mnuActHoldClick┤ 
                           TfrmOrders.mnuActFlagClick┤ 
                        TfrmOrders.mnuActCommentClick┤ 
                         TfrmOrders.mnuActChangeClick┤ 
                           TfrmOrders.mnuActCopyClick┤ 
                           TfrmOrders.mnuActSignClick┤ 
                      TfrmOrders.btnDelayedOrderClick┤ 
                             TfrmMeds.mnuActCopyClick┤ 
                              TfrmODActive.btnOKClick┘ 

Calls

Name Declaration Comments
TfrmOrders.GroupChangesUpdate procedure GroupChangesUpdate(GrpName: string); -
TfrmOrders.InitOrderSheetsForEvtDelay procedure InitOrderSheetsForEvtDelay; -
IsCompletedPtEvt function IsCompletedPtEvt(APtEvtID: integer): boolean; -
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -

Called-By

Name Declaration Comments
TfrmOrders.btnDelayedOrderClick procedure btnDelayedOrderClick(Sender: TObject); -
TfrmODActive.btnOKClick procedure btnOKClick(Sender: TObject); -
TfrmFrame.DetermineNextTab procedure DetermineNextTab; -
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -
TfrmOrders.lstWriteClick procedure lstWriteClick(Sender: TObject); -
TfrmOrders.mnuActChangeClick procedure mnuActChangeClick(Sender: TObject); -
TfrmOrders.mnuActChgEvntClick procedure mnuActChgEvntClick(Sender: TObject); -
TfrmOrders.mnuActCommentClick procedure mnuActCommentClick(Sender: TObject); -
TfrmOrders.mnuActCopyClick procedure mnuActCopyClick(Sender: TObject); -
TfrmMeds.mnuActCopyClick procedure mnuActCopyClick(Sender: TObject); -
TfrmOrders.mnuActDCClick procedure mnuActDCClick(Sender: TObject); -
TfrmOrders.mnuActFlagClick procedure mnuActFlagClick(Sender: TObject); -
TfrmOrders.mnuActHoldClick procedure mnuActHoldClick(Sender: TObject); -
TfrmOrders.mnuActSignClick procedure mnuActSignClick(Sender: TObject); -
TfrmFrame.mnuFileReviewClick procedure mnuFileReviewClick(Sender: TObject); -


Source

3243  function TfrmOrders.PtEvtCompleted(APtEvtID: integer; APtEvtName: string; FromMeds: boolean; Signing: boolean): boolean;
3244  begin
3245    Result := False;
3246    if IsCompletedPtEvt(APtEvtID) then
3247    begin
3248      if FromMeds then
3249        InfoBox('The event "Delayed ' + APtEvtName + '" ' + TX_CMPTEVT_MEDSTAB, 'Warning', MB_OK or MB_ICONWARNING)
3250      else
3251        InfoBox('The event "Delayed ' + APtEvtName + '" ' + TX_CMPTEVT, 'Warning', MB_OK or MB_ICONWARNING);
3252      GroupChangesUpdate('Delayed ' + APtEvtName);
3253      if signing = true then
3254        begin
3255          Result := True;
3256          exit;
3257        end;
3258      InitOrderSheetsForEvtDelay;
3259      lstSheets.ItemIndex := 0;
3260      lstSheetsClick(self);
3261      RefreshOrderList(True);
3262      Result := True;
3263    end;
3264  end;