Procedure

TfrmODAllergy.ckNoKnownAllergiesClick

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure ckNoKnownAllergiesClick(Sender: TObject);

Calls Hierarchy


TfrmODAllergy.ckNoKnownAllergiesClick
 ├TfrmODAllergy.DisableControls
 │ └TfrmODAllergy.InitDialog
 │   ├TCtrlInits.SetControl
 │   │ ├ClearControl
 │   │ └TCtrlInits.FindInitByName
 │   └ListAllergies
 ├TfrmODAllergy.EnableControls
 │ └TfrmODAllergy.InitDialog...
 └TfrmODAllergy.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├ValidDateTimeStr
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODAllergy.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODAllergy.DisableControls procedure DisableControls; -
TfrmODAllergy.EnableControls procedure EnableControls; -


Source

373   procedure TfrmODAllergy.ckNoKnownAllergiesClick(Sender: TObject);
374   begin
375     inherited;
376     if ckNoKnownAllergies.Checked then
377       begin
378         DisableControls;
379         FNKAOrder := True;
380       end
381     else
382       begin
383         EnableControls;
384         FNKAOrder := False;
385       end;
386     ControlChange(Self);
387   end;