function initFormAtLast_MMRDegnForm()
{
	var formCd = fGetFormMast("formcd");
	var srcFormCd = fGetFormMast("srcformcd");
	
	if(formCd == "0000000615") {//Delivery Note
		fSetIFData0000000615_MMRDegnForm();
	}
	else if(formCd == "0900005340") {//Áø·áÀÇ·Ú¼­
	//2012/05/11 Start Áø·áÀÇ·Ú¼­ÀÇ »ç¿ë±¸ºÐÀ» »ç¿ëÀÚ°¡ ¼±Åà ÇÒ ¼ö ÀÖµµ·Ï ÁÖ¼®Ã³¸®
	//	fSetIFData0900005340_MMRDegnForm();
	//2012/05/11 End		
	}
	else if(srcFormCd == "0000000737") {//¼ö¼úÀüÆò°¡¼­
		fSetIFData0000000737_MMRDegnForm();
	}
	else if(srcFormCd == "0800003416") {//Post Op Note
		fSetIFData0800003416_MMRDegnForm();
	}
}

/**
 * ¼úÀüÆò°¡¼­ Data¿¬µ¿
 * @return
 */
function fSetIFData0000000737_MMRDegnForm()
{
	if (fGetFormRec("status") == "C") {
    	var pageInfo = new PAGEINFO();
    	var degnlvcd = "0016650.0000960";
    	var itemVal = new ITEMVAL();    
    	var opcnfmdd = opener.window.javascript.getParameter("opcnfmdd");				// ¼ö¼úÈ®Á¤ÀÏÀÚ(¼ö¼úÀü Æò°¡¼­)
    	model.makeValue("/root/opsend/pid", fGetFormRec("pid"));
    	model.makeValue("/root/opsend/opcnfmdd", opcnfmdd);
    	var oprsrvno = opener.window.javascript.getParameter("oprsrvno");								// ¼ö¼ú¿¹¾à¹øÈ£(¼ö¼úÀü Æò°¡¼­)
    	model.makeValue("/root/opsend/oprsrvno", oprsrvno);
    	
    	var grdNode = instance1.selectSingleNode("/root/temp/recinfo/grid");
    	
    	if(submit("TRMMR01103")) {
    		var opRecList = instance1.selectNodes("/root/optmp");
    		if (opRecList.length > 0) {
            	itemVal.reccnts = model.getValue("/root/optmp/recitem/hb");
                ivw_base.window.javascript.setFormItemValue("0005344.0001179", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/hct");
                ivw_base.window.javascript.setFormItemValue("0005344.0001276", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/platelet");
                ivw_base.window.javascript.setFormItemValue("0005344.0002551", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/bt");
                ivw_base.window.javascript.setFormItemValue("0005344.0005327", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/pt");
                ivw_base.window.javascript.setFormItemValue("0005344.0002243", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/ptinr");
                ivw_base.window.javascript.setFormItemValue("0005344.0008378", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/aptt");
                ivw_base.window.javascript.setFormItemValue("0005344.0006147", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/fbs");
                ivw_base.window.javascript.setFormItemValue("0005344.0001267", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/sgot");
                ivw_base.window.javascript.setFormItemValue("0005344.0002885", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/sgpt");
                ivw_base.window.javascript.setFormItemValue("0005344.0002886", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/na");
                ivw_base.window.javascript.setFormItemValue("0005344.0002901", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/k");
                ivw_base.window.javascript.setFormItemValue("0005344.0002902", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/bun");
                ivw_base.window.javascript.setFormItemValue("0005344.0002881", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/cr");
                ivw_base.window.javascript.setFormItemValue("0005344.0002882", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/ca");
                ivw_base.window.javascript.setFormItemValue("0005344.0002904", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/mg");
                ivw_base.window.javascript.setFormItemValue("0005344.0006138", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/hbsag");
                ivw_base.window.javascript.setFormItemValue("0005344.0003046", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/hiv");
                ivw_base.window.javascript.setFormItemValue("0005344.0000800", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/bilirubin");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0008021", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/ph");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0006334", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/glucose");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0006142", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/ketonebody");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0016878", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/protein");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0000184", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/color");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0002872", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/sg");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0005947", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/uro");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0016879", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/leuk");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0016880", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/ob");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0005976", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/nitrate");
                ivw_base.window.javascript.setFormItemValue("0005344.0000476.0016881", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/ph2");
                ivw_base.window.javascript.setFormItemValue("0005344.0005956.0006334", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/pao");
                ivw_base.window.javascript.setFormItemValue("0005344.0005956.0007043", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/paco");
                ivw_base.window.javascript.setFormItemValue("0005344.0005956.0005958", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/hc");
                ivw_base.window.javascript.setFormItemValue("0005344.0005956.0005959", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/be");
                ivw_base.window.javascript.setFormItemValue("0005344.0005956.0002584", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/sao");
                ivw_base.window.javascript.setFormItemValue("0005344.0005956.0005957", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/blood");
                ivw_base.window.javascript.setFormItemValue("0005344.0001184", itemVal, false);
                
                itemVal.reccnts = model.getValue("/root/optmp/recitem/wt");
                ivw_base.window.javascript.setFormItemValue("0000570.0000268", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/ht");
                ivw_base.window.javascript.setFormItemValue("0000570.0000566", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/bp1");
                ivw_base.window.javascript.setFormItemValue("0000570.0001180.0000525", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/bp2");
                ivw_base.window.javascript.setFormItemValue("0000570.0001180.0000791", itemVal, false);
                itemVal.reccnts = model.getValue("/root/optmp/recitem/pr");
                ivw_base.window.javascript.setFormItemValue("0000570.0000258", itemVal, false);
                
                itemVal.reccnts = model.getValue("/root/optmp/recitem/opnm");
                ivw_base.window.javascript.setFormItemValue("0000665", itemVal, true);
                
                var nodeList = instance1.selectNodes("/root/optmp/recitem");
                
				for (var i = 0; i < nodeList.length; i++)
				{
					var diagcd = "";
					var diagnm = "";
					
					diagnm = nodeList.item(i).selectSingleNode("diagnm").text;
					diagcd = nodeList.item(i).selectSingleNode("diagcd").text;
					
					//var ro = nodeList.item(i).selectSingleNode("diagkindcd").text;
					//var mskind = nodeList.item(i).selectSingleNode("diagkindcdflag").text;
				    
					//if (mskind == "M")
					//{
					//	parent.window.javascript.setParameter("SSMRF04000_diagnm", diagnm);
					//}
				
					if(getNodesetCnt(model, pageInfo.RecinfoGridrecItemRef + "[contains(degnitemlevlcd, '" + degnlvcd + "') and contains(degnitemcd, '0000960')]/recitem[rectermcd='" + diagcd + "']") > 0)
						continue;
					
					copyNodeset("/root/main/recinfo/grid", "/root/temp/recinfo/grid", "replace", ivw_base.model, ivw_base.model);
					
					var grdNode = ivw_base.instance1.selectSingleNode("/root/main/recinfo/grid");
					
					//grdNode = grdNode.cloneNode(true);
					
					//grd rowno¸¦ °»½ÅÇÑ´Ù.
					var rowno = getNodesetCnt(model, pageInfo.RecinfoGridrecItemRef + "[contains(degnitemlevlcd, '" + degnlvcd + "') and contains(degnitemcd, '0000960') and degnitemkind = 'GRD']");
					//grdNode.selectSingleNode("rowno").text = i;
					var recitemList = grdNode.selectNodes("recitem");
					
					for(var j = 0; j < recitemList.length; j++)
					{
						var recitemNode = recitemList.item(j);
						
						recitemNode.selectSingleNode("rowno").text = rowno;
						
						if(j == 3)  //Áø´ÜÄÚµå, Áø´Ü¸í
						{
							recitemNode.selectSingleNode("rectermcd").text = diagcd;
							recitemNode.selectSingleNode("rectermnm").text = diagnm;
						}
					}
					
					//copyNodeType("/root/temp/recinfo/grid/recitem", "/root/main/recinfo/grid/recitem", "replace", ivw_base.model, model);
				
					var recNode = instance1.selectSingleNode(pageInfo.recRef);
					if(recNode == null)
					{
						model.makeNode(pageInfo.recRef);
						recNode = instance1.selectSingleNode(pageInfo.recRef);
					}
					recNode.appendChild(grdNode);
				}// end of for (var i = 0; i < nodeList.length; i++)

				model.refresh();
            }//end of if (opRecList.length > 0)
    		
        }//end of if(submit("TRMMR01103"))
    	
	}//end of if (fGetFormRec("status") == "C")
}

/**
 * Post OP Note Data¿¬µ¿
 * @return
 */
function fSetIFData0800003416_MMRDegnForm()
{
	if (fGetFormRec("status") == "C") {
	
		//¼ö¼ú¿¹¾à¹øÈ£ °¡Á®¿À±â
	    var operation = getGlobalVariable("operation").split("¢Ì")[1];
	    var oprsrvno  = "";
	    model.addLog("fSetIFData0800003416_MMRDegnForm == post op ¿¬µ¿===operation:" + operation);
	    if(operation != null && operation != ""){
	        oprsrvno = operation.split("¢Ë")[0];
	    }
	    
        fSetFormRec("oprsrvno", oprsrvno);
	      
	    model.addLog("fSetIFData0800003416_MMRDegnForm == post op ¿¬µ¿===oprsrvno:" + oprsrvno);
	
		//½Å±Ô¼­½Ä·ÎµùÀÇ °æ¿ì¸¸ Brief Op Note -> Post Op Note ¿¬µ¿

		model.makeValue("/root/send/extninfo/infoflag", "recdata");
		model.makeValue("/root/send/extninfo/recdataflag", "postopnote");
		
		model.makeValue("/root/send/extninfo/pid",           fGetFormRec("pid"));
		model.makeValue("/root/send/extninfo/orddd",         fGetFormRec("orddd"));
		model.makeValue("/root/send/extninfo/cretno",        fGetFormRec("cretno"));
		model.makeValue("/root/send/extninfo/fromsrcformcd", "0000003169"); //Brief Op Note ÀÇ ±âº»¼­½ÄÄÚµå
		model.makeValue("/root/send/extninfo/toformcd",      fGetFormMast("formcd"));
		model.makeValue("/root/send/extninfo/srcformcd",     "0800003416");//Post Op Note  srcFormCd=0800003416
		model.makeValue("/root/send/extninfo/formrecdd",     fGetFormRec("formrecdd"));
		
		model.removenode("/root/main/extninfo");
		model.makenode("/root/main/extninfo");
		
		if (submit("TRMMR01302")) {
		
			//¼ö¼úÀü, ¼ö¼úÈÄ Áø´Ü¸í, ¼ö¼ú¸í ¿¬µ¿
			var preOpDiag  = "";
			var postOpDiag = "";
			var opTitle    = "";
			
			if(getNodesetCount("/root/main/extninfo/recitem") > 0){
				
				var fstlevlitemcd = model.getValue("/root/main/extninfo/recitem[degnitemlevlcd='0007983' and degnitemkind = 'DGN']/fstlevlitemcd");
				preOpDiag = model.getValue("/root/main/extninfo/recitem[fstlevlitemcd='" + fstlevlitemcd + "' and degnitemkind = 'GSU' and colno=2]/rectermnm");
				
				fstlevlitemcd = model.getValue("/root/main/extninfo/recitem[degnitemlevlcd='0000521' and degnitemkind = 'DGN']/fstlevlitemcd");
				postOpDiag = model.getValue("/root/main/extninfo/recitem[fstlevlitemcd='" + fstlevlitemcd + "' and degnitemkind = 'GSU' and colno=2]/rectermnm");
				
				fstlevlitemcd = model.getValue("/root/main/extninfo/recitem[degnitemlevlcd='0000509' and degnitemkind = 'OPN']/fstlevlitemcd");
				opTitle = model.getValue("/root/main/extninfo/recitem[fstlevlitemcd='" + fstlevlitemcd + "' and degnitemkind = 'GSU' and colno=0]/rectermnm");
				
			}
			
			var pageInfo = new PAGEINFO();
			
			//¼ö¼úÀüÁø´Ü¸í
			var condition = "degnitemlevlcd='0007983' and degnitemkind='STX'";
			var destNode = ivw_base.model.instances(0).selectSingleNode(pageInfo.recItemRef + "[" + condition + "]");
			if(destNode != null)
				destNode.selectSingleNode("reccnts").text = preOpDiag;
				
			//¼ö¼úÈÄÁø´Ü¸í
			condition = "degnitemlevlcd='0000521' and degnitemkind='STX'";
			destNode = ivw_base.model.instances(0).selectSingleNode(pageInfo.recItemRef + "[" + condition + "]");
			if(destNode != null)
				destNode.selectSingleNode("reccnts").text = postOpDiag;
				
			//¼ö¼ú¸í
			condition = "degnitemlevlcd='0000509' and degnitemkind='STX'";
			destNode = ivw_base.model.instances(0).selectSingleNode(pageInfo.recItemRef + "[" + condition + "]");
			if(destNode != null)
				destNode.selectSingleNode("reccnts").text = opTitle;
			
			model.refresh();
			ivw_base.model.refresh();
			
		}
	}
}

/**
 * 2010.03.11 ¾ÈÄ¡¿ø - Áø·á delivery Note(0000000615)¿¡ ºÐ¸¸°£È£ÀÇ µ¥ÀÌÅÍ ¿¬µ¿ -¿ä:3650
 * liveyn - Y:0028890001, N:0003918001
 * gndr - M:0003466001, F:0003399001
 * @return
 */
function fSetIFData0000000615_MMRDegnForm()
{
	if (fGetFormRec("status") != "C") return;
	
	model.makeValue("/root/send/extninfo/infoflag", "etc_deliverynote");
	model.makeValue("/root/send/extninfo/pid",           fGetFormRec("pid"));
	model.makeValue("/root/send/extninfo/orddd",         fGetFormRec("orddd"));
	model.makeValue("/root/send/extninfo/cretno",        fGetFormRec("cretno"));
	
	if (submit("TRMMR01302")) {
		var cnt = getNodesetCnt(model, "/root/main/extninfo/etcinfo");
		if (cnt == 0) return;
		
		var pre_levlcd = "0000363.";
		var mid_levlcd = new Array("0000988", "0000218", "0000471", "0002692"); //1st,2nd,3rd,4th
		//"bthdd", "bthtm", "liveyn", "gndr", "weig", "apgarscore1", "apgarscore5"
		var post_levlcd = new Array(".0000160", ".0000538", ".0009800", ".0000458", ".0000268", ".0010920.0010922", ".0010920.0006010");
		var dest_path = "";
		var src_path = "";
		var buf = "";
		for (var i=0; i<cnt; i++) {
			for (var j=0; j<post_levlcd.length; j++) {
				dest_path = pre_levlcd + mid_levlcd[i] + post_levlcd[j];
				src_path = "/root/main/extninfo/etcinfo["+(i+1)+"]/col" + j;
				var itemVal = new ITEMVAL();
				if (post_levlcd[j] == ".0009800") {
					//liveyn - Y:0028890001, N:0003918001
					if (model.getValue(src_path) == "Y") {
						itemVal.rectermcd = "0028890001";
						itemVal.rectermnm = "Living";
					}
					else if (model.getValue(src_path) == "N") {
						itemVal.rectermcd = "0003918001";
						itemVal.rectermnm = "Dead";
					}
					else continue;
				}
				else if (post_levlcd[j] == ".0000458") {
					//gndr - M:0003466001, F:0003399001
					if (model.getValue(src_path) == "M") {
						itemVal.rectermcd = "0003466001";
						itemVal.rectermnm = "M";
					}
					else if (model.getValue(src_path) == "F") {
						itemVal.rectermcd = "0003399001";
						itemVal.rectermnm = "F";
					}
					else continue;
				}
				else {
					itemVal.reccnts = model.getValue(src_path);
				}
                ivw_base.window.javascript.setFormItemValue(dest_path, itemVal, false);
			}
		}
		ivw_base.window.model.refresh();
	}
}

/**
 * Áø·áÀÇ·Ú¼­ ÄÁÆ®·Ñ »óź¯°æ
 * @return
 */
function fSetIFData0900005340_MMRDegnForm()
{
	var insukind = opener.model.getValue("/root/main/result/pathistlist/insukind");	
	if(insukind == "11" || insukind == "81"){			
		ivw_base.SSU_57.disabled = true;
		ivw_base.SSU_58.disabled = true;
		ivw_base.SSU_59.disabled = true;
	}else{
		ivw_base.SSU_57.disabled = false;
		ivw_base.SSU_58.disabled = false;
		ivw_base.SSU_59.disabled = false;
	}
}