data-raw/code-chunks/chunks/CHUNKS-SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY.R
In Nonprofit-Open-Data-Collective/irs990efile: Convert IRS 990 XML files to a relational database.
#' @title
#' Build table SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
#'
#' @description
#' Generate a 1:1 table for the relational database.
#'
#' @export
BUILD_SH_P02_T00_FAP_COMMUNITY_BENEFIT_POLICY <- function( doc, url )
{
####----------------------------------------------------
#### KEYS
####----------------------------------------------------
## OBJECT ID
OBJECTID <- get_object_id( url )
## URL
URL <- url
## RETURN VERSION
RETURN_VERSION <- xml2::xml_attr( doc, attr='returnVersion' )
## VARIABLE NAME: ORG_EIN
## DESCRIPTION: Orgainization Employer Identification Number (EIN)
## LOCATION: F990-PC-PART-00-SECTION-D
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
ORG_EIN <- xml_text( xml_find_all( doc, '/Return/ReturnHeader/Filer/EIN' ) )
## VARIABLE NAME: ORG_NAME_L1
## DESCRIPTION: Name of Filing Organization (line 1)
## LOCATION: F990-PC-PART-00-SECTION-C
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/Filer/Name/BusinessNameLine1'
V2 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine1'
V3 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine1Txt'
TEMP_ORG_NAME_L1 <- paste( V1, V2, V3 , sep='|' )
ORG_NAME_L1 <- xml_text( xml_find_all( doc, TEMP_ORG_NAME_L1 ) )
## VARIABLE NAME: ORG_NAME_L2
## DESCRIPTION: Name of Filing Organization (line 2)
## LOCATION: F990-PC-PART-00-SECTION-C
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/Filer/Name/BusinessNameLine2'
V2 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine2'
V3 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine2Txt'
TEMP_ORG_NAME_L2 <- paste( V1, V2, V3 , sep='|' )
ORG_NAME_L2 <- xml_text( xml_find_all( doc, TEMP_ORG_NAME_L2 ) )
## VARIABLE NAME: RETURN_TYPE
## DESCRIPTION: Return type
## LOCATION: F990-PC-PART-00-LINE-00
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/ReturnType'
V2 <- '//Return/ReturnHeader/ReturnTypeCd'
TEMP_RETURN_TYPE <- paste( V1, V2 , sep='|' )
RETURN_TYPE <- xml_text( xml_find_all( doc, TEMP_RETURN_TYPE ) )
## VARIABLE NAME: TAX_YEAR
## DESCRIPTION: Tax year
## LOCATION: F990-PC-PART-00-SECTION-A
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: date
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/TaxYear'
V2 <- '//Return/ReturnHeader/TaxYr'
TEMP_TAX_YEAR <- paste( V1, V2 , sep='|' )
TAX_YEAR <- xml_text( xml_find_all( doc, TEMP_TAX_YEAR ) )
######----------------------------------------------------
######
###### 1:1 TABLE VARIABLES
######
######----------------------------------------------------
## VARIABLE NAME: SH_02_PHY_IMP_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-01-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/ActivitiesOrProgramsCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/NumberOfActivitiesOrPrograms'
V_PHY_IMP_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_PHY_IMP_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_PHY_IMP_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-01-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/PersonsServedCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/PersonsServed'
V_PHY_IMP_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_PERS_SERVED <- xml_text( xml_find_all( doc, V_PHY_IMP_PERS_SERVED ) )
## VARIABLE NAME: SH_02_PHY_IMP_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-01-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/TotalCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/TotalCommunityBenefitExpnsAmt'
V_PHY_IMP_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_PHY_IMP_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_PHY_IMP_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-01-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/DirectOffsettingRevenueAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/DirectOffsettingRevenue'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/DirectOffsettingRevenue'
V_PHY_IMP_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_PHY_IMP_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_PHY_IMP_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-01-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/NetCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/NetCommunityBenefitExpnsAmt'
V_PHY_IMP_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_PHY_IMP_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_PHY_IMP_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-01-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/TotalExpensePct'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/PercentOfTotalExpense'
V_PHY_IMP_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_PHY_IMP_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_ECON_DEV_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-02-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/NumberOfActivitiesOrPrograms'
V_ECON_DEV_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_ECON_DEV_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_ECON_DEV_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-02-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/PersonsServed'
V_ECON_DEV_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_PERS_SERVED <- xml_text( xml_find_all( doc, V_ECON_DEV_PERS_SERVED ) )
## VARIABLE NAME: SH_02_ECON_DEV_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-02-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/TotalCommunityBuildingExpense'
V_ECON_DEV_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_ECON_DEV_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_ECON_DEV_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-02-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/DirectOffsettingRevenue'
V_ECON_DEV_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_ECON_DEV_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_ECON_DEV_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-02-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/NetCommunityBuildingExpense'
V_ECON_DEV_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_ECON_DEV_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_ECON_DEV_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-02-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/TotalExpensePct'
V_ECON_DEV_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_ECON_DEV_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_COM_SUP_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-03-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/NumberOfActivitiesOrPrograms'
V_COM_SUP_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_COM_SUP_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_COM_SUP_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-03-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/PersonsServedCnt'
V_COM_SUP_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_PERS_SERVED <- xml_text( xml_find_all( doc, V_COM_SUP_PERS_SERVED ) )
## VARIABLE NAME: SH_02_COM_SUP_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-03-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/TotalCommunityBuildingExpense'
V_COM_SUP_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_COM_SUP_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_COM_SUP_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-03-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/DirectOffsettingRevenue'
V_COM_SUP_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_COM_SUP_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_COM_SUP_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-03-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/NetCommunityBuildingExpense'
V_COM_SUP_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_COM_SUP_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_COM_SUP_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-03-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/TotalExpensePct'
V_COM_SUP_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_COM_SUP_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_ENVIR_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-04-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/ActivitiesOrProgramsCnt'
V_ENVIR_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_ENVIR_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_ENVIR_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-04-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/PersonsServed'
V_ENVIR_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_PERS_SERVED <- xml_text( xml_find_all( doc, V_ENVIR_PERS_SERVED ) )
## VARIABLE NAME: SH_02_ENVIR_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-04-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/TotalCommunityBuildingExpense'
V_ENVIR_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_ENVIR_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_ENVIR_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-04-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/DirectOffsettingRevenue'
V_ENVIR_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_ENVIR_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_ENVIR_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-04-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/NetCommunityBuildingExpense'
V_ENVIR_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_ENVIR_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_ENVIR_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-04-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/TotalExpensePct'
V_ENVIR_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_ENVIR_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_LDRSP_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-05-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/ActivitiesOrProgramsCnt'
V_LDRSP_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_LDRSP_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_LDRSP_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-05-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/PersonsServedCnt'
V_LDRSP_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_PERS_SERVED <- xml_text( xml_find_all( doc, V_LDRSP_PERS_SERVED ) )
## VARIABLE NAME: SH_02_LDRSP_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-05-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/TotalCommunityBuildingExpense'
V_LDRSP_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_LDRSP_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_LDRSP_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-05-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/DirectOffsettingRevenue'
V_LDRSP_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_LDRSP_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_LDRSP_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-05-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/NetCommunityBuildingExpense'
V_LDRSP_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_LDRSP_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_LDRSP_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-05-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/TotalExpensePct'
V_LDRSP_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_LDRSP_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_COAL_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-06-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/ActivitiesOrProgramsCnt'
V_COAL_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_COAL_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_COAL_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-06-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/PersonsServedCnt'
V_COAL_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_PERS_SERVED <- xml_text( xml_find_all( doc, V_COAL_PERS_SERVED ) )
## VARIABLE NAME: SH_02_COAL_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-06-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/TotalCommunityBuildingExpense'
V_COAL_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_COAL_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_COAL_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-06-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/DirectOffsettingRevenue'
V_COAL_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_COAL_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_COAL_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-06-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/NetCommunityBuildingExpense'
V_COAL_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_COAL_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_COAL_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-06-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/TotalExpensePct'
V_COAL_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_COAL_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_ADVOCACY_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-07-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/NumberOfActivitiesOrPrograms'
V_ADVOCACY_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_ADVOCACY_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_ADVOCACY_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-07-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/PersonsServed'
V_ADVOCACY_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_PERS_SERVED <- xml_text( xml_find_all( doc, V_ADVOCACY_PERS_SERVED ) )
## VARIABLE NAME: SH_02_ADVOCACY_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-07-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/TotalCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/TotalCommunityBenefitExpnsAmt'
V_ADVOCACY_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_ADVOCACY_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_ADVOCACY_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-07-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/DirectOffsettingRevenue'
V_ADVOCACY_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_ADVOCACY_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_ADVOCACY_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-07-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/NetCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/NetCommunityBenefitExpnsAmt'
V_ADVOCACY_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_ADVOCACY_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_ADVOCACY_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-07-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/TotalExpensePct'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/PercentOfTotalExpense'
V_ADVOCACY_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_ADVOCACY_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_WORK_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-08-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/ActivitiesOrProgramsCnt'
V_WORK_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_WORK_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_WORK_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-08-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/PersonsServed'
V_WORK_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_PERS_SERVED <- xml_text( xml_find_all( doc, V_WORK_PERS_SERVED ) )
## VARIABLE NAME: SH_02_WORK_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-08-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/TotalCommunityBuildingExpense'
V_WORK_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_WORK_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_WORK_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-08-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/DirectOffsettingRevenue'
V_WORK_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_WORK_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_WORK_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-08-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/NetCommunityBuildingExpense'
V_WORK_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_WORK_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_WORK_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-08-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/TotalExpensePct'
V_WORK_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_WORK_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_OTH_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-09-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/NumberOfActivitiesOrPrograms'
V_OTH_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_OTH_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_OTH_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-09-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/PersonsServed'
V_OTH_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_PERS_SERVED <- xml_text( xml_find_all( doc, V_OTH_PERS_SERVED ) )
## VARIABLE NAME: SH_02_OTH_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-09-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/TotalCommunityBuildingExpense'
V_OTH_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_OTH_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_OTH_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-09-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/DirectOffsettingRevenueAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/DirectOffsettingRevenue'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Other/DirectOffsettingRevenue'
V_OTH_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_OTH_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_OTH_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-09-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/NetCommunityBuildingExpense'
V_OTH_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_OTH_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_OTH_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-09-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/TotalExpensePct'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/PercentOfTotalExpense'
V_OTH_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_OTH_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_TOT_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-10-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/ActivitiesOrProgramsCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/NumberOfActivitiesOrPrograms'
V_TOT_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_TOT_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_TOT_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-10-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/PersonsServedCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/PersonsServed'
V_TOT_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_PERS_SERVED <- xml_text( xml_find_all( doc, V_TOT_PERS_SERVED ) )
## VARIABLE NAME: SH_02_TOT_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-10-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/TotalCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/TotalCommunityBenefitExpnsAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/TotalCommunityBuildingExpense'
V_TOT_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_TOT_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_TOT_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-10-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/DirectOffsettingRevenue'
V_TOT_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_TOT_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_TOT_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-10-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/NetCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/NetCommunityBenefitExpnsAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/NetCommunityBuildingExpense'
V_TOT_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_TOT_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_TOT_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-10-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/TotalExpensePct'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/PercentOfTotalExpense'
V_TOT_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_TOT_PCT_EXP_TOT ) )
var.list <-
namedList(OBJECTID,URL,ORG_EIN,ORG_NAME_L1,ORG_NAME_L2,RETURN_TYPE,TAX_YEAR,SH_02_PHY_IMP_NUM_ACT_PROG,SH_02_PHY_IMP_PERS_SERVED,SH_02_PHY_IMP_EXP_TOT_COM_BLDG,SH_02_PHY_IMP_REV_DIRECT_OFFSET,SH_02_PHY_IMP_EXP_NET_COM_BLDG,SH_02_PHY_IMP_PCT_EXP_TOT,SH_02_ECON_DEV_NUM_ACT_PROG,SH_02_ECON_DEV_PERS_SERVED,SH_02_ECON_DEV_EXP_TOT_COM_BLDG,SH_02_ECON_DEV_REV_DIRECT_OFFSET,SH_02_ECON_DEV_EXP_NET_COM_BLDG,SH_02_ECON_DEV_PCT_EXP_TOT,SH_02_COM_SUP_NUM_ACT_PROG,SH_02_COM_SUP_PERS_SERVED,SH_02_COM_SUP_EXP_TOT_COM_BLDG,SH_02_COM_SUP_REV_DIRECT_OFFSET,SH_02_COM_SUP_EXP_NET_COM_BLDG,SH_02_COM_SUP_PCT_EXP_TOT,SH_02_ENVIR_NUM_ACT_PROG,SH_02_ENVIR_PERS_SERVED,SH_02_ENVIR_EXP_TOT_COM_BLDG,SH_02_ENVIR_REV_DIRECT_OFFSET,SH_02_ENVIR_EXP_NET_COM_BLDG,SH_02_ENVIR_PCT_EXP_TOT,SH_02_LDRSP_NUM_ACT_PROG,SH_02_LDRSP_PERS_SERVED,SH_02_LDRSP_EXP_TOT_COM_BLDG,SH_02_LDRSP_REV_DIRECT_OFFSET,SH_02_LDRSP_EXP_NET_COM_BLDG,SH_02_LDRSP_PCT_EXP_TOT,SH_02_COAL_NUM_ACT_PROG,SH_02_COAL_PERS_SERVED,SH_02_COAL_EXP_TOT_COM_BLDG,SH_02_COAL_REV_DIRECT_OFFSET,SH_02_COAL_EXP_NET_COM_BLDG,SH_02_COAL_PCT_EXP_TOT,SH_02_ADVOCACY_NUM_ACT_PROG,SH_02_ADVOCACY_PERS_SERVED,SH_02_ADVOCACY_EXP_TOT_COM_BLDG,SH_02_ADVOCACY_REV_DIRECT_OFFSET,SH_02_ADVOCACY_EXP_NET_COM_BLDG,SH_02_ADVOCACY_PCT_EXP_TOT,SH_02_WORK_NUM_ACT_PROG,SH_02_WORK_PERS_SERVED,SH_02_WORK_EXP_TOT_COM_BLDG,SH_02_WORK_REV_DIRECT_OFFSET,SH_02_WORK_EXP_NET_COM_BLDG,SH_02_WORK_PCT_EXP_TOT,SH_02_OTH_NUM_ACT_PROG,SH_02_OTH_PERS_SERVED,SH_02_OTH_EXP_TOT_COM_BLDG,SH_02_OTH_REV_DIRECT_OFFSET,SH_02_OTH_EXP_NET_COM_BLDG,SH_02_OTH_PCT_EXP_TOT,SH_02_TOT_NUM_ACT_PROG,SH_02_TOT_PERS_SERVED,SH_02_TOT_EXP_TOT_COM_BLDG,SH_02_TOT_REV_DIRECT_OFFSET,SH_02_TOT_EXP_NET_COM_BLDG,SH_02_TOT_PCT_EXP_TOT)
df <- as.data.frame( var.list )
return( df )
}
Nonprofit-Open-Data-Collective/irs990efile documentation built on Dec. 25, 2024, 5:30 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' @title
#' Build table SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
#'
#' @description
#' Generate a 1:1 table for the relational database.
#'
#' @export
BUILD_SH_P02_T00_FAP_COMMUNITY_BENEFIT_POLICY <- function( doc, url )
{
####----------------------------------------------------
#### KEYS
####----------------------------------------------------
## OBJECT ID
OBJECTID <- get_object_id( url )
## URL
URL <- url
## RETURN VERSION
RETURN_VERSION <- xml2::xml_attr( doc, attr='returnVersion' )
## VARIABLE NAME: ORG_EIN
## DESCRIPTION: Orgainization Employer Identification Number (EIN)
## LOCATION: F990-PC-PART-00-SECTION-D
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
ORG_EIN <- xml_text( xml_find_all( doc, '/Return/ReturnHeader/Filer/EIN' ) )
## VARIABLE NAME: ORG_NAME_L1
## DESCRIPTION: Name of Filing Organization (line 1)
## LOCATION: F990-PC-PART-00-SECTION-C
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/Filer/Name/BusinessNameLine1'
V2 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine1'
V3 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine1Txt'
TEMP_ORG_NAME_L1 <- paste( V1, V2, V3 , sep='|' )
ORG_NAME_L1 <- xml_text( xml_find_all( doc, TEMP_ORG_NAME_L1 ) )
## VARIABLE NAME: ORG_NAME_L2
## DESCRIPTION: Name of Filing Organization (line 2)
## LOCATION: F990-PC-PART-00-SECTION-C
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/Filer/Name/BusinessNameLine2'
V2 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine2'
V3 <- '//Return/ReturnHeader/Filer/BusinessName/BusinessNameLine2Txt'
TEMP_ORG_NAME_L2 <- paste( V1, V2, V3 , sep='|' )
ORG_NAME_L2 <- xml_text( xml_find_all( doc, TEMP_ORG_NAME_L2 ) )
## VARIABLE NAME: RETURN_TYPE
## DESCRIPTION: Return type
## LOCATION: F990-PC-PART-00-LINE-00
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/ReturnType'
V2 <- '//Return/ReturnHeader/ReturnTypeCd'
TEMP_RETURN_TYPE <- paste( V1, V2 , sep='|' )
RETURN_TYPE <- xml_text( xml_find_all( doc, TEMP_RETURN_TYPE ) )
## VARIABLE NAME: TAX_YEAR
## DESCRIPTION: Tax year
## LOCATION: F990-PC-PART-00-SECTION-A
## TABLE: F9-P00-T00-HEADER
## VARIABLE TYPE: date
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnHeader/TaxYear'
V2 <- '//Return/ReturnHeader/TaxYr'
TEMP_TAX_YEAR <- paste( V1, V2 , sep='|' )
TAX_YEAR <- xml_text( xml_find_all( doc, TEMP_TAX_YEAR ) )
######----------------------------------------------------
######
###### 1:1 TABLE VARIABLES
######
######----------------------------------------------------
## VARIABLE NAME: SH_02_PHY_IMP_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-01-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/ActivitiesOrProgramsCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/NumberOfActivitiesOrPrograms'
V_PHY_IMP_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_PHY_IMP_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_PHY_IMP_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-01-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/PersonsServedCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/PersonsServed'
V_PHY_IMP_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_PERS_SERVED <- xml_text( xml_find_all( doc, V_PHY_IMP_PERS_SERVED ) )
## VARIABLE NAME: SH_02_PHY_IMP_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-01-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/TotalCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/TotalCommunityBenefitExpnsAmt'
V_PHY_IMP_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_PHY_IMP_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_PHY_IMP_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-01-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/DirectOffsettingRevenueAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/DirectOffsettingRevenue'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/DirectOffsettingRevenue'
V_PHY_IMP_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_PHY_IMP_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_PHY_IMP_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-01-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/NetCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/NetCommunityBenefitExpnsAmt'
V_PHY_IMP_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_PHY_IMP_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_PHY_IMP_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-01-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprvAndHousingGrp/TotalExpensePct'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/PhysicalImprovementsAndHousing/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/PhysicalImprovementsAndHousing/PercentOfTotalExpense'
V_PHY_IMP_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_PHY_IMP_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_PHY_IMP_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_ECON_DEV_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-02-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/NumberOfActivitiesOrPrograms'
V_ECON_DEV_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_ECON_DEV_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_ECON_DEV_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-02-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/PersonsServed'
V_ECON_DEV_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_PERS_SERVED <- xml_text( xml_find_all( doc, V_ECON_DEV_PERS_SERVED ) )
## VARIABLE NAME: SH_02_ECON_DEV_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-02-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/TotalCommunityBuildingExpense'
V_ECON_DEV_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_ECON_DEV_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_ECON_DEV_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-02-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/DirectOffsettingRevenue'
V_ECON_DEV_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_ECON_DEV_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_ECON_DEV_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-02-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/NetCommunityBuildingExpense'
V_ECON_DEV_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_ECON_DEV_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_ECON_DEV_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-02-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopment/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EconomicDevelopment/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EconomicDevelopmentGrp/TotalExpensePct'
V_ECON_DEV_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_ECON_DEV_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_ECON_DEV_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_COM_SUP_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-03-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/NumberOfActivitiesOrPrograms'
V_COM_SUP_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_COM_SUP_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_COM_SUP_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-03-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/PersonsServedCnt'
V_COM_SUP_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_PERS_SERVED <- xml_text( xml_find_all( doc, V_COM_SUP_PERS_SERVED ) )
## VARIABLE NAME: SH_02_COM_SUP_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-03-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/TotalCommunityBuildingExpense'
V_COM_SUP_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_COM_SUP_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_COM_SUP_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-03-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/DirectOffsettingRevenue'
V_COM_SUP_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_COM_SUP_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_COM_SUP_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-03-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/NetCommunityBuildingExpense'
V_COM_SUP_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_COM_SUP_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_COM_SUP_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-03-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupport/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CommunitySupport/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CommunitySupportGrp/TotalExpensePct'
V_COM_SUP_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_COM_SUP_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_COM_SUP_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_ENVIR_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-04-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/ActivitiesOrProgramsCnt'
V_ENVIR_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_ENVIR_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_ENVIR_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-04-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/PersonsServed'
V_ENVIR_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_PERS_SERVED <- xml_text( xml_find_all( doc, V_ENVIR_PERS_SERVED ) )
## VARIABLE NAME: SH_02_ENVIR_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-04-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/TotalCommunityBuildingExpense'
V_ENVIR_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_ENVIR_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_ENVIR_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-04-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/DirectOffsettingRevenue'
V_ENVIR_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_ENVIR_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_ENVIR_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-04-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/NetCommunityBuildingExpense'
V_ENVIR_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_ENVIR_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_ENVIR_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-04-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovements/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/EnvironmentalImprovements/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/EnvironmentalImprovementsGrp/TotalExpensePct'
V_ENVIR_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_ENVIR_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_ENVIR_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_LDRSP_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-05-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/ActivitiesOrProgramsCnt'
V_LDRSP_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_LDRSP_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_LDRSP_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-05-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/PersonsServedCnt'
V_LDRSP_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_PERS_SERVED <- xml_text( xml_find_all( doc, V_LDRSP_PERS_SERVED ) )
## VARIABLE NAME: SH_02_LDRSP_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-05-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/TotalCommunityBuildingExpense'
V_LDRSP_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_LDRSP_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_LDRSP_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-05-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/DirectOffsettingRevenue'
V_LDRSP_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_LDRSP_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_LDRSP_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-05-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/NetCommunityBuildingExpense'
V_LDRSP_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_LDRSP_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_LDRSP_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-05-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopment/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/LeadershipDevelopment/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/LeadershipDevelopmentGrp/TotalExpensePct'
V_LDRSP_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_LDRSP_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_LDRSP_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_COAL_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-06-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/ActivitiesOrProgramsCnt'
V_COAL_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_COAL_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_COAL_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-06-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/PersonsServedCnt'
V_COAL_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_PERS_SERVED <- xml_text( xml_find_all( doc, V_COAL_PERS_SERVED ) )
## VARIABLE NAME: SH_02_COAL_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-06-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/TotalCommunityBuildingExpense'
V_COAL_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_COAL_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_COAL_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-06-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/DirectOffsettingRevenue'
V_COAL_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_COAL_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_COAL_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-06-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/NetCommunityBuildingExpense'
V_COAL_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_COAL_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_COAL_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-06-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuilding/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/CoalitionBuilding/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/CoalitionBuildingGrp/TotalExpensePct'
V_COAL_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_COAL_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_COAL_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_ADVOCACY_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-07-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/NumberOfActivitiesOrPrograms'
V_ADVOCACY_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_ADVOCACY_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_ADVOCACY_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-07-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/PersonsServed'
V_ADVOCACY_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_PERS_SERVED <- xml_text( xml_find_all( doc, V_ADVOCACY_PERS_SERVED ) )
## VARIABLE NAME: SH_02_ADVOCACY_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-07-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/TotalCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/TotalCommunityBenefitExpnsAmt'
V_ADVOCACY_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_ADVOCACY_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_ADVOCACY_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-07-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/DirectOffsettingRevenue'
V_ADVOCACY_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_ADVOCACY_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_ADVOCACY_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-07-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/NetCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/NetCommunityBenefitExpnsAmt'
V_ADVOCACY_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_ADVOCACY_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_ADVOCACY_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-07-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacyGrp/TotalExpensePct'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HealthImprovementAdvocacy/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/HealthImprovementAdvocacy/PercentOfTotalExpense'
V_ADVOCACY_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_ADVOCACY_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_ADVOCACY_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_WORK_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-08-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/ActivitiesOrProgramsCnt'
V_WORK_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_WORK_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_WORK_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-08-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/PersonsServed'
V_WORK_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_PERS_SERVED <- xml_text( xml_find_all( doc, V_WORK_PERS_SERVED ) )
## VARIABLE NAME: SH_02_WORK_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-08-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/TotalCommunityBuildingExpense'
V_WORK_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_WORK_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_WORK_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-08-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/DirectOffsettingRevenue'
V_WORK_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_WORK_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_WORK_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-08-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/NetCommunityBuildingExpense'
V_WORK_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_WORK_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_WORK_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-08-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopment/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/WorkforceDevelopment/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/WorkforceDevelopmentGrp/TotalExpensePct'
V_WORK_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_WORK_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_WORK_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_OTH_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-09-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/ActivitiesOrProgramsCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/NumberOfActivitiesOrPrograms'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/NumberOfActivitiesOrPrograms'
V_OTH_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_OTH_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_OTH_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-09-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/PersonsServedCnt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/PersonsServed'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/PersonsServed'
V_OTH_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_PERS_SERVED <- xml_text( xml_find_all( doc, V_OTH_PERS_SERVED ) )
## VARIABLE NAME: SH_02_OTH_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-09-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/TotalCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/TotalCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/TotalCommunityBuildingExpense'
V_OTH_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_OTH_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_OTH_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-09-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/DirectOffsettingRevenueAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/DirectOffsettingRevenue'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Other/DirectOffsettingRevenue'
V_OTH_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_OTH_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_OTH_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-09-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/NetCommunityBenefitExpnsAmt'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/NetCommunityBuildingExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/NetCommunityBuildingExpense'
V_OTH_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_OTH_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_OTH_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-09-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/OtherCommuntityBuildingActyGrp/TotalExpensePct'
V2 <- '//Return/ReturnData/IRS990ScheduleH/Other/PercentOfTotalExpense'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Other/PercentOfTotalExpense'
V_OTH_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_OTH_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_OTH_PCT_EXP_TOT ) )
## VARIABLE NAME: SH_02_TOT_NUM_ACT_PROG
## DESCRIPTION: Number of activities or programs
## LOCATION: SCHED-H-PART-02-LINE-10-COL-A
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/NumberOfActivitiesOrPrograms'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/ActivitiesOrProgramsCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/NumberOfActivitiesOrPrograms'
V_TOT_NUM_ACT_PROG <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_NUM_ACT_PROG <- xml_text( xml_find_all( doc, V_TOT_NUM_ACT_PROG ) )
## VARIABLE NAME: SH_02_TOT_PERS_SERVED
## DESCRIPTION: Persons served
## LOCATION: SCHED-H-PART-02-LINE-10-COL-B
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/PersonsServed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/PersonsServedCnt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/PersonsServed'
V_TOT_PERS_SERVED <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_PERS_SERVED <- xml_text( xml_find_all( doc, V_TOT_PERS_SERVED ) )
## VARIABLE NAME: SH_02_TOT_EXP_TOT_COM_BLDG
## DESCRIPTION: Total community building expense
## LOCATION: SCHED-H-PART-02-LINE-10-COL-C
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/TotalCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/TotalCommunityBenefitExpnsAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/TotalCommunityBuildingExpense'
V_TOT_EXP_TOT_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_EXP_TOT_COM_BLDG <- xml_text( xml_find_all( doc, V_TOT_EXP_TOT_COM_BLDG ) )
## VARIABLE NAME: SH_02_TOT_REV_DIRECT_OFFSET
## DESCRIPTION: Direct offsetting revenue
## LOCATION: SCHED-H-PART-02-LINE-10-COL-D
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/DirectOffsettingRevenue'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/DirectOffsettingRevenueAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/DirectOffsettingRevenue'
V_TOT_REV_DIRECT_OFFSET <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_REV_DIRECT_OFFSET <- xml_text( xml_find_all( doc, V_TOT_REV_DIRECT_OFFSET ) )
## VARIABLE NAME: SH_02_TOT_EXP_NET_COM_BLDG
## DESCRIPTION: Net community building expense
## LOCATION: SCHED-H-PART-02-LINE-10-COL-E
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/NetCommunityBuildingExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/NetCommunityBenefitExpnsAmt'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/NetCommunityBuildingExpense'
V_TOT_EXP_NET_COM_BLDG <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_EXP_NET_COM_BLDG <- xml_text( xml_find_all( doc, V_TOT_EXP_NET_COM_BLDG ) )
## VARIABLE NAME: SH_02_TOT_PCT_EXP_TOT
## DESCRIPTION: Percent of total expense
## LOCATION: SCHED-H-PART-02-LINE-10-COL-F
## TABLE: SH-P02-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Total/PercentOfTotalExpense'
V2 <- '//Return/ReturnData/IRS990ScheduleH/TotalCommuntityBuildingActyGrp/TotalExpensePct'
V3 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartII/Total/PercentOfTotalExpense'
V_TOT_PCT_EXP_TOT <- paste( V1, V2, V3 , sep='|' )
SH_02_TOT_PCT_EXP_TOT <- xml_text( xml_find_all( doc, V_TOT_PCT_EXP_TOT ) )
var.list <-
namedList(OBJECTID,URL,ORG_EIN,ORG_NAME_L1,ORG_NAME_L2,RETURN_TYPE,TAX_YEAR,SH_02_PHY_IMP_NUM_ACT_PROG,SH_02_PHY_IMP_PERS_SERVED,SH_02_PHY_IMP_EXP_TOT_COM_BLDG,SH_02_PHY_IMP_REV_DIRECT_OFFSET,SH_02_PHY_IMP_EXP_NET_COM_BLDG,SH_02_PHY_IMP_PCT_EXP_TOT,SH_02_ECON_DEV_NUM_ACT_PROG,SH_02_ECON_DEV_PERS_SERVED,SH_02_ECON_DEV_EXP_TOT_COM_BLDG,SH_02_ECON_DEV_REV_DIRECT_OFFSET,SH_02_ECON_DEV_EXP_NET_COM_BLDG,SH_02_ECON_DEV_PCT_EXP_TOT,SH_02_COM_SUP_NUM_ACT_PROG,SH_02_COM_SUP_PERS_SERVED,SH_02_COM_SUP_EXP_TOT_COM_BLDG,SH_02_COM_SUP_REV_DIRECT_OFFSET,SH_02_COM_SUP_EXP_NET_COM_BLDG,SH_02_COM_SUP_PCT_EXP_TOT,SH_02_ENVIR_NUM_ACT_PROG,SH_02_ENVIR_PERS_SERVED,SH_02_ENVIR_EXP_TOT_COM_BLDG,SH_02_ENVIR_REV_DIRECT_OFFSET,SH_02_ENVIR_EXP_NET_COM_BLDG,SH_02_ENVIR_PCT_EXP_TOT,SH_02_LDRSP_NUM_ACT_PROG,SH_02_LDRSP_PERS_SERVED,SH_02_LDRSP_EXP_TOT_COM_BLDG,SH_02_LDRSP_REV_DIRECT_OFFSET,SH_02_LDRSP_EXP_NET_COM_BLDG,SH_02_LDRSP_PCT_EXP_TOT,SH_02_COAL_NUM_ACT_PROG,SH_02_COAL_PERS_SERVED,SH_02_COAL_EXP_TOT_COM_BLDG,SH_02_COAL_REV_DIRECT_OFFSET,SH_02_COAL_EXP_NET_COM_BLDG,SH_02_COAL_PCT_EXP_TOT,SH_02_ADVOCACY_NUM_ACT_PROG,SH_02_ADVOCACY_PERS_SERVED,SH_02_ADVOCACY_EXP_TOT_COM_BLDG,SH_02_ADVOCACY_REV_DIRECT_OFFSET,SH_02_ADVOCACY_EXP_NET_COM_BLDG,SH_02_ADVOCACY_PCT_EXP_TOT,SH_02_WORK_NUM_ACT_PROG,SH_02_WORK_PERS_SERVED,SH_02_WORK_EXP_TOT_COM_BLDG,SH_02_WORK_REV_DIRECT_OFFSET,SH_02_WORK_EXP_NET_COM_BLDG,SH_02_WORK_PCT_EXP_TOT,SH_02_OTH_NUM_ACT_PROG,SH_02_OTH_PERS_SERVED,SH_02_OTH_EXP_TOT_COM_BLDG,SH_02_OTH_REV_DIRECT_OFFSET,SH_02_OTH_EXP_NET_COM_BLDG,SH_02_OTH_PCT_EXP_TOT,SH_02_TOT_NUM_ACT_PROG,SH_02_TOT_PERS_SERVED,SH_02_TOT_EXP_TOT_COM_BLDG,SH_02_TOT_REV_DIRECT_OFFSET,SH_02_TOT_EXP_NET_COM_BLDG,SH_02_TOT_PCT_EXP_TOT)
df <- as.data.frame( var.list )
return( df )
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.