library(tidyr)
library(knitr)
library(plyr)
#setwd("/Users/michael/Desktop")

setwd("C:\\Users\\Michael\\Desktop")

df.dashboard <- read.csv("Book1.csv", header = TRUE)
df <- read.csv("Book2.csv", header = TRUE)
df.hic <- read.csv("Book3.csv", header = TRUE)

Summary

From 2017 to 2018, it looks like the increase in sheltered/unsheltered Veterans are due to a decrease of RRH beds. From this period, there was a 93.99% decrease in Veteran dedicated RRH beds and a 63.62% decrease in RRH beds overall.

From 2018 to 2019, it looks like there was a 45% increase in RRH beds dedicated to Veterans.

From 2019 to 2020, both PSH (exceeding 2017 levels) and RRH beds (not exceeding 2017 levels) increased, however, homeless Veteran numbers still increased.

This 2020 Veteran increase, from what can be determined from the aggregate data, might be caused by just an increase in homelessness, an increase in people who report being Veterans, or an increase in Veteran dedicated TH.

Changes in Veteran Homelessness

This report looks to see why there has been an increase in the years 2018, 2019, and 2020.

veteran <- cbind(df.dashboard$Homeless.Veterans)
row.names(veteran) <- df.dashboard$Year
colnames(veteran) <- 'Total Homeless'

barplot(t(veteran),
        beside = TRUE,
        xlim = c(0,200),
        ylab = "Total Homeless",
        xlab = "Year",
        main = "Total Veteran Homeless",
        col = "darkgreen",
        horiz = TRUE)

Summary of Beds and Project Types since 2017

2018 and 2020 had increases in Veteran Homeless numbers. Looking at the chart below, we can see notable changes in the overall number of project types. 2019 has the lowest amount of projects reported on the HIC.

2018 saw a loss of 1 OPH (the other two were reclassified to PSH), 2 new ES projects, and 2 less TH projects.

2020 saw 1 increase in OPH, 4 decrease in PSH, 4 increase in RRH, and 3 increase in TH.

# Project Type Table
kable(t(addmargins(table(df.hic$Type, df.hic$Year))[,-5]), caption = "Breakdown of Project Types")
Breakdown of Project Types
ES OPH PSH RRH SH TH Sum
2017 23 3 14 12 2 14 68
2018 25 0 16 12 2 12 67
2019 23 0 16 9 2 11 61
2020 25 1 12 13 2 14 67

In overall beds, 2018 lost 271 net beds with the majority coming from RRH. 2020 saw an increase in beds across the board, but still had fewer beds than in 2017.

x <- as_tibble(df.hic)
x %>%
  dplyr::select(Year,Type,PIT.Count) %>%
  dplyr::group_by(Year, Type) %>%
  dplyr::summarise(pit.count = sum(PIT.Count)) -> pit


x %>%
  dplyr::select(Year,Type, Total.Beds) %>%
  dplyr::group_by(Year, Type) %>%
  dplyr::summarise(total.beds = sum(Total.Beds)) -> total


# Breakdown of Total Beds
bed.table<-t(as.matrix(data.frame(ES = df$Overall.Bed[df$Project.Type == 'ES'][4:1],
                                  OPH = c(93,0,0,32),
                       PSH = df$Overall.Bed[df$Project.Type == 'PSH'][4:1],
                       RRH = df$Overall.Bed[df$Project.Type == 'RRH'][4:1],
                       SH = df$Overall.Bed[df$Project.Type == 'SH'][4:1],
                       TH = df$Overall.Bed[df$Project.Type == 'TH'][4:1])))
colnames(bed.table) <- df$Year[df$Project.Type == 'ES'][4:1]
kable(t(addmargins(bed.table)[,-5]), caption = "Breakdown of Total Beds")
Breakdown of Total Beds
ES OPH PSH RRH SH TH Sum
2017 630 93 1542 525 34 357 3181
2018 609 0 1768 191 34 308 2910
2019 556 0 1740 106 34 277 2713
2020 585 32 1823 235 34 309 3018

The utilization rate of SH and TH have generally been decreasing since 2017. In 2018, the utilization rate for PSH was 10% lower than 2017, though 2018 had about 50 more people enrolled.

