Procedure

TfrmODVitals.ControlChange

Module

fODVitals

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODVitals

Declaration

procedure ControlChange(Sender: TObject);

Calls Hierarchy


TfrmODVitals.ControlChange
 ├TResponses.Clear
 ├TResponses.Update
 │ ├TResponses.FindResponseByName
 │ └TResponses.IENForPrompt
 └TResponses.GetOrderText
   ├TResponses.NextInstance
   ├TResponses.FindResponseByName
   ├TResponses.FormatResponse
   │ └TResponses.FindResponseByIEN
   └TResponses.AppendChildren
     ├TResponses.FindPromptByIEN
     ├TResponses.FindResponseByIEN
     └TResponses.FormatResponse...

Called-By Hierarchy


TfrmODVitals.ControlChange
TfrmODVitals.SetupDialog┘ 

Calls

Name Declaration Comments
TResponses.Clear procedure Clear; overload; -
TResponses.GetOrderText function GetOrderText: string; -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -

Called-By

Name Declaration Comments
TfrmODVitals.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

130   procedure TfrmODVitals.ControlChange(Sender: TObject);
131   begin
132     inherited;
133     if Changing then Exit;
134     Responses.Clear;
135     with cboMeasurement do if ItemIEN > 0      then Responses.Update('ORDERABLE', 1, ItemID, Text);
136     with cboSchedule    do if Length(Text) > 0 then Responses.Update('SCHEDULE' , 1, Text,   Text);
137     with calStart       do if Length(Text) > 0 then Responses.Update('START',     1, Text,   Text);
138     with calStop        do if Length(Text) > 0 then Responses.Update('STOP',      1, Text,   Text);
139     with txtComment     do if Length(Text) > 0 then Responses.Update('COMMENT',   1, Text,   Text);
140     memOrder.Text := Responses.OrderText;
141   end;