Procedure

TfrmODMedNVA.cboDosageClick

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedNVA

Declaration

procedure cboDosageClick(Sender: TObject);

Calls Hierarchy


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

Called-By Hierarchy


 TfrmODMedNVA.cboDosageClick
TfrmODMedNVA.cboDosageExit┘ 

Calls

Name Declaration Comments
TfrmODMedNVA.CheckFormAltDose procedure CheckFormAltDose(DispDrug: Integer); -
TfrmODMedNVA.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -
TfrmODMedNVA.ValueOf function ValueOf(FieldID: Integer; ARow: Integer = -1): string; -

Called-By

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


Source

1338  procedure TfrmODMedNVA.cboDosageClick(Sender: TObject);
1339  var
1340    DispDrug: Integer;
1341  begin
1342    inherited;
1343  UpdateRelated(False);
1344    DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID), 0);
1345    if cboDosage.Text = '' then    //cla 3/18/04
1346    begin
1347      DispDrug := 0;
1348      cboDosage.ItemIndex := -1;
1349    end;
1350    {  hds8084
1351    if DispDrug > 0 then
1352    begin
1353      if not FSuppressMsg then begin
1354        pnlMessage.TabOrder := cboDosage.TabOrder + 1;
1355        DispOrderMessage(DispenseMessage(DispDrug));
1356      end;
1357      x := QuantityMessage(DispDrug);
1358    end
1359    else x := '';
1360    }
1361    with cboDosage do
1362      if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 3) = 'NF')
1363        then CheckFormAltDose(DispDrug);
1364  end;