YNU_JEUS/app_home/himed/xpapps/ast/healexamxp/xp/AHA001.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/************************************************************************************************
@(#)AHA001.js
@author 	: 손주연
@version 	: 2007-04-18
@desc		: 건진업무에서 사용하는 공용함수 관리
*************************************************************************************************/
var arErrorCode = new HashArray();
/************************************************************************************************
**fMoveFocus
@author 	: 손주연
@version 	: 2007-04-18
@desc		: 특정 control로 focus 이동
*************************************************************************************************/
function fMoveFocus(vCtrlID){
	if( !utlf_isNull(vCtrlID) ) {
		var objCom = frmf_getComponents(vCtrlID, this);
		objCom.setFocus();
	}
}

/************************************************************************************************
**fExcelUpload
@author 	: 손주연
@version 	: 2007-04-18
@desc 		:Excel File을 grid로 load한다.
@param 	: grid control id
*************************************************************************************************/
function fExcelToGrid(grdObj){
				/*	if(grdObj == "xforms:datagrid"){*/
				var fileName = window.fileDialog("open", ",", false, "", "xls", "All Files (*.*)|*.*|Excel Files(*.xls)|*.xls");
				vId.loadExcel(fileName, 1, true);
				var cnt = grdObj.rows;
				var i = 0;
				for(  i = 1; i < cnt +1 ; i++)
				{
					grdObj.addStatus(i, "insert");
				}
				grdObj.deleteRow(1);
				grdObj.refresh();
	}

/**
*====================================================================================================================================.
@author 	: 손주연
@version 	: 2007-04-20
@desc 		: 건진구분 설정 =>  추후 로그인 시 건진구분 세션관리가 되지 않을 경우를 대비.
@param 	: grid control id
@return 	:  C: 종건/ G :일건
====================================================================================================================================*/
	function fGetHealExamFlag(){
		var sFlag =  frmf_getMenuParam();
		var sFlagLen = parseInt(sFlag.length);
		
		//한자리 이하 인경우 ==> 건진장소구분(K,S)로 구분
		if(sFlagLen <= 1){
			if(utlf_isNull(sFlag)) sFlag = "C";
		}else{ // 한자리 초과인경우 => 건진상세구분 (CXX ,GXX)로 구분
			sFlag = sFlag.substr(0, 1);
		}
		return sFlag;
	}

/**
*====================================================================================================================================.
@author 	: 손주연
@version 	: 2007-04-20
@desc 		: 건진상세구분 설정 =>  추후 로그인 시 건진구분 세션관리가 되지 않을 경우를 대비.
@param 	: grid control id
@return 	:  C: 종건/ G :일건
====================================================================================================================================*/
function  fGetHealExamDetlFlag(){
	var sFlag =  frmf_getMenuParam() ;
	var sFlagLen = parseInt(sFlag.length);
	// 한자리 이하 인경우 ==> 건진장소구분(K,S)로 구분
	if(sFlagLen <= 1) {
		if(  utlf_isNull(sFlag) ) {
			sFlag = "C01";
		} else {
			sFlag=sFlag +'01';
		}
	}else { // 한자리 초과인경우 => 건진상세구분 (CXX ,GXX)로 구분
		sFlag = sFlag
	}		
	return sFlag ;
}

/**********************************************************************************
 * 함수명		: fGetComnCd
 * 설  명		: 기관코드 및 사업체코드가져오기 
 * argument		: * vOpenerID		  : 현재화면ID
				  * vFlag 			  : 코드구분  공통코드 A0114참조
										** 01	판정의
										** 02	건강보험공단
										** 03	관할군병원
										** 04	산업안전공단
										** 05	보건소
										** 06	노동청
										** 07	지도원
										** 08 	사업체
				  * vCond 			  :	검색구분(cd/nm)  
				  * vCdnm			  : 검색조건(코드/명칭)
				  * vDesXPathCd 	  : code값을 setting할 목적노드
				  * vDesXPathNm 	  : name값을 setting할 목적노드 
				  * SPAHA00500_PARAM1 : 코드구분  공통코드 A0114참조
				  * SPAHA00500_PARAM2 : 검색구분(cd/nm)  
				  * SPAHA00500_PARAM3 : 검색조건(코드/명칭)
				  * SPAHA00500_PARAM4 : 기관코드
				  * SPAHA00500_PARAM5 : 코드구분  공통코드 A0114참조
				  * SPAHA00500_PARAM6 : code값을 setting할 목적노드
				  * SPAHA00500_PARAM7 : name값을 setting할 목적노드 
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fGetComnCd(vOpenerID, vFlag , vCond, vCdnm , vDesXPathCd , vDesXPathNm ){
	frmf_clearParameter("SPAHA00500_PARAM1");
	frmf_clearParameter("SPAHA00500_PARAM2");
	frmf_clearParameter("SPAHA00500_PARAM3");
	frmf_clearParameter("SPAHA00500_PARAM4");
	frmf_clearParameter("SPAHA00500_PARAM5");
	frmf_clearParameter("SPAHA00500_PARAM6");
	frmf_clearParameter("SPAHA00500_PARAM7");

	frmf_setParameter ("SPAHA00500_PARAM1", vFlag);
	frmf_setParameter ("SPAHA00500_PARAM2", vCond);
	frmf_setParameter ("SPAHA00500_PARAM3", vCdnm);
	frmf_setParameter ("SPAHA00500_PARAM4", sysf_getUserInfo("dutplceinstcd"));
	frmf_setParameter ("SPAHA00500_PARAM5", vOpenerID);
	frmf_setParameter ("SPAHA00500_PARAM6", vDesXPathCd);
	frmf_setParameter ("SPAHA00500_PARAM7", vDesXPathNm);

	frmf_modal("SPAHA00500", "SPAHA00500", "", "", "", "", "", "", "", "", "", "", "M");
}
	
/**********************************************************************************
 * 함수명		: fCheckNodeExist
 * 설  명		: 해당 데이터 셋에 컬럼 존재 체크
 * argument		: * xPath 	: node XPath
				  * xColumn : node Column //2.0 추가
				  * bMake	: make 여부
 * return Type	: true/false (node 존재 여부 )
 * 작성자		: 
**********************************************************************************/
function fCheckNodeExist(xPath, xColumn, bMake)
{
	var node = this.objects[xPath];
	
	if(utlf_isNull(node))
	{
		dsf_createDs(xPath);
	}
	
	if(!utlf_isNull(xColumn))
	{
		if(bMake == true)
		{
			dsf_makeValue(eval(xPath), xColumn, "string", "");
			return true;
		}
		else
		{
			return false;
		}
	}
	return true;
}



/**
* 환자검색창 open=====================================================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 환자검색창 open
@param 	:
				* SPAHA00400_PARAM1 : 현재화면ID
				* SPAHA00400_PARAM2 : 검색조건 pnm/pid/rgstno
				* SPAHA00400_PARAM3 : 검색어
				* SPAHA00400_PARAM4 : nodeset전체 copy여부 (N일경우 원무등록번호와 환자 한글명만 copy)
				* SPAHA00400_PARAM5 : nodeset전체 copy여부 Y 일경우 대상노드
				* SPAHA00400_PARAM6 : nodeset전체 copy여부 N 일경우 원무등록번호 대상노드
				* SPAHA00400_PARAM7 : nodeset전체 copy여부 N 일경우 환자 한글명 대상노드
* =====================================================================================================================================================
*/
function fSearchPatInfo(vOpenerID, vCond, vCdnm, vSetYN, vDestXPath, vDestPid, vDestPnm, vRgstNo1, vRgstNo2, vHometel, vMpphontel, vSex, vAge){
	frmf_clearParameter("SPAHA00400_PARAM1");
	frmf_clearParameter("SPAHA00400_PARAM2");
	frmf_clearParameter("SPAHA00400_PARAM3");
	frmf_clearParameter("SPAHA00400_PARAM4");
	frmf_clearParameter("SPAHA00400_PARAM5");
	frmf_clearParameter("SPAHA00400_PARAM6");
	frmf_clearParameter("SPAHA00400_PARAM7");
	frmf_clearParameter("SPAHA00400_PARAM8");
	frmf_clearParameter("SPAHA00400_PARAM9");
	frmf_clearParameter("SPAHA00400_PARAM10");
	frmf_clearParameter("SPAHA00400_PARAM11");
	frmf_clearParameter("SPAHA00400_PARAM12");		
	frmf_clearParameter("SPAHA00400_PARAM13");

	frmf_setParameter ("SPAHA00400_PARAM1", vOpenerID);
	frmf_setParameter ("SPAHA00400_PARAM2", vCond);
	frmf_setParameter ("SPAHA00400_PARAM3", vCdnm);
	frmf_setParameter ("SPAHA00400_PARAM4", vSetYN);
	frmf_setParameter ("SPAHA00400_PARAM5", vDestXPath);
	frmf_setParameter ("SPAHA00400_PARAM6", vDestPid);
	frmf_setParameter ("SPAHA00400_PARAM7", vDestPnm);
	frmf_setParameter ("SPAHA00400_PARAM8", vRgstNo1);
	frmf_setParameter ("SPAHA00400_PARAM9", vRgstNo2);
	frmf_setParameter ("SPAHA00400_PARAM10", vHometel);
	frmf_setParameter ("SPAHA00400_PARAM11", vMpphontel);
	frmf_setParameter ("SPAHA00400_PARAM12", vSex);
	frmf_setParameter ("SPAHA00400_PARAM13", vAge);
	
	frmf_modal("SPAHA00400", "SPAHA00400", "", "", "", "", "", "", "", "", "", "", "M");
}

/**********************************************************************************
 * 함수명		: fSavePatInfo
 * 설  명		: 환자인적사항저장
 * argument		: * vPidYN : 등록번호생성여부
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fSavePatInfo(vPidYN)
{
	if(fCheckPatInfo() == false) return;
	
	fCheckNodeExist("ds_main_info_patinfo_item", "pidcretfg", true);
	
//	dsf_deleteDs("ds_send_save");
	dsf_createDs("ds_send_save");
	
	ds_main_info_patinfo_item.setColumn(0, "pidcretfg", vPidYN);
	
	ds_send_save.copyData(ds_main_info_patinfo_item);
	
	fCheckNodeExist("ds_send_save", "userid", true);
	fCheckNodeExist("ds_send_save", "instcd", true);
	
	ds_send_save.setColumn(0, "userid", sysf_getUserId());
	ds_send_save.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	dsf_makeValue(ds_send_save, "rrgstno1", "string", ds_send_save.getColumn(0, "rgstno1"));
	dsf_makeValue(ds_send_save, "rrgstno2", "string", ds_send_save.getColumn(0, "rgstno2"));
	dsf_makeValue(ds_send_save, "healexamdetlflag", "string", utlf_isNull(ds_send.getColumn(0, "healexamflag")) ? ds_send.getColumn(0, "srchhealexamflag") : ds_send.getColumn(0, "healexamflag") );
	dsf_makeValue(ds_send_save, "zipcdaddr", "string", ds_main_info_patinfo_item.getColumn(0, "addr1"));
	dsf_makeValue(ds_send_save, "builno", "string", utlf_transNullToEmpty(ds_temp_address.getColumn(0, "builno")));
	dsf_makeValue(ds_send_save, "srchinstcd", "string", ds_send_save.getColumn(0, "instcd"));
	dsf_makeValue(ds_send_save, "srchrgstno1", "string", ds_send_save.getColumn(0, "rgstno1"));
	dsf_makeValue(ds_send_save, "srchrgstno2", "string", ds_send_save.getColumn(0, "rgstno2"));
	dsf_makeValue(ds_send_save, "forgeryn", "string", utlf_transNullToEmpty(ds_send_save.getColumn(0, "forgneryn")));
	
	var oParam = {};
		oParam.id          = "TXAHA00101";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqExePatInfo";
		oParam.inds        = "save=ds_send_save";
		oParam.outds       = "ds_=save";
		oParam.async       = false;
		//oParam.callback    = "cf_TXAHA00101";

	tranf_submit(oParam);
}

/**********************************************************************************
 * 함수명		: fCheckPatInfo
 * 설  명		: 건진자인적사항 내용 check
 * argument		:
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fCheckPatInfo(vFrom)
{
	if(vFrom=="1")
	{
		var vTmp = frmf_getComponents("ipt_pnm").value;
		if(utlf_isNull(vTmp))
		{
			sysf_messageBox("성명을 ", "C001");
			frmf_getComponents("ipt_pnm").setFocus();
			return false;
		}
		vTmp = frmf_getComponents("ipt_rgstno1").value;
		if(utlf_isNull(vTmp))
		{
			sysf_messageBox("주민번호를 ", "C001");
			frmf_getComponents("ipt_rgstno1").setFocus();
			return false;
		}
		vTmp = frmf_getComponents("ipt_rgstno2").value;
		if(utlf_isNull(vTmp))
		{
			sysf_messageBox("주민번호를 ", "C001");
			frmf_getComponents("ipt_rgstno2").setFocus();
			return false;
		}
		return true;
	}
	else
	{
		return true;
	}
}

/**
 * @desc 주민번호 유효여부 check
 */
function fCheckRgstNo() {
	var vTmp = utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, 'rgstno1')) 
		+ utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, 'rgstno2'));
	if (isResidentNo(vTmp) == false) {
		if (sysf_messageBox("유효하지 않은 주민번호 입니다. ", "Q003") == 6) {
			return true;
		}

		ipt_rgstno1.setFocus();
		return false;
	}
	if (isResidentNo(vTmp) == true && vTmp.substr(7, 6) == '000000') {
		if (sysf_messageBox("외국인 입니다. ", "Q003") == 6) {
			if(!utlf_isNull(cmb_forgneryn)){
				cmb_forgneryn.value = "Y";
			}
			return true;
		}

		ipt_rgstno1.setFocus();
		return false;
	}
	return true;
}

/**********************************************************************************
 * 함수명		: fSetBrthDD
 * 설  명		: 주민번호로 생년월일/성별/나이 기본 setting
 * argument		:
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fSetBrthDD()
{
	var vrgstno1 = frmf_getComponents("ipt_rgstno1").value;
	var vrgstno2 = frmf_getComponents("ipt_rgstno2").value;
	
	var vSex	 = String(vrgstno2).substr( 0, 1) ;
	var vBrthdd	 = "";
	if( ( vSex == 3 ) || (vSex == 4) ) 
	{
		vBrthdd     = "20" + vrgstno1;
	}
	else 
	{
		vBrthdd     = "19" + vrgstno1;
	}
	
	frmf_getComponents("ipt_brthdd").value = vBrthdd;
	var sex = utlf_getSex(vrgstno1+ vrgstno2+"");
	frmf_getComponents("opt_sex").value = sex == false ? "" : sex; // 오류발생시 false값 들어가 insert오류 발생막음 20180528.노회식
	frmf_getComponents("opt_age").value = utlf_getFullAge(vrgstno1+ vrgstno2);
}

/**
 *
 * @param {*} pResidnetNo 
 */
function isResidentNo(pResidnetNo){
	if(isNaN(pResidnetNo)) return false;

	if(pResidnetNo.length != 13) return false;

	var c = pResidnetNo.substr(6,1);
	if(c == '5' || c == '6') return true;

	var c2 = pResidnetNo.substr(7,6);
	if(c2 == '000000') return true;

	last = pResidnetNo.substr(12,1);

	regNo = new Array(12);
	regNo[12] = 0;

	for(var i = 0; i < (regNo.length - 1); i++) {
		regNo[i] = parseInt(pResidnetNo.substr(i, 1)) * ((i % 8) + 2);
	}

	for(var i = 0; i < (regNo.length - 1); i++) {
		regNo[12] += regNo[i];
	}

	var result = ((11 - (regNo[12] % 11)) % 10);

	if(result == parseInt(last)) {
		return true;
	} else {
		return false;
	}
}

/**
 * @desc 수진자 인적사항만 조회, 외국인일 경우 별도의 구분 없이 주민번호 뒷번호가 남/여, 5/6으로 처리.
 * @param {*} vMode 조회조건 (0 -pnm:환자명, 1-rgstno: 주민번호, 2-pid:등록번호, 3-hpid:건진임시환자번호)
 * vPidXPath : pid node
 * vPnmXPath	: pnm node
 */
function fGetPatInfo(vMode) {
	var vCond = "";
	var vChoiFlag = "";
	vChoiFlag = ds_main_info_rsrvacptinfo_item.getColumn(0, "choiflag");
	switch (vMode) {
		case 0:
			vCond = "pnm";
			break;
		case 1:
			vCond = "rgstno";
			if (fCheckRgstNo() == false) {
				ds_main_info_patinfo_item.setColumn(0, 'rgstno1', '');
				ds_main_info_patinfo_item.setColumn(0, 'rgstno2', '');
				return;
			}
			break;
		case 2:
			vCond = "pid";
			break;
		default:
			vCond = "hid";
			break;
	}

	// model.removeNodeSet("/root/send/save");
	// model.makeNode("/root/send/save");

	dsf_makeValue(ds_send, "srchcond", 'string', '');
	dsf_makeValue(ds_send, "srchinstcd", 'string', '');
	dsf_makeValue(ds_send, "srchhealexampid", 'string', '');
	dsf_makeValue(ds_send, "srchrgstno1", 'string', '');
	dsf_makeValue(ds_send, "srchrgstno2", 'string', '');
	dsf_makeValue(ds_send, "srchpid", 'string', '');
	dsf_makeValue(ds_send, "srchpnm", 'string', '');

	ds_send.setColumn(0, "srchcond", vCond);
	ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd"));
	if (vCond == "pnm") {
		ds_send.setColumn(0, "srchpnm", ds_main_info_patinfo_item.getColumn(0, 'hngnm'));
	} else if (vCond == "pid") {
		ds_send.setColumn(0, "srchpid", ds_main_info_patinfo_item.getColumn(0, 'pid'));
	} else if (vCond == "rgstno") {
		ds_send.setColumn(0, "srchrgstno1", ds_main_info_patinfo_item.getColumn(0, 'rgstno1'));
		ds_send.setColumn(0, "srchrgstno2", ds_main_info_patinfo_item.getColumn(0, 'rgstno2'));
	} else {
		ds_send.setColumn(0, "srchhealexampid", ds_main_info_patinfo_item.getColumn(0, "healexampid"));
	}

	dsf_createDsRow('ds_TRAHA00101', [
		{col: 'srchinstcd', type: 'string', value: '' },
		{col: 'srchcond', type: 'string', value: '' },
		{col: 'srchhealexampid', type: 'int', value: '' },
		{col: 'srchpnm', type: 'string', value: '' },
		{col: 'srchengnm', type: 'string', value: '' },
		{col: 'srchpid', type: 'string', value: '' },
		{col: 'srchrgstno1', type: 'string', value: '' },
		{col: 'srchrgstno2', type: 'string', value: '' },
		{col: 'srchname', type: 'string', value: '' },
		{col: 'srchrowid', type: 'string', value: '' }
	]);

	ds_TRAHA00101.copyRow(0, ds_send, 0);

	var oParam = {};
	oParam.id = "TRAHA00101";
	oParam.service = "healexambaseapp.ComCode";
	oParam.method = "reqGetPatInfo";
	oParam.inds = "req=ds_TRAHA00101";
	oParam.outds = "ds_temp_patinfo_item=item";
	oParam.async = false;

	tranf_submit(oParam);

	//node clear현상때문임...
	if (ds_temp_patinfo_item.rowcount > 0) {
		

		if(!utlf_isNull(ds_temp_patinfo_item.getColumnInfo("instcd")))
		{
			ds_temp_patinfo_item.updateColID('instcd', 'patm_insucd');
		}
		ds_temp_patinfo_item.updateColID('insuid', 'patm_insuid');
		
		if(!utlf_isNull(ds_temp_patinfo_item.getColumnInfo("insukind")))
		{
			ds_temp_patinfo_item.updateColID('insukind', 'patm_insukind');
		}
		
		ds_main_info_patinfo_item.copyRow(0, ds_temp_patinfo_item, 0);
		//ds_main_info_patinfo_item.copyData(ds_temp_patinfo_item);
		
		dsf_makeValue(ds_main_info_patinfo_item, "rgstno1", "string", ds_main_info_patinfo_item.getColumn(0, "rrgstno1"));
		dsf_makeValue(ds_main_info_patinfo_item, "rgstno2", "string", ds_main_info_patinfo_item.getColumn(0, "rrgstno2"));
		if (utlf_isNull(ds_main_info_patinfo_item.getColumn(0, "rrgstno1"))) {
			dsf_makeValue(ds_main_info_patinfo_item, "rgstno1", "string", ds_temp_patinfo_item.getColumn(0, "rrgstno1"));
			dsf_makeValue(ds_main_info_patinfo_item, "rgstno2", "string", ds_temp_patinfo_item.getColumn(0, "rrgstno2"));
		}
		
		dsf_makeValue(ds_main_info_rsrvacptinfo_item, "choiflag", 'string', vChoiFlag);
		frmf_getComponents("ipt_pid").enable = false;
	} else {
		dsf_makeValue(ds_main_info_rsrvacptinfo_item, "choiflag", 'string', vChoiFlag);
	}
}

/**
 * ds_temp_patinfo_item 데이터셋 추가해야 함
 */
function fGetPatInfo2(vMode) {
	var vCond = "";
	switch (vMode) {
		case 0:
			vCond = "pnm";
			break;
		case 1:
			vCond = "rgstno";
			if (fCheckRgstNo() == false) {
				ds_main_info_patinfo_item.setColumn(0, 'rgstno1', '');
				ds_main_info_patinfo_item.setColumn(0, 'rgstno2', '');
				return;
			}
			break;
		case 2:
			vCond = "pid";
			break;
		default:
			vCond = "hid";
			break;
	}
	// model.removeNodeSet("/root/send/save");
	// model.makeNode("/root/send/save");
	// dbs227, fCheckNodeExist 를 dsf_makeValue 로 변환함
	dsf_makeValue(ds_send, "srchcond", 'string', '');
	dsf_makeValue(ds_send, "srchpnm", 'string', '');
	dsf_makeValue(ds_send, "srchpid", 'string', '');
	dsf_makeValue(ds_send, "srchrgstno1", 'string', '');
	dsf_makeValue(ds_send, "srchrgstno2", 'string', '');
	dsf_makeValue(ds_send, "srchhealexampid", 'string', '');
	dsf_makeValue(ds_send, "srchinstcd", 'string', '');

	ds_send.setColumn(0, "srchcond", vCond);
	if (vCond == "pnm") {
		ds_send.setColumn(0, "srchpnm", ds_main_info_patinfo_item.getColumn(0, 'hngnm'));
	} else
	if (vCond == "pid") {
		ds_send.setColumn(0, "srchpid", ds_send.getColumn(0, "healexampid"));
	} else
	if (vCond == "rgstno") {
		ds_send.setColumn(0, "srchrgstno1", ds_main_info_patinfo_item.getColumn(0, 'rgstno1'));
		ds_send.setColumn(0, "srchrgstno2", ds_main_info_patinfo_item.getColumn(0, 'rgstno2'));
	} else {
		ds_send.setColumn(0, "srchhealexampid", ds_main_info_patinfo_item.getColumn(0, "healexampid"));
	}
	ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd"));

	dsf_createDsRow('ds_TRAHA00101', [
		{ col: 'srchinstcd', type: 'string', value: '' },
		{ col: 'srchcond', type: 'string', value: '' },
		{ col: 'srchhealexampid', type: 'int', value: '' },
		{ col: 'srchpnm', type: 'string', value: '' },
		{ col: 'srchengnm', type: 'string', value: '' },
		{ col: 'srchpid', type: 'string', value: '' },
		{ col: 'srchrgstno1', type: 'string', value: '' },
		{ col: 'srchrgstno2', type: 'string', value: '' },
		{ col: 'srchname', type: 'string', value: '' },
		{ col: 'srchrowid', type: 'string', value: '' }
	]);

	ds_TRAHA00101.copyRow(0, ds_send, 0);

	var oParam = {};
	oParam.id = "TRAHA00101";
	oParam.service = "healexambaseapp.ComCode";
	oParam.method = "reqGetPatInfo";
	oParam.inds = "req=ds_TRAHA00101";
	oParam.outds = "ds_temp_patinfo_item=item";
	oParam.async = false;

	tranf_submit(oParam);

	//node clear현상때문임...
	var tmpnode = model.instance1.selectSingleNode("/root/temp/patinfo/item/pid");
	if (ds_temp_patinfo_item.rowcount > 0) {
		ds_main_info_patinfo_item.copyRow(0, ds_temp_patinfo_item, 0);
	} else {
	}
}
	
	function setPkgInfo(){
    
	}

