Procedure

TfrmODMeds.btnXRemoveClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure btnXRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmODMeds.btnXRemoveClick
 ├TfrmODMeds.DropLastSequence
 └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...

Called-By Hierarchy


  TfrmODMeds.btnXRemoveClick
TfrmODMeds.grdDosesKeyDown┘ 

Calls

Name Declaration Comments
TfrmODMeds.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMeds.DropLastSequence procedure DropLastSequence(ASign: integer = 0); -

Called-By

Name Declaration Comments
TfrmODMeds.grdDosesKeyDown procedure grdDosesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

4039  procedure TfrmODMeds.btnXRemoveClick(Sender: TObject);
4040  var
4041    i: Integer;
4042  begin
4043    inherited;
4044    grdDoses.SetFocus;                            // make sure exit events for editors fire
4045    with grdDoses do if (Row > 0) and (RowCount > 2) then
4046    begin
4047      { move rows up }
4048      for i := Row to RowCount - 2 do Rows[i] := Rows[i+1];
4049      RowCount := RowCount - 1;
4050      Rows[RowCount].Clear;
4051    end;
4052    DropLastSequence;
4053    ControlChange(Self);
4054  end;