Procedure

TfrmMeds.ActivateDeactiveRenew

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmMeds

Declaration

procedure ActivateDeactiveRenew(AListBox: TListBox);

Calls Hierarchy


TfrmMeds.ActivateDeactiveRenew
 ├TfrmMeds.GetPharmacyOrders
 └TfrmActivateDeactive.fActivateDeactive
   ├TfrmActivateDeactive.GetOriginalOrders
   ├TfrmActivateDeactive.PromptForm
   │ ├TfrmBase508Form.Create
   │ │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ │ ├UnfocusableControlEnter
   │ │ └AdjustControls
   │ │   ├TfrmBase508Form.ModifyUnfocusableControl
   │ │   └..(rec)..
   │ └TfrmActivateDeactive.BuildForm
   ├GetOrderByIFN
   │ └SetOrderFields
   │   ├TOrder.Clear
   │   ├SeqOfDGroup
   │   │ └LoadDGroupMap
   │   └TopNameOfDGroup
   │     └LoadDGroupMap
   └TfrmActivateDeactive.DCOriginalOrder

Called-By Hierarchy


TfrmMeds.ActivateDeactiveRenew
      TfrmMeds.mnuActDCClick┘ 

Calls

Name Declaration Comments
TfrmActivateDeactive.fActivateDeactive procedure fActivateDeactive(OrderID: TStringList; AList: TListBox); overload; -
TfrmMeds.GetPharmacyOrders function GetPharmacyOrders(Control: TWinControl): TStringList; -

Called-By

Name Declaration Comments
TfrmMeds.mnuActDCClick procedure mnuActDCClick(Sender: TObject); -


Source

2072  procedure TfrmMeds.ActivateDeactiveRenew(AListBox: TListBox);
2073  var
2074    i: Integer;
2075    CurID: string;
2076    SomePharmacyOrders: TStringList;
2077    tmpArr: TStringList;
2078  begin
2079      tmpArr := TStringList.Create;
2080      SomePharmacyOrders := GetPharmacyOrders(AListBox);
2081      with AListBox do for i := 0 to Items.Count - 1 do if Selected[i] then
2082        begin
2083          CurID := uPendingChanges.Values[Piece(Piece(SomePharmacyOrders[i], U, 2), ';', 1)];
2084          if Length(CurID) > 0 then CurID := Piece(CurID, U, 2)
2085          else CurID := Piece(SomePharmacyOrders[i], U, 2);
2086          tmpArr.Add(curID);
2087        end;
2088      if tmpArr <> nil then frmActivateDeactive.fActivateDeactive(tmpArr, AListBox);
2089  end;