Procedure

TfrmODRad.cboCategoryChange

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODRad

Declaration

procedure cboCategoryChange(Sender: TObject);

Calls Hierarchy


TfrmODRad.cboCategoryChange
 ├SelectSource
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ └SubsetOfRadSources
 └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...

Calls

Name Declaration Comments
TfrmODRad.ControlChange procedure ControlChange(Sender: TObject); -
SelectSource procedure SelectSource(FontSize: Integer; SrcType: char; var Source: string) ; -


Source

618   procedure TfrmODRad.cboCategoryChange(Sender: TObject);
619   var
620     Source: string;
621   begin
622     inherited;
623     if Contract <> '' then Source := Contract
624     else if Research <> '' then Source := Research
625     else Source := '';
626     Contract := '';
627     Research := '';
628     with cboCategory do
629       begin
630         if CharAt(ItemID,1) in ['C','S','R'] then
631           begin
632             SelectSource(Font.Size, CharAt(ItemID,1), Source);
633             if Source = '-1' then
634               InfoBox(TX_NO_AGREE, TX_NO_AGREE_CAP, MB_OK or MB_ICONWARNING)
635             else if CharAt(ItemID,1) in ['C','S'] then
636               Contract := Source
637             else if ItemID='R' then
638               Research := Source;
639           end;
640       end;
641     ControlChange(Self);
642   end;