/**********************************************************************************
 * 함수명		: ahafGetPatInfo
 * 설  명		: 수진자 인적사항만 조회, 외국인일 경우 별도의 구분 없이 주민번호 뒷번호가 남/여, 5/6으로 처리.
 * argument		: * 조회조건: vMode (0 -pnm:환자명, 1-rgstno: 주민번호, 2-pid:등록번호, 3-hpid:건진임시환자번호)
				  * vCond1 			: 검색어1
				  * vCond2 			: 검색어2 (주민번호일경우 ...)
				  * vDestXPath	: 대상 노드
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function ahafGetPatInfo(vMode, vCond1, vCond2 ,  vDestXPath  )
{
	var vCond = "";
	switch( vMode )
	{
		case 0: vCond = "pnm";
		break;
		
		case 1: vCond = "rgstno";
				if( fCheckRgstNo() == false )
				{	
					 frmf_getComponents("ipt_rgstno1").value = "";
					 frmf_getComponents("ipt_rgstno2").value = "";
					return ;
				}
		break;
		
		case 2: vCond = "pid";
		break;
		
		default : vCond = "hid";
		break;
	}

	fCheckNodeExist(vDestXPath,"", true );
	fCheckNodeExist("ds_send", "srchcond", true);
	fCheckNodeExist("ds_send", "srchpnm", true);
	fCheckNodeExist("ds_send", "srchpid", true);
	fCheckNodeExist("ds_send", "srchrgstno1", true);
	fCheckNodeExist("ds_send", "srchrgstno2", true);
	fCheckNodeExist("ds_send", "srchhealexampid", true);
	fCheckNodeExist("ds_send", "srchinstcd", true);
	
	ds_send.setColumn(0, "srchcond", vCond);
	
	if( vCond == "pnm") 
	{
		ds_send.setColumn(0, "srchpnm", vCond1);
	}
	else if( vCond == "pid") 
	{
		ds_send.setColumn(0, "srchpid", vCond1);
	}
	else if( vCond == "rgstno") 
	{
		ds_send.setColumn(0, "srchrgstno1", vCond1);
		ds_send.setColumn(0, "srchrgstno2", vCond2);
	}
	else
	{
		ds_send.setColumn(0, "srchhealexampid", vCond1);
	}
	
	ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd"));
	
	dsf_deleteDs("ds_temp_patinfo_item");
	dsf_createDs("ds_temp_patinfo_item");
	
	fCheckNodeExist("ds_temp_patinfo_item","", true);
	
	var oParam = {};
		oParam.id          = "TRAHA00101";
		oParam.service     = "healexambaseapp.ComCode";
		oParam.method      = "reqGetPatInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_temp_patinfo_item=item";
		oParam.async       = false;
		oParam.callback    = "cf_TRAHA00101";

	tranf_submit(oParam);

	var ret  = false;
	if(arErrorCode.pop("TRAHA00101") > -1)
	{
		ret = true;
	}
	
	if( ret == false ) return false;

	var tmpnode = ds_temp_patinfo_item.getColumn(0, "pid");
	if( !utlf_isNull(tmpnode))
	{
		eval(vDestXPath).copyData(ds_temp_patinfo_item);
		return true ;
	}

	return false;
}

function cf_TRAHA00101(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}


/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 예약/접수정보를 저장
@param 	:
				*  Mode : 공통코드A0107참조
								**A	예약
								**B	예약보류
								**C	예약확인
								**D	예약취소
								**E	접수
								**F	접수취소
								**G	결과
								**H	판정
* ==========================================================================================================*/
	function fSaveRsrvAcpt(vMode,vFrom){

	}


/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 건진자별 건진이력조회
@param 	:
				*  vPid : 등록번호
* ==========================================================================================================*/
function ahafGetHistList(vPid) {
	ds_main_info_histlst_item.clearData();

	if (utlf_transNullToEmpty(vPid) == "") {
		return;
	}

	var vhf = "";
	if (utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag")) == "") {
		vhf = fGetHealExamFlag();
	} else {
		vhf = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
	}
	
    ds_send.setColumn(0, "srchhealexamflag", vhf);
  //  ds_send.setColumn(0, "srchhealexamdetlflag", frmf_getComponents("cmb_healexamdetlflag").value);
    ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd"));
    ds_send.setColumn(0, "srchpid", vPid);

    dsf_createDsRow('ds_TRAHA00101', [
        {col: 'srchhealexamflag', type: 'string', size: 256, val: '' },
        {col: 'srchhealexamdetlflag', type: 'string', size: 256, val: '' },
        {col: 'srchpid', type: 'string', size: 256, val: '' },
        {col: 'srchinstcd', type: 'string', size: 256, val: '' },
        {col: 'srchstatflag', type: 'string', size: 256, val: '' }
    ]);

    ds_TRAHA00101.copyRow(0, ds_send, 0);

    var oParam = {};
    oParam.id = "TRAHA00101";
    oParam.service = "healexamrsrvacptapp.RsrvAcpt";
    oParam.method = "reqGetHealExamHistList";
    oParam.inds = "req=ds_TRAHA00101";
    //oParam.outds = "ds_temp_patinfo_item=item";
    oParam.outds = "ds_main_info_histlst_item=item";
    oParam.async = false;

    tranf_submit(oParam);
    
   
}

/**********************************************************************************
 * 함수명		: ahafGetPkgDetlList
 * 설  명		: 검진페키지 상세조회(예약/접수)
 * argument		: *  vPkgCd : 패키지 코드
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function ahafGetPkgDetlList(vPkgCd)
{
	if( utlf_isNull(vPkgCd))
	{
		sysf_messageBox("선택된 패키지가 없습니다.", "E999");
		return ;
	}
	dsf_makeValue(ds_send, "PkgCd", "string" , vPkgCd);
	dsf_makeValue(ds_send, "cmpycd", "string" , ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd"));
	dsf_makeValue(ds_send, "conseq", "string" , ds_main_info_rsrvacptinfo_item.getColumn(0, "conseq"));
	dsf_makeValue(ds_send, "conhistseq", "string" , ds_main_info_rsrvacptinfo_item.getColumn(0, "conhistseq"));

	var oParam = {};
		oParam.id          = "TRAHA00113";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetHealExamPkgDetlList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_info_pkgdetl_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00113";

	tranf_submit(oParam);
}

	function fSetInstance(svalue){
			model.makeValue("/root/tmp/reqacpt/divflag",		svalue);
			model.makeValue("/root/tmp/reqadd/divflag",		svalue);
			model.makeValue("/root/tmp/reqpkg/divflag",		svalue);
			model.makeValue("/root/tmp/reqacptold/divflag",svalue);
			model.makeValue("/root/tmp/reqaddold/divflag",	svalue);
			model.makeValue("/root/tmp/opatvo/divflag",		svalue);
			model.makeValue("/root/tmp/getvo/divflag",			svalue);
			model.makeValue("/root/tmp/getsflag/divflag",		svalue);
			model.makeValue("/root/tmp/reqords/divflag",		svalue);
			model.makeValue("/root/tmp/retvo/divflag",			svalue);
			model.makeValue("/root/tmp/retstd/divflag",			svalue);
			model.makeValue("/root/tmp/reqpat/divflag",		svalue);

	}


/**********************************************************************************
 * 함수명		: ahafGetHistList2
 * 설  명		: 건진자별 건진이력조회
 * argument		: *  vPid : 등록번호
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function ahafGetHistList2(vPid, vHealExamDetlFlag , vStatFlag)
{
	dsf_deleteDs("ds_main_info_histlst_item");
	dsf_createDs("ds_main_info_histlst_item");

	if( utlf_isNull(vPid) ) return ;

	ds_send.setColumn(0, "srchhealexamflag", String(vHealExamDetlFlag).substr(0,1));
	ds_send.setColumn(0, "srchhealexamdetlflag", vHealExamDetlFlag);
	ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd"));
	ds_send.setColumn(0, "srchpid", vPid);
	ds_send.setColumn(0, "srchstatflag", vStatFlag);

	var oParam = {};
		oParam.id          = "TRAHA00101";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetHealExamHistList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_info_histlst_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00101";

	tranf_submit(oParam);
}

/**********************************************************************************
 * 함수명		: fGetConAddList
 * 설  명		: 패키지 상세내역조회
 * argument		: * sPkgcd 		: 패키지코드
				  * sPkgnm		: 패키지명
				  * sSex		: 건진자 성별
				  * sCmpycd		: 단체코드
				  * iConseq		: 계약번호
				  * iConHistseq : 계약이력번호
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fGetConAddList(sPkgcd, sPkgnm, sSex, sCmpycd, iConseq,iConHistseq )
{
	ds_temp_pkgtestcdlst_addlst.clearData();

	if(utlf_isNull(sCmpycd) || utlf_isNull(iConseq) || utlf_isNull(iConHistseq) || iConseq == "0" || iConHistseq == "0" && utlf_isNull(sPkgcd) || utlf_isNull(sPkgnm)) return ;

	ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd") );
	ds_send.setColumn(0, "srchpkgcd", sPkgcd );
	
	var vhf = "";
	
	if (utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag")))
	{
		vhf = fGetHealExamFlag();
	} 
	else 
	{
		vhf = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
	}

	ds_send.setColumn(0, "srchhealexamflag", vhf);
	ds_send.setColumn(0, "srchcmpycd", sCmpycd);
	ds_send.setColumn(0, "srchconseq", iConseq);
	ds_send.setColumn(0, "srchsex", sSex);
	
	dsf_makeValue(ds_send, "srchconhistseq", "string", 	iConHistseq);
	dsf_makeValue(ds_send, "srchage", "string", 	ageCalc(ds_main_info_patinfo_item.getColumn(0, "rgstno1"),ds_main_info_patinfo_item.getColumn(0, "rgstno2")));
	dsf_makeValue(ds_send, "forgneryn", "string", 	ds_main_info_patinfo_item.getColumn(0, "forgneryn"));
	dsf_makeValue(ds_send, "agencyrate", "string", 	ds_main_info_rsrvacptinfo_item.getColumn(0, "agencyrate"));
	
	var oParam = {};
		oParam.id          = "TRAHA00107";
		oParam.service     = "healexambaseapp.ComCode";
		oParam.method      = "reqGetPkgAddInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_temp_pkgtestcdlst_addlst=addlst";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00107";

	tranf_submit(oParam);
	
	
	
	ds_temp2_addlst.copyData(ds_main_info_rsrvacptinfo_addlst);
	
	var node = ds_temp_pkgtestcdlst_addlst.rowcount;
	if( node != 0)
	{
		var i = ds_main_info_rsrvacptinfo_addlst.rowcount;
		ds_main_info_rsrvacptinfo_addlst.clearData();
		
		ds_main_info_rsrvacptinfo_addlst.copyData(ds_temp_pkgtestcdlst_addlst);
		
		if(!utlf_isNull(ds_temp2_addlst.getColumn(0, "testcd")))
		{
			ds_main_info_rsrvacptinfo_addlst.copyData(ds_temp2_addlst);
		}
		
		var cnt = ds_temp.getColumn(0, "pkgtestcdlst"+i);
		
		for(var i = 0; i < cnt ; i++) 
		{
			ds_main_info_rsrvacptinfo_addlst.updatecontrol = false;
			ds_main_info_rsrvacptinfo_addlst.setRowType(i, "i");
			ds_main_info_rsrvacptinfo_addlst.updatecontrol = true;
		}
	}
	else
	{
		ds_main_info_rsrvacptinfo_addlst.clearData();
		
		if(!utlf_isNull(ds_temp2_addlst.getColumn(0, "testcd")))
		{
			ds_main_info_rsrvacptinfo_addlst.copyData(ds_temp2_addlst);
		}
	}
}

/**
 * 예약접수 상세내역조회
 * @param {*} vMode 리스트 구분
 */
function ahafGetRsrvAcptDetl(vMode) {
	fInitInfo(); // 오른쪽 정보들 초기화 및 기본 값 셋팅
	var vXpath = "";
	var idx = -1;
	switch (vMode) {
		case 1:
			vXpath = ds_main_list_rsrvlst;
			break;
		case 2:
			vXpath = ds_main_list_rsrvlst;
			break;
		case 3:
			vXpath = ds_main_list_acptlst;
			break;
		case 4:
			vXpath = ds_main_list_cncllst;
			break;
		case 5: //일반건진 2차대상자 리스트
			vXpath = ds_main_list_sndlst;
			break;
		case 6: //건진이력
			vXpath = ds_main_info_histlst_item;
			break;
		default:
			sysf_messageBox("인자가 잘못되었습니다", "E999");
			return;
			break;
	}
	idx = vXpath.rowposition;

	if (idx < 0) {
		sysf_messageBox("건진내역을 ", "C002");
		return;
	}

	var vRsrvdd = vXpath.getColumn(idx, "rsrvdd");
	var vRsrvno = vXpath.getColumn(idx, "rsrvno");
	/*
	 *가예약 일경우 환자정보 patm의 정보만으로 조회
	 * pid가 0일 경우 ptbs에 정보가 없을 수 있음
	 */
	var vStatFlag = vXpath.getColumn(idx, "statflag");
	var vPid = vXpath.getColumn(idx, "pid");

	ahafGetRsrvAcpDetltInfo(vRsrvdd, vRsrvno, vStatFlag, vPid); // 바로 아래 함수
}

/**
 * 예약/접수 상세내역 조회
 * 참조하는 폼에서 아래의 데이터셋이 없다면 추가할 것
 * 
 * [ds_temp_info_rsrvacptinfo]
 * [ds_temp_info_patinfo]
 * [ds_temp_info_addlst]
 * [ds_temp_info_pkglst]
 * [ds_temp_info_judgone]
 * [ds_temp_info_taginfo]
 * [ds_temp_info_cnst]
 * [ds_temp_info_opmi_out]
 * 
 * @param {*} vRsrvdd 예약등록일자
 * @param {*} vRsrvno 예약번호
 * @param {*} vStatFlag
 * @param {*} vPid 
 * @return {*} 건진상세내역
 */
function ahafGetRsrvAcpDetltInfo(vRsrvdd, vRsrvno, vStatFlag, vPid) {

	if (utlf_isNull(vRsrvdd) || utlf_isNull(vRsrvno)) {
		return;
	}

	dsf_makeValue(ds_send, "srchhealexamflag", 'string', '');
	dsf_makeValue(ds_send, "srchrsrvdd", 'string', '');
	dsf_makeValue(ds_send, "srchrsrvno", 'string', '');
	dsf_makeValue(ds_send, "srchinstcd", 'string', '');
	dsf_makeValue(ds_send, "scrnnm", 'string', '');

	var vhf = "";
	if (utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag")) == "") {
		vhf = fGetHealExamFlag();
	} else {
		vhf = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
	}

	ds_send.setColumn(0, "srchhealexamflag", vhf);

	ds_send.setColumn(0, "srchrsrvdd", vRsrvdd);
	ds_send.setColumn(0, "srchrsrvno", vRsrvno);
	ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd"));
	ds_send.setColumn(0, "scrnnm", (vStatFlag == "A" && vPid == "0") ? "internet" : "");

	ds_main_info_patinfo_item.clearData();
	ds_main_info_patinfo_item.addRow();

	ds_main_info_rsrvacptinfo_item.clearData();
	ds_main_info_rsrvacptinfo_item.addRow();

	ds_temp_info_rsrvacptinfo.clearData();
	ds_temp_info_rsrvacptinfo.addRow();

	ds_temp_info_patinfo.clearData();
	ds_temp_info_patinfo.addRow();
	
	ds_temp_info_addlst.clearData();
	ds_temp_info_pkglst.clearData();
	ds_temp_info_judgone.clearData();
	ds_temp_info_taginfo.clearData();
	ds_temp_info_cnst.clearData();
	ds_temp_info_opmi_out.clearData();

	//TRAHA00102 -> 접수정보/ 메모/ 최근 건진 내역/ 개인정보(접수정보랑 겹치지 않나 생각됨)
	//검사코드 리스트// 추가검사내역? // 태그 넘버// 수납 내역
	//상태 값을 넘겨서 조회를 해야할것와 하지 않아도 될것을 구분하면 좋을꺼 같음.

	dsf_createDsRow('ds_TRAHA00102', [
        {col: 'srchhealexamflag', type: 'string', size: 256, val: '' },
		{col: 'srchrsrvdd', type: 'string', size: 256, val: '' },
		{col: 'srchrsrvno', type: 'string', size: 256, val: '' },
		{col: 'srchinstcd', type: 'string', size: 256, val: '' },
		{col: 'srchhealexampid', type: 'string', size: 256, val: '' },
		{col: 'srchhealexamdetlflag', type: 'string', size: 256, val: '' },
		{col: 'srchage', type: 'string', size: 256, val: '' },
        {col: 'scrnnm', type: 'string', size: 256, val: '' }
	], false);
	
	ds_TRAHA00102.copyRow(0, ds_send, 0);

	var oParam = {};
	oParam.id = "TRAHA00102";
	oParam.service = "healexamrsrvacptapp.RsrvAcpt";
	oParam.method = "reqGetRsrvAcptInfo";
	oParam.inds = "req=ds_TRAHA00102";
	oParam.outds = "ds_temp_info_patinfo=patinfo ds_temp_info_rsrvacptinfo=rsrvacptinfo ds_temp_info_addlst=addlst "
		+ "ds_temp_info_pkglst=pkglst ds_temp_info_judgone=judgone ds_temp_info_taginfo=taginfo ds_temp_info_cnst=cnst ds_temp_info_opmi_out=opmi_out";
	oParam.async = false;
	oParam.callback = "cf_TRAHA00102A";

	tranf_submit(oParam);


	if (arErrorCode.pop("TRAHA00102") < 0) {
		return;
	}
	
	if(!utlf_isNull(ds_temp_info_patinfo.getColumnInfo("rgstno1")))
	{
		dsf_makeValue(ds_temp_info_patinfo, "srchrgstno1", "string", ds_temp_info_patinfo.getColumn(0, "rgstno1"));
		dsf_makeValue(ds_temp_info_patinfo, "srchrgstno2", "string", ds_temp_info_patinfo.getColumn(0, "rgstno2"));
		dsf_makeValue(ds_temp_info_patinfo, "rrgstno1", "string", ds_temp_info_patinfo.getColumn(0, "rgstno1"));
		dsf_makeValue(ds_temp_info_patinfo, "rrgstno2", "string", ds_temp_info_patinfo.getColumn(0, "rgstno2"));
	}
	if(!utlf_isNull(ds_temp_info_patinfo.getColumnInfo("rrgstno1")))
	{
		dsf_makeValue(ds_temp_info_patinfo, "srchrgstno1", "string", ds_temp_info_patinfo.getColumn(0, "rrgstno1"));
		dsf_makeValue(ds_temp_info_patinfo, "srchrgstno2", "string", ds_temp_info_patinfo.getColumn(0, "rrgstno2"));
		dsf_makeValue(ds_temp_info_patinfo, "rgstno1", "string", ds_temp_info_patinfo.getColumn(0, "rrgstno1"));
		dsf_makeValue(ds_temp_info_patinfo, "rgstno2", "string", ds_temp_info_patinfo.getColumn(0, "rrgstno2"));
	}
	if(!utlf_isNull(ds_temp_info_patinfo.getColumnInfo("insucd")))
	{
		ds_temp_info_patinfo.updateColID('insucd', 'patm_insucd');
	}
	
	if(!utlf_isNull(ds_temp_info_patinfo.getColumnInfo("insuid")))
	{
		ds_temp_info_patinfo.updateColID('insuid', 'patm_insuid');
	}
	
	if(!utlf_isNull(ds_temp_info_patinfo.getColumnInfo("insukind")))
	{
		ds_temp_info_patinfo.updateColID('insukind', 'patm_insukind');
	}
	
	if(!utlf_isNull(ds_temp_info_patinfo.getColumnInfo("instcd")))
	{
		ds_temp_info_patinfo.updateColID('instcd', 'srchinstcd');
	}

	ds_temp_info_rsrvacptinfo.updateColID('relacd', 'emprelacd');
	ds_temp_info_rsrvacptinfo.updateColID('uncocd', 'pkguncocd');
	
	dsf_setDefaultVal(ds_temp_info_rsrvacptinfo, "agencyrate:0,payinsubamt:0,paycmpyamt:0");

	ds_temp_info_addlst.updateColID('pkgflag', 'testflag');

	var i = 0;
	//node clear현상때문임..

	// 건진정보
	if (ds_temp_info_rsrvacptinfo.rowcount > 0) { 
		ds_main_info_rsrvacptinfo_item.copyData(ds_temp_info_rsrvacptinfo);
		dsf_setDefaultVal(ds_main_info_rsrvacptinfo_item, "all");
	}
	//건진장소 확인
	//건진자의 건진장소 구분이 없으면 Default 셋팅된 건진장소 구분을 등록
	var patPlacecd = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamplacecd");
	var defaultPlacecd = ds_init_place.getColumn(0, "healexamplacecd");
	ds_main_info_rsrvacptinfo_item.setColumn(0, "healexamplacecd", utlf_isNull(patPlacecd) ? defaultPlacecd : patPlacecd)

	//추가검사내역
	ds_main_info_rsrvacptinfo_addlst.clearData();
	var nodelst = ds_temp_info_addlst;

	// 2008-06-11 이성인
	if (nodelst.rowcount > 0) {
		dsf_copyColInfo(ds_main_info_rsrvacptinfo_addlst, nodelst);
		for (var i = 0; i < nodelst.rowcount; i++) {
			ds_main_info_rsrvacptinfo_addlst.updatecontrol = false;
			ds_main_info_rsrvacptinfo_addlst.copyRow(ds_main_info_rsrvacptinfo_addlst.addRow(), nodelst, i);
			ds_main_info_rsrvacptinfo_addlst.updatecontrol = true;
		}
	}

	//1차판정내역
	ds_main_info_judgone.copyData(ds_temp_info_judgone);

	//추가패키지내역
	nodelst = ds_temp_info_pkglst;
	ds_main_info_rsrvacptinfo_pkglst.clearData();
	// 2008-06-11 이성인
	if (nodelst.rowcount > 0) {
		for (var i = 0; i < nodelst.rowcount; i++) {
			ds_main_info_rsrvacptinfo_pkglst.copyRow(ds_main_info_rsrvacptinfo_pkglst.addRow(), nodelst, i);
		}
	}

	ds_send_selpkgexam.copyData(ds_main_info_rsrvacptinfo_addlst); //일반검진 추가검사

	//태그정보
	var tagNode = ds_temp_info_taginfo;
	btn_tag.text = "태그지급";

	if (tagNode.rowcount > 0) {
		ds_main_info_taginfo.copyData(ds_temp_info_taginfo);
		var suppStat = ds_main_info_taginfo.getColumn(0, "suppstat");
		if ("0" == suppStat) {
			btn_tag.text = "태그반납";
			ipt_tagno.enable = false;
		}
	}

	//결과상담 예약리스트
	ds_main_info_rsltcnstinfo_choicnst.clearData();
	ds_main_info_rsltcnstinfo_cnstlst_cnst.copyData(ds_temp_info_cnst);
	if (utlf_transNullToEmpty(ds_main_info_rsltcnstinfo_choicnst.getColumn(0, "outexamyn")) == "") {
		dsf_makeValue(ds_main_info_rsltcnstinfo_choicnst, "outexamyn", 'string', "N");
	}

	//환자정보
	if (ds_temp_info_patinfo.rowcount > 0) {
		ds_main_info_patinfo_item.copyData(ds_temp_info_patinfo);
		ipt_pid.enable = false;
	}

	//할인액 정보
	if (ds_main_info_rsrvacptinfo_item.getColumn(0, "disccd") != "-") {
		var nname = ds_main_info_rsrvacptinfo_item.getColumn(0, "disccd");
		var ncount = ds_init_baseinfo_pamcdlst_disccdlst.rowcount;

		for (var i = 0; i < ncount; i++) {
			if (nname == ds_init_baseinfo_pamcdlst_disccdlst.getColumn(i, "cd")) {
				dsf_makeValue(ds_main_info_rsrvacptinfo_item, "dcamt", 'string', ds_init_baseinfo_pamcdlst_disccdlst.getColumn(i, "dcamt"));
				dsf_makeValue(ds_main_info_rsrvacptinfo_item, "adddcamt", 'string', ds_init_baseinfo_pamcdlst_disccdlst.getColumn(i, "adddcamt"));
			}
		}
	}

	//수납정보
	dsf_copyDsWithPrefix(ds_temp_info_opmi_out, ds_temp_info_opmi_out, "opmi_");
	
	tmpnode = ds_temp_info_opmi_out;
	if (tmpnode.rowcount > 0) {
		//tmpnode = ds_temp_info_opmi_out.getColumn(0, "opmi_discamt");

		if (!utlf_isNull(tmpnode.getColumn(0, 'opmi_discamt'))) {
			dsf_makeValue(ds_main_info_rcptinfo, "pkgamt", 'string', tmpnode.getColumn(0, "opmi_baseexamamt"));
			dsf_makeValue(ds_main_info_rcptinfo, "addamt", 'string', tmpnode.getColumn(0, "opmi_addexamamt"));
			dsf_makeValue(ds_main_info_rcptinfo, "subtotamt", 'string', tmpnode.getColumn(0, "opmi_totamt"));
			dsf_makeValue(ds_main_info_rcptinfo, "preamt", 'string', tmpnode.getColumn(0, "opmi_mdlrcptamt"));
			dsf_makeValue(ds_temp_info_opmi_out, "opmi_discamt", 'string', '');
			dsf_makeValue(ds_main_info_rcptinfo, "discamt", 'string', tmpnode.getColumn(0, "opmi_discamt"));

			dsf_makeValue(ds_temp, "discamt", 'string', tmpnode.getColumn(0, "opmi_discamt"));
			dsf_makeValue(ds_main_info_rcptinfo, "uncoamt", 'string', tmpnode.getColumn(0, "opmi_restamt"));
			dsf_makeValue(ds_main_info_rcptinfo, "realamt", 'string', tmpnode.getColumn(0, "opmi_rcptamt"));
		}
		dsf_makeValue(ds_temp, "rcptCheck", 'string', "true"); //수납된 내역 체크
	} else {
		dsf_makeValue(ds_send, "srchcmpycd", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd"));
		dsf_makeValue(ds_send, "srchconseq", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "conseq"));
		dsf_makeValue(ds_send, "srchconhistseq", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "conhistseq"));
		dsf_makeValue(ds_send, "srchsex", 'string', ds_main_info_patinfo_item.getColumn(0, "sex"));
		dsf_makeValue(ds_send, "srchpkgcd", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "pkgcd"));
		dsf_makeValue(ds_send, "srchpid", 'string', ds_main_info_patinfo_item.getColumn(0, "pid"));
		dsf_makeValue(ds_send, "srchage", 'string', 
			ageCalc(utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "rgstno1")), 
			utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "rgstno2"))));

		//2015/10/26 이정택 추가
		dsf_makeValue(ds_send, "forgneryn", ds_main_info_patinfo_item.getColumn(0, "forgneryn"), 'string');
		//2015/10/26 이정택 추가

		//선수금(RCPTFLAG - P, R / 패키지 금액(할인 포함)/ 수납 내역 조회
		dsf_createDsRow('ds_TXAHA00903', [
			{ col: 'healexamflag', type: 'string', size: 256, val: '' },
			{ col: 'rsrvdd', type: 'string', size: 256, val: '' },
			{ col: 'rsrvno', type: 'int', size: 256, val: '' },
			{ col: 'pid', type: 'string', size: 256, val: '' },
			{ col: 'jobflag', type: 'string', size: 256, val: '' },
			{ col: 'instcd', type: 'string', size: 256, val: '' },
			{ col: 'sex', type: 'string', size: 256, val: '' },
			{ col: 'conhistseq', type: 'string', size: 256, val: '' },
			{ col: 'conseq', type: 'string', size: 256, val: '' },
			{ col: 'cmpycd', type: 'string', size: 256, val: '' },
			{ col: 'pkgcd', type: 'string', size: 256, val: '' },
			{ col: 'instcd', type: 'string', size: 256, val: '' },
			{ col: 'srchage', type: 'string', size: 256, val: '' },
			{ col: 'forgneryn', type: 'string', size: 256, val: '' }
		]);

		ds_TXAHA00903.copyRow(0, ds_send, 0, 'healexamflag=srchhealexamflag,rsrvdd=srchrsrvdd,rsrvno=srchrsrvno,'
			+'pid=srchpid,jobflag=srchjobflag,instcd=srchinstcd,sex=srchsex,conhistseq=srchconhistseq,'
			+ 'conseq=srchconseq,cmpycd=srchcmpycd,pkgcd=srchpkgcd,instcd=srchinstcd,srchage=srchage,forgneryn=forgneryn');

		// TODO 아래 형변환 검증 해 볼것
		dsf_setTypeFormat(ds_TXAHA00903, "rsrvno:INT^conhistseq:INT^conseq:INT^srchage:INT");

		var oParam = {};
		oParam.id = "TXAHA00903";
		oParam.service = "healexamrcptapp.HealExamRcpt";
		oParam.method = "reqExeHealExamAmtRsrvCalc";
		oParam.inds = "req=ds_TXAHA00903";
		oParam.outds = "ds_main_info_rcptinfo_rcptinfo=rcptinfo";
		oParam.async = false;

		tranf_submit(oParam);

		dsf_makeValue(ds_main_info_rcptinfo, "pkgamt", 'string', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "pkgamt"));
		dsf_makeValue(ds_main_info_rcptinfo, "discamt", 'string', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "discamt"));
		dsf_makeValue(ds_temp, "discamt", 'string', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "discamt"));
		dsf_makeValue(ds_main_info_rcptinfo, "subtotamt", 'string', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "subtotamt"));

		if ((utlf_transNullToEmpty(ds_main_info_rcptinfo.getColumn(0, "preamt")) == "") || (ds_main_info_rcptinfo.getColumn(0, "preamt") == "0")) {
			dsf_makeValue(ds_main_info_rcptinfo, "preamt", 'int', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "cashamt"));
		}

		if (utlf_isNull(ds_main_info_rcptinfo.getColumn(0, "addamt"))) {
			dsf_makeValue(ds_main_info_rcptinfo_rcptinfo, "addamt", 'string', "0");
		}

		dsf_makeValue(ds_main_info_rcptinfo, "addamt", 'string', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "addamt"));
		if (ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpyflag") == "Y" && utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumn(0, "pkguncocd"))) {
			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "pkguncocd", 'string', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "pkguncocd"));
		} else {
			dsf_makeValue(ds_main_info_rcptinfo, "realamt", 'string', ds_main_info_rcptinfo_rcptinfo.getColumn(0, "subtotamt"));
		}
		dsf_makeValue(ds_temp, "rcptCheck", 'string', "false"); //수납된 내역 체크
	}

	//화면상단정보 설정
	var sPid = utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "pid"));
	var sOrddd = utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "orddd"));
	var iCretno = utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "cretno"));
	var statflag = utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "statflag"));
	if ((sPid != "") && (sOrddd != "") && (iCretno != "") && (iCretno != "0")) {
		ahafSetScreenTopPatInfo(sPid, sOrddd, iCretno); // 환자 상단정보 세팅
	}

	fDcAmtCalc();
	fSetBtnStat(); // 권한에 따른 버튼 설정

	if (ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpyflag") == "Y" && utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumn(0, "pkguncocd"))) {
		ds_main_info_rsrvacptinfo_item.getColumn(0, "pkguncocd", "V02");
	}

	// 미수코드 에 따라서 공단부담금과 단체부담금 입력란을 제어(2017/02/13 이정택)
	fUncoSeparate();
	// 미수코드 에 따라서 공단부담금과 단체부담금 입력란을 제어(2017/02/13 이정택)
}

