Procedure

TfrmODDiet.IPChange

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure IPChange(Sender: TObject);

Calls Hierarchy


TfrmODDiet.IPChange
 ├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


                  TfrmODDiet.IPChange
TfrmODDiet.SetValuesFromResponsesIP┘ 
           TfrmODDiet.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
TfrmODDiet.SetValuesFromResponsesIP procedure SetValuesFromResponsesIP; -


Source

1801  procedure TfrmODDiet.IPChange(Sender: TObject);
1802  begin
1803    inherited;
1804    if Changing then Exit;
1805    if Sender <> Self then Responses.Clear;       // Sender=Self when called from SetupDialog
1806    Responses.Update('ORDERABLE', 1, FIsolationID, 'Isolation Procedures');
1807    with lstIsolation do if ItemIEN > 0
1808      then Responses.Update('ISOLATION', 1, ItemID, DisplayText[ItemIndex]);
1809    with txtIPComment do if Text <> ''
1810      then Responses.Update('COMMENT', 1, Text, Text);
1811    memOrder.Text := Responses.OrderText;
1812  end;