Procedure

TfrmODProc.radOutpatientClick

Module

fODProc

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODProc

Declaration

procedure radOutpatientClick(Sender: TObject);

Calls Hierarchy


TfrmODProc.radOutpatientClick
 ├TCtrlInits.SetControl
 │ ├ClearControl
 │ └TCtrlInits.FindInitByName
 └TfrmODProc.ControlChange
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODProc.updateService
   │ ├TfrmODProc.setup508Label
   │ └TResponses.Update...
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODProc.ControlChange procedure ControlChange(Sender: TObject); -
TCtrlInits.SetControl procedure SetControl(AControl: TControl; const ASection: string); -


Source

352   procedure TfrmODProc.radOutpatientClick(Sender: TObject);
353   begin
354     inherited;
355     with CtrlInits do
356     begin
357       SetControl(cboPlace, 'Outpt Place');
358       SetControl(cboUrgency, 'Outpt Urgencies');
359       cboCategory.Items.Clear;
360       cboCategory.Items.Add('O^Outpatient');
361       cboCategory.SelectById('O');
362     end ;
363     ControlChange(Self);
364   end;