// --------------------------------------------------
 // È­¸é Loading½Ã ó¸®ÇÏ´Â ÇÔ¼ö
 // --------------------------------------------------
 function fInitScreen() {

	ipt_opcnfmdd.value = getCurrentDate();

	//var instcd         = getUserInfo("dutplceinstcd");
	//var standard_yn    = "orduseyn";
	//var ord_deptflag   = 'D';
	//var rslt_ref       = "/root/main/cond/orddeptlist";

 var menuparam = getScreenMenuParameter() ;
  model.setValue("/root/main/cond/prestimportid", menuparam);		// tab ±âº»°ª (DSC Main)

	model.setValue("/root/main/cond/wardcd", model.getValue("/root/code/codeinfo/codelist/cdid"));
	//model.setValue("/root/main/cond/wardcd", "2360800000");       					// Åë¿ø¼ö¼ú¼¾ÅÍ setting
	radio1.value = "-";
	
	//model.removenode("/root/send");
	model.makeNode("/root/send");
	model.makeValue("/root/send/opcnfmdd" ,ipt_opcnfmdd.value );

	if (menuparam != "DCC") {
	    button2.visible = false;
    }
	fGetDCCRsrv();

 }

 // --------------------------------------------------
 // Á¶È¸ Ŭ¸¯½Ã 
 // --------------------------------------------------
