Government consumption preprocessor

Series read

SeriesGovtMil%GDPSIPRI	Government, Conflict	Expenditure	SIPRI, Stockholm International Peace Research Institute	Military expenditures as percent of GDP (SIPRI)
SeriesGovtMil%GDP	Government, Infrastructure, Conflict	Expenditure	ACDA www.state.gov/global/arms/bureau_ac/reports_ac.html + asst earlier volumes	Military expenditures as percent of GDP (ACDA)
SeriesGovtHl%GDP	Government, Health, Infrastructure	Expenditure	WDI  BATCH PULL	Health expenditures as percent of GDP, public
SeriesHealthExpPriv%Tot	Population, Health	Expenditure	WHO Global Health Expenditure Database	Private expenditure on health (PvtHE) as % of Total Health Expenditure
SeriesHealthExpTot%GDP	Population, Health	Expenditure	WHO Global Health Expenditure Database	Total health expenditure (THE) % Gross Domestic Product (GDP)
SeriesGovtEdPub%GDP	Government	Expenditure	WDI  BATCH PULL	Educational expenditures (public) as percent of GDP
SeriesR&DGovt%GDP	Government	Research and Development	UNESCO	Gross R&D expenditure by government
SeriesR&D%GDPWDI	Science Technology, Infrastructure, Knowledge	R&D	Constructed from multiple WDI vol;CD incl 01, 02, 04,05,06,07; 2006-2008 Update from UIS Website	R&D as % of GDP (in some earlier years was GNI)
SeriesGovtCalcHealthCen%GDP	Economic	Finance	IMF GFS 2013 BATCH PULL	Health spending, government, Central government, as % of GDP
SeriesGovtCalcHealthTot%GDP	Economic	Finance	IMF GFS 2013 BATCH PULL	Health spending, government, total, as % of GDP
SeriesGovtCalcEdCen%GDP	Economic	Finance	IMF GFS 2013 BATCH PULL	Education spending, government, Central government, as % of GDP
SeriesGovtCalcEdTot%GDP	Economic	Finance	IMF GFS 2013 BATCH PULL	Education spending, government, total, as % of GDP

Initializations

Defense

Initialize defense expenditures using SeriesGovtMil%GDPSIPRI. If null, then use SeriesGovtMil%GDP.

If null estimate using GDPPCP: TbName$ = "GDP/Capita (PPP) Versus Govt Exp Mil as % of GDP (" & CStr(BaseYear) & ") - linear"

To fill holes: "GDP/Capita (PPP) Versus Govt Exp Mil as % of GDP (" & CStr(BaseYear) & ") - linear"

This equation is using: GDP/Capita (PPP) Versus Govt Exp Mil as % of GDP (2000) - linear

Health

Initialize public health expenditures using SeriesGovtHl%GDP.

If null estimate using GDPPCP:  TbName$ = "GDP/Capita (PPP) Versus Govt Exp Hlth as % of GDP (" & CStr(BaseYear) & ") - log"

To fill holes: "GDP/Capita (PPP) Versus Govt Exp Hlth as % of GDP (" & CStr(BaseYear) & ") - log"

This equation is using: GDP/Capita (PPP) Versus Govt Exp Hlth as % of GDP (2000) - log

Initialize private health expenditures using SeriesHealthExpPriv%Tot. If no data, but there is data on total health expenditures (SeriesHealthExpTot%GDP) then set private as the difference between total and public.

If no data on total health expenditure then estimate private using:

                    'Estimate Private
                    Call AnalFunc("Private Health Expenditures % of GDP (2012)", _
                    Array(CGDPPCP(ICount%), CEDYRSAGE25T(ICount%)), cVal, _
                    Array("GDP2005PCPPP(MOSTRECENT)/ 1000 (Log)", "EdYearsAge25(MOSTRECENT) (Linear)"))

If no data on total expenditures, then it is the sum of private and public.

Education

Initialize public spending on education using SeriesGovtEdPub%GDP. If null then use:                

Call XYTABL("GDP/Capita (PPP) Versus Govt Exp Educ as % of GDP (2002) - log", _
                    Amin(40, CGDPPCP(ICount%)), GExpEd(ICount%))

To fill holes: "GDP/Capita (PPP) Versus Govt Exp Educ as % of GDP (2002) - log"

Bound as 1.5% as a minimum. Set Uzbekistan to 3%.

R & D

Initialize public R&D spending using SeriesR&DGovt%GDP (GExpRandD) and SeriesR&D%GDPWDI (ExpRandDTot).

If ExpRandDTot is null then estimate using:                 TbName$ = "GDP/Capita (PPP) Versus R&D Total  as % of GNI (" & CStr(BaseYear) & ") - linear"

This equation is using: GDP/Capita (PPP) Versus R&D Total  as % of GNI (2000) - linear

If GExpRandD is null then estimate using:                 TbName$ = "GDP/Capita (PPP) Versus Govt Exp R&D as % of GNP (" & CStr(BaseYear) & ") - linear"

This equation is using: GDP/Capita (PPP) Versus Govt Exp R&D as % of GNP (2000) - linear 

Initialize central government health expenditures (GExpHlCen) using SeriesGovtCalcHealthCen%GDP

Initialize total government health expenditures (GExpHlTot) using SeriesGovtCalcHealthTot%GDP

Initialize central government education expenditures (GExpEdCen) using SeriesGovtCalcEdCen%GDP

Initialize total government education expenditures (GExpEdTot) using SeriesGovtCalcEdTot%GDP

Infrastructure

        '-- Infrastructure Expenditure : Build up from components calculated in DataInfra: for historical and regular base--

        'switch to turn infrastructure finance on and off

Note: default setting of infrastructure finance is on (1) - changing this to off (0) in global parameters (IFs.mdb) means that infrastructure spending is initialized at zero. To fill holes: GExpInfraOther(ICount%) = 1.8162 + 0.061 * Log(CGDPPCP(ICount%))

Need to put in TablFunc If infrastructure finance is on (default) then sum up new construction and maintenance from all sub-types of infrastructure. Cap at 10% of GDP.

InfraOther

        'non-core or 'other' infrastructure as a % of GDP - using function estimated by DSR
        GExpInfraOther(ICount%) = 1.8162 + 0.061 * Log(CGDPPCP(ICount%))

Output

Read everything to GovConsumptionOutput

Cap Infra spending

Private Function CalcInfraPubSpendCap

'procedure for capping infrastructure fund demand as a % of GDP;
'uses inverted V suggested by BBH