discoveryengine: A CADS Prospecting Tool

office_code_synonyms <- function() {
    c(
        "astronomy" = "AD",
        "art_museum" = "AM",
        "bam" = "AM",
        "berkeley_art_museum" = "AM",
        "brain_initiative" = "BB",
        "berkeley_brain_initiative" = "BB",
        "blum_center" = "BM",
        "botanical_garden" = "BG",
        "business" = "BU",
        "haas" = "BU",
        "cal_alumni_association" = "CA",
        "alumni_association" = "CA",
        "caa" = "CA",
        "chemistry" = "CH",
        "class_campaigns" = "A2",
        "cfr" = "CF",
        "corporate_foundation_relations" = "CF",
        "education" = "EC",
        "engineering" = "EN",
        "environmental_design" = "ED",
        "equity_inclusion" = "EI",
        "gift_planning" = "PG",
        "planned_giving" = "PG",
        "governmental_studies" = "GS",
        "graduate_division" = "GD",
        "hearst_museum" = "HM",
        "information" = "IM",
        "athletics" = "AT",
        "international_relations" = "ID",
        "journalism" = "JR",
        "boalt" = "LW",
        "law" = "LW",
        "lawrence_hall_of_science" = "LH",
        "leadership_gifts" = "LG",
        "letters_and_science" = "LS",
        "library" = "LI",
        "magnes" = "MN",
        "natural_resources" = "NR",
        "neuroscience" = "NS",
        "neuroscience_institute" = "NS",
        "optometry" = "OP",
        "principal_gifts" = "PX",
        "public_health" = "PH",
        "public_policy" = "PP",
        "gspp" = "PP",
        "qb3" = "QB",
        "quantitative_bioscience" = "QB",
        "quantitative_biosciences" = "QB",
        "social_welfare" = "SW",
        "student_affairs" = "UA",
        "young_musicians_program" = "YM",
        "ymp" = "YM",
        "intl_and_area_studies" = "IA"
    )
}