---
title:
output:
  revealjs::revealjs_presentation:
    theme: white
    css: white-edits.css
    highlight: tango
    transition: slide
    self_contained: false
    reveal_plugins: ["chalkboard","search"]
    transitionSpead: fast
    mathjax: "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS_SVG"
    reveal_options:
      minScale: 1.0
      maxScale: 1.0
      width: 1536
      height: 864
      slideNumber: true
      controlsTutorial: true
      chalkboard:
        theme: whiteboard
        readOnly: false
---

## ACCT 101: PP\&E and Intangibles {data-background-video="../Backgrounds/title.mp4" data-background-video-loop=true class="header no-toc-progress present-only" data-state="no-toc-progress"}

<!-- "reveal_plugins:..." and "chalkboard:" are handled by prep.py -->
```{r helpers, echo=FALSE, warning=FALSE, message=F}
library(knitr)
library(kableExtra)
html_df <- function(text, cols=NULL, col1=FALSE, full=F) {
  if(!length(cols)) {
    cols=colnames(text)
  }
  if(!col1) {
    kable(text,"html", col.names = cols, align = c("l",rep('c',length(cols)-1))) %>%
      kable_styling(bootstrap_options = c("striped","hover"), full_width=full)
  } else {
    kable(text,"html", col.names = cols, align = c("l",rep('c',length(cols)-1))) %>%
      kable_styling(bootstrap_options = c("striped","hover"), full_width=full) %>%
      column_spec(1,bold=T)
  }
}
```

<h3 class="date"><br>Session 6</h3>
<h2 class="author"><br>Dr. Richard M. Crowley<br>rcrowley@smu.edu.sg<br><a href="http://rmc.link/">http://rmc.link/</a></h2>

## ACCT 101: PP\&E and Intangibles {data-background="../Backgrounds/title.jpg" class="header no-toc-progress present-not" data-state="no-toc-progress"}

<h3 class="date"><br>Session 6</h3>
<h2 class="author"><br>Dr. Richard M. Crowley<br>rcrowley@smu.edu.sg<br><a href="http://rmc.link/">http://rmc.link/</a></h2>

# Front matter {data-background="../Backgrounds/section.jpg" class="header"}

## Quiz update {data-background="../Backgrounds/default.jpg" class="default present-only"}

- We will go over the quiz next session
    - We'll walk through each question in class

## Quiz update {data-background="../Backgrounds/default.jpg" class="default never"}

- All graded
- We will go over the questions in class today
- Average score: 66/80

## Learning objectives {data-background="../Backgrounds/default.jpg" class="default"}

<div class="left">
![Diagram](../Course_Diagrams/ACCT_101_course_map_6.png){width=450px}
</div>
<div class="right">

PP\&E, Intangibles (Chapter 7)

1. Understand which assets qualify as PP&E and Intangibles
2. Account for acquisition and depreciation of PP\&E
3. Understand additional issues related to PP&E
4. Account for intangibles
</div>

# What are Non-current Assets? {data-background="../Backgrounds/section.jpg" class="header"}

## Non-Current Assets {data-background="../Backgrounds/default.jpg" class="default"}

<div class="left">
- Long term investments
- Construction in Progress
    + Incomplete skyscrapers
    + Incomplete manufacturing plants
    + Incomplete complicated machinery
        * Tungsten cathode, LPP Fusion, 1.25 years
</div>
<div class="right">
<img src="../Figures/WIP2.png" width="200px">

<img src="../Figures/lpp_tungsten.jpg" width="200px">
</div>

## Non-Current Assets {data-background="../Backgrounds/default.jpg" class="default"}

<div class="left">
- *Property, Plant, and Equipment*, PP\&E
    - Leasehold Land
        - 99 year ownership
        - <a href="http://www.businesstimes.com.sg/real-estate/ioi-places-top-bid-of-s257-billion-or-s1689-psf-ppr-for-central-boulevard-white-site">Central Boulevard white site</a>
            - S$2.57B
    - Freehold land
        - Permanent ownership
        - The Peak @ Cairnhill II
    - Natural Resources
        - <a href="https://www.flickr.com/photos/locosteve/6132400059">San Ardo Oil Field</a>
</div>
<div class="right">
<img src="../Figures/Leasehold.jpg" width="200px">

<img src="../Figures/Freehold.png" width="200px">
<img src="../Figures/Oil_Field.jpg" width="200px">
</div>

## Non-Current Assets {data-background="../Backgrounds/default.jpg" class="default"}

