Government consumption preprocessor

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"

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"

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%))

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"

If GExpRandD is null then estimate using:                 TbName$ = "GDP/Capita (PPP) Versus Govt Exp R&D as % of GNP (" & CStr(BaseYear) & ") - 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.

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