Procedure

TfrmODMeds.cboXDosageExit

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Comments

TempTag: integer;

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXDosageExit(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXDosageExit
 ├TfrmODMeds.cboXDosageClick
 │ ├TfrmODMeds.UpdateRelated
 │ │ └TfrmODMeds.timCheckChangesTimer
 │ │   ├TfrmODMeds.ControlChange
 │ │   │ ├TResponses.Clear
 │ │   │ ├TResponses.Update
 │ │   │ │ ├TResponses.FindResponseByName
 │ │   │ │ └TResponses.IENForPrompt
 │ │   │ ├TfrmODMeds.FindCommonDrug
 │ │   │ │ ├TfrmODMeds.FindDoseFields
 │ │   │ │ ├SaveDrug
 │ │   │ │ └KillDrug
 │ │   │ ├TfrmODMeds.ConstructedDoseFields
 │ │   │ ├TfrmODMeds.ValueOf
 │ │   │ │ ├GetSingleDoseSchedule
 │ │   │ │ ├GetSingleDoseScheduleEX
 │ │   │ │ ├TfrmODMeds.FieldsForDose
 │ │   │ │ │ └TfrmODMeds.ConstructedDoseFields
 │ │   │ │ ├TfrmODMeds.FieldsForDrug
 │ │   │ │ ├GetComplexDoseSchedule
 │ │   │ │ │ └TfrmODMeds.ValFor
 │ │   │ │ └GetComplexDoseScheduleEX
 │ │   │ │   └TfrmODMeds.ValFor
 │ │   │ ├TfrmODMeds.lblAdminSchGetText
 │ │   │ ├TfrmODMeds.ValFor
 │ │   │ ├TfrmODMeds.InpatientSig
 │ │   │ │ ├TfrmODMeds.ValueOf...
 │ │   │ │ └TfrmODMeds.CheckDecimal
 │ │   │ │   └TfrmODMeds.TextDosage
 │ │   │ ├TfrmODMeds.OutpatientSig
 │ │   │ │ ├TfrmODMeds.ValueOf...
 │ │   │ │ └TfrmODMeds.CheckDecimal...
 │ │   │ └TResponses.GetOrderText
 │ │   │   ├TResponses.NextInstance
 │ │   │   ├TResponses.FindResponseByName
 │ │   │   ├TResponses.FormatResponse
 │ │   │   │ └TResponses.FindResponseByIEN
 │ │   │   └TResponses.AppendChildren
 │ │   │     ├TResponses.FindPromptByIEN
 │ │   │     ├TResponses.FindResponseByIEN
 │ │   │     └TResponses.FormatResponse...
 │ │   ├TResponses.NextInstance
 │ │   ├TfrmODMeds.ValueOfResponse
 │ │   │ └TResponses.IValueFor
 │ │   ├TfrmODMeds.ValueOf...
 │ │   ├TfrmODMeds.UpdateStartExpires
 │ │   │ ├TfrmODMeds.ValFor
 │ │   │ ├TfrmODMeds.lblAdminSchSetText
 │ │   │ ├TfrmODMeds.lblAdminSchGetText
 │ │   │ ├LoadAdminInfo
 │ │   │ ├FMToday
 │ │   │ │ └FMNow
 │ │   │ └TfrmODMeds.DisplayDoseNow
 │ │   ├IsClozapineOrder
 │ │   ├TfrmODMeds.UpdateDefaultSupply
 │ │   │ ├TResponses.IValueFor
 │ │   │ ├IsClozapineOrder
 │ │   │ ├DefaultDays
 │ │   │ └DaysToQty
 │ │   ├TfrmODMeds.UpdateSupplyQuantity
 │ │   │ ├TfrmODMeds.DurationToDays
 │ │   │ │ └TfrmODMeds.ValFor
 │ │   │ ├DaysToQty
 │ │   │ └QtyToDays
 │ │   └TfrmODMeds.UpdateRefills
 │ │     └CalcMaxRefills
 │ ├TfrmODMeds.ValueOf...
 │ ├TfrmODMeds.DispOrderMessage
 │ ├DispenseMessage
 │ └QuantityMessage
 ├TfrmODMeds.UpdateRelated...
 ├TfrmODMeds.RestoreDefaultButton
 └TfrmODMeds.RestoreCancelButton

Calls

Name Declaration Comments
TfrmODMeds.cboXDosageClick procedure cboXDosageClick(Sender: TObject); -
TfrmODMeds.RestoreCancelButton procedure RestoreCancelButton; -
TfrmODMeds.RestoreDefaultButton procedure RestoreDefaultButton; -
TfrmODMeds.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -


Source

3707  procedure TfrmODMeds.cboXDosageExit(Sender: TObject);
3708  var
3709  //tempTag: integer;
3710  str: string;
3711  begin
3712    inherited;
3713    if cboXDosage.Showing then
3714    begin
3715      cboXDosageClick(Self);
3716      str := cboXDosage.Text;
3717      //tempTag := cboXDosage.Tag;
3718      //cboXDosage.Tag := -1;
3719      cboXDosage.Hide;
3720      UpdateRelated;
3721      RestoreDefaultButton;
3722      RestoreCancelButton;
3723     (*Probably not needed here since on validation check on accept
3724      if (LeftStr(cboXDosage.Text,1)='.') and (self.tabDose.TabIndex = TI_COMPLEX) then
3725           begin
3726             infoBox('Dosage must have a leading numeric value','Invalid Dosage',MB_OK);
3727             //cboXDosage.Tag := tempTag;
3728             cboXDosage.Show;
3729             cboXDosage.SetFocus;
3730             Exit;
3731           end;  *)
3732      if (length(cboxdosage.Text)>0) and (cboxDosage.ItemIndex > -1) and
3733        (Piece(cboxDosage.Items.Strings[cboxDosage.ItemIndex],U,5) <> Piece(cboxDosage.Text,'#',1)) then
3734        begin
3735          cboXDosage.ItemIndex := -1;
3736          cboXDosage.Text := Piece(str, '#', 1);
3737          self.grdDoses.Cells[COL_DOSAGE,self.grdDoses.row] := cboXDosage.Text;
3738          UpdateRelated(false);
3739        end;
3740      if (pnlMessage.Visible) and (memMessage.TabStop)  then
3741      begin
3742        pnlMessage.Parent := grdDoses.Parent;
3743        pnlMessage.TabOrder := grdDoses.TabOrder;
3744        ActiveControl := memMessage;
3745      end
3746      else if grdDoses.Showing then
3747        ActiveControl := grdDoses
3748      else
3749        ActiveControl := cboDosage;
3750      end
3751      else
3752         cmdQuit.Click;
3753    end;