Procedure

TfrmODMeds.txtSupplyChange

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Comments

TxtSupply, txtQuantity --------------------------

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure txtSupplyChange(Sender: TObject);

Calls Hierarchy


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

2712  procedure TfrmODMeds.txtSupplyChange(Sender: TObject);
2713  begin
2714    inherited;
2715    if Changing then Exit;
2716    if not Showing then Exit;
2717    if FNoZERO = False then FNoZERO := True;
2718  
2719    // if value = 0, change probably caused by the spin button
2720    if txtSupply.Text <> '0' then txtSupply.Tag := 1;
2721    UpdateRelated;
2722  end;