Source code for ifrs17sim.ifrs

"""Source module for IFRS17 CSM amortization simulation

This module contains formulas to simulate amortization of
contract service margin (CSM) defined in IFRS17.

This module is a mix-in module to projection module in nestedlife project.
"""


#%% The statement of Financial Posisition

[docs]def NetBalance(t):
    """Net insurance assets plus accumulated cashflows."""
    return NetInsurAssets(t) + AccumCF(t)

[docs]def NetInsurAssets(t):
    """Net Insurance Assets or Liabilities
    
    Warnings:
        The liabilities for incurred claims are not implemented. 
    """    
    return (PV_FutureCF(t)
            - RiskAdjustment(t)
            - CSM_Unfloored(t))
    

[docs]def PV_FutureCF(t):
    """Present value of future cashflows"""
    return PV_Cashflow(t, t, t)

    
[docs]def RiskAdjustment(t):
    """Risk Adjustment
    
    Warnings:
        To be implemented
    """
    return 0

#%% CSM Calculations

[docs]def CSM_Unfloored(t):
    """Unfloored CSM (38, 44)"""
    if t == 0:
        # Initial recognition (38)
        return PV_FutureCF(t) - RiskAdjustment(t)
    else:
        # Subsequent recognition (44)
        return (CSM_Unfloored(t - 1)
                + IntAccrCSM(t - 1)
                + AdjCSM_FlufCF(t - 1)
                - TransServices(t - 1))

        
[docs]def IntAccrCSM(t):
    """Interest accreted on CSM (44(b))"""
    return CSM_Unfloored(t) * InnerProj(0).scen.DiscRate(t)


[docs]def AdjCSM_FlufCF(t):
    """Adjustment to CSM for changes in fulfilment cashflows (44(c)->B96-B100)

    Warnings:
        Only B96(b) changes in PV of the future cashflows are implemented.

    TODO: Risk Adjustment is yet to be implemented. At the momement
    this adjustment only considers present value of future cashflows.

    TODO: Loss component for onerous contracts are yet to be implemented.
    At the momemnt this adjustment allows negative CSM.
    """

    return PV_Cashflow(t + 1, t + 1, 0) - PV_Cashflow(t, t + 1, 0)
        
    
[docs]def PV_Cashflow(t, t_at, t_rate):
    """Present value of future cashflows
    
    This formula takes 3 time parameters.
    The projection starts from `t`, and the projected cashflows are
    discounted back to `t_at`.
    The discount rates applied are the ones at `t_rate`.
    
    Args:
        t: Time from which the projection
        t_at: Time discount rates at which are used.
        t_rate: Time to which the cashflows are discounted.
    """
    return InnerProj(t).PresentValue(t_rate).PV_NetCashflow(t_at)


[docs]def TransServices(t):
    """Transfer of services (44(e)->B119)
    """
    csm_pre_rel = (CSM_Unfloored(t)
                   + IntAccrCSM(t)
                   + AdjCSM_FlufCF(t))

    diff_covunits = CovUnitsBeg1(t) * (1 + InnerProj(0).scen.DiscRate(t))
    pv_sumcovunits_end = PV_SumCovUnits(t + 1, 0)

    return csm_pre_rel * diff_covunits / (diff_covunits + pv_sumcovunits_end)

[docs]def CovUnitsBeg1(t):
    """The number of coverage units at `t` after new business"""
    return InsurIF_Beg1(t)


[docs]def CovUnitsEnd(t):
    """The number of coverage units at `t`"""
    return InsurIF_End(t)


[docs]def PV_SumCovUnits(t, t_rate):
    """Present value of cumulatvie coverage units

    The non-economic assumptions used for future estimation are the
    current estimate at time `t`.

    The discount rates used are the ones at time `t_rate`.
    """
    return InnerProj(t).PresentValue(t_rate).PV_SumInsurIF(t)


#%% The statement of Financial Performance
    
[docs]def InsServiceResult(t):
    """Insurance Service Result (80(a), 83-86)"""  
    return InsurRevenue(t) - InsurServiceExps(t)

[docs]def InsurFinIncomeExps(t):
    """Insurance Finance Income or Expenses (80(b), 87-92, B128-B136)
    
    Warning:
        Accounting Policy Choice 88(b) not implemented.
    """
    chg_discrate = (PV_Cashflow(t + 1, t + 1, t + 1)
                    - PV_Cashflow(t + 1, t + 1, t))
    
    return (EstIntOnCF(t) + chg_discrate 
            - IntAccrCSM(t) + IntAccumCF(t))
            

[docs]def InsurRevenue(t):
    """Insurance Revenue (82-85, B120-B125)"""
    return (EstClaim(t)
            + EstExps(t)
            + RelsRiskAdj(t)
            + TransServices(t)
            + AmortAcqCashflow(t))

[docs]def EstPremIncome(t):
    """Expected Premium Income"""
    return InnerProj(t).PremIncome(t)
    
[docs]def EstAcqCashflow(t):
    """Expected Acquisition Cashflow"""

    est = InnerProj(t)
    return (est.ExpsCommInit(t)
            + est.ExpsCommRen(t)
            + est.ExpsAcq(t))
    
[docs]def EstIntOnCF(t):
    """Expected Interest on future cashflows"""
    return InnerProj(t).PresentValue(t).InterestNetCF(t)
    
[docs]def EstClaim(t):
    """Expected Claims
    
    Warning:
        Using actuarl invest componets as proxy.
    """
    est = InnerProj(t)
    return est.BenefitTotal(t) - InvstComponent(t)


[docs]def EstExps(t):
    """Expected Expenses"""
    
    est = InnerProj(t)
    return (est.ExpsTotal(t)
            - est.ExpsCommInit(t)
            - est.ExpsCommRen(t)
            - est.ExpsAcq(t))
    

[docs]def AsmpChangeImpact(t):
    """Non-financial assumption changes"""
    return PV_Cashflow(t + 1, t + 1, 0) - PV_Cashflow(t, t + 1, 0)

    
[docs]def RelsRiskAdj(t):
    """Release of Risk Adjustment to Revenue
    
    Warning:
        To be implemented.
    """
    return 0

[docs]def InsurServiceExps(t):
    """Insurance Service Expense (103(b))"""
    return (IncurClaim(t)
            + IncurExps(t)
            + AmortAcqCashflow(t))

[docs]def IncurClaim(t):
    """Incurred Claims"""
    return BenefitTotal(t) - InvstComponent(t)

[docs]def InvstComponent(t):
    """Investment Components in Incur Claims
    
    Warning:
        To be implemented.
    """
    return 0

[docs]def IncurExps(t):
    """Incurred Expenses"""
    return (ExpsTotal(t) - ExpsCommTotal(t) - ExpsAcq(t))

#%% Acquisition Cashflow Amortization

[docs]def AcqPremRatio():
    """Ratio of PV Acquisiton Cashflows to PV Premiums.
    
    The ratio is determined by the expectation at issue.
    """
    pvs = InnerProj(0).PresentValue(0)
    
    return ((pvs.PV_ExpsCommTotal(0) + pvs.PV_ExpsAcq(0))
            / pvs.PV_PremIncome(0))

[docs]def AmortAcqCashflow(t):
    """Amortization of Acquisition Cash Flows
    
    Warning:
        Implemented as a constant percentage of actual premiums,
        thus not totalling the original amount if actual != expected.
    """
    return AcqPremRatio * PremIncome(t)