Procedure

TfrmODMeds.chkXPRNClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure chkXPRNClick(Sender: TObject);

Calls Hierarchy


TfrmODMeds.chkXPRNClick
 └TfrmODMeds.cboXScheduleClick
   ├TfrmODMeds.UpdateStartExpires
   │ ├TfrmODMeds.ValFor
   │ ├TfrmODMeds.lblAdminSchSetText
   │ ├TfrmODMeds.lblAdminSchGetText
   │ ├LoadAdminInfo
   │ ├FMToday
   │ │ └FMNow
   │ └TfrmODMeds.DisplayDoseNow
   └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...
       ├IsClozapineOrder
       ├TfrmODMeds.UpdateDefaultSupply
       │ ├TResponses.IValueFor
       │ ├IsClozapineOrder
       │ ├DefaultDays
       │ └DaysToQty
       ├TfrmODMeds.UpdateSupplyQuantity
       │ ├TfrmODMeds.DurationToDays
       │ │ └TfrmODMeds.ValFor
       │ ├DaysToQty
       │ └QtyToDays
       └TfrmODMeds.UpdateRefills
         └CalcMaxRefills

Calls

Name Declaration Comments
TfrmODMeds.cboXScheduleClick procedure cboXScheduleClick(Sender: TObject); -


Source

3870  procedure TfrmODMeds.chkXPRNClick(Sender: TObject);
3871  var
3872  check: string;
3873  begin
3874    inherited;
3875    if self.chkXPRN.Checked = True then check := '1'
3876    else check := '0';
3877    self.grdDoses.Cells[COL_CHKXPRN, self.grdDoses.Row] := check;
3878    if not Changing then cboXScheduleClick(Self);
3879  end;