Procedure

TfrmODProc.FormCreate

Module

fODProc

Last Modified

7/15/2014 3:26:34 PM

Comments

********************* TfrmODProc Methods ****************

Visibility

Public/Published

Owner

TfrmODProc

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmODProc.FormCreate
 ├TfrmODProc.DoSetFontSize
 ├TfrmODBase.SetFillerID
 │ ├AddFillerAppID
 │ ├OrderChecksEnabled
 │ └OrderChecksOnDisplay
 ├TResponses.SetDialog
 │ ├LoadDialogDefinition
 │ └SortPromptsBySequence
 ├TCtrlInits.LoadDefaults
 │ └TCtrlInits.ExtractInits
 │   └TCtrlInit.Create
 ├ODForProcedures
 ├TfrmODProc.ReadServerVariables
 │ ├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...
 │ └TfrmODBase.GetKeyVariable
 ├TfrmODBase.PreserveControl
 ├TPatient.GetCombatVet
 │ └TCombatVet.Create
 │   └TCombatVet.UpdateData
 │     └TCombatVet.ClearProperties
 ├TfrmODProc.SetUpCombatVet
 │ └TPatient.GetCombatVet...
 └TfrmODProc.InitDialog
   ├TCtrlInits.SetControl
   │ ├ClearControl
   │ └TCtrlInits.FindInitByName
   ├TfrmODBase.OrderForInpatient
   │ ├OrderEventTypeOnCreate
   │ └IsPassEvt1
   ├TfrmODProc.SetProvDiagPromptingMode...
   └TfrmODProc.ShowPrerequisites
     ├GetServicePrerequisites
     └DisplayPrerequisites
       └CreateReportBox
         └TfrmBase508Form.Create
           ├TfrmBase508Form.UpdateAccessibilityActions
           ├UnfocusableControlEnter
           └AdjustControls
             ├TfrmBase508Form.ModifyUnfocusableControl
             └..(rec)..

Calls

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


Source

141   procedure TfrmODProc.FormCreate(Sender: TObject);
142   begin
143     frmFrame.pnlVisit.Enabled := false;
144     AutoSizeDisabled := True;
145     inherited;
146     OkToFreeProcDialog := False;
147     DoSetFontSize(MainFontSize);
148     AllowQuickOrder := True;
149     FillChar(ProvDx, SizeOf(ProvDx), 0);
150     FillerID := 'GMRC';                     // does 'on Display' order check **KCM**
151     StatusText('Loading Dialog Definition');
152     Responses.Dialog := 'GMRCOR REQUEST';   // loads formatting info
153     StatusText('Loading Default Values');
154     CtrlInits.LoadDefaults(ODForProcedures);  // ODForProcedures returns TStrings with defaults
155     StatusText('Initializing Long List');
156     ReadServerVariables;
157     cboProc.InitLongList('') ;
158     txtAttn.InitLongList('') ;
159     PreserveControl(calEarliest);
160     PreserveControl(txtAttn);
161     PreserveControl(cboProc);
162     if (patient.CombatVet.IsEligible = True) then
163      begin
164        SetUpCombatVet;
165      end
166      else
167       begin
168         txtCombatVet.Enabled := False;
169         pnlCombatVet.SendToBack;
170       end;
171     InitDialog;
172   end;