Procedure

TfrmODCslt.FormCreate

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Comments

TfrmODCslt Methods ***********

Visibility

Public/Published

Owner

TfrmODCslt

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmODCslt.FormCreate
 ├InitializeGlobalLists
 ├TfrmODBase.SetFillerID
 │ ├AddFillerAppID
 │ ├OrderChecksEnabled
 │ └OrderChecksOnDisplay
 ├TResponses.SetDialog
 │ ├LoadDialogDefinition
 │ └SortPromptsBySequence
 ├ODForConsults
 ├TCtrlInits.LoadDefaults
 │ └TCtrlInits.ExtractInits
 │   └TCtrlInit.Create
 ├TfrmODBase.PreserveControl
 ├TPatient.GetCombatVet
 │ └TCombatVet.Create
 │   └TCombatVet.UpdateData
 │     └TCombatVet.ClearProperties
 ├TfrmODCslt.SetUpCombatVet
 │ └TPatient.GetCombatVet...
 ├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...
 └TfrmODCslt.DoSetFontSize

Calls

Name Declaration Comments
TfrmODCslt.DoSetFontSize procedure DoSetFontSize(FontSize: integer); -
TPatient.GetCombatVet function GetCombatVet: TCombatVet; -
TfrmODCslt.InitDialog procedure InitDialog; override; -
InitializeGlobalLists procedure InitializeGlobalLists; -
TCtrlInits.LoadDefaults procedure LoadDefaults(Src: TStrings); -
ODForConsults function ODForConsults: TStrings; -
TfrmODBase.PreserveControl procedure PreserveControl(AControl: TControl); -
TResponses.SetDialog procedure SetDialog(Value: string); -
TfrmODBase.SetFillerID procedure SetFillerID(const Value: string); -
TfrmODCslt.SetUpCombatVet procedure SetUpCombatVet; -


Source

214   procedure TfrmODCslt.FormCreate(Sender: TObject);
215   begin
216     frmFrame.pnlVisit.Enabled := false;
217     AutoSizeDisabled := True;
218     inherited;
219     if BILLING_AWARE then
220     begin
221        btnDiagnosis.Visible := True;
222        cmdLexSearch.Visible := False;
223     end
224     else
225     begin
226        btnDiagnosis.Visible := False;
227        cmdLexSearch.Visible := True;
228     end;
229     InitializeGlobalLists;
230     AllowQuickOrder := True;
231     LastNode := 0;
232     FLastServiceID := '' ;
233     GMRCREAF := '';
234     FillChar(ProvDx, SizeOf(ProvDx), 0);
235     FillerID := 'GMRC';                     // does 'on Display' order check **KCM**
236     StatusText('Loading Dialog Definition');
237     Responses.Dialog := 'GMRCOR CONSULT';   // loads formatting info
238     StatusText('Loading Default Values');
239     FastAssign(ODForConsults, Defaults);  // ODForConsults returns TStrings with defaults
240     CtrlInits.LoadDefaults(Defaults);
241     txtAttn.InitLongList('') ;
242     PreserveControl(txtAttn);
243     PreserveControl(calEarliest);
244       if (patient.CombatVet.IsEligible = True) then
245      begin
246        SetUpCombatVet;
247      end
248      else
249       begin
250         txtCombatVet.Enabled := False;
251         pnlCombatVet.SendToBack;
252       end;
253     InitDialog;
254     //Calling virtual SetFontSize in constructor is a bad idea!
255     DoSetFontSize( MainFontSize);
256     FcboServiceKeyDownStopClick := false;
257     consultQuickOrder := false;
258   end;