Procedure

TfrmODAllergy.FormCreate

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmODAllergy.FormCreate
 ├TfrmODBase.SetFillerID
 │ ├AddFillerAppID
 │ ├OrderChecksEnabled
 │ └OrderChecksOnDisplay
 ├TResponses.SetDialog
 │ ├LoadDialogDefinition
 │ └SortPromptsBySequence
 ├TCtrlInits.LoadDefaults
 │ └TCtrlInits.ExtractInits
 │   └TCtrlInit.Create
 ├ODForAllergies
 ├TCtrlInits.SetControl
 │ ├ClearControl
 │ └TCtrlInits.FindInitByName
 ├TfrmODBase.PreserveControl
 ├TfrmODAllergy.InitDialog
 │ ├TCtrlInits.SetControl...
 │ └ListAllergies
 └TfrmODAllergy.btnAgentClick
   ├AllergyLookup
   │ └TfrmBase508Form.Create
   │   ├TfrmBase508Form.UpdateAccessibilityActions
   │   ├UnfocusableControlEnter
   │   └AdjustControls
   │     ├TfrmBase508Form.ModifyUnfocusableControl
   │     └..(rec)..
   └TfrmODAllergy.ControlChange
     ├TResponses.Clear
     ├TResponses.Update
     │ ├TResponses.FindResponseByName
     │ └TResponses.IENForPrompt
     ├ValidDateTimeStr
     └TResponses.GetOrderText
       ├TResponses.NextInstance
       ├TResponses.FindResponseByName
       ├TResponses.FormatResponse
       │ └TResponses.FindResponseByIEN
       └TResponses.AppendChildren
         ├TResponses.FindPromptByIEN
         ├TResponses.FindResponseByIEN
         └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODAllergy.btnAgentClick procedure btnAgentClick(Sender: TObject); -
TfrmODAllergy.InitDialog procedure InitDialog; override; -
TCtrlInits.LoadDefaults procedure LoadDefaults(Src: TStrings); -
ODForAllergies function ODForAllergies: TStrings; -
TfrmODBase.PreserveControl procedure PreserveControl(AControl: TControl); -
TCtrlInits.SetControl procedure SetControl(AControl: TControl; const ASection: string); -
TResponses.SetDialog procedure SetDialog(Value: string); -
TfrmODBase.SetFillerID procedure SetFillerID(const Value: string); -


Source

91    procedure TfrmODAllergy.FormCreate(Sender: TObject);
92    begin
93      inherited;
94      AllergyList := TStringList.Create;
95      AllowQuickOrder := False;
96      FillerID := 'GMRD';                     // does 'on Display' order check **KCM**
97      StatusText('Loading Dialog Definition');
98      Responses.Dialog := 'GMRAOR ALLERGY ENTER/EDIT';   // loads formatting info
99      StatusText('Loading Default Values');
100     CtrlInits.LoadDefaults(ODForAllergies);  // returns TStrings with defaults
101     StatusText('Initializing Long List');
102     CtrlInits.SetControl(cboSymptoms, 'Top Ten');
103     cboSymptoms.InsertSeparator;
104     cboOriginator.InitLongList(User.Name) ;
105     cboOriginator.SelectByIEN(User.DUZ);
106     PreserveControl(cboSymptoms);
107     PreserveControl(cboOriginator);
108     InitDialog;
109     btnAgentClick(Self);
110   end;