function cf_TRAHA00102A(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	
	fn_MakeCopyColumn(ds_temp_info_rsrvacptinfo, "uncocd", "pkguncocd");
	dsf_setDefaultVal(ds_temp_info_rsrvacptinfo, "agencyrate:0,payinsubamt:0,paycmpyamt:0");
	fn_MakeCopyColumn(ds_temp_info_addlst, "pkgflag", "testflag");
	dsf_setFixVal(ds_temp_info_addlst, "m:u");
}

/****************************************************************************************
 * Argument			: objDs 	- Dataset ID
 *					: sColSrc	- 원본 컬럼
 *					: sColTgt	- 생성할 컬럼
 * Description		: 데이터셋 특정컬럼 카피하여 새컬럼 생성
 ****************************************************************************************/
function fn_MakeCopyColumn(objDs,sColSrc,sColTgt) {
	var arrColSrc = sColSrc.split(",");
	var arrColTgt = sColTgt.split(",");
	
	if(arrColSrc.length != arrColTgt.length) return;
	
	for(var x = 0 ; x < arrColTgt.length ; x++) {
		if(utlf_isNull(objDs.getColumnInfo(arrColTgt[x]))) objDs.addColumn(arrColTgt[x],"string");
	}
	
	for(var i = 0 ; i < objDs.rowcount ; i++) {
		for(var j = 0 ; j < arrColTgt.length ; j++) {
			objDs.setColumn(i,arrColTgt[j],objDs.getColumn(i,arrColSrc[j]));
		}
	}
}

