method CheckEntityUsedInCube

Description

Check if entity is used in cube

Parameters

iiChartID	input	integer
iiCompanyId	input	integer
olIsUsedInCube	output	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bfrwchart.p)

/* ====================================================================================== *
 * Method       : CheckEntityUsedInCube                                                   *
 * Description  : Check if entity is used in cube                                         *
 * ====================================================================================== */


MAIN_BLOCK:
do on error undo, throw:   
    assign olIsUsedInCube = no.
    <Q-91 run FRWCubeCyByChartAndCompany (first) (Read) (NoCache)
       (input iiChartID, (ChartID)
        input iiCompanyId, (CompanyId)
        output dataset tqFRWCubeCyByChartAndCompany) in BFRWCube>
    find first tqFRWCubeCyByChartAndCompany no-error.
    if available tqFRWCubeCyByChartAndCompany then assign olIsUsedInCube = yes.
end. /* MAIN_BLOCK */