Procedure
Module
fODMeds
Last Modified
7/15/2014 3:26:42 PM
Visibility
Public/Published
Owner
TfrmODMeds
Declaration
procedure cboDosageChange(Sender: TObject);
Calls Hierarchy
TfrmODMeds.cboDosageChange
└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
Source
2496 procedure TfrmODMeds.cboDosageChange(Sender: TObject);
2497 var
2498 temp1,temp2: string;
2499 Count: integer;
2500 begin
2501 inherited;
2502 Count := Pos(U,cboDosage.Text);
2503 if Count > 0 then
2504 begin
2505 temp1 := copy(cboDosage.Text,0,count-1);
2506 temp2 := copy(cboDosage.Text,count+1,Length(cboDosage.text));
2507 infoBox('An ^ is not allowed in the dosage value', 'Dosage Warning', MB_OK);
2508 cboDosage.Text := temp1 + temp2;
2509 end;
2510 UpdateRelated;
2511 end;