Procedure

TfrmODCslt.radInpatientClick

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure radInpatientClick(Sender: TObject);

Calls Hierarchy


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

491   procedure TfrmODCslt.radInpatientClick(Sender: TObject);
492   begin
493     inherited;
494     with CtrlInits do
495     begin
496       SetControl(cboPlace, 'Inpt Place');
497       SetControl(cboUrgency, 'Inpt Cslt Urgencies');
498       cboCategory.Items.Clear;
499       cboCategory.Items.Add('I^Inpatient') ;
500       cboCategory.SelectById('I');
501     end ;
502     ControlChange(Self);
503   end;