/* ---------------------------------------------------------------------

      DSC MAIN µî·Ï (SMMNP06000.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01
              : Create By  Francis Choi
              : 2015.05.02
   ----------------------------------------------------------------------  */

 // --------------------------------------------------
 // È­¸é 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 sort_field = "depthngnm";
  var sort_method = "asc";
	rdo_dschflag.value = 'D';

  fGetNursHardCdInfo("'049', '077'", ipt_opcnfmdd.value);

  if(getNodesetCnt(model, "/root/code/codeinfo/codelist/cdid") < 1 ){
  	messageBox("ºÎ¼­ ¼¼Æà ±âÁØÀڷḦ È®ÀÎÇϽñ⠹ٶø´Ï´Ù.", "I000");
  	return;
  }

	model.setValue("/root/main/cond/prestimportid", getScreenMenuParameter());		// tab ±âº»°ª (DSC Main)
	model.setValue("/root/main/cond/wardcd", model.getValue("/root/code/codeinfo/codelist/cdid"));
	model.toggle("case_dm");

	zbcfGetDeptCodeList(instcd, standard_yn, ord_deptflag, rslt_ref, sort_field, sort_method);
	zbcfGetCodeList(new Array("M0065"), new Array("/root/init/M0065list"));			//¼ö¼úȯÀÚÀÇ ÇöÀç À§Ä¡ Àå¼Ò¿¡ ´ëÇÑ Á¾·ù

	model.removenode("/root/send");
	model.makeNode("/root/send");
	model.makeValue("/root/send/opcnfmdd" ,ipt_opcnfmdd.value );


	submit("TRMNP06301");

	fInqurySelectedPrgm(); // ¿ÀÇ½à ¼ö¼úÈ®Á¤¸®½ºÆ® Á¶È¸
	grd_dscList.frozenCols = grd_dscList.colRef("indschstat");

  // ¹ÙÄÚµåOCX »ý¼º
  lzzfMakeBrcdPrntObjHanDo("CommAX");
}

 // --------------------------------------------------
 // Á¶È¸ Ŭ¸¯½Ã ÅÇ»óÅ°ª¿¡ µû¸¥ Á¶È¸
 // --------------------------------------------------
function fInqurySelectedPrgm()
{
	switch(model.getValue("/root/main/cond/prestimportid")) {
		// ¿Ü·¡¿¹¾àó¹æÀü¼ÛÅÇ Ãß°¡_20090804
	    case "rp" :
			btn_rp.selected    = true; //¿¹¾àó¹æÀü¼ÛÅÇ È°¼ºÈ­
		//	cap_color.visible  = false;
		//	cap_uncnfm.visible = false;
		//	cap_prcp.visible   = false;

			//»ó´ÜÁ¤º¸ ¹Þ¾Æ¿È
      var paminfo = getGlobalVariable("paminfo");
      if(paminfo.length > 0) {	//¿ø¹« Á¤º¸(±âº» Á¤º¸)°¡ ÀÖ´Â °æ¿ì
         //¼³Á¤µÈ »ó´ÜÁ¤º¸¸¦ ºÒ·¯¿È
         model.removenode("/root/main_om/paminfo");
         model.makeNode("/root/main_om/paminfo");
         setCSVToNode("/root/main_om/paminfo", paminfo);

         //»ó´Ü Á¤º¸¸¦ ÀÌ¿ëÇÏ¿© ÇÁ·Î±×·¥ ¼öÇà
         var pid        = model.getValue("/root/main_om/paminfo/list/pid");
         var indd       = model.getValue("/root/main_om/paminfo/list/indd");
         var cretno     = model.getValue("/root/main_om/paminfo/list/cretno");
         var ordtype    = model.getValue("/root/main_om/paminfo/list/ioflag");
         var medispclid = model.getValue("/root/main_om/paminfo/list/medispclid");
         var sexage     = model.getValue("/root/main_om/paminfo/list/sex")+"/"+model.getValue("/root/main_om/paminfo/list/age");
         var hngnm      = model.getValue("/root/main_om/paminfo/list/hngnm");
         var roomcd     = model.getValue("/root/main_om/paminfo/list/roomcd");

			   model.toggle("case_rp");
			   fGetRsrvPrcpChemo(pid, indd, cretno, ordtype, medispclid, roomcd, sexage, hngnm);
		  }else{
			   messageBox("ȯÀÚ°¡ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.","I");
		  }
			break;

		case "om": // Order Manage È£Ãâ
			btn_om.selected = true;

		//cap_color.visible = true;
		//cap_uncnfm.visible = true;
		//cap_prcp.visible = true;

			cap_color.attribute("left") = "15px";
			cap_uncnfm.attribute("left") = "35px";
			cap_prcp.attribute("left") = "120px";
			cap_prcp.attribute("color") = "#0000ff";

			fnOrderManageParam();																	//(20080417)
			//model.setValue("/root/main/cond/orddd", model.getValue("/root/main/cond/opcnfmdd"));  // ¾÷¹«ÀÏÀÚ(20080417)

			// DCC¿ë Á¶È¸Á¶°Ç Ãß°¡
			model.makeValue("/root/main_om/cond/dschflag", model.getValue("/root/main/cond/dschflag"));
			model.makeValue("/root/main_om/cond/ampmflag", model.getValue("/root/main/cond/ampmflag"));
			model.toggle("case_om");  //Order Manage
			fGetOMPatList("dcc");
			//fGetOMPatList();
			break;

		case "prn": //Order ManageÀÇ Prn ó¹æÀ» Direct È£Ãâ
			btn_om.selected = true;

		//	cap_color.visible = false;
		//	cap_uncnfm.visible = false;
		//	cap_prcp.visible = true;
			cap_ser.visible = false;
			cap_prcp.attribute("left") = "698px";
			cap_prcp.attribute("color") = "#000000";

			fnOrderManageParam();																	//(20080417)
			//model.setValue("/root/main/cond/orddd", model.getValue("/root/main/cond/opcnfmdd"));  // ¾÷¹«ÀÏÀÚ(20080417)
			model.toggle("case_om");  //Order Manage
			fSetPrnMode();
			fGetOMPatList("dcc");
			break;

		default:
			btn_dm.selected = true;

			//cap_color.visible = false;
			//cap_uncnfm.visible = false;
			//cap_prcp.visible = false;

			model.toggle("case_dm");  //DSC Main
			fDscDataRead();
			break;
	}
}

 /* --------------------------------------------------*/
 /* type   : function                                 */
 /* access : public                                   */
 /* desc   : order manage tabŬ¸¯½Ã Ãß°¡Á¤º¸ ³Ñ±è     */
 /* param  : ±â°üÄÚµå                                 */
 /* return :                                          */
 /* --------------------------------------------------*/

function fnOrderManageParam() {
	//(20080417)
	var pGrd = grd_dscList;
	var opcnfmdd = "";
	var statflag1 = "";
	var statflag2 = "";
	var sPath = "/root/main/cond";

	// ¾÷¹«ÀÏÀÚ
	opcnfmdd = model.getValue(sPath + "/opcnfmdd");
	model.setValue( sPath + "/orddd", opcnfmdd );

	/*
	//Àç¿øÁ¤º¸
	statflag1 = model.getValue( "/root/main/dsc/dscList["+pGrd.row+"]/INDSCHSTAT")

	if (statflag1 = "¨Ð" ) 		statflag2 = "3";			//Åð¿ø¿¹°í
	if (statflag1 = "Åð¿ø" ) 	statflag2 = "4";			//Åð¿ø

	if (statflag2 != "")
		model.setValue( sPath + "/indschacptstat", statflag2);
		*/
}

 /* --------------------------------------------------*/
 /* type   : function                                 */
 /* access : public                                   */
 /* desc   : DSC MainÀ» Á¶È¸                      */
 /* param  : ±â°üÄÚµå                                 */
 /* return :                                          */
 /* --------------------------------------------------*/
