Function

GetCurrentSpec

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function GetCurrentSpec(const APtIFN: string): string;

Called-By Hierarchy


                            GetCurrentSpec
                       ListSpecialtiesED┤ 
           TfrmDefaultEvent.FormCreate┤ │ 
TfraEvntDelayList.DisplayEvntDelayList┤ │ 
        TfrmOrdersTS.radDelayedClick┤ │ │ 
         TfrmMedCopy.radDelayedClick┤ │ │ 
     TfrmCopyOrders.radEvtDelayClick┘ │ │ 
        TfrmChgEvent.LoadSpecialtyList┘ │ 
                    ExecuteChangeEvt┘   │ 
     TfrmOrders.mnuActChgEvntClick┘     │ 
                       SendReleaseOrders┤ 
             ExecuteReleaseEventOrders┘ │ 
           TfrmOrders.mnuActRelClick┘   │ 
     ShowDelayedEventsTreatingSepecialty┤ 
       TfrmOrders.btnDelayedOrderClick┘ │ 
                     SetDelayEventForMed┤ 
              TfrmMeds.mnuActCopyClick┘ │ 
                          SetViewForCopy┤ 
            TfrmOrders.mnuActCopyClick┘ │ 
            ExecuteReleaseEventOrders...┤ 
        TfrmOrdersEvntRelease.FormCreate┤ 
                     ExecuteChangeEvt...┘ 

Called-By

Name Declaration Comments
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -
ExecuteReleaseEventOrders function ExecuteReleaseEventOrders(AnOrderList: TList): boolean; -
TfrmOrdersEvntRelease.FormCreate procedure FormCreate(Sender: TObject); -
ListSpecialtiesED procedure ListSpecialtiesED(AType: Char; Dest: TStrings); -
SendReleaseOrders procedure SendReleaseOrders(OrderList: TStringList); -
SetDelayEventForMed function SetDelayEventForMed(const RadCap: string; var ADelayEvent: TOrderDelayEvent; var IsNewEvent: Boolean; LimitEvent: Char): Boolean; -
SetViewForCopy function SetViewForCopy(var IsNewEvent: boolean; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): Boolean; -
ShowDelayedEventsTreatingSepecialty function ShowDelayedEventsTreatingSepecialty(const ARadCaption: string; var AnEvent: TOrderDelayEvent; var ADlgLst: TStringlist; var ReleaseNow: boolean; AnLimitEvent: Char = #0): Boolean; -


Source

1991  function GetCurrentSpec(const APtIFN: string): string;
1992  begin
1993    Result := SCallV('OREVNTX1 CURSPE', [APtIFN]);
1994  end;