Procedure

TfrmODRad.cboAvailModMouseClick

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODRad

Declaration

procedure cboAvailModMouseClick(Sender: TObject);

Calls Hierarchy


TfrmODRad.cboAvailModMouseClick
 └TfrmODRad.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TEncounter.GetLocationName
   │ └TEncounter.UpdateText
   │   └GetEncounterText
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


TfrmODRad.cboAvailModMouseClick
 TfrmODRad.cboAvailModKeyDown┘ 

Calls

Name Declaration Comments
TfrmODRad.ControlChange procedure ControlChange(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmODRad.cboAvailModKeyDown procedure cboAvailModKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

500   procedure TfrmODRad.cboAvailModMouseClick(Sender: TObject);
501   var
502     x: string;
503     i: integer;
504     Found: boolean;
505   begin
506     if (cboAvailMod.Items.Count < 1) or  //GE 04-30-05 prevent list index out of bounds when empty
507        (cboAvailMod.ItemIndex < 0) then Exit;
508     Found := False;
509     with cboAvailMod do x := Items[ItemIndex];
510     with lstSelectMod do
511       begin
512         if Items.Count > 0 then
513           for i := 0 to Items.Count - 1 do
514             if Items[i] = x then Found := True;
515         if not Found then
516           begin
517             Items.Add(x);
518             SelectByID(Piece(x, U, 1));
519           end;
520       end;
521     if Piece(x, '^', 2) = 'PORTABLE EXAM' then
522       cboTransport.SelectByID('P');
523     ControlChange(Sender);
524   end;