/**********************************************************************************
 * 함수명		: ahafGetRsrvAcpDetltInfoWithPid
 * 설  명		: 예약/접수 상세내역 조회
 * argument		: * vHealExamDetlFg 	: 건진상세구분 
				  * vPid 				: 환자등록번호
 * return Type	: 건진상세내역
 * 작성자		: 
**********************************************************************************/
function ahafGetRsrvAcpDetltInfoWithPid(vHealExamDetlFg, vPid)
{
	if(utlf_isNull(vHealExamDetlFg) || utlf_isNull(vPid)) return ;

	fCheckNodeExist("ds_send", "srchhealexamflag" 		, true );
	fCheckNodeExist("ds_send", "srchhealexamdetlflag" 		, true );
	fCheckNodeExist("ds_send", "srchhealexampid" 		, true );
	fCheckNodeExist("ds_send", "srchinstcd" 		, true );
	fCheckNodeExist("ds_send", "srchrsrvdd" 		, true );
	fCheckNodeExist("ds_send", "srchrsrvno" 		, true );
	
	var vhf = "";
	if(utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag")))
	{
		vhf = fGetHealExamFlag();
	}
	else
	{
		vhf = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
	}

	ds_send.setColumn(0, "srchhealexamflag"		  , vhf);
	ds_send.setColumn(0, "srchhealexamdetlflag"	  , vHealExamDetlFg);
	ds_send.setColumn(0, "srchhealexampid"		  , vPid);
	ds_send.setColumn(0, "srchinstcd"		 	  , sysf_getUserInfo("dutplceinstcd"));
	ds_send.setColumn(0, "srchrsrvdd"		 	  , "");
	ds_send.setColumn(0, "srchrsrvno"		 	  , "");
	
	var oParam = {};
		oParam.id          = "TRAHA00111";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetRsrvAcptKeyWithPid";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_temp_rsrvacptkey_item=item ds_temp_rsrvacptkey_item1=item1";
		oParam.async       = false;
		oParam.callback    = "cf_TRAHA00111";

	tranf_submit(oParam);

	if(arErrorCode.pop("TRAHA00111") < 0)
	{
		if(!utlf_isNull(ds_temp_rsrvacptkey_item1.getColumn(0, "linfo")))
		{
			var linfo = ds_temp_rsrvacptkey_item1.getColumn(0, "linfo");
			var temp = new Date().getYear();

			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "latestpkginfo", "string", ds_temp_rsrvacptkey_item1.getColumn(0, "linfo"));

			var chklatestpkginfo = ds_main_info_rsrvacptinfo_item.getColumn(0, "latestpkginfo");
			
			if(temp - parseInt(String(chklatestpkginfo).substr(0, 4)) <=1)
			{
				if(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamdetlflag") != "G02")
				{
					var rtn = sysf_messageBox("연속건진 할인을 사용 ", "S001") ;
					if(rtn == 6)
					{
						cmb_disccd.value = "F71";
					}
				}
			}
		}
		return ;
	}

	if(!utlf_isNull(ds_temp_rsrvacptkey_item1.getColumn(0, "linfo")))
	{
		var linfo = ds_temp_rsrvacptkey_item1.getColumn(0, "linfo");
		var temp = new Date().getYear();

		ds_main_info_rsrvacptinfo_item.setColumn(0, "latestpkginfo", ds_temp_rsrvacptkey_item1.getColumn(0, "linfo"));
		var chklatestpkginfo = ds_main_info_rsrvacptinfo_item.getColumn(0, "latestpkginfo");
		if(temp - parseInt(String(chklatestpkginfo).substr(0,4)) <=1 )
		{
			if(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamdetlflag") != "G02")
			{
				var rtn = sysf_messageBox("연속건진 할인을 사용   ", "S001") ;
				if(rtn == 6)
				{
					cmb_disccd.value = "F71";
				}
			}
		}
	}
	setPkgInfo();

	var tmpnode = ds_temp_rsrvacptkey_item.getColumn(0, "rsrvdd");
	if(utlf_isNull(tmpnode))
	{
		fSetBtnStat();
		return ;
	}
	
	if(sysf_messageBox("당해년도의 예약내역이 존재합니다.", "Q005") != 6 )
	{
		fSetBtnStat();
		return ;
	}
	
	ds_send.setColumn(0, "srchrsrvdd", ds_temp_rsrvacptkey_item.getColumn(0, "rsrvdd"));
	ds_send.setColumn(0, "srchrsrvno", ds_temp_rsrvacptkey_item.getColumn(0, "rsrvno"));
	
	dsf_createDs("ds_temp_info_rsrvacptinfo");
	dsf_createDs("ds_temp_info_addlst");
	dsf_createDs("ds_temp_info_pkglst");
	
	dsf_createDsRow('ds_TRAHA00102', [{col: 'srchhealexamflag', type: 'string', size: 256, val: '' },
									  {col: 'srchrsrvdd', type: 'string', size: 256, val: '' },
									  {col: 'srchrsrvno', type: 'string', size: 256, val: '' },
									  {col: 'srchinstcd', type: 'string', size: 256, val: '' },
									  {col: 'srchhealexampid', type: 'string', size: 256, val: '' },
									  {col: 'srchhealexamdetlflag', type: 'string', size: 256, val: '' },
									  {col: 'srchage', type: 'string', size: 256, val: '' },
									  {col: 'scrnnm', type: 'string', size: 256, val: '' }], false);
	
	ds_TRAHA00102.copyRow(0, ds_send, 0);

	var oParam = {};
		oParam.id = "TRAHA00102";
		oParam.service = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method = "reqGetRsrvAcptInfo";
		oParam.inds = "req=ds_TRAHA00102";
		oParam.outds = "ds_temp_info_patinfo=patinfo ds_temp_info_rsrvacptinfo=rsrvacptinfo ds_temp_info_addlst=addlst "
					+  "ds_temp_info_pkglst=pkglst ds_temp_info_judgone=judgone ds_temp_info_taginfo=taginfo ds_temp_info_cnst=cnst ds_temp_info_opmi_out=opmi_out";
		oParam.async = false;
		oParam.callback = "cf_TRAHA00102B";

	tranf_submit(oParam);

	

	if (arErrorCode.pop("TRAHA00102") < 0) 
	{
		return;
	}

	var i = 0;

	tmpnode = ds_temp_info_rsrvacptinfo;
	if(tmpnode.rowcount != 0)
	{
		ds_main_info_rsrvacptinfo_item.copyData(ds_temp_info_rsrvacptinfo);
		dsf_setDefaultVal(ds_main_info_rsrvacptinfo_item, "all");
	}

	var nodelst = ds_temp_info_addlst;
	if(nodelst.rowcount > 0)
	{
		ds_main_info_rsrvacptinfo_addlst.copyData(nodelst);
		dsf_setDefaultVal(ds_main_info_rsrvacptinfo_addlst, "all");
	}
	
	var nodelst = ds_temp_info_pkglst;
	if(nodelst.rowcount > 0)
	{
		ds_main_info_rsrvacptinfo_pkglst.copyData(nodelst);
		dsf_setDefaultVal(ds_main_info_rsrvacptinfo_pkglst, "all");
	}
	
	var sPid 		= ds_main_info_rsrvacptinfo_item.getColumn(0, "pid");
	var sOrddd 		= ds_main_info_rsrvacptinfo_item.getColumn(0, "orddd");
	var iCretno 	= ds_main_info_rsrvacptinfo_item.getColumn(0, "cretno");
	var statflag	= ds_main_info_rsrvacptinfo_item.getColumn(0, "statflag");
	
	if(!utlf_isNull(sPid) && !utlf_isNull(sOrddd) && !utlf_isNull(iCretno) && (iCretno != "0"))
	{
		ahafSetScreenTopPatInfo(sPid, sOrddd, iCretno);
	}

	fSetBtnStat();
}

function cf_TRAHA00111(sSvcId, nErrorCode, sErrorMsg)
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}

function cf_TRAHA00102B(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	
	fn_MakeCopyColumn(ds_temp_info_rsrvacptinfo, "uncocd", "pkguncocd");
	dsf_setDefaultVal(ds_temp_info_rsrvacptinfo, "agencyrate:0,payinsubamt:0,paycmpyamt:0");
	fn_MakeCopyColumn(ds_temp_info_addlst, "pkgflag", "testflag");
	dsf_setFixVal(ds_temp_info_addlst, "m:u");
}

/**********************************************************************************
 * 함수명		: ahafGetRsrvAcpDetltInfoWithPid_R
 * 설  명		: 
 * argument		: * vHealExamDetlFg		: 
				  * vPid 				: 등록번호
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function ahafGetRsrvAcpDetltInfoWithPid_R(vHealExamDetlFg, vPid)
{
	if(utlf_isNull(vHealExamDetlFg) || utlf_isNull(vPid)) return;

	fCheckNodeExist("ds_send", "srchhealexamflag" 		, true );
	fCheckNodeExist("ds_send", "srchhealexamdetlflag"	, true );
	fCheckNodeExist("ds_send", "srchhealexampid"		, true );
	fCheckNodeExist("ds_send", "srchinstcd"			  	, true );
	fCheckNodeExist("ds_send", "srchrsrvdd"			  	, true );
	fCheckNodeExist("ds_send", "srchrsrvno"			  	, true );

	var vhf = "";
	if(utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag")))
	{
		vhf = fGetHealExamFlag();
	}
	else
	{
		vhf = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
	}
	ds_send.setColumn(0, "srchhealexamflag" , vhf);
	ds_send.setColumn(0, "srchhealexamdetlflag" , vHealExamDetlFg);
	ds_send.setColumn(0, "srchhealexampid" , vPid);
	ds_send.setColumn(0, "srchinstcd" , sysf_getUserInfo("dutplceinstcd"));
	ds_send.setColumn(0, "srchrsrvdd" , "");
	ds_send.setColumn(0, "srchrsrvno" , "");
	
	var oParam = {};
		oParam.id          = "TRAHA00111";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetRsrvAcptKeyWithPid";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_temp_rsrvacptkey_item=item ds_temp_rsrvacptkey_item1=item1";
		oParam.async       = false;
		oParam.callback    = "cf_TRAHA00111";

	tranf_submit(oParam);

	if(arErrorCode.pop("TRAHA00111") > -1)
	{
		if(!utlf_isNull(ds_temp_rsrvacptkey_item1.getColumn(0, "linfo")))
		{
			var linfo = ds_temp_rsrvacptkey_item1.getColumn(0, "linfo");
			var temp  = new Date().getYear();
			ds_main_info_rsrvacptinfo_item.setColumn(0, "latestpkginfo", ds_temp_rsrvacptkey_item1.getColumn(0, "linfo"));
		}
		return ;
	}

	if(!utlf_isNull(ds_temp_rsrvacptkey_item1.getColumn(0, "linfo")))
	{
		var linfo = ds_temp_rsrvacptkey_item1.getColumn(0, "linfo");
		var temp  = new Date().getYear();
		ds_main_info_rsrvacptinfo_item.setColumn(0, "latestpkginfo", ds_temp_rsrvacptkey_item1.getColumn(0, "linfo"));
	}
	setPkgInfo();
	
	ds_send.setColumn(0, "srchrsrvdd", ds_temp_rsrvacptkey.getColumn(0, "rsrvdd"));
	ds_send.setColumn(0, "srchrsrvno", ds_temp_rsrvacptkey.getColumn(0, "rsrvno"));

	dsf_createDsRow('ds_TRAHA00102', [{col: 'srchhealexamflag', type: 'string', size: 256, val: '' },
									  {col: 'srchrsrvdd', type: 'string', size: 256, val: '' },
									  {col: 'srchrsrvno', type: 'string', size: 256, val: '' },
									  {col: 'srchinstcd', type: 'string', size: 256, val: '' },
									  {col: 'srchhealexampid', type: 'string', size: 256, val: '' },
									  {col: 'srchhealexamdetlflag', type: 'string', size: 256, val: '' },
									  {col: 'srchage', type: 'string', size: 256, val: '' },
									  {col: 'scrnnm', type: 'string', size: 256, val: '' }], false);
	
	ds_TRAHA00102.copyRow(0, ds_send, 0);

	var oParam = {};
		oParam.id = "TRAHA00102";
		oParam.service = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method = "reqGetRsrvAcptInfo";
		oParam.inds = "req=ds_TRAHA00102";
		oParam.outds = "ds_temp_info_patinfo=patinfo ds_temp_info_rsrvacptinfo=rsrvacptinfo ds_temp_info_addlst=addlst "
					+  "ds_temp_info_pkglst=pkglst ds_temp_info_judgone=judgone ds_temp_info_taginfo=taginfo ds_temp_info_cnst=cnst ds_temp_info_opmi_out=opmi_out";
		oParam.async = false;
		oParam.callback = "cf_TRAHA00102C";

	tranf_submit(oParam);
	
	

	if (arErrorCode.pop("TRAHA00102") < 0) 
	{
		return;
	}
	
	var i = 0;
	
	tmpnode = ds_temp_info_rsrvacptinfo.rowcount
	if(tmpnode != 0)
	{
		ds_main_info_rsrvacptinfo_item.copyData(ds_temp_info_rsrvacptinfo);
		dsf_setDefaultVal(ds_main_info_rsrvacptinfo_item, "all");
	}
	var nodelst = ds_temp_info_addlst;
	if(nodelst.rowcount > 0)
	{
		ds_main_info_rsrvacptinfo_addlst.copyData(nodelist);
	}
	nodelst = ds_temp_info_pkglst;
	if(nodelst.rowcount > 0)
	{
		ds_main_info_rsrvacptinfo_pkglst.copyData(nodelist);
	}
}

function cf_TRAHA00102C(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	
	fn_MakeCopyColumn(ds_temp_info_rsrvacptinfo, "uncocd", "pkguncocd");
	dsf_setDefaultVal(ds_temp_info_rsrvacptinfo, "agencyrate:0,payinsubamt:0,paycmpyamt:0");
	fn_MakeCopyColumn(ds_temp_info_addlst, "pkgflag", "testflag");
	dsf_setFixVal(ds_temp_info_addlst, "m:u");
}

/**********************************************************************************
 * 함수명		: fSetAddr
 * 설  명		: 주소 검색
 * argument		: * vCond 		: node XPath
				  * vDestXPath 	: node Column //2.0 추가
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fSetAddr(vCond, vDestXPath) 
{
	fCheckNodeExist("ds_temp_addr", "zipcd1"		, true);
	fCheckNodeExist("ds_temp_addr", "zipcd2"		, true);
	fCheckNodeExist("ds_temp_addr", "zipcdseq"		, true);
	fCheckNodeExist("ds_temp_addr", "addr"			, true);
	
	var retValue = appf_getZipCodeList("combination");
 
	 ds_temp_addr.setColumn(0, "zipcd1", retValue.zipcdhead);
	 ds_temp_addr.setColumn(0, "zipcd2", retValue.zipcdfoot);
	 ds_temp_addr.setColumn(0, "zipcdseq", retValue.seqno);
	 ds_temp_addr.setColumn(0, "addr", retValue.address);
	 
	var node = ds_temp_addr.getColumn(0, "zipcd1");
	
	if( !utlf_isNull(node))
	{
		dsf_makeValue(eval(vDestXPath), "zipcd1", "string",  ds_temp_addr.getColumn(0, "zipcd1"));
		dsf_makeValue(eval(vDestXPath), "zipcd2", "string",  ds_temp_addr.getColumn(0, "zipcd2"));
		dsf_makeValue(eval(vDestXPath), "zipcdseq", "string",  ds_temp_addr.getColumn(0, "zipcdseq"));
		dsf_makeValue(eval(vDestXPath), "addr", "string",  ds_temp_addr.getColumn(0, "addr"));
	}
}

/**********************************************************************************
 * 함 수 명	: ahafSetAddr
 * 설    명	: 주소 검색
 * argument		: * vCond 			: 주소1,2구분.(발송주소관련)
				  * vDestXPath	: 목적노드(주소가 입력될)
				  * vSrchCond 	: 검색조건 ( 주소(‘address’),  동명/아파트명/건물명(‘combination’), 우편번호(‘zipcode’) )
				  * vSrchCondNm : 조건명
 * return Type	: 주소상세내역
 * 작성자		: 
**********************************************************************************/
function ahafSetAddr(vCond, vDestXPath, vSrchCond, vSrchCondNm) 
{
	dsf_createDs("ds_temp_address");
	dsf_makeValue(ds_temp_address, "zipcd1", "string", "");
	dsf_makeValue(ds_temp_address, "zipcd2", "string", "");
	dsf_makeValue(ds_temp_address, "zipcdseq", "string", "");
	dsf_makeValue(ds_temp_address, "addr", "string", "");
	dsf_makeValue(ds_temp_address, "detladdr1", "string", "");
	dsf_makeValue(ds_temp_address, "builno", "string", "");
	dsf_makeValue(ds_temp_address, "gubuilnm", "string", "");
	
	var sZipcd = appf_getZipCodeList();
	ds_temp_address.setColumn(0, "zipcd1", sZipcd.zipcdhead);
	ds_temp_address.setColumn(0, "zipcd2", sZipcd.zipcdfoot);
	ds_temp_address.setColumn(0, "zipcdseq", sZipcd.seqno);
	ds_temp_address.setColumn(0, "addr", sZipcd.address);
	
	if( !utlf_isNull(sZipcd.zipcdhead))
	{
		this.objects[vDestXPath].setColumn(0, "zipcd" + vCond + "1",  ds_temp_address.getColumn(0, "zipcd1"));
		this.objects[vDestXPath].setColumn(0, "zipcd" + vCond + "2",  ds_temp_address.getColumn(0, "zipcd2"));
		this.objects[vDestXPath].setColumn(0, "zipcdseq" + vCond ,  ds_temp_address.getColumn(0, "zipcdseq"));
		this.objects[vDestXPath].setColumn(0, "addr" + vCond ,  ds_temp_address.getColumn(0, "addr"));
		this.objects[vDestXPath].setColumn(0, "detladdr" + vCond ,  ds_temp_address.getColumn(0, "detladdr1"));
		this.objects[vDestXPath].setColumn(0, "builno" + vCond ,  ds_temp_address.getColumn(0, "builno"));
		this.objects[vDestXPath].setColumn(0, "detladdr" + vCond,  ds_temp_address.getColumn(0, "gubuilnm"));
		
		if( vCond == "1" ) vCond = "";
		frmf_getComponents("ipt_detladdr"+vCond).setFocus();
	}

	return "ds_temp_address";
}

/*-**************************************************************************************
 * Argument			: N/A
 * Description		: Calendar관련 draw 공용 함수
 ****************************************************************************************/
function initCalendar(){
	var curDate = utlf_getCurrentDate().toDate();
	ds_temp_calendar.setColumn( 0, "year", curDate.getDateFormat('YYYY'));
	ds_temp_calendar.setColumn( 0, "month", curDate.getDateFormat('MM'));

	setCalendar(curDate);
}

/**********************************************************************************
 * 함 수 명	: setCalendar
 * 설    명	: 캘린더 데이터셋 세팅
 * argument		:  dateObj : 날짜 파라미터
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function setCalendar(dateObj) 
{
	ds_temp_calendar_weeklist_list.clearData();
	dateObj.setDate(1);
	
	var startDay = dateObj.getDay();
	var days = dateObj.getMonthDay();

	var rows = Math.ceil( ( startDay + days ) / 7 );
	
	for(var i = 0; i < rows; i++)
	{
		ds_temp_calendar_weeklist_list.addRow();
	}

	var rowIndex = 0;
	var colIndex = startDay;
	
	for(var i = 0; i < days; i++ )
	{
		ds_temp_calendar_weeklist_list.setColumn(rowIndex, colIndex, parseInt(i+1));
		colIndex++;
		
		if(colIndex == 7)
		{
			colIndex = 0;
			rowIndex++;
		}
	}
}

	function setCellColor(gridObj){
		var calRow = gridObj.row ;
		var calCol = gridObj.col;
		var tmpCalCol;

		if( calCol < 7 ){
			tmpCalCol = calCol + 7;
		}else{
			tmpCalCol = calCol - 7;
    }
		gridObj.rebuildStyle();

		gridObj.cellStyle("background-color", calRow, calCol) = "#daa7d9";
		gridObj.cellStyle("background-color", calRow, tmpCalCol) = "#daa7d9";
	}

/**********************************************************************************
 * 함 수 명	: fGetCalendarDate
 * 설    명	: Calendar 선택한 일자 얻기
 * argument		: grdObj( calendar grid control )
 * return Type	: date (YYYYMMDD)
 * 작성자		: 
**********************************************************************************/
function fGetCalendarDate(grdObj)
{
	var  cal_row = this.objects[grdObj.binddataset].rowposition;
	var  cal_col  = grdObj.currentcol;
	
	if( cal_col > 6) cal_col -= 7;
	
	var rsrvdd = "";
	
	if( cal_row > -1 )
	{
		var dd = this.objects[grdObj.binddataset].getColumn(cal_row, cal_col);
		
		if( dd.length  < 2 ) 
		{
			dd = "0" + dd;
		}
		rsrvdd =  ds_temp_calendar.getColumn(0, "year") + ds_temp_calendar.getColumn(0, "month") + dd  ;
	}
	return rsrvdd;
}

/**********************************************************************************
 * 함 수 명	: fHRefreshCalender
 * 설    명	: Calendar    새로그리기
 * argument		: * vDateFg : Y-년도, M-월
				  * vIncrease : 증감(+/-)
 * return Type	: date (YYYYMMDD)
 * 작성자		: 
**********************************************************************************/
function fHRefreshCalender(vDateFg, vIncrease)
{
	if( (vDateFg != "Y" ) && (vDateFg != "M") ) 
	{
		return ;
	}

	var iTerm = parseInt(vIncrease);
	var isMonth = ds_temp_calendar.getColumn(0, "month");
	var isYear = ds_temp_calendar.getColumn(0, "year");
	
	var isDate = (isYear+isMonth+1).toDate().getAddDate(iTerm,vDateFg);

	ds_temp_calendar.setColumn(0, "year", isDate.getDateFormat('YYYY'));
	ds_temp_calendar.setColumn(0, "month", isDate.getDateFormat('MM'));
	setCalendar(isDate);
}


/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-04-18
@desc 		: fExcelUpload 엑셀파일을 해당 그리드로 in
@param 	: grid object
*====================================================================================================================*/
	function fExcelUpload(grdObj){
		if( grdObj == null ){
			messageBox("grdObj is null!", "E999");
		 	return ;
		}
		var fileName = window.fileDialog("open", ",", false, "", "xls", "All Files (*.*)|*.*|Excel Files(*.xls)|*.xls");
		grdObj.loadExcel(fileName, 1, true);
		var cnt = grdObj.rows;
		var i = 0;
		for(  i = 1; i < cnt +1 ; i++)
		{
			grdObj.addStatus(i, "insert");
		}
		grdObj.deleteRow(1);
		grdObj.refresh();
	}



/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-04-18
@desc 		: 질환코드 선택 창 open
@param 	: grid object
				* SPAHB00200_PARAM1 : 현재화면ID
				* SPAHB00200_PARAM2 : 질환코드
				* SPAHB00200_PARAM3 : 질환명
				* SPAHB00200_PARAM4 : 대상 nodeset count
				* SPAHB00200_PARAM5 : 대상 nodeset
*====================================================================================================================*/
function ahafGetSickCd(vOpenerID, vCondCd, vCondNm, vDestCnt, vDestXPath, vMappSickCd ){
	frmf_clearParameter("SPAHB00200_PARAM1");
	frmf_clearParameter("SPAHB00200_PARAM2");
	frmf_clearParameter("SPAHB00200_PARAM3");
	frmf_clearParameter("SPAHB00200_PARAM4");
	frmf_clearParameter("SPAHB00200_PARAM5");
	frmf_clearParameter("SPAHB00200_PARAM6");


	frmf_setParameter ("SPAHB00200_PARAM1", vOpenerID);
	frmf_setParameter ("SPAHB00200_PARAM2", vCondCd);
	frmf_setParameter ("SPAHB00200_PARAM3", vCondNm);
	frmf_setParameter ("SPAHB00200_PARAM4", vDestCnt);
	frmf_setParameter ("SPAHB00200_PARAM5", vDestXPath);
	frmf_setParameter ("SPAHB00200_PARAM6", vMappSickCd);

	frmf_modal("SPAHB00200", "SPAHB00200", "", "", "", "", "", "", "", "", "", "", "M");
}
/**==================================================================================================================
@author 	: 손범성
@version 	: 2007-12-18
@desc 		: 검사코드 선택 창 open
@param 	: grid object
				* SPAHB00500_PARAM1 : 현재화면ID
				* SPAHB00500_PARAM2 : 검사코드
				* SPAHB00500_PARAM3 : 검사명
				* SPAHB00500_PARAM4 : 대상 nodeset count
				* SPAHB00500_PARAM5 : 대상 nodeset
*====================================================================================================================*/
	function ahafGetTestCd(vOpenerID, vCondCd, vCondNm, vDestCnt, vDestXPath,vjudgexmpcd ){
		frmf_clearParameter("SPAHB00600_PARAM1");
		frmf_clearParameter("SPAHB00600_PARAM2");
		frmf_clearParameter("SPAHB00600_PARAM3");
		frmf_clearParameter("SPAHB00600_PARAM4");
		frmf_clearParameter("SPAHB00600_PARAM5");
		frmf_clearParameter("SPAHB00600_PARAM6");
		frmf_clearParameter("SPAHB00600_PARAM7");
		frmf_clearParameter("SPAHB00600_PARAM8");

		frmf_setParameter ("SPAHB00600_PARAM1", vOpenerID);
		frmf_setParameter ("SPAHB00600_PARAM2", vCondCd);
		frmf_setParameter ("SPAHB00600_PARAM3", vCondNm);
		frmf_setParameter ("SPAHB00600_PARAM4", vDestCnt);
		frmf_setParameter ("SPAHB00600_PARAM5", vDestXPath);

		frmf_setParameter ("SPAHB00600_PARAM6", vjudgexmpcd);
		frmf_modal("SPAHB00600", "SPAHB00600", "", "", "", "", "", "", "", "", "", "", "M");
	}

/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-04-18
@desc 		: 처방가져오기
@param 	:
				* vOpenerID	: 현재화면ID
				*	vPkgFg 		:
				* bMultiyn 	:   다중체크여부
				* vCond 		:	검색구분(cd/nm)
				* vCdnm			: 검색조건(코드/명칭)
				* vHeDetlFg	:	건진상세구분
				*	vSex			:	성별구분(M/F)
				*  SPAHA00200_PARAM1 : P=>pkg, C=>단체pkg, A=>추가검사,S=>선택검사(추가검사와 동일한 검색조건임), T=>일반검사코드
				*  SPAHA00200_PARAM2 : 검색구분(cd/nm)
				*  SPAHA00200_PARAM3 : 검색조건(코드/명칭)
				*  SPAHA00200_PARAM4 : 기관코드
				*  SPAHA00200_PARAM5 : 건진구분( 공통코드 A0068참고)
				*  SPAHA00200_PARAM6 : 건진구분( 공통코드 A0069, A0070 참고)
				*  SPAHA00200_PARAM7 : vOpenerID
				*  SPAHA00200_PARAM8 : 성별구분(M/F)
				*  SPAHA00200_PARAM9 : 다중선택여부(Y/N)
				*  SPAHA00200_PARAM10 : single 입력일 경우 대상 nodeset
*====================================================================================================================*/
function fGetPkgCd(vOpenerID, vPkgFg, bMultiyn,vCond, vCdnm , vHealExamDetlFlag, vSex, vDestXPath, vSrchDisableYN,vFrom,vage,vbrthareacnts,vforgneryn, vagencyrate )
{
	frmf_clearParameter("SPAHA00200_PARAM1");
	frmf_clearParameter("SPAHA00200_PARAM2");
	frmf_clearParameter("SPAHA00200_PARAM3");
	frmf_clearParameter("SPAHA00200_PARAM4");
	frmf_clearParameter("SPAHA00200_PARAM5");
	frmf_clearParameter("SPAHA00200_PARAM6");
	frmf_clearParameter("SPAHA00200_PARAM7");
	frmf_clearParameter("SPAHA00200_PARAM8");
	frmf_clearParameter("SPAHA00200_PARAM9");
	frmf_clearParameter("SPAHA00200_PARAM10");
	frmf_clearParameter("SPAHA00200_PARAM11");
	frmf_clearParameter("SPAHA00200_PARAM12");
	frmf_clearParameter("SPAHA00200_PARAM13");
	frmf_clearParameter("SPAHA00200_PARAM14");
	frmf_clearParameter("SPAHA00200_PARAM15");
	frmf_clearParameter("SPAHA00200_PARAM16");

	frmf_setParameter ("SPAHA00200_PARAM1"		, vPkgFg);
	frmf_setParameter  ("SPAHA00200_PARAM2"		, vCond);
	frmf_setParameter  ("SPAHA00200_PARAM3"		, vCdnm);
	frmf_setParameter  ("SPAHA00200_PARAM4"		, sysf_getUserInfo("dutplceinstcd"));  
	 
	if(vHealExamDetlFlag!="G01")
	{
		frmf_setParameter ("SPAHA00200_PARAM5"		, fGetHealExamFlag() );
	}
	else 
	{
		frmf_setParameter ("SPAHA00200_PARAM5"		, "G" );
	}
	
	frmf_setParameter  ("SPAHA00200_PARAM6"		, vHealExamDetlFlag);
	frmf_setParameter  ("SPAHA00200_PARAM7"		, vOpenerID);
	frmf_setParameter  ("SPAHA00200_PARAM8"		, vSex);
	frmf_setParameter  ("SPAHA00200_PARAM9"		, bMultiyn);
	frmf_setParameter  ("SPAHA00200_PARAM10"	, vDestXPath);
	frmf_setParameter  ("SPAHA00200_PARAM11"	, vSrchDisableYN);
	frmf_setParameter  ("SPAHA00200_PARAM12"	, vFrom);
	frmf_setParameter  ("SPAHA00200_PARAM13"	, vage);
	frmf_setParameter  ("SPAHA00200_PARAM14"	, vbrthareacnts);
	frmf_setParameter  ("SPAHA00200_PARAM15"	, vforgneryn);
	frmf_setParameter ("SPAHA00200_PARAM16"		, vagencyrate);
	
	frmf_modal("SPAHA00200", "SPAHA00200", "", "", "", "", "", "", "", "", "", "", "M");
}

	function fGetPkgCdAuto(vOpenerID, vPkgFg, bMultiyn,vCond, vCdnm , vHealExamDetlFlag, vSex, vDestXPath, vSrchDisableYN,vFrom,vage,vbrthareacnts,vforgneryn){
		frmf_clearParameter("SPAHA00200_PARAM1");
		frmf_clearParameter("SPAHA00200_PARAM2");
		frmf_clearParameter("SPAHA00200_PARAM3");
		frmf_clearParameter("SPAHA00200_PARAM4");
		frmf_clearParameter("SPAHA00200_PARAM5");
		frmf_clearParameter("SPAHA00200_PARAM6");
		frmf_clearParameter("SPAHA00200_PARAM7");
		frmf_clearParameter("SPAHA00200_PARAM8");
		frmf_clearParameter("SPAHA00200_PARAM9");
		frmf_clearParameter("SPAHA00200_PARAM10");
		frmf_clearParameter("SPAHA00200_PARAM11");
		frmf_clearParameter("SPAHA00200_PARAM12");
		frmf_clearParameter("SPAHA00200_PARAM13");
		frmf_clearParameter("SPAHA00200_PARAM14");
		frmf_clearParameter("SPAHA00200_PARAM15");

		frmf_setParameter ("SPAHA00200_PARAM1"		, vPkgFg);
		frmf_setParameter ("SPAHA00200_PARAM2"		, vCond);
		frmf_setParameter ("SPAHA00200_PARAM3"		, vCdnm);
		frmf_setParameter ("SPAHA00200_PARAM4"		, sysf_getUserInfo("dutplceinstcd"));
		if(vHealExamDetlFlag!="G01"){
			frmf_setParameter ("SPAHA00200_PARAM5"		, fGetHealExamFlag() );
		} else {
			frmf_setParameter ("SPAHA00200_PARAM5"		, "G" );
		}
		frmf_setParameter ("SPAHA00200_PARAM6"		, vHealExamDetlFlag);
		frmf_setParameter ("SPAHA00200_PARAM7"		, vOpenerID);
		frmf_setParameter ("SPAHA00200_PARAM8"		, vSex);
		frmf_setParameter ("SPAHA00200_PARAM9"		, bMultiyn);
		frmf_setParameter ("SPAHA00200_PARAM10"	, vDestXPath);
		frmf_setParameter ("SPAHA00200_PARAM11"	, vSrchDisableYN);
		frmf_setParameter ("SPAHA00200_PARAM12"	, vFrom);
		frmf_setParameter ("SPAHA00200_PARAM13"	, vage);
		frmf_setParameter ("SPAHA00200_PARAM14"	, vbrthareacnts);
		frmf_setParameter ("SPAHA00200_PARAM15"	, vforgneryn);
		frmf_modal("SPAHA04012", "SPAHA04012", "", "", "", "", "", "", "", "", "", "", "M");
	}

/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-07-05
@desc 		: 검사코드 다중 선택 후 opener 화면에서 추가검사 setting.
@param 	:
				* vGrdObj(대상grid ID)
				* vTestCdCol( TestCode Column 순번)
				* vSrcXPath(검사코드선택 창으로 입력한 대상노드와 동일.)
*====================================================================================================================*/
function fSetAddList(vGrdObj, vTestCdCol, vSrcXPath, vDupCheck, vPkgYN , vPkgCd) 
{
	if( ds_temp.getColumn(0, "okflag")  != "ok" ) return ;

	if( utlf_isNull(vGrdObj)) return ;
	if( objects[vSrcXPath].rowcount == 0) return ;

	var cnt = objects[vSrcXPath].rowcount;
	var vTestcd = "";
	var vTestnm = "";
	
	if( vPkgYN == "Y" )
	{
		for( var i = 0 ; i < cnt ; i++ )
		{
			vTestcd = objects[vSrcXPath].getColumn(i, "pkgcd" );
			vTestnm = objects[vSrcXPath].getColumn(i, "pkgnm" );
			if( vDupCheck == "Y" ) 
			{
				if( fCheckDup(vGrdObj , vTestCdCol, vTestcd ) == false )
				{
					if( sysf_messageBox("중복되는 Pkg코드[" + vTestcd + " - " + vTestnm  +"] 를 추가 ", "S001") != 6 ){
						continue ;
					}
				}
			}
			var danga = objects[vSrcXPath].getColumn(i, "scoreamt" );
			var grdcnt = this.objects[vGrdObj.binddataset].addRow();
			this.objects[vGrdObj.binddataset].enableevent = false;
			dsf_makeNode(this.objects[vGrdObj.binddataset], "sel", "string", "Y", grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "pkgcd", "string", vTestcd, grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "pkgnm", "string", vTestnm, grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "uncocd", "string", "V03", grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "scoreamt", "string", danga, grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "addtotamt", "string", danga, grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "calcscorcd", "string", objects[vSrcXPath].getColumn(i, "calcscorcd"), grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "testdiscyn", "string", objects[vSrcXPath].getColumn(i, "testdiscyn"), grdcnt);
			dsf_makeNode(this.objects[vGrdObj.binddataset], "gndrflag", "string", objects[vSrcXPath].getColumn(i, "gndrflag"), grdcnt);
			this.objects[vGrdObj.binddataset].enableevent = true;
		}
	}
	else 
	{
		for( var i = 0; i < cnt ; i++ )
		{
			vTestcd = objects[vSrcXPath].getColumn(i, "testcd" );
			vTestnm = objects[vSrcXPath].getColumn(i, "testnm" );
			
			if( vDupCheck == "Y" ) 
			{
				if( fCheckDup(vGrdObj , vTestCdCol, vTestcd ) == false )
				{
					if( sysf_messageBox("중복되는 검사코드[" + vTestcd + " - " + vTestnm  +"] 를 추가 ", "S001") != 6 ){
						continue ;
					}
				}
			}

			var danga = objects[vSrcXPath].getColumn(i, "scoreamt" );
			
			var grdcnt = this.objects[vGrdObj.binddataset].addRow();
			
			this.objects[vGrdObj.binddataset].enableevent = false;
			dsf_makeValue(this.objects[vGrdObj.binddataset], "sel", "string", "Y", grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "testflag", "string", "A", grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "testcd", "string", vTestcd, grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "testnm", "string", vTestnm, grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "uncocd", "string", "V01", grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "scoreamt", "string", danga, grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "addtotamt", "string", danga, grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "calcscorcd", "string", objects[vSrcXPath].getColumn(i, "calcscorcd"), grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "prcptims", "string", "1", grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "prcpdayno", "string", "1", grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "testdiscyn", "string", objects[vSrcXPath].getColumn(i, "testdiscyn"), grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "gndrflag", "string", objects[vSrcXPath].getColumn(i, "gndrflag"), grdcnt);
			dsf_makeValue(this.objects[vGrdObj.binddataset], "grupflag", "string", objects[vSrcXPath].getColumn(i, "grupflag"), grdcnt);
			this.objects[vGrdObj.binddataset].enableevent = true;
		}
	}

	if(this.objects[vGrdObj.binddataset].rowcount > 0)
	{
		dsf_createDs("ds_send_test");
		
		for(  i = 0; i < this.objects[vGrdObj.binddataset].rows; i++)
		{
			dsf_makeValue(ds_send_test, "pkgcd"	, "string", this.objects[vGrdObj.binddataset].getColumn(i, "testcd"), i);
			dsf_makeValue(ds_send_test, "grupflag"	, "string", this.objects[vGrdObj.binddataset].getColumn(i, "grupflag"), i);
		}

		if(!utlf_isNull(vPkgCd)) 
		{
			dsf_makeValue(ds_send_test, "srchpkgcd"	, "string", vPkgCd);
		}
		
		if(!utlf_isNull(vPkgCd)) 
		{
			dsf_makeValue(ds_send_test, "healexamflag"	, "string", fGetHealExamFlag());
		}
		
// 		dsf_makeValue(ds_send_test, "cmpycd"	, "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd"));
// 		dsf_makeValue(ds_send_test, "conseq"	, "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "conseq"));
// 		dsf_makeValue(ds_send_test, "conhistseq"	, "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "conhistseq"));
		
		dsf_createDs("ds_tmp_testcount_testcount");
		
		var oParam = {};
			oParam.id          = "TRAHA00013";
			oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
			oParam.method      = "reqTestDuplex";
			oParam.inds        = "req=ds_send_test";
			oParam.outds       = "ds_tmp_testcount_testcount=testcount";
			oParam.async       = false;
			//oParam.callback    = "cf_TRAHA00013";

		tranf_submit(oParam);
	}
	
	var testnm ="";
	var testnmcount ="";
	var cnt = ds_tmp_testcount_testcount.rowcount;
	if (cnt != 0)
	{
		for (var i = 0; i < cnt ; i++)
		{
			testnm = ds_tmp_testcount_testcount.getColumn(i, "testnm");
			if (!utlf_isNull(testnm))
			{
				testnmcount = testnmcount + testnm + "/";
			}

		}

		sysf_messageBox(testnmcount + " 검사가 중복되었습니다","E999");
		ds_tmp_testcount_testcount.clearData();
	}
}


/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-07-05
@desc 		: grid dup value check.
@param 	:
				* vGrdObj : grid control
				* vCheckCol : check대상 column ( 0,1,2,...)
				* vCheckVal : dup check 대상 값
*====================================================================================================================*/
function fCheckDup( vGrdObj, vCheckCol , vCheckVal ){
	var cnt = objects[vGrdObj.binddataset].rowcount;
	for( var i = 0; i < cnt ; i++) {
		if( objects[vGrdObj.binddataset].getColumn(i, vCheckCol) == vCheckVal ){
			return false;
		}
	}
}

/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-07-05
@desc 		: 임시 건진금액 합계
@param 	:
				* vGrdObj 	: grid control
				* vCalcCol 	: 금액  column ( 0,1,2,...)
				* vPkgAmt		: 패키지금액
*====================================================================================================================*/
	function fTempCalc(	vPkgAmt , vGrdObj , vCalcCol , vPrcpTimsCol, vTotAmtCtrlID, vPkgAmtCtrlID, vAddAmtCtrlID){
/*		var iTotAmt = 0;
		var iAddAmt = 0;
		var iTotAdd = 0;
		var iTotAddExm  = 0;

		var vTotAddExm =0;
		var vTotAdd		 =0;
		var iPkgAmt 		= parseInt(vPkgAmt);
		var vAddAmt 		= "";
		var vPrcpTims 	= "";
		var iDiscAmt		=0;*///fDcAmtCalc()에서 처리

/*		iTotAddExm	 	= 	model.getValue("/root/main/info/rcptinfo/subtotamt");	//소계
		iTotAdd 		 	= 	model.getValue("/root/main/info/rcptinfo/addamt");//추가검사금액

		if(vPkgAmt 		== "")		vPkgAmt 		= "0";

		if(iTotAddExm	==	"")
		{
			vTotAddExm	= 0;
		} else {
			vTotAddExm	= parseInt(iTotAddExm);
		}

		if(iTotAdd		 	==	"")
		{
			vTotAdd		=0;
		} else {
			vTotAdd		=parseInt(iTotAdd);
		}
*/
/*		if(model.getValue("/root/main/info/rsrvacptinfo/item/discamt")!=""){
			iDiscAmt = parseInt(model.getValue("/root/main/info/rsrvacptinfo/item/discamt"));
		}

		model.setValue("/root/main/info/rcptinfo/discamt",iDiscAmt);

		for( var i = 1 ; i < vGrdObj.rows ; i++){
			vAddAmt 		= vGrdObj.valueMatrix(i, vCalcCol);
			vPrcpTims 	= vGrdObj.valueMatrix(i, vPrcpTimsCol);
			if( vAddAmt == "" ) vAddAmt 		= "0";
			if( vPrcpTims == "" ) vPrcpTims = "1";
			iAddAmt += parseInt(vAddAmt) * parseInt(vPrcpTims) ;
		}


		if( vPkgAmtCtrlID != null ) vPkgAmtCtrlID.value 	= iPkgAmt ;
		if( vAddAmtCtrlID != null ) vAddAmtCtrlID.value	= iAddAmt;// + vTotAdd;
		if( vTotAmtCtrlID  != null ) vTotAmtCtrlID.value 		= (iPkgAmt + iAddAmt) - iDiscAmt;// + vTotAddExm;


		model.refresh();*///fDcAmtCalc()에서 처리
		 fDcAmtCalc();
	}


/**==================================================================================================================
@author 	: 손주연
@version 	:2007-06-30
@desc 		: 수가내역 가져오기
@param 	:
				*  SPAHB00300_PARAM1 : 검색구분(cd/nm)
				*  SPAHB00300_PARAM2 : 검색조건(코드/명칭)
				*  SPAHB00300_PARAM3 : multiyn
				*  SPAHB00300_PARAM4 : multi선택 시 setting할 목적 데이터셋
				*  SPAHB00300_PARAM5 : code값을 setting할 컬럼명
				*  SPAHB00300_PARAM6 : name값을 setting할 컬럼명
				*  SPAHB00300_PARAM7 : 수가를 setting할 컬럼명
				*  SPAHB00300_PARAM8 : 값을 세팅할 데이터셋 명
				*  SPAHB00300_PARAM9 : 값을 세팅할 rowindex
*====================================================================================================================*/
function fGetCalScorCd(  vCond, vCdnm, bMultiyn ,  vMultiDestXPath, vCdDestXPath, vNmDestXPath, vAmtDestXPath, vDestXPath, vDestRow){
	frmf_clearParameter("SPAHB00300_PARAM1");
	frmf_clearParameter("SPAHB00300_PARAM2");
	frmf_clearParameter("SPAHB00300_PARAM3");
	frmf_clearParameter("SPAHB00300_PARAM4");
	frmf_clearParameter("SPAHB00300_PARAM5");
	frmf_clearParameter("SPAHB00300_PARAM6");
	frmf_clearParameter("SPAHB00300_PARAM7");
	frmf_clearParameter("SPAHB00300_PARAM8");
	frmf_clearParameter("SPAHB00300_PARAM9");

	frmf_setParameter ("SPAHB00300_PARAM1"		, vCond);
	frmf_setParameter ("SPAHB00300_PARAM2"		, vCdnm);
	frmf_setParameter ("SPAHB00300_PARAM3"		, bMultiyn);
	frmf_setParameter ("SPAHB00300_PARAM4"		, vMultiDestXPath);
	frmf_setParameter ("SPAHB00300_PARAM5"		, vCdDestXPath );
	frmf_setParameter ("SPAHB00300_PARAM6"		, vNmDestXPath);
	frmf_setParameter ("SPAHB00300_PARAM7"		, vAmtDestXPath);
	frmf_setParameter ("SPAHB00300_PARAM8"		, utlf_isNull(vDestXPath) ? "" : vDestXPath);
	frmf_setParameter ("SPAHB00300_PARAM9"		, utlf_isNull(vDestRow) ? "" : vDestRow);

	frmf_modal("SPAHB00300","SPAHB00300","","","","","","","","","","","M");
}



/**==================================================================================================================
@author 	: 손주연
@version 	:2007-06-30
@desc 		: 수가내역 대상그리드 set
@param 	:
				*  vGrdObj			: 대상그리드
				*  vSrcXPath			: 목적노드set
				*  vDupCheckCo	: dup check column no
				*  vDupCheck		: dup check yn
				*  vCodeNode		: 수가코드 목적 노드
				*  vNameNode		: 수가처방명 목적 노드
				*  vAmtNode			: 수가 목적 노드
				* vHeaderAddRows : header row default값(1) 보다 큰 row수
*====================================================================================================================*/
function fSetOcd(vGrdObj, vSrcXPath, vDupCheckCol, vDupCheck,  vCodeNode, vNameNode, vAmtNode, vHeaderAddRows) {
	if( utlf_isNull(vGrdObj) ) return ;
	if( utlf_isNull(vSrcXPath) ) return ;
	if( ds_temp.getColumn(0, "okflag")  != "ok" ) return ;
	var cnt = objects[vSrcXPath].rowcount;

//	var grdcnt = vGrdObj.rowcount;
// 	if( !utlf_isNull(vHeaderAddRows) ){
// 		grdcnt = vGrdObj.rowcount -  parseInt(vHeaderAddRows);
// 	}
	
	var vDupCheckVal = "";
	var i = 0;
	
	objects[vGrdObj.binddataset].addColumn("calcscorcd", "string");
	objects[vGrdObj.binddataset].addColumn("calcscornm", "string");
	objects[vGrdObj.binddataset].addColumn("oldordcd", "string");
	
	if( cnt == 1 ) {
		vDupCheckVal = objects[vSrcXPath].getColumn(0, "calcscorcd");
		if( vDupCheck == "Y" ) {
			if( fCheckDup(vGrdObj , vDupCheckCol, vDupCheckVal) == false ){
				if( sysf_messageBox("중복되는 수가코드[" + vDupCheckVal + "] 를 추가", "S001") != 6 ){
					return ;
				}
			}
		}
		
		var nRow = objects[vGrdObj.binddataset].addRow();

		if( !utlf_isNull(vCodeNode) ){
			objects[vGrdObj.binddataset].setColumn(nRow, vCodeNode, vDupCheckVal);
		}
		if( !utlf_isNull(vNameNode) ){
			objects[vGrdObj.binddataset].setColumn(nRow, vNameNode, objects[vSrcXPath].getColumn(0, "hngnm"));
		}
		if( !utlf_isNull(vAmtNode) ){
			objects[vGrdObj.binddataset].setColumn(nRow, vAmtNode, objects[vSrcXPath].getColumn(0, "scoreamt"));
		}
		
		objects[vGrdObj.binddataset].setColumn(nRow, "calcscorcd", vDupCheckVal);
		objects[vGrdObj.binddataset].setColumn(nRow, "calcscornm", objects[vSrcXPath].getColumn(0, "ordnm"));
		objects[vGrdObj.binddataset].setColumn(nRow, "oldordcd"  , objects[vSrcXPath].getColumn(0, "oldordcd"));
		
	}
	else {
		for( var i = 0 ; i < cnt ; i++ ){
			vDupCheckVal = objects[vSrcXPath].getColumn(i, "calcscorcd");
			if( vDupCheck == "Y" ) {
				if( fCheckDup(vGrdObj , vDupCheckCol, vDupCheckVal ) == false ){
					if( sysf_messageBox("중복되는 수가코드[" + vDupCheckVal + "] 를 추가", "S001") != 6 ){
						continue ;
					}
				}
			}
			
			var nRow = objects[vGrdObj.binddataset].addRow();

			if( !utlf_isNull(vCodeNode) ){
				objects[vGrdObj.binddataset].setColumn(nRow, vCodeNode, vDupCheckVal);
			}
			if( !utlf_isNull(vNameNode) ){
				objects[vGrdObj.binddataset].setColumn(nRow, vNameNode, objects[vSrcXPath].getColumn(i, "hngnm"));
			}
			if( !utlf_isNull(vAmtNode) ){
				objects[vGrdObj.binddataset].setColumn(nRow, vAmtNode, objects[vSrcXPath].getColumn(i, "scoreamt"));
			}
			
			objects[vGrdObj.binddataset].setColumn(nRow, "calcscorcd", vDupCheckVal);
			objects[vGrdObj.binddataset].setColumn(nRow, "calcscornm", objects[vSrcXPath].getColumn(i, "ordnm"));
			objects[vGrdObj.binddataset].setColumn(nRow, "oldordcd"  , objects[vSrcXPath].getColumn(i, "oldordcd"));
			
		}
	}
}

/**********************************************************************************
 * 함수명		: ahafRcptAmt
 * 설  명		: 수납처리
 * argument		: *  vJobFlag			: WORK/CANCEL 작업 구분.(접수/취소 구분)
				  *  vRsrvdd			:
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function ahafRcptAmt(vJobFlag, vRsrvdd, vRsrvno, vPid, vOrddd,  vRcptStat , vOpmiRoot,vHealexamFlag)
{
	var payownamt = this.objects[vOpmiRoot+"_opmi_out"].getColumn(0, "opmi_rcptamt");
	if(utlf_isNull(payownamt))
	{
		payownamt = "0";
	}
	payownamt = parseInt(payownamt);

	if(vHealexamFlag != "G")
	{
		ahafOpenRcpt(fGetHealExamFlag(), vRsrvdd, vRsrvno, vPid, vRcptStat, vOrddd);
		return;
	}

	var vTmp  = vHealexamFlag;
	if( utlf_isNull(vTmp))
	{
		sysf_messageBox("건진분류 ERROR .", "E999");
		return ;
	}
	dsf_makeValue(ds_send_savercpt, "healexamflag", "string", vTmp);

	if( utlf_isNull(vPid))
	{
		sysf_messageBox("환자ID ERROR .", "E999");
		return ;
	}
	dsf_makeValue(ds_send_savercpt, "pid", "string", vPid);

	if( utlf_isNull(vRsrvdd))
	{
		sysf_messageBox("등록일자 ERROR .", "E999");
		return ;
	}
	
	dsf_makeValue(ds_send_savercpt, "rsrvdd", "string", vRsrvdd);
	
	if( utlf_isNull(vRsrvno))
	{
		sysf_messageBox("등록번호 ERROR .", "E999");
		return ;
	}
	
	dsf_makeValue(ds_send_savercpt, "rsrvno", "string", vRsrvno);
	dsf_makeValue(ds_send_savercpt, "instcd", "string", sysf_getUserInfo("dutplceinstcd"));
	
	dsf_makeValue(ds_send_savercpt, "jobflag", "string", vJobFlag);
	dsf_makeValue(ds_send_savercpt, "rcptdd", "string", this.objects[vOpmiRoot+"_opmi_out"].getColumn(0, "org_rcptdd"));
	dsf_makeValue(ds_send_savercpt, "rcptno", "string", this.objects[vOpmiRoot+"_opmi_out"].getColumn(0, "org_rcptno"));
	dsf_makeValue(ds_send_savercpt, "rcptseqno", "string", this.objects[vOpmiRoot+"_opmi_out"].getColumn(0, "org_rcptseqno"));
	
	dsf_createDs("ds_send_savercpt_opmi_out");
	ds_send_savercpt_opmi_out.copyData(this.objects[vOpmiRoot+"_opmi_out"]);
	
	dsf_createDs("ds_send_savercpt_dcgm_out");
	ds_send_savercpt_opmi_out.copyData(this.objects[vOpmiRoot+"_dcgm_out"]);

	dsf_createDs("ds_send_savercpt_unco_out");
	ds_send_savercpt_opmi_out.copyData(this.objects[vOpmiRoot+"_unco_out"]);
		
	dsf_makeValue(ds_send, "rcptdd", "string", "");
	dsf_makeValue(ds_send, "genrkind", "string", "");
	dsf_makeValue(ds_send, "rcptdd", "string", utlf_getCurrentDate());
	dsf_makeValue(ds_send, "genrkind", "string", "R");
	
	dsf_createDs("ds_temp_rcptno_out_rcptno");
	
	var oParam = {};
		oParam.id          = "TRAHA02105";
		oParam.service     = "healexamrcptapp.HealExamRcpt";
		oParam.method      = "reqGetRcptNo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_temp_rcptno_out_rcptno=rcptno";
		oParam.async       = false;
		oParam.callback    = "cf_TRAHA02105";

	tranf_submit(oParam);

	if(arErrorCode.pop("TRAHA02105") > -1)
	{
		var rcptno = ds_temp_rcptno_out_rcptno.getColumn(0, "opmi_rcptno");
		dsf_makeNode(ds_send_savercpt, "opmi_rcptno", "string", rcptno);
	}
	
	var oParam = {};
		oParam.id          = "TXAHA02102";
		oParam.service     = "healexamrcptapp.HealExamRcpt";
		oParam.method      = "reqExeHealExamAmtRcpt";
		oParam.inds        = "req=ds_send_savercpt opmi=ds_send_savercpt_opmi_out "
							+"dcgm=ds_send_savercpt_dcgm_out dcgm_out=ds_send_savercpt_dcgm_out "
							+"unco=ds_send_savercpt_unco_out unco_out=ds_send_savercpt_unco_out "
							//+"card=ds_ cash=ds_ bank=ds_  "
							+"rcpt=ds_temp_rcptno_out_rcptno";
		oParam.outds       = "ds_=opmi_out";
		oParam.async       = false;
		oParam.callback    = "cf_TXAHA02102";

	tranf_submit(oParam);

	if(arErrorCode.pop("TXAHA02102") > -1)
	{
		sysf_messageBox("수납 ","I001");
	}
}

function cf_TRAHA02105(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}

function cf_TXAHA02102(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}
/**==================================================================================================================
@author 	: 손주연
@version 	:2007-08-30
@desc 		: 수납화면 open
@param 	:
				*   건진 구분, 예약등록일자, 예약등록번호, 등록번호
*====================================================================================================================*/
	function ahafOpenRcpt(vHealExamFlag, vRsrvDD, vRsrvNo, vPid, vRcptStat, vOrdDD){
			frmf_clearParameter("SMAHA02100_PARAM_HEALEXAMFLAG");
			frmf_clearParameter("SMAHA02100_PARAM_PID");
			frmf_clearParameter("SMAHA02100_PARAM_RSRVDD");
			frmf_clearParameter("SMAHA02100_PARAM_RSRVNO");

			frmf_setParameter("SMAHA02100_PARAM_HEALEXAMFLAG"	, vHealExamFlag);
			frmf_setParameter("SMAHA02100_PARAM_PID"					  , vPid);
			frmf_setParameter("SMAHA02100_PARAM_RSRVDD"			  , vRsrvDD);
			frmf_setParameter("SMAHA02100_PARAM_RSRVNO"			  , vRsrvNo);
			frmf_setParameter("SMAHA02100_PARAM_ORDDD"				  , vOrdDD);

			var sRcptStat = "";     //수납상태
			if(vRcptStat == "N"){
				sRcptStat = "Y";
			}else{
				sRcptStat = "N";
			}
			frmf_setParameter("SMAHA02100_RTN"                 , sRcptStat);
			
			frmf_modal("SMAHA02100", "SMAHA02100", "", "", "", "", "", "", "", "", "", "", "M");
	}

/**==================================================================================================================
@author 	: 손주연
@version 	:2007-08-30
@desc 		: 수납처리	: 개인부담금 존재 시 수납창 load.
@param 	:
				*   수납창 open yn,  job flag, 건진 구분, 예약등록일자, 예약등록번호, 등록번호 , 진료일자, 기관코드
*====================================================================================================================*/
	/*function ahafRcptAmt(vRcptDlgOpenYN, vJobFlag, vHealExamFlag, vRsrvDD, vRsrvNo, vPid, vRcptStat , vOrdDD, vInstCd){

		var payownamt = model.getValue("/root/temp/rcptinfo/hidden/opmi_out/opmi_rcptamt") ;
		var payrcptamt = 0;
		if( payownamt != ""  ) {
			payrcptamt = parseInt(payownamt);
		}
		if( payrcptamt > 0  ) {
			ahafOpenRcpt(vHealExamFlag
								, vRsrvDD
								, vRsrvNo
								, vPid
								, vRcptStat
								, vOrdDD  );
			return ;
		}
		model.setValue("/root/send/srchhealexamflag"	, vHealExamFlag );
		model.setValue("/root/send/srchpid"					, vPid );
		model.setValue("/root/send/srchrsrvdd"				, vRsrvDD );
		model.setValue("/root/send/srchrsrvno"				, vRsrvNo );
		model.setValue("/root/send/srchinstcd"				, sysf_getUserInfo("dutplceinstcd"));

		//2007-08-17 추가
		model.setValue("/root/send/srchjobflag"			,vJobFlag);
		model.setValue("/root/send/srchrcptdd"			,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptdd") );
		model.setValue("/root/send/srchrcptno"			,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptno") );
		model.setValue("/root/send/srchrcptseqno"	,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptseqno") );


		model.copyNode("/root/send/savercpt/opmi_out", "/root/temp/rcptinfo/hidden/opmi_out");


	    // 영수증채번을 먼저한다.

	   	// INPUT(1.수납일시)
	   	model.setValue("/root/send/rcptdd"				,  getCurrentDate() );
		model.setValue( "/root/send/genrkind"		, "R");

	    if ( submit("TRAHA02105")){
	        //영수증번호를 채번하여 셋팅한다.
	    	var rcptno = model.getValue("/root/temp/rcptno_out/rcptno/opmi_rcptno")
			model.setValue( "/root/send/opmi_rcptno", rcptno);
	    }

		//openLoadingBar("수납 처리중입니다..") ;//처리중 화면을 오픈한다.
		if( submit("TXAHA02102") == true ){
			messageBox("수납 ","I001");
		}
		//closeLoadingBar() ;//처리중 화면을 close한다.
	}
*/
/**==================================================================================================================
@author 	: 손주연
@version 	:2007-08-01
@desc 		: 예약/접수 현황조회
@param 	:
				* SMAHA00400_PARAM1	:	건진구분
				* SMAHA00400_PARAM2	:	건진상세구분
				* SMAHA00400_PARAM3	:	일자체크여부(Y/N)
				* SMAHA00400_PARAM4	:	일자기준 및 상태기준 (예약:C, 예약등록: C1, 접수:E )
				* SMAHA00400_PARAM5	:	사업체코드
				* SMAHA00400_PARAM6	:	검사실코드
				* SMAHA00400_PARAM7	:	성명
				* SMAHA00400_PARAM8	:	등록번호
				* SMAHA00400_PARAM9	:	주민번호1
				* SMAHA00400_PARAM10	:	주민번호2
				* SMAHA00400_PARAM11	:	패키지코드
				* SMAHA00400_PARAM12	:	조회구분2(성명: pnm/등록번호:pid/주민번호:rgstno)
				* SMAHA00400_PARAM13	:	key값 setting 목적노드
*====================================================================================================================*/
	function ahafOpenRsrvAcptList(vOpenerID, vHealExamFg , vHealExamDetlFg, vDateChkYN , vStatFg , vCmpyCd , vRoomCd , vPnm, vPid, vRgstno1, vRgstno2, vPkgCd, vSrchCond2, vDestNode){
		frmf_clearParameter("SMAHA00400_PARAM1");
		frmf_clearParameter("SMAHA00400_PARAM2");
		frmf_clearParameter("SMAHA00400_PARAM3");
		frmf_clearParameter("SMAHA00400_PARAM4");
		frmf_clearParameter("SMAHA00400_PARAM5");
		frmf_clearParameter("SMAHA00400_PARAM6");
		frmf_clearParameter("SMAHA00400_PARAM7");
		frmf_clearParameter("SMAHA00400_PARAM8");
		frmf_clearParameter("SMAHA00400_PARAM9");
		frmf_clearParameter("SMAHA00400_PARAM10");
		frmf_clearParameter("SMAHA00400_PARAM11");
		frmf_clearParameter("SMAHA00400_PARAM12");
		frmf_clearParameter("SMAHA00400_PARAM13");

		frmf_setParameter("SMAHA00400_PARAM1", vHealExamFg);
		frmf_setParameter("SMAHA00400_PARAM2", vHealExamDetlFg);
		frmf_setParameter("SMAHA00400_PARAM3", vDateChkYN);
		frmf_setParameter("SMAHA00400_PARAM4", vStatFg);
		frmf_setParameter("SMAHA00400_PARAM5", vCmpyCd);
		frmf_setParameter("SMAHA00400_PARAM6", vRoomCd);
		frmf_setParameter("SMAHA00400_PARAM7", vPnm);
		frmf_setParameter("SMAHA00400_PARAM8", vPid );
		frmf_setParameter("SMAHA00400_PARAM9", vRgstno1);
		frmf_setParameter("SMAHA00400_PARAM10", vRgstno2);
		frmf_setParameter("SMAHA00400_PARAM11", vPkgCd);
		frmf_setParameter("SMAHA00400_PARAM12", vSrchCond2);
		frmf_setParameter("SMAHA00400_PARAM13", vDestNode);

		frmf_open("SMAHA00400", "SMAHA00400", "", "", "", "", "", "", "", "", "", "", "M");
	}

/**==================================================================================================================
@author 	: 손주연
@version 	:2007-08-01
@desc 		: 기본코드관리 관련 코드 선택 팝업
@param 	:
				*  vLargFg			: SPAHB00500_PARAM1 : 대분류코드
				*  vMidlFg				: SPAHB00500_PARAM2 : 중분류코드
				*  vMultiYN			: SPAHB00500_PARAM3 : multiyn => Y이면 소분류코드 다중선택입력모드
				*  vDestNode		: SPAHB00500_PARAM4 : 목적노드셋
				*  vMidlSetYN		: SPAHB00500_PARAM5 : 중분류코드 setting여부(Y/N)=>선택형결과의 경우 중분류 선택시 중분류 코드 해당 중분류에 속한 소분류 전코드를 부모창에 copy

*====================================================================================================================*/
function ahzfOpenEtcCdSel(vOpenerID
						, vLargFg		/*대분류코드*/
						, vMidlFg		/*중분류코드*/
						, vMultiYN		/*multiyn*/
						, vDestNode		/*multiyn == 'Y'일때 목적노드셋*/
						, vMidlSetYN	/*중분류코드 setting여부(Y/N)*/ ){
	frmf_clearParameter("SPAHB00500_PARAM1");
	frmf_clearParameter("SPAHB00500_PARAM2");
	frmf_clearParameter("SPAHB00500_PARAM3");
	frmf_clearParameter("SPAHB00500_PARAM4");
	frmf_clearParameter("SPAHB00500_PARAM5");
	frmf_clearParameter("SPAHB00500_PARAM6");

	dsf_createDs(vDestNode);

	frmf_setParameter("SPAHB00500_PARAM1", vLargFg);
	frmf_setParameter("SPAHB00500_PARAM2", vMidlFg);
	frmf_setParameter("SPAHB00500_PARAM3", vMultiYN);
	frmf_setParameter("SPAHB00500_PARAM4", vDestNode);
	frmf_setParameter("SPAHB00500_PARAM5", vMidlSetYN);
	frmf_setParameter("SPAHB00500_PARAM6", vOpenerID);

	frmf_modal("SPAHB00500","SPAHB00500","","",100,100,"","","","","","","M");

	if( ds_temp.getColumn(0, "okflag") == "ok" ){
		return true;
	}

	return false;
}

/**==================================================================================================================
@author 	: 손주연
@version 	:2007-05-01
@desc 		: 코드입력 시  공통코드 및 사업체 코드 가져오기, map : TRAHA00105 , ref=  root/temp/cdlst  로 setting
@param 	:
				* vSrchFlag		: 검색구분
					** 01	판정의
					** 02	건강보험공단
					** 03	관할군병원
					** 04	산업안전공단
					** 05	보건소
					** 06	노동청
					** 07	지도원
					** 08 	사업체
				* vCode			: 검색코드
				* vAllYN			: 전체정보 여부 ( Y일 경우  vDestNodeSet으로 copy)
				* vCodeNode	: 코드값이 setting될 목적노드
				* vNameNode	: 코드명이 setting될 목적노드
				* vDestNodeSet: vAllYN == 'Y' 인 경우 목적노드셋
====================================================================================================================*/
function ahafGetCmpyInfo( vSrchFlag,  vCode , vAllYN,  vCodeNode, vNameNode , vDestNodeSet){
	dsf_makeValue( ds_send, "srchflag", "string", vSrchFlag );
	dsf_makeValue( ds_send, "srchcond", "string", "cd" );
	dsf_makeValue( ds_send, "srchcdnm", "string", vCode );
	dsf_makeValue( ds_send, "srchinstcd", "string", sysf_getUserInfo("dutplceinstcd") );

	dsf_createDs("ds_temp_cdlst_item");
	
	var oParam = {};
		oParam.id          = "TRAHA00105";
		oParam.service     = "healexambaseapp.ComCode";
		oParam.method      = "reqGetComnCdList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_temp_cdlst_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00105";

	tranf_submit(oParam);

//	var SrcNode = model.instance1.selectSingleNode("ds_temp_cdlst_item");
	if( ds_temp_cdlst_item.rowcount > 0 ) {
		if( vAllYN == "Y" ) {
			eval(vDestNodeSet).copyData(ds_temp_cdlst_item);
		}
		else {
			vCodeNode.value = ds_temp_cdlst_item.getColumn(0, "cmpycd");
			vNameNode.value = ds_temp_cdlst_item.getColumn(0, "cmpynm");
		}
		return true;
	}
	return false;
}

/**==================================================================================================================
@author 	: 손주연
@version 	:2007-09-01
@desc 		: 통합검사결과조회 창 띄우기
@param 	:
				vPidNode  : 환자ID값이 있는 경로
====================================================================================================================*/
	function ahafOpenRsltView(vPidNode ){
		frmf_modal( "SMAER00800",100,10,"SMAER00800","/root/send/data/singdata/srchpid",vPidNode);
	}

/**==================================================================================================================
@author 	: 손주연
@version 	:2007-10-01
@desc 		: 종합판정 창 띄우기
@param 	:
				sPid : 환자ID
====================================================================================================================*/
	function ahafOpenColgJudg(sPid ){
		frmf_setParameter("SMAHR00500_PARAM1", sPid);

		open( "SMAHR00500",100,10,"SMAHR00500" );
	}



/**==================================================================================================================
@author 	: 손주연
@version 	:2007-10-11
@desc 		:보험증번호 조회(보험자격조회)
@param 	:
				* sRgstNo1/sRgstNo2		: 주민번호
				* sHngNm						: 이름
				* sOrdDD 						: 진료일자
				값을 받을 노드 경로
				* vInsuKind						: 보험유형
				* vInsuNo							: 증번호
				* vInsuCd							: 보험자기호
				* vFromDD						: 취득일자
				* vInsuNm						: 보험자성명
				* vInsuBranchCd				: 관할지사 코드
				* vInsuBranchNm				: 관할지사 명칭
====================================================================================================================*/
	function ahafGetInsuCnts(sRgstNo1, sRgstNo2, sHngNm, sOrdDD
											,vInsuKind, vInsuNo, vInsuCd, vFromDD, vInsuNm, vInsuBranchCd, vInsuBranchNm ){

		if( 	(sRgstNo1 == "" ) ||
			(sRgstNo2 == "" ) ||
			(sHngNm == "" ) ||
			(sOrdDD  == "" )  ) {
			messageBox("자격조회 필수조건(주민번호/성명/진료일자) 입력이 누락되었습니다. ", "E999");
			return ;
		}
		//보험증번호 조회(보험자격조회)
		var parm	= 	sRgstNo1 + sRgstNo2 + "▦" + //주민번호
							sHngNm 	+ "▦" + //이름
							sOrdDD 	+ "▦" ;	//진료일자



//		frmf_modal("SMAHA00210");

		frmf_modal("SMAHA00210","1", "400",  "400", "SMAHA00210","","","");


/*		frmf_setParameter("SPPMC03700_PARM",parm);
		frmf_setParameter("SPPMC03700_RTN","");

		frmf_modal("SPPMC03700", "1","400", "400", "SPPMC03700", "", "");

		if (getParameter("SPPMC03700_RTN") == "N" || getParameter("SPPMC03700_RTN") == "") {
			return;
		}

		if (getParameter("SPPMC03700_RTN") == "Y") {

			//return 값이 있으면,
			if( vInsuKind != "" ) {
				model.makeNode(vInsuKind);
				model.setValue(vInsuKind 			, getParameter("SPPMC03700_insukind")); //건강보험 :11, 의료급여1/2종 : 21/22
			}

			if( vInsuCd != "" ) {
				model.makeNode(vInsuCd);
				model.setValue(vInsuCd 			, getParameter("SPPMC03700_insucd")); //보험자 기호
			}

			if( vInsuNo != "" ) {
				model.makeNode(vInsuNo);
				model.setValue(vInsuNo 			, getParameter("SPPMC03700_insuno")); //증번호
			}

			if( vInsuNm != "" ) {
				model.makeNode(vInsuNm);
				model.setValue(vInsuNm 			, getParameter("SPPMC03700_insdnm")); //피보험자성명
			}

			if( vFromDD != "" ) {
				model.makeNode(vFromDD);
				model.setValue(vFromDD 			, getParameter("SPPMC03700_insufromdd")); //취득일자
			}
			//관할지사코드
			if( vInsuBranchCd ){
				model.makeNode(vInsuBranchCd);
				model.setValue(vInsuBranchCd 			, getParameter("SPPMC03700_choicorpmark1")); //관할지사
			}

			//관할지사명
			if( vInsuBranchNm ){
				model.makeNode(vInsuBranchNm);
				model.setValue(vInsuBranchNm 			, getParameter("SPPMC03700_choicorpnm1")); //관할지사
			}
			model.refresh();
		}*/
	}
	
/**********************************************************************************
 * 함 수 명	: ahafSetScreenTopPatInfo
 * 설    명	: 화면 상단 환자정보 설정
 * argument		: vOrddd : 진료일자
				  vPid   : 환자id
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function ahafSetScreenTopPatInfo( vPid , vOrddd , vCretno )
{
	 var  param = "O" + "▦" + vPid + "▦" + vOrddd + "▦" + vCretno + "▦" + sysf_getUserInfo("dutplceinstcd") + "▦";
	 frmf_setParameter("condparam", param);
	 appf_initPatientInfo(param);
}

/**********************************************************************************
 * 함 수 명	: ahafSetScreenTopPatInfo
 * 설    명	: 통합예약관리 화면으로 이동
 * argument		: * displayid		: 호출화면--통합예약 화면
				  * maingridlistid	: 부서코드 Instance
				  * path				: send Instance
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function aezfPopUpRsrvSample(displayid, maingridlistid, path) 
{

	var pid = utlf_transNullToEmpty(this.objects[path].getColumn(0, "pid"));
	var suppdeptcd = sysf_getUserInfo("posdeptcd");

	var sflag = pid + "▦" + "S" + "▦" + suppdeptcd; // 플래그 S
	frmf_setParameter("opener_parameter_id", sflag);

	frmf_open(displayid, displayid, "", "", "", "", "", "", "", "", "", "", "M");
}

/**
 * 예약시 dc 금액 확인
 */
function fDcAmtCalc() {
	dsf_makeValue(ds_send_priceamt, "healexamflag", 'string', fGetHealExamFlag());

	if (utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "pkgcd")) == "") {
		dsf_makeValue(ds_send_priceamt, "healexamdetlflag", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamdetlflag"));
	} else {
		dsf_makeValue(ds_send_priceamt, "healexamdetlflag", 'string', ds_send.getColumn(0, "srchhealexamdetlflag"));
	}

    dsf_makeValue(ds_send_priceamt, "pkgcd", 'string',   ds_main_info_rsrvacptinfo_item.getColumn(0, "pkgcd"));
    dsf_makeValue(ds_send_priceamt, "cmpycd", 'string',  ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd"));
    dsf_makeValue(ds_send_priceamt, "conseq", 'int',     ds_main_info_rsrvacptinfo_item.getColumn(0, "conseq"));
    dsf_makeValue(ds_send_priceamt, "conhistseq", 'int', ds_main_info_rsrvacptinfo_item.getColumn(0, "conhistseq"));
    dsf_makeValue(ds_send_priceamt, "pid", 'string',     ds_main_info_patinfo_item.getColumn(0, "pid"));
    dsf_makeValue(ds_send_priceamt, "rsrvdd", 'string',  ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvdd"));
    dsf_makeValue(ds_send_priceamt, "rsrvno", 'string',  ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvno"));
    dsf_makeValue(ds_send_priceamt, "sex", 'string',     ds_main_info_patinfo_item.getColumn(0, "sex"));
    dsf_makeValue(ds_send_priceamt, "age", 'int', ageCalc(ds_main_info_patinfo_item.getColumn(0, "rgstno1"),ds_main_info_patinfo_item.getColumn(0, "rgstno2")));
    dsf_makeValue(ds_send_priceamt, "disccd", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "disccd"));
    dsf_makeValue(ds_send_priceamt, "pkguncocd", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "pkguncocd"));
    dsf_makeValue(ds_send_priceamt, "choiflag", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "choiflag"));
    dsf_makeValue(ds_send_priceamt, "statflag", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "statflag"));
    dsf_makeValue(ds_send_priceamt, "hopedd", 'string', ds_main_info_rsrvacptinfo_item.getColumn(0, "hopedd"));
	
	//20200506 고영민 거소증 소유 외국인의 경우 외국인 요율 미산정
	var forgner_addyn;
	if(ds_main_info_patinfo_item.getColumn(0, "forgneryn") == "Y"){
		if(ds_main_info_rsrvacptinfo_item.getColumn(0, "dietcnstyn") == "Y") forgner_addyn = "N";
		else forgner_addyn = "Y";
	}
	else forgner_addyn = "N";
	
    //2015/10/22 이정택 수정
    dsf_makeValue(ds_send_priceamt, "forgneryn", 'string', forgner_addyn);
    dsf_makeValue(ds_send_priceamt, "agencyrate", 'int', ds_main_info_rsrvacptinfo_item.getColumn(0, "agencyrate"));
    //2015/10/22 이정택 수정

    var oParam = {};
    oParam.id = "TRAHA00509";
    oParam.service = "healexamrsrvacptapp.RsrvAcpt";
    oParam.method = "reqAmtPrice";
    oParam.inds = "req=ds_send_priceamt";
    oParam.outds = "ds_temp_priceamt_priceamt=save ds_temp_priceamt_priceamt_add=add";
    oParam.async = false;
    oParam.callback = "cf_TRAHA00509";

    tranf_submit(oParam);

    ds_send_priceamt.clearData();

    if (arErrorCode.pop("TRAHA00509") > -1) {
		dsf_makeValue(ds_main_info_rcptinfo, "subtotamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "subtotamt"));	//소계
        dsf_makeValue(ds_main_info_rcptinfo, "pkgamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "pkgamt"));	//패키지금액
        dsf_makeValue(ds_main_info_rcptinfo, "cmpyaddamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "cmpyaddamt"));	//단체추가검사금액
        dsf_makeValue(ds_main_info_rcptinfo, "psnaddamt", 'int', ds_temp_priceamt_priceamt.getColumn(0, "psnaddamt"));	//개인추가검사금액
        dsf_makeValue(ds_main_info_rcptinfo, "preamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "preamt"));	//선수금
        dsf_makeValue(ds_main_info_rcptinfo, "uncoamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "uncoamt"));	//미수금
        dsf_makeValue(ds_main_info_rcptinfo, "discamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "discamt"));	//할인액
        dsf_makeValue(ds_main_info_rcptinfo, "realamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "realamt"));	//실수납액
        dsf_makeValue(ds_main_info_rcptinfo, "ownbamt", 'string', ds_temp_priceamt_priceamt.getColumn(0, "ownbamt"));	//부담액

        //추가검사 금액셋팅
        fSetAddAmt();
    }
}

/**
 *
 * @param {*} sSvcId
 * @param {*} nErrorCode
 * @param {*} sErrorMsg
 */
function cf_TRAHA00509(sSvcId, nErrorCode, sErrorMsg) {
		arErrorCode.push(sSvcId, nErrorCode);
}

/**==================================================================================================================
@author 	: 김호익
@version 	:2007-12-17
@desc 		:추가검사 그리드의 행삭제 버튼 클릭시 금액 계산
@param 	:
====================================================================================================================*/


	function fDcCode( ChoiceCD ,vpkguncocd){

		var dcb = false;

		if((ChoiceCD!="") &&(ChoiceCD!="-")){

				for(var i=0 ;i <100 ;i++){

					CodeCD			 =  model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/cd");

					if (ChoiceCD 	 == CodeCD) {
					  /* 추가검사 할인일경우는 추가 검사 할인액이 따로 설정되어있다 */
/*						if(vpkguncocd=="V01"){
							dcamt   = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/dcamt"));
							dcb 		= true;
							return 	parseFloat(dcamt/100);
							break;
						}else{
							dcamt   = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/adddcamt"));
							dcb 		= true;
							return 	parseFloat(dcamt/100);
							break;
						}*/
							dcamt   = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/dcamt"));
							dcb 		= true;
							return 	parseFloat(dcamt/100);
							break;

					}
				}
			} else {
				return 0.0;
			}

			if (dcb==false){
				return 0.0;
			}

	}

/**==================================================================================================================
@author 	: 김호익
@version 	:2007-12-17
@desc 		: 해당할인계정의 금액 확인
@param 	:
====================================================================================================================*/

	function fDcCodeAdd( ChoiceCD ,vpkguncocd){

		var dcb = false;

		if((ChoiceCD!="") &&(ChoiceCD!="-")){

				for(var i=0 ;i <100 ;i++){

					CodeCD			 =  model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/cd");

					if (ChoiceCD 	 == CodeCD) {
					  /* 추가검사 할인일경우는 추가 검사 할인액이 따로 설정되어있다 */
/*						if(vpkguncocd=="V01"){
							dcamt   = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/dcamt"));
							dcb 		= true;
							return 	parseFloat(dcamt/100);
							break;
						}else{
							dcamt   = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/adddcamt"));
							dcb 		= true;
							return 	parseFloat(dcamt/100);
							break;
						}*/
							dcamt   = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/adddcamt"));
							dcb 		= true;
							return 	parseFloat(dcamt/100);
							break;

					}
				}
			} else {
				return 0.0;
			}

			if (dcb==false){
				return 0.0;
			}

	}

	function fRowDeleteCalc(scoreamtco){
		var	scoreamt 	= 	0;
		var 	addamt 	=	0;
		var 	subtotamt	=	0;

/*		if (model.getValue(grd_addlst.nodeset + "[" + grd_addlst.row + "]/scoreamt")!="")	{
			scoreamt = parseInt( model.getValue(grd_addlst.nodeset + "[" + grd_addlst.row + "]/scoreamt"));

		}*/
		if(scoreamtco!=""){
			scoreamt = parseInt( scoreamtco);
		}


		if (model.getValue("/root/main/info/rcptinfo/addamt")!=""){
			addamt = parseInt(model.getValue("/root/main/info/rcptinfo/addamt")) - scoreamt;

		}

		if (model.getValue("/root/main/info/rcptinfo/subtotamt")!=""){
			subtotamt = parseInt(model.getValue("/root/main/info/rcptinfo/subtotamt"));
		}

		if (scoreamt!=0){

			model.setValue("/root/main/info/rcptinfo/addamt",addamt);
			model.setValue("/root/main/info/rcptinfo/subtotamt",subtotamt - scoreamt);
			model.refresh();
		}
		 fDcAmtCalc();
	}

/**==================================================================================================================
@author 	: 김호익
@version 	:2007-12-17
@desc 		: 소견등록시 이전검사 결과와 틀린부분 체크
@param 	:
====================================================================================================================*/

	function fOldRsltChk(){

			if (model.getValue("/root/main/judgdetl/judginfo/item/hngjudgcnts")!=""){

					var cnt = grd_rsltlst.rows;
					for (var ci=1;ci <cnt;ci++){
							var rsltVal1 = grd_rsltlst.valueMatrix(ci,grd_rsltlst.colRef("rslt1"));
							var rsltVal2 = grd_rsltlst.valueMatrix(ci,grd_rsltlst.colRef("rslt2"));
							var rsltVal3 = grd_rsltlst.valueMatrix(ci,grd_rsltlst.colRef("rslt3"));

							if (rsltVal1 =="처방없음"){
									grd_rsltlst.cellstyle("color", ci ,2, ci,2 ) = "#ff99cc";
							} else if (rsltVal1 != grd_rsltlst.valueMatrix(ci,grd_rsltlst.colRef("judgrslt"))){
									grd_rsltlst.cellstyle("background-color", ci, 2, ci, 2) = "#FFF000";
							}

					}

					cnt = grd_rslttextlst.rows;
					for (var ci=1;ci <cnt;ci++){
							var rsltText1 = grd_rslttextlst.valueMatrix(ci,grd_rslttextlst.colRef("rslt1"));
							var rsltText2 = grd_rslttextlst.valueMatrix(ci,grd_rslttextlst.colRef("rslt2"));
							var rsltText3 = grd_rslttextlst.valueMatrix(ci,grd_rslttextlst.colRef("rslt3"));

							if (rsltText1 != grd_rslttextlst.valueMatrix(ci,grd_rslttextlst.colRef("judgrslt"))){
									grd_rslttextlst.cellstyle("background-color", ci, 1, ci, 1) = "#FFF000";
							}

					}
			}
	}
	
/**********************************************************************************
 * 함수명		: fDocCmtChoice
 * 설  명		: 
 * argument		: 
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fDocCmtChoice()
{
	var cnt = ds_main_judgexmpcdlst_item.rowcount;

	var sCmtH 	=	ds_main_judgdetl_judginfo_item.getColumn(0, "hngjudgcnts");
	var sCmtE	=	ds_main_judgdetl_judginfo_item.getColumn(0, "engjudgcnts");
	var sCmtSH 	=	ds_main_judgdetl_judginfo_item.getColumn(0, "shrthngjudgcnts");
	var sCmtSE 	=	ds_main_judgdetl_judginfo_item.getColumn(0, "shrtengjudgcnts");

	for (var i = 0; i < cnt; i++)
	{
		if (ds_main_judgexmpcdlst_item.getColumn(i, "sel") == "Y" && ds_main_judgexmpcdlst_item.getColumn(i, "lvl") != "1")
		{
			sCmtH 		= sCmtH 	+ ds_main_judgexmpcdlst_item.getColumn(i, "judghangcnts") 		+ "\n";
			sCmtE 		= sCmtE 	+ ds_main_judgexmpcdlst_item.getColumn(i, "judgengcnts")		+ "\n";
			sCmtSH 		= sCmtSH	+ ds_main_judgexmpcdlst_item.getColumn(i, "judghangshrtcnts")	+ "\n";
			sCmtSE 		= sCmtSE 	+ ds_main_judgexmpcdlst_item.getColumn(i, "judgengshrtcnts")	+ "\n";
		}
	}
	
	ds_main_judgdetl_judginfo_item.setColumn(0, "hngjudgcnts", 		sCmtH);
	ds_main_judgdetl_judginfo_item.setColumn(0, "shrthngjudgcnts", 	sCmtSH);
	ds_main_judgdetl_judginfo_item.setColumn(0, "engjudgcnts", 		sCmtE);
	ds_main_judgdetl_judginfo_item.setColumn(0, "shrtengjudgcnts", 	sCmtSE);
}

	function fAddExmAmt(){


		var cnt = grd_addlst.rows;// getNodesetCount("/root/main/info/rsrvacptinfo/addlst");

		var addTotamt =0;

		for (var i=1 ;i<cnt;i++){

			if ((grd_addlst.valueMatrix(i,grd_addlst.colRef("scoreamt"))!="")){
				addTotamt = addTotamt + parseInt(grd_addlst.valueMatrix(i,6));
			}

		}

		if (cnt == 1) {
			addTotamt = 0;
		}


		return addTotamt;

	}

/**********************************************************************************
 * 함수명		: deleteTest
 * 설  명		: 
 * argument		:  * delrow 	: 선택된 행
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function deleteTest(delrow)
{
	dsf_makeValue(ds_temp, "judgexmpcd", "string", ds_main_judgexmpcdlst_item.getColumn(ds_main_judgexmpcdlst_item.rowposition, "judgexmpcd" ));
	dsf_makeValue(ds_temp, "testcd", "string", ds_main_judgexmpdetl_itemtest.getColumn(delrow, "testcd" ));
	dsf_makeValue(ds_temp, "instcd", "string", sysf_getUserInfo("dutplceinstcd"));
	var vhf = "";
	
	if (utlf_isNull(this.objects["ds_main_info_rsrvacptinfo_item"]) || utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag")))
	{
		vhf = fGetHealExamFlag();
	} 
	else 
	{
		vhf = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
	}

	dsf_makeValue(ds_temp, "healexamflag", "string"	, vhf);

	if( sysf_messageBox("검사항목을", "Q001") != 6) return -1;

	var oParam = {};
		oParam.id          = "TXAHB00803";
		oParam.service     = "healexambaseapp.CmtCode";
		oParam.method      = "setExeCmtTestCode";
		oParam.inds        = "req=ds_temp";
		oParam.outds       = "ds_=itemtest";
		oParam.async       = false;
		//oParam.callback    = "cf_TXAHB00803";

	tranf_submit(oParam);
	this.objects[grd_testlst.binddataset].deleteRow(this.objects[grd_testlst.binddataset].rowposition);
}


/**
*/
function ageCalc(rgstno1,rgstno2){

	var ssno1 = utlf_transNullToEmpty(rgstno1);
	var ssno2 = utlf_transNullToEmpty(rgstno2);
	var temp1 = utlf_transNullToEmpty(ssno1.substring(0,2));
	var temp2 = ""
	var sexTyp = utlf_transNullToEmpty(ssno2.substring(0,1));

	var temp = new Date().getYear();
	if(sexTyp == "1" || sexTyp == "2") {
		temp2 =  "19"
		var age = (parseInt(temp) - parseInt(temp2+temp1));
		return age;
	}else {
		temp2 =  "20"
		var age = (parseInt(temp) - parseInt(temp2+temp1));
		return age;
	}
}

function gridMergeRow(grd_nm){
	var cnt   = grd_nm.rows;
	var oldnm = "";
	var grdnm = "";
	var lt    = 1;
	var lb    = 1;

	for(var i=1; i<=cnt; i++){
  if(grdnm == grd_nm.valueMatrix(i, 2)){
		  //grd_nm.valueMatrix(i,1) = "";
  }else{
	grdnm = grd_nm.valueMatrix(i, 2);
			grd_nm.mergeByFree(lt, 2, i-1, 2);
			lt = i;
		}
	}
	model.refresh();
}
	
function gridCellName(codecd){
		var cnt = getNodesetCount("/root/temp/pkgtestcdlst");
		for(var i = 0 ; i<cnt;i++ ){
			if(model.getValue("/root/init/baseinfo/comcodelst/item[" +i+"]/cd")==codecd){

				return model.getValue("/root/init/baseinfo/comcodelst/item[" +i+"]/nm");
			}
		}
}

function grdImage(grd_nm){
	var cnt = grd_nm.rows;
for(var i=1; i<=cnt; i++){
  if(grd_nm.valueMatrix(i, grd_nm.colRef("rsltflag")) == "O"){
	grd_nm.cellstyle("background-image", i, 5) = "../../../ast/healexamweb/image/si.bmp"
	grd_nm.cellstyle("background-position", i, 5) = "center center"
		}
	}
	model.refresh();
}

	/**==================================================================================================================
@author 	: 김호익
@version 	:2007-12-17
@desc 		: pacs 연동
@param 	:
====================================================================================================================*/


	function fClickPACSOrdPatResultList(pacsorderid, pid) {
					/*if ( grdobj.rows >= grdobj.fixedRows ) {

						var rowidx = grdobj.row;

						if ( btn_case1.selected == true ) {

							if ( model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/execprcpuniqno") == "" ||
							     model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/execprcpuniqno") == 0 ) {
							    	messageBox("PACS Viewer와 연동할 수 없습니다.(유일번호가 0이거나 NULL입니다)","I999");
							    	return;
							}
							var pacsorderid = model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/prcpdd")+model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/execprcpuniqno");
							var pid = model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/pid");
						}

						if ( btn_case2.selected == true ) {
							if ( model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/execprcpuniqno") == "" ||
							     model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/execprcpuniqno") == 0 ) {
							    	messageBox("PACS Viewer와 연동할 수 없습니다.(유일번호가 0이거나 NULL입니다)","I999");
							    	return;
							}
							var pacsorderid = model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/prcpdd")+model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/execprcpuniqno");
							var pid = model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/pid");
						}
						// PACS Viewer 호출
						//zepfpacsOrderID("2007082725595");


					}*/
					zepfpacsAll(pacsorderid, pid);
	}
	
/**********************************************************************************
 * 함수명		: fClickCDISResultList
 * 설  명		: 
 * argument		: 
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fClickCDISResultList() 
{
	ds_send_iemr.clearData();
	
	var prcpdd               = ds_temp.getColumn(0, "prcpdd");
	var execprcpuniqno       = ds_temp.getColumn(0, "seqno");
	var instcd				 = sysf_getUserInfo("dutplceinstcd"); 

	var sprcpdd         = aezfTrim(prcpdd,         44);
	var sexecprcpuniqno = aezfTrim(execprcpuniqno, 44);
	var sinstcd         = aezfTrim(instcd,         44);

	dsf_makeValue(ds_send_iemr, "cmc_orddate", "string",		sprcpdd);
	dsf_makeValue(ds_send_iemr, "cmc_orderseqno", "string",		sexecprcpuniqno);
	dsf_makeValue(ds_send_iemr, "cmc_spcid", "string",		sinstcd);
	
	var objArg = new Object();
		objArg.arg_ds_hidden_temp = ds_send_iemr;
	frmf_open("SSMRC03130", "SSMRC03130", objArg, "", "", "", "", "", "", "", "", "", "M");
}

/**********************************************************************************
 * 함수명		: fPriceCheck
 * 설  명		: 
 * argument		: 
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fPriceCheck()
{
	dsf_makeValue(ds_send_priceamt, "healexamflag", "string", fGetHealExamFlag());

	if(utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumn(0, "pkgcd")))
	{
		dsf_makeValue(ds_send_priceamt, "healexamdetlflag", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamdetlflag"));
	}
	else 
	{
		dsf_makeValue(ds_send_priceamt, "healexamdetlflag", "string", ds_send.getColumn(0, "srchhealexamdetlflag"));
	}

	dsf_makeValue(ds_send_priceamt, "pkgcd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "pkgcd"));
	dsf_makeValue(ds_send_priceamt, "cmpycd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd"));
	dsf_makeValue(ds_send_priceamt, "conseq", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "conseq"));
	dsf_makeValue(ds_send_priceamt, "conhistseq", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "conhistseq"));
	dsf_makeValue(ds_send_priceamt, "pid", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "pid"));
	dsf_makeValue(ds_send_priceamt, "rsrvdd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvdd"));
	dsf_makeValue(ds_send_priceamt, "rsrvno", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvno"));
	dsf_makeValue(ds_send_priceamt, "sex", "string", ds_main_info_patinfo_item.getColumn(0, "sex"));
	dsf_makeValue(ds_send_priceamt, "age", "string", ageCalc(ds_main_info_patinfo_item.getColumn(0, "rgstno1"), ds_main_info_patinfo_item.getColumn(0, "rgstno2")));
	dsf_makeValue(ds_send_priceamt, "disccd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "disccd"));
	dsf_makeValue(ds_send_priceamt, "pkguncocd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "pkguncocd"));
	dsf_makeValue(ds_send_priceamt, "forgneryn", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "forgneryn"));
	dsf_makeValue(ds_send_priceamt, "choiflag", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "choiflag"));
	dsf_makeValue(ds_send_priceamt, "statflag", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "statflag"));
	
	ds_temp_priceamt_priceamt.clearData();

	var oParam = {};
		oParam.id          = "TRAHA00509";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqAmtPrice";
		oParam.inds        = "req=ds_send_priceamt";
		oParam.outds       = "ds_temp_priceamt_priceamt=save ds_=add";
		oParam.async       = false;
		oParam.callback    = "cf_TRAHA00509";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRAHA00509") > -1)
	{
		dsf_makeValue(ds_main_info_rcptinfo, "subtotamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "subtotamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "pkgamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "pkgamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "addamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "cmpyaddamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "addamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "psnaddamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "preamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "preamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "uncoamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "uncoamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "discamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "discamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "realamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "realamt"));	
		dsf_makeValue(ds_main_info_rcptinfo, "ownbamt", "string", ds_temp_priceamt_priceamt.getColumn(0, "ownbamt"));	

		fSetAddAmt();
	}
}

function cf_TRAHA00509(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}

/**********************************************************************************
 * 함수명		: fSaveRsrvAcptPro
 * 설  명		: 접수
 * argument		: *	vMode
				  *	GMode
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fSaveRsrvAcptPro(vMode, GMode)
{
	if(GMode == "1")
	{
		var vHealExamFlag = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
	}
	else
	{
		var vHealExamFlag = fGetHealExamFlag();
		if( utlf_isNull(vHealExamFlag) ) return -1;
	}

	var sMode = "";
	switch(vMode)
	{
		case  "A" : sMode = "가예약"; 
		break;
		case  "B" : sMode = "보류";
		break;
		case  "C" : sMode = "예약";
		break;
		case  "D" : sMode = "예약취소";
		break;
		case  "E" : sMode = "접수";
		break;
		case  "F" : sMode = "접수취소";
		break;
	}
	sMode = sMode + "정보를";
	if(sysf_messageBox(sMode, "Q002") != 6) return -1;

	if(fCheckPatInfo() == false) return -1 ;
	if(!fCheckAcpt(vMode)) return  -1;

	var vPidYN = "Y";
	if((vMode == "A") || (vMode == "B"))
	{
		vPidYN = "N";
	}

	dsf_makeValue(ds_main_info_patinfo_item,"pidcretfg", "string"   , vPidYN);
	dsf_createDs("ds_send_save")
	dsf_createDs("ds_send_save_item")
	
	ds_send_save.copyData(ds_main_info_patinfo_item);
	dsf_makeValue(ds_send_save, "rrgstno1", "string", ds_send_save.getColumn(0, "rgstno1"));
	dsf_makeValue(ds_send_save, "rrgstno2", "string", ds_send_save.getColumn(0, "rgstno2"));
	
	fCheckNodeExist("ds_send_save", "userid", true);
	ds_send_save.setColumn(0, "userid", sysf_getUserId());
	fCheckNodeExist("ds_send_save", "instcd", true);
	ds_send_save.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd") );

	fCheckNodeExist("ds_main_info_rsrvacptinfo_item", "mode", true );
	ds_main_info_rsrvacptinfo_item.setColumn(0, "mode", vMode);
	fCheckNodeExist("ds_main_info_rsrvacptinfo_item", "healexamflag", true );
	ds_main_info_rsrvacptinfo_item.updatecontrol = false;
	ds_main_info_rsrvacptinfo_item.setColumn(0, "healexamflag", vHealExamFlag);
	dsf_makeValue(ds_main_info_rsrvacptinfo_item, "age", "ownbamt", ds_main_info_rcptinfo.getColumn(0, "ownbamt"));
	ds_main_info_rsrvacptinfo_item.updatecontrol = true;
	
	dsf_makeValue(ds_send_save, "age", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "srchage"));
	dsf_makeValue(ds_send_save, "clntgrde", "string", ds_main_info_patinfo_item.getColumn(0, "clntgrde"));
	dsf_makeValue(ds_send_save, "pkgcd","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "pkgcd"));
	dsf_makeValue(ds_send_save, "cmpyflag","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpyflag"));
	dsf_makeValue(ds_send_save, "cmpycd","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd"));
	dsf_makeValue(ds_send_save, "conseq","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "conseq"));
	dsf_makeValue(ds_send_save, "conhistseq","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "conhistseq"));
	dsf_makeValue(ds_send_save, "choiflag","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "choiflag"));
	dsf_makeValue(ds_send_save, "zipcdseq1","string", ds_main_info_patinfo_item.getColumn(0, "zipcdseq1"));
	dsf_makeValue(ds_send_save, "zipcdseq2","string", ds_main_info_patinfo_item.getColumn(0, "zipcdseq2"));
	dsf_makeValue(ds_send_save, "clntcmpynm","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "clntcmpynm"));
	dsf_makeValue(ds_send_save, "clntdeptnm","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "clntdeptnm"));
	dsf_makeValue(ds_send_save, "clntempid","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "clntempid"));
	dsf_makeValue(ds_send_save, "clntpos","string", ds_main_info_rsrvacptinfo_item.getColumn(0, "clntpos"));
	dsf_makeValue(ds_send_save, "acpt_brthareacnts","string", ds_main_info_patinfo_item.getColumn(0, "brthareacnts"));
	dsf_makeValue(ds_send_save, "patm_brthareacnts","string", ds_main_info_patinfo_item.getColumn(0, "brthareacnts"));
	dsf_makeValue(ds_send_save, "forgeryn","string", ds_main_info_patinfo_item.getColumn(0, "forgneryn"));
	
	//20191223 고영민 외국인 체크 추가
	var rrgstno1 = ds_send_save.getColumn(0, 'rgstno1');
	var rrgstno2 = ds_send_save.getColumn(0, 'rgstno2');

	if (rrgstno2.substring(0, 1) == '5' || rrgstno2.substring(0, 1) == '6' || rrgstno2.substring(0, 1) == '7' || rrgstno2.substring(0, 1) == '8') {
		if (utlf_isNull(ds_send_save.getColumn(0, "forgneryn")) || ds_send_save.getColumn(0, "forgneryn") == 'N') {
            sysf_messageBox("외국인입니다. 외국인 여부를 입력해 주세요", "E999", "");
            return false;
        }
		if (utlf_isNull(ds_send_save.getColumn(0, 'brthareacnts')) || ds_send_save.getColumn(0, 'brthareacnts') == '-') {
			sysf_messageBox("외국인입니다. 국적코드를 입력해 주세요", "E999");
			return false;
		}
		if(vMode == "E"){
			if (utlf_isNull(ds_send_save.getColumn(0, 'psptno')) || ds_send_save.getColumn(0, 'psptno') == '-') {
				sysf_messageBox("여권번호가 없습니다.  확인후 입력해 주시기 바랍니다", "E999");
				return false;
			}
		}
	}
	
	//20200205 고영민 LG전자 건진자 체크
	if((vMode == "C"|| vMode == "E") && ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd") == "C00980"){
		alert("LG전자 임직원은 우울증 진단검사 대상자입니다.");
	}
	
	if(frmf_getComponents("cmb_place").value == 'S')
	{
		dsf_makeValue(ds_send_save_rsltsave, "rsrvdetlflag", "string", 'C01');
		dsf_makeValue(ds_main_info_rsrvacptinfo_item, "rsrvdetlflag", "string", 'C01');
	}
	else if(cmb_place.value == 'K')
	{
		dsf_makeValue(ds_send_save_rsltsave, "rsrvdetlflag", "string", 'C03');
		dsf_makeValue(ds_main_info_rsrvacptinfo_item, "rsrvdetlflag", "string", 'C03');
	}

	fCheckNodeExist("ds_send_save_taginfo", true);
	dsf_makeValue(ds_send_save_taginfo, "rtime", "string", ds_main_info_taginfo.getColumn(0, "rtime"));
	dsf_makeValue(ds_send_save_taginfo, "tagno", "string", ds_main_info_taginfo.getColumn(0, "tagno"));
	dsf_makeValue(ds_send_save_taginfo, "suppstat", "string", ds_main_info_taginfo.getColumn(0, "suppstat"));
	
	if(vMode == "F"|| vMode == "D")
	{
		var rsltRsrvCnt = ds_main_info_rsltcnstinfo_cnstlst_cnst.rowcount;
		
		for(var i = 0; i < rsltRsrvCnt; i++) 
		{
			var cnstEndYN             = ds_main_info_rsltcnstinfo_cnstlst_cnst.getColumn(i, "rsltcnstendyn");
			var rsltCnstDD            = ds_main_info_rsltcnstinfo_cnstlst_cnst.getColumn(i, "rsltcnstdd");
			var rsltCnstRsrvStarttm   = ds_main_info_rsltcnstinfo_cnstlst_cnst.getColumn(i, "rsltcnstrsrvstarttm");
			var dtRsrvdd              = (rsltCnstDD + " " + rsltCnstRsrvStarttm + "00" ).toDate("YYYYMMDD hhmmss");
			
			if((cnstEndYN == "N" || cnstEndYN == "") &&  dtRsrvdd > utlf_getCurrentDateTime().toDate("YYYYMMDD hhmmss"))
			{
				ds_main_info_rsltcnstinfo_cnstlst_cnst.setColumn(i, "m", "d");
				ds_main_info_rsltcnstinfo_cnstlst_cnst.setColumn(i, "rsltrsrvsaveyn", "N");
			}
		}
	}
	
	ds_main_info_rsltcnstinfo_cnstlst_cnst.filterstr = "rsltrsrvsaveyn == 'N'";
	dsf_createDs("ds_send_save_rsltsave");
	ds_send_save_rsltsave.copyData(ds_main_info_rsltcnstinfo_cnstlst_cnst, true);
	ds_main_info_rsltcnstinfo_cnstlst_cnst.filterstr = "";
	
	ds_main_info_rsrvacptinfo_addlst.applyChange();

	for(var i = 0; i < ds_main_info_rsrvacptinfo_addlst.rowcount; i++)
	{
		if(ds_main_info_rsrvacptinfo_addlst.getColumn(i,"sel")=="Y" || ds_main_info_rsrvacptinfo_addlst.getColumn(i,"sel")=="true")
		{
			ds_main_info_rsrvacptinfo_addlst.updatecontrol = false;
			ds_main_info_rsrvacptinfo_addlst.setRowType(i, "u");
			ds_main_info_rsrvacptinfo_addlst.updatecontrol = true;
			ds_main_info_rsrvacptinfo_addlst.setColumn(i, "m", "u");
		}
	}
	
	dsf_createDs("ds_send_save_addlst");
	ds_send_save_addlst.copyData(grdf_getGridUpdateData(swt_exam.case_pkg.grd_addlst));
	
// 	model.resetInstanceNode("/root/hidden");
// 	model.removeNodeset("/root/tmp");
	dsf_setDefaultVal(ds_main_info_rsrvacptinfo_item, "paycmpyamt:0,payinsubamt:0");
	
	lf_setColChange(true);
	
	if( !utlf_isNull(ds_send_save_addlst.getColumnInfo("prcptims")))
	{
		ds_send_save_addlst.updateColID("prcptims", "prcpdayno");
	}
	
	ds_send_save.addColumn("srchinstcd","string");
	ds_send_save.addColumn("sess_posinstcd","string");
	ds_send_save.setColumn(0,"srchinstcd",ds_send_save.getColumn(0,"instcd"));
	ds_send_save.setColumn(0,"sess_posinstcd",ds_send_save.getColumn(0,"instcd"));
	ds_main_info_rsrvacptinfo_item.addColumn("instcd","string");
	ds_main_info_rsrvacptinfo_item.setColumn(0,"instcd",ds_send_save.getColumn(0,"instcd"));
	
	if(swt_acptlst.tabindex == 4) {	//SMAHA00100
		ds_main_info_rsrvacptinfo_item.setColumn(0,"rsrvflag","05");	//스마트앱 예약
	}
	
	//20200324 고영민 패키지 미수코드 V14(단체/공단 분리청구)인 경우 healexamgubun H 세팅
	if(ds_main_info_rsrvacptinfo_item.getColumn(0, "pkguncocd") == "V14"){
		dsf_makeValue(ds_main_info_rsrvacptinfo_item, "healexamgubun", "string", "H");
	}
	dsf_makeValue(ds_main_info_rsrvacptinfo_item, "insu1", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamdetlflag"));

	ds_send_save_addlst.updateColID("testflag", "pkgflag");
	
	var oParam = {};
		oParam.id          = "TXAHA00012";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqExeRsrvSave";
		oParam.inds        = "patinfo=ds_send_save "
							+"rsrvacptinfo=ds_main_info_rsrvacptinfo_item "
							+"pkglst=ds_main_info_rsrvacptinfo_pkglst "
							+"addlst=ds_send_save_addlst "
							+"taginfo=ds_send_save_taginfo "
							+"rsltrsrv=ds_send_save_rsltsave";
		oParam.outds       = "ds_tmp_reqacpt=reqacpt ds_=reqadd ds_tmp_reqrfid=reqrfid ds_tmp_sytsrsrvchk=sytsrsrvchk";
		oParam.typeStr     = "m";
		oParam.async       = false;
		oParam.callback    = "cf_TXAHA00012";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TXAHA00012") > -1)
	{
		var ret = 0 ;
		var rst = "R";

		if(GMode == "1")
		{
			var vHealExamFlag = ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag");
		}
		else
		{
			fretinstanceset();
		}

		if(vMode == "E")
		{
			dsf_makeValue(ds_send, "jobflag", "string", "");
			dsf_makeValue(ds_send, "rcptdd", "string", "");
			dsf_makeValue(ds_send, "rcptno", "string", "");
			dsf_makeValue(ds_send, "rcptseqno", "string", "");
			
			var suppstat = ds_tmp_reqrfid.getColumn(0, "suppstat"); 
			if(suppstat == "0")
			{
				ds_main_info_taginfo.setColumn(0, "rtime", ds_tmp_reqrfid.getColumn(0, "rtime"));
				ds_main_info_taginfo.setColumn(0, "tagno", ds_tmp_reqrfid.getColumn(0, "tagno"));
				ds_main_info_taginfo.setColumn(0, "suppstat", ds_tmp_reqrfid.getColumn(0, "suppstat"));
				
				dsf_makeValue(ds_tag_taginfo, "tagstat", "string", ds_tmp_reqrfid.getColumn(0, "suppstat"));
				frmf_getComponents("btn_tag").text = "태그반납";
				frmf_getComponents("ipt_tagno").enabel = false;
			}
		
			if(sysf_getUserInfo("dutplceinstcd")=="031")
			{
				var startdd = ds_init_baseinfo_S960list_S960.lookup("cdid", "", "cdid");
				var today = utlf_getCurrentDate();
				if(parseInt(today)>=parseInt(startdd))
				{
					fRfidWrite("WR", ipt_pid.value, ipt_pnm.value);
				}
				
				startdd = ds_init_baseinfo_S980list_S980.lookup("cdid", "2", "cdnm");
				if(parseInt(today)>=parseInt(startdd))
				{
					btn_bracelet.click();
				}
			}
			ret = fCalcAmt("RCPT");
			if(ret  == 1)
			{
				if(ds_tmp2.getColumn(0, "printchk")=='Y')
				{
					ipt_pid.value = ds_tmp_reqacpt.getColumn(0, "pid");
					btn_examseq2.click();
				}
				if(ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag") != "G" && ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamdetlflag") != "G02")
				{
					ahafRcptAmt("RCPT"
								, ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvdd")
								, ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvno")
								, ds_main_info_rsrvacptinfo_item.getColumn(0, "pid")
								, ds_main_info_rsrvacptinfo_item.getColumn(0, "hopedd")
								, ds_main_info_rsrvacptinfo_item.getColumn(0, "rcptstat")
								, "ds_temp_rcptinfo_hidden"
								, ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag"))
					rst = "T";
				}
			}
		}
		/*else if( vMode == "F" )
		{
			dsf_makeValue(ds_send, "srchjobflag", "string", "");
			dsf_makeValue(ds_send, "srchrcptdd", "string", "");
			dsf_makeValue(ds_send, "srchrcptno", "string", "");
			dsf_makeValue(ds_send, "srchrcptseqno", "string", "");
			
			ret =  fCalcAmt("CANCEL");
			
			if(ret == 1)
			{
				ahafRcptAmt("CANCEL"
							, ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvdd")
							, ds_main_info_rsrvacptinfo_item.getColumn(0, "rsrvno")
							, ds_main_info_rsrvacptinfo_item.getColumn(0, "pid")
							, ds_main_info_rsrvacptinfo_item.getColumn(0, "hopedd")
							, ds_main_info_rsrvacptinfo_item.getColumn(0, "rcptstat")
							, "ds_temp_rcptinfo_hidden"
							, ds_main_info_rsrvacptinfo_item.getColumn(0, "healexamflag"))
				rst = "T";
			}
		}*/
		
		dsf_createDsRow("ds_send_data", [{col:"srchflag", type:"STRING", size:256 , val : "S700"}
									  ,  {col:"srchcond", type:"STRING", size:256 , val : "cd"}
									  ,  {col:"srchnm", type:"STRING", size:256 , val : "1"}
									  ,  {col:"nm", type:"STRING", size:256 , val : ""}
									  ,  {col:"srchuseyn", type:"STRING", size:256 , val : "Y"}]);
		dsf_createDs("ds_main_codelist_item");
		
		var oParam = {};
			oParam.id          = "TRAHA00004";
			oParam.service     = "healthexambaseapp.ComCode";
			oParam.method      = "reqGetCodeList";
			oParam.inds        = "req=ds_send_data";
			oParam.outds       = "ds_main_codelist_item=item";
			oParam.async       = false;
			//oParam.callback    = "cf_TRAHA00004";

		tranf_submit(oParam);

		var autorsrv = ds_main_codelist_item.getColumn(0, "cdnm");
		if(autorsrv == "Y" && vMode == "C"  && frmf_getComponents("btn_rsrvcfm").enable == true)
		{ 
			frmf_getComponents("btn_rsrvprnt").click();
		}

		//SMAHA00100 스마트앱예약정보 예약진행관련 추가 20190418 노회식
		if(swt_acptlst.tabindex == 4) {	
			dsf_createDs("ds_save_smart_rsrvlst");
			dsf_copyColInfo(ds_save_smart_rsrvlst, ds_main_list_smart_rsrvlst);
			ds_save_smart_rsrvlst.copyRow(ds_save_smart_rsrvlst.addRow(), ds_main_list_smart_rsrvlst, ds_main_list_smart_rsrvlst.rowposition);
			
			//if(vMode == "A" || vMode == "C" || vMode == "E") {
			ds_save_smart_rsrvlst.setColumn(0, "rsrvno", ds_main_info_rsrvacptinfo_item.getColumn(0,"rsrvno"));
			ds_save_smart_rsrvlst.setColumn(0, "hopedd", ds_main_info_rsrvacptinfo_item.getColumn(0,"hopedd"));
			ds_save_smart_rsrvlst.setColumn(0, "rsrvtm", ds_main_info_rsrvacptinfo_item.getColumn(0,"rsrvtm"));
			ds_save_smart_rsrvlst.setColumn(0, "pid", ds_main_info_rsrvacptinfo_item.getColumn(0,"pid"));
			//}
			
			var oParam = {};
				oParam.id          = "TXAHA00117";
				oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
				oParam.method      = "reqSetSmartRsrvAcptList";
				oParam.inds        = "req=ds_save_smart_rsrvlst";
				oParam.async       = false;
				oParam.callback    = "cf_TXAHA00117";

			tranf_submit(oParam);
		} else if(ds_main_info_rsrvacptinfo_item.getColumn(0,"rsrvflag") == "05" && (vMode == "D" || vMode == "F")) {
			dsf_createDs("ds_save_smart_rsrvlst");
			dsf_makeValue(ds_save_smart_rsrvlst, "hopedd", "string", "");
			dsf_makeValue(ds_save_smart_rsrvlst, "rsrvtm", "string", "");
			dsf_makeValue(ds_save_smart_rsrvlst, "rsrvdd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0,"rsrvdd"));
			dsf_makeValue(ds_save_smart_rsrvlst, "rsrvno", "string", ds_main_info_rsrvacptinfo_item.getColumn(0,"rsrvno"));
			dsf_makeValue(ds_save_smart_rsrvlst, "pid", "string", ds_main_info_rsrvacptinfo_item.getColumn(0,"pid"));
			dsf_makeValue(ds_save_smart_rsrvlst, "healexamflag", "string", ds_main_info_rsrvacptinfo_item.getColumn(0,"healexamflag"));
			
			var oParam = {};
				oParam.id          = "TXAHA00118";
				oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
				oParam.method      = "reqDelSmartRsrvAcptList";
				oParam.inds        = "req=ds_save_smart_rsrvlst";
				oParam.async       = false;
				//oParam.callback    = "cf_TXAHA00118";

			tranf_submit(oParam);
		}
		
		fInitInfo();
		ipt_pnm.value ="";
		fSetBtnStat();
		
		if(swt_acptlst.tabindex == 4) fGetSmartList();
		else fGetList();

		var sytsrsrvchk = ds_tmp_sytsrsrvchk.getColumn(0, "sytsrsrvchk");
		if(sytsrsrvchk == "Y" )
		{
			ds_main_info_rsrvacptinfo_item.setColumn(0, "pid" ,ds_tmp_reqacpt.getColumn(0, "pid"));
			
			frmf_getComponents("button23").click();
		}
	}
	else
	{
		sysf_messageBox("저장이 잘못되었습니다", "E999");
	}
	return 1;
}

function cf_TXAHA00012(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
    
    lf_setColChange(false);

}

function cf_TXAHA00117(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    fGetSmartList();	//SMAHA00100
}

function lf_setColChange(bFlag){
	if( bFlag == true )
	{
		if(!utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumnInfo("pkguncocd")))
		{
			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "uncocd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "pkguncocd"));
		}
		if(!utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumnInfo("rgstno1")))
		{
			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "srchrgstno1", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "rgstno1"));
		}
		if(!utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumnInfo("rgstno2")))
		{
			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "srchrgstno2", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "rgstno2"));
		}
	}
	else
	{//trace("aaaa")
		if(!utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumnInfo("uncocd")))
		{
			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "pkguncocd", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "uncocd"));
		}
		if(!utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumnInfo("srchrgstno1")))
		{
			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "rgstno1", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "srchrgstno1"));
		}
		if(!utlf_isNull(ds_main_info_rsrvacptinfo_item.getColumnInfo("srchrgstno2")))
		{
			dsf_makeValue(ds_main_info_rsrvacptinfo_item, "rgstno2", "string", ds_main_info_rsrvacptinfo_item.getColumn(0, "srchrgstno2"));
		}
	}
}
	
