R_InsurClmFNOLDamagedObjectTP

@AbapCatalog.viewEnhancementCategory: [#NONE]
@AccessControl.authorizationCheck: #MANDATORY
@EndUserText.label: 'FNOL Damaged Object'
@Metadata.ignorePropagatedAnnotations: true
@VDM: {
  viewType:#TRANSACTIONAL,
  lifecycle.contract.type:#SAP_INTERNAL_API
}
@ObjectModel: {
   semanticKey: [ 'InsuranceClaim' ],
usageType:{
  dataClass:      #TRANSACTIONAL,
  serviceQuality: #C,
  sizeCategory:   #XL
}
}
//@ObjectModel.sapObjectNodeType.name: 'InsuranceClaim'

define view entity R_InsurClmFNOLDamagedObjectTP
  as select from I_InsurClmDmgdObjChange
  association        to parent R_InsurClmFNOLTP      as _Claim                on  $projection.InsuranceClaim = _Claim.InsuranceClaim
  association [0..*] to R_InsurClmFNOLFactsDmgdVehTP as _QuestionsDmgdVeh on $projection.InsuranceClaim      = _QuestionsDmgdVeh.InsuranceClaim
                                                                  and $projection.InsurClmDamagedObject = _QuestionsDmgdVeh.InsurFactsSubobject
 
 
  //composition [0..*] of R_InsurClmFNOLDiagnosisTP    as _Diagnosis

  association [1..*] to R_InsurClmFNOLDiagnosisTP    as _Diagnosis on $projection.InsuranceClaim = _Diagnosis.InsuranceClaim
                                                                  and $projection.InsurClmDamagedObject = _Diagnosis.InsurClmInjuredPersonNumber
  
  //composition [1..*] of R_InsurClmFNOLClmntTP        as _Clmnt

  //composition [1..*] of R_InsurClmFNOLSrvcPrvdrTP    as _ServiceProvider

  association [1..*] to R_InsurClmFNOLInjuredSFCTP   as _QuestionInjured on  $projection.InsuranceClaim      = _QuestionInjured.InsuranceClaim
                                                                         and $projection.InsurClmDamagedObject   = _QuestionInjured.InsurClmSubobject
  //composition [1..*] of R_InsurClmFNOLVehDriverTP    as _Driver

  association [0..1] to I_InsurClmDmgdVehMake        as _Make                 on  $projection.InsurClmInsuredObjectCategory = _Make.InsurClmInsuredObjectCategory
                                                                              and $projection.InsurClmInsuredObjectMake     = _Make.InsurClmInsuredObjectMake
  association [0..1] to I_InsurClmDmgdVehModel       as _Model                on  $projection.InsurClmInsuredObjectCategory = _Model.InsurClmInsuredObjectCategory
                                                                              and $projection.InsurClmInsuredObjectMake     = _Model.InsurClmInsuredObjectMake
                                                                              and $projection.InsurClmInsuredObjectModel    = _Model.InsurClmInsuredObjectModel
  association to E_InsuranceClaimDamagedObject as _Extension on  $projection.InsuranceClaim        = _Extension.InsuranceClaim
                                                            and $projection.InsurClmDamagedObject = _Extension.InsurClmDamagedObject
{
  key         InsuranceClaim,
  key         InsurClmDamagedObject,
  key         InsurClmDmgdSubObject,
   //           InsuranceClaim                       as InsuranceClaimForEdit,

              ChangedOnDateTime,
              InsurClmInsuredObject,
              InsurClmDamageCategory,
              InsurClmDamageCategory               as InsurClmDmgdCategoryForLineItm,
              cast('' as abap.char( 4 ))           as InsurClmType,
              cast('' as abap.numc(5))             as InsurClmTypeGeneration,
              cast('' as abap.numc( 5 ))           as InsurClmTypeVers,
              InsurClmDamageSeverity,
              InsurClmInsuredObjectCategory,
              InsurClmREStreetName,
              InsurClmInjuredPersnStreetName,
              InsurClmRECityName,
              InsurClmInjuredPersnCityName,
              InsurClmInjuredPersnAddrTxt,
              InsurClmDmgdObjHasLblty,
              cast(case InsurClmDamageCategory
              when 'AU'  then ''
              else 'X'
              end as boolean_flg preserving type)  as InsurClmDamObjCatIsVeh,
              cast( case InsurClmDamageCategory
               when 'BI' then ''
               else 'X'
               end as boolean_flg preserving type) as InsurClmDamObjCatIsInjured,
              @Semantics.booleanIndicator: true
              cast( '' as abap.char(1) )           as InsurClmDmgdObjActionIsChkd,
              @Semantics.booleanIndicator: true
              cast( '' as abap.char(1) )           as InsurClmFNOLActionIsChkd,
              
              InsurClmInsuredObjectType,
              @Semantics.amount.currencyCode: 'InsurClmProbableLossAmountCrcy'
              InsurClmProbableLossAmount,
              InsurClmProbableLossAmountCrcy,
              InsurClmInspectionDate,
              InsurClmDamagedObjectLocation,
              InsurClmRelationship,
              InsurClmRelationshipText,
              BusinessPartner,
              InsurClmFatalInjury,
              InsurClmImpairmentPercent,
              InsurClmIntraCompany,
              InsurClmParticipantType,
              InsurClmInjuryInsurCompanyName,
              InsurClmInjuredPersnHouseNmbr,
              InsurClmInjuredPersnCountry,
              InsurClmNoInsurance,
              InsurClmConstructionYear,
              @Semantics.quantity.unitOfMeasure: 'InsurClmVehicleMileageUnit'
              InsurClmVehicleMileage,
              InsurClmVehicleMileageUnit,
              InsurClmVehObjectValCurrency,
              InsurClmVehicleIdentification,
              InsurClmInsuredObjectMake,
              InsurClmInsuredObjectModel,
              InsurClmVehiclePlateNumber,
              _MakeTxt.InsurClmVehicleMfrTxt       as InsurClmVehicleMfrTxt,
              case InsurClmDamageCategory
              when 'AU' then  concat_with_space(_MakeTxt.InsurClmVehicleMfrTxt, InsurClmInsuredObjectModel,1)
              when 'BI' then I_InsurClmDmgdObjChange.BusinessPartnerName
              when 'RE' then InsurClmBuildingTypeDesc
              else ''
              end                                  as InsurClmDmgdObjCatTitle,
              case InsurClmDamageCategory
              when 'AU' then InsurClmVehiclePlateNumber
              when 'BI'  then BusinessPartner
              //              when 'RE'  then InsurClmPrprtyConstructionYear

              else ''
              end                                  as InsurClmDmgdObjCatDesc,
              _Make.InsurClmVehicleMakeTxt         as InsurClmVehicleMakeTxt,
              _Model.InsurClmVehicleModelTxt       as InsurClmVehicleModelTxt,
              BirthDate,
              I_InsurClmDmgdObjChange.BusinessPartnerName,
//              _InspectionLocAddress.HouseNumber,

//              _InspectionLocAddress.StreetName,

//              _InspectionLocAddress.CityName,

//              _InspectionLocAddress.Region,

//              _InspectionLocAddress.PostalCode,

//              _InspectionLocAddress.Country,

              InsurClmBuildingAddress,
              InsurClmBuildingTypeDesc,
              InsurClmTotalLoss,
              InsurClmPreferredSupplier,
              InsurClmScopeOfLoss,
              InsurClmPrimaryMaterial,              
              InsurClmClaimantID,
              InsurClmClaimantName,
              InsurClmRECountry,
              InsurClmREHouseNmbr,
              InsurClmRERegion,
              InsurClmREPostalCode,
//              _InspectionLocAddress,

              _Make,
              _Model,
//              _Driver,

              _QuestionInjured,
 //             _ServiceProvider,

//              _Clmnt,

              _Diagnosis,
              _QuestionsDmgdVeh,
              _Claim

}