Procedure

TfrmODLab.LoadRequiredComment

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Owner

TfrmODLab

Declaration

procedure LoadRequiredComment(CmtType: integer);

Calls Hierarchy


TfrmODLab.LoadRequiredComment
 └TfrmODLab.DisableCommentPanels

Called-By Hierarchy


      TfrmODLab.LoadRequiredComment
     TfrmODLab.cboAvailTestSelect┤ 
          TfrmODLab.SetupDialog┤ │ 
     TfrmODLab.cboAvailTestExit┘ │ 
      TfrmODLab.cboCollSampChange┘ 
          TfrmODLab.SetupDialog┤   
TfrmODLab.cboAvailTestSelect...┘   

Calls

Name Declaration Comments
TfrmODLab.DisableCommentPanels procedure DisableCommentPanels; -

Called-By

Name Declaration Comments
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODLab.cboCollSampChange procedure cboCollSampChange(Sender: TObject); -


Source

1647  procedure TfrmODLab.LoadRequiredComment(CmtType: integer);
1648  begin
1649    DisableCommentPanels;
1650    pnlHide.SendToBack;
1651    lblReqComment.Visible := True ;
1652    case CmtType of
1653       0 : {ANTICOAGULATION}         pnlAntiCoagulation.Show ;
1654       1 : {DOSE/DRAW TIMES}         pnlDoseDraw.Show ;
1655       2 : {ORDER COMMENT}           pnlOrderComment.Show ;
1656       3 : {ORDER COMMENT MODIFIED}  pnlOrderComment.Show ; // DIFFERENT ???
1657       4 : {TDM (PEAK-TROUGH}        begin
1658                                       pnlPeakTrough.Show ;
1659                                       grpPeakTrough.ItemIndex := -1;
1660                                       txtAddlComment.Show;
1661                                       lblAddlComment.Show;
1662                                     end;
1663       5 : {TRANSFUSION}             pnlOrderComment.Show ;
1664       6 : {URINE VOLUME}            pnlUrineVolume.Show ;
1665     else
1666       pnlOrderComment.Show ;
1667     end;
1668  end;