Procedure

TfrmEditProc.SetUpCombatVet

Module

fEditProc

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmEditProc

Declaration

procedure SetUpCombatVet;

Calls Hierarchy


TfrmEditProc.SetUpCombatVet
 └TPatient.GetCombatVet
   └TCombatVet.Create
     └TCombatVet.UpdateData
       └TCombatVet.ClearProperties

Called-By Hierarchy


               TfrmEditProc.SetUpCombatVet
                 TfrmEditProc.InitDialog┘ 
                 EditResubmitProcedure┤   
TfrmConsults.mnuActEditResubmitClick┘ │   
 TfrmConsults.cmdEditResubmitClick┘   │   
            TfrmEditProc.cboProcSelect┘   
          TfrmEditProc.InitDialog...┘     

Calls

Name Declaration Comments
TPatient.GetCombatVet function GetCombatVet: TCombatVet; -

Called-By

Name Declaration Comments
TfrmEditProc.InitDialog procedure InitDialog; -


Source

483   procedure TfrmEditProc.SetUpCombatVet;
484   begin
485     pnlCombatVet.BringToFront;
486     txtCombatVet.Enabled := True;
487     txtCombatVet.Caption := 'Combat Veteran Eligibility Expires on ' + patient.CombatVet.ExpirationDate;
488     pnlMain.Top := pnlMain.Top + pnlCombatVet.Height;
489     pnlMain.Anchors := [akLeft, akTop, akRight];
490     self.Height := self.Height + pnlCombatVet.Height;
491     pnlMain.Anchors := [akLeft, akTop, akRight, akBottom];
492     ActiveControl := txtCombatVet;
493   end;