Government consumption preprocessor

From Pardee Wiki
Revision as of 15:01, 17 May 2016 by Wikiadmin (talk | contribs)
Jump to navigation Jump to search

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. 

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