Procedure

TfrmODMedIV.FormCreate

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Comments

Form methods

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.FormCreate
 ├CheckAuthForMeds
 ├TfrmODMedIV.DoSetFontSize
 ├TfrmODBase.SetFillerID
 │ ├AddFillerAppID
 │ ├OrderChecksEnabled
 │ └OrderChecksOnDisplay
 ├TResponses.SetDialog
 │ ├LoadDialogDefinition
 │ └SortPromptsBySequence
 ├TCtrlInits.LoadDefaults
 │ └TCtrlInits.ExtractInits
 │   └TCtrlInit.Create
 ├ODForIVFluids
 └TfrmODMedIV.InitDialog
   ├TfrmODMedIV.ClearAllFields
   │ └TfrmODMedIV.cboTypeChange
   │   ├TfrmODMedIV.UpdateDuration
   │   └TfrmODMedIV.ControlChange
   │     ├TfrmODMedIV.loadExpectFirstDose
   │     │ ├TfrmODMedIV.DisplayDoseNow
   │     │ ├LoadAdminInfo
   │     │ └FMToday
   │     │   └FMNow
   │     ├TResponses.FindResponseByName
   │     ├TResponses.Clear
   │     ├TResponses.Update
   │     │ ├TResponses.FindResponseByName
   │     │ └TResponses.IENForPrompt
   │     ├IsNumericRate
   │     └TResponses.GetOrderText
   │       ├TResponses.NextInstance
   │       ├TResponses.FindResponseByName
   │       ├TResponses.FormatResponse
   │       │ └TResponses.FindResponseByIEN
   │       └TResponses.AppendChildren
   │         ├TResponses.FindPromptByIEN
   │         ├TResponses.FindResponseByIEN
   │         └TResponses.FormatResponse...
   ├TfrmODMedIV.IVTypeHelpText
   ├TCtrlInits.SetControl
   │ ├ClearControl
   │ └TCtrlInits.FindInitByName
   ├LoadSchedules
   ├TfrmODMedIV.UpdateDuration
   └TfrmODMedIV.tabFluidChange

Calls

Name Declaration Comments
CheckAuthForMeds procedure CheckAuthForMeds(var x: string); -
TfrmODMedIV.DoSetFontSize procedure DoSetFontSize( FontSize: integer); -
TfrmODMedIV.InitDialog procedure InitDialog; override; -
TCtrlInits.LoadDefaults procedure LoadDefaults(Src: TStrings); -
ODForIVFluids function ODForIVFluids: TStrings; -
TResponses.SetDialog procedure SetDialog(Value: string); -
TfrmODBase.SetFillerID procedure SetFillerID(const Value: string); -


Source

226   procedure TfrmODMedIV.FormCreate(Sender: TObject);
227   var
228     Restriction: string;
229   begin
230     frmFrame.pnlVisit.Enabled := false;
231     //AutoSizeDisabled := true;
232     inherited;
233     AllowQuickOrder := True;
234     CheckAuthForMeds(Restriction);
235     if Length(Restriction) > 0 then
236     begin
237       InfoBox(Restriction, TC_RESTRICT, MB_OK);
238       Close;
239       Exit;
240     end;
241     OrdAction := -1;
242     DoSetFontSize(MainFontSize);
243     FillerID := 'PSIV';                            // does 'on Display' order check **KCM**
244     StatusText('Loading Dialog Definition');
245     Responses.Dialog := 'PSJI OR PAT FLUID OE';    // loads formatting info
246     StatusText('Loading Default Values');
247     CtrlInits.LoadDefaults(ODForIVFluids);         // ODForIVFluids returns TStrings with defaults
248     InitDialog;
249   end;