data-raw/code-chunks/chunks/CHUNKS-SH-P99-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-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
#'
#' @description
#' Generate a 1:1 table for the relational database.
#'
#' @export
BUILD_SH_P99_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_99_CHNA_AVBL_REQUEST_X
## DESCRIPTION: Needs assessment available upon request (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-05C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OnRequest'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/RptAvailableUponRequestInd'
V_CHNA_AVBL_REQUEST_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_AVBL_REQUEST_X <- xml_text( xml_find_all( doc, V_CHNA_AVBL_REQUEST_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_ADOPT_IMP_X
## DESCRIPTION: Adoption of implementation strategy (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AdoptImplementStrategy'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AdoptImplementationStrategyInd'
V_CHNA_NEED_ADOPT_IMP_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_ADOPT_IMP_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_ADOPT_IMP_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_EXECUTE_IMP_X
## DESCRIPTION: Execution of implementation strategy (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/ExecuteImplementStrategy'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ExecImplementationStrategyInd'
V_CHNA_NEED_EXECUTE_IMP_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_EXECUTE_IMP_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_EXECUTE_IMP_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_DEVELOP_PLAN_X
## DESCRIPTION: Development of community benefit plan (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/DevelopCommunityPlan'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/DevelopCommunityWidePlanInd'
V_CHNA_NEED_DEVELOP_PLAN_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_DEVELOP_PLAN_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_DEVELOP_PLAN_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_PARTICIPA_PLAN_X
## DESCRIPTION: Participation in community-wide benefit plan (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/ParticipateCommunityPlan'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ExecCommunityWidePlanInd'
V_CHNA_NEED_PARTICIPA_PLAN_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_PARTICIPA_PLAN_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_PARTICIPA_PLAN_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_INCL_PLAN_X
## DESCRIPTION: Inclusion in operational plans (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/IncludeOperationalPlans'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/IncludeOperationalPlanInd'
V_CHNA_NEED_INCL_PLAN_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_INCL_PLAN_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_INCL_PLAN_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_ADOPT_BUDGET_X
## DESCRIPTION: Operational of budget (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06F
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AdoptBudget'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AdoptBudgetInd'
V_CHNA_NEED_ADOPT_BUDGET_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_ADOPT_BUDGET_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_ADOPT_BUDGET_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_PRIORITIZA_X
## DESCRIPTION: Prioritization of health needs (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PrioritizeHealthNeeds'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PrioritizeHealthNeedsInd'
V_CHNA_NEED_PRIORITIZA_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_PRIORITIZA_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_PRIORITIZA_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_PRIORITIZA_SVC_X
## DESCRIPTION: Prioritization of health services (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06H
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PrioritizeServices'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PrioritizeServicesInd'
V_CHNA_NEED_PRIORITIZA_SVC_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_PRIORITIZA_SVC_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_PRIORITIZA_SVC_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_OTH_X
## DESCRIPTION: Other needs addressed (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06I
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherNeedsAddressed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/OtherNeedsAddressedInd'
V_CHNA_NEED_OTH_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_OTH_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_OTH_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_ALL_ADDRESSED_X
## DESCRIPTION: All needs addressed? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-07
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AllNeedsAddressed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AllNeedsAddressedInd'
V_CHNA_NEED_ALL_ADDRESSED_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_ALL_ADDRESSED_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_ALL_ADDRESSED_X ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_FREE_CARE_PCT
## DESCRIPTION: Percentage of FPG used to determine free care (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-10
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
SH_99_FAP_USE_FPG_FREE_CARE_PCT <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/FPGFreePercent' ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_FREE_CARE_X
## DESCRIPTION: Policy uses FPG determine free care? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-10
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UsesFPGFree'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FPGUsedDeterEligFreeCareInd'
V_FAP_USE_FPG_FREE_CARE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_USE_FPG_FREE_CARE_X <- xml_text( xml_find_all( doc, V_FAP_USE_FPG_FREE_CARE_X ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_DCNT_CARE_PCT
## DESCRIPTION: Percentage of FPG used to determine discount care (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-11
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
SH_99_FAP_USE_FPG_DCNT_CARE_PCT <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/FPGDiscountPercent' ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_DCNT_CARE_X
## DESCRIPTION: Policy uses FPG determine discounted care? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-11
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UsesFPGDiscounted'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FPGUsedDetermEligDscntCareInd'
V_FAP_USE_FPG_DCNT_CARE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_USE_FPG_DCNT_CARE_X <- xml_text( xml_find_all( doc, V_FAP_USE_FPG_DCNT_CARE_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_INCOME_X
## DESCRIPTION: Income level basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/IncomeLevel'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/IncomeLevelInd'
V_FAP_FACTOR_INCOME_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_INCOME_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_INCOME_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_ASSET_X
## DESCRIPTION: Asset level basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AssetLevel'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AssetLevelInd'
V_FAP_FACTOR_ASSET_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_ASSET_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_ASSET_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_INDIGENCY_X
## DESCRIPTION: Medical indigency basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/MedicalIndigency'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/MedicalIndigencyInd'
V_FAP_FACTOR_INDIGENCY_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_INDIGENCY_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_INDIGENCY_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_INSURANCE_X
## DESCRIPTION: Insurance status basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/InsuranceStatus'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/InsuranceStatusInd'
V_FAP_FACTOR_INSURANCE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_INSURANCE_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_INSURANCE_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_UNINSURED_X
## DESCRIPTION: Uninsured discount basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UninsuredDiscount'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/UninsuredDiscountInd'
V_FAP_FACTOR_UNINSURED_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_UNINSURED_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_UNINSURED_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_MEDICAID_X
## DESCRIPTION: Medicaid/Medicare basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12F
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/MedicaidMedicare'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/MedicaidMedicareInd'
V_FAP_FACTOR_MEDICAID_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_MEDICAID_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_MEDICAID_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_STATE_REG_X
## DESCRIPTION: State regulation basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/StateRegulation'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/StateRegulationInd'
V_FAP_FACTOR_STATE_REG_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_STATE_REG_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_STATE_REG_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_RESIDENCY_X
## DESCRIPTION: Residency basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12H
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_FACTOR_RESIDENCY_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ResidencyInd' ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_OTH_X
## DESCRIPTION: Form990 Schedule HPart VSection B - Other basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12I
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherFactors'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/OtherFactorsInd'
V_FAP_FACTOR_OTH_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_OTH_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_OTH_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_PUBLICITY_X
## DESCRIPTION: Policy includes publicity measures? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_PROV_PUBLICITY_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/IncludesPublicityMeasures' ) )
## VARIABLE NAME: SH_99_FAP_PROV_WEBSITE_X
## DESCRIPTION: Posted on own website (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PostedOnWebsite'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PostedOnWebsiteInd'
V_FAP_PROV_WEBSITE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_WEBSITE_X <- xml_text( xml_find_all( doc, V_FAP_PROV_WEBSITE_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_ATTACH_INVOICE_X
## DESCRIPTION: Attached to invoices (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AttachedToInvoices'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AttachedToInvoiceInd'
V_FAP_PROV_ATTACH_INVOICE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_ATTACH_INVOICE_X <- xml_text( xml_find_all( doc, V_FAP_PROV_ATTACH_INVOICE_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_EMERGENCY_ROOM_X
## DESCRIPTION: Posted in emergency room or waiting room (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PostedInEmergencyRoom'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PostedInEmergencyRoomInd'
V_FAP_PROV_EMERGENCY_ROOM_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_EMERGENCY_ROOM_X <- xml_text( xml_find_all( doc, V_FAP_PROV_EMERGENCY_ROOM_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_ADM_OFFICE_X
## DESCRIPTION: Posted in admissions office (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PostedInAdmissionOffice'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PostedInAdmissionOfficeInd'
V_FAP_PROV_ADM_OFFICE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_ADM_OFFICE_X <- xml_text( xml_find_all( doc, V_FAP_PROV_ADM_OFFICE_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_ADM_X
## DESCRIPTION: Provided upon admission (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/ProvidedOnAdmission'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ProvidedOnAdmissionInd'
V_FAP_PROV_ADM_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_ADM_X <- xml_text( xml_find_all( doc, V_FAP_PROV_ADM_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_REQUEST_X
## DESCRIPTION: Financial assistance policy available upon request (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14F
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AvailableOnRequest'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AvailableOnRequestInd'
V_FAP_PROV_REQUEST_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_REQUEST_X <- xml_text( xml_find_all( doc, V_FAP_PROV_REQUEST_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_OTH_X
## DESCRIPTION: Other publicity (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_PROV_OTH_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherPublicity' ) )
## VARIABLE NAME: SH_99_BILL_PERMIT_LAWSUIT_X
## DESCRIPTION: Lawsuit permitted (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PermitLawsuit'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PermitLawsuitInd'
V_BILL_PERMIT_LAWSUIT_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_PERMIT_LAWSUIT_X <- xml_text( xml_find_all( doc, V_BILL_PERMIT_LAWSUIT_X ) )
## VARIABLE NAME: SH_99_BILL_PERMIT_LIEN_X
## DESCRIPTION: Lien on residence permitted (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PermitLienOnResidence'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PermitLienOnResidenceInd'
V_BILL_PERMIT_LIEN_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_PERMIT_LIEN_X <- xml_text( xml_find_all( doc, V_BILL_PERMIT_LIEN_X ) )
## VARIABLE NAME: SH_99_BILL_PERMIT_BODY_ATTACH_X
## DESCRIPTION: Body attachment permitted (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PermitBodyAttachment'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PermitBodyAttachmentsInd'
V_BILL_PERMIT_BODY_ATTACH_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_PERMIT_BODY_ATTACH_X <- xml_text( xml_find_all( doc, V_BILL_PERMIT_BODY_ATTACH_X ) )
## VARIABLE NAME: SH_99_FAP_AVBL_NOTICE_DISPLAY_X
## DESCRIPTION: Notice of availability of FAP displayed throughout hospital facility (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_AVBL_NOTICE_DISPLAY_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNoticeDisplayedInd' ) )
## VARIABLE NAME: SH_99_BILL_3RD_PARTY_LAWSUIT_X
## DESCRIPTION: Lawsuit engaged (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-17B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/Lawsuit'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/LawsuitInd'
V_BILL_3RD_PARTY_LAWSUIT_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_3RD_PARTY_LAWSUIT_X <- xml_text( xml_find_all( doc, V_BILL_3RD_PARTY_LAWSUIT_X ) )
## VARIABLE NAME: SH_99_BILL_3RD_PARTY_LIEN_X
## DESCRIPTION: Lien on residence engaged (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-17C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/LienOnResidence'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/LiensOnResidencesInd'
V_BILL_3RD_PARTY_LIEN_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_3RD_PARTY_LIEN_X <- xml_text( xml_find_all( doc, V_BILL_3RD_PARTY_LIEN_X ) )
## VARIABLE NAME: SH_99_BILL_3RD_PARTY_BODY_X
## DESCRIPTION: Body attachment engaged (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-17D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/BodyAttachment'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/BodyAttachmentsInd'
V_BILL_3RD_PARTY_BODY_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_3RD_PARTY_BODY_X <- xml_text( xml_find_all( doc, V_BILL_3RD_PARTY_BODY_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_ADM_X
## DESCRIPTION: Notified upon admission (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/NotifyUponAdmission'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNotifiedUponAdmissionInd'
V_BILL_NOTIFIED_ADM_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_ADM_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_ADM_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_DISCHARGE_X
## DESCRIPTION: Notified prior to discharge (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/NotifyBeforeDischarge'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNotifiedBeforeDischargeInd'
V_BILL_NOTIFIED_DISCHARGE_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_DISCHARGE_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_DISCHARGE_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_PATIENT_X
## DESCRIPTION: Notified patients in communications (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/NotifiedAllPatients'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNotifiedAllPatientsInd'
V_BILL_NOTIFIED_PATIENT_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_PATIENT_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_PATIENT_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_DOC_X
## DESCRIPTION: Documented determination (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/DocumentedDetermination'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/DocumentedEligDeterminationInd'
V_BILL_NOTIFIED_DOC_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_DOC_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_DOC_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_OTH_ACT_X
## DESCRIPTION: Other action taken (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_BILL_NOTIFIED_OTH_ACT_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherActionsTaken' ) )
## VARIABLE NAME: SH_99_CHARGE_LOW_RATE_X
## DESCRIPTION: Charged amount in excess of lowest negotiated rates? (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/LowestNegotiatedRates'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/LowestNegotiatedRatesInd'
V_CHARGE_LOW_RATE_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_LOW_RATE_X <- xml_text( xml_find_all( doc, V_CHARGE_LOW_RATE_X ) )
## VARIABLE NAME: SH_99_CHARGE_AVE_RATE_X
## DESCRIPTION: Charged amount in excess of average negotiated rates? (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AverageNegotiatedRates'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AverageNegotiatedRatesInd'
V_CHARGE_AVE_RATE_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_AVE_RATE_X <- xml_text( xml_find_all( doc, V_CHARGE_AVE_RATE_X ) )
## VARIABLE NAME: SH_99_CHARGE_MT_MEDICARE_RATE_X
## DESCRIPTION: Charged more than medicare rate? (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/MedicareRate'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/MedicareRatesInd'
V_CHARGE_MT_MEDICARE_RATE_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_MT_MEDICARE_RATE_X <- xml_text( xml_find_all( doc, V_CHARGE_MT_MEDICARE_RATE_X ) )
## VARIABLE NAME: SH_99_CHARGE_OTH_METHOD_X
## DESCRIPTION: Used other method (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UsedOtherMethod'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/OtherMethodUsedInd'
V_CHARGE_OTH_METHOD_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_OTH_METHOD_X <- xml_text( xml_find_all( doc, V_CHARGE_OTH_METHOD_X ) )
var.list <-
namedList(OBJECTID,URL,ORG_EIN,ORG_NAME_L1,ORG_NAME_L2,RETURN_TYPE,TAX_YEAR,SH_99_CHNA_AVBL_REQUEST_X,SH_99_CHNA_NEED_ADOPT_IMP_X,SH_99_CHNA_NEED_EXECUTE_IMP_X,SH_99_CHNA_NEED_DEVELOP_PLAN_X,SH_99_CHNA_NEED_PARTICIPA_PLAN_X,SH_99_CHNA_NEED_INCL_PLAN_X,SH_99_CHNA_NEED_ADOPT_BUDGET_X,SH_99_CHNA_NEED_PRIORITIZA_X,SH_99_CHNA_NEED_PRIORITIZA_SVC_X,SH_99_CHNA_NEED_OTH_X,SH_99_CHNA_NEED_ALL_ADDRESSED_X,SH_99_FAP_USE_FPG_FREE_CARE_PCT,SH_99_FAP_USE_FPG_FREE_CARE_X,SH_99_FAP_USE_FPG_DCNT_CARE_PCT,SH_99_FAP_USE_FPG_DCNT_CARE_X,SH_99_FAP_FACTOR_INCOME_X,SH_99_FAP_FACTOR_ASSET_X,SH_99_FAP_FACTOR_INDIGENCY_X,SH_99_FAP_FACTOR_INSURANCE_X,SH_99_FAP_FACTOR_UNINSURED_X,SH_99_FAP_FACTOR_MEDICAID_X,SH_99_FAP_FACTOR_STATE_REG_X,SH_99_FAP_FACTOR_RESIDENCY_X,SH_99_FAP_FACTOR_OTH_X,SH_99_FAP_PROV_PUBLICITY_X,SH_99_FAP_PROV_WEBSITE_X,SH_99_FAP_PROV_ATTACH_INVOICE_X,SH_99_FAP_PROV_EMERGENCY_ROOM_X,SH_99_FAP_PROV_ADM_OFFICE_X,SH_99_FAP_PROV_ADM_X,SH_99_FAP_PROV_REQUEST_X,SH_99_FAP_PROV_OTH_X,SH_99_BILL_PERMIT_LAWSUIT_X,SH_99_BILL_PERMIT_LIEN_X,SH_99_BILL_PERMIT_BODY_ATTACH_X,SH_99_FAP_AVBL_NOTICE_DISPLAY_X,SH_99_BILL_3RD_PARTY_LAWSUIT_X,SH_99_BILL_3RD_PARTY_LIEN_X,SH_99_BILL_3RD_PARTY_BODY_X,SH_99_BILL_NOTIFIED_ADM_X,SH_99_BILL_NOTIFIED_DISCHARGE_X,SH_99_BILL_NOTIFIED_PATIENT_X,SH_99_BILL_NOTIFIED_DOC_X,SH_99_BILL_NOTIFIED_OTH_ACT_X,SH_99_CHARGE_LOW_RATE_X,SH_99_CHARGE_AVE_RATE_X,SH_99_CHARGE_MT_MEDICARE_RATE_X,SH_99_CHARGE_OTH_METHOD_X)
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-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
#'
#' @description
#' Generate a 1:1 table for the relational database.
#'
#' @export
BUILD_SH_P99_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_99_CHNA_AVBL_REQUEST_X
## DESCRIPTION: Needs assessment available upon request (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-05C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OnRequest'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/RptAvailableUponRequestInd'
V_CHNA_AVBL_REQUEST_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_AVBL_REQUEST_X <- xml_text( xml_find_all( doc, V_CHNA_AVBL_REQUEST_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_ADOPT_IMP_X
## DESCRIPTION: Adoption of implementation strategy (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AdoptImplementStrategy'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AdoptImplementationStrategyInd'
V_CHNA_NEED_ADOPT_IMP_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_ADOPT_IMP_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_ADOPT_IMP_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_EXECUTE_IMP_X
## DESCRIPTION: Execution of implementation strategy (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/ExecuteImplementStrategy'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ExecImplementationStrategyInd'
V_CHNA_NEED_EXECUTE_IMP_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_EXECUTE_IMP_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_EXECUTE_IMP_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_DEVELOP_PLAN_X
## DESCRIPTION: Development of community benefit plan (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/DevelopCommunityPlan'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/DevelopCommunityWidePlanInd'
V_CHNA_NEED_DEVELOP_PLAN_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_DEVELOP_PLAN_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_DEVELOP_PLAN_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_PARTICIPA_PLAN_X
## DESCRIPTION: Participation in community-wide benefit plan (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/ParticipateCommunityPlan'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ExecCommunityWidePlanInd'
V_CHNA_NEED_PARTICIPA_PLAN_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_PARTICIPA_PLAN_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_PARTICIPA_PLAN_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_INCL_PLAN_X
## DESCRIPTION: Inclusion in operational plans (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/IncludeOperationalPlans'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/IncludeOperationalPlanInd'
V_CHNA_NEED_INCL_PLAN_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_INCL_PLAN_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_INCL_PLAN_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_ADOPT_BUDGET_X
## DESCRIPTION: Operational of budget (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06F
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AdoptBudget'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AdoptBudgetInd'
V_CHNA_NEED_ADOPT_BUDGET_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_ADOPT_BUDGET_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_ADOPT_BUDGET_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_PRIORITIZA_X
## DESCRIPTION: Prioritization of health needs (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PrioritizeHealthNeeds'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PrioritizeHealthNeedsInd'
V_CHNA_NEED_PRIORITIZA_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_PRIORITIZA_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_PRIORITIZA_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_PRIORITIZA_SVC_X
## DESCRIPTION: Prioritization of health services (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06H
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PrioritizeServices'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PrioritizeServicesInd'
V_CHNA_NEED_PRIORITIZA_SVC_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_PRIORITIZA_SVC_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_PRIORITIZA_SVC_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_OTH_X
## DESCRIPTION: Other needs addressed (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-06I
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherNeedsAddressed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/OtherNeedsAddressedInd'
V_CHNA_NEED_OTH_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_OTH_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_OTH_X ) )
## VARIABLE NAME: SH_99_CHNA_NEED_ALL_ADDRESSED_X
## DESCRIPTION: All needs addressed? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-07
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AllNeedsAddressed'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AllNeedsAddressedInd'
V_CHNA_NEED_ALL_ADDRESSED_X <- paste( V1, V2 , sep='|' )
SH_99_CHNA_NEED_ALL_ADDRESSED_X <- xml_text( xml_find_all( doc, V_CHNA_NEED_ALL_ADDRESSED_X ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_FREE_CARE_PCT
## DESCRIPTION: Percentage of FPG used to determine free care (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-10
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
SH_99_FAP_USE_FPG_FREE_CARE_PCT <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/FPGFreePercent' ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_FREE_CARE_X
## DESCRIPTION: Policy uses FPG determine free care? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-10
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UsesFPGFree'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FPGUsedDeterEligFreeCareInd'
V_FAP_USE_FPG_FREE_CARE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_USE_FPG_FREE_CARE_X <- xml_text( xml_find_all( doc, V_FAP_USE_FPG_FREE_CARE_X ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_DCNT_CARE_PCT
## DESCRIPTION: Percentage of FPG used to determine discount care (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-11
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: numeric
## PRODUCTION RULE: NA
SH_99_FAP_USE_FPG_DCNT_CARE_PCT <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/FPGDiscountPercent' ) )
## VARIABLE NAME: SH_99_FAP_USE_FPG_DCNT_CARE_X
## DESCRIPTION: Policy uses FPG determine discounted care? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-11
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UsesFPGDiscounted'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FPGUsedDetermEligDscntCareInd'
V_FAP_USE_FPG_DCNT_CARE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_USE_FPG_DCNT_CARE_X <- xml_text( xml_find_all( doc, V_FAP_USE_FPG_DCNT_CARE_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_INCOME_X
## DESCRIPTION: Income level basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/IncomeLevel'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/IncomeLevelInd'
V_FAP_FACTOR_INCOME_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_INCOME_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_INCOME_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_ASSET_X
## DESCRIPTION: Asset level basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AssetLevel'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AssetLevelInd'
V_FAP_FACTOR_ASSET_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_ASSET_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_ASSET_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_INDIGENCY_X
## DESCRIPTION: Medical indigency basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/MedicalIndigency'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/MedicalIndigencyInd'
V_FAP_FACTOR_INDIGENCY_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_INDIGENCY_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_INDIGENCY_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_INSURANCE_X
## DESCRIPTION: Insurance status basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/InsuranceStatus'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/InsuranceStatusInd'
V_FAP_FACTOR_INSURANCE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_INSURANCE_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_INSURANCE_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_UNINSURED_X
## DESCRIPTION: Uninsured discount basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UninsuredDiscount'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/UninsuredDiscountInd'
V_FAP_FACTOR_UNINSURED_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_UNINSURED_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_UNINSURED_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_MEDICAID_X
## DESCRIPTION: Medicaid/Medicare basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12F
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/MedicaidMedicare'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/MedicaidMedicareInd'
V_FAP_FACTOR_MEDICAID_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_MEDICAID_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_MEDICAID_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_STATE_REG_X
## DESCRIPTION: State regulation basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/StateRegulation'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/StateRegulationInd'
V_FAP_FACTOR_STATE_REG_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_STATE_REG_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_STATE_REG_X ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_RESIDENCY_X
## DESCRIPTION: Residency basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12H
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_FACTOR_RESIDENCY_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ResidencyInd' ) )
## VARIABLE NAME: SH_99_FAP_FACTOR_OTH_X
## DESCRIPTION: Form990 Schedule HPart VSection B - Other basis (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-12I
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherFactors'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/OtherFactorsInd'
V_FAP_FACTOR_OTH_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_FACTOR_OTH_X <- xml_text( xml_find_all( doc, V_FAP_FACTOR_OTH_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_PUBLICITY_X
## DESCRIPTION: Policy includes publicity measures? (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_PROV_PUBLICITY_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/IncludesPublicityMeasures' ) )
## VARIABLE NAME: SH_99_FAP_PROV_WEBSITE_X
## DESCRIPTION: Posted on own website (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PostedOnWebsite'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PostedOnWebsiteInd'
V_FAP_PROV_WEBSITE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_WEBSITE_X <- xml_text( xml_find_all( doc, V_FAP_PROV_WEBSITE_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_ATTACH_INVOICE_X
## DESCRIPTION: Attached to invoices (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AttachedToInvoices'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AttachedToInvoiceInd'
V_FAP_PROV_ATTACH_INVOICE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_ATTACH_INVOICE_X <- xml_text( xml_find_all( doc, V_FAP_PROV_ATTACH_INVOICE_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_EMERGENCY_ROOM_X
## DESCRIPTION: Posted in emergency room or waiting room (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PostedInEmergencyRoom'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PostedInEmergencyRoomInd'
V_FAP_PROV_EMERGENCY_ROOM_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_EMERGENCY_ROOM_X <- xml_text( xml_find_all( doc, V_FAP_PROV_EMERGENCY_ROOM_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_ADM_OFFICE_X
## DESCRIPTION: Posted in admissions office (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PostedInAdmissionOffice'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PostedInAdmissionOfficeInd'
V_FAP_PROV_ADM_OFFICE_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_ADM_OFFICE_X <- xml_text( xml_find_all( doc, V_FAP_PROV_ADM_OFFICE_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_ADM_X
## DESCRIPTION: Provided upon admission (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/ProvidedOnAdmission'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/ProvidedOnAdmissionInd'
V_FAP_PROV_ADM_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_ADM_X <- xml_text( xml_find_all( doc, V_FAP_PROV_ADM_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_REQUEST_X
## DESCRIPTION: Financial assistance policy available upon request (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14F
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AvailableOnRequest'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AvailableOnRequestInd'
V_FAP_PROV_REQUEST_X <- paste( V1, V2 , sep='|' )
SH_99_FAP_PROV_REQUEST_X <- xml_text( xml_find_all( doc, V_FAP_PROV_REQUEST_X ) )
## VARIABLE NAME: SH_99_FAP_PROV_OTH_X
## DESCRIPTION: Other publicity (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-14G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_PROV_OTH_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherPublicity' ) )
## VARIABLE NAME: SH_99_BILL_PERMIT_LAWSUIT_X
## DESCRIPTION: Lawsuit permitted (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PermitLawsuit'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PermitLawsuitInd'
V_BILL_PERMIT_LAWSUIT_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_PERMIT_LAWSUIT_X <- xml_text( xml_find_all( doc, V_BILL_PERMIT_LAWSUIT_X ) )
## VARIABLE NAME: SH_99_BILL_PERMIT_LIEN_X
## DESCRIPTION: Lien on residence permitted (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PermitLienOnResidence'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PermitLienOnResidenceInd'
V_BILL_PERMIT_LIEN_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_PERMIT_LIEN_X <- xml_text( xml_find_all( doc, V_BILL_PERMIT_LIEN_X ) )
## VARIABLE NAME: SH_99_BILL_PERMIT_BODY_ATTACH_X
## DESCRIPTION: Body attachment permitted (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/PermitBodyAttachment'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/PermitBodyAttachmentsInd'
V_BILL_PERMIT_BODY_ATTACH_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_PERMIT_BODY_ATTACH_X <- xml_text( xml_find_all( doc, V_BILL_PERMIT_BODY_ATTACH_X ) )
## VARIABLE NAME: SH_99_FAP_AVBL_NOTICE_DISPLAY_X
## DESCRIPTION: Notice of availability of FAP displayed throughout hospital facility (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-16G
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_FAP_AVBL_NOTICE_DISPLAY_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNoticeDisplayedInd' ) )
## VARIABLE NAME: SH_99_BILL_3RD_PARTY_LAWSUIT_X
## DESCRIPTION: Lawsuit engaged (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-17B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/Lawsuit'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/LawsuitInd'
V_BILL_3RD_PARTY_LAWSUIT_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_3RD_PARTY_LAWSUIT_X <- xml_text( xml_find_all( doc, V_BILL_3RD_PARTY_LAWSUIT_X ) )
## VARIABLE NAME: SH_99_BILL_3RD_PARTY_LIEN_X
## DESCRIPTION: Lien on residence engaged (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-17C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/LienOnResidence'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/LiensOnResidencesInd'
V_BILL_3RD_PARTY_LIEN_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_3RD_PARTY_LIEN_X <- xml_text( xml_find_all( doc, V_BILL_3RD_PARTY_LIEN_X ) )
## VARIABLE NAME: SH_99_BILL_3RD_PARTY_BODY_X
## DESCRIPTION: Body attachment engaged (see SH-FORM-VERSION-2013-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-17D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/BodyAttachment'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/BodyAttachmentsInd'
V_BILL_3RD_PARTY_BODY_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_3RD_PARTY_BODY_X <- xml_text( xml_find_all( doc, V_BILL_3RD_PARTY_BODY_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_ADM_X
## DESCRIPTION: Notified upon admission (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/NotifyUponAdmission'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNotifiedUponAdmissionInd'
V_BILL_NOTIFIED_ADM_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_ADM_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_ADM_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_DISCHARGE_X
## DESCRIPTION: Notified prior to discharge (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/NotifyBeforeDischarge'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNotifiedBeforeDischargeInd'
V_BILL_NOTIFIED_DISCHARGE_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_DISCHARGE_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_DISCHARGE_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_PATIENT_X
## DESCRIPTION: Notified patients in communications (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/NotifiedAllPatients'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/FAPNotifiedAllPatientsInd'
V_BILL_NOTIFIED_PATIENT_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_PATIENT_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_PATIENT_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_DOC_X
## DESCRIPTION: Documented determination (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/DocumentedDetermination'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/DocumentedEligDeterminationInd'
V_BILL_NOTIFIED_DOC_X <- paste( V1, V2 , sep='|' )
SH_99_BILL_NOTIFIED_DOC_X <- xml_text( xml_find_all( doc, V_BILL_NOTIFIED_DOC_X ) )
## VARIABLE NAME: SH_99_BILL_NOTIFIED_OTH_ACT_X
## DESCRIPTION: Other action taken (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-20E
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
SH_99_BILL_NOTIFIED_OTH_ACT_X <- xml_text( xml_find_all( doc, '/Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/OtherActionsTaken' ) )
## VARIABLE NAME: SH_99_CHARGE_LOW_RATE_X
## DESCRIPTION: Charged amount in excess of lowest negotiated rates? (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22A
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/LowestNegotiatedRates'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/LowestNegotiatedRatesInd'
V_CHARGE_LOW_RATE_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_LOW_RATE_X <- xml_text( xml_find_all( doc, V_CHARGE_LOW_RATE_X ) )
## VARIABLE NAME: SH_99_CHARGE_AVE_RATE_X
## DESCRIPTION: Charged amount in excess of average negotiated rates? (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22B
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/AverageNegotiatedRates'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/AverageNegotiatedRatesInd'
V_CHARGE_AVE_RATE_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_AVE_RATE_X <- xml_text( xml_find_all( doc, V_CHARGE_AVE_RATE_X ) )
## VARIABLE NAME: SH_99_CHARGE_MT_MEDICARE_RATE_X
## DESCRIPTION: Charged more than medicare rate? (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22C
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/MedicareRate'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/MedicareRatesInd'
V_CHARGE_MT_MEDICARE_RATE_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_MT_MEDICARE_RATE_X <- xml_text( xml_find_all( doc, V_CHARGE_MT_MEDICARE_RATE_X ) )
## VARIABLE NAME: SH_99_CHARGE_OTH_METHOD_X
## DESCRIPTION: Used other method (see SH-FORM-VERSION-2015-PART-05)
## LOCATION: SCHED-H-PART-99-SECTION-B-LINE-22D
## TABLE: SH-P99-T00-FAP-COMMUNITY-BENEFIT-POLICY
## VARIABLE TYPE: checkbox
## PRODUCTION RULE: NA
V1 <- '//Return/ReturnData/IRS990ScheduleH/Form990ScheduleHPartVSectionB/UsedOtherMethod'
V2 <- '//Return/ReturnData/IRS990ScheduleH/HospitalFcltyPoliciesPrctcGrp/OtherMethodUsedInd'
V_CHARGE_OTH_METHOD_X <- paste( V1, V2 , sep='|' )
SH_99_CHARGE_OTH_METHOD_X <- xml_text( xml_find_all( doc, V_CHARGE_OTH_METHOD_X ) )
var.list <-
namedList(OBJECTID,URL,ORG_EIN,ORG_NAME_L1,ORG_NAME_L2,RETURN_TYPE,TAX_YEAR,SH_99_CHNA_AVBL_REQUEST_X,SH_99_CHNA_NEED_ADOPT_IMP_X,SH_99_CHNA_NEED_EXECUTE_IMP_X,SH_99_CHNA_NEED_DEVELOP_PLAN_X,SH_99_CHNA_NEED_PARTICIPA_PLAN_X,SH_99_CHNA_NEED_INCL_PLAN_X,SH_99_CHNA_NEED_ADOPT_BUDGET_X,SH_99_CHNA_NEED_PRIORITIZA_X,SH_99_CHNA_NEED_PRIORITIZA_SVC_X,SH_99_CHNA_NEED_OTH_X,SH_99_CHNA_NEED_ALL_ADDRESSED_X,SH_99_FAP_USE_FPG_FREE_CARE_PCT,SH_99_FAP_USE_FPG_FREE_CARE_X,SH_99_FAP_USE_FPG_DCNT_CARE_PCT,SH_99_FAP_USE_FPG_DCNT_CARE_X,SH_99_FAP_FACTOR_INCOME_X,SH_99_FAP_FACTOR_ASSET_X,SH_99_FAP_FACTOR_INDIGENCY_X,SH_99_FAP_FACTOR_INSURANCE_X,SH_99_FAP_FACTOR_UNINSURED_X,SH_99_FAP_FACTOR_MEDICAID_X,SH_99_FAP_FACTOR_STATE_REG_X,SH_99_FAP_FACTOR_RESIDENCY_X,SH_99_FAP_FACTOR_OTH_X,SH_99_FAP_PROV_PUBLICITY_X,SH_99_FAP_PROV_WEBSITE_X,SH_99_FAP_PROV_ATTACH_INVOICE_X,SH_99_FAP_PROV_EMERGENCY_ROOM_X,SH_99_FAP_PROV_ADM_OFFICE_X,SH_99_FAP_PROV_ADM_X,SH_99_FAP_PROV_REQUEST_X,SH_99_FAP_PROV_OTH_X,SH_99_BILL_PERMIT_LAWSUIT_X,SH_99_BILL_PERMIT_LIEN_X,SH_99_BILL_PERMIT_BODY_ATTACH_X,SH_99_FAP_AVBL_NOTICE_DISPLAY_X,SH_99_BILL_3RD_PARTY_LAWSUIT_X,SH_99_BILL_3RD_PARTY_LIEN_X,SH_99_BILL_3RD_PARTY_BODY_X,SH_99_BILL_NOTIFIED_ADM_X,SH_99_BILL_NOTIFIED_DISCHARGE_X,SH_99_BILL_NOTIFIED_PATIENT_X,SH_99_BILL_NOTIFIED_DOC_X,SH_99_BILL_NOTIFIED_OTH_ACT_X,SH_99_CHARGE_LOW_RATE_X,SH_99_CHARGE_AVE_RATE_X,SH_99_CHARGE_MT_MEDICARE_RATE_X,SH_99_CHARGE_OTH_METHOD_X)
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.