Procedure

TfrmODDiet.cmdOPRemoveClick

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cmdOPRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmODDiet.cmdOPRemoveClick
 └TfrmODDiet.OPChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODDiet.GetOPDaysOfWeek
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODDiet.OPChange procedure OPChange(Sender: TObject); -


Source

2154  procedure TfrmODDiet.cmdOPRemoveClick(Sender: TObject);
2155  begin
2156    inherited;
2157    with lstOPDietSelect do if ItemIndex > -1 then Items.Delete(ItemIndex);
2158    OPChange(Sender);
2159    with lstOPDietSelect do if Items.Count = 0 then
2160    begin
2161      lblOPDelivery.Visible := True;
2162      cboOPDelivery.Visible := True;
2163  { TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? }
2164      chkOPCancelTubefeeding.State := cbGrayed;
2165      chkOPCancelTubefeeding.Visible := False;
2166    end;
2167  end;