var emrResultRef = "/root/hidden/erm/resultref";

function makeEmrResultRef(){ model.makeNode(emrResultRef); }

function removeEmrResultRef(){ model.removeNode(emrResultRef); }

// EMR °øÅëÄÚµå Á¶È¸
function emrfGetCodeList(cd_grup_id_list, rslt_ref_list, ref_yn, detail_yn) {

		// ±âÁ¸ ¹æ½Ä´ë·Î ¼­¹ö¿¡¼­ ¸Å¹ø Á¶È¸ÇÑ´Ù.
	emrfGetCodeListSubmit(cd_grup_id_list, rslt_ref_list, ref_yn, detail_yn);
}

// EMR °øÅëÄÚµå Á¶È¸(Ç×»ó ¼­¹ö¿¡¼­ Á¶È¸ÇÏ´Â ¹æ½Ä)
function emrfGetCodeListSubmit(cd_grup_id_list, rslt_ref_list, ref_yn, detail_yn){
		makeEmrResultRef();
		// ÂüÁ¶¿©ºÎ(ref_yn) °¡ 'Y' ÀÎ °æ¿ì 1 Depth ÇÏÀ§ Äڵ尪°ú ÇÔ²² Á¶ÀÎÇÑ´Ù.
		if(ref_yn == null){
			ref_yn = 'N';
		}
			addParameter("refyn", ref_yn);

		// ÄÚµå¸í »ç¿ë ±¸ºÐ(detail_yn) °¡ 'Y' ÀÎ °æ¿ì ÄÚµå ¸íÀ» DETLDESC Ä÷³ °ªÀ» Á¶È¸ ÇÑ´Ù.
		if(detail_yn == null){
			detail_yn = 'N';
		}
			addParameter("detailyn", detail_yn);

		for (key in cd_grup_id_list){
			addParameter("maincd", cd_grup_id_list[key]);
		}
		var submit_id;
			submit_id = "TRMRJ09901";
		var success =  submit(submit_id, "false", getParameterPath(), emrResultRef);
		for(key in cd_grup_id_list){
			var target_path   =  rslt_ref_list[key];
			if(target_path==null){
				target_path = rslt_ref_list[key-1];
			}
			var source_path =  emrResultRef+"/"+cd_grup_id_list[key]+"/"+cd_grup_id_list[key];
			var sourceNode = instance1.selectNodes(emrResultRef+"/"+cd_grup_id_list[key]+"/"+cd_grup_id_list[key]);
			for(i=0; i<sourceNode.length; i++){
				model.duplicate(target_path, sourceNode.item(i));
			}
		}
		removeEmrResultRef();
		clearParameter("maincd");
		clearParameter("refyn");
		clearParameter("detailyn");
}