function fRfidWrite(type, pid, hngnm){
	try{
// 		var objActiveX = new ActiveX();
// 		var activeObj = objActiveX.createObject("WScript.Shell");
// trace("1");
// 		activeObj.CurrentDirectory = "C:\\himed\\components\\JsInfo";
// trace("2");
// 		var fileName = "";
// 		if(type == "WR") {// 저장과 동시에 환자번호 Write
// 			fileName = "Js_RfidCCRVb.exe " + pid + " " + hngnm;
// 		}else if(type == "READ") { // Writing 되어 있는 환자 번호 리딩
// 			fileName = "Js_RfidCCRVb.exe " + type ;
// 		}		
// 
// 		activeObj.show;
	
		var fldr = "C:\\himed\\components\\JsInfo\\";
		var param = ""
		if(type == "WR") {// 저장과 동시에 환자번호 Write
			param = pid + " " + hngnm;
		}else if(type == "READ") { // Writing 되어 있는 환자 번호 리딩
			param = type ;
		}		

		var objExtCommon = new ExtCommon();
		objExtCommon.executeProcess(fldr + "Js_RfidCCRVb.exe", param);
 	}catch(e){
 		alert("RFID 카드 등록오류");
 	}
}

function fretinstanceset()
{
	dsf_makeValue(ds_main_info_rsrvacptinfo_item, "rsrvdd", "string", ds_tmp_reqacpt.getColumn(0, "rsrvdd"));
	dsf_makeValue(ds_main_info_rsrvacptinfo_item, "rsrvno", "string", ds_tmp_reqacpt.getColumn(0, "rsrvno"));
	dsf_makeValue(ds_main_info_rsrvacptinfo_item, "pid", "string", ds_tmp_reqacpt.getColumn(0, "pid"));
	dsf_makeValue(ds_main_info_rsrvacptinfo_item, "orddd", "string", ds_tmp_reqacpt.getColumn(0, "orddd"));
	dsf_makeValue(ds_main_info_patinfo_item, "pid", "string", ds_tmp_reqacpt.getColumn(0, "pid"));
}
	
	function fTotRsrv(){
		var vPkgCount = getNodesetCount("/root/send/test/pkgcd");
		if(vPkgCount !=0){
			submit("TRAHA00014");//패키지내 중복 체크*/
			var testnm ="";
			var testnmcount ="";
			var cnt = getNodesetCount("/root/tmp/totrsrv/testcount");
			if(cnt != 0){
				alert("///");
				aezfPopUpRsrvSample("SMAEA02000", "", "/root/main/info/rsrvacptinfo/item");
			}
		}
		model.removeNodeset("/root/send/test");
	}
	
	function fGetPro(){
			model.makeValue("/root/send/srchpkgflag", "");
			model.makeValue("/root/send/srchhealexamflag", "G");
			model.makeValue("/root/send/srchcond"	,	"");
			
			if(model.getValue("/root/send/pkgcd") == ""){
				model.makeValue("/root/send/srchcond"	,	"");
				model.makeValue("/root/send/srchcdnm"	,	"");
			}else{
				model.makeValue("/root/send/srchcond"	,	"cd");
				model.makeValue("/root/send/srchcdnm"	,	model.getValue("/root/send/pkgcd"));
			}

			if(model.getValue("/root/send/srchcond") == ""){
				if(model.getValue("/root/send/pkgnm") == ""){
					model.makeValue("/root/send/srchcond"	,	"");
					model.makeValue("/root/send/srchcdnm"	,	"");
				}else{
					model.makeValue("/root/send/srchcond"	,	"nm");
					model.makeValue("/root/send/srchcdnm"	,	model.getValue("/root/send/pkgnm"));
				}
			}
			submit("TRAHB00303");
  }

	function finsuCheck(){
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu1","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu2","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu3","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu4","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu5","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu6","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu7","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu8","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu9","");
		model.makeValue("/root/main/info/rsrvacptinfo/item/insu10","");

		if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G01"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu1", "G01");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G02"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu2", "G02");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G03"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu3", "G03");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G04"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu4", "G04");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G05"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu5", "G05");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G06"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu6", "G06");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G07"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu7", "G07");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G08"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu8", "G08");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G09"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu9", "G09");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		} else if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")=="G010"){
			model.makeValue("/root/main/info/rsrvacptinfo/item/insu10", "G010");
			model.makeValue("/root/main/info/rsrvacptinfo/item/healexamflag","G");
		}
	}

	function fInsuChange(){
		if(model.getValue("/root/send/srchcdnm") !=""){
			model.makeValue("/root/send/srchflag"		, "02");
		 	model.makeValue("/root/send/srchcond" 	, "nm" );
			model.makeValue("/root/send/srchinstcd"	, sysf_getUserInfo("dutplceinstcd"));
			submit("TRAHA00105");
			
			if(model.getValue("/root/temp/cdlst/item/cmpycd")!=""){
				opener.model.makeValue("/root/main/info/rsrvacptinfo/item/insucorpbrchcd",model.getValue("/root/temp/cdlst/item/cmpycd"));
			}
		}
	}
	
	function fGetAutoCode(vMode, dgflag){
		model.makeValue("/root/tmp/cdflag",vMode);
		model.makeValue("/root/tmp/dgflag",dgflag);
		frmf_modal("SPAHA00700");
	}

  //마약 집게 추가(대장내시경시 마약 신청)
  function fDrugSum(){
    submit("TXAHA00105");
  }

	  function fChoiChk(){
			var a = "";
			var cnt = 0;
			var cnt2 = 0;
				for(var i=1; i < grd_addlst.rows;i++){
				   if ((grd_addlst.valueMatrix(i,grd_addlst.colRef("testflag"))=="S")){cnt2 = cnt2 +1 ; }
				   if ((grd_addlst.valueMatrix(i,grd_addlst.colRef("testflag"))=="S") && (grd_addlst.valueMatrix(i,grd_addlst.colRef("sel")) =="Y")){
						  cnt = cnt+ 1;
				   }
				}

				if(cnt == 0 && cnt2 != 0 ){
					var rtn = messageBox("패키지내 선택검사 중  1개의 선택검사도 선택 되지 않았습니다, 계속 하시겠습니까? ", "Q0999");
					if(rtn == 6){return true;}
					else if(rtn == 7){return false;}
				}
	  }

