Procedure

TfrmFrame.ShowEverything

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Private

Owner

TfrmFrame

Declaration

procedure ShowEverything;

Called-By Hierarchy


                     TfrmFrame.ShowEverything
                 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┘   

Called-By

Name Declaration Comments
TfrmFrame.mnuFileOpenClick procedure mnuFileOpenClick(Sender: TObject); -
TfrmFrame.UpdateCCOWContext procedure UpdateCCOWContext; -


Source

4217  procedure TfrmFrame.ShowEverything;
4218  begin
4219    FNoPatientSelected := FALSE;
4220    pnlNoPatientSelected.Caption := '';
4221    pnlNoPatientSelected.Visible := False;
4222    pnlNoPatientSelected.SendToBack;
4223    mnuFileReview.Enabled := True;
4224    mnuFilePrint.Enabled := True;
4225    mnuFileEncounter.Enabled := True;
4226    mnuFileNext.Enabled := True;
4227    mnuFileRefresh.Enabled := True;
4228    mnuFilePrintSetup.Enabled := True;
4229    mnuFilePrintSelectedItems.Enabled := True;
4230    mnuFileNotifRemove.Enabled := True;
4231    if not FCCOWError then
4232    begin
4233      if FCCOWIconName= 'BMP_CCOW_BROKEN' then
4234      begin
4235        mnuFileResumeContext.Enabled := True;
4236        mnuFileBreakContext.Enabled := False;
4237      end else
4238      begin
4239        mnuFileResumeContext.Enabled := False;
4240        mnuFileBreakContext.Enabled := True;
4241      end;
4242    end;
4243    mnuEdit.Enabled := True;
4244    mnuView.Enabled := True;
4245    mnuTools.Enabled := True;
4246    if FNextButtonActive then FNextButton.Visible := True;
4247  end;