Procedure

TfrmODDiet.cboProductMouseClick

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cboProductMouseClick(Sender: TObject);

Calls Hierarchy


TfrmODDiet.cboProductMouseClick
 ├TResponses.SetQuickOrder
 │ ├TResponses.Clear
 │ └LoadResponses
 │   └ExtractToResponses
 │     └ExpandOrderObjects
 │       ├TdmodShared.BoilerplateOK
 │       │ ├ErrCount
 │       │ ├AddErr
 │       │ └TdmodShared.LoadTIUObjects
 │       │   └GetObjectList
 │       └GetTemplateText
 │         └TEncounter.GetVisitStr
 │           └TEncounter.GetVisitCategory
 ├TfrmODDiet.SetValuesFromResponsesTF
 │ ├TfrmODDiet.ResetControlsTF
 │ │ └TfrmODDiet.TFClearGrid
 │ ├TResponses.NextInstance
 │ ├TResponses.FindResponseByName
 │ ├TfrmODDiet.TFSetAmountForRow
 │ │ ├TfrmODDiet.TFStrengthCode
 │ │ └ExpandedQuantity
 │ ├TfrmODBase.OrderForInpatient
 │ │ ├OrderEventTypeOnCreate
 │ │ └IsPassEvt1
 │ ├TResponses.SetControl
 │ │ ├TResponses.FindResponseByName
 │ │ └AssignBPText
 │ │   ├DisplayGroupToLinkType
 │ │   │ └DisplayGroupByName
 │ │   ├TResponses.EValueFor
 │ │   ├GetServiceIEN
 │ │   ├TResponses.IValueFor
 │ │   ├GetProcedureIEN
 │ │   ├ExpandOrderObjects...
 │ │   ├SetTemplateDialogCanceled
 │ │   ├CheckBoilerplate4Fields
 │ │   ├ExecuteTemplateOrBoilerPlate
 │ │   └WasTemplateDialogCanceled
 │ └TfrmODDiet.TFChange
 │   ├TResponses.Clear
 │   ├TResponses.Update
 │   │ ├TResponses.FindResponseByName
 │   │ └TResponses.IENForPrompt
 │   ├TfrmODDiet.TFStrengthCode
 │   ├TfrmODBase.OrderForInpatient...
 │   └TResponses.GetOrderText
 │     ├TResponses.NextInstance
 │     ├TResponses.FindResponseByName
 │     ├TResponses.FormatResponse
 │     │ └TResponses.FindResponseByIEN
 │     └TResponses.AppendChildren
 │       ├TResponses.FindPromptByIEN
 │       ├TResponses.FindResponseByIEN
 │       └TResponses.FormatResponse...
 ├TfrmODBase.OrderMessage
 │ └TfrmODBase.ShowOrderMessage
 ├OIMessage
 └TfrmODDiet.TFChange...

Called-By Hierarchy


TfrmODDiet.cboProductMouseClick
    TfrmODDiet.cboProductExit┘ 

Calls

Name Declaration Comments
OIMessage function OIMessage(IEN: Integer): string; -
TfrmODBase.OrderMessage procedure OrderMessage(const AMessage: string); -
TResponses.SetQuickOrder procedure SetQuickOrder(AnIEN: Integer); -
TfrmODDiet.SetValuesFromResponsesTF procedure SetValuesFromResponsesTF; -
TfrmODDiet.TFChange procedure TFChange(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmODDiet.cboProductExit procedure cboProductExit(Sender: TObject); -


Source

1236  procedure TfrmODDiet.cboProductMouseClick(Sender: TObject);
1237  var
1238    AProduct: TTFProduct;
1239  begin
1240    inherited;
1241    // check quick order
1242    if CharAt(cboProduct.ItemID, 1) = 'Q' then              // setup quick order
1243    begin
1244      Responses.QuickOrder := ExtractInteger(cboProduct.ItemID);
1245      SetValuesFromResponsesTF;
1246      cboProduct.ItemIndex := -1;
1247      Exit;
1248    end;
1249    if cboProduct.ItemIEN <= 0 then Exit;
1250    AProduct := TTFProduct.Create;
1251    AProduct.IEN := cboProduct.ItemIEN;
1252    AProduct.Name := Piece(cboProduct.Items[cboProduct.ItemIndex], U, 3);
1253    cboProduct.ItemIndex := -1;
1254    with grdSelected do
1255    begin
1256      if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1;
1257      Objects[0, RowCount - 1] := AProduct;
1258      Cells[0, RowCount - 1] := AProduct.Name;
1259      Cells[1, RowCount - 1] := 'FULL';
1260      Row := RowCount - 1;
1261      Col := 1;
1262    end;
1263    OrderMessage(OIMessage(AProduct.IEN));
1264    TFChange(Sender);
1265  end;