Procedure

TfrmODAllergy.btnAgentClick

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure btnAgentClick(Sender: TObject);

Calls Hierarchy


TfrmODAllergy.btnAgentClick
 ├AllergyLookup
 │ └TfrmBase508Form.Create
 │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   ├UnfocusableControlEnter
 │   └AdjustControls
 │     ├TfrmBase508Form.ModifyUnfocusableControl
 │     └..(rec)..
 └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...

Called-By Hierarchy


TfrmODAllergy.btnAgentClick
 TfrmODAllergy.FormCreate┘ 

Calls

Name Declaration Comments
AllergyLookup procedure AllergyLookup(var Allergy: string; NKAEnabled: boolean); -
TfrmODAllergy.ControlChange procedure ControlChange(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmODAllergy.FormCreate procedure FormCreate(Sender: TObject); -


Source

332   procedure TfrmODAllergy.btnAgentClick(Sender: TObject);
333   var
334     Allergy: string;
335   begin
336     inherited;
337     AllergyLookup(Allergy, ckNoKnownAllergies.Enabled);
338     if Piece(Allergy, U, 1) = '-1' then
339       ckNoKnownAllergies.Checked := True
340     else
341       if Allergy <> '' then
342         begin
343           lstAllergy.Clear;
344           lstAllergy.Items.Add(Allergy);
345           cboReactionType.SelectByID(Piece(Allergy, U, 4));
346         end
347     else
348       Close;
349     ControlChange(lstAllergy);
350   end;