Procedure

TfrmODAllergy.SetupDialog

Directives

Override

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public

Overrides

TfrmODBase.SetupDialog

Owner

TfrmODAllergy

Declaration

procedure SetupDialog(OrderAction: Integer; const ID: string); override;

Calls Hierarchy


TfrmODAllergy.SetupDialog
 ├TResponses.SetControl
 │ ├TResponses.FindResponseByName
 │ └AssignBPText
 │   ├DisplayGroupToLinkType
 │   │ └DisplayGroupByName
 │   ├TResponses.EValueFor
 │   ├GetServiceIEN
 │   ├TResponses.IValueFor
 │   ├GetProcedureIEN
 │   ├ExpandOrderObjects
 │   │ ├TdmodShared.BoilerplateOK
 │   │ │ ├ErrCount
 │   │ │ ├AddErr
 │   │ │ └TdmodShared.LoadTIUObjects
 │   │ │   └GetObjectList
 │   │ └GetTemplateText
 │   │   └TEncounter.GetVisitStr
 │   │     └TEncounter.GetVisitCategory
 │   ├SetTemplateDialogCanceled
 │   ├CheckBoilerplate4Fields
 │   ├ExecuteTemplateOrBoilerPlate
 │   └WasTemplateDialogCanceled
 ├TfrmODAllergy.lstAllergySelect
 │ ├TResponses.Clear
 │ ├TResponses.SetQuickOrder
 │ │ ├TResponses.Clear
 │ │ └LoadResponses
 │ │   └ExtractToResponses
 │ │     └ExpandOrderObjects...
 │ ├TResponses.SetControl...
 │ ├..(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...
 └TfrmODAllergy.ControlChange...

Calls

Name Declaration Comments
TfrmODAllergy.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODAllergy.lstAllergySelect procedure lstAllergySelect(Sender: TObject); -
TResponses.SetControl procedure SetControl(AControl: TControl; const APromptID: string; AnInstance: Integer); -


Source

143   procedure TfrmODAllergy.SetupDialog(OrderAction: Integer; const ID: string);
144   begin
145     inherited;
146     if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do
147     begin
148       SetControl(lstAllergy,          'ITEM',   1);
149       lstAllergySelect(Self);
150       Changing := True;
151       SetControl(cboReactionType,     'TYPE',     1);
152       SetControl(lstSelectedSymptoms, 'REACTION',     1);     // need dates concatenated  - see cboSymptomsClick
153       SetControl(grpObsHist,          'OBSERVED',     1);
154       SetControl(calObservedDate,     'START',     1);
155       SetControl(cboSeverity,         'SEVERITY',     1);
156       SetControl(memComments,         'COMMENT',   1);
157       SetControl(ckNoKnownAllergies,  'NKA',       1);
158       SetControl(cboOriginator,       'PROVIDER',  1);
159       Changing := False;
160       ControlChange(Self);
161     end;
162   end;