# Utilization Table

x %>%
  dplyr::select(Year,Type,PIT.Count) %>%
  dplyr::group_by(Year, Type) %>%
  dplyr::summarise(pit.count = sum(PIT.Count)) -> pit


x %>%
  dplyr::select(Year,Type, Total.Beds) %>%
  dplyr::group_by(Year, Type) %>%
  dplyr::summarise(total.beds = sum(Total.Beds)) -> total

utilization <- as.matrix(cbind(pit,total[3]))

utilization <- as.data.frame(utilization)
utilization$pit.count <- as.numeric(utilization$pit.count)
utilization$total.beds <- as.numeric(utilization$total.beds)
utilization$utilization <- round((utilization$pit.count/utilization$total.beds) * 100, 2)

utilization.m <- t(as.matrix(
              data.frame(ES = utilization$utilization[utilization$Type == 'ES'],
                       PSH = utilization$utilization[utilization$Type == 'PSH'],
                       RRH = utilization$utilization[utilization$Type == 'RRH'],
                       SH =  utilization$utilization[utilization$Type == 'SH'],
                       TH =  utilization$utilization[utilization$Type == 'TH'])))
colnames(utilization.m) <- c(2017,2018,2019,2020)
kable(t(utilization.m), caption = "Overall Bed Utilization by Project Type")
Overall Bed Utilization by Project Type
ES PSH RRH SH TH
2017 85.71 98.18 100 91.18 85.15
2018 70.77 88.01 100 94.12 71.10
2019 79.86 87.99 100 85.29 65.70
2020 65.13 90.67 100 82.35 62.14

Looking at Veteran beds alone that were reported on the HIC, 2018 saw a reduction of 339 Veteran Dedicated beds. 313 of these dedicated beds were RRH. This is a part of the greater reduction in RRH beds overall for 2018. The number of Veteran beds dropped significantly again in 2019, before increasing in 2020.

# Veteran Bed Table
veteran.bed.table<-t(as.matrix(data.frame(ES = df$Vet.Bed[df$Project.Type == 'ES'][4:1],
                       PSH = df$Vet.Bed[df$Project.Type == 'PSH'][4:1],
                       RRH = df$Vet.Bed[df$Project.Type == 'RRH'][4:1],
                       SH = df$Vet.Bed[df$Project.Type == 'SH'][4:1],
                       TH = df$Vet.Bed[df$Project.Type == 'TH'][4:1])))
colnames(veteran.bed.table) <- df$Year[df$Project.Type == 'ES'][4:1]
kable(t(addmargins(veteran.bed.table)[,-5]), caption = "Breakdown of Veteran Beds")
Breakdown of Veteran Beds
ES PSH RRH SH TH Sum
2017 81 565 333 0 79 1058
2018 89 566 20 0 44 719
2019 100 455 29 0 0 584
2020 85 656 37 0 13 791
#housed.vets <- matrix(c(3,4,4,5,120,131,117,103,25,27,38,109), nrow = 3, byrow = TRUE)
#
#row.names(housed.vets) <- c("OPH", "PSH", "RRH")
#
#colnames(housed.vets) <- c(2017,2018,2019,2020)
#
#kable(t(addmargins(housed.vets)[,-5]), caption = "Housed Veterans in HMIS")

Visualization of PSH bed changes

psh <- subset(df, df$Project.Type == 'PSH')
psh.beds<-cbind(psh$Vet.Bed[c(4,3,2,1)], psh$Overall.Bed[c(4,3,2,1)])
row.names(psh.beds)<- psh$Year[c(4,3,2,1)]
colnames(psh.beds)<- c('Vet Beds', 'Total Beds')
barplot(t(psh.beds),
        beside = TRUE,
        col = c('skyblue', 'skyblue4'),
        ylim = c(0,2000),
        legend.text = TRUE, 
        args.legend = list(x = "topleft"),
        ylab = 'Number of beds',
        xlab = 'Year',
        main = 'Number of Veteran PSH beds vs Total PSH beds')
abline(h = min(psh.beds[,1]))

