Procedure

TfrmODMedNVA.cboDosageExit

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedNVA

Declaration

procedure cboDosageExit(Sender: TObject);

Calls Hierarchy


TfrmODMedNVA.cboDosageExit
 └TfrmODMedNVA.cboDosageClick
   ├TfrmODMedNVA.UpdateRelated
   │ └TfrmODMedNVA.timCheckChangesTimer
   │   ├TfrmODMedNVA.ControlChange
   │   │ ├TResponses.Clear
   │   │ ├TResponses.Update
   │   │ │ ├TResponses.FindResponseByName
   │   │ │ └TResponses.IENForPrompt
   │   │ ├TfrmODMedNVA.FindCommonDrug
   │   │ │ ├TfrmODMedNVA.FindDoseFields
   │   │ │ ├SaveDrug
   │   │ │ └KillDrug
   │   │ ├TfrmODMedNVA.ConstructedDoseFields
   │   │ ├TfrmODMedNVA.ValueOf
   │   │ │ ├GetSchedule
   │   │ │ └GetScheduleEX
   │   │ ├TfrmODMedNVA.OutpatientSig
   │   │ │ ├TfrmODMedNVA.ValueOf...
   │   │ │ └TfrmODMedNVA.CheckDecimal
   │   │ └TResponses.GetOrderText
   │   │   ├TResponses.NextInstance
   │   │   ├TResponses.FindResponseByName
   │   │   ├TResponses.FormatResponse
   │   │   │ └TResponses.FindResponseByIEN
   │   │   └TResponses.AppendChildren
   │   │     ├TResponses.FindPromptByIEN
   │   │     ├TResponses.FindResponseByIEN
   │   │     └TResponses.FormatResponse...
   │   ├TResponses.NextInstance
   │   ├TfrmODMedNVA.ValueOfResponse
   │   │ └TResponses.IValueFor
   │   ├TfrmODMedNVA.ValueOf...
   │   └TfrmODMedNVA.UpdateStartExpires
   │     ├LoadAdminInfo
   │     └FMToday
   │       └FMNow
   ├TfrmODMedNVA.ValueOf...
   └TfrmODMedNVA.CheckFormAltDose
     ├CheckFormularyDose
     │ ├LoadFormularyAltDose
     │ └TfrmBase508Form.Create
     │   ├TfrmBase508Form.UpdateAccessibilityActions
     │   ├UnfocusableControlEnter
     │   └AdjustControls
     │     ├TfrmBase508Form.ModifyUnfocusableControl
     │     └..(rec)..
     ├TfrmODMedNVA.ResetOnMedChange
     │ ├ResetControl
     │ └TResponses.Clear
     └TfrmODMedNVA.SetOnMedSelect
       ├GetPKISite
       ├TCtrlInits.LoadOrderItem
       │ ├TCtrlInits.ClearOI
       │ └TCtrlInits.ExtractInits
       │   └TCtrlInit.Create
       ├OIForNVA
       ├TCtrlInits.SetControl
       │ ├ClearControl
       │ └TCtrlInits.FindInitByName
       ├TfrmODMedNVA.cboRouteChange
       │ └TfrmODMedNVA.ControlChange...
       ├TCtrlInits.DefaultText
       │ └TCtrlInits.FindInitByName
       ├TfrmODMedNVA.ValueOf...
       └TCtrlInits.TextOf
         └TCtrlInits.FindInitByName

Calls

Name Declaration Comments
TfrmODMedNVA.cboDosageClick procedure cboDosageClick(Sender: TObject); -


Source

1372  procedure TfrmODMedNVA.cboDosageExit(Sender: TObject);
1373  begin
1374    inherited;
1375    if ActiveControl = memMessage then
1376    begin
1377      memMessage.SendToBack;
1378      PnlMessage.Visible := False;
1379      Exit;
1380    end;
1381    if ActiveControl = memComment then
1382    begin
1383     if PnlMessage.Visible = true then
1384     begin
1385       memMessage.SendToBack;
1386       PnlMessage.Visible := False;
1387     end;
1388    end
1389    else if (ActiveControl <> btnSelect) and (ActiveControl <> memComment) then
1390    begin
1391     if PnlMessage.Visible = true then
1392     begin
1393       memMessage.SendToBack;
1394       PnlMessage.Visible := False;
1395     end;
1396     cboDosageClick(Self);
1397    end;
1398  end;