<?
/******************************************************
* system  : xxx リスク診断
* title   : 総合計算処理
* content : リスク診断に於ける総合関連の計算を行う
* version : 1.0
* author  : aizawa
*******************************************************/

// ■リスク診断／総合データ計算
function calc_sg_data() {
	global $g_encode, $g_const, $g_sheets;

	$graph_max = 9999;

	$n = '総合';
	$g_sheets[$n] = array();
	$s = &$g_sheets;
	$c = &$g_sheets[$n];

	$c['C30'] = $s['死亡']['C32'];
	$c['C31'] = $s['医療']['C31'];
	$c['C32'] = $s['就業不能']['D65'];
	$c['C33'] = $s['老後']['C34'];
	$c['C34'] = 0;
	$c['D30'] = $s['死亡']['D32'];
	$c['D31'] = $s['医療']['D31'];
	$c['D32'] = $s['就業不能']['E65'];
	$c['D33'] = $s['老後']['D34'];
	$c['D34'] = 0;
	$c['E30'] = $s['死亡']['E32'];
	$c['E31'] = 0;
	$c['E32'] = $s['就業不能']['F65'];
	$c['E33'] = $s['老後']['E34'];
	$c['E34'] = 0;
	$c['F30'] = $s['死亡']['F32'];
	$c['F31'] = $s['医療']['E31'];
	$c['F32'] = $s['就業不能']['G65'];
	$c['F33'] = $s['老後']['F34'];
	$c['F34'] = $s['損害']['C30'];
	$c['G30'] = VB_SUM($n, 'C30:F30');
	$c['G31'] = VB_SUM($n, 'C31:F31');
	$c['G32'] = VB_SUM($n, 'C32:F32');
	$c['G33'] = VB_SUM($n, 'C33:F33');
	$c['G34'] = VB_SUM($n, 'C34:F34');
	$c['C37'] = MIN($graph_max, $c['C30']);
	$c['C38'] = MIN($graph_max, $c['C31']);
	$c['C39'] = MIN($graph_max, $c['C32']);
	$c['C40'] = MIN($graph_max, $c['C33']);
	$c['C41'] = MIN($graph_max, $c['C34']);
	$c['D37'] = MIN($graph_max, $c['C37'] + $c['D30']);
	$c['D38'] = MIN($graph_max, $c['C38'] + $c['D31']);
	$c['D39'] = MIN($graph_max, $c['C39'] + $c['D32']);
	$c['D40'] = MIN($graph_max, $c['C40'] + $c['D33']);
	$c['D41'] = MIN($graph_max, $c['C41'] + $c['D34']);
	$c['E37'] = MIN($graph_max, $c['D37'] + $c['E30']);
	$c['E38'] = MIN($graph_max, $c['D38'] + $c['E31']);
	$c['E39'] = MIN($graph_max, $c['D39'] + $c['E32']);
	$c['E40'] = MIN($graph_max, $c['D40'] + $c['E33']);
	$c['E41'] = MIN($graph_max, $c['D41'] + $c['E34']);
	$c['F37'] = MIN($graph_max, $c['E37'] + $c['F30']);
	$c['F38'] = MIN($graph_max, $c['E38'] + $c['F31']);
	$c['F39'] = MIN($graph_max, $c['E39'] + $c['F32']);
	$c['F40'] = MIN($graph_max, $c['E40'] + $c['F33']);
	$c['F41'] = MIN($graph_max, $c['E41'] + $c['F34']);
	$c['G37'] = 100;
	$c['G38'] = 100;
	$c['G40'] = 100;
	$c['G41'] = 100;
	$c['J4'] = $s['死亡']['C46'] * 10000;
	$c['J6'] = $s['死亡']['L46'] * 10000;
	$c['J7'] = $c['G30'];
	$c['J8'] = VB_MIN('医療', 'B46:B51') * 10000;
	$c['J9'] = VB_MAX('医療', 'B46:B51') * 10000;
	$c['J10'] = VB_MIN('医療', 'F46:F51') * 10000;
	$c['J11'] = VB_MAX('医療', 'F46:F51') * 10000;
	$c['J12'] = $c['G31'];
	$c['J13'] = $s['就業不能']['C47'] * 10000;
	$c['J14'] = $s['就業不能']['C50'] * 10000;
	$c['J15'] = $s['就業不能']['L47'] * 10000;
	$c['J16'] = $s['就業不能']['L50'] * 10000;
	$c['J17'] = $c['G32'];
	$c['J18'] = $s['老後']['C43'] * 10000;
	$c['J20'] = $s['老後']['J43'] * 10000;
	$c['J21'] = $c['G33'];
	$c['J22'] = MIN($s['損害']['L5'], $s['損害']['L8'], $s['損害']['L11'], $s['損害']['L14'], $s['損害']['L20']) * 10000;
	$c['J23'] = MAX($s['損害']['L5'], $s['損害']['L8'], $s['損害']['L11'], $s['損害']['L15'], $s['損害']['L20']) * 10000;
	$c['J24'] = MIN($s['損害']['L6'], $s['損害']['L9'], $s['損害']['L12'], $s['損害']['L16'], $s['損害']['L21']) * 10000;
	$c['J25'] = MAX($s['損害']['L6'], $s['損害']['L9'], $s['損害']['L12'], $s['損害']['L17'], $s['損害']['L21']) * 10000;
	$c['J26'] = $c['G34'];
	$c['G39'] = VB_IF($c['J13'] == 0, 0, 100);

	$c['P30'] = $s['死亡']['Q32'];
	$c['P31'] = $s['医療']['P31'];
	$c['P32'] = $s['就業不能']['S64'];
	$c['P33'] = $c['C33'];
	$c['P34'] = $c['C34'];
	$c['Q30'] = $s['死亡']['R32'];
	$c['Q31'] = $s['医療']['Q31'];
	$c['Q32'] = $s['就業不能']['T64'];
	$c['Q33'] = $c['D33'];
	$c['Q34'] = $c['D34'];
	$c['R30'] = $s['死亡']['S32'];
	$c['R31'] = 0;
	$c['R32'] = $s['就業不能']['U64'];
	$c['R33'] = $c['E33'];
	$c['R34'] = $c['E34'];
	$c['S30'] = $s['死亡']['T32'];
	$c['S31'] = $s['医療']['R31'];
	$c['S32'] = $s['就業不能']['V64'];
	$c['S33'] = $c['F33'];
	$c['S34'] = $c['F34'];
	$c['T30'] = VB_SUM($n, 'P30:S30');
	$c['T31'] = VB_SUM($n, 'P31:S31');
	$c['T32'] = VB_SUM($n, 'P32:S32');
	$c['T33'] = $c['G33'];
	$c['T34'] = $c['G34'];
	$c['P37'] = MIN($graph_max, $c['P30']);
	$c['P38'] = MIN($graph_max, $c['P31']);
	$c['P39'] = MIN($graph_max, $c['P32']);
	$c['P40'] = MIN($graph_max, $c['P33']);
	$c['P41'] = MIN($graph_max, $c['P34']);
	$c['Q37'] = MIN($graph_max, $c['P37'] + $c['Q30']);
	$c['Q38'] = MIN($graph_max, $c['P38'] + $c['Q31']);
	$c['Q39'] = MIN($graph_max, $c['P39'] + $c['Q32']);
	$c['Q40'] = MIN($graph_max, $c['P40'] + $c['Q33']);
	$c['Q41'] = MIN($graph_max, $c['P41'] + $c['Q34']);
	$c['R37'] = MIN($graph_max, $c['Q37'] + $c['R30']);
	$c['R38'] = MIN($graph_max, $c['Q38'] + $c['R31']);
	$c['R39'] = MIN($graph_max, $c['Q39'] + $c['R32']);
	$c['R40'] = MIN($graph_max, $c['Q40'] + $c['R33']);
	$c['R41'] = MIN($graph_max, $c['Q41'] + $c['R34']);
	$c['S37'] = MIN($graph_max, $c['R37'] + $c['S30']);
	$c['S38'] = MIN($graph_max, $c['R38'] + $c['S31']);
	$c['S39'] = MIN($graph_max, $c['R39'] + $c['S32']);
	$c['S40'] = MIN($graph_max, $c['R40'] + $c['S33']);
	$c['S41'] = MIN($graph_max, $c['R41'] + $c['S34']);
	$c['T37'] = 100;
	$c['T38'] = 100;
	$c['T40'] = 100;
	$c['T41'] = 100;
	$c['W4'] = $s['死亡']['Q65'] * 10000;
	$c['W6'] = $s['死亡']['V65'] * 10000;
	$c['W7'] = $c['T30'];
	$c['W8'] = VB_MIN('医療', 'O46:O51') * 10000;
	$c['W9'] = VB_MAX('医療', 'O46:O51') * 10000;
	$c['W10'] = VB_MIN('医療', 'S46:S51') * 10000;
	$c['W11'] = VB_MAX('医療', 'S46:S51') * 10000;
	$c['W12'] = $c['T31'];
	$c['W13'] = $s['就業不能']['R47'] * 10000;
	$c['W14'] = $s['就業不能']['R49'] * 10000;
	$c['W15'] = $s['就業不能']['Y47'] * 10000;
	$c['W16'] = $s['就業不能']['Y49'] * 10000;
	$c['W17'] = $c['T32'];
	$c['W18'] = $c['J18'];
	$c['W20'] = $c['J20'];
	$c['W21'] = $c['T33'];
	$c['W22'] = MIN($s['損害']['L5'], $s['損害']['L8'], $s['損害']['L11'], $s['損害']['L14'], $s['損害']['L20']) * 10000;
	$c['W23'] = MAX($s['損害']['L5'], $s['損害']['L8'], $s['損害']['L11'], $s['損害']['L15'], $s['損害']['L20']) * 10000;
	$c['W24'] = MIN($s['損害']['L6'], $s['損害']['L9'], $s['損害']['L12'], $s['損害']['L16'], $s['損害']['L21']) * 10000;
	$c['W25'] = MAX($s['損害']['L6'], $s['損害']['L9'], $s['損害']['L12'], $s['損害']['L17'], $s['損害']['L21']) * 10000;
	$c['W26'] = $c['T34'];
	$c['T39'] = VB_IF($c['W13'] == 0, 0, 100);
}
?>