Procedure

TfrmEncounter.calVisitDateChange

Module

fEncnt

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmEncounter

Declaration

procedure calVisitDateChange(Sender: TObject);

Calls Hierarchy


TfrmEncounter.calVisitDateChange
 └TfrmEncounter.SetVisitCat
   └GetVisitCat

Calls

Name Declaration Comments
TfrmEncounter.SetVisitCat procedure SetVisitCat; -


Source

364   procedure TfrmEncounter.calVisitDateChange(Sender: TObject);
365   begin
366     inherited;
367     // The FFromSelf was added because without it, a new visit (minus the seconds gets created.
368     // Setting the text of calVisit caused the text to be re-evaluated & changed the FMDateTime property.
369     if FFromSelf then Exit;
370     with cboNewVisit do
371     begin
372       FLocation := ItemIEN;
373       FLocationName := DisplayText[ItemIndex];
374       FDateTime := calVisitDate.FMDateTime;
375       SetVisitCat;
376       txtLocation.Text := FLocationName + '  ' + calVisitDate.Text;
377     end;
378   end;