Procedure

PatientInquiry

Module

fPtDemo

Last Modified

7/15/2014 3:26:38 PM

Comments

Displays patient demographics, returns true in NewPt if the user pressed 'Select New' btn

Scope

Interfaced

Declaration

procedure PatientInquiry(var NewPt: Boolean);

Calls Hierarchy


PatientInquiry
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Called-By Hierarchy


                   PatientInquiry
             TfrmFrame.ViewInfo┘ 
          TfrmDCSumm.ViewInfo┤   
        TfrmConsults.ViewInfo┤   
TfrmFrame.pnlRemindersMouseUp┤   
 TfrmFrame.RemindersChanged┘ │   
     TfrmFrame.FormCreate┘   │   
       TfrmFrame.pnlCIRNClick┤   
 TfrmFrame.pnlVistaWebClick┤ │   
      TfrmFrame.FormKeyDown┘ │   
    TfrmFrame.pnlPatientClick┤   
      TfrmFrame.pnlVisitClick┤   
TfrmFrame.pnlPrimaryCareClick┤   
  TfrmFrame.pnlRemindersClick┤   
   TfrmFrame.pnlPostingsClick┤   
       TfrmFrame.pnlFlagClick┤   
         TfrmFrame.laMHVClick┤   
        TfrmFrame.laVAA2Click┤   
          TfrmOrders.ViewInfo┤   
            TfrmMeds.ViewInfo┤   
         TfrmSurgery.ViewInfo┤   
           TfrmNotes.ViewInfo┤   
        TfrmProblems.ViewInfo┘   

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -

Called-By

Name Declaration Comments
TfrmFrame.ViewInfo procedure ViewInfo(Sender: TObject); -


Source

38    procedure PatientInquiry(var NewPt: Boolean);
39    { displays patient demographics, returns true in NewPt if the user pressed 'Select New' btn }
40    var
41      frmPtDemo: TfrmPtDemo;
42    begin
43      if StrToInt64Def(Patient.DFN, 0) <= 0 then exit;
44      frmPtDemo := TfrmPtDemo.Create(Application);
45      try
46        with frmPtDemo do
47        begin
48          frmPtDemo.ShowModal;
49          NewPt := FNewPt;
50        end; {with frmPtDemo}
51      finally
52        frmPtDemo.Release;
53      end;
54    end;