Procedure

TfrmODRad.cmdRemoveClick

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODRad

Declaration

procedure cmdRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmODRad.cmdRemoveClick
 ├TfrmODBase.OrderForInpatient
 │ ├OrderEventTypeOnCreate
 │ └IsPassEvt1
 └TfrmODRad.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TEncounter.GetLocationName
   │ └TEncounter.UpdateText
   │   └GetEncounterText
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODRad.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODBase.OrderForInpatient function OrderForInpatient: Boolean; -


Source

526   procedure TfrmODRad.cmdRemoveClick(Sender: TObject);
527   begin
528     with lstSelectMod do
529        if (SelCount = 0) or (ItemIndex < 0) then exit
530        else
531         begin
532          if Piece(Items[ItemIndex], U, 2) = 'PORTABLE EXAM' then
533            with cboTransport do if OrderForInpatient
534              then SelectByID('W')
535              else SelectByID('A');
536          Items.Delete(ItemIndex);
537          ItemIndex := Items.Count - 1;
538          if ItemIndex > -1 then SelectByID(Piece(Items[ItemIndex], U, 1));
539         end ;
540     ControlChange(Sender);
541   end;