Procedure

TfrmODProc.InitDialog

Directives

Override

Module

fODProc

Last Modified

7/15/2014 3:26:34 PM

Visibility

Protected

Overrides

TfrmODBase.InitDialog

Owner

TfrmODProc

Declaration

procedure InitDialog; override;

Calls Hierarchy


TfrmODProc.InitDialog
 ├TCtrlInits.SetControl
 │ ├ClearControl
 │ └TCtrlInits.FindInitByName
 ├TfrmODBase.OrderForInpatient
 │ ├OrderEventTypeOnCreate
 │ └IsPassEvt1
 ├TfrmODProc.SetProvDiagPromptingMode
 │ ├GetProvDxMode
 │ └TfrmODProc.ControlChange
 │   ├TResponses.Update
 │   │ ├TResponses.FindResponseByName
 │   │ └TResponses.IENForPrompt
 │   ├TfrmODProc.updateService
 │   │ ├TfrmODProc.setup508Label
 │   │ └TResponses.Update...
 │   └TResponses.GetOrderText
 │     ├TResponses.NextInstance
 │     ├TResponses.FindResponseByName
 │     ├TResponses.FormatResponse
 │     │ └TResponses.FindResponseByIEN
 │     └TResponses.AppendChildren
 │       ├TResponses.FindPromptByIEN
 │       ├TResponses.FindResponseByIEN
 │       └TResponses.FormatResponse...
 └TfrmODProc.ShowPrerequisites
   ├GetServicePrerequisites
   └DisplayPrerequisites
     └CreateReportBox
       └TfrmBase508Form.Create
         ├TfrmBase508Form.UpdateAccessibilityActions
         ├UnfocusableControlEnter
         └AdjustControls
           ├TfrmBase508Form.ModifyUnfocusableControl
           └..(rec)..

Called-By Hierarchy


     TfrmODProc.InitDialog
   TfrmODProc.FormCreate┤ 
TfrmODProc.cboProcSelect┘ 

Calls

Name Declaration Comments
TfrmODBase.OrderForInpatient function OrderForInpatient: Boolean; -
TCtrlInits.SetControl procedure SetControl(AControl: TControl; const ASection: string); -
TfrmODProc.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -
TfrmODProc.ShowPrerequisites function ShowPrerequisites: boolean; -

Called-By

Name Declaration Comments
TfrmODProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODProc.FormCreate procedure FormCreate(Sender: TObject); -


Source

174   procedure TfrmODProc.InitDialog;
175   begin
176     inherited;
177     Changing := True;
178     FLastProcID := '';
179     with CtrlInits do
180     begin
181      SetControl(cboProc, 'ShortList');
182      cboProc.InsertSeparator;
183      if OrderForInpatient then
184       begin
185         radInpatient.Checked := True;                   //INPATIENT PROCEDURE
186         cboCategory.Items.Clear;
187         cboCategory.Items.Add('I^Inpatient');
188         cboCategory.SelectById('I');
189         SetControl(cboPlace, 'Inpt Place');
190         SetControl(cboUrgency, 'Inpt Proc Urgencies');      //S.GMRCR
191         SetControl(calEarliest, 'EarliestDate');  //wat v29
192       end
193      else
194       begin
195         radOutpatient.Checked := True;                 //OUTPATIENT PROCEDURE
196         cboCategory.Items.Clear;
197         cboCategory.Items.Add('O^Outpatient');
198         cboCategory.SelectById('O');
199         SetControl(cboPlace, 'Outpt Place');
200         SetControl(cboUrgency, 'Outpt Urgencies');     //S.GMRCO
201         SetControl(calEarliest, 'EarliestDate');  //wat v29
202       end ;
203     end ;
204     txtAttn.ItemIndex := -1;
205     memOrder.Clear ;
206     memReason.Clear;
207     cboProc.Enabled := True;
208     cboProc.Font.Color := clWindowText;
209     //cboService.Enabled := True;
210     //cboService.Font.Color := clWindowText;
211     ActiveControl := cboProc;
212     SetProvDiagPromptingMode;
213     if not ShowPrerequisites then
214       begin
215         Close;
216         Exit;
217       end;
218     if calEarliest.Text = 'T' then calEarliest.Text := 'TODAY';
219     StatusText('');
220     Changing := False;
221   end;