';}return html;}function getDpc2Link(dpc2){var html='';if(dpc2.length==14){var onclick='window.open(\'/fukuro2016/?dpc='+dpc2+'\',\'fukuro2016\');';var tooltip='新制度のふくろくん2016で見る';html='
';}return html;};
function clearDpcInfo(){document.getElementById('dpc').value='';document.getElementById('dpc0').value='';document.getElementById('dpc0choices').innerHTML='';document.getElementById('dpc2choices').innerHTML='';document.getElementById('pps_type').value='';document.getElementById('is_pps').innerHTML='';document.getElementById('dpccode').value='';document.getElementById('dpcname').value='';for (var i=1;i <= 3;i++){document.getElementById('span'+i).value='';document.getElementById('score'+i).value='';};document.getElementById('los').value='';document.getElementById('total_yen').value='';updateScoreFigs();document.getElementById('dpc_info').value='';document.getElementById('dpc_ope').value='';document.getElementById('dpc_pro1').value='';document.getElementById('dpc_pro2').value='';document.getElementById('adv').value='';document.getElementById('adv_opepro').value='';document.getElementById('drg').value='';document.getElementById('drg_opepro').value='';};
function storeDpcInfoStr(){var dpc=document.getElementById('dpc').value;var pps_type=document.getElementById('pps_type').value;if(dpc=== undefined||dpc==''||pps_type==-1||pps_type==''){ return;};var dpcname=document.getElementById('dpcname').value;var span=new Array(3);var score=new Array(3);for (var i=0;i < 3;i++){span[i]=document.getElementById('span'+(i+1)).value;var arr=span[i].split(' ~ ');span[i]=(arr.length>1)? parseInt(arr[1]):parseInt(span[i]);score[i]=document.getElementById('score'+(i+1)).value;}var seri1_label=document.getElementById('seri1_label').value;var ope_label=document.getElementById('ope_label').value;arr=ope_label.split('|');ope_label=arr[0];var opecode_label=arr[1];var pro1_label=document.getElementById('misc0_label').value;var pro2_label=document.getElementById('misc1_label').value;var compli_label=document.getElementById('misc2_label').value;var seri2_label=document.getElementById('misc3_label').value;str='通し番号\t000\n';str += '診断群分類番号\t'+dpc+'\n';str += '診断群分類名称\t'+dpcname+'\n';str += '入院期間Ⅰ\t'+((pps_type==1)? span[0] :"")+'\n';str += '入院期間Ⅱ\t'+((pps_type==1)? span[1] :"") +'\n';str += '入院期間Ⅲ\t'+((pps_type==1)? span[2] :"") +'\n';str += '入院期間Ⅰ以下の点数\t'+((pps_type==1)? score[0] :"")+'点\n';str += '入院期間Ⅰを超えⅡ以下の点数\t'+((pps_type==1)? score[1] :"")+'点\n';str += '入院期間Ⅱを超えⅢ以下の点数\t'+((pps_type==1)? score[2] :"")+'点\n';str += '年齢、出生時体重等\t'+seri1_label+'\n';str += '手術\t'+ope_label+'\n';str += '手術Kコード\t'+opecode_label+'\n';str += '手術・処置等1\t'+pro1_label+'\n';str += '手術・処置等2\t'+pro2_label+'\n';str += '副傷病\t'+compli_label+'\n';str += '重症度等\t'+seri2_label+'\n';document.getElementById('dpc_info').value=str;}
function getDpcInfoStr(){return document.getElementById('dpc_info').value;};
function getDpcDayYenTableStr(){var dpc=document.getElementById('dpc').value;var adv=document.getElementById('adv').value;var drg=document.getElementById('drg').value;var dpccode=document.getElementById('dpccode').value;var dpcname=document.getElementById('dpcname').value;var coef=parseFloat(document.getElementById('coef').value);if(coef < 0||coef>10) coef=1;if(adv != ''){var tbl_str=dpccode+'\n'+dpcname+'\n';return tbl_str;}else if(drg==''){var pps_type=document.getElementById('pps_type').value;if(dpc=== undefined||dpc==''||pps_type==-1||pps_type==''){ return '';};var dpcname=document.getElementById('dpcname').value;var span=new Array(3);var score=new Array(3);for (var i=0;i < 3;i++){span[i]=document.getElementById('span'+(i+1)).value;var arr=span[i].split(' ~ ');span[i]=(arr.length>1)? parseInt(arr[1]):parseInt(span[i]);score[i]=document.getElementById('score'+(i+1)).value;}var tbl_str=dpccode+'\n'+dpcname+'\n'+'医療機関別係数\t'+coef+'\n'+'経過日数\t入院期間\t日当点の金額\t初日からの累計金額\t日当点の金額(係数込み)\t初日からの累計金額(係数込み)\n';var max_span=Math.max.apply(null,span);var los_class;var yen;var sum_yen=0;for (var day=1;day <= max_span;day++){los_class=0;if(day>span[1]){ los_class=2;}else if(day>span[0]){ los_class=1;}yen=score[los_class]*10;sum_yen += yen;tbl_str += day+'日目\t期間'+((los_class==2)?'Ⅲ':((los_class==1)?'Ⅱ':'Ⅰ'))+'\t'+yen+'\t'+sum_yen+'\t'+Math.round(yen*coef)+'\t'+Math.round(sum_yen*coef)+'\n';}return tbl_str;}else{var span=document.getElementById('span'+(1)).value;var score=document.getElementById('score'+(1)).value;var yen=score*10;var tbl_str=dpccode+'\n'+dpcname+'\n'+'経過日数\t各日の金額\t初日からの累計金額\n'+'1日目\t'+yen+'\t'+yen+'\n';for (var day=2;day <= span;day++){tbl_str += day+'日目\t'+0+'\t'+yen+'\n';}return tbl_str;}};
function calcDpcYen(){var los=document.getElementById('los').value;var dpc=document.getElementById('dpc').value;var pps_type=document.getElementById('pps_type').value;var drg=document.getElementById('drg').value;var coef=document.getElementById('coef').value;if(coef <= 0){ coef=1;}var total_yen=0;if(los>0&&drg != ''){s=document.getElementById('score1').value;total_yen=10*parseInt(s);}else if(los>0&&dpc != ''){var span=new Array(3);var score=new Array(3);for (var i=0;i<3;i++){var s=document.getElementById('span'+(i+1)).value;span[i]=parseInt(s.substr(s.lastIndexOf("~")+1));s=document.getElementById('score'+(i+1)).value;score[i]=parseInt(s.substr(s.lastIndexOf("~")+1));}if(span[0]>0){total_yen=Math.round(10*score[0]*coef*((los <= span[0])? los:span[0]));if(span[1]>0&&los>span[0]){total_yen += Math.round(10*score[1]*coef*(((los <= span[1])? los:span[1])-span[0]));if(span[2]>0&&los>span[1]){total_yen += Math.round(10*score[2]*coef*(((los <= span[2])? los:span[2])-span[1]));}}}}document.getElementById('total_yen').value=((total_yen>0)? total_yen:'');};
function findDrgInfo(){setDpcInfoPanel('drg');var xmlhttp=createHttpRequest();if(xmlhttp==null){return null;};var drg=document.getElementById('drg').value;var url='/fukuro2014/query.php?type=drg&val='+encodeURIComponent(drg);sendRequest(xmlhttp,"GET",url,true,callBackDrgInfo,null,null);};
function callBackDrgInfo(xmlhttp,domid){eval(xmlhttp.responseText);storeDrgInfoStr(drg,drgname,span,score);if(drg==''){document.getElementById('dpccode').value='《 短期滞在手術等基本料3による包括 》';document.getElementById('dpcname').value='該当する項目が見つかりません';document.getElementById('pps_type').value=2;document.getElementById('span1').value='';document.getElementById('score1').value='';document.getElementById('is_pps').innerHTML='';}else{document.getElementById('dpccode').value='《 短期滞在手術等基本料3による包括 》';document.getElementById('dpcname').value=drgname;document.getElementById('pps_type').value=2;document.getElementById('span1').value=span[0];document.getElementById('score1').value=score[0];document.getElementById('is_pps').innerHTML='';}updateScoreFigs();calcDpcYen();updateRelated('ad');};
function storeDrgInfoStr(drg,drgname,span,score){if(drg=== undefined){ return;};str= '《 短期滞在手術基本料による包括評価 》\n';str += drgname+'\n';str += '期間:'+span[0]+'日\n';str += '包括点数:'+score[0]+'点\n';str += '※入院日から'+(span[0]+1)+'日目以降に対象手術/処置を実施した場合は包括対象外\n';document.getElementById('dpc_info').value=str;}
function updateRelated(info_type){clearRelated(info_type);findRelated(info_type);}
function findRelated(info_type){if(info_type=== undefined){ info_type='all';}var icd10raw=document.getElementById('icd10raw').value;var icd10=document.getElementById('icd10').value;if(icd10raw != '') icd10=icd10raw;var dpc=document.getElementById('dpc').value;var pps_type=document.getElementById('pps_type').value;var opepro=document.getElementById('dpc_ope').value+','+document.getElementById('dpc_pro1').value+','+document.getElementById('dpc_pro2').value+','+document.getElementById('adv_opepro').value+','+document.getElementById('drg_opepro').value;var compli=document.getElementById('dpc_compli').value;var xmlhttp=createHttpRequest();if(xmlhttp==null){return null;};var url='/fukuro2014/query.php?type=related&val='+info_type+'|'+icd10+'|'+dpc+'|'+opepro+'|'+compli;sendRequest(xmlhttp,"GET",url,true,callBackRelated,null,null);}
function findAdvAllDpc(adv_name){var info_type='adv_alldpc';var xmlhttp=createHttpRequest();if(xmlhttp==null){return null;};var url='/fukuro2014/query.php?type=related&val='+info_type+'|'+adv_name;sendRequest(xmlhttp,"GET",url,true,callBackRelated,null,null);}
function findDrgAllDpc(drg_name){var info_type='drg_alldpc';var xmlhttp=createHttpRequest();if(xmlhttp==null){return null;};var url='/fukuro2014/query.php?type=related&val='+info_type+'|'+drg_name;sendRequest(xmlhttp,"GET",url,true,callBackRelated,null,null);}
function callBackRelated(xmlhttp,domid){eval(xmlhttp.responseText);if(data){var notes={};for (var i=0;i < data.length;i++){if(!data[i]) continue;var fields=data[i].split("\t");if(fields.length < 3){ continue;}var key=fields[0];var type=fields[1];if(type=='ad'){var arr=fields[2].split('.');var ext=(arr.pop()).toLowerCase();if(ext=='png'||ext=='jpg'||ext=='jpeg'||ext=='gif'){document.getElementById('adSpace').innerHTML="