With the above graph and below table, we can see that changes in PSH overall beds have a big affect on Veteran dedicated PSH beds. Vet PSH beds remained constant in 2018 and the overall PSH beds increased by 14.66%. However, in 2019, overall PSH beds dropped by 2% and the total of Veteran PSH beds dropped 20%. 2020 saw a 44% increase in Veteran PSH beds and a 4.77% overall.

psh.change <- cbind(psh$Vet.Bed.Change[c(4,3,2,1)], psh$Overall.Change[c(4,3,2,1)])
row.names(psh.change) <- psh$Year[c(4,3,2,1)]
colnames(psh.change) <- c('Vet Change', 'Overall Change')
kable(t(round(psh.change[-1,],2)), caption = 'Percent Change from Previous Year')
Percent Change from Previous Year
2018 2019 2020
Vet Change 0.18 -20 44.00
Overall Change 14.66 -2 4.77

Visualization of RRH bed changes

rrh <- subset(df, df$Project.Type == 'RRH')
rrh.beds<-cbind(rrh$Vet.Bed[c(4,3,2,1)], rrh$Overall.Bed[c(4,3,2,1)])
row.names(rrh.beds)<- rrh$Year[c(4,3,2,1)]
colnames(rrh.beds)<- c('Vet Beds', 'Total Beds')
barplot(t(rrh.beds),
        beside = TRUE,
        col = c('skyblue', 'skyblue4'),
        legend = TRUE,
        ylim = c(0,600),
        ylab = 'Number of beds',
        xlab = 'Year',
        main = 'Number of Veteran RRH beds vs Total RRH beds')
abline(h = min(rrh.beds[,1]))

A big change in 2018 was the loss of RRH beds. Overall, there was a 63.62% loss in RRH beds and a Veteran dedicated loss of 93.99%. I believe this is the biggest factor contributing to an increase in homeless Veterans in 2018. In 2019, the overall number of RRH beds decreased by 45%, but the number of Veteran dedicated RRH beds increased by 45%, so this could contribute to the decrease in Veteran Homelessness seen in 2019.

2020 saw an increase in Veteran dedicated and overall RRH beds.

rrh.change <- cbind(rrh$Vet.Bed.Change[c(4,3,2,1)], rrh$Overall.Change[c(4,3,2,1)])
row.names(rrh.change) <- rrh$Year[c(4,3,2,1)]
colnames(rrh.change) <- c('Vet Change', 'Overall Change')
kable(t(round(rrh.change[-1,],2)), caption = 'Percent Change from Previous Year')
Percent Change from Previous Year
2018 2019 2020
Vet Change -93.99 45 28.0
Overall Change -63.62 -45 121.7

Changes in Inventory by Year

This section displays New Projects and Retired Projects. It does not take into account the projects that renewed but had a decrease in beds.

# kable(table(df.hic$Organization.Name, df.hic$Year), caption = 'Number of Projects by Provider')

df.hic %>%
  dplyr::group_by(Organization.Name, Project.Name) %>%
  dplyr::summarise(count = count(Project.Name)) -> proj.freq

# kable(cbind(proj.freq$Organization.Name, proj.freq$count), caption = 'Number of years operating since 2017')

year.2020 <- subset(df.hic, df.hic$Year == 2020)
year.2019 <- subset(df.hic, df.hic$Year == 2019)
year.2018 <- subset(df.hic, df.hic$Year == 2018)
year.2017 <- subset(df.hic, df.hic$Year == 2017)

# 2020
# New
new.2020 <- data.frame(Provider = year.2020$Organization.Name[year.2020$Project.Name %in% setdiff(year.2020$Project.Name, year.2019$Project.Name)])

new.2020$Project <- year.2020$Project.Name[year.2020$Project.Name %in% setdiff(year.2020$Project.Name, year.2019$Project.Name)]

new.2020$Type <- year.2020$Type[year.2020$Project.Name %in% setdiff(year.2020$Project.Name, year.2019$Project.Name)]

new.2020$Beds <- year.2020$Total.Beds[year.2020$Project.Name %in% setdiff(year.2020$Project.Name, year.2019$Project.Name)]

new.2020$Status <- "New"

# Old
retired.2020 <- data.frame(Provider = year.2019$Organization.Name[year.2019$Project.Name %in% setdiff(year.2019$Project.Name, year.2020$Project.Name)])

