Procedure

TfrmEncounter.cboNewVisitChange

Module

fEncnt

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmEncounter

Declaration

procedure cboNewVisitChange(Sender: TObject);

Calls Hierarchy


TfrmEncounter.cboNewVisitChange
 └TfrmEncounter.SetVisitCat
   └GetVisitCat

Called-By Hierarchy


TfrmEncounter.cboNewVisitChange
 TfrmEncounter.pgeVisitChange┘ 
   TfrmEncounter.FormCreate┘   

Calls

Name Declaration Comments
TfrmEncounter.SetVisitCat procedure SetVisitCat; -

Called-By

Name Declaration Comments
TfrmEncounter.pgeVisitChange procedure pgeVisitChange(Sender: TObject); -


Source

347   procedure TfrmEncounter.cboNewVisitChange(Sender: TObject);
348   begin
349     inherited;
350     with cboNewVisit do
351     begin
352       FLocation := ItemIEN;
353       FLocationName := DisplayText[ItemIndex];
354       FDateTime := calVisitDate.FMDateTime;
355       SetVisitCat;
356       with txtLocation do
357       begin
358         Text := FLocationName + '  ';
359         if FDateTime <> 0 then Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime);
360       end;
361     end;
362   end;