Procedure

TfrmOrders.ClearOrderSheets

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

LstSheets events ------------------------------------------------------------------------- 

 delete all order sheets & associated TOrderView objects, set current view to nil

Visibility

Private

Owner

TfrmOrders

Declaration

procedure ClearOrderSheets;

Called-By Hierarchy


                                TfrmOrders.ClearOrderSheets
                                   TfrmOrders.ClearPtData┤ 
                                 TfrmFrame.ClearPatient┘ │ 
                               TfrmFrame.SetupPatient┘   │ 
                          UpdatePatientInfoForAlert┤     │ 
                       TfrmFrame.mnuFileNextClick┘ │     │ 
                     TfrmFrame.mnuFileOpenClick┤   │     │ 
                         TfrmFrame.UMInitiate┤ │   │     │ 
                TfrmFrame.mnuFileNextClick...┤ │   │     │ 
                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.mnuFileNotifRemoveClick┤   │     │ 
                      TfrmFrame.NextButtonClick┘   │     │ 
                    TfrmFrame.SetUpNextButton┘     │     │ 
              TfrmFrame.mnuFileOpenClick...┤       │     │ 
                       TfrmFrame.FormResize┘       │     │ 
                     TfrmFrame.ChangeFont┘         │     │ 
             TfrmFrame.LoadSizesForUser┤           │     │ 
        TfrmFrame.LoadUserPreferences┘ │           │     │ 
               TfrmFrame.UMInitiate┘   │           │     │ 
             TfrmFrame.mnuFontSizeClick┘           │     │ 
                      TfrmFrame.mnuFileOpenClick...┤     │ 
                   TfrmFrame.AllowCCOWContextChange┤     │ 
                    TfrmFrame.mnuFileNextClick...┤ │     │ 
                    TfrmFrame.mnuFileOpenClick...┤ │     │ 
           TfrmFrame.mnuFileResumeContextSetClick┘ │     │ 
                        TfrmFrame.UpdateCCOWContext┤     │ 
                    TfrmFrame.mnuFileOpenClick...┤ │     │ 
                  TfrmFrame.ctxContextorCommitted┤ │     │ 
                   TfrmFrame.StartCCOWContextor┘ │ │     │ 
                         TfrmFrame.FormCreate┘   │ │     │ 
           TfrmFrame.mnuFileResumeContextGetClick┘ │     │ 
             TfrmFrame.mnuFileResumeContextSetClick┘     │ 
                                   TfrmOrders.FormDestroy┤ 
                               TfrmOrders.InitOrderSheets┘ 
                                 TfrmOrders.DisplayPage┤   
                  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.UpdateCCOWContext...┘ │ │ │ │   
                     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...┘ │   
                         TfrmOrders.InitOrderSheets2...┘   

Called-By

Name Declaration Comments
TfrmOrders.ClearPtData procedure ClearPtData; override; -
TfrmOrders.FormDestroy procedure FormDestroy(Sender: TObject); -
TfrmOrders.InitOrderSheets procedure InitOrderSheets; -


Source

1103  procedure TfrmOrders.ClearOrderSheets;
1104  { delete all order sheets & associated TOrderView objects, set current view to nil }
1105  var
1106    i: Integer;
1107  begin
1108    with lstSheets do for i := 0 to Items.Count - 1 do TOrderView(Items.Objects[i]).Free;
1109    lstSheets.Clear;
1110    FCurrentView := nil;
1111  end;