Procedure

TfrmPtSel.cboPatientEnter

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Comments

Patient Select events:

Visibility

Public/Published

Owner

TfrmPtSel

Declaration

procedure cboPatientEnter(Sender: TObject);

Calls Hierarchy


TfrmPtSel.cboPatientEnter
 ├TfrmPtSel.ShowIDInfo
 │ └TfrmPtSelDemog.ShowDemog
 │   ├GetPtIDInfo
 │   │ ├IsSSN
 │   │ ├FormatSSN
 │   │ └IsFMDate
 │   └TCombatVet.Create
 │     └TCombatVet.UpdateData
 │       └TCombatVet.ClearProperties
 └TfrmPtSel.ShowFlagInfo
   └HasActiveFlg

Calls

Name Declaration Comments
TfrmPtSel.ShowFlagInfo procedure ShowFlagInfo; -
TfrmPtSel.ShowIDInfo procedure ShowIDInfo; -


Source

339   procedure TfrmPtSel.cboPatientEnter(Sender: TObject);
340   begin
341     cmdOK.Default := True;
342     if cboPatient.ItemIndex >= 0 then
343     begin
344       ShowIDInfo;
345       ShowFlagInfo;
346     end;
347   end;