<div class="left">
- *Property, Plant, and Equipment*, PP\&E
    - Buildings
    - Land improvements
    - Furniture and Fixtures
    - Equipment
    - Machinery
    - Vehicles
</div>
<div class="right">
<img src="../Figures/factory.png" width="200px">

<img src="../Figures/pc.png" height="150px">
<img src="../Figures/machine.png" height="150px">
</div>

## Non-Current Assets {data-background="../Backgrounds/default.jpg" class="default"}

<div class="left">
- *Intangibles*
    + Patents
    + Internally developed software
    + Trademarks and names
    + M\&A value (goodwill)
- Not accounted for intangibles
    - Reputation
    - Own brand name
    - Management quality
</div>
<div class="right">
<img src="../Figures/IPOS.png" height="250px">
</div>

## What will we need to do? {data-background="../Backgrounds/reference.jpg" class="default"}

```{r , echo=FALSE, warning=FALSE}
options(knitr.table.format = "html") 
text <- data.frame(
  y0 = c("Land (freehold)","Land (leasehold)","Buildings","Furniture & fixtures", "Machinery", "Vehicles", "Land improvements", "Natural resources", "Intangibles (with finite useful lives)", "Intangibles (with indefinite useful lives)"),
  x0 = c("None","Depreciation","Depreciation","Depreciation","Depreciation","Depreciation","Depreciation","Depletion","Amortization","None")
)
html_df(text, col1=TRUE, cols=c("Asset","Related expense account"))
```

# PP&E Acquisition {data-background="../Backgrounds/section.jpg" class="header"}

## What do we include? {data-background="../Backgrounds/default.jpg" class="default"}

> PP&E has useful life or extends useful life, whereas expenses do not extend useful life but merely maintain or restore working order. [IAS 16]

- Include as an asset:
    - Anything with useful life
    - Anything *extending* useful life
- Expense:
    - Maintenance
        - Maintenance doesn't extend useful life, it just keeps useful life where it should be

## Purchasing (IAS 16) {data-background="../Backgrounds/reference.jpg" class="default"}

- Include:
    - Purchase price at historical cost
        - Net of discounts
    - Duties and *non-refundable* taxes
    - Employee benefits
        - For setting up the PP\&E, such as insurance
        - Purchase commissions
    - Site preparation
    - Delivery and handling
    - Installation and/or assembly
    - Testing expenses
        - Net of test good proceeds
    - Fees incurred

## Purchasing (IAS 16) {data-background="../Backgrounds/reference.jpg" class="default"}

- What don't we include?
    - Opening ceremonies
        - No useful life after
    - Advertising a new product
        - A direct expense for operations, not the PP\&E
    - Business costs due to dealing with customers
        - Operating costs
    - Admin/overhead costs
        - Operating costs

## Examples of PP\&E Value {data-background="../Backgrounds/bricks.jpg" class="default"}

```{r , echo=FALSE, warning=FALSE}
options(knitr.table.format = "html") 
text <- data.frame(
  y0 = c("Land","Land improvements","Buildings (constructed)","Buildings (purchased)", "Equipment"),
  x0 = c("Purchase price, commission (to agents), taxes paid, fees (legal, surveying), grading (changing elevation), removing unwanted structures","Fencing, paving, lighting, security systems, landscaping", "Architect's fees, contractors' fees, materials, labor and overhead, interest on funds borrowed for construction","Purchase price, commission (to agents), taxes paid, repair and renovation costs","Purchase price, transport, insurance during transit, sales tax, installation, testing (net of useful products)")
)
html_df(text, col1=TRUE, cols=c("PP&E","Typical costs included in asset's value"))
```

## Check {data-background="../Backgrounds/question1.jpg" class="default"}

What is the asset value of the following:

1. \$10,000 of land with a \$1,000 stamp duty (tax) and a \$300 opening party
2. A $5,000 machine, where testing cost \$1,000 but created \$500 of useful inventory.

## Solution {data-background="../Backgrounds/answer.jpg" class="default exclude"}

1. \$10,000 of land with a \$1,000 stamp duty (tax) and a \$300 opening party
    - Answer: \$11,000
    - Purchase cost is included
    - Taxes are including (unless refundable)
    - Opening ceremonies are excluded
2. A $5,000 machine, where testing cost \$1,000 but created \$500 of useful inventory.
    - \$5,500
    - Purchase cost is included
    - Testing costs are included
    - Inventory created during testing is subtracted