function fGetDCCRsrv()
{
	model.makeValue("/root/send/ampmflag" ,radio1.value );
	grd_rsrvlist.visible = false;
	model.removeNodeset("/root/main/rsrv/rsrvlist");
	var maxap = parseInt(model.getValue("/root/rsrv/rsrv/maxa")) + parseInt(model.getValue("/root/rsrv/rsrv/maxp"));
	
	
	for( var i = grd_rsrvlist.cols; i >= 2; i-- ) {
		grd_rsrvlist.deleteColumn(i,"false");
	}
	grd_rsrvlist.caption = "³¯Â¥^³¯Â¥";
	
	grd_rsrvlist.rebuild();
	grd_rsrvlist.refresh();
	
	model.makeValue("/root/send/opdd", model.getValue("/root/main/cond/opcnfmdd"));
	submit("TRMNP06501");
	
	
	var maxa = "";
	var maxp = "";
	
	var bed_maxa = model.getValue("/root/rsrv/rsrv[flag = 'BEDCAPA']/maxa");
	if(bed_maxa == "") bed_maxa = 0;
	var bed_maxp = model.getValue("/root/rsrv/rsrv[flag = 'BEDCAPA']/maxp");

	maxa = bed_maxa;
	maxp = bed_maxp;
	
	//ȯÀÚ ¿¹¾àÈÄ bed¼ö ÁÙÀÏ °æ¿ì, ȯÀÚ¼ö max·Î Ä÷³»ý¼ºÇÔ_20090803_SMY
	var pat_maxa = model.getValue("/root/rsrv/rsrv[flag = 'PATCAPA']/maxa");
	if(pat_maxa == "") pat_maxa = 0;
	var pat_maxp = model.getValue("/root/rsrv/rsrv[flag = 'PATCAPA']/maxp");
	if(Number(pat_maxa) > Number(maxa)){
		maxa = pat_maxa;
	}
	if(Number(pat_maxp) > Number(maxp)){
		maxp = pat_maxp;
	}
	
	//grd_rsrvlist.addColumn(false);
	
	var ampmflag = model.getValue("/root/main/cond/ampmflag");
	
	var coltype = "output";
	var nodename = "a";
	
	/*
	if ( maxa != "" && grd_rsrvlist.cols < 3 ){
		fAddCol( maxa, "/root/main/dcc/dccList", "/root/temp/grid", grd_rsrvlist, nodename, coltype, "¿ÀÀü");
	}
		
	var nodename2 = "p";
	if ( maxp != "" && grd_rsrvlist.cols < parseInt(maxa)*2 + 3 ){
		fAddCol( maxp, "/root/main/dcc/dccList", "/root/temp/grid", grd_rsrvlist, nodename2, coltype, "¿ÀÈÄ" );
		
	}*/
	if ( maxa != "0"  ){
		fAddCol( maxa, "/root/main/dcc/dccList", "/root/temp/grid", grd_rsrvlist, nodename, coltype);
		//ĸ¼Ç ¼öÁ¤
		for ( i=0; i< maxa*2; i++){
		  grd_rsrvlist.caption = grd_rsrvlist.caption +"^"+"¿ÀÀü";
		}
	}
		
	var nodename2 = "p";
	if ( maxp != "" ){
		fAddCol( maxp, "/root/main/dcc/dccList", "/root/temp/grid", grd_rsrvlist, nodename2, coltype);
		
		//grd_rsrvlist.caption = "³¯Â¥^³¯Â¥^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ^¿ÀÈÄ";
		
		for ( i=0; i< maxp*2; i++){
			grd_rsrvlist.caption = grd_rsrvlist.caption +"^"+"¿ÀÈÄ";
		}
	}
	
	var nodeCnt = getNodesetCount("/root/rsrv/bedlist");
	var pNodeCnt = getNodesetCount("/root/rsrv/pat");
	
	var amPatCnt = 0;		//¿ÀÀü ¿¹¾à¸í¼ö_20090803_SMYÃß°¡
	var pmPatCnt = 0;		//¿ÀÈÄ ¿¹¾à¸í¼ö_20090803_SMYÃß°¡
		
	for(var i = 1; i <= nodeCnt; i++){
		var k = 1;
		grd_rsrvlist.addRow(true, true);
		
		grd_rsrvlist.valueMatrix(i, 1) = model.getValue("/root/rsrv/bedlist["+i+"]/opdate");
		var ambed = model.getValue("/root/rsrv/bedlist["+i+"]/ambed");
		var pmbed = model.getValue("/root/rsrv/bedlist["+i+"]/pmbed");
		
		var startCol = "1";
		var pstartCol = parseInt(maxa);
		
		
		if(ambed != ""){
			startCol = parseInt(ambed)*2;
		}else{
			startCol = 0;
		}
		if( maxa != "0"){
			
			grd_rsrvlist.cellStyle("background-color", parseInt(i), parseInt(startCol)+2, parseInt(i), parseInt(maxa)*2+1) = "#BEBEBE";
		}
		
		if(pmbed != "" ){
			
			pstartCol = (parseInt(maxa)+parseInt(pmbed))*2;
		}
		if( maxp != "")
		{
			grd_rsrvlist.cellStyle("background-color", parseInt(i), parseInt(pstartCol)+2, parseInt(i), (parseInt(maxp)+parseInt(maxa))*2+1) = "#BEBEBE";
		}
		
		var ampmflag = model.getValue("/root/main/cond/ampmflag");
		var k, l= 1;
		
		for(var j = 0; j <= pNodeCnt; j++){
			
			var inhopedd = model.getValue("/root/rsrv/pat["+j+"]/inhopedd");
			var abbrhngnm = model.getValue("/root/rsrv/pat["+j+"]/abbrhngnm");
			var ampm = model.getValue("/root/rsrv/pat["+j+"]/ampm");
			var patinfo = model.getValue("/root/rsrv/pat["+j+"]/patinfo");
			
			//var k, l= 1;
			//alert(model.getValue("/root/rsrv/bedlist["+i+"]/opdate")+" <> "+scheopdd);
			if( model.getValue("/root/rsrv/bedlist["+i+"]/opdate") == inhopedd && abbrhngnm != "" && ampm == "1" && ampmflag != "P"){
				grd_rsrvlist.valueMatrix(i,k*2) = abbrhngnm;
				grd_rsrvlist.valueMatrix(i,k*2+1) = patinfo;
				k++;
				amPatCnt++;
				
			}else if( model.getValue("/root/rsrv/bedlist["+i+"]/opdate") == inhopedd && abbrhngnm != "" && ampm == "2" && ampmflag != "A"){
				grd_rsrvlist.valueMatrix(i, (maxa*2) + (l*2)) = abbrhngnm;
				grd_rsrvlist.valueMatrix(i, (maxa*2) + (l*2+1)) = patinfo;
				l++;	
				pmPatCnt++;
		
			}
			// °øÁö»çÇ× 
			if(model.getValue("/root/rsrv/bedlist["+i+"]/opdate") == "0"){
				model.makeValue("/root/send/remark", model.getValue("/root/rsrv/bedlist["+i+"]/remark"));
			}
			
		}
	
		//¿ÀÀü, ¿ÀÈÄ, Àüü ¿¹¾à¸í¼ö¼ÂÆÃ_20090803_SMYÃß°¡
		model.setValue("/root/main/cond/ampatcnt",  amPatCnt);
		model.setValue("/root/main/cond/pmpatcnt",  pmPatCnt);
		model.setValue("/root/main/cond/totpatcnt", amPatCnt+pmPatCnt);
		
		
		grd_rsrvlist.valueMatrix(i, 0) = grd_rsrvlist.valueMatrix(i, 1).substr(6, 2) + 
		"("+ grd_rsrvlist.valueMatrix(i, 1).toDate().getDayOfWeek("K") + ")";
		
	}
		
	if(grd_rsrvlist.valueMatrix(1, 1) == "0"){
		grd_rsrvlist.deleteRow(1);	
	}
	
	for(var i = 1; i < grd_rsrvlist.cols; i++){
	  grd_rsrvlist.colWidth(i) = 70;
	}
	
	for(var i = 1; i < grd_rsrvlist.cols; i++){
		grd_rsrvlist.colWidth(2*i-1) = 0;
	}
	
	// ³¯Â¥ ÇÏ´Ü¿¡ ¿¬¹ø»ý¼º¿äû_20090721
	var k=0;
	grd_rsrvlist.insertItem(1);
	grd_rsrvlist.valueMatrix(1, 0) = "¿¬¹ø";
	for(var i=1; i<=2*maxa; i++){
		grd_rsrvlist.valueMatrix(1, i) = k;
		if((i%2)==1){
			k++;
		}
	}
	k=0;
	for(var i=(2*maxa)+1; i<=grd_rsrvlist.cols; i++){
		grd_rsrvlist.valueMatrix(1, i) = k;
		if((i%2)==1){
			k++;
		}
	}
  grd_rsrvlist.frozenRows = 1; // ¿¬¹ørow Fix
  grd_rsrvlist.frozenCols = 1; // ³¯Â¥col Fix
  // grd_rsrvlist.rowstyle(1, "all", "background-color") = "#66ffff"; //¿¬¹ørow Color
  grd_rsrvlist.cellstyle("background-color", 1, 0, 1, 0) = "#aad4ff";
  grd_rsrvlist.cellstyle("background-color", 1, 1, 1, parseInt(2*maxa)) = "#ffd9ff"// "#02e6fc";
  grd_rsrvlist.cellstyle("background-color", 1, parseInt(2*maxa)+1, 1, parseInt(grd_rsrvlist.cols)-1) = "#96f5fe";
  
  // ³¯Â¥Ä÷³ »ö»óÁöÁ¤(Åä¿äÀÏ:ÆĶõ»ö/±×¿Ü ÀÏ¿äÀÏ Æ÷ÇÔ ÈÞÀÏ:»¡°£»ö)
  for(var i=0; i<=grd_rsrvlist.rows; i++){
  	var dutflag = model.getValue("/root/rsrv/bedlist["+i+"]/dutflag");
  	if(dutflag == "4"){ // Åä¿äÀÏ:ÆĶõ»ö
  		grd_rsrvlist.cellstyle("background-color", i, 0) = "#3366ff";
  	}else if(dutflag == "8"){ // ±×¿Ü ÀÏ¿äÀÏ Æ÷ÇÔ ÈÞÀÏ:»¡°£»ö
  		grd_rsrvlist.cellstyle("background-color", i, 0) = "red";
  	}
  }
	
	grd_rsrvlist.visible = true;
	model.refresh();
	
}



 /* --------------------------------------------------*/
 /* type   : function                                 */
 /* access : public                                   */
 /* desc   : ȯÀÚÁ¤º¸ °¡Á®¿À±â                        */
 /* param  : °Ë»ö±¸ºÐ                                 */
 /* return :                                          */
 /* --------------------------------------------------*/

 function fSearchPatInfo(qryflag) {

      modal("../../../pam/patinfomngtweb/xrw/SPPMC02500", qryflag,"150", "150", "SPPMC02500", "/root/source", "/root/send");

	  //ȯÀÚ¹øÈ£ copy
	  var popupendflag = model.getValue("/root/main/popupendflag");
	  if (popupendflag == "ok"){
	  	model.setValue("/root/main/rghtref/rghtreflist/pid",model.getValue("/root/main/patinfo/patinfolist/pid"));
	  	model.refresh();
	    var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
	    if (pid != null && pid != "" && pid != " " && pid != "-"){
	  		fpidref();
	  	}
	  }
 }



 /* --------------------------------------------------*/
 /* type   : function                                 */
 /* access : public                                   */
 /* desc   : µî·Ï¹øÈ£¿¡ µû¸¥ ȯÀÚÁ¤º¸ °Ë»ö            */
 /* param  :                                          */
 /* return :                                          */
 /* --------------------------------------------------*/

