Procedure

TfrmODProc.radInpatientClick

Module

fODProc

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODProc

Declaration

procedure radInpatientClick(Sender: TObject);

Calls Hierarchy


TfrmODProc.radInpatientClick
 ├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

338   procedure TfrmODProc.radInpatientClick(Sender: TObject);
339   begin
340     inherited;
341     with CtrlInits do
342     begin
343       SetControl(cboPlace, 'Inpt Place');
344       SetControl(cboUrgency, 'Inpt Proc Urgencies');
345       cboCategory.Items.Clear;
346       cboCategory.Items.Add('I^Inpatient') ;
347       cboCategory.SelectById('I');
348     end ;
349     ControlChange(Self);
350   end;