retired.2020$Project <- year.2019$Project.Name[year.2019$Project.Name %in% setdiff(year.2019$Project.Name, year.2020$Project.Name)]

retired.2020$Type <- year.2019$Type[year.2019$Project.Name %in% setdiff(year.2019$Project.Name, year.2020$Project.Name)]

retired.2020$Beds <- year.2019$Total.Beds[year.2019$Project.Name %in% setdiff(year.2019$Project.Name, year.2020$Project.Name)] * -1

retired.2020$Status <- "Retired"

# Renewed with Change
renewed.2020 <- data.frame(Provider = year.2020$Organization.Name[year.2020$Project.Name %in% dplyr::intersect(year.2020$Project.Name, year.2019$Project.Name)])

renewed.2020$Project <- year.2020$Project.Name[year.2020$Project.Name %in% dplyr::intersect(year.2020$Project.Name, year.2019$Project.Name)]

renewed.2020$Type <- year.2020$Type[year.2020$Project.Name %in% dplyr::intersect(year.2020$Project.Name, year.2019$Project.Name)]

renewed.2020$Beds <- year.2020$Total.Beds[year.2020$Project.Name %in% dplyr::intersect(year.2020$Project.Name, year.2019$Project.Name)] - year.2019$Total.Beds[year.2019$Project.Name %in% dplyr::intersect(year.2019$Project.Name, year.2020$Project.Name)]


renewed.2020$Status <- "Renewed with Change"

# Binding

hic.2020 <- rbind(new.2020, retired.2020, renewed.2020[renewed.2020$Beds != 0,])
hic.2020$Year <- 2020

hic.2020$Net <- hic.2020$Beds
hic.2020 <- rbind(hic.2020, c("Net",rep(" ", 2), sum(hic.2020$Net), rep(" ", 2)))


# 2019
# New
new.2019 <- data.frame(Provider = year.2019$Organization.Name[year.2019$Project.Name %in% setdiff(year.2019$Project.Name, year.2018$Project.Name)])

new.2019$Project <- year.2019$Project.Name[year.2019$Project.Name %in%setdiff(year.2019$Project.Name, year.2018$Project.Name)]

new.2019$Type <- year.2019$Type[year.2019$Project.Name %in%setdiff(year.2019$Project.Name, year.2018$Project.Name)]

new.2019$Beds <- year.2019$Total.Beds[year.2019$Project.Name %in%setdiff(year.2019$Project.Name, year.2018$Project.Name)]

new.2019$Status <- "New"                                                            

# Retired  
retired.2019 <- data.frame(Provider = year.2018$Organization.Name[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2019$Project.Name)])

retired.2019$Project <- year.2018$Project.Name[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2019$Project.Name)]

retired.2019$Type <- year.2018$Type[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2019$Project.Name)]

retired.2019$Beds <- year.2018$Total.Beds[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2019$Project.Name)] * -1

retired.2019$Status <- "Retired"

# Renewed with Change
renewed.2019 <- data.frame(Provider = year.2019$Organization.Name[year.2019$Project.Name %in% dplyr::intersect(year.2019$Project.Name, year.2018$Project.Name)])

renewed.2019$Project <- year.2019$Project.Name[year.2019$Project.Name %in% dplyr::intersect(year.2019$Project.Name, year.2018$Project.Name)]

renewed.2019$Type <- year.2019$Type[year.2019$Project.Name %in% dplyr::intersect(year.2019$Project.Name, year.2018$Project.Name)]

renewed.2019$Beds <- year.2019$Total.Beds[year.2019$Organization.Name %in% renewed.2019$Provider & year.2019$Project.Name %in% renewed.2019$Project] - year.2018$Total.Beds[year.2018$Organization.Name %in% renewed.2019$Provider &year.2018$Project.Name %in% renewed.2019$Project]


renewed.2019$Status <- "Renewed with Change"


# Binding
hic.2019 <- rbind(new.2019, retired.2019, renewed.2019[renewed.2019$Beds != 0,])
hic.2019$Year <- 2019

hic.2019$Net <- hic.2019$Beds
hic.2019 <- rbind(hic.2019, c("Net",rep(" ", 2), sum(hic.2019$Net), rep(" ", 2)))




