P_Cfd_Associable_Cds_View

@AbapCatalog.viewEnhancementCategory: [#NONE]
@AccessControl.authorizationCheck: #NOT_ALLOWED
@EndUserText.label: 'Associable CDS Views'
@Metadata.ignorePropagatedAnnotations: true
@ObjectModel.usageType:{
  serviceQuality: #X,
  sizeCategory: #S,
  dataClass: #MIXED
}
define view entity P_Cfd_Associable_Cds_View

  as select distinct from ddldependency                  as stob

    inner join            ddddlsrc                       as ddlSource                   on  ddlSource.ddlname       = stob.ddlname
                                                                                        and (
                                                                                           ddlSource.source_type    = 'V'
                                                                                           or ddlSource.source_type = 'W'
                                                                                           or ddlSource.source_type = 'Q'
                                                                                         )
                                                                                        and ddlSource.as4local      = stob.state
                                                                                        and ddlSource.parentname    = ''

    inner join            dd02b                          as entity                      on  entity.strucobjn = stob.objectname
                                                                                        and entity.as4local  = stob.state
                                                                                        
    left outer join       ATOV_SETTINGS                  as atoSettings                 on atoSettings.client = $session.client                                                                 

    left outer join       ATOV_U_ITEM_KEY                as atoItems                    on  atoItems.item_id   = stob.ddlname
                                                                                        and atoItems.item_type = 'CKE'

    left outer join       ARS_APIS_RELEASED_C1_OR_GROUPS as releasedObjects             on  releasedObjects.object_key  = stob.objectname
                                                                                        and releasedObjects.object_type = 'CDS_STOB'
                                                                                        and releasedObjects.state       = 'RELEASED'

    left outer join       ddheadanno                     as analyticsDataCategoryAnno   on  analyticsDataCategoryAnno.strucobjn = stob.objectname
                                                                                        and analyticsDataCategoryAnno.name      = 'ANALYTICS.DATACATEGORY'

    left outer join       ddheadanno                     as objectModelDataCategoryAnno on  objectModelDataCategoryAnno.strucobjn = stob.objectname
                                                                                        and objectModelDataCategoryAnno.name      = 'OBJECTMODEL.DATACATEGORY'

    left outer join       ddheadanno                     as objectModelQueryImplemented on  objectModelQueryImplemented.strucobjn = stob.objectname
                                                                                        and objectModelQueryImplemented.name      = 'OBJECTMODEL.QUERY.IMPLEMENTEDBY'

    left outer join       dd10b                          as parameters                  on  parameters.strucobjn = stob.objectname
                                                                                        and parameters.as4local  = 'A'

    left outer join       P_Cfd_Associable_Cds_View_Keys as keyFields                   on keyFields.ViewName = stob.objectname

  association [0..1] to P_Cfd_Cds_Source_Origin as _sourceOrigin              on  _sourceOrigin.Code = $projection.SourceOrigin

  association [0..1] to ddddlsrc02bt            as _viewLabelCurrentLanguage  on  _viewLabelCurrentLanguage.ddlname    = ddlSource.ddlname
                                                                              and _viewLabelCurrentLanguage.strucobjn  = stob.objectname
                                                                              and _viewLabelCurrentLanguage.as4local   = stob.state
                                                                              and _viewLabelCurrentLanguage.ddlanguage = $session.system_language
  association [0..1] to ddddlsrc02bt            as _viewLabelFallbackLanguage on  _viewLabelFallbackLanguage.ddlname    = ddlSource.ddlname
                                                                              and _viewLabelFallbackLanguage.strucobjn  = stob.objectname
                                                                              and _viewLabelFallbackLanguage.as4local   = stob.state
                                                                              and _viewLabelFallbackLanguage.ddlanguage = 'E'
  // short text as fallback if no label was defined (happens for Custom CDS view that only short text in current language exist)

  association [0..1] to ddddlsrct               as _viewDescriptionFallback   on  _viewDescriptionFallback.ddlname    = ddlSource.ddlname
                                                                              and _viewDescriptionFallback.as4local   = stob.state
                                                                              and _viewDescriptionFallback.ddlanguage = $session.system_language
                                                                    
{

  key   stob.objectname                                         as ViewName,

        entity.strucobjn_raw                                    as ViewNameCamelCase,

        coalesce( _viewLabelCurrentLanguage.ddtext,
                  coalesce( _viewLabelFallbackLanguage.ddtext,
                            _viewDescriptionFallback.ddtext ) ) as ViewDescription,

        cast( ddlSource.source_origin as abap.char( 3 ) )       as SourceOrigin, // must match type (char) of text association to DD07L-DOMVALUE_L, but length (3) of DDDDLSRC-SOURCE_ORIGIN


        case
          when analyticsDataCategoryAnno.value is not null and
               analyticsDataCategoryAnno.value = '#DIMENSION'
          then 'X'
          else ''
        end                                                     as IsMasterdataView,

        case
          when objectModelDataCategoryAnno.value is not null and
               objectModelDataCategoryAnno.value = '#VALUE_HELP'
          then 'X'
          else ''
        end                                                     as IsValueHelpView,

        case
          when ddlSource.source_type = 'Q'
          then 'X'
          else ''
          end                                                   as IsCustomEntity,

        case
          when parameters.strucobjn is not null
          then 'X'
          else ''
        end                                                     as HasParameters,

        count( distinct keyFields.FieldName )                   as NumberOfKeys,
        objectModelQueryImplemented.value                       as CustomEntityImplementation,

        //Text and Fuzzy Search

        _viewLabelCurrentLanguage.ddtext                        as ViewDescriptionCurrentLanguage,
        _viewLabelFallbackLanguage.ddtext                       as ViewDescriptionFallbackLang,
        _viewDescriptionFallback.ddtext                         as ViewDescriptionFallback,
        _sourceOrigin

}
where
      stob.objecttype                      = 'STOB'
  and stob.state                           = 'A'
  and ddlSource.source_origin              = 0        // ADT

  and ( ddlSource.abap_language_version   <> '5'      // no developer extensibility

   or   ddlSource.source_type              = 'Q'      // except custom entities  

   or   atoSettings.setup_type             = 'P' )    // except in OnPrem/Private Cloud

  and releasedObjects.object_key          is not null // C1 release

  or  ddlSource.source_origin              = 1        // CustomCdsView

  and atoItems.item_id                    is not null // no draft

group by
  stob.objectname,
  entity.strucobjn_raw,
  _viewLabelCurrentLanguage.ddtext,
  _viewLabelFallbackLanguage.ddtext,
  _viewDescriptionFallback.ddtext,
  ddlSource.source_origin,
  analyticsDataCategoryAnno.value,
  objectModelDataCategoryAnno.value,
  objectModelQueryImplemented.value,
  ddlSource.source_type,
  parameters.strucobjn