function fpidref(){
  model.removeNodeset("/root/send");
  var pid = ipt_pid.value
  model.makeValue("/root/send/pid",pid);

  if(submit("TRMNI00102")){
    var hngnm=model.getValue("/root/main/rghtref/rghtreflist/hngnm");
    //µ¥ÀÌŸ°¡ ¾øÀ»½Ã ÀÌÀü Ãâ·Â ³»¿ë »èÁ¦.
    if(hngnm==""){
      opt_hngnm.value="";
      opt_gndrage.value="";
      opt_rrgstno.value="";

      opt_hngnm.refresh();
      opt_gndrage.refresh();
      opt_rrgstno.refresh();
      model.makeValue("/root/main/rghtref/rghtreflist/pid","");
      return;
    }
  }
}



 // --------------------------------------------------
 // Æ˾÷¸Þ´º
 // --------------------------------------------------
function fShowPopupMenu(gridID, menuPath)
{
	var gridObj = document.controls.item(gridID);

	if(event.button == 3) {
		if(gridObj.isCell(event.target) && gridObj.mouseRow >= gridObj.fixedrows){
			window.setPopupMenu(true, menuPath, "name", "func", false);
		}else{
			window.setPopupMenu(false);
		}
	}
}



function fAddCol( colCnt, nodeset, copyNodeset, pGrid, nodename, coltype)
{
	var oldColCnt = parseInt(pGrid.cols);
	
	for ( i=0; i<colCnt*2; i++)
	{
		oldColCnt++;
		
		if ( coltype == null || coltype=="" )
			coltype = "output";
		
		//Ä÷³ »ý¼º
		pGrid.insertColumn(i,"ref:"+(nodename + oldColCnt)+"; type:"+coltype+";" + "style:text-align:center; vertical-align:middle;", "after", "false");
		
		//copynodeÇÒ ¿øº» ³ëµå¼Â¿¡µµ »ý¼ºµÈ ÀÚ½Ä ³ëµå Ãß°¡
		model.makeNode(copyNodeset+"/" +(nodename + oldColCnt));
	}
	pGrid.refresh();
}