/**********************************************************************************
 * 함수명		: fSavePtbs
 * 설  명		: 환자정보 생성 및 저장
 * argument		: 
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fSavePtbs()
{
	if( fCheckPatInfo() == false ) return -1 ;
	
	dsf_createDs("ds_send_save");
	dsf_createDs("ds_tmp_patinfo");
	
	ds_send_save.copyData(ds_main_info_patinfo_item);
	
	fCheckNodeExist("ds_send_save", "userid", true);
	ds_send_save.setColumn(0, "userid", sysf_getUserId() );
	fCheckNodeExist("ds_send_save", "instcd", true);
	ds_send_save.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));

	var oParam = {};
		oParam.id          = "TXAHA00111";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqSavePtbs";
		oParam.inds        = "patinfo=ds_send_save";
		oParam.outds       = "ds_tmp_patinfo=patinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TXAHA00111";

	tranf_submit(oParam);
	
	ds_main_info_patinfo_item.setColumn(0, "pid" , ds_tmp_patinfo.getColumn(0, "pid"));
}

/**
 * 추가검사 금액셋팅
 * 수정이력 : 20100712 JHP 금액계산부분에서 NaN(이 발생하여 금액이 1로 되는 경우 발생하여 NaN일때 0으로 바꾸는 로직 추가
 */
