Procedure

TfrmODRad.cboProcedureExit

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODRad

Declaration

procedure cboProcedureExit(Sender: TObject);

Calls Hierarchy


TfrmODRad.cboProcedureExit
 ├TfrmODRad.cboProcedureSelect
 │ ├TResponses.Clear
 │ ├ClearControl
 │ ├TResponses.SetQuickOrder
 │ │ ├TResponses.Clear
 │ │ └LoadResponses
 │ │   └ExtractToResponses
 │ │     └ExpandOrderObjects
 │ │       ├TdmodShared.BoilerplateOK
 │ │       │ ├ErrCount
 │ │       │ ├AddErr
 │ │       │ └TdmodShared.LoadTIUObjects
 │ │       │   └GetObjectList
 │ │       └GetTemplateText
 │ │         └TEncounter.GetVisitStr
 │ │           └TEncounter.GetVisitCategory
 │ ├TResponses.SetControl
 │ │ ├TResponses.FindResponseByName
 │ │ └AssignBPText
 │ │   ├DisplayGroupToLinkType
 │ │   │ └DisplayGroupByName
 │ │   ├TResponses.EValueFor
 │ │   ├GetServiceIEN
 │ │   ├TResponses.IValueFor
 │ │   ├GetProcedureIEN
 │ │   ├ExpandOrderObjects...
 │ │   ├SetTemplateDialogCanceled
 │ │   ├CheckBoilerplate4Fields
 │ │   ├ExecuteTemplateOrBoilerPlate
 │ │   └WasTemplateDialogCanceled
 │ ├TfrmODRad.SetModifierList
 │ │ └TResponses.FindResponseByName
 │ ├TResponses.FindResponseByName
 │ ├StrToFMDateTime
 │ ├TfrmODBase.OrderMessage
 │ │ └TfrmODBase.ShowOrderMessage
 │ ├ImagingMessage
 │ └TfrmODRad.ControlChange
 │   ├TResponses.Clear
 │   ├TResponses.Update
 │   │ ├TResponses.FindResponseByName
 │   │ └TResponses.IENForPrompt
 │   ├TEncounter.GetLocationName
 │   │ └TEncounter.UpdateText
 │   │   └GetEncounterText
 │   └TResponses.GetOrderText
 │     ├TResponses.NextInstance
 │     ├TResponses.FindResponseByName
 │     ├TResponses.FormatResponse
 │     │ └TResponses.FindResponseByIEN
 │     └TResponses.AppendChildren
 │       ├TResponses.FindPromptByIEN
 │       ├TResponses.FindResponseByIEN
 │       └TResponses.FormatResponse...
 └TResponses.Update...

Calls

Name Declaration Comments
TfrmODRad.cboProcedureSelect procedure cboProcedureSelect(Sender: TObject); -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -


Source

772   procedure TfrmODRad.cboProcedureExit(Sender: TObject);
773   var
774     i: integer;
775     ModList: TStringList;
776   begin
777     inherited;
778     ModList := TStringList.Create;
779     if lstSelectMod.Items.Count > 0 then
780       for i := 0 to lstSelectMod.Count - 1 do
781         ModList.Add(lstSelectMod.Items[i]);
782     cboProcedureSelect(Self);
783     for i := 0 to ModList.Count - 1 do
784     begin
785       lstSelectMod.Items.Add(ModList[i]);
786       lstSelectMod.SelectByID(Piece(ModList[i],U,1));
787     end;
788     with lstSelectMod do
789       for i := 0 to Items.Count - 1 do
790         Responses.Update('MODIFIER',i+1, Piece(Items[i],U,1), Piece(Items[i],U,2));
791     //TDP - Made Order Message next focus if showing and Tab or Entered was pressed
792     if (pnlMessage.Showing) AND ((TabIsPressed()) OR (EnterIsPressed())) then memMessage.SetFocus;
793   end;