This report on the financial position of the United Methodist Church of South Australia (“Church”) as at 30 June 2020 has been prepared to meet the requirements of the Book of Discipline. This report should not be relied upon for any other purpose than the information of the Church Council and Finance Committee. The Treasurer’s person or office is not responsible for the consequences of any other use. This report should be considered in its entirety and not distributed in parts.
A summary of the financial position of the Church as at 30 June 2020 is shown in the table below. The financial position as at 30 June 2020 has been provided for comparison purposes.
financial_pst_summ_date <- select(financial_pst_summ,-2)
kable(head(financial_pst_summ_date,5),
col.names = c("Description", "Amount"),
align = "lr",
caption = "Table 1.1 Summary of financial position") %>%
kable_styling(bootstrap_options = "striped", full_width = FALSE, position = "left")
| Description | Amount |
|---|---|
| Bank balance | 43372 |
| Reserved funds | -29898 |
| Available funds | 13474 |
| Amounts payable | -8580 |
| Adjusted available funds | 4894 |
Below is a summary of the Church’s membership split by membership category and three membership definitions as follows:
membership_date <- select(membership,-2,-4,-5)
kable(head(membership_date,4),
col.names = c("Category", "Number"),
align = "lr",
caption = "Table 1.2 Membership") %>%
kable_styling(bootstrap_options = "striped", full_width = FALSE, position = "left")
| Category | Number |
|---|---|
| Adults | 15 |
| Youth | 28 |
| Junior church | 5 |
| Total | 48 |
I have prepared this report exclusively for the members of the Church Council and Finance Committee for the following purposes:
Below is a summary of the Church’s membership split by membership category and three membership definitions as follows:
membership_date <- select(membership,-2,-4,-5)
kable(head(membership_date,4),
col.names = c("Category", "Number"),
align = "lr",
caption = "Table 1.2 Membership") %>%
kable_styling(bootstrap_options = "striped", full_width = FALSE, position = "left")
| Category | Number |
|---|---|
| Adults | 15 |
| Youth | 28 |
| Junior church | 5 |
| Total | 48 |
Of the total number of Church members according to the Statistician’s records, 59% (same as last year) are financially active and 43% (same as last year) are frequent weekly Sunday service attendees. There is a positive correlation between members who are financially active and those who attend weekly Sunday services. Consequently, an increase in the number of members who attend weekly Sunday services will most likely result in an increase in financial activity hence higher income.
cashflow_stmt_date <- select(cashflow_stmt,-2)
kable(head(cashflow_stmt_date,22),
col.names = c("Description", "Amount"),
align = "lr",
caption = "Table 1.3 Financial position") %>%
kable_styling(bootstrap_options = "striped", full_width = FALSE, position = "left")
| Description | Amount |
|---|---|
| Bank Balance | 43371.78 |
| Building fund [1] | -26348.40 |
| Cyclone Idai relief [2] | -400.00 |
| Contingency Reserve Fund [3] | -3000.00 |
| MUMC [4] | 0.00 |
| RRW [5] | 0.00 |
| UMYF [6] | 0.00 |
| UMYF advisors fund [7] | -150.00 |
| Visa application [8] | 0.00 |
| Reserved funds [A] | -29898.40 |
| Available funds [B] | 13473.38 |
| Audit fees* [9] | 0.00 |
| Harvest (area)** [10] | -981.00 |
| Harvest (building fund)*** [11] | -1308.00 |
| Petty Cash [12] | -500.00 |
| FY2021 church premises rent [13] | -3000.00 |
| Other [14] | 0.00 |
| SPPR**** [15] | -2791.00 |
| Amounts payable [C] | -8580.00 |
| Adjusted available funds excluding area assessments[D] | 4893.38 |
| FY2019 area assessments [16] | -23423.36 |
| Adjusted available funds including area assessments[E] | -18529.98 |
Below is a table showing the income and expenditure over the year. Please refer to Appendix B for a comprehensive cash flow statement.
Below is a summary showing the bank balance movement over the 2019/2020 financial year. Figures for the 2018/2019 financial year are shown for comparison purposes.
financial_pst_recon_date<- data %>% filter(fy=="2021") %>%
group_by(transaction,type) %>%
summarise( Total = sum(Amount)) %>%
spread(type,Total)
## `summarise()` has grouped output by 'transaction'. You can override using the `.groups` argument.
financial_pst_recon_date_table <- financial_pst_recon_date %>% replace_na(list(Expense=0,Income=0))
kable(financial_pst_recon_date_table,
col.names = c("Description", "Expense","Income"),
digits = 0,
align = "lcc",
caption = "Table 1.3 Financial position reconciliation") %>%
kable_styling(bootstrap_options = "striped", full_width = FALSE, position = "left")
| Description | Expense | Income |
|---|---|---|
| Area Assessments | -20000 | 147 |
| BOT | -3000 | 0 |
| Church and Society | -250 | 0 |
| Condolences | -1250 | 0 |
| Evangelism | -100 | 1963 |
| Harvest | -5640 | 16487 |
| Offering | 0 | 6187 |
| Other | -481 | 12 |
| Petty Cash | 0 | 230 |
| Pledge | 0 | 100 |
| SPPR | -6544 | 3231 |
| Stewardship and Temperance | -89 | 0 |
| Thanksgiving | 0 | 73 |
| Tithe | 0 | 23540 |
| UMYF | -428 | 200 |
In respect of the financial operational processes, I recommend that:
In order to establish a healthy financial position, I recommend that:
XXX
Pursuant to paragraph 258 of the Book of Discipline, I recommend that the Finance Committee: - Continue to formulate plans, strategies and implement ways to generate more resources for mission, ministries of the local church and beyond; - Facilitate the compilation of a budget for the local church and submit it to the Church Council for review and adoption on an annual basis; - Develop and implement plans that will raise sufficient income to meet the budget adopted by the Church Council; - Administer the funds received according to the instructions from the Church Council by providing adequate guidance to the Treasurer; - Facilitate the establishment of written financial policies to document internal controls of the local church; - Make provision for an annual audit of the financial statements of the local church and all its organisations and accounts; and - Ensure that contributions designated for specific causes and objects are promptly forwarded according to the intent of the donor(s) and are not used for any other purpose.
This report has been prepared exclusively to assist the Finance Committee and the Church Council in pursuing their mandates as enshrined in the Book of Discipline. The results may not be used or relied upon by any other party or for any other purpose. The person and office of the Treasurer is not responsible for the consequences of any unauthorised use.
To prepare the results, I have relied on bank statements and the Recording Secretary’s notes and reconciliations. I reviewed the data for internal consistency and general reasonableness. While I have not verified or audited the data or information on which this report is based, I am satisfied with the validity, accuracy and comprehensiveness of this information.
I am available to answer any questions on the results, or to provide further details or supporting information as may be appropriate. The undersigned Actuary is qualified by education and experience to render the financial opinion covered in this certification. I am not aware of any direct or material indirect financial interest or relationship, including investments or other services that could create a conflict of interest that would impair the objectivity of my work. A summary of this report was presented and duly adopted by the Church Council at a meeting held on the 13th of November 2020.
Desmond Muzorewa AIAA, BSc Actuary Treasurer (United Methodist Church of South Australia) 9 January 2022
income <- data %>% filter(
type=="Income"
) %>%
group_by(transaction, fy) %>%
summarise(
number = n(),
totalincome = sum(Amount),
.groups = 'drop') %>%
arrange(desc(totalincome))
ggplot(income, aes(x = fy, y = totalincome,
color = transaction)) +
geom_point() +
labs(
title = "Income",
x = "Financial Year",
y = "Amount"
)
##Expenses
expense <- data %>% filter(
type=="Expense"
) %>%
group_by(transaction, fy) %>%
summarise(
number = n(),
totalincome = sum(Amount),
.groups = 'drop') %>%
arrange(desc(totalincome))
ggplot(expense, aes(x = fy, y = totalincome,
color = transaction)) +
geom_point() +
labs(
title = "Expense",
x = "Financial Year",
y = "Amount"
)