/**
 * @desc   : È­¸éÃʱâÈ­
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fInitialize(){
	// Knuh_20110118 
	//var rgstfromdd = ((getCurrentDate()).toDate()).getAddDate(-7, "D");
    var rgstfromdd = (getCurrentDate()).toDate();
    model.setValue("/root/main/srchprofhist/fromdd", rgstfromdd.getDateFormat()); 
    model.setValue("/root/main/srchprofhist/todd", getCurrentDate());

    fPrstUsge(); 
    //fReqFormlist();
    model.setValue("/root/main/newprof/formnm","-");
    model.removeNodeset("/root/main/profhist/list");
    fGetProfPrntHist();
    model.refresh();
}

/**
 * @desc   : »ç¿ë¿©ºÎ 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fPrstUsge(){
    model.removeNodeset("/root/hidden/issusge");
    model.makeNode("/root/hidden/issusge");
    zbcfGetCodeList(new Array("M0332"), new Array("/root/hidden/issusge"));
}
 
 /**
 * @desc   : ¼­½Ä¸í Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fReqFormlist(){
    //formnm , formcd Á¶È¸
    submit("TRMRF00708");
    addComboItem("cmb_profformlist", "Àüü", "-", "above");
}

/**
 * @desc   : Ãâ·Â³»¿ª Á¶È¸ 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetProfPrntHist(){
	
	if( model.getValue("/root/main/srchprofhist/prntuserid") == "" ){
		model.setValue("/root/main/srchprofhist/prntusernm", "");
	}
	
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/pid"     		, model.getValue("/root/main/srchprofhist/pid")); 
    model.makeValue("/root/send/reqdata/fromdd"  		, model.getValue("/root/main/srchprofhist/fromdd"));
	model.makeValue("/root/send/reqdata/todd"    		, model.getValue("/root/main/srchprofhist/todd"));
	model.makeValue("/root/send/reqdata/formcd"  		, model.getValue("/root/main/srchprofhist/formcd"));
	model.makeValue("/root/send/reqdata/issflag" 		, model.getValue("/root/main/srchprofhist/issflag"));
	model.makeValue("/root/send/reqdata/srchflag"		, model.getValue("/root/main/srchprofhist/srchflag"));	
	model.makeValue("/root/send/reqdata/histflag"		, "histflag" );
	model.makeValue("/root/send/reqdata/prntuserid"	, model.getValue("/root/main/srchprofhist/prntuserid") );
	model.makeValue("/root/send/reqdata/prntusernm"	, model.getValue("/root/main/srchprofhist/prntusernm") );
	
	//2010.02.22, ÁÖÈñ°æ, ordtype Á¶È¸Á¶°Ç Ãß°¡
	model.makeValue("/root/send/reqdata/ordtype" , model.getValue("/root/main/srchprofhist/ordtype"));
	
	//ÀÚÇÊ, OCS Á¦Áõ¸í ±¸ºÐÀ» Á¶È¸Á¶°Ç¿¡ Ãß°¡ÇÔ
	//2009. 1. 23. ¿ÀÁöÈÆ
	model.makeValue("/root/send/reqdata/holograpflag", model.getValue("/root/main/srchprofhist/holograpflag"));
	
	//·Î±×ÀÎ »ç¿ëÀÚ°¡ º¸ÇèÆÀÀÎ °æ¿ì, ³ëÀοä¾ç, ¹æ¹®°£È£Áö½Ã¼­¸¸ Á¶È¸
	//2009. 1. 2. ¿ÀÁöÈÆ
	if(getUserInfo("dutplcecd")=="4070300000"){
	    model.makeValue("/root/send/reqdata/insuflag", "Y");
	}
	
    if(submit("TRMMR02301")){
        model.makeNode("/root/temp2/profhist");
        model.copyNode("/root/temp2/profhist", "/root/main/profhist");
    }
    model.refresh();
}

/**
 * @desc   : Á¦Áõ¸í °ü¸® È­¸é open
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fOpenProfMngt(){
    var currow = grd_proflist.row - grd_proflist.fixedRows + 1;
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/memo/hardcd", 5593);
    
    //¿¬¹øÈ£ ¹ßÇàµÈ ÀÌ·ÂÀÎ °æ¿ì, Á¦Áõ¸í°ü¸®È­¸éÀ» openÇÏÁö ¾Ê´Â´Ù.
    if(model.getValue("/root/main/profhist/list["+ currow +"]/recyn") == "N"){
        var formrecseq = model.getValue("/root/main/profhist/list[" + currow + "]/formrecseq");
        var yearseqno  = model.getValue("/root/main/profhist/list[" + currow + "]/yearseqno");
        var pid        = model.getValue("/root/main/profhist/list[" + currow + "]/pid");
        var formcd     = model.getValue("/root/main/profhist/list[" + currow + "]/formcd");
        
        model.resetInstanceNode("/root/init/iemr");
		model.setValue("/root/init/iemr/pid"         , pid);       //µî·Ï¹øÈ£
		model.setValue("/root/init/iemr/docucd"      , formcd);    //¼­½ÄÄÚµå
		model.setValue("/root/init/iemr/ocmnum"      , yearseqno); //¿¬¹øÈ£
		model.makeValue("/root/init/iemr/cmc_spcid"  , "");  //blocking null exception
		model.makeValue("/root/init/iemr/cmc_orddate", "");  //blocking null exception
		model.makeValue("/root/init/iemr/cmc_orderseqno", "");  //blocking null exception
		
		if(window.children.item("imgemrviewer") == null){
		    //window.load("SSMRC03130.xrw", "modeless", "imgemrviewer", "", "/root/init/iemr", "/root/hidden/temp");
		    //open("SPMMR06400", "", "", "", "", "/root/init/iemr", "/root/send/iemr");
		}
		messageBox("ÀÚÇÊ Á¦Áõ¸íÀÔ´Ï´Ù.", "I999");
    }else{
        model.makeValue("/root/temp/popup/disflag"    			, "popup");
        model.makeValue("/root/temp/popup/pid"        			, model.getValue("/root/main/profhist/list[" + currow + "]/pid"));
        model.makeValue("/root/temp/popup/orddd"      		, model.getValue("/root/main/profhist/list[" + currow + "]/orddd"));
        model.makeValue("/root/temp/popup/cretno"     			, model.getValue("/root/main/profhist/list[" + currow + "]/cretno"));
        model.makeValue("/root/temp/popup/ioflag"     			, model.getValue("/root/main/profhist/list[" + currow + "]/ioflag"));    
        model.makeValue("/root/temp/popup/profcertseq"		, model.getValue("/root/main/profhist/list[" + currow + "]/profcertseq"));
        model.makeValue("/root/temp/popup/formrecseq" 		, model.getValue("/root/main/profhist/list[" + currow + "]/formrecseq"));
        model.makeValue("/root/temp/popup/yearseqno"  		, model.getValue("/root/main/profhist/list[" + currow + "]/yearseqno"));
        model.makeValue("/root/temp/popup/ord"        			, "ord");                                               
        model.makeValue("/root/temp/popup/issstat"    			, model.getValue("/root/main/profhist/list[" + currow + "]/issstat"));
        model.makeValue("/root/temp/popup/issflag"    			, model.getValue("/root/main/profhist/list[" + currow + "]/issflag"));
        model.makeValue("/root/temp/popup/issid"      			, model.getValue("/root/main/profhist/list[" + currow + "]/issid"));
        model.makeValue("/root/temp/popup/issnm"      		, model.getValue("/root/main/profhist/list[" + currow + "]/issnm"));
        model.makeValue("/root/temp/popup/issdeptcd"  		, model.getValue("/root/main/profhist/list[" + currow + "]/issdeptcd"));
        model.makeValue("/root/temp/popup/issdeptnm"  		, model.getValue("/root/main/profhist/list[" + currow + "]/issdeptnm"));
        model.makeValue("/root/temp/popup/memoviewflag"  , model.getValue("/root/memo/hardcd/hardcd/hardcd"));
        
        modal("SMMMR02900", 1,10, 10, "SMMMR02900", "/root/temp/popup", "/root/temp/popup");        
        fGetProfPrntHist();
    }
}
 
/**
 * @desc   : °Çº° µ¥ÀÌŸ Á¶È¸
 *
 * @param  : 
 * @return : 
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSrchCalcScor(){
    var iRow = grd_proflist.row - grd_proflist.fixedRows + 1;
    model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/profcertseq", model.getValue("/root/main/profhist/list["+iRow+"]/profcertseq"));    
    
    if(!(submit("TRMMR02302"))){
        messageBox("Á¶È¸¸¦", "E009");
        model.makeValue("/root/temp/profinfo/profcertseq", "");
    }
    model.makeValue("/root/temp/profinfo/profcertseq", model.getValue("/root/main/profhist/list["+iRow+"]/profcertseq"));
    grp_calcHist.attribute("visibility")= "visible";
}

/**
 * @desc   : °Çº° µ¥ÀÌŸ »èÁ¦
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fDelCalcScor(){
    var nodeList = instance1.selectNodes("/root/main/prcpinfo/list");
    
    for(var i = 1; i <= nodeList.length; i++){
        if(model.getValue("/root/main/prcpinfo/list["+i+"]/check") == "true"){
            fDCprcpIFSet(i);
        }
    }
    grp_calcHist.attribute("visibility")= "hidden";
    
    fGetProfPrntHist();
}

/**
 * @desc   : ÀúÀå µ¥ÀÌŸ ¼ÂÆÃ
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fDCprcpIFSet(){
    var nodeList = instance1.selectNodes("/root/main/prcpinfo/list");
    
    var sPassData =
          "savedataflag"                      //ÀúÀåÀڷᱸºÐ (2:ó¹æ)
        + "¢Ësaveflag"                        //ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
        + "¢Ëprcpflag"                        //ó¹æ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0035 ÂüÁ¶ '0'À» Á¦¿ÜÇÑ ÇØ´ç °ªÀ» ³Ö¾îÁÖ¼¼¿ä...)
        + "¢Ëinptflag"                        //ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
        + "¢Ëpamflag"                         //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
        + "¢Ëdiagflag"                        //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
        + "¢Ëprcperrflag"                     //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
        + "¢Ëdeptcd"                          //ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå)
        + "¢Ëdeptnm"                          //ºÎ¼­¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í)
        + "¢Ëuserid"                          //»ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID)
        + "¢Ëusernm"                          //»ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í)
        + "¢Ësingyn"                          //ÀüÀÚ¼­¸í¿©ºÎ
        + "¢Ëpid"                             //µî·Ï¹øÈ£(¿ø¹«Key)
        + "¢Ëorddd"                           //Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
        + "¢Ëindd"                            //ÀÔ¿øÀÏÀÚ(¿ø¹«Key) - ¿Ü·¡ÀÏ°æ¿ì´Â '-'
        + "¢Ëcretno"                          //»ý¼º¹øÈ£(¿ø¹«Key)
        + "¢Ëorddeptcd"                       //Áø·á°ú(¿ø¹«)
        + "¢Ëorddrid"                         //Áø·áÀÇID(¿ø¹«)
        + "¢Ëinstcd"                          //±â°üÄÚµå
        + "¢Ëstatus"                          //½Å±Ô(I), DC(C)
        + "¢Ërowno"                           //ÁÙ¹øÈ£ (º´¸® ¿ä±¸)
        + "¢Ëprcpdd"                          //ó¹æÀÏÀÚ(¿Ü·¡/Á¾°ÇÀº orddd¿Í µ¿ÀÏ, ÀÔ¿øÀº ó¹æÀÏÀÚ)
        + "¢Ëprcpno"                          //ó¹æ¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
        + "¢Ëprcphistno"                      //ó¹æÀ̷¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
        + "¢Ëprcpgenrflag"                    //ó¹æ¹ß»ý±¸ºÐ(¿ø¹«) - O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
        + "¢Ëprcpstatcd"                      //ó¹æ»óÅ : '000'
        + "¢Ëprcpkindcd"                      //ó¹æÁ¾·ù : '20'
        + "¢Ëprcpcd"                          //ó¹æÄÚµå
        + "¢Ëcalcscorcd"                      //¼ö°¡ÄÚµå
        + "¢Ëinclprcpcd"                      //Á¾¼Óó¹æÄÚµå ('-')
        + "¢Ëinclprcpno"                      //Á¾¼Óó¹æ¹øÈ£ (ÀϷùøÈ£ - Á¾¼Óó¹æÄڵ庰·Î »ý¼º)
        + "¢Ëprcpexecdeptcd"                  //ó¹æ½Ç½ÃºÎ¼­ÄÚµå (¼ö°¡ÀÇ Á¢¼öºÎ¼­¸¦ ³Ö¾î Áְųª, Á¢¼öÇÏ´Â ºÎ¼­ÄÚµå, ¾øÀ» °æ¿ì '-'·Î ó¸®)
        + "¢Ëprcphopedd"                      //ó¹æÈñ¸ÁÀÏÀÚ (ó¹æÀÏÀÚ ÀÌÀüÀ¸·Î ¹ß»ýºÒ°¡)
        + "¢Ëprcpqty"                         //ó¹æ¼ö·® (1) (¾àÇ°ÀÏ °æ¿ì ¹Ýµå½Ã Æ÷Àå´ÜÀ§ ¼ö·®À» ³Ö¾î ÁÖ¾î¾ß µÊ)
        + "¢Ëprcpqtyunitflag"                 //ó¹æ¼ö·®´ÜÀ§ (¾àÇ°ÀÏ °æ¿ì '3', ±×·¸Áö ¾ÊÀ»°æ¿ì '-')
        + "¢Ëprcptims"                        //ó¹æȽ¼ö (1) (ÀÔ¿øÀÏ °æ¿ì Ƚ¼ö¿¡ µû¶ó Ç®¸²)
        + "¢Ëprcpdayno"                       //ó¹æÀϼö (1) (Áö¿øºÎ¼­¿¡¼­´Â ÁÖ»çó¹æ¿¡ ´ëÇÏ¿© Àϼö¸¦ ³ÖÀ¸¸é ¾ÈµÊ, ³ÖÀ¸¸é ÀÚ·á°¡ ¹®Á¦°¡ »ý±è)
        + "¢Ëpayflagcd"                       //±Þ¿©±¸ºÐÄÚµå (M0029 ÂüÁ¶) -> '-'·Î ³ÖÀ¸ÁÖ¸é ȯÀÚÀÇ º¸ÇèÀ¯Çü¿¡ µû¶ó ÀÚµ¿ ¹ß»ý
        + "¢Ëerprcpflag"                      //ÀÀ±Þó¹æ±¸ºÐ (Y/N)
        + "¢Ëprecureprcpflag"                 //¼±Ã³Ä¡Ã³¹æ±¸ºÐ (Y/N)
        + "¢Ënigtprcpflag"                    //¾ß°£Ã³¹æ±¸ºÐ (Y/N) : ¾ß°£°¡»ê¿¡ ÇØ´ç µÉ °æ¿ì
        + "¢Ëportprcpflag"                    //Æ÷Åͺíó¹æ±¸ºÐ (Y/N)
        + "¢Ëfixprcpflag"                     //Á¤¾×ó¹æ±¸ºÐ (Y/N)
        + "¢Ëchoiordflag"                     //¼±ÅÃó¹æ±¸ºÐ (Y/N) -> ¸¸¾à '-'ÀÏ °æ¿ì ¿ø¹«Á¤º¸ ±âÁØÀ¸·Î ó¸®
        + "¢Ëanamneflag"                      //±â¿Õ·Â(Áõ)±¸ºÐ (Y/N)
        + "¢Ëprcpdirecflag"                   //ó¹æ¹æÇⱸºÐ (ÄÚµåÁ¤ÀǼ­ M0041 ÂüÁ¶), ÀçÈ°Àº À§Ä¡±¸ºÐÀ¸·Î »ç¿ë : '-'
        + "¢Ëangioflagcd"                     //Angio±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0006 ÂüÁ¶) : '-'
        + "¢Ëopansflagcd"                     //¼ö¼ú¸¶Ã뱸ºÐ (ÄÚµåÁ¤ÀǼ­ M0007, M0008 ÂüÁ¶) : '-'
        + "¢Ëansttm"                          //¸¶Ãëó¹æ¿¡ ´ëÇÑ ¸¶ÃëÀû¿ë½Ã°£ - ºÐÀ» 4ÀÚ¸®·Î Ç¥Çö, ¿¬¼Ó°Ë»ç °Ë»ç°£°Ý
        + "¢Ëoffictourhealexamflag"           //ÃâÀå°ËÁø±¸ºÐ (Y/N)
        + "¢Ëstemcellflag"                    //'00NNN' °ÇÁøû±¸±¸ºÐ, Á¶Ç÷¸ð(ÁÙ±â)¼¼Æ÷ ±¸ºÐ - Stem Cell Source ¿©ºÎ ,Cryo¿©ºÎ, CD34 äÁý¿©ºÎ, Çص¿¿©ºÎÀÇ Á¶ÇÕÀ¸·Î ±¸¼º
        + "¢Ëhosinhosoutflag"                 //¿ø³»¿Ü±¸ºÐ(°ÇÁøÀº 'I', ¾àÀÌ ¾Æ´Ò°æ¿ì '-')
        + "¢Ëhosinprcpresncd"                 //¿ø³»Ã³¹æ»çÀ¯ (°ÇÁø¿¡ ÇØ´çÇÏ´Â »çÀ¯ - Á¤ÀÇ, ¾àÀÌ ¾Æ´Ò°æ¿ì '00')
        + "¢Ëissdeptcd"                       //¹ßÇàºÎ¼­ÄÚµå (Áý°è°¡ ŸºÎ¼­ÀÏ °æ¿ì Ÿ°úÄÚµå, ÀÔ¿øÀº ±âº»ÀÌ º´µ¿) -> '-' ·Î ó¸®Çϸé ÀÚµ¿ ó¸®(±âº»Àº ó¹æÀԷºμ­À̳ª ÀÔ¿øÀº ÇØ´ç º´µ¿À¸·Î ó¸®)
        + "¢Ëprcpauthflag"                    //ó¹æ±ÇÇѱ¸ºÐ(0:ÀÇ»çó¹æÈ­¸é, 1:ÀÇ»ç¹×°£È£»ç°øÀ¯Ã³¹æ, 2:¼ø¼ö°£È£Ã³¹æ, 3:Áö¿øºÎ¼­ÀÇ»çó¹æ, 4:±âŸó¹æ - ±âŸ Áö¿øºÎ¼­ Ãß°¡, 5:°è»ê¿ë¿ø¹«Ã³¹æ, 6:°ÇÁøó¹æ ==> 0,1¸¸ ÀÇ»çó¹æÈ­¸é¿¡ º¸ÀÓ, ´Ü 3Àº ÃßÈÄ¿¡ °áÁ¤)
        + "¢Ëprcpinptflag"                    //ó¹æÀԷ±¸ºÐ(ÀúÀ屸ºÐÁ¤º¸ÀÇ inptflag¿Í µ¿ÀÏÇÏ°Ô Ã³¸®)
        + "¢Ëprcpsignflag"                    //ó¹æ¼­¸í±¸ºÐ(0:ÀÎÁõ¾ÈµÊ, 1:Àǻ簡 ÈÄÀÎÁõ, 2:ÀÎÁõ¿Ï·á)
        + "¢Ëoprsrvno"                        //¼ö¼ú¿¹¾à¹øÈ£(0)
        + "¢Ëclincstdyflag"                   //Àӻ󿬱¸±¸ºÐ (Y/N)
        + "¢Ëclincstdycd"                     //Àӻ󿬱¸ÄÚµå ('-') -> Àӻ󿬱¸±¸ºÐÀÌ 'Y'ÀÏ °æ¿ì Àӻ󿬱¸Äڵ带 µî·Ï
        + "¢Ëdrugmthdspccd"                   //Åõ¿©¹æ¹ý¹×°ËüÄÚµå(¾àÀÏ °æ¿ì º¹¿ë¹æ¹ý, Áø°Ë ¹× º´¸®ÀÏ °æ¿ì °ËüÄÚµå, Default '-')
        + "¢Ëprcpdelivefact"                  //ó¹æÀü´Þ»çÇ×
        + "¢Ëtootfact"                        //Ä¡½Ä (º´¸®¸¸ »ç¿ë, ³ª¸ÓÁö´Â '-')
        + "¢Ëmatrsetprcpspec"                 //Àç·áó¹æ³»¿ë ('-') -> ÃßÈÄÁ¤ÀÇ
        + "¢Ëcalcflag"                        //°è»ê±¸ºÐ (Y/N)
        + "¢Ërsrvflag"                        //¿¹¾à±¸ºÐ (Y/N)
        + "¢Ërsrvdd"                          //¿¹¾àÀÏÀÚ ('N'ÀÏ °æ¿ì '00000000')
        + "¢Ërsrvtm"                          //¿¹¾à½Ã°£ ('N'ÀÏ °æ¿ì '000000')
        + "¢Ërsrvrid"                         //¿¹¾àÀÚID ('-')
        + "¢Ëexecdd"                          //½Ç½ÃÀÏÀÚ ('00000000')
        + "¢Ëexectm"                          //½Ç½Ã½Ã°£ ('000000')
        + "¢Ëexecrid"                         //½Ç½ÃÀÚID ('-')
        + "¢Ëdirecprcplnkdd"                  //Áö½Ãó¹æ¿¬°èÀÏÀÚ (00000000) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ Ã³¹æÀÏÀÚ
        + "¢Ëdirecprcplnkno"                  //Áö½Ãó¹æ¿¬°è¹øÈ£ (0) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ ½Ç½Ãó¹æÀ¯ÀϹøÈ£
        + "¢Ëordreqlnkno"                     //Áø·áÀÇ·Ú¿¬°è¹øÈ£ (0)
        + "¢Ëtestreqlnkno"                    //°Ë»çÀÇ·Ú¿¬°è¹øÈ£ (0) -> º´¸®¿Í Áø´Ü°Ë»ç »ç¿ë
        + "¢Ëocrtag"							// OCRTAG  2013.12.20  
        + "¢Ì"   ;
    
    var sHeaderData =
        	"saveflag"
    		  + "¢Ëocrtag"   
			  + "¢Ëpid"
			  + "¢Ëorddd"
			  + "¢Ëcretno"
			  + "¢Ëorddeptcd"
			  + "¢Ëorddrid"
			  + "¢Ëlstupdtdeptcd"   
		      + "¢Ëlstupdtdt"		
		      + "¢Ëlstupdtuserid"
		      + "¢Ëdelyn"
		      + "¢Ëeocryn"
		      + "¢Ëstatcd"	          
			  + "¢Ëupdtresncnts"   
			  + "¢Ëpagecnt"
		      + "¢Ì"   ;      
        
    var savedataflag           	= "";
    var saveflag               		= "";
    var prcpflag               		= "";
    var inptflag               		= "";
    var pamflag                	= "";
    var diagflag               		= "";
    var prcperrflag            	= "";
    var deptcd                 		= "";
    var deptnm                 	= "";
    var userid                 		= "";
    var usernm                 	= "";
    var singyn                 		= "";
    var pid                    		= "";
    var orddd                  		= "";
    var indd                   		= "";
    var cretno                 		= "";
    var orddeptcd              	= "";
    var orddrid                		= "";
    var instcd                 		= "";
    var status                 		= "";
    var rowno                  	= "";
    var prcpdd                 	= "";
    var prcpno                 	= "";
    var prcphistno             	= "";
    var prcpgenrflag           	= "";
    var prcpstatcd             	= "";
    var prcpkindcd             	= "";
    var prcpcd                 		= "";
    var calcscorcd             	= "";
    var inclprcpcd             	= "";
    var inclprcpno             	= "";
    var prcpexecdeptcd         = "";
    var prcphopedd             	= "";
    var prcpqty                		= "";
    var prcpqtyunitflag        	= "";
    var prcptims               	= "";
    var prcpdayno              	= "";
    var payflagcd              	= "";
    var erprcpflag             	= "";
    var precureprcpflag        	= "";
    var nigtprcpflag           	= "";
    var portprcpflag           	= "";
    var fixprcpflag            		= "";
    var choiordflag            	= "";
    var anamneflag             	= "";
    var prcpdirecflag          	= "";
    var angioflagcd            	= "";
    var opansflagcd            	= "";
    var ansttm                 		= "";
    var offictourhealexamflag  = "";
    var stemcellflag           	= "";
    var hosinhosoutflag        	= "";
    var hosinprcpresncd        = "";
    var issdeptcd              	= "";
    var prcpauthflag           	= "";
    var prcpinptflag           	= "";
    var prcpsignflag           	= "";
    var oprsrvno               	= "";
    var clincstdyflag          	= "";
    var clincstdycd            	= "";
    var drugmthdspccd        	= "";
    var prcpdelivefact         	= "";
    var tootfact               		= "";
    var matrsetprcpspec        = "";
    var calcflag               		= "";
    var rsrvflag               		= "";
    var rsrvdd                 		= "";
    var rsrvtm                 		= "";
    var rsrvrid                		= "";
    var execdd                 	= "";
    var exectm                 	= "";
    var execrid                		= "";
    var direcprcplnkdd         	= "";
    var direcprcplnkno         	= "";
    var ordreqlnkno            	= "";
    var testreqlnkno           	= "";
    var ocrtag 						= ""; 
    var chkcnt 						= 0;
    for(var i = 1; i <= nodeList.length; i++){
        if(model.getValue("/root/main/prcpinfo/list["+i+"]/check") == "true"){
        	chkcnt++;
            savedataflag          = "2";       //ÀúÀåÀڷᱸºÐ (2:ó¹æ)
//          saveflag              = "O";       //ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
			saveflag              = model.getValue("/root/main/prcpinfo/list[" + i + "]/saveflag");   //2010.02.18, hkjoo, ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
            prcpflag              = "5";       //ó¹æ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0035 ÂüÁ¶ '0'À» Á¦¿ÜÇÑ ÇØ´ç °ªÀ» ³Ö¾îÁÖ¼¼¿ä...)
            inptflag              = "15";      //ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
            pamflag               = "Y";       //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
            diagflag              = "N";       //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
            prcperrflag           = "Y";       //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
            deptcd                = getUserInfo("dutplcecd");       //ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå)
            deptnm                = getUserInfo("dutplcenm");       //ºÎ¼­¸í(ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í)
            userid                = getUserInfo("userid");       //»ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID)
            usernm                = getUserInfo("usernm");       //»ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í)
            singyn                = "N";       //ÀüÀÚ¼­¸í¿©ºÎ
            pid                   = model.getValue("/root/main/prcpinfo/list[" + i + "]/pid");         //µî·Ï¹øÈ£(¿ø¹«Key)
            orddd                 = model.getValue("/root/main/prcpinfo/list[" + i + "]/orddd");       //Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
            indd                  = "-";       //ÀÔ¿øÀÏÀÚ(¿ø¹«Key) - ¿Ü·¡ÀÏ°æ¿ì´Â '-'
            if (saveflag == "I")
            {
                indd = model.getValue("/root/main/prcpinfo/list["+i+"]/orddd");
            }
            cretno                = model.getValue("/root/main/prcpinfo/list[" + i + "]/cretno");       //»ý¼º¹øÈ£(¿ø¹«Key)
            orddeptcd             = model.getValue("/root/main/prcpinfo/list[" + i + "]/orddeptcd");    //Áø·á°ú(¿ø¹«)
            orddrid               = model.getValue("/root/main/prcpinfo/list[" + i + "]/orddrid");
            instcd                = model.getValue("/root/main/prcpinfo/list[" + i + "]/instcd");       //±â°üÄÚµå
            status                = "";       //½Å±Ô(I), DC(C)
            status = "C";
            rowno                 = "1";      //ÁÙ¹øÈ£ (º´¸® ¿ä±¸)
            prcpdd                = "";       //ó¹æÀÏÀÚ(¿Ü·¡/Á¾°ÇÀº orddd¿Í µ¿ÀÏ, ÀÔ¿øÀº ó¹æÀÏÀÚ)

			//2010.02.27, ¿Ü·¡µµ ÀÔ¿øµµ ¹ßÇà½Ã ÀúÀåµÈ prcpdd  ±×´ë·Î ³Ñ°ÜÁà¾ßÇÔ. ¿Ü·¡ÀÏ °æ¿ì ´Ù¸¥³¯¿¡ Ãâ·Â ÇÒ ¼ö Àֱ⠶§¹®.
			prcpdd = model.getValue("/root/main/prcpinfo/list[" + i + "]/prcpdd");       //prcpdd

/*            if (saveflag == "I")		//2010.02.18, hkjoo ÀÔ¿øÀÇ °æ¿ì¿¡µµ ÀÔ¿øÀÏÀÚ°¡ prcpdd·Î ¼ÂÆõǾßÇÔ.
            {
                prcpdd = getCurrentDate();
            }
            else
            {*/