## Basket purchasing {data-background="../Backgrounds/reference.jpg" class="default"}

- Often, companies purchasing groups of assets
    - Firesales or deals with other companies
- We call this basket purchasing
    1. Determine the market value of each asset
    2. Allocate a percent of market value to each asset
    3. Allocate basket price by percentages to assets
- Record journal entries as usual

<img src="../Diagrams/Basket_purchase.png" width="50%">

## Basket purchasing example {data-background="../Backgrounds/default.jpg" class="default"}

> Situation: Bought Machinery (MV: $8,000), Land (MV: $10,000), and Equipment (MV: $2,000) for $10,000 in one cash purchase

<img src="../Diagrams/Basket_example.png" width="50%">

## Check {data-background="../Backgrounds/question1.jpg" class="default"}

Determine the value of each item in the following basket purchase for $90,000 cash:

1. A service van worth $30,000
2. A small tract of land worth $50,000
3. A large amount of inventory worth $20,000

## Solution {data-background="../Backgrounds/answer.jpg" class="default exclude"}

<img src="../Diagrams/Basket_example2.png" width="50%">

## Repairs {data-background="../Backgrounds/default.jpg" class="default"}


- Standard repairs are an expense
    - They don't increase useful life
        - They maintain it
- Repairs that increase useful life should be capitalized
    - Add the repair cost to asset value

> Capitalize repairs *only* when useful life changes 

<div class="left">
<img src="../Diagrams/JE_6-1.png" width="500px">
</div>
<div class="right">
<img src="../Diagrams/JE_6-2.png" width="500px">
</div>


# Depreciation, Revisited {data-background="../Backgrounds/section.jpg" class="header"}

## Why we depreciate {data-background="../Backgrounds/default.jpg" class="default"}

- Recognize usage of assets over time
    - Even though we still have the asset, it's lost value
        - Not as new
    - Charge to income statement as *depreciation expense*
    - Recognize on balance sheet as *accumulated depreciation*
        - Contra asset
- Matching principal
    + We used the asset to generate revenue, so we need to match asset usage (expense) to this revenue

<img src="../Diagrams/JE_6-3.png" width="60%">

## Depreciation in every day life {data-background="../Backgrounds/question1.jpg" class="default"}

How much does 1 year affect the value of the following?

1. Smart phone
2. Car
3. Textbook
4. Fiction book

## Depreciation methods {data-background="../Backgrounds/reference.jpg" class="default"}