function fSetAddAmt() {
    var disccd = utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "disccd"));	// 할인코드
    var cmpycd = utlf_transNullToEmpty(ds_main_info_rsrvacptinfo_item.getColumn(0, "cmpycd"));	// 단체코드
    var statflag = ds_main_info_rsrvacptinfo_item.getColumn(0, "statflag");	// 단체코드
    var chngyn = ds_temp_priceamt_priceamt.getColumn(0, "chngyn");				// 부담금 변경여부
    var pkgdiscyn = ds_main_info_rsrvacptinfo_item.getColumn(0, "pkgdiscyn");				// 패키지 할인 여부
    var disc = 0;
    var pAddamt = 0;
    var sCnt = 0;
    var pkgDisc = 0;
    var addDisc = 0;
    var uncoamt = 0;
    var ownbamt = 0;
    var PkgDiscamt = 0;
    var subtotamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "subtotamt"));	//소계
    var pkgamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "pkgamt"));	//패키지금액
    var cmpyaddamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "cmpyaddamt"));	//단체추가검사금액
    var psnaddamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "psnaddamt"));	//개인추가검사금액
    var preamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "preamt"));	//선수금
    var discamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "discamt"));	//할인액
    var realamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "realamt"));	//실수납액
    var org_uncoamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "orguncoamt")); // 계약처의 미수금(변경없는)
    var org_ownbamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "orgownbamt"));	//게약처의 원래 부담금
    if (chngyn == "Y") {
		uncoamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "chnguncoamt"));	//미수금
		ownbamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "chngownbamt"));	//부담액
    } else {
		uncoamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "uncoamt"));	//미수금
		ownbamt = parseInt(ds_temp_priceamt_priceamt.getColumn(0, "ownbamt"));	//부담액
    }

    // 할인율
    if (disccd != "") {
        var row = ds_init_baseinfo_pamcdlst_disccdlst.findRowExpr("cd=='" + disccd + "'");
        pkgDisc = parseInt(ds_init_baseinfo_pamcdlst_disccdlst.getColumn(row, "dcamt"));
        addDisc = parseInt(ds_init_baseinfo_pamcdlst_disccdlst.getColumn(row, "adddcamt"));
    }
    // 수정추가 20100712 JHP disccd가 값은 있는데 실제 할인코드 인지 미수코드인지 구분을 받는게 없어서 NaN을 발생한다. 하여 NaN이면 0으로 바꾼다.
    if (isNaN(pkgDisc) == true) {
		pkgDisc = 0;
	}
    if (isNaN(addDisc) == true) {
		addDisc = 0;
	}

    // 개인일 경우 패키지의 할인율 적용
    if (cmpycd == "") {
    	if (pkgdiscyn == "Y") {
    		discamt = discamt + Math.round(pkgamt * (pkgDisc / 100));
    		PkgDiscamt = Math.round(pkgamt * (pkgDisc / 100));
    	}
    }

    var cnt = ds_main_info_rsrvacptinfo_addlst.rowcount;

    for (var i = 0; i < cnt; i++) {
    	var sel = ds_main_info_rsrvacptinfo_addlst.getColumn(i, "sel");
    	var testflag = ds_main_info_rsrvacptinfo_addlst.getColumn(i, "testflag"); // 검사구분
    	var uncocd = ds_main_info_rsrvacptinfo_addlst.getColumn(i, "uncocd"); // 청구구분
    	var scoreamt = parseInt(ds_main_info_rsrvacptinfo_addlst.getColumn(i, "scoreamt")); // 단가
    	var testdiscyn = ds_main_info_rsrvacptinfo_addlst.getColumn(i, "testdiscyn"); //추가검사할인적용여부
    	var dcamt = testdiscyn == "Y" ? Math.round(scoreamt * (addDisc / 100)) : 0; // 추가검사금액

    	if ("Y" == sel) {
    		if (testflag == "S") {
    			sCnt++;
    			if (cmpycd != "") {
    				if ("V01" == uncocd) {
    					pAddamt += (scoreamt - dcamt);
    					psnaddamt += scoreamt;
    					discamt += dcamt;
    					subtotamt += scoreamt;
    				} else if ("V02" == uncocd) {
    					uncoamt += (scoreamt - dcamt); // 미수금액
    					cmpyaddamt += scoreamt;
    					discamt += dcamt;
    					subtotamt += scoreamt;
    				}
    			}
    		} else {
    			if (cmpycd != "") {
    				if ("V01" == uncocd) {
    					pAddamt += (scoreamt - dcamt); // 개인추가금액
    					psnaddamt += scoreamt;

    				} else if ("V02" == uncocd) {
    					uncoamt += (scoreamt - dcamt); //미수금액
    					cmpyaddamt += scoreamt;
    				}

    				discamt += dcamt;
    				subtotamt += scoreamt;
    			} else {
    				pAddamt += (scoreamt - dcamt);
    				psnaddamt += scoreamt;
    				discamt += dcamt;
    				subtotamt += scoreamt;
    			}
    		}
    	}
    }

    // 개인 일 경우
    if (cmpycd == "") {
    	if (sCnt > 1) {
    		sysf_messageBox("선택검사을 2개이상", "E005");
    	}
    }

    dsf_makeValue(ds_main_info_rcptinfo, "subtotamt", 'string', subtotamt);	//소계
    dsf_makeValue(ds_main_info_rcptinfo, "pkgamt", 'string', pkgamt);	//패키지금액
    dsf_makeValue(ds_main_info_rcptinfo, "cmpyaddamt", 'string', cmpyaddamt);	//추가검사금액
    dsf_makeValue(ds_main_info_rcptinfo, "psnaddamt", 'string', psnaddamt);	//추가검사금액
    dsf_makeValue(ds_main_info_rcptinfo, "addamt", 'string', cmpyaddamt+psnaddamt);	//추가검사금액
    dsf_makeValue(ds_main_info_rcptinfo, "preamt", 'string', preamt);	//선수금
    dsf_makeValue(ds_main_info_rcptinfo, "uncoamt", 'string', uncoamt);	//미수금
    dsf_makeValue(ds_main_info_rcptinfo, "discamt", 'string', discamt);	//할인액

    if (statflag == "E" || statflag == "G" || statflag == "H" || statflag == "I") {
    	dsf_makeValue(ds_main_info_rcptinfo, "realamt", 'string', realamt); //실수납액
    } else {
    	if (cmpycd != "") {
    		dsf_makeValue(ds_main_info_rcptinfo, "realamt", 'bigdecimal', (pAddamt + ownbamt - realamt - preamt)); //실수납액
    	} else {
    		dsf_makeValue(ds_main_info_rcptinfo, "realamt", 'bigdecimal', (pkgamt + pAddamt - PkgDiscamt - realamt - preamt)); //실수납액
    	}
    }
    dsf_makeValue(ds_main_info_rcptinfo, "ownbamt", 'string', ownbamt); //부담액
    dsf_makeValue(ds_main_info_rcptinfo, "tempamt", 'bigdecimal', (org_uncoamt + org_ownbamt)); //게약처 미수금 + 부담금
    var sTempColor = frmf_getComponents("opt_realamt").style.color;
    if (0 > parseInt(ds_main_info_rcptinfo.getColumn(0, "realamt"))) {
    	frmf_getComponents("opt_realamt").style.color = '#ff0000';
    } else {
    	frmf_getComponents("opt_realamt").style.color = sTempColor;
    }
}
		