function fDscDataRead() {

	//20080917
	grd_dscList.row = 0;
	var blodpreppatlist = "";
	var anticncrppatlist = "";

	fMsgDisp();//¸Þ¼¼Áö Áö¿ì±â

	model.removenode("/root/send");
	model.removeNodeset("/root/main/dsc");

	//model.makeValue("/root/send/"   , cmb_opdeptcd.value );  // ¼öÇàºÎ¼­
	model.makeValue("/root/send/opcnfmdd"   , ipt_opcnfmdd.value   );
	model.makeValue("/root/send/dschflag"    , rdo_dschflag.value    );  // ¼ö¼úȯÀÚ±¸ºÐÄÚµå
	model.makeValue("/root/send/dscflag"    , "D"    );  // ¼ö¼úȯÀÚ±¸ºÐÄÚµå
	model.makeValue("/root/send/opflag"     , rdo_opflag.value     );  // ¼ö¼úÁøÇà

	model.makeValue("/root/send/orddeptcd"  , cmb_orddeptlist.value);  // Áø·á°ú
	model.makeValue("/root/send/drcd"       , cmb_drcd.value       );  // ÁýµµÀÇ
	model.makeValue("/root/send/oproomcd"   , cmb_oproomcd.value   );
	model.makeValue("/root/send/pid"        , ipt_pid.value        );
	model.makeValue("/root/send/ampmflag"   , radio1.value        );

	model.makeValue("/root/send/wardcd" ,model.getValue("/root/main/cond/wardcd"));
	model.makeValue("/root/send/orddd" ,ipt_opcnfmdd.value );

	if(submit("TRMNP06303")){
		var opstatcd ;
		for(var i = 1; i < grd_dscList.rows; i++){

			grd_dscList.removeStatus(i, "update");

			//20080917 ¼ö¼úÃë¼ÒȯÀÚ ºÓÀº»öÀ¸·Î Ç¥½Ã
			opstatcd = model.getValue('/root/main/dsc/dscList[' + i + ']/opstatcd' );
			if(opstatcd == '29'){
				grd_dscList.cellStyle("color", i, grd_dscList.colRef("careinrmdd"), i, grd_dscList.colRef("iprccount")) = "#FF0000";
			}else{
				grd_dscList.cellStyle("color", i, grd_dscList.colRef("careinrmdd"), i, grd_dscList.colRef("iprccount")) = "#000000";
			}

			//Ç÷¾× Ä÷³ À̹ÌÁö»ðÀÔ
			var blodprep = model.getValue("/root/main/dsc/dscList[" + i + "]/blodprepyn");
			if (blodprep == "Y") {
				model.setValue("/root/main/dsc/dscList[" + i + "]/blodprepyn", "");
				grd_dscList.cellstyle("background-image", i , grd_dscList.colRef("blodprepyn")) = "../../../emr/commonweb/images/blood.gif";
			} else {
				grd_dscList.cellstyle("background-image", i , grd_dscList.colRef("blodprepyn")) = "";
			}
		}


		//Ç÷¾×ÁغñȯÀÚ¸®½ºÆ® Á¶ÇÕ
		for(var i = 1;  i <= getNodesetCount("/root/main/dsc/blodprep"); i++) {
			if (i == 1) {
				blodpreppatlist += model.getValue("/root/main/dsc/blodprep["+ i +"]/patnm");
			} else {
				blodpreppatlist += ", "  + model.getValue("/root/main/dsc/blodprep["+ i +"]/patnm");
			}
		}
		model.removeNodeset("/root/main/precondlist/blodpreplist");
		model.makeValue("/root/main/precondlist/blodpreplist", blodpreppatlist);

        //Ç׾Ϲ̽ÂÀÎȯÀÚ¸®½ºÆ® Á¶ÇÕ
		for(var i = 1;  i <= getNodesetCount("/root/main/dsc/anticncr"); i++) {
			if (i == 1) {
				anticncrppatlist += model.getValue("/root/main/dsc/anticncr["+ i +"]/patnm");
			} else {
				anticncrppatlist += ", "  + model.getValue("/root/main/dsc/anticncr["+ i +"]/patnm");
			}
		}
		model.removeNodeset("/root/main/precondlist/anticncrlist");
		model.makeValue("/root/main/precondlist/anticncrlist", anticncrppatlist);

		model.removeNodeset("/root/main/MmohiprcLists/CureList");
		model.removeNodeset("/root/main/MmohiprcLists/CartList");


		model.refresh();
		fInputNo();


	}else{
		messageBox("dccȯÀÚÁ¶È¸¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
		return;
	}

}

//--------------------
//(20080129)
//--------------------
// °£È£Åð¿øÈ®Á¤ÀÌÈÄ´Â ÀԽǽð£/Åð½Ç½Ã°£º¯°æ ºÒ°¡·Î 󸮿¹Á¤
function fInputNo() {
	  if(model.getValue("/root/main/cond/dschflag") == "D"){

  	//-----------------------------------------------
	  //¼±ÅúҰ¡·Î º¯°æ
	  //-----------------------------------------------
	  var pGrd = grd_dscList;
  	if (pGrd.rows <= 1 ) return;

	  //ÀüºÎ ¼öÁ¤ºÒ°¡
	  pGrd.isReadOnly(1,pGrd.colRef("careinrmdd"),pGrd.rows-1,pGrd.colRef("careinrmdd"))= true;
	  pGrd.isReadOnly(1,pGrd.colRef("dschdd"),pGrd.rows-1,pGrd.colRef("dschdd"))= true;

	  for (var row=1;row<pGrd.rows;row++) {
	  	var temp = model.getValue("/root/main/dsc/dscList[" + row + "]/indschstat");
	  	var careinrmdd = model.getValue("/root/main/dsc/dscList[" + row + "]/careinrmdd");
		  var dschdd = model.getValue("/root/main/dsc/dscList[" + row + "]/dschdd");
		   //if  (false == finputCheck(temp)) {
		   //if  (false == finputCheck(careinrmdd, dschdd)) {
		  if((careinrmdd != "--" || careinrmdd != "-" || careinrmdd != "") && (dschdd == "-" || dschdd == "")){
			  pGrd.isReadOnly(row,pGrd.colRef("careinrmdd"),row,pGrd.colRef("careinrmdd")) = false;  //ÀԷ°¡´É
		  }else if((dschdd != "-" || dschdd != "")){
		  	pGrd.isReadOnly(row,pGrd.colRef("dschdd"),row,pGrd.colRef("dschdd")) = false;  //ÀԷ°¡´É
		  }
	  }
   }
}

//function finputCheck(temp) {
function finputCheck(careinrmdd, dschdd) {
	//if  ( temp == "¨Ð" || temp == "") {
	if((careinrmdd != "--" || careinrmdd != "-" || careinrmdd != "") && (dschdd == "-" || dschdd == "")){
		return true;			//¼öÁ¤°¡´É(ÀÔ½ÇÀÌÈÄ~Åð½ÇÀÌÀü)
	} else {
		return false;			//¼öÁ¤ºÒ°¡
	}
}


 /* --------------------------------------------------*/
 /* type   : function                                 */
 /* access : public                                   */
 /* desc   : ó¹æ»ó¼¼³»¿ª Á¶È¸Ç챉                    */
 /* param  : row                                      */
 /* return :                                          */
 /* --------------------------------------------------*/

 function fDscDataView(pRow) {
			var tPath = "/root/main/dscdetl/";
			var sPath = "/root/main/dsc/dscList["+pRow+"]/";

			model.removenode("/root/send");
			model.removeNodeset("/root/main/MmohiprcLists");

			model.makeValue("/root/send/instcd"  , ""                             );     // ±â°üÄÚµå
			model.makeValue("/root/send/pid"     , model.getValue(sPath +"pid"   ));     // µî·Ï(ȯÀÚ)¹øÈ£
			model.makeValue("/root/send/orddd"   , model.getValue(sPath +"indd"  ));     // Áø·á(ÀÔ¿ø)ÀÏÀÚ
			model.makeValue("/root/send/cretno"  , model.getValue(sPath +"cretno"));     // »ý¼º¹øÈ£
			model.makeValue("/root/send/oprsrvno", model.getValue(sPath +"oprsrvno"));   // ¼ö¼ú¿¹¾à¹øÈ£

          if (submit("TRMNP06304")) {
              //messageBox("ÀÚ·á Á¶È¸°¡ ", "I002");
          } else {
              //grd_dscList.refresh();
          }

		  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 fSetIntime()
{
	var pRow = grd_dscList.row;
	var sPath = "/root/main/dsc/dscList["+pRow+"]";

  var tmpcareinrmdd = model.getValue(sPath + "/tmpcareinrmdd");
  var indd   = model.getValue(sPath + "/indd");
	var dschdd = model.getValue(sPath + "/dschdd");
	if((tmpcareinrmdd != '--') && (tmpcareinrmdd != '-') && (tmpcareinrmdd != '')){
		messageBox("ÀÌ¹Ì ÀÔ½Çó¸®µÈ ȯÀÚÀÔ´Ï´Ù.", "E999", "");
		return;
	}
	if(indd != getCurrentDate()){
		messageBox("ÀԽǵî·ÏÀº ÀÔ¿ø´çÀÏ¿¡¸¸ °¡´ÉÇÕ´Ï´Ù.", "E999", "");
		return;
	}
	if((dschdd != '-') && (dschdd != '')){
		messageBox("ÀÌ¹Ì Åð½Çó¸®µÈ ȯÀÚÀÔ´Ï´Ù.", "E999", "");
		return;
	}

	model.setValue(sPath+"/careinrmdd", getCurrentDate()+""+getCurrentTime().substring(0,4));
	grd_dscList.addStatus(pRow, "update");

  // Ãß°¡_20090623
  /*
  var rtnMsg = messageBox(model.getValue(sPath+"/pid")+" "+model.getValue(sPath+"/hngnm")+"("+model.getValue(sPath+"/sexage")+") ÀԽǵî·Ï", "Q004");
  if("6" == rtnMsg){
    model.removenode("/root/send");
    model.removenode("/root/rtndata/dsc");
    model.makeNode("/root/send/dscList");
    model.copyNode("/root/send/dscList", sPath);  // model.makeValue("/root/send/dscList", grd_dscList.getUpdateData());
  	if(submit("TXMNP06301", false) == true) {
	  	fGetRsrvPrcp(pRow); // ¿Ü·¡¿¹¾àó¹æÁ¶È¸
		  fOpenPatBC();   // ȯÀÚÆÈÂîÃâ·Â
	  }
  }
  */

  //ÀԽǵî·Ï Æ˾÷»ý¼º_20090803_SMY
  clearParameter("Patinfo");
  clearParameter("ChkYN");
  clearParameter("CareinrmDD");
  clearParameter("CareinrmTM");

  var patinfo_msg = model.getValue(sPath+"/pid")+" "+model.getValue(sPath+"/hngnm")+"("+model.getValue(sPath+"/sexage")+")";
  setParameter("Patinfo", patinfo_msg);
  var monNo = getCurrentMonitorNumber(); // ÇöÀç¸ð´ÏÅ͹øÈ£
  modal("SPMNP06700", monNo, "400", "400");

  var ChkYN      = getParameter("ChkYN");
  var CareinrmDD = getParameter("CareinrmDD");
  var CareinrmTM = getParameter("CareinrmTM");
  if(ChkYN == "Y"){
  	model.setValue(sPath + "/careinrmdd", CareinrmDD + CareinrmTM);

    model.removenode("/root/send");
    model.removenode("/root/rtndata/dsc");
    model.makeNode("/root/send/dscList");
    model.copyNode("/root/send/dscList", sPath);  // model.makeValue("/root/send/dscList", grd_dscList.getUpdateData());

    if(submit("TXMNP06301", false) == true) {
    // ¿¹¾àó¹æÀü¼Û tab Ãß°¡·Î ÀÎÇØ Æ˾÷È­¸é ±â´É »èÁ¦_20090804
	  //	fGetRsrvPrcp(pRow); // ¿Ü·¡¿¹¾àó¹æÁ¶È¸
		  //fOpenPatBC();   // ȯÀÚÆÈÂîÃâ·Â  -- ±è¼÷ÀÎ ITC ¿äû 20091029
	}
  }
  fDscDataRead();  // Á¶È¸
}


 // --------------------------------------------------
 // ÀúÀåÇÑ °£È£ÀԽǽð£À» Áö¿ì´Â °æ¿ì
 // ÀԽǽð¢ Ãë¼Ò
 // --------------------------------------------------
function fClsIntime()
{
	var pRow = grd_dscList.row;
	var sPath = "/root/main/dsc/dscList["+pRow+"]";

	var temp = model.getValue("/root/main/dsc/dscList[" + pRow + "]/indschstat");
	if(temp != '') {
		messageBox("Àç¿ø»óŸ¦ È®ÀÎÇϽʽÿÀ.", "E999", "");
		return;
	}

	if(model.getValue(sPath + "/pid") != "") {	//¼±ÅÃµÈ È¯ÀÚ°¡ ÀÖ´Â °æ¿ì
		model.setValue(sPath + "/careinrmdd", '');
		grd_dscList.addStatus(pRow, "update");
		model.refresh();
	}
}


 // --------------------------------------------------
 // ȯÀÚÆÈÂî ÀçÃâ·Â  - 20091027 by ¹Ú¿µ¿ì
 // --------------------------------------------------
function fOpenPatBC()
{
/*
	var pRow = grd_dscList.row;
	var sPath = "/root/main/dsc/dscList["+pRow+"]/";
*/
	//20080905 Ãß°¡
	//portÁ¤º¸ °¡Á®¿À±â
	model.removenode('/root/send');
	model.removenode('/root/main/barcdprntsetup');
	model.makenode('/root/main/barcdprntsetup');
	model.makeValue('/root/send/scrnid', 'SMMNR00600');
	var comport = '1';
	if(submit('TRLLC90101')){
		comport = model.getValue('/root/main/barcdprntsetup/prntsetupinfo/setupinfo[1]/comm02/comm');
	}

	// ȯÀÚÁ¤º¸ »ó´ÜÀ¸·Î..
	fSetPatInfo();

	//¼³Á¤µÈ »ó´ÜÁ¤º¸¸¦ ºÒ·¯¿È
	model.makeNode("/root/main/paminfo");
	var node = getGlobalVariable("paminfo");
	setCSVToNode("/root/main/paminfo", node);

	var pid, indd, cretno, mskind, histstat;

/*
	//patinfo Á¤º¸ ¼ÂÆÃ
	pid =  model.getValue(sPath +"pid");
	indd = model.getValue(sPath +"indd"  );
	cretno = model.getValue(sPath +"cretno");
	mskind = model.getValue(sPath +"mskind");
	histstat = model.getValue(sPath +"histstat");
*/

	// ¹ÙÄÚµåOCX »ý¼º
	//2. ¹ÙÄÚµå ¶óº§ È¯°æ¼³Á¤
	  var barcdRef 	=  "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
	  lzzfMakeBrcdPrntObjHanDo("CommAX", barcdRef);

//								if(document.all("CommAX") == null){
//									lzzfMakeBrcdPrntObjHanDo("CommAX");
//								}

	pid =  model.getValue("/root/main/paminfo/list/pid");
	indd = model.getValue("/root/main/paminfo/list/indd");
	cretno = model.getValue("/root/main/paminfo/list/cretno");
	mskind = model.getValue("/root/main/paminfo/list/mskind");
	histstat = model.getValue("/root/main/paminfo/list/histstat");

	 model.makeNode("/root/send/data17");
	 model.makeNode("/root/hidden/h_receipt");
	 model.makeNode("/root/hidden/h_receipt/receipt");

	//¿ø¹« ¸Þ¼Òµå È£Ãâ
	//fInPatBarCodePrn(pid, indd, cretno, mskind, histstat, comport);
	pmifPrintBarCode(pid, indd, cretno, mskind, histstat, "N", "SMMNR00600", barcdRef);
}

 // --------------------------------------------------
 // ÀÓ»ó°üÂû ±â·Ï - SMMNR00900
 // --------------------------------------------------
function fOpenClincObsRec() {
	fSetPatInfo();
	modal("SMMNR00900","1","20","128");
}

 // --------------------------------------------------
 // °£È£±â·ÏTypeII ¿ÀÇ  -- 1Â÷ ¿ÀÇ¿¡¼­ Á¦¿ÜµÊ
 // --------------------------------------------------
function fOpenNursingRecord()
{
	fSetPatInfo();

    var sPath = "/root/main/dsc/dscList["+grd_dscList.row+"]";
	var parammsg = "recflag¢Ëdutplaccd¢Ëreclnkkey¢Ì1¢Ë024¢Ë"
	                + model.getValue(sPath+"/pid")+","
	                + model.getValue(sPath+"/indd")+","
					+ model.getValue(sPath+"/cretno")+","
	                + model.getValue(sPath+"/instcd")+"¢Ì"

	setParameter("SMMNR03400_ParamBase",parammsg);

	modal("SMMNR03400","1","20","128");
}

 // --------------------------------------------------
 // Åõ¾à±â·Ï - SMMNR00600
 // --------------------------------------------------
function fOpenMediRecord()
{
	fSetPatInfo();
	open("SMMNR00600","1","20","128");
}

 // --------------------------------------------------
 // °£È£Ã³¹æ ¿ÀÇ - SMMNW10900
 // --------------------------------------------------
function fOpenCarePrcp()
{
	fSetPatInfo();
	open("SMMNW10900","1","20","128"); //°£È£Ã³¹æ
}

 // --------------------------------------------------
 // °Ë»ç°á°úÁ¶È¸ ¿ÀÇ - SMAER00800
 // --------------------------------------------------
function fOpenTestRslt()
{
	fSetPatInfo();
	open("SMAER00800","1","20","128");
}

 // --------------------------------------------------
 // ÅëÇÕ±â·Ï Á¶È¸ - SMMRI00400
 // --------------------------------------------------
function fOpenSytsRec()
{
	fSetPatInfo();
	open("SMMRI00400","1","20","128");
}
 // --------------------------------------------------
 // ¼ö¼úÁغñÈ®ÀÎâ ¿ÀÇ - SMMNP00200
 // --------------------------------------------------
function fOpenTPR()
{
	fSetPatInfo();
	setParameter("OpMenu", "W");
	open("SMMNP00200","1","20","128");
}

 // --------------------------------------------------
 // ȯÀÚÁø·á Á¤º¸ - SMMMO02500
 // --------------------------------------------------
function fOpenPatOrd()
{
	fSetPatInfo();
	open("SMMMO02500","1","20","128");
}

 // --------------------------------------------------
 // ¹ÙÄÚµå °ü¸® - SMLLC00200
 // --------------------------------------------------
function fOpenBarCdMngt()
{
	fSetPatInfo();
	open("SMLLC00200","1","20","128");
}

 // --------------------------------------------------
 // °³Àκ° ¿¹¾àÇöȲ Á¶È¸ - SMAEA04100
 // --------------------------------------------------
function fOpenIndRsrv()
{
	fSetPatInfo();
	open("SMAEA04100","1","20","128");
}

 // --------------------------------------------------
 // ¿Ü·¡Áø·á ¿¹¾à - SMPMO00300
 // --------------------------------------------------
function fOpenOutOrdRsrv()
{
	fSetPatInfo();
	open("SMPMO00300","1","20","128");
}

 // --------------------------------------------------
 // Åð½ÇÁ¤¸® ¿ÀÇÂ(20080129) - SMMNP06010
 // --------------------------------------------------
function fOpenOutRm()
{
	var pGrd = grd_dscList;
	//20090123 dhkim
	//itc±è¼÷ÀÎ º¯°æ¿äû»çÇ× ¹Ý¿µ
	//ÀԽǽð¢ÀÌ ÀԷµÇÁö ¾ÊÀº »óÅ¿¡¼­ ¿À¸¥ÂÊ ¸¶¿ì½ºÀÇ Åð½ÇÁ¤¸® ¼±Åýà [ÀÔ½Çüũ ÈÄ Åð½ÇÁ¤¸®°¡ °¡´ÉÇÕ´Ï´Ù.]¶ó´Â blocking¸Þ½ÃÁö¿Í ÇÔ²² Åð½ÇÁ¤¸® blockingÇÔ.
	var calcdd = model.getValue("/root/main/dsc/dscList[" + pGrd.row + "]/careinrmdd");
	var grdStat = grd_dscList.rowStatus(grd_dscList.row);
	if(calcdd == '--' || (calcdd != '--' && grdStat != 0)){//ÀԽǽð¢ÀÌ ÀԷµÇÁö ¾Ê¾Ò°Å³ª ÀԽǽð¢À» ÀÔ·ÂÇßÀ¸³ª ÀúÀåÇÏÁö ¾ÊÀº»óÅÂ
		messageBox('ÀÔ½Çüũ ÈÄ Åð½ÇÁ¤¸®°¡ °¡´ÉÇÕ´Ï´Ù.', 'E999');
		return;
	}

	if (pGrd.rows <= 0 || pGrd.row < 1) {
		messageBox("ÀڷḦ ¼±ÅÃÇϽʽÿÀ.", "E999", "");
		return;
	}
	if (model.getValue( "/root/main/dsc/dscList["+pGrd.row+"]/pid")== "") {
		messageBox("µî·Ï¹øÈ£°¡ ¾ø½À´Ï´Ù.", "E999", "");
		return;
	}

	// »ó´Ü¿Ã¸®±â
	fSetPatInfo();
	setParameter("SMMNP06300_DCC", "Y");
	open("SMMNP06010","1","20","128");
}


 // --------------------------------------------------
 // »ó´ÜȯÀÚÁ¤º¸¼¼ÆÃÇϱâ
 // --------------------------------------------------
function fSetPatInfo()
{
	//»ó´ÜÁ¤º¸ ÃʱâÈ­ -by ¹Ú¿µ¿ì 20091029
	model.removeNodeSet("/root/main/paminfo");
	model.makeNode("/root/main/paminfo");

    var sPath = "/root/main/dsc/dscList["+grd_dscList.row+"]";
    var sPatFlag = model.getValue(sPath+"/oppatflagcd");
	if (sPatFlag == "") sPatFlag  = "I";						//¼ö¼úÁ¤º¸¾ø´Â°æ¿ì´Â 'I'

	//¿Ã¸®±â º¯°æ:¼ö¼úÇÏÁö ¾Ê´Â »ç¶÷µµ ³ª¿È
	var sOprsrvno  = model.getValue(sPath+"/oprsrvno");
	var param = "";

	//¼ö¼úÃë¼ÒµÈ °æ¿ì T·Î ¿Ã¸®Áö ¸»°Í.(¾ÆÁ÷ ±¸Çö¾ÈÇÔ)
	//20080917 dhkim ¼ö¼úÃë¼ÒȯÀÚÀÇ °æ¿ì
	var opstatcd = model.getValue(sPath + "/opstatcd");//¼ö¼ú»óÅÂ

	if (sOprsrvno != "" && opstatcd != '29') {	//20080917 dhkim ¼öÁ¤. ¼ö¼úÀÏÁ¤ÀÌ ÀÖ°í Ãë¼Ò»óÅ°¡ ¾Æ´Ñ ȯÀÚ »ó´Ü¿Ã¸®±â
		//¼ö¼úÀü¿ë »ó´Ü ¿Ã¸®±â
		param = "T¢Ë"                                                      // 01 O:¿Ü·¡, I:ÀÔ¿ø±¸ºÐ, T:¼ö¼ú¿¹¾à
			+  model.getValue(sPath+"/pid"                  )  + "¢Ë"     // 02 µî·Ï¹øÈ£
			+  model.getValue(sPath+"/opcnfmdd"             )  + "¢Ë"     // 03 ¼ö¼ú½ÃÀÛÀÏÀÚ
			+                                                    "¢Ë"     // 04 cretno(¾ø´Â °æ¿ì ""·Î ó¸®)
			+  model.getValue(sPath+"/instcd"               )  + "¢Ë"     // 05 ±â°üÄÚµå
			+  model.getValue(sPath+"/perfdeptcd"           )  + "¢Ë"     // 06 Áýµµ°úºÎ¼­
			+  model.getValue(sPath+"/perfdrid"             )  + "¢Ë"     // 07 ÁýµµÀÇID
			+  sPatFlag                                        + "¢Ë"     // 08 ȯÀÚ±¸ºÐ
			+                                                   "F¢Ë"     // 09 F -󸮱¸ºÐ ¹«Á¶°Ç F·Î ¼³Á¤
			+  model.getValue(sPath+"/oprsrvno"             )  + "¢Ë"     // 10 ¼ö¼ú¿¹¾à¹øÈ£
			+  model.getValue(sPath+"/ophistno"             )  + "¢Ë"     // 11 ¼ö¼úÀ̷¹øÈ£
			+  model.getValue("/root/main/cond/opcnfmdd"    )  + "¢Ë";     // 12 Á¶È¸ÀÏÀÚ   2007-09-13 ¿ÀÁöÈÆ Ãß°¡...
	} else if(sOprsrvno != "" && opstatcd == '29'){

		//20080917 dhkim ¼öÁ¤. ¼ö¼úÀÏÁ¤Ãë¼ÒµÈ ȯÀÚ »ó´Ü¿Ã¸®±â
		param = "I" //dsc
		    + "¢Ë" + model.getValue(sPath+"/pid")				//µî·Ï¹øÈ£
			+ "¢Ë" + model.getValue(sPath+"/indd")				//ÀÔ¿øÀÏÀÚ
			+ "¢Ë" + model.getValue(sPath+"/cretno")			//ÀÔ¿ø»ý¼º¹øÈ£
			+ "¢Ë" + model.getValue(sPath+"/instcd")			//±â°üÄÚµå
			+ "¢Ë" + model.getValue(sPath+"/indd")				//Áø·áÀÏÀÚ(´çÀÏÀÔ¿øȯÀÚ¸¦ Á¶È¸ÇϹǷÎ)

			//alert(param);

		//condparam = ordtype + "¢Ë" + pid + "¢Ë" + indd + "¢Ë" + cretno + "¢Ë" + instcd+ "¢Ë" + orddd;
	} else {
		// »ó´Ü ¼¼ÆÃÀ» À§ÇÑ ÆĶó¹ÌÅÍ(ÀÔ¿øÀü¿ë)
		param = "I"
		    + "¢Ë" + model.getValue(sPath+"/pid")				//µî·Ï¹øÈ£
			+ "¢Ë" + model.getValue(sPath+"/indd")				//ÀÔ¿øÀÏÀÚ
			+ "¢Ë" + model.getValue(sPath+"/cretno")			//ÀÔ¿ø»ý¼º¹øÈ£
			+ "¢Ë" + model.getValue(sPath+"/instcd")			//±â°üÄÚµå
			+ "¢Ë" + model.getValue(sPath+"/indd")				//Áø·áÀÏÀÚ(´çÀÏÀÔ¿øȯÀÚ¸¦ Á¶È¸ÇϹǷÎ)

	/*	Åð¿øÁ¤¸®(º´µ¿)	 È®ÀÎÇغÁ¾ßÇÔ...
  // »ó´Ü ȯÀÚÁ¤º¸ parameter
		var sIoflag = "I";
		var sPid    = model.getValue(dschPath + "[" + iRow + "]/pid");

		model.removenode   ("/root/send");
		model.makeNode     ("/root/send");
		model.makeValue    ("/root/send/reqdata/pid"     , sPid);
		model.makeValue    ("/root/send/reqdata/histstat", sIoflag);
		model.removeNodeset("/root/temp/gettoplist");
		submit("TRMND00103");
		var sCretno    = model.getValue("/root/temp/gettoplist/gettopinfo/cretno"   ); //»ý¼º¹øÈ£
		var sSeqno     = model.getValue("/root/temp/gettoplist/gettopinfo/seqno"    ); //ÀϷùøÈ£
		var sInstcd    = model.getValue("/root/temp/gettoplist/gettopinfo/instcd"   ); //±â°üÄÚµå
		var sIndd      = model.getValue("/root/temp/gettoplist/gettopinfo/indd"     ); //ÀÔ¿øÀÏÀÚ
		var sOrddd     = model.getValue("/root/temp/gettoplist/gettopinfo/orddd"    ); //Áø·áÀÏÀÚ
		var sAcptseqno = model.getValue("/root/temp/gettoplist/gettopinfo/acptseqno"); //µî·ÏÀϷùøÈ£
		var sOrgorddd  = model.getValue("/root/temp/gettoplist/gettopinfo/orgorddd" ); //¿øÁø·áÀÏÀÚ
		var sOrddd     = model.getValue("/root/temp/gettoplist/gettopinfo/orddd"    ); //Áø·áÀÏÀÚ
		var sParam;

		sParam  = (sIoflag + "¢Ë" + sPid + "¢Ë" + sIndd + "¢Ë" + sCretno + "¢Ë" + sInstcd + "¢Ë" + sOrddd);

		setParameter("condparam", sParam);
     */
	}
	//alert(sOprsrvno +"/" + param);

    setParameter("condparam",  param);
    modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");

    var curNurType2Obj   = getOpenWindow("SMMNP00200");
    if(curNurType2Obj != null){//ÁغñÈ®ÀÎÀÌ ¿­·ÁÀÖÀ¸¸é »ó´Ü ȯÀÚ·Î ÀçÁ¶È¸2010.01.04 K.J.M
        curNurType2Obj.javascript.fFormInit();
    }
    // ÇÏ´Ü Ã³¹æ»ó¼¼Á¶È¸,  ¼ö¼ú»ó¼¼Á¶È¸
    fDscDataView(grd_dscList.row);
}

 // --------------------------------------------------
 // DSC ¸ÞÀθ®½ºÆ® ÀԽǽð¢, Åð½Ç½Ã°¢ ¼öÁ¤µÈ ³»¿ë ÀúÀå
 // --------------------------------------------------
function fSaveDscList(){
    if(!checkGridUpdate(grd_dscList)){
    	messageBox("ÀúÀåÇÒ ÀÚ·á°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.", "E");
    	return;
    }
    //alert(grd_dscList.getUpdateData());

    var pRow = grd_dscList.row;
	  var sPath = "/root/main/dsc/dscList["+pRow+"]";
    var careinrmdd = model.getValue(sPath + "/careinrmdd").substring(0,8);
    var indd = model.getValue(sPath + "/indd");
    if(careinrmdd != indd){
    	messageBox("ÀÔ½ÇÀÏÀÚ¸¦ º¯°æ ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E", "ÀԽǽ𣸸 º¯°æ°¡´ÉÇÕ´Ï´Ù.");
    	model.makeValue(sPath + "/careinrmdd", model.getValue(sPath + "/tmpcareinrmdd"));
    	return;
    }

    model.removenode("/root/send");
    model.removenode("/root/rtndata/dsc");
    model.makeNode("/root/send");
    model.makeValue("/root/send/dscList",grd_dscList.getUpdateData());
    submit("TXMNP06303");
    fDscDataRead();  // Á¶È¸

/* ¿øº»_20090623
	if(submit("TXMNP06301", false) == true) {
		if(getNodesetCnt(model, "/root/main/dsc/dscList") > 0){
			var rtnMsg = messageBox("ÀÔ½Çüũ ȯÀÚ¿¡ ´ëÇÑ ¿Ü·¡¿¹¾à ó¹æ Á¶È¸¸¦", "Q004");
			var chkcnt = 0 ;
			if("6" == rtnMsg){
        for(var i = 1 ; i <= getNodesetCnt(model, "/root/main/dsc/dscList") ; i++){
          var rtnVO = fGetRsrvPrcp(i);
          if(rtnVO == "E"){
    	      messageBox("¿Ü·¡ ¿¹¾àó¹æ ½Â°è¿¡ ÇÊ¿äÇÑ Á¤º¸°¡ ´©¶ôµÇ¾î 󸮸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "C000");
    	   	}else if(rtnVO == "X"){
    	   		chkcnt++;
    	   	}
        }
      }

      if(getNodesetCnt(model, "/root/main/dsc/dscList") == chkcnt){
      	messageBox("¿Ü·¡ ¿¹¾àó¹æÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.", "I000");
      }
		}
		fDscDataRead();  // Á¶È¸
	}
*/
}


// --------------------------------------------------
// ¿Ü·¡¿¹¾àó¹æ ¼±Åà ¹× ÀúÀå È­¸é È£Ãâ_20090508Ãß°¡(ByJA)
// --------------------------------------------------
function  fGetRsrvPrcp(pRow){
  // ¿Ü·¡¿¹¾àó¹æÁ¤º¸ Á¶È¸
  model.removeNodeset("/root/send");
  model.makeValue ( "/root/send/cond1", model.getValue("/root/main/dsc/dscList["+pRow+"]/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         = model.getValue("/root/main/dsc/dscList["+pRow+"]/pid"            );
  var sParamIndd        = model.getValue("/root/main/dsc/dscList["+pRow+"]/indd"           );
  var sParamCretno      = model.getValue("/root/main/dsc/dscList["+pRow+"]/cretno"         );
  var sParamIoflag      = model.getValue("/root/main/dsc/dscList["+pRow+"]/iocls"          );
  var sParamActcertdrid = model.getValue("/root/main/dsc/dscList["+pRow+"]/medispclid"     );
  var sParamSexAge      = model.getValue("/root/main/dsc/dscList["+pRow+"]/sexage"         );
  var sParamPatNm       = model.getValue("/root/main/dsc/dscList["+pRow+"]/hngnm"          );

  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"   , "33"                 ); // Àӽ÷Π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_prcpstatcd", "000"); //ÇÊ¿ä½Ã Àû¿ë
    //setParameter ( "SPMMO18200_oprsrvno", "0");     //ÇÊ¿ä½Ã Àû¿ë
    //setParameter ( "SPMMO18200_prcpauthflag", "0"); //ÇÊ¿ä½Ã Àû¿ë

    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" );

    return getParameter("SPMMO18200_rtnyn");
  }else{
    return "X";
  }
}


 // --------------------------------------------------
 // ±×¸®µå ¼öÁ¤¿©ºÎ È®ÀÎ
 // --------------------------------------------------
function checkGridUpdate(grid)
{
	var uData =  grid.getUpdateDataXml("update");

	if (uData=="")
		return false;
	else
		return true;
}

 // --------------------------------------------------
 // ¸®½ºÆ® Ãâ·Â
 // --------------------------------------------------
function fPrntList(){

	/*
	var opcnfmdd = model.getValue("/root/main/dsc/dscList[1]/opcnfmdd");
    if (opcnfmdd == ""){
    	messageBox("Á¶È¸°¡ µÇÁö", "E007");
    	return;
    }
	*/

	var pGrd = grd_dscList;
    if (pGrd.rows <= 1){
    	messageBox("Á¶È¸°¡ µÇÁö", "E007");
    	return;
    }


    model.removenode("/root/send");
    model.makeNode("/root/send");
    model.makeNode("/root/send/dsc");
    model.copyNode("/root/send/dsc","/root/main/dsc");

	exeReportPreview("RPMNP06300","XMLSTR");
}


 // --------------------------------------------------
 // ¿¢¼¿ Ãâ·Â
 // --------------------------------------------------
function fPrntExcl(){

	var pid = model.getValue("/root/main/dsc/dscList[1]/pid");
    if (pid == ""){
    	messageBox("Á¶È¸°¡ µÇÁö", "E007");
    	return;
    }
  var sPrntDD = model.getValue("/root/main/cond/opcnfmdd");
	var file = window.fileDialog("save","","true","DCCȯÀÚÁ¤º¸_("+sPrntDD+")","xls","All Files (*.*)|*.*|Excel Files(*.xls)|*.xls");
	if(file != "") {
	    grd_dscList.saveExcel(file);
	}
}

 // --------------------------------------------------
 // dsc¸ÞÀο¡¼­ ¿À¸¥ÂÊ ¸¶¿ì½º¹öÆ°
 // --------------------------------------------------
function fnonmousedown() {
	//¹Ú¿µ¿ì: ¼ººó¼¾Æ® ¿À¸¥ÂÊ ¹öÆ°¸Þ´º ºÐ·ù
	var uijungbuinstcd="", sunggainstcd="", vincentinstcd="";  // ÀÇÁ¤ºÎ¼º¸ðº´¿ø, ºÎõ¼º°¡º´¿ø, ¼ö¿øºó¼¾Æ®º´¿ø ±â°üÄÚµå
	for(var i=1; i<=getNodesetCount("/root/code/codeinfo/codelist"); i++){
		switch (model.getValue("/root/code/codeinfo/codelist["+i+"]/cdgrupid")){
			case "077":   // º´¿øº° ±â°üÄÚµå
			   switch(model.getValue("/root/code/codeinfo/codelist["+i+"]/supcdid")){
					case "02":  // ÀÇÁ¤ºÎ¼º¸ðº´¿ø ±â°üÄÚµå
						uijungbuinstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
						break;
					case "03":  // ºÎõ¼º°¡º´¿ø ±â°üÄÚµå
						sunggainstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
						break;
					case "04":  // ¼ö¿øºó¼¾Æ®º´¿ø ±â°üÄÚµå
						vincentinstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
						break;
			   }
		}
	}

	if (model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/pid")== "") return;

	var colnm = grd_dscList.valueMatrix(0, grd_dscList.mouseCol);
	var tmpcareinrmdd = model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/tmpcareinrmdd");
	var oppatflagcd  = model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/oppatflagcd");
	colnm = colnm.substring(0,2);

	var sdschdd1 = model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/dschdd");
	sdschdd1 = 	sdschdd1.replace("-","");
	sdschdd1 = 	sdschdd1.substring(0,1);

	//---(¼ö¼úȯÀÚ+angio(¼ö¼úÁ¤º¸¾øÀ½)
//						if(oppatflagcd=="D"&&colnm== "ÀÔ½Ç"&&tmpcareinrmdd.substring(0,1)=="-") {  // DSC ȯÀÚ,  ÀԽǽð¢Ä®·³, ÀԽǽð¢ÀÌ Àû¿ëµÇÁö ¾ÊÀº °æ¿ì("-")¿¡¸¸ ÀԽǽ𢠸޴º ³ªÅ¸³ªµµ·Ï
//							fShowPopupMenu("grd_dscList","/root/main/menuitems/inmenu/item");
//					       }else {
//							fShowPopupMenu("grd_dscList","/root/main/menuitems/grdmenu/item");
//					       }

	//¹Ú¿µ¿ì: ¼ººó¼¾Æ® º´¿ø ÄÚµåÀÏ °æ¿ì ¹öÆ°¸Þ´º º¯°æ
	if (rdo_dschflag.value == "D") {
		//if(colnm== "ÀÔ½Ç"&&tmpcareinrmdd.substring(0,1)=="-")  { // DSC ȯÀÚ,  ÀԽǽð¢Ä®·³, ÀԽǽð¢ÀÌ Àû¿ëµÇÁö ¾ÊÀº °æ¿ì("-")¿¡¸¸ ÀԽǽ𢠸޴º ³ªÅ¸³ªµµ·Ï
		if(colnm== "ÀÔ½Ç")  { // DSC ȯÀÚ,  ÀԽǽð¢Ä®·³, ÀԽǽð¢ÀÌ Àû¿ëµÇÁö ¾ÊÀº °æ¿ì("-")¿¡¸¸ ÀԽǽ𢠸޴º ³ªÅ¸³ªµµ·Ï
			fShowPopupMenu("grd_dscList","/root/main/menuitems/inmenu/item");
		} else  {
			if(getUserInfo("dutplceinstcd")==vincentinstcd)
				fShowPopupMenu("grd_dscList","/root/main/menuitems/vgrdmenu/item");
			else
				fShowPopupMenu("grd_dscList","/root/main/menuitems/grdmenu/item");
		}
	} else {
		if(getUserInfo("dutplceinstcd")==vincentinstcd)
			fShowPopupMenu("grd_dscList","/root/main/menuitems/vgrdmenu/item");
		else
			fShowPopupMenu("grd_dscList","/root/main/menuitems/grdmenu/item");
	}
}

//--------------------------------
// ¼ö¼ú»óÅ¿¡ µû¸¥ Áö½Ã»çÇ× ¸Þ½ÃÁö Ç¥½Ã
//--------------------------------
function fMsgDisp() {

	var pGrd = grd_dscList;
	var pid = model.getValue('/root/main/dsc/dscList[' + grd_dscList.row + ']/pid');
	var hngnm = model.getValue('/root/main/dsc/dscList[' + grd_dscList.row + ']/hngnm');

	var sMsg = "";

	if ( pGrd.rows <=1 || pGrd.row <= 0 )
		sMsg = "";


	var sPath = "/root/main/dsc/dscList[" + pGrd.row + "]";

	var opstatcd	=	model.getValue(sPath + "/opstatcd"); //¼ö¼ú»óÅ°ª
	var prcpcnt 	=	parseInt( model.getValue(sPath + "/iprccount")) + parseInt( model.getValue(sPath + "/oprccount") );//ó¹æ°¹¼ö
	var inflag		=	model.getValue(sPath + "/careinrmdd");//dscÀԽǿ©ºÎ
	var indschstat  =   model.getValue(sPath + "/indschstat");//Àç¿ø»óÅÂ

	inflag = fReplace(inflag, "-","");
	inflag = fReplace(inflag, " ","")

	//alert(	opstatcd + "/" + inflag + "/" + prcpcnt);


	//¸¶ÃëÃë¼Ò + ÀÔ½Ç Àü + Áø·áó¹æ À¯
	if (opstatcd == '29' && inflag == "" & prcpcnt > 0)
		sMsg = hngnm + "(" + pid + ")´ÔÀº ¼ö¼ú Ãë¼Ò°¡ µÇ¾ú°í DSC ÀÔ½ÇÀüÀ̸ç Áø·áó¹æÀÌ ÀÖ½À´Ï´Ù. ¿ø¹«ÆÀ¿¡ ÀüÈ­·Î 'ÀÔ¿øÁ¤º¸' »èÁ¦¸¦ ¿äûÇϽʽÿÀ.";

	//¸¶ÃëÃë¼Ò + ÀÔ½Ç ÈÄ + Áø·áó¹æ ¹« + Åð¿ø¿¹°í¾øÀ½
	if (opstatcd == '29' && inflag != "" & prcpcnt == 0 && indschstat == '')
		sMsg = hngnm + "(" + pid + ")´ÔÀº ¼ö¼ú Ãë¼Ò°¡ µÇ¾ú°í DSC ÀÔ½ÇÈÄÀ̸ç Áø·áó¹æÀÌ ¾ø½À´Ï´Ù. ¿ø¹«ÆÀ¿¡ ÀüÈ­·Î 'ÀÔ¿øÁ¤º¸' »èÁ¦¸¦ ¿äûÇϽʽÿÀ.";

	//¸¶ÃëÃë¼Ò + ÀÔ½Ç ÈÄ + Áø·áó¹æ ¹« + Åð¿ø¿¹°íÀÖÀ½ (20080917 dhkim - process ¹®ÀÇÇÊ¿ä)
	if (opstatcd == '29' && inflag != "" && prcpcnt == 0 && indschstat == '¨Ð')
		sMsg = hngnm + "(" + pid + ")´ÔÀº ¼ö¼ú Ãë¼Ò°¡ µÇ¾ú°í DSC ÀÔ½ÇÈÄÀ̸ç Åð¿ø¿¹°í µÇ¾ú½À´Ï´Ù. Åð½ÇÁ¤¸®¸¦ ÇϽʽÿÀ.";

	//¸¶ÃëÃë¼Ò + ÀÔ½Ç ÈÄ + Áø·áó¹æ À¯ + Åð¿ø¿¹°í¾øÀ½ (20080917 dhkim - Åð¿ø¿¹°í ¸Þ¼¼Áö º¯°æ)
	if (opstatcd == '29' && inflag != "" && prcpcnt > 0 && indschstat == '')
		sMsg = hngnm + "(" + pid + ")´ÔÀº ¼ö¼ú Ãë¼Ò°¡ µÇ¾ú°í DSC ÀÔ½ÇÈÄÀ̸ç Áø·áó¹æÀÌ ÀÖ½À´Ï´Ù. Áø·áÆÀ¿¡ Åð¿ø¿¹°í¸¦ ¿äûÇϽʽÿÀ.";

	//¸¶ÃëÃë¼Ò + ÀÔ½Ç ÈÄ + Áø·áó¹æ À¯ + Åð¿ø¿¹°íÀÖÀ½ (20080917 dhkim - Åð¿ø¿¹°í ¸Þ¼¼Áö º¯°æ)
	if (opstatcd == '29' && inflag != "" && prcpcnt > 0 && indschstat == '¨Ð')
		sMsg = hngnm + "(" + pid + ")´ÔÀº ¼ö¼ú Ãë¼Ò°¡ µÇ¾ú°í DSC ÀÔ½ÇÈÄÀ̸ç Áø·áó¹æÀÌ ÀÖ½À´Ï´Ù. Åð½ÇÁ¤¸®¸¦ ÇϽʽÿÀ.";

	if(sMsg != ""){
		out_msg.visible = true;
	}else{
		out_msg.visible = false;
	}

	out_msg.value = sMsg;
}

//--------------------------------
// ¹®ÀÚ¿­ ¹Ù²Ù±â
//--------------------------------
function fReplace(str0,str1,str2) {
	str0 += "";
	str1 += "";
	str2 += "";

	while ( str0.indexOf(str1) > -1 ) {
		str0 = str0.replace(str1,str2);
	}
	return str0;
}

//-----------------------------------------
// dsc Åð½Ç Ãë¼Ò(20080129)
//-----------------------------------------
function fOutCancel() {

	var pGrd  = grd_dscList;
	var sPath = "/root/main/dsc/dscList[" + pGrd.row + "]";

	if (pGrd.rows <= 1 || pGrd.row < 1) {
		messageBox("ÀÚ·á°¡ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E999", "");
		return;
	}
	var sChk = model.getValue(sPath + "/chngroomstat" );
	var sDsch = model.getValue(sPath + "/indschstat" );

	var dschdd = model.getValue(sPath + "/dschdd");


	//Å×½ºÆ®Áß....
	//alert(sChk+dschdd);

	if (sDsch == "¨Ï" || (sChk == "¡ß" && dschdd != '-')) {


		//20081218 dhkim
		//6½Ã°£¹Ì¸¸ ȯÀÚÀÇ °æ¿ì ½É»ç¸¦ °ÅÄ¡Áö ¾Ê°í ¹Ù·Î Åð¿ø¼ö³³À» ÇÏ´Â °æ¿ì°¡ Á¸ÀçÇÔ(¾È°úÀÇ°æ¿ì¸¸ÇØ´ç)
		//±×¸®ÇÏ¿© Åð¿ø¼ö³³¿©ºÎ¸¦ üũÇØ Åð¿ø¼ö³³µÈ ȯÀÚÀÇ °æ¿ì Åð½ÇÃë¼Ò¸¦ ÇÏÁö ¸øÇϵµ·Ï blockingó¸® Ãß°¡
		var rcptyn = model.getValue('/root/main/dsc/dscList[' + pGrd.row + ']/rcptyn');
		if(rcptyn == 'Y'){
			messageBox("ÀÌ¹Ì Åð¿ø¼ö³³µÈ ȯÀÚÀÔ´Ï´Ù.\r\n¿ø¹«ÆÀ¿¡ Åð¿ø¼ö³³Ãë¼Ò¸¦ ¿äûÇϽŠÈÄ\r\n°£È£Åð½ÇÃë¼Ò¸¦ ÁøÇà ÇϽʽÿÀ.", "E999", "");
			return;
		}


		//20081219 dhkim
		//¿À´ÃÀÏÀÚȯÀÚ°¡ ¾Æ´Ï¸é Ãë¼ÒºÒ°¡
		var indd = model.getValue("/root/main/dsc/dscList[" + pGrd.row + "]/indd");
		if(indd != getCurrentDate()){
			messageBox("ÀÔ¿øÀÏÀÌ ¿À´ÃÀΠȯÀÚ¸¸ °£È£Åð½ÇÃë¼Ò ÇÒ ¼ö ÀÖ½À´Ï´Ù.", "E999", "");
			return;
		}


	    //if(!checkGridUpdate(grd_dscList))
	    //{
	    //	alert("ÀúÀåÇÒ ÀÚ·á°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.");
	    //	return;
	    //}

		if (messageBox("°£È£»çÅð¿øÁ¤¸®¿Ï·á Ãë¼Ò ",'Q003',"") != 6) return;

		var sHeader = "m¢Ëcareinrmdd¢Ëpid¢Ëindd¢Ëcretno¢Ëseqno¢Ì";
		var sData = "u" +
				"¢Ë" + model.getValue(sPath + "/careinrmdd") +
				"¢Ë" + model.getValue(sPath + "/pid") +
				"¢Ë" + model.getValue(sPath + "/indd") +
				"¢Ë" + model.getValue(sPath + "/cretno") +
				"¢Ë" + model.getValue(sPath + "/seqno") + "¢Ì";

	    model.removenode("/root/send");
	    model.makeNode("/root/send");
	    //model.makeValue("/root/send/dscList",grd_dscList.getUpdateData());
	    model.makeValue("/root/send/dscList",sHeader + sData );

//		alert(	    sHeader + sData);
//	    return;

		if ( submit("TXMNP06302") ) {
			fDscDataRead();  // Á¶È¸
		}
	} else {
		messageBox("°£È£Åð½ÇÃë¼ÒÇÒ ¼ö ¾ø´Â »óÅÂÀÔ´Ï´Ù.", "E999", "");
	}
}


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