1. Straight line
    + We've seen this one already!
    + $Depr = \frac{Cost-Salvage}{\#Periods}$
2. Units of activity
    + $Depr = (Cost-Salvage) \frac{Units~Used}{Total~Units}$
3. Double declining balance
    + $P = 2/\#Periods$
    + $Depr = (Book - Accum~Depr) \cdot P$

> Note: *Never go below salvage value*.  Stop depreciating when you hit salvage value

- *Salvage value* is also known as *residual value*

## Picking a depreciation method {data-background="../Backgrounds/books-old.jpg" class="default"}

> The depreciation method used shall reflect the pattern in which the asset's future economic benefits are expected to be consumed by an entity. [FRS 16:60]

- Expect variation in methods used, as different firms may argue different usage patterns for the same assets

> The method must be used consistently from period to period. [FRS 16:61, 62]

- You generally can't change methods during the life of an asset

## Straight-line depreciation {data-background="../Backgrounds/default.jpg" class="default"}

$Depr = \frac{Cost-Salvage}{\#Periods}$

- Constant over time
    - Same amount per year
- Partial years: multiply by the $Months\ used/12$
- Will end up at salvage value after $\#Periods$ periods

```{r , echo=FALSE, warning=FALSE}
suppressPackageStartupMessages(library(plotly))

m <- list(
  l = 60,
  r = 50,
  b = 60,
  t = 40,
  pad = 4
)

df = data.frame(
  year=c(1,2,3,4,5),
  sl=c(20000,20000,20000,20000,20000),
  unit=c(10000,30000,40000,10000,10000),
  ddb=c(40000,24000,14400,8640,12960),
  sls=c(15000,15000,15000,15000,15000),
  units=c(7500,22500,30000,7500,7500),
  ddbs=c(40000,24000,11000,0,0)
  
)
dfv = data.frame(
  year=c(0,1,2,3,4,5),
  v_sl=c(100000,80000,60000,40000,20000,0),
  v_unit=c(100000,90000,60000,20000,10000,0),
  v_ddb=c(100000,60000,36000,21600,12960,0),
  v_sls=c(100000,85000,70000,55000,40000,25000),
  v_units=c(100000,92500,70000,40000,32500,25000),
  v_ddbs=c(100000,60000,36000,25000,25000,25000)
)
```



```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~sl, type="scatter", mode="lines", name="Depr: SL" , line=list(color="#1f77b4", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", range=c(0,25000)))
p2 <- plot_ly(dfv, x=~year, y=~v_sl, type="scatter", mode="lines", name="NAV: SL", line=list(color="#1f77b4", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Check: Straight-line {data-background="../Backgrounds/question1.jpg" class="default"}

> <span style="font-size:0.8em">You have a $100k asset which you will use for 5 years, with $25,000 salvage value.  What is straight-line depreciation in years 1 and 2?</span>

## Check: Straight-line {data-background="../Backgrounds/answer.jpg" class="default exclude"}

> <span style="font-size:0.8em">You have a $100k asset which you will use for 5 years, with $25,000 salvage value.  What is straight-line depreciation in years 1 and 2?</span>

```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~sls, type="scatter", mode="lines", name="Depr: SL" , line=list(color="#1f77b4", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", range=c(0,25000)))
p2 <- plot_ly(dfv, x=~year, y=~v_sls, type="scatter", mode="lines", name="NAV: SL", line=list(color="#1f77b4", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Units of production depreciation {data-background="../Backgrounds/default.jpg" class="default"}

$Depr = (Cost-Salvage) \frac{Units\ Used}{Total\ Units}$

- Constant per unit produced
    - Same amount per unit, but units vary by year
- Partial years: no change
- Will end up at salvage value after the total number of units are produced

```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~unit, type="scatter", mode="lines", name="Depr: unit" , line=list(color="#ff7f0e", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
p2 <- plot_ly(dfv, x=~year, y=~v_unit, type="scatter", mode="lines", name="NAV: unit", line=list(color="#ff7f0e", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Check: Units of production {data-background="../Backgrounds/question1.jpg" class="default"}

> <span style="font-size:0.8em">You have a $100k asset which you will use for 5 years, with $25,000 salvage value.  What is units of production depreciation in years 1 and 2?  Usage will be 10%, 30%, 40%, 10%, and 10% for each year.</span>

## Check: Units of production {data-background="../Backgrounds/answer.jpg" class="default exclude"}

> <span style="font-size:0.8em">You have a $100k asset which you will use for 5 years, with $25,000 salvage value.  What is units of production depreciation in years 1 and 2?  Usage will be 10%, 30%, 40%, 10%, and 10% for each year.</span>

```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~units, type="scatter", mode="lines", name="Depr: unit" , line=list(color="#ff7f0e", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
p2 <- plot_ly(dfv, x=~year, y=~v_units, type="scatter", mode="lines", name="NAV: unit", line=list(color="#ff7f0e", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Double declining balance depreciation {data-background="../Backgrounds/default.jpg" class="default"}

$Depr = (Cost - Acc\ Depr)\times P$, $P=\frac{2}{\#Periods}$

- More depreciation early, less later
- Partial years: multiply by the $Months\ used/12$
- Can hit salvage value early -- stop depreciating at this point


```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~ddb, type="scatter", mode="lines", name="Depr: DDB" , line=list(color="#2ca02c", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
p2 <- plot_ly(dfv, x=~year, y=~v_ddb, type="scatter", mode="lines", name="NAV: DDB", line=list(color="#2ca02c", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Double declining balance depreciation {data-background="../Backgrounds/default.jpg" class="default"}

$Depr = (Cost - Acc\ Depr)\times P$, $P=\frac{2}{\#Periods}$

Steps for calculation:

1. Determine the percentage to deduct each period, $P=\frac{2}{\#Periods}$
2. Determine net asset value, $NAV = Historical~Cost-Accum~Depr$
3. Determine the maximum depreciation, $max=NAV \cdot P$
4. If not the last period:
    - Check if $NAV-max \ge salvage$
    - If it is, depreciation is $max$
    - If it is not, depreciation is $NAV - salvage$
5. If the last period:
    - Take $NAV - salvage$ as your depreciation

## Check: DDB {data-background="../Backgrounds/question1.jpg" class="default"}

> <span style="font-size:0.8em">You have a $100k asset which you will use for 5 years, with $25,000 salvage value.  What is double declining balance depreciation in years 1 and 2?</span>

## Check: DDB {data-background="../Backgrounds/answer.jpg" class="default exclude"}

> <span style="font-size:0.8em">You have a $100k asset which you will use for 5 years, with $25,000 salvage value.  What is double declining balance depreciation in years 1 and 2?</span>

```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~ddbs, type="scatter", mode="lines", name="Depr: DDB" , line=list(color="#2ca02c", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
p2 <- plot_ly(dfv, x=~year, y=~v_ddbs, type="scatter", mode="lines", name="NAV: DDB", line=list(color="#2ca02c", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Depreciation comparison: no salvage value {data-background="../Backgrounds/default.jpg" class="default"}

> <span style="font-size:0.8em">Situation: You have a $100k asset which you will use for 5 years, with \$0 salvage value. Determine depreciation using the 3 methods.  Usage will be 10%, 30%, 50%, 10%, and 10% for each year.</span>

```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~sl, type="scatter", mode="lines", name="Depr: SL" , line=list(color="#1f77b4", width=4)) %>%
  add_trace(y=~unit, type="scatter", mode="lines", name="Depr: unit" , line=list(color="#ff7f0e", width=4)) %>%
  add_trace(y=~ddb, type="scatter", mode="lines", name="Depr: DDB" , line=list(color="#2ca02c", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
p2 <- plot_ly(dfv, x=~year, y=~v_sl, type="scatter", mode="lines", name="NAV: SL", line=list(color="#1f77b4", width=4, dash="dash")) %>%
  add_trace(y=~v_unit, type="scatter", mode="lines", name="NAV: unit", line=list(color="#ff7f0e", width=4, dash="dash")) %>%
  add_trace(y=~v_ddb, type="scatter", mode="lines", name="NAV: DDB", line=list(color="#2ca02c", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Depreciation comparison: salvage value {data-background="../Backgrounds/default.jpg" class="default"}

> <span style="font-size:0.8em">Situation: You have a $100k asset which you will use for 5 years, with *\$25,000* salvage value. Determine depreciation using the 3 methods.  Usage will be 10%, 30%, 50%, 10%, and 10% for each year.</span>

```{r , echo=FALSE, warning=FALSE}
p1 <- plot_ly(df, x=~year, y=~sls, type="scatter", mode="lines", name="Depr: SL" , line=list(color="#1f77b4", width=4)) %>%
  add_trace(y=~units, type="scatter", mode="lines", name="Depr: unit" , line=list(color="#ff7f0e", width=4)) %>%
  add_trace(y=~ddbs, type="scatter", mode="lines", name="Depr: DDB" , line=list(color="#2ca02c", width=4)) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, title = "Depreciation expense and net asset value", xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
p2 <- plot_ly(dfv, x=~year, y=~v_sls, type="scatter", mode="lines", name="NAV: SL", line=list(color="#1f77b4", width=4, dash="dash")) %>%
  add_trace(y=~v_units, type="scatter", mode="lines", name="NAV: unit", line=list(color="#ff7f0e", width=4, dash="dash")) %>%
  add_trace(y=~v_ddbs, type="scatter", mode="lines", name="NAV: DDB", line=list(color="#2ca02c", width=4, dash="dash")) %>%
  layout(autosize = F, width = 900, height = 350, margin = m, xaxis=list(title="Year",rangemode="tozero"), yaxis=list(title="Depreciation expense", rangemode="tozero"))
subplot(p1, p2)
```

## Natural resources {data-background="../Backgrounds/default.jpg" class="default"}

- Depletion
    + Just like *units of activity* depreciation
    + Different name as resources are *depleted* when mined
        + Meaning the amount of resources left has decreased

<img src="../Diagrams/JE_6-4.png" width="700px">

## Notes on depreciation {data-background="../Backgrounds/default.jpg" class="default"}

- Useful life is an *estimate*
- Salvage value is an *estimate*
- Depreciation method is a *choice*
- 0 net asset value (NAV) $\ne$ unusable
    + NAV $=$ *asset value* minus its *accumulated depreciation*
    + You won't record any more depreciation after hitting 0
    
# Other issues in PP&E {data-background="../Backgrounds/section.jpg" class="header"}

## Income taxes {data-background="../Backgrounds/default.jpg" class="default"}

- Depreciation method affects your taxes!
    - This makes double-declining balance look more enticing

<img src="../Diagrams/PPE_Cycle.png" width="800px">

## Long lives {data-background="../Backgrounds/default.jpg" class="default"}

- Partial years
    + Straight-line and DDB: Multiply yearly depreciation by $Months\ used/12$
    + Units of production: No change needed, as fewer units produced controls for this
- Many things change over time
    + This includes the accuracy of your depreciation assumptions
        + Length of time, salvage value
    + Increased life from maintenance is an example
- Use new assumptions going forward
    - Essentially treat as a new asset with a historical cost equal to the current NAV, for the purpose of depreciation calculations

## Example of partial years {data-background="../Backgrounds/bricks.jpg" class="default"}

> <span style="font-size:0.8em">Situation: Bought an asset on September 30th for \$10,000, with useful life of 7 years and \$3,000 of salvage value.  What is depreciation under straight line and DDB for the asset as of December 31st of the same year?</span>

- Months passed: 3 months
    - Oct, Nov, Dec
- Straight-line
    - Full year is: $\frac{10,000-3,000}{7}=1,000$
    - Partial year is: $1,000 \times \frac{3}{12} = 250$
- DDB
    - Full year is: $(10,000 - 0)\times \frac{2}{7} = 2,857.14$
    - Partial year is: $2,857.14\times \frac{3}{12} = 714.29$

## Example of changing assumptions {data-background="../Backgrounds/bricks.jpg" class="default"}

> <span style="font-size:0.8em">Situation: Bought an asset on January 1st 20X0 for \$10,000, with useful life of 7 years and \$3,000 of salvage value, to be accounted for using straight line depreciation.  In year 20X2 it was determined that the asset would only last 6 years in total, with 0 salvage value, and should be accounted for using DDB.  What is the depreciation expense in years 20X0 through and 20X2?</span>

- Years 20X0 and 20X1
    - Normal straight line problem:
        - $Expense = (10,000 - 3,000) / 7 = 1,000$
- Year 20X2
    - Determine NAV (new cost): $10,000 - 1,000 - 1,000 = 8,000$
    - Years left: $6 - 2 = 4$
    - New Acc. Depr.: $0$
    - $DDB = (8,000 - 0) \times \frac{2}{4} = 4,000$

## Retirement {data-background="../Backgrounds/default.jpg" class="default"}

- *Retirement* $=$ throwing the asset out
- Adjust the PP&E value to include partial depreciation (if any)
    - Same as usual depreciation methods
- Record retirement:

<div class="left">
Asset at 0 net asset value (NAV)

- No gain or loss here

<img src="../Diagrams/JE_6-5.png" width="500px">
</div>
<div class="right">
Asset at $>0$ net asset value

- Debit *loss on asset retirement*

<img src="../Diagrams/JE_6-6.png" width="500px">
</div>


## Sale {data-background="../Backgrounds/default.jpg" class="default"}

- Sale is like retirement, but you are receiving some cash instead of nothing.
- Adjust the PP&E value to include partial depreciation (if any)
    - Same as usual depreciation methods
- Record a sale:

<div class="left">
Loss (NAV $>$ Cash)

- Debit *loss on asset sale*

<img src="../Diagrams/JE_6-7.png" width="500px">
</div>
<div class="right">
Gain (NAV $<$ Cash)

- Credit *gain on asset sale*

<img src="../Diagrams/JE_6-8.png" width="500px">
</div>

## Exchange {data-background="../Backgrounds/default.jpg" class="default"}

- Exchange is the same as a sale, but with non-cash settlement
    - Ex.: Exchange machinery for a car
- Adjust the PP&E value to include partial depreciation (if any)
    - Same as usual depreciation methods
- Record an exchange:

<div class="left">
Loss (NAV $>$ Asset received)

- Debit *loss on asset sale*

<img src="../Diagrams/JE_6-9.png" width="500px">
</div>
<div class="right">
Gain (NAV $<$ Asset received)

- Credit *gain on asset sale*

<img src="../Diagrams/JE_6-10.png" width="500px">
</div>

## Example of disposal {data-background="../Backgrounds/bricks.jpg" class="default"}

> <span style="font-size:0.8em">Situation: A machine bought for \$10,000 has \$4,000 of accumulated depreciation, but the firm no longer needs the asset.  Record the following possible outcomes: 1) Disposal of the machinery; 2) Sale for \$4,000 cash; 3) Exchange for an \$8,000 Warehouse</span>

<img src="../Diagrams/JE_6-11.png" width="50%">

## Practice {data-background="../Backgrounds/group.jpg" class="default"}

1. Get the in class activity spreadsheet on eLearn
    Session_6_Activity_Depr.xlsx
2. Calculate depreciation for the assets listed in the file using each method

# Intangibles {data-background="../Backgrounds/section.jpg" class="header"}

## What are intangibles? {data-background="../Backgrounds/default.jpg" class="default"}

- Literally "not perceptible by touch"
    + Things you can't hold, but still have value
- Patents
- Copyrights
- Franchise rights
- Licenses
- Trademarks
- Goodwill (i.e. excess acquisition price)

## Patents {data-background="../Backgrounds/default.jpg" class="default"}

- Most cited: <a href="https://patents.google.com/patent/US4683202A/en">US4683202A</a>
    + Filed 25/10/1985
    + 8,252 citations

> The present invention is directed to a process for amplifying any desired specific nucleic acid sequence contained in a nucleic acid or mixture thereof. The process comprises treating separate complementary strands of the nucleic acid with a molar excess of two oligonucleotide primers, and extending the primers to form complementary primer extension products which act as templates for synthesizing the desired nucleic acid sequence. The steps of the reaction may be carried out stepwise or simultaneously and can be repeated as often as desired.

## Patents {data-background="../Backgrounds/default.jpg" class="default"}

- <a href="https://www.theguardian.com/technology/2011/jul/01/nortel-patents-sold-apple-sony-microsoft">Nortel patent sale</a>
    + Over 6,000 patents
    + Consortium of Microsoft, Apple, Sony, RIM (Blackberry), EMC, Ericsson
    + **\$4.5B**
- <a href="https://www.reuters.com/article/us-gilead-sciences-merck-co-verdict/merck-wins-2-54-billion-in-hepatitis-c-drug-trial-against-gilead-idUSKBN1442U9">Merck Lawsuit against Gilead</a>
    + Over patent infringement
        + Hepatitis C drug
    + **\$2.54B*** jury verdict
        + 10% of all revenue

## Copyrights {data-background="../Backgrounds/default.jpg" class="default"}

- © or "rights reserved"

<img src="../Figures/Alice1.png" width="300px">&nbsp;<img src="../Figures/Alice2.png" width="300px">

## Franchise Rights {data-background="../Backgrounds/default.jpg" class="default"}

- <a href="http://www.reuters.com/article/mcdonalds-singapore-idUSL4N1DX3RU">McDonalds operated by Lionhorn Pte Ltd</a>

<img src="../Figures/Mcdonalds.svg" width="300px">&nbsp;<img src="../Figures/Lionhorn.png" width="400px">

## Licenses {data-background="../Backgrounds/default.jpg" class="default"}

- Software licenses
- Can be for a period or infinite
    - Periodic licenses treated as a prepaid expense
    - Infinite licenses treated as an asset
        - Unless the license usefulness is clearly limited

<img src="../Figures/office365.jpg" height="200px">&nbsp;<img src="../Figures/windows.svg" height="200px">

## Trademarks {data-background="../Backgrounds/default.jpg" class="default"}

- ™ or ®

<img src="../Figures/Mcdonalds.svg" width="300px">&nbsp;<img src="../Figures/ups.png" width="300px">

## Goodwill {data-background="../Backgrounds/default.jpg" class="default"}

- The amount paid for a company in an acquisition above its **updated** book value
    - If price < **updated** book value, negative goodwill
- <a href="http://time.com/4376607/microsoft-linkedin-goodwill/">Microsoft bought LinkedIn</a>
    - $25B price
    - LinkedIn had about $4B book value
        - Note: LinkedIn's assets were worth more than their book value
    - *As much as \$17B was goodwill*

<img src="../Figures/Microsoft.png" height="100px">&nbsp;<img src="../Figures/linkedin.jpg" height="100px">

## Valuing intangibles {data-background="../Backgrounds/default.jpg" class="default"}

- If internally generated
    - Legal costs for titles can be capitalized (registration costs)
        - Added to asset account
    - Generation costs are expensed
        - Exception: Development after Research can be capitalized under IFRS (IAS 38)
- If purchased
    - Record at cost

> Why do we have this difference?  It's because purchases have more *reliable* values.

## Valuing goodwill {data-background="../Backgrounds/default.jpg" class="default"}

- Goodwill comes from acquiring other firms
- We record new book values for each asset acquired
    - We use the *net asset value* of each asset for this
- To calculate goodwill:
    1. Start with the purchase price of the firm
    2. Subtract the *net asset values* of all assets
    3. Add back all liabilities
    4. What's left is goodwill

> <span style="font-size:0.8em">Situation: Coffee Corp bought a rival coffeeshop for \$100,000.  The coffee shop has book values of assets and liabilities of \$80,000 and \$40,000, respectively.  We estimate NAV to be $90,000.  What is goodwill?</span>

- Goodwill is \$100,000 - \$90,000 + \$40,000 = \$50,000
    - We ignore the old book value of assets

## Common terminology confusion for goodwill {data-background="../Backgrounds/reference.jpg" class="default"}

- Often we will collapse steps 2 and 3 together into a quantity called *Net assets*
    - $Net~assets = Total~assets - Total~liabilities$

> *Net assets* and *Net asset value* are not the same!

- $Net~asset~value = Historica~Cost - Accumulated~Depreciation$

<br>

> Reworking the prior example: Net assets is $90k - 40k = 50k$

- To calculate goodwill:
    1. Start with the purchase price of the firm
    2. Subtract *net assets*
    3. What's left is goodwill
- Goodwill is \$100,000 - \$50,000 = \$50,000

## What about depreciation? {data-background="../Backgrounds/default.jpg" class="default"}

- Intangibles are not physical items, so they doesn't depreciate
- They *can* lose value over time

Solution:

- For infinitely lived items:
    - Revalue when doing financial statements
    - If market value is lower than the intangible's value in our books, we *impair* the value
- For finitely lived items:
    - Amortize their value
    - Works like straight line depreciation with 0 salvage value
    - Check impairment as well

## Impairment {data-background="../Backgrounds/default.jpg" class="default"}

- Debit *Impairment expense*
- Directly record decrease to the asset (Credit)
- We can impair PP&E as well

<div class="clearfix">
<div class="left">
1. We bought a competitor for \$800: \$400 of machinery and \$400 of goodwill (for their R&D).
2. We realized that the R&D we paid extra for had no value.
3. We realized we overpaid for the machinery by \$200.
</div>
<div class="right">
<img src="../Diagrams/JE_6-12.png" width="500px">
</div>
</div>

> Note: Technically this account is called "impairment loss," but it is an expense account despite having loss in the name.  Either will be fine for this course.

## Amortization {data-background="../Backgrounds/default.jpg" class="default"}

- Amortization is like depreciation for intangibles
- Debit Amortization expense
- Credit accumulated amortization
- Always use straight-line with 0 salvage value
- Example:

<div class="clearfix">
<div class="left">
1. Bought a patent for $100 cash.  It has 5 years of life.
2. Recorded amortization after 1 year.
3. Recorded amortization after another year.
</div>
<div class="right">
<img src="../Diagrams/JE_6-13.png" width="500px">
</div>
</div>


## Notes on Intangibles {data-background="../Backgrounds/default.jpg" class="default"}

- Determining the life of intangibles:
    - Often, this is based on a country's laws
        - Copyright duration is set by each country
        - Trademark law determines trademark life
    - Mergers will be infinitely lived, but are often impaired
    
## In class work {data-background="../Backgrounds/group.jpg" class="default"}

1. Get the in class activity spreadsheet
    - Session_6_Activity_Intangibles.xlsx
2. This file contains some trickier journal entries
    - Work through these entries with your group

# End Matter {data-background="../Backgrounds/ending.jpg" class="default"}

## Wrap up {data-background="../Backgrounds/ending.jpg" class="default"}

- For next week
    1. Reading
        - Chapter 8 (Liabilities)
        - Tricky subject, reading highly recommended
        - We'll spend 2 weeks on liabilities
    2. Homework 3: Valuation
        - Due next week
    3. Practice on eLearn: Journal entries #2
        - Focused on PP&E
        - Automatic feedback provided
- Survey on the class session at <a href="https://docs.google.com/forms/d/e/1FAIpQLSfCNPlsUD75nTu33qEyrq7-Re0LT2oVyvONnvdcg8pqarTPhA/viewform?usp=sf_link">rmc.link/101survey6</a>

## Packages used for these slides {data-background="../Backgrounds/code.jpg" class="default stack"}

- kableExtra
- knitr
- plotly
- revealjs

## References {data-background="../Backgrounds/books-old.jpg" class="default stack never"}

## Custom code {data-background="../Backgrounds/code.jpg" class="default stack never"}

<small style="width:100%">
```{r, eval=F}

```
</small>

## NOTES {class="never"}

- Some audio slides have the first 5 seconds cut off
- Audio volume was increased with lame, but a little static-y