//렉스포트형 바코드 출력
// rexnm : 레포트코드
// closeYn : 미리보기 여부(보기:true, 안보기:비우거나 false)
// printCount : 출력 숫자
// dataXPath : 파라메터 위치
// paramsXPath : 파라메터 위치
// infoXPath : 바코드 프린터 정보 위치
function fPrintRexbar(rexnm, closeYn, printCount, dataXPath, paramsXPath, infoXPath){
	var posx = '';
	var posy = '';
	var printnm = '';
	
	if(infoXPath == "" || infoXPath == "undefined" || infoXPath == null) infoXPath = "/root/main/barcdprntsetup/prntsetupinfo";

	if(model.getValue(infoXPath + "/setupinfo/rexgbn") != "1") return false;

	try{
		if(model.getXpathValue("count(" + infoXPath + "/setupinfo/pcl/pcllist[barnm='"+rexnm+"']/barnm)") > "0"){
			posx = model.getValue(infoXPath + "/setupinfo/pcl/pcllist[barnm='"+rexnm+"']/xpos");
			posy = model.getValue(infoXPath + "/setupinfo/pcl/pcllist[barnm='"+rexnm+"']/ypos");
			printnm = model.getValue(infoXPath + "/setupinfo/pcl/pcllist[barnm='"+rexnm+"']/prtnm");
		}else{
			posx = model.getValue(infoXPath + "/setupinfo/blank/left");
			posy = model.getValue(infoXPath + "/setupinfo/blank/top");
			printnm = model.getValue(infoXPath + "/setupinfo/comm01/setupval");
		}
		if(posx == '') posx = "0";
		if(posy == '') posy = "0";
	
	  if(closeYn == "true") printnm = "";
	  
		exeReportPreview(rexnm, 'XMLSTR', paramsXPath, '', printnm,
		                    '', '', '', '', "true",
		                    '', '', '', '', '',
		                    printCount, '', 'offsetx=' + posx + ';offsetx=' + posy + ';', dataXPath, '',
		                    '');
	}
	catch(e){
		alert("출력시 오류가 발생하였습니다\n" + e);
		return true;
	}
	
	return true;       
}

/**
 * 개인정보이용동의서 출력
 * @pid
 * @orddd
 * @cretno
 * @scanyn
 */
function fPrintPerson(pid, orddd, cretno, scanyn) {
	if (scanyn == "X" || utlf_isNull(scanyn)) {
		//개인정보이용동의서 출력을 위한 서식코드 취득
		//emr/prcpmngtweb/js/MMO001.js
		lf_reqHardCodeInfo(ds_init_prncd_hardcd, '5604');

		var ordtype = "S";
		var ocrtype = "P"; //(P : 종이, E : 전자)
		var formcd = "";
		var nodeCnt = ds_init_prncd_hardcd.rowcount;
		//구분에 맞춰 폼코드 처리(1:일반약정서 / 2:기간약정서 / 3:개인정보이용동의서)
		for (i = 0; i < nodeCnt; i++) {
			if (3 == ds_init_prncd_hardcd.getColumn(i, "cdseqno")) {
				formcd = ds_init_prncd_hardcd.getColumn(i, "hardcd");
				break;
			}
		}

		if (ds_init_baseinfo_PK018list_PK018.lookup('cdid', ipAddr, 'cdnm') == "Y") {
			ocrtype = "E";
		}

		if (ocrtype == "E") { // 전자동의서 출력
			frmf_setParameter("SSMRC03160_param_patid", pid);
			frmf_setParameter("SSMRC03160_param_indate", orddd);
			frmf_setParameter("SSMRC03160_param_cretno", cretno);
			frmf_setParameter("SSMRC03160_param_instcd", sysf_getUserInfo("dutplceinstcd"));
			frmf_setParameter("SSMRC03160_param_class", ordtype);
			frmf_setParameter("SSMRC03160_param_docucd", formcd);
			frmf_setParameter("SSMRC03160_param_cuser", sysf_getUserInfo("userid"));
			frmf_setParameter("SSMRC03160_param_flag", "G"); // 일반동의서

			frmf_modal("SSMRC03160", "SSMRC03160", "", "", "", "", "", "", "", "", "", "", "M");
		} 
		
		else { // 종이 출력
			
			
				frmf_setParameter("formcd", formcd);
				frmf_setParameter("pid", pid);
				frmf_setParameter("orddd", orddd);
				frmf_setParameter("cretno", cretno);
				frmf_setParameter("ordtype", ordtype);
			
				frmf_modal("SSMRF03700", "SSMRF03700", "", "", "", "", "", "", "", "", "", "", "M");
			
			
			
		}
		/*
		    emr/formmngtweb/MRF03700.js
		     - finit()
		     - fPerPrntOCR()
		     - emr/formmngtweb/xrw/SSMRF03800_OCR뷰어.xrw
			 - ivw_ocrprnt.window.javascript.fGetOCRInfo(formcd, pid, orddd, cretno, ordtype, formtypecls, ocrtagprntyn);
			 - ivw_ocrprnt.window.javascript.fPrint();
			*/
	}
}
	
/**
 * 환불내역 조회/승인
 * 
 * @param {string} flag 1.환불내역조회, 2.환불수납후 호출
 * @param {number} rtnAmt 
 */
function fRtnRcpt(flag, rtnAmt) {
	if (utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "pid")) == '') {
		sysf_messageBox("환자번호가 존재하지 않습니다.", "E999");
	}
	var acptRow = ds_main_list_acpt_acptlist.rowposition;
	if (acptRow < 0) {
		acptRow = 0;
	}

	if (flag == "1") {
		var sValue = flag + "▦" + //1.환불내역조회  2.환불수납후 호출
			utlf_transNullToEmpty(ds_hidden_session.getColumn(0, "dutplceinstcd")) + "▦" + //기관코드
			utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "pid")) + "▦" + //환자등록번호
			utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "hngnm")) + "▦" + //환자성명
			utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "rgstno1")) + "▦" + //주민등록번호앞자리
			utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "rgstno2")) + "▦" + //주민등록번호뒷자리
			utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "telno")) + "▦" + //집전화
			utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "mpphon")) + "▦" + //휴대폰
			utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "orddd")) + "▦" + //진료일
			utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "cretno")) + "▦" + //일련번호
			utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "orddeptcd")) + "▦" + //진료과
			utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "orddrid")) + "▦" + //진료의
			utlf_transNullToEmpty(rtnAmt) + "▦" + //환불금액
			"51" + "▦" + //보험유형
			"S"; //진료유형

		frmf_setParameter("SPPAO00600_PARM", sValue);
		frmf_modal("SPPAO00600", "SPPAO00600", "", "", "", "", "", "", "", "", "", "", "M");
	} else if (flag == "2") {
		if (rtnAmt >= 0) {
			return;
		} else {
			var rtn = sysf_messageBox("환불내역을 등록 하시겠습니까?", "Q999");
			if (rtn == "6") {
				var sValue = flag + "▦" + //1.환불내역조회  2.환불수납후 호출
					utlf_transNullToEmpty(ds_hidden_session.getColumn(0, "dutplceinstcd")) + "▦" + //기관코드
					utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "pid")) + "▦" + //환자등록번호
					utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "hngnm")) + "▦" + //환자성명
					utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "rgstno1")) + "▦" + //주민등록번호앞자리
					utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "rgstno2")) + "▦" + //주민등록번호뒷자리
					utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "telno")) + "▦" + //집전화
					utlf_transNullToEmpty(ds_main_info_patinfo_item.getColumn(0, "mpphon")) + "▦" + //휴대폰
					utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "orddd")) + "▦" + //진료일
					utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "cretno")) + "▦" + //일련번호
					utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "orddeptcd")) + "▦" + //진료과
					utlf_transNullToEmpty(ds_main_list_acpt_acptlist.getColumn(acptRow, "orddrid")) + "▦" + //진료의
					utlf_transNullToEmpty(rtnAmt) + "▦" + //환불금액
					"51" + "▦" + //보험유형
					"S"; //진료유형

				frmf_setParameter("SPPAO00600_PARM", sValue);
				frmf_modal("SPPAO00600", "SPPAO00600", "", "", "", "", "", "", "", "", "", "", "M");
			}
		}
	}
}
	
/**
 * 패키지에 물려 있는 검사 코드에 동의서 자동 출력 되도록 프로그램 개발
 * 2015/01/22 이정택
 * @return
 */
function fPrintOcrInfo() {
	dsf_makeValue(ds_send_testcdinfo, "instcd", 'string', sysf_getUserInfo("dutplceinstcd"));
	dsf_makeValue(ds_send_testcdinfo, "pid", 'string', ds_main_info_acptinfo_acptlist.getColumn(0, "pid"));
	dsf_makeValue(ds_send_testcdinfo, "orddd", 'string', ds_main_info_acptinfo_acptlist.getColumn(0, "orddd"));
	dsf_makeValue(ds_send_testcdinfo, "cretno", 'string', ds_main_info_acptinfo_acptlist.getColumn(0, "cretno"));
	dsf_makeValue(ds_send_testcdinfo, 'testcd', 'string', '');

	var oParam = {};
	oParam.id = "TRAHA00931";
	oParam.service = "healexamrsrvacptapp.RsrvAcpt";
	oParam.method = "reqGetOcrInfo";
	oParam.inds = "req=ds_send_testcdinfo";
	oParam.outds = "ds_temp_ocrinfo=item";
	oParam.async = false;
	oParam.callback = "cf_TRAHA00931";

	tranf_submit(oParam);

	//if (arErrorCode.pop("TRAHA00931") > -1) {
		cnt = ds_temp_ocrinfo.rowcount;
		for (var i = 0; i < cnt; i++) 
		{
			//칠곡은 테블릿으로 내시경 동의서를 받고 있기 때문에 수정 처리 ( 2019/06/10 이정택)
			if(sysf_getUserInfo("dutplceinstcd")!='032')
			{
				frmf_setParameter("formcd", ds_temp_ocrinfo.getColumn(i, "formcd"));
			}
			else
			{
				if(ds_temp_ocrinfo.getColumn(i, "formcd")=='1100009751' || ds_temp_ocrinfo.getColumn(i, "formcd")=='1100009769' || ds_temp_ocrinfo.getColumn(i, "formcd")=='1100010157'){ //C2-상부위장관 내시경검사 동의서, C2-대장내시경 동의서, C2-의식 하 진정 내시경 동의서
					continue;
				}else{
					frmf_setParameter("formcd", ds_temp_ocrinfo.getColumn(i, "formcd"));
				}
			}
			//칠곡은 테블릿으로 내시경 동의서를 받고 있기 때문에 수정 처리 ( 2019/06/10 이정택)
			
			frmf_setParameter("pid", ds_main_info_acptinfo_acptlist.getColumn(0, "pid"));
			frmf_setParameter("orddd", ds_main_info_acptinfo_acptlist.getColumn(0, "orddd"));
			frmf_setParameter("cretno", ds_main_info_acptinfo_acptlist.getColumn(0, "cretno"));
			frmf_setParameter("ordtype", "S");
			frmf_modal("SSMRF03700", "SSMRF03700", "", "", "", "", "", "", "", "", "", "", "M");
		}
	//}
}

function cf_TRAHA00931(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

	
	function fPrintOcrInfo_20151012(){
		var cnt=getNodeSetCnt("/root/main/list/acptdtl/oscllist");
		//var codecnt=getNodeSetCnt("/root/init/baseinfo/S902list");
		var testcd="";
		if(cnt>0){
			var sb = new StringBuffer();
			for(var i=1; i<=cnt; i++){
/*
				if(datagrid1.valueMatrix(i,datagrid1.colRef("grupcalcscorcd"))==model.getValue("/root/init/baseinfo/S902list/S902[cdid!='"+""+"']/cdid")){
					sb.append("'"+datagrid1.valueMatrix(i,datagrid1.colRef("grupcalcscorcd"))+"'");
				}
*/
				sb.append("'"+datagrid1.valueMatrix(i,datagrid1.colRef("grupcalcscorcd"))+"'");
			}
			testcd=sb.toString(",");
			model.makeValue("/root/send/testcdinfo/instcd", sysf_getUserInfo("dutplceinstcd"));
			model.makeValue("/root/send/testcdinfo/pid", model.getValue("/root/main/info/acptinfo/acptlist/pid"));
			model.makeValue("/root/send/testcdinfo/orddd", model.getValue("/root/main/info/acptinfo/acptlist/orddd"));
			model.makeValue("/root/send/testcdinfo/cretno", model.getValue("/root/main/info/acptinfo/acptlist/cretno"));
			model.makeValue("/root/send/testcdinfo/testcd", testcd);
		}
	
		if(testcd!=""){
			if(submit("TRAHA00931")){
				cnt=getNodeSetCnt("/root/temp/ocrinfo");
				for(var i=1; i<=cnt; i++){
					frmf_setParameter("formcd" 	, model.getValue("/root/temp/ocrinfo['"+i+"']/formcd"));
				    frmf_setParameter("pid" 		, model.getValue("/root/main/info/acptinfo/acptlist/pid"));
				    frmf_setParameter("orddd" 	, model.getValue("/root/main/info/acptinfo/acptlist/orddd"));
				    frmf_setParameter("cretno" 	, model.getValue("/root/main/info/acptinfo/acptlist/cretno"));
				    frmf_setParameter("ordtype" 	, "S");
				    frmf_modal("SSMRF03700");	
				}
			}	
		}
		//2015/01/21 이정택	
	}
	
	/**
	 * 이정택 2015/01/21
	 * @return
	 */
	function StringBuffer(){
		this.buffer = []; 
	} 

	/**
	 * 이정택 2015/01/21
	 * @return
	 */
// 	StringBuffer.prototype.append = function(str) {
// 	    if (isNull(str)) { str = ""; }
// 	    this.buffer.push(str); 
// 	    return this; 
// 	} 

	/**
	 * 이정택 2015/01/21
	 * @return
	 */
// 	StringBuffer.prototype.toString = function(str) { 
// 	    if (isNull(str)) { str = ""; }
// 	    return this.buffer.join(str); 
// 	}
	
/**
 * 신우편번호 체계 관련 공통함수
 */
function fNewZipCdCheck(zipcd1, zipcd2)
{
	if(String(zipcd2).length != 2)
	{
		sysf_messageBox("2015년 8월 1일부터 우편번호 뒷자리는 2자리 변경되었습니다.\n확인 후 수정부탁드립니다.", "E");
		return;
	}
}

/**********************************************************************************
 * 함 수 명	: fChkPatNameC
 * 설    명	: 종합건진 그리드 클릭시 동명이인 확인을 위해서 로직 추가(2016/10/25)
 * argument		: gridNode : 해당 그리드의 DataSet으로 변경
				  colName  : 컬럼
				  patName  : 찾을 이름
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fChkPatNameC(gridNode, colName, patName)
{
	var cnt = gridNode.getCaseCount(""+colName+"=='"+patName+"'");
	
	if(parseInt(cnt) > 1)
	{
		sysf_messageBox("["+patName+"]님으로 동명이인이 존재합니다. 확인 후 진행부탁드립니다.", "I");
	}
}


/**********************************************************************************
 * 함 수 명	: fPrintBarCode
 * 설    명	: 환자 팔찌 출력 관련 프로그램 개발
 * argument		: 
 * return Type	: 
 * 작성자		: 
**********************************************************************************/
function fPrintBarCode() 
{
	var pid = ds_main_info_patinfo_item.getColumn(0, "pid");
	var hngnm = ds_main_info_patinfo_item.getColumn(0, "hngnm");
	var rrgstno1 = ds_main_info_patinfo_item.getColumn(0, "rgstno1");
	var today = utlf_getCurrentDate();
	var lastinfo = (String(ds_main_info_rsrvacptinfo_item.getColumn(0, "latestpkginfo")).substr(0, 10)).replace("-", "");
	var sex = ds_main_info_patinfo_item.getColumn(0, "sex");
	var age = ds_main_info_patinfo_item.getColumn(0, "age");

	dsf_makeValue(ds_hidden_h_receipt_receipt, "pid", "string",   pid);
	dsf_makeValue(ds_hidden_h_receipt_receipt, "hngnm2", "string", hngnm);
	dsf_makeValue(ds_hidden_h_receipt_receipt, "rrgstno", "string",   rrgstno1+"  "+today+"/"+lastinfo);
	dsf_makeValue(ds_hidden_h_receipt_receipt, "sex", "string",   sex);
	dsf_makeValue(ds_hidden_h_receipt_receipt, "wardcd", "string",   "건강증진센터");
	dsf_makeValue(ds_hidden_h_receipt_receipt, "babyyn", "string",   "N");
	dsf_makeValue(ds_hidden_h_receipt_receipt, "age", "string",   age);
	
	var print_name = "";
	var print_tray = "";
    
    print_name = ds_init_baseinfo_S980list_S980.lookup("cdid", "1", "cdnm");
    print_tray = ds_init_baseinfo_S980list_S980.lookup("cdid", "1", "sortseq");

    if (print_name == 'SLP-T400' || print_name == 'SLP-T401') 
    {
		var objDOM = rptf_createDOM();
			rptf_setNodeListToDOM(objDOM, "/root/hidden/h_receipt/receipt", ds_hidden_h_receipt_receipt);
		var objParam = new Object();
			objParam.xml_data_XML1 = objDOM.documentElement.source; 
		//var option = "";
		var option = option + "directprint=1;printdialog=0;";
		var prntOtion 	= "printername="+print_name+";";
		rptf_exeReportPreview30(["RPPMI03202"],[objParam], option, prntOtion);
    }
}

/**
 * 종합건진 미수 청구를 분리 시킴
 * @return
 */
function fUncoSeparate() {
	var uncocd = cmb_pkguncocd.value;
	var pkgamt = parseInt(opt_pkgamt.value);
	var discamt = parseInt(opt_discamt.value);

//	if ('SMAHA00100' == frmf_getScreenID()) {
		if (uncocd == "V14") {
// 			ipt_paycmpyamt.enable = true;
// 			ipt_payinsubamt.enable = true;
			ipt_paycmpyamt.enable = false;
			ipt_payinsubamt.enable = false;
			opt_addamt.enable = false;
			output2.enable = false;
			//opt_pkgamt.enable = false;
			opt_psnpkgamt.enable = false;
			opt_cmpypkgamt.enable = false;

			if (utlf_isNull(ipt_paycmpyamt.value)) {
				ipt_paycmpyamt.value = pkgamt - discamt;
			}
			if (utlf_isNull(ipt_payinsubamt.value)) {
				ipt_payinsubamt.value = 0;
			}
		} else if(uncocd == "V33"){
			opt_addamt.enable = true;
			output2.enable = true;
			//opt_pkgamt.enable = true;
			opt_psnpkgamt.enable = true;
			opt_cmpypkgamt.enable = true;
			ipt_paycmpyamt.enable = false;
			ipt_payinsubamt.enable = false;
		} else {
			ipt_paycmpyamt.enable = false;
			ipt_payinsubamt.enable = false;
			opt_addamt.enable = false;
			output2.enable = false;
			//opt_pkgamt.enable = false;
			opt_psnpkgamt.enable = false;
			opt_cmpypkgamt.enable = false;
		}
//	}
}

//업체와 공단미수금액을 변경시 미수금액을 자동 세팅시킴
function fSetUncoAmt(btn_name){
	var uncocd = cmb_pkguncocd.value;
	var pkgamt = parseInt(opt_pkgamt.value) - parseInt(opt_discamt.value);
	var paycmpyamt = parseInt(ds_main_info_rsrvacptinfo_item.getColumn(0,"paycmpyamt"));
	var payinsubamt = parseInt(ds_main_info_rsrvacptinfo_item.getColumn(0,"payinsubamt"));
	if(uncocd == 'V14'){
		if(btn_name=="ipt_paycmpyamt"){
			ipt_payinsubamt.value = parseInt(pkgamt) - parseInt(paycmpyamt); 
		}else if(btn_name=="ipt_payinsubamt"){
			ipt_paycmpyamt.value  = parseInt(pkgamt) - parseInt(payinsubamt);
		}
	}
}]]></Script>