Procedure

TfrmODMisc.SetupDialog

Directives

Override

Module

fODMisc

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Overrides

TfrmODBase.SetupDialog

Owner

TfrmODMisc

Declaration

procedure SetupDialog(OrderAction: Integer; const ID: string); override;

Calls Hierarchy


TfrmODMisc.SetupDialog
 ├TResponses.SetControl
 │ ├TResponses.FindResponseByName
 │ └AssignBPText
 │   ├DisplayGroupToLinkType
 │   │ └DisplayGroupByName
 │   ├TResponses.EValueFor
 │   ├GetServiceIEN
 │   ├TResponses.IValueFor
 │   ├GetProcedureIEN
 │   ├ExpandOrderObjects
 │   │ ├TdmodShared.BoilerplateOK
 │   │ │ ├ErrCount
 │   │ │ ├AddErr
 │   │ │ └TdmodShared.LoadTIUObjects
 │   │ │   └GetObjectList
 │   │ └GetTemplateText
 │   │   └TEncounter.GetVisitStr
 │   │     └TEncounter.GetVisitCategory
 │   ├SetTemplateDialogCanceled
 │   ├CheckBoilerplate4Fields
 │   ├ExecuteTemplateOrBoilerPlate
 │   └WasTemplateDialogCanceled
 └TfrmODMisc.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...

Calls

Name Declaration Comments
TfrmODMisc.ControlChange procedure ControlChange(Sender: TObject); -
TResponses.SetControl procedure SetControl(AControl: TControl; const APromptID: string; AnInstance: Integer); -


Source

68    procedure TfrmODMisc.SetupDialog(OrderAction: Integer; const ID: string);
69    begin
70      inherited;
71      if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do
72      begin
73        Changing := True;
74        SetControl(cboCare,    'ORDERABLE', 1);
75        SetControl(txtComment, 'COMMENT',   1);
76        SetControl(calStart,   'START',     1);
77        SetControl(calStop,    'STOP',      1);
78        Changing := False;
79        ControlChange(Self);
80        if not ScreenReaderSystemActive then SetFocusedControl(txtComment);
81      end;
82    end;