Procedure

TfrmODMedOut.cmdComplexClick

Module

fODMedOut

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedOut

Declaration

procedure cmdComplexClick(Sender: TObject);

Calls Hierarchy


TfrmODMedOut.cmdComplexClick
 ├ExecuteComplexDose
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├TCtrlInits.DefaultText
 │ │ └TCtrlInits.FindInitByName
 │ ├TCtrlInits.SetControl
 │ │ ├ClearControl
 │ │ └TCtrlInits.FindInitByName
 │ ├TCtrlInits.SetPopupMenu
 │ │ └TCtrlInits.FindInitByName
 │ ├TfrmODMedComplex.UnitClick
 │ ├TResponses.InstanceCount
 │ ├TResponses.NextInstance
 │ ├TResponses.IValueFor
 │ ├TResponses.FindResponseByName
 │ ├TResponses.Clear
 │ ├TfrmODMedComplex.ValFor
 │ └TResponses.Update
 │   ├TResponses.FindResponseByName
 │   └TResponses.IENForPrompt
 └TfrmODMedOut.SetInstructions
   ├TResponses.InstanceCount
   ├TResponses.EValueFor
   ├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
   ├TfrmODMedOut.SetSimple
   ├TResponses.NextInstance
   ├TResponses.IValueFor
   ├TfrmODMedOut.SetComplex
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
ExecuteComplexDose function ExecuteComplexDose(CtrlInits: TCtrlInits; Responses: TResponses): Boolean; -
TfrmODMedOut.SetInstructions procedure SetInstructions; -


Source

531   procedure TfrmODMedOut.cmdComplexClick(Sender: TObject);
532   begin
533     inherited;
534     if FMedCombo.ItemIEN = 0 then
535     begin
536       InfoBox(TX_NO_MED, 'Error', MB_OK);
537       Exit;
538     end;
539     if ExecuteComplexDose(CtrlInits, Responses) then SetInstructions;
540   end;