var s001_C1="lightgreen",s001_C2="#EEEEEE",s001_C3="white",s001_C4="red";

function S001_F013S(){S001_HrefF032(Head_CbGet(document.getElementsByName("F013S")[0]))}
function S001_F013K(){S001_HrefF032(Head_CbGet(document.getElementsByName("F013K")[0]))}
function S001_F013M(){S001_HrefF032(Head_CbGet(document.getElementsByName("F013M")[0]))}
function S001_F013P(){S001_HrefF032(Head_CbGet(document.getElementsByName("F013P")[0]))}
function S001_F013A(){S001_HrefF032(Head_CbGet(document.getElementsByName("F013A")[0]))}

function S001_GetPathF032(root){return(Head_PathFsai(root)+"F032.htm")}
function S001_GetPathF076(root){return(Head_PathFsai(root)+"F076.htm")}
function S001_SetParmF032(fsai,f015){Parm_Start(Parm_FsaiN(),fsai);Parm_Add(Parm_F015N(),f015); return(Parm_End())}
function S001_SetParmF076(ym){Parm_Start(Parm_YmN(),ym);return(Parm_End())}

function S001_HrefF032(parm){if(S001_HrefChk(parm)){window.location.href=S001_GetPathF032(head_Root-1)+S001_SetParmF032(parm.substr(0,4),parm.substr(4,4))};}
function S001_HrefF076(parm){if(S001_HrefChk(parm)){window.location.href=S001_GetPathF076(head_Root-1)+S001_SetParmF076(parm)}}
function S001_HrefChk(parm){if(parm.length<1){return(false)}return(true)}

function S001_TagV(i){return(document.getElementById(S001_Fix(i)+"v"))}
function S001_TagA(i){return(document.getElementById(S001_Fix(i)))}
function S001_ChkYm(i){if(i<Date_YmToDay()){return(false)}else{return(true)}}
function S001_TagV0(i){var x=S001_TagV(i).firstChild.nodeValue;if(x.length>1){return(false)}return(true)}
function S001_Cur(i,t){S001_TagA(i).style.cursor=t} 
function S001_BgC(i,c){S001_TagA(i).style.backgroundColor=c} 
function S001_Fix(i){if(i<10){return("Da0"+i)};return("Da"+i)}

function S001_Mover(i,j){if(!S001_TagV0(i)){if(S001_ChkYm(j)){S001_BgC(i,s001_C1);S001_Cur(i,head_CurP)}else{S001_BgC(i,s001_C4);S001_Cur(i,head_CurP)}}}
function S001_Mout(i,j){if(!S001_TagV0(j)){if(Head_Even(i)){S001_BgC(j,s001_C2)}else{S001_BgC(j,s001_C3)}}}
function S001_OnC(i){if(i>0){S001_HrefF076(i.toString())}}