Procedure

TfrmODAllergy.lstAllergySelect

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure lstAllergySelect(Sender: TObject);

Calls Hierarchy


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

Called-By Hierarchy


           TfrmODAllergy.lstAllergySelect
              TfrmODAllergy.SetupDialog┤ 
                              ..(rec)..┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODAllergy.lstAllergySelect procedure lstAllergySelect(Sender: TObject); -
TfrmODAllergy.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

279   procedure TfrmODAllergy.lstAllergySelect(Sender: TObject);
280   begin
281     inherited;
282     with lstAllergy do
283       begin
284         if Items.Count = 0 then
285           Exit
286         else if Piece(Items[0], U, 1) = '-1' then
287           Exit;
288         if Piece(Items[0], U, 1) <> FLastAllergyID then FLastAllergyID := Piece(Items[0], U, 1) else Exit;
289         Changing := True;
290         if Sender <> Self then Responses.Clear;       // Sender=Self when called from SetupDialog
291         Changing := False;
292         if CharAt(Piece(Items[0], U, 1), 1) = 'Q' then
293           begin
294             Responses.QuickOrder := ExtractInteger(Piece(Items[0], U, 1));
295             Responses.SetControl(lstAllergy, 'ITEM', 1);
296             FLastAllergyID := Piece(Items[0], U, 1);
297           end;
298       end;
299     with Responses do if QuickOrder > 0 then
300       begin
301       SetControl(lstAllergy,          'ITEM',   1);
302       lstAllergySelect(Self);
303       Changing := True;
304       SetControl(cboReactionType,     'TYPE',     1);
305       SetControl(lstSelectedSymptoms, 'REACTION',     1);
306       SetControl(grpObsHist,          'OBSERVED',     1);
307       SetControl(calObservedDate,     'START',     1);
308       SetControl(cboSeverity,         'SEVERITY',     1);
309       SetControl(memComments,         'COMMENT',   1);
310       SetControl(ckNoKnownAllergies,  'NKA',       1);
311       SetControl(cboOriginator,       'PROVIDER',  1);
312       end;
313     ControlChange(Self) ;
314   end;