# 2018
# New
new.2018 <- data.frame(Provider = year.2018$Organization.Name[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2017$Project.Name)])

new.2018$Project <- year.2018$Project.Name[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2017$Project.Name)]

new.2018$Type <- year.2018$Type[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2017$Project.Name)]

new.2018$Beds <- year.2018$Total.Beds[year.2018$Project.Name %in% setdiff(year.2018$Project.Name, year.2017$Project.Name)]

new.2018$Status <- "New"

# Retired
retired.2018 <- data.frame(Provider = year.2017$Organization.Name[year.2017$Project.Name %in% setdiff(year.2017$Project.Name, year.2018$Project.Name)])

retired.2018$Project <- year.2017$Project.Name[year.2017$Project.Name %in% setdiff(year.2017$Project.Name, year.2018$Project.Name)]

retired.2018$Type <- year.2017$Type[year.2017$Project.Name %in% setdiff(year.2017$Project.Name, year.2018$Project.Name)]

retired.2018$Beds <- year.2017$Total.Beds[year.2017$Project.Name %in% setdiff(year.2017$Project.Name, year.2018$Project.Name)] * -1

retired.2018$Status <- "Retired"

# Renewed with Change
renewed.2018 <- data.frame(Provider = year.2018$Organization.Name[year.2018$Project.Name %in% dplyr::intersect(year.2018$Project.Name, year.2017$Project.Name)])

renewed.2018$Project <- year.2018$Project.Name[year.2018$Project.Name %in% dplyr::intersect(year.2018$Project.Name, year.2017$Project.Name)]

renewed.2018$Type <- year.2018$Type[year.2018$Project.Name %in% dplyr::intersect(year.2018$Project.Name, year.2017$Project.Name)]

renewed.2018$Beds <- year.2018$Total.Beds[year.2018$Organization.Name %in% renewed.2018$Provider & year.2018$Project.Name %in% renewed.2018$Project] - year.2017$Total.Beds[year.2017$Organization.Name %in% renewed.2018$Provider & year.2017$Project.Name %in% renewed.2018$Project]


renewed.2018$Status <- "Renewed with Change"

# Binding
hic.2018 <- rbind(new.2018, retired.2018, renewed.2018[renewed.2018$Beds != 0,])
hic.2018$Year <- 2018


hic.2018$Net <- hic.2018$Beds
hic.2018 <- rbind(hic.2018, c("Net",rep(" ", 2), sum(hic.2018$Net), rep(" ", 2)))


