Procedure

TfrmODCslt.InitDialog

Directives

Override

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Protected

Overrides

TfrmODBase.InitDialog

Owner

TfrmODCslt

Declaration

procedure InitDialog; override;

Calls Hierarchy


TfrmODCslt.InitDialog
 ├TfrmODBase.OrderForInpatient
 │ ├OrderEventTypeOnCreate
 │ └IsPassEvt1
 ├TCtrlInits.SetControl
 │ ├ClearControl
 │ └TCtrlInits.FindInitByName
 ├TfrmODCslt.setup508Label
 └TfrmODCslt.SetProvDiagPromptingMode
   ├GetProvDxMode
   └TfrmODCslt.ControlChange
     ├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


  TfrmODCslt.InitDialog
TfrmODCslt.FormCreate┘ 

Calls

Name Declaration Comments
TfrmODBase.OrderForInpatient function OrderForInpatient: Boolean; -
TCtrlInits.SetControl procedure SetControl(AControl: TControl; const ASection: string); -
TfrmODCslt.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -
TfrmODCslt.setup508Label procedure setup508Label(lbl: TVA508StaticText; ctrl: TORComboBox); -

Called-By

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


Source

260   procedure TfrmODCslt.InitDialog;
261   begin
262     inherited;
263     Changing := True;
264     FLastServiceID := '';
265     QuickList.Clear;
266     with CtrlInits do
267     begin
268      ExtractItems(QuickList, Defaults, 'ShortList');
269      if OrderForInpatient then                            //INPATIENT CONSULT
270       begin
271         radInpatient.Checked := True;
272         cboCategory.Items.Clear;
273         cboCategory.Items.Add('I^Inpatient');
274         cboCategory.SelectById('I');
275         SetControl(cboPlace, 'Inpt Place');
276         SetControl(cboUrgency, 'Inpt Cslt Urgencies');        //S.GMRCT
277         SetControl(calEarliest, 'EarliestDate');  //wat v29
278       end
279      else
280       begin
281         radOutpatient.Checked := True;                   //OUTPATIENT CONSULT
282         cboCategory.Items.Clear;
283         cboCategory.Items.Add('O^Outpatient');
284         cboCategory.SelectById('O');
285         SetControl(cboPlace, 'Outpt Place');
286         SetControl(cboUrgency, 'Outpt Urgencies');      //S.GMRCO
287         SetControl(calEarliest, 'EarliestDate');  //wat v29
288       end ;
289     end ;
290     StatusText('Initializing Long List');
291     memOrder.Clear ;
292     memReason.Clear;
293     cboService.Enabled := True;
294     setup508Label(servicelbl508, cboService);
295     cboService.Font.Color := clWindowText;
296     cboService.Height := 25 + (11 * cboService.ItemHeight);
297     btnServiceTree.Enabled := True;
298     pnlServiceTreeButton.Enabled := True;
299     SetProvDiagPromptingMode;
300     ActiveControl := cboService;
301     Changing := False;
302     StatusText('');
303   end;