//                prcpdd = orddd;
//            }
            prcpno                = model.getValue("/root/main/prcpinfo/list[" + i + "]/prcpno");            //ó¹æ¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
            prcphistno            = model.getValue("/root/main/prcpinfo/list[" + i + "]/prcphistno");       //ó¹æÀ̷¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
            prcpgenrflag          = saveflag;     //ó¹æ¹ß»ý±¸ºÐ(¿ø¹«) - O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
            prcpstatcd            = "000";        //ó¹æ»óÅ : '000'
            prcpkindcd            = "20";         //ó¹æÁ¾·ù : '20'
            prcpcd                = model.getValue("/root/main/prcpinfo/list[" + i + "]/prcpcd");       //ó¹æÄÚµå
            calcscorcd            = model.getValue("/root/main/prcpinfo/list[" + i + "]/calcscorcd");       //¼ö°¡ÄÚµå
            inclprcpcd            = "-";       //Á¾¼Óó¹æÄÚµå ('-')
            inclprcpno            = "";        //Á¾¼Óó¹æ¹øÈ£ (ÀϷùøÈ£ - Á¾¼Óó¹æÄڵ庰·Î »ý¼º)
            prcpexecdeptcd        = getUserInfo("dutplcecd");       //ó¹æ½Ç½ÃºÎ¼­ÄÚµå (¼ö°¡ÀÇ Á¢¼öºÎ¼­¸¦ ³Ö¾î Áְųª, Á¢¼öÇÏ´Â ºÎ¼­ÄÚµå, ¾øÀ» °æ¿ì '-'·Î ó¸®)
            prcphopedd            = prcpdd     //ó¹æÈñ¸ÁÀÏÀÚ (ó¹æÀÏÀÚ ÀÌÀüÀ¸·Î ¹ß»ýºÒ°¡)
            prcpqty               = "1";       //ó¹æ¼ö·® (1) (¾àÇ°ÀÏ °æ¿ì ¹Ýµå½Ã Æ÷Àå´ÜÀ§ ¼ö·®À» ³Ö¾î ÁÖ¾î¾ß µÊ)
            prcpqtyunitflag       = "-";       //ó¹æ¼ö·®´ÜÀ§ (¾àÇ°ÀÏ °æ¿ì '3', ±×·¸Áö ¾ÊÀ»°æ¿ì '-')
            prcptims              = model.getValue("/root/main/prcpinfo/list[" + i + "]/prcptims");       //ó¹æȽ¼ö (1) (ÀÔ¿øÀÏ °æ¿ì Ƚ¼ö¿¡ µû¶ó Ç®¸²)
            prcpdayno             = "1";       //ó¹æÀϼö (1) (Áö¿øºÎ¼­¿¡¼­´Â ÁÖ»çó¹æ¿¡ ´ëÇÏ¿© Àϼö¸¦ ³ÖÀ¸¸é ¾ÈµÊ, ³ÖÀ¸¸é ÀÚ·á°¡ ¹®Á¦°¡ »ý±è)
            payflagcd             = "-";       //±Þ¿©±¸ºÐÄÚµå (M0029 ÂüÁ¶) -> '-'·Î ³ÖÀ¸ÁÖ¸é ȯÀÚÀÇ º¸ÇèÀ¯Çü¿¡ µû¶ó ÀÚµ¿ ¹ß»ý
            erprcpflag            = "N";       //ÀÀ±Þó¹æ±¸ºÐ (Y/N)
            precureprcpflag       = "N";       //¼±Ã³Ä¡Ã³¹æ±¸ºÐ (Y/N)
            nigtprcpflag          = "N";       //¾ß°£Ã³¹æ±¸ºÐ (Y/N) : ¾ß°£°¡»ê¿¡ ÇØ´ç µÉ °æ¿ì
            portprcpflag          = "N";       //Æ÷Åͺíó¹æ±¸ºÐ (Y/N)
            fixprcpflag           = "N";       //Á¤¾×ó¹æ±¸ºÐ (Y/N)
            choiordflag           = "-";       //¼±ÅÃó¹æ±¸ºÐ (Y/N) -> ¸¸¾à '-'ÀÏ °æ¿ì ¿ø¹«Á¤º¸ ±âÁØÀ¸·Î ó¸®
            anamneflag            = "N";       //±â¿Õ·Â(Áõ)±¸ºÐ (Y/N)
            prcpdirecflag         = "-";       //ó¹æ¹æÇⱸºÐ (ÄÚµåÁ¤ÀǼ­ M0041 ÂüÁ¶), ÀçÈ°Àº À§Ä¡±¸ºÐÀ¸·Î »ç¿ë : '-'
            angioflagcd           = "-";       //Angio±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0006 ÂüÁ¶) : '-'
            opansflagcd           = "-";       //¼ö¼ú¸¶Ã뱸ºÐ (ÄÚµåÁ¤ÀǼ­ M0007, M0008 ÂüÁ¶) : '-'
            ansttm                = "0000";       //¸¶Ãëó¹æ¿¡ ´ëÇÑ ¸¶ÃëÀû¿ë½Ã°£ - ºÐÀ» 4ÀÚ¸®·Î Ç¥Çö, ¿¬¼Ó°Ë»ç °Ë»ç°£°Ý
            offictourhealexamflag = "N";       //ÃâÀå°ËÁø±¸ºÐ (Y/N)
            stemcellflag          = "";        //'00NNN' °ÇÁøû±¸±¸ºÐ, Á¶Ç÷¸ð(ÁÙ±â)¼¼Æ÷ ±¸ºÐ - Stem Cell Source ¿©ºÎ ,Cryo¿©ºÎ, CD34 äÁý¿©ºÎ, Çص¿¿©ºÎÀÇ Á¶ÇÕÀ¸·Î ±¸¼º
            hosinhosoutflag       = "-";       //¿ø³»¿Ü±¸ºÐ(°ÇÁøÀº 'I', ¾àÀÌ ¾Æ´Ò°æ¿ì '-')
            hosinprcpresncd       = "00";      //¿ø³»Ã³¹æ»çÀ¯ (°ÇÁø¿¡ ÇØ´çÇÏ´Â »çÀ¯ - Á¤ÀÇ, ¾àÀÌ ¾Æ´Ò°æ¿ì '00')
            issdeptcd             = "-";       //¹ßÇàºÎ¼­ÄÚµå (Áý°è°¡ ŸºÎ¼­ÀÏ °æ¿ì Ÿ°úÄÚµå, ÀÔ¿øÀº ±âº»ÀÌ º´µ¿) -> '-' ·Î ó¸®Çϸé ÀÚµ¿ ó¸®(±âº»Àº ó¹æÀԷºμ­À̳ª ÀÔ¿øÀº ÇØ´ç º´µ¿À¸·Î ó¸®)
            prcpauthflag          = "5";       //ó¹æ±ÇÇѱ¸ºÐ(0:ÀÇ»çó¹æÈ­¸é, 1:ÀÇ»ç¹×°£È£»ç°øÀ¯Ã³¹æ, 2:¼ø¼ö°£È£Ã³¹æ, 3:Áö¿øºÎ¼­ÀÇ»çó¹æ, 4:±âŸó¹æ - ±âŸ Áö¿øºÎ¼­ Ãß°¡, 5:°è»ê¿ë¿ø¹«Ã³¹æ, 6:°ÇÁøó¹æ ==> 0,1¸¸ ÀÇ»çó¹æÈ­¸é¿¡ º¸ÀÓ, ´Ü 3Àº ÃßÈÄ¿¡ °áÁ¤)
            prcpinptflag          = "15";      //ó¹æÀԷ±¸ºÐ(ÀúÀ屸ºÐÁ¤º¸ÀÇ inptflag¿Í µ¿ÀÏÇÏ°Ô Ã³¸®)
            prcpsignflag          = "0";       //ó¹æ¼­¸í±¸ºÐ(0:ÀÎÁõ¾ÈµÊ, 1:Àǻ簡 ÈÄÀÎÁõ, 2:ÀÎÁõ¿Ï·á)
            oprsrvno              = "0";       //¼ö¼ú¿¹¾à¹øÈ£(0)
            clincstdyflag         = "N";       //Àӻ󿬱¸±¸ºÐ (Y/N)
            clincstdycd           = "-";       //Àӻ󿬱¸ÄÚµå ('-') -> Àӻ󿬱¸±¸ºÐÀÌ 'Y'ÀÏ °æ¿ì Àӻ󿬱¸Äڵ带 µî·Ï
            drugmthdspccd         = "-";       //Åõ¿©¹æ¹ý¹×°ËüÄÚµå(¾àÀÏ °æ¿ì º¹¿ë¹æ¹ý, Áø°Ë ¹× º´¸®ÀÏ °æ¿ì °ËüÄÚµå, Default '-')
            prcpdelivefact        = "";        //ó¹æÀü´Þ»çÇ×
            tootfact              = "-";       //Ä¡½Ä (º´¸®¸¸ »ç¿ë, ³ª¸ÓÁö´Â '-')
            matrsetprcpspec       = "-";       //Àç·áó¹æ³»¿ë ('-') -> ÃßÈÄÁ¤ÀÇ
            calcflag              = "N";       //°è»ê±¸ºÐ (Y/N)
            rsrvflag              = "N";        //¿¹¾à±¸ºÐ (Y/N)
            rsrvdd                = "00000000";       //¿¹¾àÀÏÀÚ ('N'ÀÏ °æ¿ì '00000000')
            rsrvtm                = "000000";       //¿¹¾à½Ã°£ ('N'ÀÏ °æ¿ì '000000')
            rsrvrid               = "-";       //¿¹¾àÀÚID ('-')
            execdd                = "00000000";       //½Ç½ÃÀÏÀÚ ('00000000')
            exectm                = "000000";       //½Ç½Ã½Ã°£ ('000000')
            execrid               = "-";       //½Ç½ÃÀÚID ('-')
            direcprcplnkdd        = "00000000";       //Áö½Ãó¹æ¿¬°èÀÏÀÚ (00000000) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ Ã³¹æÀÏÀÚ
            direcprcplnkno        = "0";       //Áö½Ãó¹æ¿¬°è¹øÈ£ (0) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ ½Ç½Ãó¹æÀ¯ÀϹøÈ£
            ordreqlnkno           = "0";       //Áø·áÀÇ·Ú¿¬°è¹øÈ£ (0)
            testreqlnkno          = "0";       //°Ë»çÀÇ·Ú¿¬°è¹øÈ£ (0) -> º´¸®¿Í Áø´Ü°Ë»ç »ç¿ë
            ocrtag                	= model.getValue("/root/main/profhist/list[" + grd_proflist.row + "]/ocrtag");            //ocrtag
            
            sPassData = sPassData
                  +    savedataflag                        //savedataflag               ÀúÀåÀڷᱸºÐ (2:ó¹æ)
                  + "¢Ë" + saveflag                        //saveflag"                  ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
                  + "¢Ë" + prcpflag                        //prcpflag"                  ó¹æ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0035 ÂüÁ¶ '0'À» Á¦¿ÜÇÑ ÇØ´ç °ªÀ» ³Ö¾îÁÖ¼¼¿ä...)
                  + "¢Ë" + inptflag                        //inptflag"                  ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
                  + "¢Ë" + pamflag                         //pamflag"                   ¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
                  + "¢Ë" + diagflag                        //diagflag"                  Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
                  + "¢Ë" + prcperrflag                     //prcperrflag"               ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
                  + "¢Ë" + deptcd                          //deptcd"                    ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå)
                  + "¢Ë" + deptnm                          //deptnm"                    ºÎ¼­¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í)
                  + "¢Ë" + userid                          //userid"                    »ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID)
                  + "¢Ë" + usernm                          //usernm"                    »ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í)
                  + "¢Ë" + singyn                          //singyn"                    ÀüÀÚ¼­¸í¿©ºÎ
                  + "¢Ë" + pid                             //pid"                       µî·Ï¹øÈ£(¿ø¹«Key)
                  + "¢Ë" + orddd                           //orddd"                     Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
                  + "¢Ë" + indd                            //indd"                      ÀÔ¿øÀÏÀÚ(¿ø¹«Key) - ¿Ü·¡ÀÏ°æ¿ì´Â '-'
                  + "¢Ë" + cretno                          //cretno"                    »ý¼º¹øÈ£(¿ø¹«Key)
                  + "¢Ë" + orddeptcd                       //orddeptcd"                 Áø·á°ú(¿ø¹«)
                  + "¢Ë" + orddrid                         //orddrid"                   Áø·áÀÇID(¿ø¹«)
                  + "¢Ë" + instcd                          //instcd"                    ±â°üÄÚµå
                  + "¢Ë" + status                          //status"                    ½Å±Ô(I), DC(C)
                  + "¢Ë" + rowno                           //rowno"                     ÁÙ¹øÈ£ (º´¸® ¿ä±¸)
                  + "¢Ë" + prcpdd                          //prcpdd"                    ó¹æÀÏÀÚ(¿Ü·¡/Á¾°ÇÀº orddd¿Í µ¿ÀÏ, ÀÔ¿øÀº ó¹æÀÏÀÚ)
                  + "¢Ë" + prcpno                          //prcpno"                    ó¹æ¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
                  + "¢Ë" + prcphistno                      //prcphistno"                ó¹æÀ̷¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
                  + "¢Ë" + prcpgenrflag                    //prcpgenrflag"              ó¹æ¹ß»ý±¸ºÐ(¿ø¹«) - O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
                  + "¢Ë" + prcpstatcd                      //prcpstatcd"                ó¹æ»óÅ : '000'
                  + "¢Ë" + prcpkindcd                      //prcpkindcd"                ó¹æÁ¾·ù : '20'
                  + "¢Ë" + prcpcd                          //prcpcd"                    ó¹æÄÚµå
                  + "¢Ë" + calcscorcd                      //calcscorcd"                ¼ö°¡ÄÚµå
                  + "¢Ë" + inclprcpcd                      //inclprcpcd"                Á¾¼Óó¹æÄÚµå ('-')
                  + "¢Ë" + inclprcpno                      //inclprcpno"                Á¾¼Óó¹æ¹øÈ£ (ÀϷùøÈ£ - Á¾¼Óó¹æÄڵ庰·Î »ý¼º)
                  + "¢Ë" + prcpexecdeptcd                  //prcpexecdeptcd"            ó¹æ½Ç½ÃºÎ¼­ÄÚµå (¼ö°¡ÀÇ Á¢¼öºÎ¼­¸¦ ³Ö¾î Áְųª, Á¢¼öÇÏ´Â ºÎ¼­ÄÚµå, ¾øÀ» °æ¿ì '-'·Î ó¸®)
                  + "¢Ë" + prcphopedd                      //prcphopedd"                ó¹æÈñ¸ÁÀÏÀÚ (ó¹æÀÏÀÚ ÀÌÀüÀ¸·Î ¹ß»ýºÒ°¡)
                  + "¢Ë" + prcpqty                         //prcpqty"                   ó¹æ¼ö·® (1) (¾àÇ°ÀÏ °æ¿ì ¹Ýµå½Ã Æ÷Àå´ÜÀ§ ¼ö·®À» ³Ö¾î ÁÖ¾î¾ß µÊ)
                  + "¢Ë" + prcpqtyunitflag                 //prcpqtyunitflag"           ó¹æ¼ö·®´ÜÀ§ (¾àÇ°ÀÏ °æ¿ì '3', ±×·¸Áö ¾ÊÀ»°æ¿ì '-')
                  + "¢Ë" + prcptims                        //prcptims"                  ó¹æȽ¼ö (1) (ÀÔ¿øÀÏ °æ¿ì Ƚ¼ö¿¡ µû¶ó Ç®¸²)
                  + "¢Ë" + prcpdayno                       //prcpdayno"                 ó¹æÀϼö (1) (Áö¿øºÎ¼­¿¡¼­´Â ÁÖ»çó¹æ¿¡ ´ëÇÏ¿© Àϼö¸¦ ³ÖÀ¸¸é ¾ÈµÊ, ³ÖÀ¸¸é ÀÚ·á°¡ ¹®Á¦°¡ »ý±è)
                  + "¢Ë" + payflagcd                       //payflagcd"                 ±Þ¿©±¸ºÐÄÚµå (M0029 ÂüÁ¶) -> '-'·Î ³ÖÀ¸ÁÖ¸é ȯÀÚÀÇ º¸ÇèÀ¯Çü¿¡ µû¶ó ÀÚµ¿ ¹ß»ý
                  + "¢Ë" + erprcpflag                      //erprcpflag"                ÀÀ±Þó¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + precureprcpflag                 //precureprcpflag"           ¼±Ã³Ä¡Ã³¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + nigtprcpflag                    //nigtprcpflag"              ¾ß°£Ã³¹æ±¸ºÐ (Y/N) : ¾ß°£°¡»ê¿¡ ÇØ´ç µÉ °æ¿ì
                  + "¢Ë" + portprcpflag                    //portprcpflag"              Æ÷Åͺíó¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + fixprcpflag                     //fixprcpflag"               Á¤¾×ó¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + choiordflag                     //choiordflag"               ¼±ÅÃó¹æ±¸ºÐ (Y/N) -> ¸¸¾à '-'ÀÏ °æ¿ì ¿ø¹«Á¤º¸ ±âÁØÀ¸·Î ó¸®
                  + "¢Ë" + anamneflag                      //anamneflag"                ±â¿Õ·Â(Áõ)±¸ºÐ (Y/N)
                  + "¢Ë" + prcpdirecflag                   //prcpdirecflag"             ó¹æ¹æÇⱸºÐ (ÄÚµåÁ¤ÀǼ­ M0041 ÂüÁ¶), ÀçÈ°Àº À§Ä¡±¸ºÐÀ¸·Î »ç¿ë : '-'
                  + "¢Ë" + angioflagcd                     //angioflagcd"               Angio±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0006 ÂüÁ¶) : '-'
                  + "¢Ë" + opansflagcd                     //opansflagcd"               ¼ö¼ú¸¶Ã뱸ºÐ (ÄÚµåÁ¤ÀǼ­ M0007, M0008 ÂüÁ¶) : '-'
                  + "¢Ë" + ansttm                          //ansttm"                    ¸¶Ãëó¹æ¿¡ ´ëÇÑ ¸¶ÃëÀû¿ë½Ã°£ - ºÐÀ» 4ÀÚ¸®·Î Ç¥Çö, ¿¬¼Ó°Ë»ç °Ë»ç°£°Ý
                  + "¢Ë" + offictourhealexamflag           //offictourhealexamflag"     ÃâÀå°ËÁø±¸ºÐ (Y/N)
                  + "¢Ë" + stemcellflag                    //stemcellflag"              '00NNN' °ÇÁøû±¸±¸ºÐ, Á¶Ç÷¸ð(ÁÙ±â)¼¼Æ÷ ±¸ºÐ - Stem Cell Source ¿©ºÎ ,Cryo¿©ºÎ, CD34 äÁý¿©ºÎ, Çص¿¿©ºÎÀÇ Á¶ÇÕÀ¸·Î ±¸¼º
                  + "¢Ë" + hosinhosoutflag                 //hosinhosoutflag"           ¿ø³»¿Ü±¸ºÐ(°ÇÁøÀº 'I', ¾àÀÌ ¾Æ´Ò°æ¿ì '-')
                  + "¢Ë" + hosinprcpresncd                 //hosinprcpresncd"           ¿ø³»Ã³¹æ»çÀ¯ (°ÇÁø¿¡ ÇØ´çÇÏ´Â »çÀ¯ - Á¤ÀÇ, ¾àÀÌ ¾Æ´Ò°æ¿ì '00')
                  + "¢Ë" + issdeptcd                       //issdeptcd"                 ¹ßÇàºÎ¼­ÄÚµå (Áý°è°¡ ŸºÎ¼­ÀÏ °æ¿ì Ÿ°úÄÚµå, ÀÔ¿øÀº ±âº»ÀÌ º´µ¿) -> '-' ·Î ó¸®Çϸé ÀÚµ¿ ó¸®(±âº»Àº ó¹æÀԷºμ­À̳ª ÀÔ¿øÀº ÇØ´ç º´µ¿À¸·Î ó¸®)
                  + "¢Ë" + prcpauthflag                    //prcpauthflag"              ó¹æ±ÇÇѱ¸ºÐ(0:ÀÇ»çó¹æÈ­¸é, 1:ÀÇ»ç¹×°£È£»ç°øÀ¯Ã³¹æ, 2:¼ø¼ö°£È£Ã³¹æ, 3:Áö¿øºÎ¼­ÀÇ»çó¹æ, 4:±âŸó¹æ - ±âŸ Áö¿øºÎ¼­ Ãß°¡, 5:°è»ê¿ë¿ø¹«Ã³¹æ, 6:°ÇÁøó¹æ ==> 0,1¸¸ ÀÇ»çó¹æÈ­¸é¿¡ º¸ÀÓ, ´Ü 3Àº ÃßÈÄ¿¡ °áÁ¤)
                  + "¢Ë" + prcpinptflag                    //prcpinptflag"              ó¹æÀԷ±¸ºÐ(ÀúÀ屸ºÐÁ¤º¸ÀÇ inptflag¿Í µ¿ÀÏÇÏ°Ô Ã³¸®)
                  + "¢Ë" + prcpsignflag                    //prcpsignflag"              ó¹æ¼­¸í±¸ºÐ(0:ÀÎÁõ¾ÈµÊ, 1:Àǻ簡 ÈÄÀÎÁõ, 2:ÀÎÁõ¿Ï·á)
                  + "¢Ë" + oprsrvno                        //oprsrvno"                  ¼ö¼ú¿¹¾à¹øÈ£(0)
                  + "¢Ë" + clincstdyflag                   //clincstdyflag"             Àӻ󿬱¸±¸ºÐ (Y/N)
                  + "¢Ë" + clincstdycd                     //clincstdycd"               Àӻ󿬱¸ÄÚµå ('-') -> Àӻ󿬱¸±¸ºÐÀÌ 'Y'ÀÏ °æ¿ì Àӻ󿬱¸Äڵ带 µî·Ï
                  + "¢Ë" + drugmthdspccd                   //drugmthdspccd"             Åõ¿©¹æ¹ý¹×°ËüÄÚµå(¾àÀÏ °æ¿ì º¹¿ë¹æ¹ý, Áø°Ë ¹× º´¸®ÀÏ °æ¿ì °ËüÄÚµå, Default '-')
                  + "¢Ë" + prcpdelivefact                  //prcpdelivefact"            ó¹æÀü´Þ»çÇ×
                  + "¢Ë" + tootfact                        //tootfact"                  Ä¡½Ä (º´¸®¸¸ »ç¿ë, ³ª¸ÓÁö´Â '-')
                  + "¢Ë" + matrsetprcpspec                 //matrsetprcpspec"           Àç·áó¹æ³»¿ë ('-') -> ÃßÈÄÁ¤ÀÇ
                  + "¢Ë" + calcflag                        //calcflag"                  °è»ê±¸ºÐ (Y/N)
                  + "¢Ë" + rsrvflag                        //rsrvflag"                  ¿¹¾à±¸ºÐ (Y/N)
                  + "¢Ë" + rsrvdd                          //rsrvdd"                    ¿¹¾àÀÏÀÚ ('N'ÀÏ °æ¿ì '00000000')
                  + "¢Ë" + rsrvtm                          //rsrvtm"                    ¿¹¾à½Ã°£ ('N'ÀÏ °æ¿ì '000000')
                  + "¢Ë" + rsrvrid                         //rsrvrid"                   ¿¹¾àÀÚID ('-')
                  + "¢Ë" + execdd                          //execdd"                    ½Ç½ÃÀÏÀÚ ('00000000')
                  + "¢Ë" + exectm                          //exectm"                    ½Ç½Ã½Ã°£ ('000000')
                  + "¢Ë" + execrid                         //execrid"                   ½Ç½ÃÀÚID ('-')
                  + "¢Ë" + direcprcplnkdd                  //direcprcplnkdd"            Áö½Ãó¹æ¿¬°èÀÏÀÚ (00000000) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ Ã³¹æÀÏÀÚ
                  + "¢Ë" + direcprcplnkno                  //direcprcplnkno"            Áö½Ãó¹æ¿¬°è¹øÈ£ (0) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ ½Ç½Ãó¹æÀ¯ÀϹøÈ£
                  + "¢Ë" + ordreqlnkno                     //ordreqlnkno"               Áø·áÀÇ·Ú¿¬°è¹øÈ£ (0)
                  + "¢Ë" + testreqlnkno                    //testreqlnkno"              °Ë»çÀÇ·Ú¿¬°è¹øÈ£ (0) -> º´¸®¿Í Áø´Ü°Ë»ç »ç¿ë
                  + "¢Ë" + ocrtag                    		//ocrtag"              			OCRTAG
                  + "¢Ì"   ;
            // 2013.12.26 Start 
            if( chkcnt == 1 ){
            	// 2013.12.20 ¹Ýȯ½Ã OCR À̹ÌÁö »èÁ¦Ã³¸® 
	            if( ocrtag != null && ocrtag != "" ){                
	                sHeaderData = sHeaderData
	                		+ saveflag
	                		+ "¢Ë" + ocrtag
			                + "¢Ë" + pid                             //pid"                       µî·Ï¹øÈ£(¿ø¹«Key)
			                + "¢Ë" + orddd                           //orddd"                     Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
			                + "¢Ë" + cretno                          //cretno"                    »ý¼º¹øÈ£(¿ø¹«Key)
			                + "¢Ë" + orddeptcd                       //orddeptcd"                 Áø·á°ú(¿ø¹«)
			                + "¢Ë" + orddrid                         //orddrid"                   Áø·áÀÇID(¿ø¹«)
			                + "¢Ë" + getUserInfo("dutplcecd")                          //instcd"                    ±â°üÄÚµå
			                + "¢Ë" + getCurrentDate()
			                + "¢Ë" + getUserInfo("userid")
			                + "¢Ë" + "Y"
			                + "¢Ë" + "Y"
			                + "¢Ë" + "CP"
			                + "¢Ë" + "Á¦Áõ¸í ¹ÝȯÀ¸·Î ÀÎÇÑ »èÁ¦"
			                + "¢Ë" + "1" 
	                		+ "¢Ì"   ;  
	            }
            }
        }
    }
    
    model.makeValue("/root/send/savedata/ocrtaglist", sHeaderData);
    model.makeValue("/root/send/savedata/rcptlist", sPassData);
    model.makeValue("/root/send/savedata/profcertseq", model.getValue("/root/temp/profinfo/profcertseq"));
    if (submit("TXMMR02301", false) == true){
    	//¿À·ùÆ˾÷_KNUH_20110215 Ãß°¡
		var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist" );
		if ( prcpErrList.length > 0 ) {
			if ( !isNull(model.getValue ("/root/result/prcperrlist/prcpcd"))){
				var xpt = window.screenleft + 100;
			 	var ypt = window.screenTop + 50;     
			  	var coord = getRelativeCoordinate ( xpt, ypt );
			  	var mon = coord[0];
			  	xpt = coord[1];
			  	ypt = coord[2];
			  	model.makeValue("/root/result/prcperrlist/flag", "1");
		 	 	//open ( "SPMMO00600", mon,  xpt, ypt, "prcpdetl", "/root/temp/result", "/root/result", "", false ); 
		 	 	modal ( "SPMMO00600", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result" ); //¿À·ùÆ˾÷
			  	model.removeNodeset("/root/result/prcperrlist");
			}
		}
		else
		{
        	fSrchCalcScor();
        }
    }
}