YNU_JEUS/app_home/himed/xpapps/lis/commonxp/xp/LZZ003.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[//  /**********************************************************************************
//  * Name			: gfn_validCnts
//  * Description	: 의뢰서 Validation Check
//  * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
//  * return Type	: text
//  * Author		: Autumn
// **********************************************************************************/
function gfn_validCnts(sText){

	return (((((sText.replace(" ","")).replace(".","")).replace(",","")).replace("`","")).replace("-","")).replace("_","");
}

 
 /**********************************************************************************
 * Name			: gfn_prcpState
 * Description	: 의뢰서 정보조회 콜백함수
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
**********************************************************************************/
function gfn_prcpState(strSvcID, nErrorCode, strErrorMag)
{
	return 410;
}
/************************************************************************************************
작   성   자 : 김인섭
작   성   일 : 2014. 1. 06
참        고 : 감염정보를 조회한다
P A R A M    : pid - 환자번호 
return		 : rtnVal[N] -  0 : 의뢰지에 감염정보 표시유무 (Y/N)
							1 : 혈액주의여부  (Y/N)
							2 : 접촉주의여부  (Y/N)
							3 : 공기주의여부  (Y/N)
************************************************************************************************/
function gfn_reqGetInfectionInfo(pid){
	dsf_createDs("Ds_Temp001");

	var sInDsName = dsf_createDsRow("ds_temp_search"
							, [{col: "pid", val: frmf_setInputNodeCurPid_Change(pid)}
							]);
								
	// 서브밋호출
	tranf_submit({   id: "TRLPJ01701"
				   , service: "plgyacptmngtapp.SpecimenAccept"
				   , method: "reqGetInfectionInfo"
				   , inds : "refData="+sInDsName
				   , outds: "Ds_Temp001=refrslt"
				   , callback: "cbf_TRLPJ01701"
				   , async: false
	 });
	 
	if(Ds_Temp001.rowcount > 0 ){
		var disp1 =Ds_Temp001.getColumn(0,"disp1");
		var disp2 =Ds_Temp001.getColumn(0,"disp2");
		var disp3 =Ds_Temp001.getColumn(0,"disp3");
	}else{
		var disp1 =Ds_Temp001.getColumn(0,"");
		var disp2 =Ds_Temp001.getColumn(0,"");
		var disp3 =Ds_Temp001.getColumn(0,"");
	}
	
	if(Ds_Temp001.getColumn(0,"disp1") == "Y"||Ds_Temp001.getColumn(0,"disp2") == "Y"||Ds_Temp001.getColumn(0,"disp3") == "Y"){
		var dispyn = "Y";
			
	}else{
		var dispyn = "N";
	}
	
	var rtnVal =  dispyn+","+disp1+","+disp2+","+disp3;
	return (rtnVal).split(",");
}/************************************************************************************************
작   성   자 : 김인섭
작   성   일 : 2014. 1. 06
참        고 : 전체 병리검체리스트 데이터셋을 만든다. 
************************************************************************************************/
function gfn_getSpcList(){
	dsf_createDs("ds_database_instcd");
	dsf_createDs("ds_pathology_spclist");

	var lgv_sTargetDb  = "";
	ds_database_instcd.copyData(gf_getBaseCode("targetdb", sysf_getUserInfo("dutplceinstcd"), gv_sLocalDb));
	ds_database_instcd.filter("resncd != '1000' && resncd != 'ZZZZ'");

	// 의료원 db 명칭을 체크
	var nFindRow = ds_database_instcd.findRow("resncd", gv_sCenDBInstCd);
	
	if (nFindRow == -1) {
		this.close();
	}

	lgv_sTargetDb = ds_database_instcd.getColumn(nFindRow, "resncnts");

	var sInDsName = dsf_createDsRow("ds_temp_search"
 	                             , [{col: "instcd"	 , val: sysf_getUserInfo("dutplceinstcd")}
 	                             ,  {col: "delflagcd", val: 0}
 	                             ,  {col: "refflag"	 , val: 0}
 	                             ,  {col: "targetdb" , val: lgv_sTargetDb}
 	                             ]);
	tranf_submit({
                     id: "TRLPC00601"
                   , service: "plgybaseinfomngtapp.SpecimenCode"
	               , method: "reqGetSpecimenCodeList"
	               , inds : "refData="+sInDsName
	               , outds: "ds_pathology_spclist=spccdlistdata"
	               , callback: "cbf_LZZ003"
	               , async: false
	});	

}
/************************************************************************************************
작   성   자 : 김인섭
작   성   일 : 2014. 1. 06
참        고 : XML 구문 내부의 반복노드 String  정리
************************************************************************************************/
function gfn_ReplaceDelTag(delRowcnt,convertTXT){

	for(var x =0 ; x < delRowcnt ; x++){
		convertTXT = convertTXT.replace("[delete"+x+"]","");
	}
	return convertTXT;
}	
/************************************************************************************************
작   성   자 : 김인섭
작   성   일 : 2014. 1. 06
참        고 : 검체 채취일자를 리턴한다.
************************************************************************************************/
function gfn_reqGetDelivedd(spcbarcdno){
	dsf_createDs("Ds_Temp000");

	var sInDsName = dsf_createDsRow("ds_temp_search"
							, [{col: "spcbarcdno", val: spcbarcdno.substr(0,9)}
							]);
								
	// 서브밋호출
	tranf_submit({   id: "TRLPJ01701"
				   , service: "plgyacptmngtapp.SpecimenAccept"
				   , method: "reqGetDelivedd"
				   , inds : "refData="+sInDsName
				   , outds: "Ds_Temp000=refrslt"
				   , callback: "cbf_TRLPJ01701"
				   , async: false
	 });
	 
	if(Ds_Temp000.rowcount > 0 ){
	
		return Ds_Temp000.getColumn(0,"delivedt");
		
	}else{
	
		return "";
	
	}
}/************************************************************************************************
작   성   자 : 김인섭
작   성   일 : 2014. 4. 05
참        고 : 검체 채취 부위를 리턴한다.
************************************************************************************************/
function gfn_reqGetSpcCmt(spcbarcdno){
	dsf_createDs("Ds_Temp100");

	var sInDsName = dsf_createDsRow("ds_temp_search"
							, [{col: "spcbarcdno", val: spcbarcdno}
							]);
								
	// 서브밋호출
	tranf_submit({   id: "TRLPJ01791"
				   , service: "plgyacptmngtapp.SpecimenAccept"
				   , method: "reqGetSpcCmt"
				   , inds : "refData="+sInDsName
				   , outds: "Ds_Temp100=refrslt"
				   , callback: "cbf_TRLPJ01701"
				   , async: false
	 });
	 
	if(Ds_Temp100.rowcount > 0 ){
	
		return Ds_Temp100.getColumn(0,"spccmt");
		
	}else{
	
		return "";
	
	}
}

/************************************************************************************************
작   성   자 : 김인섭
작   성   일 : 2014. 1. 06
참        고 : XML 구문(orgTxt) 에서 조회하는 인스턴스(srchTxt) 의 값을 리턴한다. 
************************************************************************************************/

function gfn_rtnXmlValue(orgTxt,srchTxt){
	
	var ChkNullTag = orgTxt
	var parser = new DomParser;
	var reqsysdtinfoDOC = parser.parseFromString(orgTxt);
	var reqsysdtinfoXML = reqsysdtinfoDOC.documentElement;
	var chkSrchTxt = "<"+srchTxt+">";
	
	if(ChkNullTag.indexOf(chkSrchTxt) != -1) {
		return reqsysdtinfoXML.getElementsByTagName(srchTxt).get_item(0).firstChild.data;
	}
	return "";
}
// 전자제품 구매 X
/************************************************************************************************
작   성   자 : 김인섭
작   성   일 : 2014. 1. 06
참        고 : 의뢰지 출력용 함수
************************************************************************************************/

function gfn_ReqFrmPrnt(pid, ptno, acptdd, flag, prcpdd, orddeptnm, isoflag, reqfrmno,trusttestflagcd){

	var title = "";
	var title2 = "";
	dsf_createDs("ds_prntinfo");			
	dsf_createDs("ds_prntrsltinfo");		
	var sInDsName = dsf_createDsRow("ds_temp_search"
													, [{col: "flag"			, val: 	flag			}
													,  {col: "pid"			, val: 	pid			}
													,  {col: "ptno"		, val: 	ptno			}
													,  {col: "acptdd"		, val: 	acptdd		}
													,  {col: "prcpdd"		, val: 	prcpdd		}
													,  {col: "orddeptnm", val: 	orddeptnm	}
													,  {col: "isoflag"		, val: 	isoflag		}
													,  {col: "reqfrmno"		, val: 	reqfrmno		}
													]);									
	tranf_submit({
		 id: "TRLPJ01702"
	   , service: "plgyacptmngtapp.SpecimenAccept"
	   , method: "reqGetPrntInfo"
	   , inds : "pid="+sInDsName
	   , outds: "ds_prntinfo=prntinfo ds_prntrsltinfo=prntrsltinfo"
	   , callback: "cbf_makerpt"
	   , async: false
	});

	// 병원정보 DS 조회
	gf_getHospitalInfo(sysf_getUserInfo("dutplceinstcd"));

	var hngaddr = gf_getHospitalInfoMerge("HNGADDR");
	var engaddr = gf_getHospitalInfoMerge("ENGADDR");
	var tel1    = gf_getHospitalInfoMerge("TEL1");
	var tel2    = gf_getHospitalInfoMerge("TEL2");
	var tel3    = gf_getHospitalInfoMerge("TEL3");
	var telfax  = gf_getHospitalInfoMerge("TELFAX");
		
	var cCnt = ds_prntinfo.getColCount();
	
	for(x = 0 ; x < cCnt ; x++){
		ds_prntinfo.setColumn(0,x,utlf_transNullToEmpty(ds_prntinfo.getColumn(0,x)));
	}

	var objDOM = rptf_createDOM();           // DOM 객체 설정
	rptf_makeNodeToDOM(objDOM, "/root/main/prntinfo");	
	rptf_makeNodeToDOM(objDOM, "/root/main/prntrsltinfo");
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/_rpt_keyval"  		, _rpt_keyval	);         			//_rpt_keyval  
	
	if(ds_prntinfo.getColumn(ds_prntinfo.rowposition,"ptno").length == 9){
		var ptnoflag = (ds_prntinfo.getColumn(ds_prntinfo.rowposition,"ptno")).substr(0,1);
	}else{
		var ptnoflag = (ds_prntinfo.getColumn(ds_prntinfo.rowposition,"ptno")).substr(0,2);
	}
	
	
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/ptnoflag", ptnoflag);

		if	(ptnoflag == "S")
		{    
			title = "조직병리 진단의뢰서";
			title2 = "Histopathology";		

		}else if(ptnoflag == "D"){
			title = "체액세포병리 진단의뢰서";
			title2 = "Body fluid Cytology";
			
		}else if(ptnoflag == "C"){
			title = "자궁경부세포병리 진단의뢰서";
			title2 = "Cervico-vaginal Cytology";
		
		}else if(ptnoflag == "A"){
			title = "세침흡인세포병리 진단의뢰서";
			title2 = "Fine Needle Aspiration Cytology";
		}else if(ptnoflag == "M"){
			title = "분자병리진단 의뢰서";
			title2 = "Molecular pathology";
		}else if(ptnoflag == "L"){
			title = "대여(공통) 의뢰서";
			title2 = "Rental Request";
		}else if(ptnoflag == "L"){
			title = "부검 의뢰서";
			title2 = "Autopsy Request";
		}
	if(trusttestflagcd == "1")
	{
		title = "위탁검사 의뢰서";
	}

	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/title"  		, title	);         			//title  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/title2"  		, title2	);         		//title2
		
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/hngaddr"  	, hngaddr	);         			//한글주소 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/engaddr"  	, engaddr	);         			//영문주소
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/tel1"  		, tel1		);         			//대표전화1
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/tel2"  		, tel2		);         			//대표전화2 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/tel3"  		, tel3		);         			//대표전화1 + 대표전화2
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/telfax"  	, telfax	);         			//대표전화1 + FAX 
		
	var InfectionInfo_Array = gfn_reqGetInfectionInfo(pid)	// 배열에 순서대로 [표시여부, 혈액주의,접촉주의,공기주의]
	
	var  sTxt =  ds_prntinfo.getColumn(ds_prntinfo.rowposition,"reqcnts");

	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/flag", flag);
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/pataddr"		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"pataddr"));       		//환자주소
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/patkind"		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"patkind"));       		//환자구분
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/frznflagcd"		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"frznflagcd"));       	//프로즌 검체여부
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/fstrgstrid"		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"fstrgstrid"));       	//최초등록자ID
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/lastupdtrid"	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"lastupdtrid"));       	//최종등록자ID
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/fstrgstrnm"		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"fstrgstrnm"));       	//최초등록자명
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/lastupdtrnm"	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"lastupdtrnm"));    	//최종등록자명
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/wardnm"			, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"wardnm"));       		//병동병실"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/prcpdt"			, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"prcpdt"));   			//바코드번호"     
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/orddrnm"		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"orddrnm") );       	//처방일자"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/acptdt" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"acptdt") );      		//이송일자"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/acptdd" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"spcacptdd") );      	//접수일자"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/acptnm" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"acptnm"));        		//병리번호"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/grosdt"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"grosdt") );   			//표시병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/grosdrnm" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"grosdrnm") );         	//등록번호"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/prcpgenrflag" 	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"prcpgenrflag") );      //진료과명"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcnm"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"spcnm") );             //진료의명"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/orddd"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"orddd"));             	//성별/나이"       
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/orddeptcd" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"orddeptcd"));        	//검체일련번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/prcpdd"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"prcpdd") );           	//검사명목록"     
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/delivedt" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"delivedt") );          //검사명목록"     
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/delivenm" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"delivenm"));           //검체명"         
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/instcd" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"instcd") );            //최종번호"       
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/pid"  			, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"pid") );           	//의뢰지번호   
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/patnm"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"patnm"));    			//원처방명"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/ptno"  			, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"ptno") );    			//추가처방표시  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/dispptno" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"dispptno") );          //작업구분"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/sexage" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"sexage") );          	//감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rrgstno" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"rrgstno"));          	//감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/orddeptnm" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"orddeptnm") );         //감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/testnmlist" 	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"testnmlist") );        //감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcnmlist" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"spcnmlist"));          //감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcacptdd" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"spcacptdd"));          //감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/workflagcd" 	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"workflagcd"));         //감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/statsworkflagcd" ,ds_prntinfo.getColumn(ds_prntinfo.rowposition,"statsworkflagcd") );   //감염정보"        
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnoa" 		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnoa") );          	//이전병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnos"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnos"));         	//이전병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnod"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnod") );         	//이전병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnoc"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnoc"));         	//이전병리번호"
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnoa_mcode" 	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnoa_mcode") );          	//이전병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnos_mcode"  , ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnos_mcode"));         	//이전병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnod_mcode"  , ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnod_mcode") );         	//이전병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/bfptnoc_mcode"  , ds_prntinfo.getColumn(ds_prntinfo.rowposition,"bfptnoc_mcode"));         	//이전병리번호"  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/scrnyn"  		, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"scrnyn"));         	//동의서출력여부"
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/aprvdocflag"  	, gfn_rtnXmlValue(sTxt,"AprvDocflag")); 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/openmode"  		, gfn_rtnXmlValue(sTxt,"openmode")); 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/imgecd"  		, gfn_rtnXmlValue(sTxt,"imgecd")); 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/base64"  		, gfn_rtnXmlValue(sTxt,"base64")); 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/shape"  		, gfn_rtnXmlValue(sTxt,"shape")); 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/reqcnts"  		, gfn_rtnXmlValue(sTxt,"reqcnts"));              
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcsite"  		, gfn_rtnXmlValue(sTxt,"spcsite"));              	
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/reqcnts1"  		, gfn_rtnXmlValue(sTxt,"reqcnts1"));              	   
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/reqcnts2"  		, gfn_rtnXmlValue(sTxt,"reqcnts2"));              	  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/reqcnts3"  		, gfn_rtnXmlValue(sTxt,"reqcnts3"));              	
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/inptitem01"  	, gfn_rtnXmlValue(sTxt,"inptitem01"));     
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/inptitem02"  	, gfn_rtnXmlValue(sTxt,"inptitem02"));  			// 분자의뢰지_가족력
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/inptitem03"  	, gfn_rtnXmlValue(sTxt,"inptitem03"));  			// 분자의뢰지 - 검체기타내역
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rdo_choice_val" , gfn_rtnXmlValue(sTxt,"rdo_choice_val")); 			// 자궁경부_Menopause/L.M.P 선택 라디오버튼 CD
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rdo_choice_cd"  , gfn_rtnXmlValue(sTxt,"rdo_choice_cd")); 			// 자궁경부_Menopause/L.M.P 선택 라디오버튼 CDNM
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/humspeccd"  	, gfn_rtnXmlValue(sTxt,"humspeccd")); 				// 분자의뢰지_인종선택콤보값
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/humspecnm"  	, gfn_rtnXmlValue(sTxt,"humspecnm")); 				// 분자의뢰지_인종_기타선택시
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rsltcnts1"  	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"rsltcnts1"));  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rsltcnts2"  	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"rsltcnts2"));  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rsltcnts3"  	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"rsltcnts3"));  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rsltcnts4"  	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"rsltcnts4"));  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rsltcnts5"  	, ds_prntinfo.getColumn(ds_prntinfo.rowposition,"rsltcnts5"));  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/rsltcnts6"  	, "");  
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/readnm"  		, gfn_rtnXmlValue(sTxt,"readnm"));   
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/cstecnt"  		, gfn_rtnXmlValue(sTxt,"cstecnt"));    
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/slidcnt"  		, gfn_rtnXmlValue(sTxt,"slidcnt"));
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/dispyn"  		, InfectionInfo_Array[0]);
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/disp1"  		, InfectionInfo_Array[1]);
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/disp2"  		, InfectionInfo_Array[2]);
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/disp3"  		, InfectionInfo_Array[3]);
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/etcspcnm"  		, gfn_rtnXmlValue(sTxt,"etcspcnm")); 			// 체액세포 기타검체 장기명 
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/manopauseCmt"  	, gfn_rtnXmlValue(sTxt,"manopauseCmt")); 		// 자궁경부 manopause 코멘트
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/lmpCmt"  		, gfn_rtnXmlValue(sTxt,"lmpCmt"));				// 자궁경부 lmp 코멘트
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcposition"  	, gfn_rtnXmlValue(sTxt,"spcposition")); 		// 세침흡인 검체
	
	var objDOM_Content = objDOM.documentElement.source; // 지금까지 만든 XML 구문을 objDOM_Content 에 담는다.
 	
	var parser = new DomParser;
	var reqfrminfoDOC = parser.parseFromString(sTxt);
	var reqfrminfoXML = reqfrminfoDOC.documentElement;
	var choiSpcList = reqfrminfoXML.getElementsByTagName('choispclist');
	
	rptf_makeNodeToDOM(objDOM, "/root/main/prntinfo/spcgrid");
	rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgridcnt"  		, choiSpcList.length);
 	for(var i = 0; i < choiSpcList.length; i++) {
		rptf_makeNodeToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]");

		if(sTxt.indexOf("choi") != -1) {
			rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]/choi", (!utlf_isNull(choiSpcList.get_item(i).getElementsByTagName('choi').get_item(0).firstChild)) ? choiSpcList.get_item(i).getElementsByTagName('choi').get_item(0).firstChild.data : "");
		}
		if(sTxt.indexOf("spcseqno") != -1) {
			rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]/spcseqno", (!utlf_isNull(choiSpcList.get_item(i).getElementsByTagName('spcseqno').get_item(0).firstChild)) ? choiSpcList.get_item(i).getElementsByTagName('spcseqno').get_item(0).firstChild.data : "");
		}
		if(sTxt.indexOf("spccd") != -1) {
			rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]/spccd", (!utlf_isNull(choiSpcList.get_item(i).getElementsByTagName('spccd').get_item(0).firstChild)) ? choiSpcList.get_item(i).getElementsByTagName('spccd').get_item(0).firstChild.data : "");
		}
		if(sTxt.indexOf("spcnm") != -1) {
			var rtnspcnm = ""
			var nFindRow = ds_pathology_spclist.findRow("spccd",choiSpcList.get_item(i).getElementsByTagName('spccd').get_item(0).firstChild.data);
			if((!utlf_isNull(choiSpcList.get_item(i).getElementsByTagName('spcnm').get_item(0).firstChild)) == true){
				if(nFindRow > -1){
					rtnspcnm = ds_pathology_spclist.getColumn(nFindRow,"spcnm");
					trace("여기타나");
				}else{
					rtnspcnm = choiSpcList.get_item(i).getElementsByTagName('spcnm').get_item(0).firstChild.data
				}
			}else{
				rtnspcnm = "";
			}
			rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]/spcnm", rtnspcnm);
		}
		if(sTxt.indexOf("existyn") != -1) {
			rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]/existyn", (!utlf_isNull(choiSpcList.get_item(i).getElementsByTagName('existyn').get_item(0).firstChild)) ? choiSpcList.get_item(i).getElementsByTagName('existyn').get_item(0).firstChild.data : "");
		}
		if(sTxt.indexOf("slidno") != -1) {
			rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]/slidno", (!utlf_isNull(choiSpcList.get_item(i).getElementsByTagName('slidno').get_item(0).firstChild)) ? choiSpcList.get_item(i).getElementsByTagName('slidno').get_item(0).firstChild.data : "");
		}
		if(sTxt.indexOf("spccmt") != -1) {
			rptf_setValueToDOM(objDOM, "/root/main/prntinfo/spcgrid/choispclist[delete"+i+"]/spccmt", (!utlf_isNull(choiSpcList.get_item(i).getElementsByTagName('spccmt').get_item(0).firstChild)) ? choiSpcList.get_item(i).getElementsByTagName('spccmt').get_item(0).firstChild.data : "");
		}
 	}
 
	var objParam_tran = new Object();																	//  레포트 출력용  object
	
	objParam_tran.xml_data_XML1 = objDOM.documentElement.source;
	
	return gfn_ReplaceDelTag(choiSpcList.length,objParam_tran.xml_data_XML1);
	
 }
 
 
 /**********************************************************************************
 * Name			: cbf_makerpt
 * Description	: 의뢰서 정보조회 콜백함수
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
**********************************************************************************/
function cbf_makerpt(strSvcID, nErrorCode, strErrorMag)
{
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}
 /**********************************************************************************
 * Name			: cbf_TRLPJ01701
 * Description	: 의뢰서 정보조회 콜백함수
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
**********************************************************************************/
function cbf_TRLPJ01701(strSvcID, nErrorCode, strErrorMag)
{
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

 /**********************************************************************************
 * Name			: cbf_makerpt
 * Description	: 의뢰서 정보조회 콜백함수
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
**********************************************************************************/
function cbf_makerpt(strSvcID, nErrorCode, strErrorMag)
{
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}
 /**********************************************************************************
 * Name			: cbf_LZZ003
 * Description	: 공통함수LZZ003.xjs 트랜잭션 콜백
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
**********************************************************************************/
function cbf_LZZ003(strSvcID, nErrorCode, strErrorMag)
{
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

]]></Script>