Procedure

TfrmOrders.SaveSignOrders

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Owner

TfrmOrders

Declaration

procedure SaveSignOrders;

Calls Hierarchy


TfrmOrders.SaveSignOrders
 ├TfrmPage.GetPatientViewed
 └TfrmOrders.RefreshOrderList
   ├LoadOrdersAbbr
   │ ├ClearOrders
   │ ├LoadDGroupMap
   │ ├ExpiredOrdersStartDT
   │ ├FMNow
   │ └SeqOfDGroup
   │   └LoadDGroupMap
   ├ClearOrders
   ├LoadOrdersAbbr
   │ ├LoadDGroupMap
   │ ├FMNow
   │ └SeqOfDGroup...
   ├TfrmOrders.ExpandEventSection
   ├TfrmOrders.CompressEventSection
   ├SortOrders
   │ ├InverseByGroup
   │ │ └TChanges.Exist
   │ ├ForwardByGroup
   │ │ └TChanges.Exist
   │ ├InverseChrono
   │ └ForwardChrono
   ├TfrmOrders.AddToListBox
   │ └TfrmOrders.GetPlainText
   │   └TfrmOrders.GetOrderText
   │     ├LoadFlagReason
   │     ├TfrmOrders.GetStartStopText
   │     └NameOfStatus
   └DGroupAll

Called-By Hierarchy


TfrmOrders.SaveSignOrders
 TfrmOrders.NotifyOrder┘ 
 TfrmFrame.UMNewOrder┘   

Calls

Name Declaration Comments
TfrmPage.GetPatientViewed function GetPatientViewed: Boolean; -
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -

Called-By

Name Declaration Comments
TfrmOrders.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -


Source

1604  procedure TfrmOrders.SaveSignOrders;
1605  var
1606    SaveOrderID: string;
1607    i: Integer;
1608  begin
1609    // unlock if able??
1610    if not PatientViewed then Exit;
1611    if not frmFrame.ContextChanging then with lstOrders do
1612    begin
1613      if (TopIndex < Items.Count) and (TopIndex > -1)
1614        then SaveOrderID := TOrder(Items.Objects[TopIndex]).ID
1615        else SaveOrderID := '';
1616      if lstSheets.ItemIndex > 0 then
1617        RefreshOrderList(FROM_SERVER,Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1))
1618      else
1619        RefreshOrderList(FROM_SERVER);
1620      if Length(SaveOrderID) > 0 then for i := 0 to Items.Count - 1 do
1621        if TOrder(Items.Objects[i]).ID = SaveOrderID then TopIndex := i;
1622    end;
1623  end;