Procedure

TfrmPtSel.cboPatientKeyPause

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPtSel

Declaration

procedure cboPatientKeyPause(Sender: TObject);

Calls Hierarchy


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

Calls

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


Source

396   procedure TfrmPtSel.cboPatientKeyPause(Sender: TObject);
397   begin
398     if Length(cboPatient.ItemID) > 0 then  //*DFN*
399     begin
400       ShowIDInfo;
401       ShowFlagInfo;    
402     end else
403     begin
404       ClearIDInfo;
405     end;
406   end;