Procedure

TfrmODMeds.cboXDosageChange

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXDosageChange(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXDosageChange
 └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

Calls

Name Declaration Comments
TfrmODMeds.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -


Source

3652  procedure TfrmODMeds.cboXDosageChange(Sender: TObject);
3653  var
3654  temp1,temp2: string;
3655  count: integer;
3656  begin
3657    inherited;
3658    if not Changing and (cboXDosage.ItemIndex < 0) then
3659    begin
3660      Count := Pos(U,cboXDosage.Text);
3661      if Count > 0 then
3662        begin
3663          temp1 := copy(cboXDosage.Text,0,count-1);
3664          temp2 := copy(cboXDosage.Text,count+1,Length(cboXDosage.text));
3665          infoBox('An ^ is not allowed in the dosage value', 'Dosage Warning', MB_OK);
3666          cboXDosage.Text := temp1 + temp2;
3667        end;
3668      grdDoses.Cells[COL_DOSAGE, cboXDosage.Tag] := cboXDosage.Text;
3669      UpdateRelated;
3670    end;
3671  end;