# Total Years
kable(hic.2020[1:5], caption = "Changes in 2020")
Changes in 2020
Provider Project Type Beds Status
1 Pathways Inc. Stepping Stones ES 20 New
2 TAKE Resource Center Gloria’s Safe Haven ES 3 New
3 Youth Towers Youth Towers South ES ES 4 New
4 AIDS Alabama Le Transclusive PSH 31 New
5 First Light Inc. Trio Consolidation PSH 35 New
6 AIDS Alabama Ascension RRH Consolidated RRH 90 New
7 AIDS Alabama RRH ESG Birmingham RRH 4 New
8 Jefferson County Jefferson County RRH RRH 0 New
9 The Dannon Project Rapid Re-Housing (ESG Birmingham) RRH 1 New
10 Volunteers of America Rapid Re-Housing SSVF RRH 10 New
11 Youth Towers RRH Hybrid RRH 1 New
12 YWCA CENTRAL ALABAMA RRH ESG ADECA RRH 0 New
13 AIDS Alabama Waystation TH TH 15 New
14 The Salvation Army Birmingham Area Command Bridge Housing GPD TH 13 New
15 Youth Towers TH Hybrid TH 6 New
16 Three Hots and a Cot Independent Living ES -5 Retired
17 AIDS Alabama Le Project PSH -11 Retired
18 AIDS Alabama Transclusive PSH -10 Retired
19 First Light Inc. East PSH -10 Retired
20 First Light Inc. Noah’s Ark PSH -15 Retired
21 First Light Inc. Permanent Supportive Housing for Chronically Homeless Women (Bessemer HUD) PSH -10 Retired
22 AIDS Alabama Housing Assistance Fund: Accension RRH -8 Retired
23 AIDS Alabama Housing Assistance Fund: RRH RRH -12 Retired
24 Urban Ministry City of Bham ESG for RRH RRH -4 Retired
201 Three Hots and a Cot VA HCHV ES 7 Renewed with Change
211 YWCA CENTRAL ALABAMA Interfaith Hospitality House ES 3 Renewed with Change
221 YWCA VSPs Family Violence Center ES -3 Renewed with Change
231 Birmingham Health Care SRO-The Lighthouse Project OPH 18 Renewed with Change
241 AIDS Alabama JASPER House PSH -34 Renewed with Change
27 Hsg. Auth of Bessemer VASH- Bessemer Hsg Auth PSH 31 Renewed with Change
28 Hsg. Auth of Birmingham District VASH-B’ham Hsg Authority PSH 63 Renewed with Change
30 Hsg. Auth of Jefferson County VASH- Jefferson County Hsg Authority PSH 17 Renewed with Change
32 Jefferson-Blount-St. Clair Mental Health/Mental Retardation Authority Supportive Housing Program PSH 10 Renewed with Change
34 AIDS Alabama Waystation RRH RRH -2 Renewed with Change
35 First Light Inc. Forever Homes for Families RRH -15 Renewed with Change
36 First Light Inc. Rapid Re-Housing (RRH) (CoC) RRH 84 Renewed with Change
37 Shelby Emergency Assistance ADECA RRH with ESG RRH 4 Renewed with Change
38 United Way of Central Alabama SSVF Priority Veteran RRH -2 Renewed with Change
39 YWCA CENTRAL ALABAMA RRH-ESG Birmingham RRH -22 Renewed with Change
51 YWCA VSPs Downtown Transitional Housing TH -2 Renewed with Change
41 Net 305
kable(hic.2019[1:5], caption = "Changes in 2019")
Changes in 2019
Provider Project Type Beds Status
1 First Light Inc. Rapid Re-Housing (RRH) (CoC) RRH 21 New
2 Housing Assistance Fund Waystation RRH RRH 1 New
3 The Salvation Army Birmingham Area Command Men’s My Place Program TH 9 New
4 The Salvation Army Birmingham Area Command Women’s My Place TH 4 New
5 Bridge Ministries Vouchers ES -1 Retired
6 The Dannon Project Dannon Houses ES -15 Retired
7 Aletheia House RRH for Individuals and Families with Substance Use Disorders " RRH -41 Retired
8 Bridge Ministries Jefferson County ESG RRH RRH 0 Retired
9 Family Endeavors SSVF - Family Endeavors SSVF - RRH RRH -12 Retired
10 The Dannon Project Rapid Re-Housing RRH 0 Retired
11 The Salvation Army Birmingham Area Command My Hone 2 RRH -20 Retired
12 Steps and Traditions Non-Contract Housing TH TH -10 Retired
13 VA Hospital Birmingham CWT-TR VA Transitional TH -12 Retired
81 Jimmie Hale Mission Emergency Shelter ES 16 Renewed with Change
131 Steps and Traditions HCHV-RT- Steps and Traditions ES -15 Renewed with Change
15 The Foundry Transient Beds ES 4 Renewed with Change
16 The Salvation Army Birmingham Area Command Family Shelter ES -6 Renewed with Change
18 The Salvation Army Birmingham Area Command Women’s Step Up ES -11 Renewed with Change
20 Three Hots and a Cot Independent Living ES -14 Renewed with Change
21 Three Hots and a Cot VA HCHV ES -11 Renewed with Change
22 YWCA VSPs Family Violence Center ES -3 Renewed with Change
23 YWCA VSPs Interfaith Hospitality House ES 19 Renewed with Change
24 AIDS Alabama JASPER House PSH -8 Renewed with Change
25 AIDS Alabama Le Project PSH -37 Renewed with Change
26 AIDS Alabama TBRA (HOPWA Birmingham) (PSH) PSH 43 Renewed with Change
27 AIDS Alabama Transclusive PSH -38 Renewed with Change
28 Birmingham Health Care SRO-The Lighthouse Project PSH 38 Renewed with Change
29 First Light Inc. East PSH -5 Renewed with Change
30 First Light Inc. Noah’s Ark PSH 5 Renewed with Change
32 First Light Inc. Permanent Supportive Housing for Women with Disabilities 4th Floor PSH -81 Renewed with Change
33 Hsg. Auth of Bessemer VASH- Bessemer Hsg Auth PSH -311 Renewed with Change
34 Hsg. Auth of Birmingham District VASH-B’ham Hsg Authority PSH -498 Renewed with Change
35 Hsg. Auth of Jefferson County Shelter Plus Care (Big One) PSH 813 Renewed with Change
36 Hsg. Auth of Jefferson County VASH- Jefferson County Hsg Authority PSH 15 Renewed with Change
37 JBS-University of Alabama at Birmingham REACT PSH 30 Renewed with Change
38 Jefferson-Blount-St. Clair Mental Health/Mental Retardation Authority Supportive Housing Program PSH -42 Renewed with Change
39 The Cooperative Downtown Ministries Permanent Supportive Housing PSH 43 Renewed with Change
40 AIDS Alabama Housing Assistance Fund: Accension RRH -64 Renewed with Change
41 AIDS Alabama Housing Assistance Fund: RRH RRH -2 Renewed with Change
42 First Light Inc. Forever Homes for Families RRH 7 Renewed with Change
43 Shelby Emergency Assistance ADECA RRH with ESG RRH -7 Renewed with Change
44 United Way of Central Alabama SSVF Priority Veteran RRH 25 Renewed with Change
45 Urban Ministry City of Bham ESG for RRH RRH 4 Renewed with Change
46 YWCA VSPs RRH-ESG Birmingham RRH 12 Renewed with Change
47 Pathways Inc. Safe Haven Shelter for Women SH -14 Renewed with Change
48 The Cooperative Downtown Ministries Firehouse Safe Haven SH 16 Renewed with Change
49 Bethany Home TH for Women TH -27 Renewed with Change
50 Brother Bryan Exodus Program TH -19 Renewed with Change
51 Changed Lives Christian Center CLCC Transitional for Men TH 34 Renewed with Change
52 Children’s Aid Society Project Independence TH -10 Renewed with Change
54 King’s Ranch/Hannah Home TH for Women with Children TH -20 Renewed with Change
55 The Cooperative Downtown Ministries Nashamah Transitional Housing TH 28 Renewed with Change
53 Net -167
kable(hic.2018[1:5], caption = "Changes in 2018")
Changes in 2018
Provider Project Type Beds Status
1 Steps and Traditions Emergency Street Client Shelter ES 5 New
2 The Dannon Project Dannon Houses ES 15 New
3 The Salvation Army Birmingham Area Command Women’s Step Up ES 31 New
4 Three Hots and a Cot VA HCHV ES 19 New
5 AIDS Alabama Transclusive PSH 5 New
6 The Dannon Project Rapid Re-Housing RRH 0 New
7 The Salvation Army Birmingham Area Command My Hone 2 RRH 20 New
8 Steps and Traditions Non-Contract Housing TH TH 10 New
9 Three Hots and a Cot Independent Living TH 22 New
10 The Salvation Army Birmingham Area Command Salvation Army Temporary Housing ES -10 Retired
11 The Salvation Army Birmingham Area Command Veteran’s Dorm ES -20 Retired
12 The Salvation Army Birmingham Area Command Women & Children’s ES -14 Retired
13 Birmingham Health Care SRO-Goldwire OPH -11 Retired
14 AIDS Alabama FAMILY PLACES PSH -15 Retired
15 Aletheia House SSVF Hope for Heros RRH -57 Retired
16 Pathways Inc. New Beginnings RRH -72 Retired
17 Aletheia House GPD - Veteran’s Program TH -30 Retired
18 Pathways Inc. Parson Place TH -16 Retired
19 Three Hots and a Cot St. Benedict’s TH -13 Retired
20 Three Hots and a Cot Winslow House TH -24 Retired
310 Family Connection Youth Shelter Services ESG ES -6 Renewed with Change
61 Fellowship House HCHV-RT- Fellowship House ES -4 Renewed with Change
71 First Light Inc. Emergency Shelter ES 5 Renewed with Change
101 Lovelady Center Lovelady Emergency Shleter ES 14 Renewed with Change
111 Mickins Boarding Home HCHV-RT Mickins ES -1 Renewed with Change
121 Project Success Emergency Shelter ES -16 Renewed with Change
131 Safehouse Emergency Shelter ES 26 Renewed with Change
161 The Foundry Transient Beds ES -46 Renewed with Change
171 The Salvation Army Birmingham Area Command Family Shelter ES -72 Renewed with Change
181 The Salvation Army Birmingham Area Command Men’s Unit (Hold Over Pay Transient) ES 17 Renewed with Change
191 The Salvation Army Birmingham Area Command Women’s Unit ES 6 Renewed with Change
201 YWCA VSPs Family Violence Center ES -3 Renewed with Change
21 YWCA VSPs Interfaith Hospitality House ES -1 Renewed with Change
22 AIDS Alabama JASPER House PSH -34 Renewed with Change
23 AIDS Alabama Le Project PSH 8 Renewed with Change
24 AIDS Alabama TBRA (HOPWA Birmingham) (PSH) PSH 22 Renewed with Change
25 Birmingham Health Care SRO-The Lighthouse Project PSH 38 Renewed with Change
26 First Light Inc. East PSH -5 Renewed with Change
27 First Light Inc. Noah’s Ark PSH 5 Renewed with Change
29 First Light Inc. Permanent Supportive Housing for Women with Disabilities 4th Floor PSH -95 Renewed with Change
30 Hsg. Auth of Bessemer VASH- Bessemer Hsg Auth PSH -230 Renewed with Change
31 Hsg. Auth of Birmingham District VASH-B’ham Hsg Authority PSH -364 Renewed with Change
32 Hsg. Auth of Jefferson County Shelter Plus Care (Big One) PSH 768 Renewed with Change
33 Hsg. Auth of Jefferson County VASH- Jefferson County Hsg Authority PSH 25 Renewed with Change
34 JBS-University of Alabama at Birmingham REACT PSH 30 Renewed with Change
35 Jefferson-Blount-St. Clair Mental Health/Mental Retardation Authority Supportive Housing Program PSH -42 Renewed with Change
36 The Cooperative Downtown Ministries Permanent Supportive Housing PSH 45 Renewed with Change
37 AIDS Alabama Housing Assistance Fund: Accension RRH 13 Renewed with Change
38 AIDS Alabama Housing Assistance Fund: RRH RRH 51 Renewed with Change
39 Aletheia House RRH for Individuals and Families with Substance Use Disorders " RRH 34 Renewed with Change
40 Bridge Ministries Jefferson County ESG RRH RRH -36 Renewed with Change
41 Family Endeavors SSVF - Family Endeavors SSVF - RRH RRH -7 Renewed with Change
42 First Light Inc. Forever Homes for Families RRH 11 Renewed with Change
43 Shelby Emergency Assistance ADECA RRH with ESG RRH -239 Renewed with Change
44 United Way of Central Alabama SSVF Priority Veteran RRH -7 Renewed with Change
45 Urban Ministry City of Bham ESG for RRH RRH -28 Renewed with Change
46 YWCA VSPs RRH-ESG Birmingham RRH -10 Renewed with Change
47 Pathways Inc. Safe Haven Shelter for Women SH -14 Renewed with Change
48 The Cooperative Downtown Ministries Firehouse Safe Haven SH 16 Renewed with Change
49 Bethany Home TH for Women TH -27 Renewed with Change
50 Brother Bryan Exodus Program TH -21 Renewed with Change
51 Changed Lives Christian Center CLCC Transitional for Men TH 43 Renewed with Change
52 Children’s Aid Society Project Independence TH -10 Renewed with Change
54 King’s Ranch/Hannah Home TH for Women with Children TH -20 Renewed with Change
55 The Cooperative Downtown Ministries Nashamah Transitional Housing TH 38 Renewed with Change
56 VA Hospital Birmingham CWT-TR VA Transitional TH -16 Renewed with Change
57 YWCA VSPs Downtown Transitional Housing TH 9 Renewed with Change
58 YWCA VSPs Women & Children in Crisis: St. Clair County TH 2 Renewed with Change
69 Net -283