Procedure

TfrmConsults.mnuViewInformationClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure mnuViewInformationClick(Sender: TObject);


Source

4853  procedure TfrmConsults.mnuViewInformationClick(Sender: TObject);
4854  begin
4855    inherited;
4856    mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled;
4857    mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled;
4858    mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled;
4859    mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No');
4860    mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No');
4861    mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled;
4862    mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled;
4863    mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled;
4864    mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled;
4865  end;