Procedure

ShowCWAD

Module

fPtCWAD

Last Modified

7/15/2014 3:26:38 PM

Comments

Displays CWAD notices (future - allow updates of allergy info from here?

Scope

Interfaced

Declaration

procedure ShowCWAD;

Calls Hierarchy


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

Called-By Hierarchy


                         ShowCWAD
             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┘ │ 
  TfrmODAllergy.btnCurrentClick┘ 

Calls

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

Called-By

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


Source

41    procedure ShowCWAD;
42    { displays CWAD notices (future - allow updates of allergy info from here? }
43    var
44      frmPtCWAD: TfrmPtCWAD;
45    begin
46      frmPtCWAD := TfrmPtCWAD.Create(Application);
47      try
48        ResizeFormToFont(TForm(frmPtCWAD));
49        frmPtCWAD.ShowModal;
50      finally
51        frmPtCWAD.Release;
52      end;
53    end;