Procedure

TfrmODCslt.radOutpatientClick

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure radOutpatientClick(Sender: TObject);

Calls Hierarchy


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

Calls

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


Source

505   procedure TfrmODCslt.radOutpatientClick(Sender: TObject);
506   begin
507     inherited;
508     with CtrlInits do
509     begin
510       SetControl(cboPlace, 'Outpt Place');
511       SetControl(cboUrgency, 'Outpt Urgencies');
512       cboCategory.Items.Clear;
513       cboCategory.Items.Add('O^Outpatient');
514       cboCategory.SelectById('O');
515     end ;
516     ControlChange(Self);
517   end;