R/BUILD_SE_P01_T00_SCHOOLS.R
In Nonprofit-Open-Data-Collective/irs990efile: Convert IRS 990 Efiler XML files to a relational database.
Defines functions
BUILD_SE_P01_T00_SCHOOLS
#' @title
#' Build table SE-P01-T00-SCHOOLS
#'
#' @description
#' Generate a 1:1 table for the relational database.
#'
#' @export
BUILD_SE_P01_T00_SCHOOLS <- function( doc, url ){
keys <- get_keys( doc, url )
URL <- url
ORG_EIN <- keys[['ORG_EIN']]
TAX_YEAR <- keys[['TAX_YEAR']]
######----------------------------------------------------
######
###### 1:1 TABLE VARIABLES
######
######----------------------------------------------------
## VARIABLE NAME: SE_01_COMPLIANCE_EXPLANATION
## DESCRIPTION: If answered ""no"" to 7; explain
## LOCATION: SCHED-E-PART-01-LINE-07
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/ComplianceProc75_50Explanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/ComplianceProc75_50Explanation'
V_COMPLIANCE_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_COMPLIANCE_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_COMPLIANCE_EXPLANATION ) )
if( length( SE_01_COMPLIANCE_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_COMPLIANCE_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_COMPLIANCE_EXPLANATION <- paste0( '{', SE_01_COMPLIANCE_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_COMPLIANCE_REV_PROC_7550_X
## DESCRIPTION: Compliance with Rev. Proc. 75-50; 1975-2 C.B. 587?
## LOCATION: SCHED-E-PART-01-LINE-07
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/ComplianceWithRevProc7550'
V2 <- '//Return/ReturnData/IRS990ScheduleE/ComplianceWithRevProc7550Ind'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/ComplianceWithRevProc7550'
V_COMPLIANCE_REV_PROC_7550_X <- paste( V1, V2, V3 , sep='|' )
SE_01_COMPLIANCE_REV_PROC_7550_X <- xml2::xml_text( xml2::xml_find_all( doc, V_COMPLIANCE_REV_PROC_7550_X ) )
if( length( SE_01_COMPLIANCE_REV_PROC_7550_X ) > 1 )
{
log_collapsed_record( varname=SE_01_COMPLIANCE_REV_PROC_7550_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_COMPLIANCE_REV_PROC_7550_X <- paste0( '{', SE_01_COMPLIANCE_REV_PROC_7550_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_ADM_POLICY_X
## DESCRIPTION: Does the organization discriminate by race in any way admissions policies?
## LOCATION: SCHED-E-PART-01-LINE-05B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAdmissPlcyInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAdmissPolicies'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceAdmissPolicies'
V_DISCR_RACE_ADM_POLICY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_ADM_POLICY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_ADM_POLICY_X ) )
if( length( SE_01_DISCR_RACE_ADM_POLICY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_ADM_POLICY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_ADM_POLICY_X <- paste0( '{', SE_01_DISCR_RACE_ADM_POLICY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_ATHLETIC_PROG_X
## DESCRIPTION: Does the organization discriminate by race in any way athletic programs?
## LOCATION: SCHED-E-PART-01-LINE-05G
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAthleticProg'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAthltProgInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceAthleticProg'
V_DISCR_RACE_ATHLETIC_PROG_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_ATHLETIC_PROG_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_ATHLETIC_PROG_X ) )
if( length( SE_01_DISCR_RACE_ATHLETIC_PROG_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_ATHLETIC_PROG_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_ATHLETIC_PROG_X <- paste0( '{', SE_01_DISCR_RACE_ATHLETIC_PROG_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_EDU_POLICY_X
## DESCRIPTION: Does the organization discriminate by race in any way educational policies?
## LOCATION: SCHED-E-PART-01-LINE-05E
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEducPlcyInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEducPolicies'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceEducPolicies'
V_DISCR_RACE_EDU_POLICY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_EDU_POLICY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_EDU_POLICY_X ) )
if( length( SE_01_DISCR_RACE_EDU_POLICY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_EDU_POLICY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_EDU_POLICY_X <- paste0( '{', SE_01_DISCR_RACE_EDU_POLICY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_EMPL_FACULTY_X
## DESCRIPTION: Does the organization discriminate by race in any way employment of faculty or administrative staff?
## LOCATION: SCHED-E-PART-01-LINE-05C
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEmplmFcultyInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEmplmnFaculty'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceEmplmnFaculty'
V_DISCR_RACE_EMPL_FACULTY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_EMPL_FACULTY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_EMPL_FACULTY_X ) )
if( length( SE_01_DISCR_RACE_EMPL_FACULTY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_EMPL_FACULTY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_EMPL_FACULTY_X <- paste0( '{', SE_01_DISCR_RACE_EMPL_FACULTY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_EXPLANATION
## DESCRIPTION: If answered ""yes"" to any of 5a-5h; explain
## LOCATION: SCHED-E-PART-01-LINE-05H
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceExplanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceExplanation'
V_DISCR_RACE_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_DISCR_RACE_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_EXPLANATION ) )
if( length( SE_01_DISCR_RACE_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_EXPLANATION <- paste0( '{', SE_01_DISCR_RACE_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_OTH_ACT_X
## DESCRIPTION: Does the organization discriminate by race in any way other extracurricular activities?
## LOCATION: SCHED-E-PART-01-LINE-05H
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceOtherActy'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceOtherActyInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceOtherActy'
V_DISCR_RACE_OTH_ACT_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_OTH_ACT_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_OTH_ACT_X ) )
if( length( SE_01_DISCR_RACE_OTH_ACT_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_OTH_ACT_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_OTH_ACT_X <- paste0( '{', SE_01_DISCR_RACE_OTH_ACT_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_SCHOLARSHIP_X
## DESCRIPTION: Does the organization discriminate by race in any way scholarships or other financial assistance?
## LOCATION: SCHED-E-PART-01-LINE-05D
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceScholarships'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceSchsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceScholarships'
V_DISCR_RACE_SCHOLARSHIP_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_SCHOLARSHIP_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_SCHOLARSHIP_X ) )
if( length( SE_01_DISCR_RACE_SCHOLARSHIP_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_SCHOLARSHIP_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_SCHOLARSHIP_X <- paste0( '{', SE_01_DISCR_RACE_SCHOLARSHIP_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_STUDENT_RIGHT_X
## DESCRIPTION: Does the organization discriminate by race in any way students' rights or privileges?
## LOCATION: SCHED-E-PART-01-LINE-05A
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceStdntsRghtsInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceStudentsRights'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceStudentsRights'
V_DISCR_RACE_STUDENT_RIGHT_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_STUDENT_RIGHT_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_STUDENT_RIGHT_X ) )
if( length( SE_01_DISCR_RACE_STUDENT_RIGHT_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_STUDENT_RIGHT_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_STUDENT_RIGHT_X <- paste0( '{', SE_01_DISCR_RACE_STUDENT_RIGHT_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_USE_FACILITY_X
## DESCRIPTION: Does the organization discriminate by race in any way use of facilities?
## LOCATION: SCHED-E-PART-01-LINE-05F
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceUseOfFclts'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceUseOfFcltsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceUseOfFclts'
V_DISCR_RACE_USE_FACILITY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_USE_FACILITY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_USE_FACILITY_X ) )
if( length( SE_01_DISCR_RACE_USE_FACILITY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_USE_FACILITY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_USE_FACILITY_X <- paste0( '{', SE_01_DISCR_RACE_USE_FACILITY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_GOVT_FIN_AID_REC_X
## DESCRIPTION: Does the organization receive any financial aid or assistance from a governmental agency?
## LOCATION: SCHED-E-PART-01-LINE-06A
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/GovernmentFinancialAidReceived'
V2 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidRcvdInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidReceived'
V_GOVT_FIN_AID_REC_X <- paste( V1, V2, V3 , sep='|' )
SE_01_GOVT_FIN_AID_REC_X <- xml2::xml_text( xml2::xml_find_all( doc, V_GOVT_FIN_AID_REC_X ) )
if( length( SE_01_GOVT_FIN_AID_REC_X ) > 1 )
{
log_collapsed_record( varname=SE_01_GOVT_FIN_AID_REC_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_GOVT_FIN_AID_REC_X <- paste0( '{', SE_01_GOVT_FIN_AID_REC_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_GOVT_FIN_AID_REVOKED_X
## DESCRIPTION: Has the organization's right to such aid ever been revoked or suspended?
## LOCATION: SCHED-E-PART-01-LINE-06B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/GovernmentFinancialAidRevoked'
V2 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidRevoked'
V3 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidRvkdInd'
V_GOVT_FIN_AID_REVOKED_X <- paste( V1, V2, V3 , sep='|' )
SE_01_GOVT_FIN_AID_REVOKED_X <- xml2::xml_text( xml2::xml_find_all( doc, V_GOVT_FIN_AID_REVOKED_X ) )
if( length( SE_01_GOVT_FIN_AID_REVOKED_X ) > 1 )
{
log_collapsed_record( varname=SE_01_GOVT_FIN_AID_REVOKED_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_GOVT_FIN_AID_REVOKED_X <- paste0( '{', SE_01_GOVT_FIN_AID_REVOKED_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_GOVT_FIN_AID_EXPLANATION
## DESCRIPTION: If answered ""yes"" to any of 6a-6b; explain
## LOCATION: SCHED-E-PART-01-LINE-06B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/GovtFinancialAidExplanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/GovtFinancialAidExplanation'
V_GOVT_FIN_AID_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_GOVT_FIN_AID_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_GOVT_FIN_AID_EXPLANATION ) )
if( length( SE_01_GOVT_FIN_AID_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_GOVT_FIN_AID_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_GOVT_FIN_AID_EXPLANATION <- paste0( '{', SE_01_GOVT_FIN_AID_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_COPY_SOL_X
## DESCRIPTION: Does the organization maintain copies of all solicitations?
## LOCATION: SCHED-E-PART-01-LINE-04D
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintCopiesOfAllSolicitations'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainCpyOfAllSolInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintCopiesOfAllSolicitations'
V_MAINT_COPY_SOL_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_COPY_SOL_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_COPY_SOL_X ) )
if( length( SE_01_MAINT_COPY_SOL_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_COPY_SOL_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_COPY_SOL_X <- paste0( '{', SE_01_MAINT_COPY_SOL_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_COPY_BROCHURES_X
## DESCRIPTION: Does the organization maintain copies of brochures; etc?
## LOCATION: SCHED-E-PART-01-LINE-04C
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintCopiesOfBrochuresEtc'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainCpyOfBrochuresEtcInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintCopiesOfBrochuresEtc'
V_MAINT_COPY_BROCHURES_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_COPY_BROCHURES_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_COPY_BROCHURES_X ) )
if( length( SE_01_MAINT_COPY_BROCHURES_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_COPY_BROCHURES_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_COPY_BROCHURES_X <- paste0( '{', SE_01_MAINT_COPY_BROCHURES_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_RACIAL_RECORD_X
## DESCRIPTION: Does the organization maintain racial composition records?
## LOCATION: SCHED-E-PART-01-LINE-04A
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintRacialCompositionRecords'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainRacialCompRecsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintRacialCompositionRecords'
V_MAINT_RACIAL_RECORD_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_RACIAL_RECORD_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_RACIAL_RECORD_X ) )
if( length( SE_01_MAINT_RACIAL_RECORD_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_RACIAL_RECORD_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_RACIAL_RECORD_X <- paste0( '{', SE_01_MAINT_RACIAL_RECORD_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_SCHOLARSHIP_RECORD_X
## DESCRIPTION: Does the organization maintain scholarships records?
## LOCATION: SCHED-E-PART-01-LINE-04B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintScholarshipsRecords'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainScholarshipsRecsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintScholarshipsRecords'
V_MAINT_SCHOLARSHIP_RECORD_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_SCHOLARSHIP_RECORD_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_SCHOLARSHIP_RECORD_X ) )
if( length( SE_01_MAINT_SCHOLARSHIP_RECORD_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_SCHOLARSHIP_RECORD_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_SCHOLARSHIP_RECORD_X <- paste0( '{', SE_01_MAINT_SCHOLARSHIP_RECORD_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_STMT_NONDISCR_X
## DESCRIPTION: Does the organization have a racially nondiscriminatory policy statement?
## LOCATION: SCHED-E-PART-01-LINE-01
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/NondiscriminatoryPolicyStmt'
V2 <- '//Return/ReturnData/IRS990ScheduleE/NondiscriminatoryPolicyStmt'
V3 <- '//Return/ReturnData/IRS990ScheduleE/NondiscriminatoryPolicyStmtInd'
V_POLICY_STMT_NONDISCR_X <- paste( V1, V2, V3 , sep='|' )
SE_01_POLICY_STMT_NONDISCR_X <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_STMT_NONDISCR_X ) )
if( length( SE_01_POLICY_STMT_NONDISCR_X ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_STMT_NONDISCR_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_STMT_NONDISCR_X <- paste0( '{', SE_01_POLICY_STMT_NONDISCR_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_EXPLANATION
## DESCRIPTION: If answered ""no"" to any of 4a-4d; explain
## LOCATION: SCHED-E-PART-01-LINE-04D
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/OrgDoesNotMaintainExplanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/OrgDoesNotMaintainExplanation'
V_MAINT_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_MAINT_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_EXPLANATION ) )
if( length( SE_01_MAINT_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_EXPLANATION <- paste0( '{', SE_01_MAINT_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_BCAST_MEDIA_X
## DESCRIPTION: Has the organization publicized the policy through broadcast media?
## LOCATION: SCHED-E-PART-01-LINE-03
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/PolicyPublViaBroadcastMedia'
V2 <- '//Return/ReturnData/IRS990ScheduleE/PlcyPblczdViaBroadcastMediaInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/PolicyPublViaBroadcastMedia'
V_POLICY_BCAST_MEDIA_X <- paste( V1, V2, V3 , sep='|' )
SE_01_POLICY_BCAST_MEDIA_X <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_BCAST_MEDIA_X ) )
if( length( SE_01_POLICY_BCAST_MEDIA_X ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_BCAST_MEDIA_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_BCAST_MEDIA_X <- paste0( '{', SE_01_POLICY_BCAST_MEDIA_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_STMT_BROCHURES_X
## DESCRIPTION: Does the organization have policy statement in brochures; etc?
## LOCATION: SCHED-E-PART-01-LINE-02
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/PolicyStatementInBrochuresEtc'
V2 <- '//Return/ReturnData/IRS990ScheduleE/PolicyStatementInBrochuresEtc'
V3 <- '//Return/ReturnData/IRS990ScheduleE/PolicyStmtInBrochuresEtcInd'
V_POLICY_STMT_BROCHURES_X <- paste( V1, V2, V3 , sep='|' )
SE_01_POLICY_STMT_BROCHURES_X <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_STMT_BROCHURES_X ) )
if( length( SE_01_POLICY_STMT_BROCHURES_X ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_STMT_BROCHURES_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_STMT_BROCHURES_X <- paste0( '{', SE_01_POLICY_STMT_BROCHURES_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_BCAST_MEDIA_EXPLAIN
## DESCRIPTION: If answered ""Has the Organization Publicized the Policy through Broadcast Media?""; explain
## LOCATION: SCHED-E-PART-01-LINE-03
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/PubViaBroadcastMediaExpln'
V2 <- '//Return/ReturnData/IRS990ScheduleE/PubViaBroadcastMediaExpln'
V_POLICY_BCAST_MEDIA_EXPLAIN <- paste( V1, V2 , sep='|' )
SE_01_POLICY_BCAST_MEDIA_EXPLAIN <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_BCAST_MEDIA_EXPLAIN ) )
if( length( SE_01_POLICY_BCAST_MEDIA_EXPLAIN ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_BCAST_MEDIA_EXPLAIN, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_BCAST_MEDIA_EXPLAIN <- paste0( '{', SE_01_POLICY_BCAST_MEDIA_EXPLAIN, '}', collapse=';' )
}
var.list <-
namedList(SE_01_COMPLIANCE_EXPLANATION,SE_01_COMPLIANCE_REV_PROC_7550_X,SE_01_DISCR_RACE_ADM_POLICY_X,SE_01_DISCR_RACE_ATHLETIC_PROG_X,SE_01_DISCR_RACE_EDU_POLICY_X,SE_01_DISCR_RACE_EMPL_FACULTY_X,SE_01_DISCR_RACE_EXPLANATION,SE_01_DISCR_RACE_OTH_ACT_X,SE_01_DISCR_RACE_SCHOLARSHIP_X,SE_01_DISCR_RACE_STUDENT_RIGHT_X,SE_01_DISCR_RACE_USE_FACILITY_X,SE_01_GOVT_FIN_AID_REC_X,SE_01_GOVT_FIN_AID_REVOKED_X,SE_01_GOVT_FIN_AID_EXPLANATION,SE_01_MAINT_COPY_SOL_X,SE_01_MAINT_COPY_BROCHURES_X,SE_01_MAINT_RACIAL_RECORD_X,SE_01_MAINT_SCHOLARSHIP_RECORD_X,SE_01_POLICY_STMT_NONDISCR_X,SE_01_MAINT_EXPLANATION,SE_01_POLICY_BCAST_MEDIA_X,SE_01_POLICY_STMT_BROCHURES_X,SE_01_POLICY_BCAST_MEDIA_EXPLAIN)
if( sum(is.na(var.list)) == length(var.list)){return(NULL)}
df <- as.data.frame( c(keys,var.list) )
return( df )
}
Nonprofit-Open-Data-Collective/irs990efile documentation built on Feb. 5, 2025, 3:07 a.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.
Defines functions BUILD_SE_P01_T00_SCHOOLS
#' @title
#' Build table SE-P01-T00-SCHOOLS
#'
#' @description
#' Generate a 1:1 table for the relational database.
#'
#' @export
BUILD_SE_P01_T00_SCHOOLS <- function( doc, url ){
keys <- get_keys( doc, url )
URL <- url
ORG_EIN <- keys[['ORG_EIN']]
TAX_YEAR <- keys[['TAX_YEAR']]
######----------------------------------------------------
######
###### 1:1 TABLE VARIABLES
######
######----------------------------------------------------
## VARIABLE NAME: SE_01_COMPLIANCE_EXPLANATION
## DESCRIPTION: If answered ""no"" to 7; explain
## LOCATION: SCHED-E-PART-01-LINE-07
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/ComplianceProc75_50Explanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/ComplianceProc75_50Explanation'
V_COMPLIANCE_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_COMPLIANCE_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_COMPLIANCE_EXPLANATION ) )
if( length( SE_01_COMPLIANCE_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_COMPLIANCE_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_COMPLIANCE_EXPLANATION <- paste0( '{', SE_01_COMPLIANCE_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_COMPLIANCE_REV_PROC_7550_X
## DESCRIPTION: Compliance with Rev. Proc. 75-50; 1975-2 C.B. 587?
## LOCATION: SCHED-E-PART-01-LINE-07
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/ComplianceWithRevProc7550'
V2 <- '//Return/ReturnData/IRS990ScheduleE/ComplianceWithRevProc7550Ind'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/ComplianceWithRevProc7550'
V_COMPLIANCE_REV_PROC_7550_X <- paste( V1, V2, V3 , sep='|' )
SE_01_COMPLIANCE_REV_PROC_7550_X <- xml2::xml_text( xml2::xml_find_all( doc, V_COMPLIANCE_REV_PROC_7550_X ) )
if( length( SE_01_COMPLIANCE_REV_PROC_7550_X ) > 1 )
{
log_collapsed_record( varname=SE_01_COMPLIANCE_REV_PROC_7550_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_COMPLIANCE_REV_PROC_7550_X <- paste0( '{', SE_01_COMPLIANCE_REV_PROC_7550_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_ADM_POLICY_X
## DESCRIPTION: Does the organization discriminate by race in any way admissions policies?
## LOCATION: SCHED-E-PART-01-LINE-05B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAdmissPlcyInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAdmissPolicies'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceAdmissPolicies'
V_DISCR_RACE_ADM_POLICY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_ADM_POLICY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_ADM_POLICY_X ) )
if( length( SE_01_DISCR_RACE_ADM_POLICY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_ADM_POLICY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_ADM_POLICY_X <- paste0( '{', SE_01_DISCR_RACE_ADM_POLICY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_ATHLETIC_PROG_X
## DESCRIPTION: Does the organization discriminate by race in any way athletic programs?
## LOCATION: SCHED-E-PART-01-LINE-05G
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAthleticProg'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceAthltProgInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceAthleticProg'
V_DISCR_RACE_ATHLETIC_PROG_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_ATHLETIC_PROG_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_ATHLETIC_PROG_X ) )
if( length( SE_01_DISCR_RACE_ATHLETIC_PROG_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_ATHLETIC_PROG_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_ATHLETIC_PROG_X <- paste0( '{', SE_01_DISCR_RACE_ATHLETIC_PROG_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_EDU_POLICY_X
## DESCRIPTION: Does the organization discriminate by race in any way educational policies?
## LOCATION: SCHED-E-PART-01-LINE-05E
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEducPlcyInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEducPolicies'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceEducPolicies'
V_DISCR_RACE_EDU_POLICY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_EDU_POLICY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_EDU_POLICY_X ) )
if( length( SE_01_DISCR_RACE_EDU_POLICY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_EDU_POLICY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_EDU_POLICY_X <- paste0( '{', SE_01_DISCR_RACE_EDU_POLICY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_EMPL_FACULTY_X
## DESCRIPTION: Does the organization discriminate by race in any way employment of faculty or administrative staff?
## LOCATION: SCHED-E-PART-01-LINE-05C
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEmplmFcultyInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceEmplmnFaculty'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceEmplmnFaculty'
V_DISCR_RACE_EMPL_FACULTY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_EMPL_FACULTY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_EMPL_FACULTY_X ) )
if( length( SE_01_DISCR_RACE_EMPL_FACULTY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_EMPL_FACULTY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_EMPL_FACULTY_X <- paste0( '{', SE_01_DISCR_RACE_EMPL_FACULTY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_EXPLANATION
## DESCRIPTION: If answered ""yes"" to any of 5a-5h; explain
## LOCATION: SCHED-E-PART-01-LINE-05H
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceExplanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceExplanation'
V_DISCR_RACE_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_DISCR_RACE_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_EXPLANATION ) )
if( length( SE_01_DISCR_RACE_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_EXPLANATION <- paste0( '{', SE_01_DISCR_RACE_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_OTH_ACT_X
## DESCRIPTION: Does the organization discriminate by race in any way other extracurricular activities?
## LOCATION: SCHED-E-PART-01-LINE-05H
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceOtherActy'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceOtherActyInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceOtherActy'
V_DISCR_RACE_OTH_ACT_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_OTH_ACT_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_OTH_ACT_X ) )
if( length( SE_01_DISCR_RACE_OTH_ACT_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_OTH_ACT_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_OTH_ACT_X <- paste0( '{', SE_01_DISCR_RACE_OTH_ACT_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_SCHOLARSHIP_X
## DESCRIPTION: Does the organization discriminate by race in any way scholarships or other financial assistance?
## LOCATION: SCHED-E-PART-01-LINE-05D
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceScholarships'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceSchsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceScholarships'
V_DISCR_RACE_SCHOLARSHIP_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_SCHOLARSHIP_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_SCHOLARSHIP_X ) )
if( length( SE_01_DISCR_RACE_SCHOLARSHIP_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_SCHOLARSHIP_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_SCHOLARSHIP_X <- paste0( '{', SE_01_DISCR_RACE_SCHOLARSHIP_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_STUDENT_RIGHT_X
## DESCRIPTION: Does the organization discriminate by race in any way students' rights or privileges?
## LOCATION: SCHED-E-PART-01-LINE-05A
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceStdntsRghtsInd'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceStudentsRights'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceStudentsRights'
V_DISCR_RACE_STUDENT_RIGHT_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_STUDENT_RIGHT_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_STUDENT_RIGHT_X ) )
if( length( SE_01_DISCR_RACE_STUDENT_RIGHT_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_STUDENT_RIGHT_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_STUDENT_RIGHT_X <- paste0( '{', SE_01_DISCR_RACE_STUDENT_RIGHT_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_DISCR_RACE_USE_FACILITY_X
## DESCRIPTION: Does the organization discriminate by race in any way use of facilities?
## LOCATION: SCHED-E-PART-01-LINE-05F
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceUseOfFclts'
V2 <- '//Return/ReturnData/IRS990ScheduleE/DiscriminateRaceUseOfFcltsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/DiscriminateRaceUseOfFclts'
V_DISCR_RACE_USE_FACILITY_X <- paste( V1, V2, V3 , sep='|' )
SE_01_DISCR_RACE_USE_FACILITY_X <- xml2::xml_text( xml2::xml_find_all( doc, V_DISCR_RACE_USE_FACILITY_X ) )
if( length( SE_01_DISCR_RACE_USE_FACILITY_X ) > 1 )
{
log_collapsed_record( varname=SE_01_DISCR_RACE_USE_FACILITY_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_DISCR_RACE_USE_FACILITY_X <- paste0( '{', SE_01_DISCR_RACE_USE_FACILITY_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_GOVT_FIN_AID_REC_X
## DESCRIPTION: Does the organization receive any financial aid or assistance from a governmental agency?
## LOCATION: SCHED-E-PART-01-LINE-06A
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/GovernmentFinancialAidReceived'
V2 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidRcvdInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidReceived'
V_GOVT_FIN_AID_REC_X <- paste( V1, V2, V3 , sep='|' )
SE_01_GOVT_FIN_AID_REC_X <- xml2::xml_text( xml2::xml_find_all( doc, V_GOVT_FIN_AID_REC_X ) )
if( length( SE_01_GOVT_FIN_AID_REC_X ) > 1 )
{
log_collapsed_record( varname=SE_01_GOVT_FIN_AID_REC_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_GOVT_FIN_AID_REC_X <- paste0( '{', SE_01_GOVT_FIN_AID_REC_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_GOVT_FIN_AID_REVOKED_X
## DESCRIPTION: Has the organization's right to such aid ever been revoked or suspended?
## LOCATION: SCHED-E-PART-01-LINE-06B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/GovernmentFinancialAidRevoked'
V2 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidRevoked'
V3 <- '//Return/ReturnData/IRS990ScheduleE/GovernmentFinancialAidRvkdInd'
V_GOVT_FIN_AID_REVOKED_X <- paste( V1, V2, V3 , sep='|' )
SE_01_GOVT_FIN_AID_REVOKED_X <- xml2::xml_text( xml2::xml_find_all( doc, V_GOVT_FIN_AID_REVOKED_X ) )
if( length( SE_01_GOVT_FIN_AID_REVOKED_X ) > 1 )
{
log_collapsed_record( varname=SE_01_GOVT_FIN_AID_REVOKED_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_GOVT_FIN_AID_REVOKED_X <- paste0( '{', SE_01_GOVT_FIN_AID_REVOKED_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_GOVT_FIN_AID_EXPLANATION
## DESCRIPTION: If answered ""yes"" to any of 6a-6b; explain
## LOCATION: SCHED-E-PART-01-LINE-06B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/GovtFinancialAidExplanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/GovtFinancialAidExplanation'
V_GOVT_FIN_AID_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_GOVT_FIN_AID_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_GOVT_FIN_AID_EXPLANATION ) )
if( length( SE_01_GOVT_FIN_AID_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_GOVT_FIN_AID_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_GOVT_FIN_AID_EXPLANATION <- paste0( '{', SE_01_GOVT_FIN_AID_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_COPY_SOL_X
## DESCRIPTION: Does the organization maintain copies of all solicitations?
## LOCATION: SCHED-E-PART-01-LINE-04D
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintCopiesOfAllSolicitations'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainCpyOfAllSolInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintCopiesOfAllSolicitations'
V_MAINT_COPY_SOL_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_COPY_SOL_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_COPY_SOL_X ) )
if( length( SE_01_MAINT_COPY_SOL_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_COPY_SOL_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_COPY_SOL_X <- paste0( '{', SE_01_MAINT_COPY_SOL_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_COPY_BROCHURES_X
## DESCRIPTION: Does the organization maintain copies of brochures; etc?
## LOCATION: SCHED-E-PART-01-LINE-04C
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintCopiesOfBrochuresEtc'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainCpyOfBrochuresEtcInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintCopiesOfBrochuresEtc'
V_MAINT_COPY_BROCHURES_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_COPY_BROCHURES_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_COPY_BROCHURES_X ) )
if( length( SE_01_MAINT_COPY_BROCHURES_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_COPY_BROCHURES_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_COPY_BROCHURES_X <- paste0( '{', SE_01_MAINT_COPY_BROCHURES_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_RACIAL_RECORD_X
## DESCRIPTION: Does the organization maintain racial composition records?
## LOCATION: SCHED-E-PART-01-LINE-04A
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintRacialCompositionRecords'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainRacialCompRecsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintRacialCompositionRecords'
V_MAINT_RACIAL_RECORD_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_RACIAL_RECORD_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_RACIAL_RECORD_X ) )
if( length( SE_01_MAINT_RACIAL_RECORD_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_RACIAL_RECORD_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_RACIAL_RECORD_X <- paste0( '{', SE_01_MAINT_RACIAL_RECORD_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_SCHOLARSHIP_RECORD_X
## DESCRIPTION: Does the organization maintain scholarships records?
## LOCATION: SCHED-E-PART-01-LINE-04B
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/MaintScholarshipsRecords'
V2 <- '//Return/ReturnData/IRS990ScheduleE/MaintainScholarshipsRecsInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/MaintScholarshipsRecords'
V_MAINT_SCHOLARSHIP_RECORD_X <- paste( V1, V2, V3 , sep='|' )
SE_01_MAINT_SCHOLARSHIP_RECORD_X <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_SCHOLARSHIP_RECORD_X ) )
if( length( SE_01_MAINT_SCHOLARSHIP_RECORD_X ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_SCHOLARSHIP_RECORD_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_SCHOLARSHIP_RECORD_X <- paste0( '{', SE_01_MAINT_SCHOLARSHIP_RECORD_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_STMT_NONDISCR_X
## DESCRIPTION: Does the organization have a racially nondiscriminatory policy statement?
## LOCATION: SCHED-E-PART-01-LINE-01
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/NondiscriminatoryPolicyStmt'
V2 <- '//Return/ReturnData/IRS990ScheduleE/NondiscriminatoryPolicyStmt'
V3 <- '//Return/ReturnData/IRS990ScheduleE/NondiscriminatoryPolicyStmtInd'
V_POLICY_STMT_NONDISCR_X <- paste( V1, V2, V3 , sep='|' )
SE_01_POLICY_STMT_NONDISCR_X <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_STMT_NONDISCR_X ) )
if( length( SE_01_POLICY_STMT_NONDISCR_X ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_STMT_NONDISCR_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_STMT_NONDISCR_X <- paste0( '{', SE_01_POLICY_STMT_NONDISCR_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_MAINT_EXPLANATION
## DESCRIPTION: If answered ""no"" to any of 4a-4d; explain
## LOCATION: SCHED-E-PART-01-LINE-04D
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/OrgDoesNotMaintainExplanation'
V2 <- '//Return/ReturnData/IRS990ScheduleE/OrgDoesNotMaintainExplanation'
V_MAINT_EXPLANATION <- paste( V1, V2 , sep='|' )
SE_01_MAINT_EXPLANATION <- xml2::xml_text( xml2::xml_find_all( doc, V_MAINT_EXPLANATION ) )
if( length( SE_01_MAINT_EXPLANATION ) > 1 )
{
log_collapsed_record( varname=SE_01_MAINT_EXPLANATION, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_MAINT_EXPLANATION <- paste0( '{', SE_01_MAINT_EXPLANATION, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_BCAST_MEDIA_X
## DESCRIPTION: Has the organization publicized the policy through broadcast media?
## LOCATION: SCHED-E-PART-01-LINE-03
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/PolicyPublViaBroadcastMedia'
V2 <- '//Return/ReturnData/IRS990ScheduleE/PlcyPblczdViaBroadcastMediaInd'
V3 <- '//Return/ReturnData/IRS990ScheduleE/PolicyPublViaBroadcastMedia'
V_POLICY_BCAST_MEDIA_X <- paste( V1, V2, V3 , sep='|' )
SE_01_POLICY_BCAST_MEDIA_X <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_BCAST_MEDIA_X ) )
if( length( SE_01_POLICY_BCAST_MEDIA_X ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_BCAST_MEDIA_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_BCAST_MEDIA_X <- paste0( '{', SE_01_POLICY_BCAST_MEDIA_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_STMT_BROCHURES_X
## DESCRIPTION: Does the organization have policy statement in brochures; etc?
## LOCATION: SCHED-E-PART-01-LINE-02
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/PolicyStatementInBrochuresEtc'
V2 <- '//Return/ReturnData/IRS990ScheduleE/PolicyStatementInBrochuresEtc'
V3 <- '//Return/ReturnData/IRS990ScheduleE/PolicyStmtInBrochuresEtcInd'
V_POLICY_STMT_BROCHURES_X <- paste( V1, V2, V3 , sep='|' )
SE_01_POLICY_STMT_BROCHURES_X <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_STMT_BROCHURES_X ) )
if( length( SE_01_POLICY_STMT_BROCHURES_X ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_STMT_BROCHURES_X, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_STMT_BROCHURES_X <- paste0( '{', SE_01_POLICY_STMT_BROCHURES_X, '}', collapse=';' )
}
## VARIABLE NAME: SE_01_POLICY_BCAST_MEDIA_EXPLAIN
## DESCRIPTION: If answered ""Has the Organization Publicized the Policy through Broadcast Media?""; explain
## LOCATION: SCHED-E-PART-01-LINE-03
## TABLE: SE-P01-T00-SCHOOLS
## VARIABLE TYPE: text
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleE/Form990ScheduleE/PubViaBroadcastMediaExpln'
V2 <- '//Return/ReturnData/IRS990ScheduleE/PubViaBroadcastMediaExpln'
V_POLICY_BCAST_MEDIA_EXPLAIN <- paste( V1, V2 , sep='|' )
SE_01_POLICY_BCAST_MEDIA_EXPLAIN <- xml2::xml_text( xml2::xml_find_all( doc, V_POLICY_BCAST_MEDIA_EXPLAIN ) )
if( length( SE_01_POLICY_BCAST_MEDIA_EXPLAIN ) > 1 )
{
log_collapsed_record( varname=SE_01_POLICY_BCAST_MEDIA_EXPLAIN, ein=ORG_EIN, year=TAX_YEAR, url=URL )
SE_01_POLICY_BCAST_MEDIA_EXPLAIN <- paste0( '{', SE_01_POLICY_BCAST_MEDIA_EXPLAIN, '}', collapse=';' )
}
var.list <-
namedList(SE_01_COMPLIANCE_EXPLANATION,SE_01_COMPLIANCE_REV_PROC_7550_X,SE_01_DISCR_RACE_ADM_POLICY_X,SE_01_DISCR_RACE_ATHLETIC_PROG_X,SE_01_DISCR_RACE_EDU_POLICY_X,SE_01_DISCR_RACE_EMPL_FACULTY_X,SE_01_DISCR_RACE_EXPLANATION,SE_01_DISCR_RACE_OTH_ACT_X,SE_01_DISCR_RACE_SCHOLARSHIP_X,SE_01_DISCR_RACE_STUDENT_RIGHT_X,SE_01_DISCR_RACE_USE_FACILITY_X,SE_01_GOVT_FIN_AID_REC_X,SE_01_GOVT_FIN_AID_REVOKED_X,SE_01_GOVT_FIN_AID_EXPLANATION,SE_01_MAINT_COPY_SOL_X,SE_01_MAINT_COPY_BROCHURES_X,SE_01_MAINT_RACIAL_RECORD_X,SE_01_MAINT_SCHOLARSHIP_RECORD_X,SE_01_POLICY_STMT_NONDISCR_X,SE_01_MAINT_EXPLANATION,SE_01_POLICY_BCAST_MEDIA_X,SE_01_POLICY_STMT_BROCHURES_X,SE_01_POLICY_BCAST_MEDIA_EXPLAIN)
if( sum(is.na(var.list)) == length(var.list)){return(NULL)}
df <- as.data.frame( c(keys,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.