function fShowPatInfo(){
	var cur_Row = grd_rsrvlist.row;
	var cur_Col = grd_rsrvlist.col;
	
	var param = grd_rsrvlist.valueMatrix(cur_Row, parseInt(cur_Col)+1);
	
	setParameter("patSum", param);
	
	modal("SPMNP06600");
}

function fShowPrcpInfo(){
	model.removeNodeset("/root/send");
	var cur_Row = grd_rsrvlist.row;
	var cur_Col = grd_rsrvlist.col;
	
	var param = grd_rsrvlist.valueMatrix(cur_Row, parseInt(cur_Col)+1);
	patarray = param.split(",");
	
  model.makeValue ( "/root/send/cond1", patarray[0]); // pid
	model.makeValue ( "/root/send/cond2", getUserInfo("dutplceinstcd"));
	model.makeValue ( "/root/send/cond3", getCurrentDate());
	submit ( "TRMMO00129", false );   
					
	// ¿Ü·¡¿¹¾àó¹æÁ¤º¸ Á¸Àç½Ã ¿Ü·¡¿¹¾àó¹æ ÀúÀåÈ­¸é È£Ãâ
  var srcNodeList = model.instances(0).selectNodes ("/root/result/prcplist");	
  var sParamPid         = patarray[0];
  //var sParamIndd        = patarray[5];
  //var sParamCretno      = patarray[6];
  //var sParamIoflag      = patarray[7];
  //var sParamActcertdrid = patarray[8];
  var sParamSexAge      = patarray[2];
  var sParamPatNm       = patarray[1];
  
  if ( srcNodeList.length > 0 ) { 
  	//if(sParamPid == "" || sParamIndd == "" || sParamCretno == "" || sParamIoflag == "" || sParamActcertdrid == "" || sParamPatNm == "") return "E" ;
  	
    setParameter ( "SPMMO18200_pid"            , sParamPid            );
    //setParameter ( "SPMMO18200_orddd"          , sParamIndd           );
    //setParameter ( "SPMMO18200_cretno"         , sParamCretno         );
    setParameter ( "SPMMO18200_prcpdd"         , getCurrentDate()     );
    setParameter ( "SPMMO18200_prcpinptflag"   , "00"                 ); // Àӽ÷Π09ÀÓ. ÃßÈÄ ¹øÈ£¹èÁ¤µÇ¾î ¼öÁ¤ÇؾßÇÔ.
    //setParameter ( "SPMMO18200_ioflag"         , sParamIoflag         );
    setParameter ( "SPMMO18200_prcpkindcd"     , "00"                 );		
    setParameter ( "SPMMO18200_prcpsignflag"   , "1"                  ); // ÇÊ¿ä½Ã Àû¿ë_ó¹æ¼­¸í±¸ºÐ(0:ÀÎÁõ¾ÈµÊ, 1:Àǻ簡 ÈÄÀÎÁõ, 2:ÀÎÁõ¿Ï·á(default))
    setParameter ( "SPMMO18200_aftcertflag"    , "12"                 ); // ÇÊ¿ä½Ã Àû¿ë_ÈÄÀÎÁõ¿©ºÎ
    //setParameter ( "SPMMO18200_aftcertdrid"    , sParamActcertdrid    ); // ÇÊ¿ä½Ã Àû¿ë_ÈÄÀÎÁõÀÇ»çID chngmedispclid
    setParameter ( "SPMMO18200_title"          , "ȯÀÚ¹øÈ£: " +  sParamPid + " ȯÀÚ¸í : " + sParamPatNm + " S/A : " + sParamSexAge);
    setParameter ( "SPMMO18200_savebtn"          , "Y");
    //setParameter ( "SPMMO18200_prcpstatcd", "000"); //ÇÊ¿ä½Ã Àû¿ë
    //setParameter ( "SPMMO18200_oprsrvno", "0");     //ÇÊ¿ä½Ã Àû¿ë
    //setParameter ( "SPMMO18200_prcpauthflag", "0"); //ÇÊ¿ä½Ã Àû¿ë
    setParameter ( "SPMMO18200_select"         , "Y");		//Á¶È¸½Ã ÀúÀå¹öÆ° disable_20090806_SMYÃß°¡
   
    var xpt = window.screenleft + 200;
    var ypt = window.screenTop + 100;
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];

    modal ( "SPMMO18200", mon,  xpt, ypt, "SPMMO01000", "/root/result", "/root/result", "", false );  // ¿Ü·¡¿¹¾àó¹æ ÀúÀåÈ­¸é È£Ãâ
    
    clearParameter ( "SPMMO18200_pid" );
    clearParameter ( "SPMMO18200_orddd" );
    clearParameter ( "SPMMO18200_cretno" );
    clearParameter ( "SPMMO18200_prcpdd" );
    clearParameter ( "SPMMO18200_prcpinptflag" );
    clearParameter ( "SPMMO18200_ioflag" );
    clearParameter ( "SPMMO18200_prcpkindcd" );
    clearParameter ( "SPMMO18200_prcpsignflag" );
    clearParameter ( "SPMMO18200_aftcertflag" );
    clearParameter ( "SPMMO18200_aftcertdrid" );
    clearParameter ( "SPMMO18200_savebtn" );
    
    return getParameter("SPMMO18200_rtnyn");
  }else{
    return "X";
  }
}

//ȯÀÚÁø·áÁ¤º¸Á¶È¸ Æ˾÷_20090803_SMYÃß°¡
function fShowPatOrdInfo(){
	var cur_Row = grd_rsrvlist.row;
	var cur_Col = grd_rsrvlist.col;
	
	var param = grd_rsrvlist.valueMatrix(cur_Row, parseInt(cur_Col)+1);
	patarray = param.split(",");
	var pid = patarray[0];

    setParameter("SMMMO02500_cond", pid);
	modal("SMMMO02500");
	
}


//fInqurySelectedPrgm
 /* -------------------------------------------------  */
 /* ------End Of List -------------------------------  */
 /* -------------------------------------------------- */