Procedure

DeleteDCOrdersFromCopiedList

Module

UBACore

Last Modified

7/15/2014 3:26:34 PM

Comments

Delete dc'd orders from BACopiedOrderList to keep things in sync.

Scope

Interfaced

Declaration

procedure DeleteDCOrdersFromCopiedList(pOrderID:string);

Called-By Hierarchy


  DeleteDCOrdersFromCopiedList
                     DCOrder┘ 
    TfrmOrders.NotifyOrder┤   
    TfrmFrame.UMNewOrder┘ │   
           ExecuteDCOrders┘   
TfrmOrders.mnuActDCClick┤     
  TfrmMeds.mnuActDCClick┘     

Called-By

Name Declaration Comments
DCOrder procedure DCOrder(AnOrder: TOrder; AReason: Integer; NewOrder: boolean; var DCType: Integer); -


Source

1404  procedure DeleteDCOrdersFromCopiedList(pOrderID:string);
1405  var i:integer;
1406      holdList: TStringList;
1407      x: string;
1408  begin
1409     holdList := TStringList.Create;
1410     holdList.Clear;
1411     FastAssign(UBAGlobals.BACopiedOrderFlags, holdList);
1412     UBAGlobals.BACopiedOrderFlags.Clear;
1413     for i := 0 to holdList.Count-1 do
1414     begin
1415        x := Piece(holdList.Strings[i],';',1);
1416        if pOrderID = Piece(holdList.Strings[i],';',1) then
1417           continue
1418        else
1419           UBAGlobals.BACopiedOrderFlags.Add(holdList.Strings[i]);
1420     end;
1421  end;