YNU_JEUS/app_home/himed/webapps/ast/healexamweb/js/AHA001.js

/************************************************************************************************
@(#)AHA001.js
@author 	: 손주연
@version 	: 2007-04-18
@desc		: 건진업무에서 사용하는 공용함수 관리
*************************************************************************************************/

/************************************************************************************************
**fMoveFocus
@author 	: 손주연
@version 	: 2007-04-18
@desc		: enter key입력시  특정 control로 focus 이동
*************************************************************************************************/
	function fMoveFocus(vCtrlID){
			if( event.keyCode == 13 ) {
				if( vCtrlID != "" ) model.setFocus(vCtrlID);
			}
	}

/************************************************************************************************
**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 =  getScreenMenuParameter();
		var sFlagLen = parseInt(sFlag.length);
		
		//한자리 이하 인경우 ==> 건진장소구분(K,S)로 구분
		if(sFlagLen <= 1){
			if(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 =  getScreenMenuParameter() ;

		var sFlagLen = parseInt(sFlag.length);
		// 한자리 이하 인경우 ==> 건진장소구분(K,S)로 구분
		if(sFlagLen <= 1) {
			if(  sFlag == "" ) {
				sFlag = "C01";
			} else {
				sFlag=sFlag +'01';
			}
		}else { // 한자리 초과인경우 => 건진상세구분 (CXX ,GXX)로 구분
			sFlag = sFlag
		}		
		return sFlag ;

	}

/**
*	기관코드 및 사업체코드가져오기======================================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 기관코드 및 사업체코드가져오기
@param 	:
				*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할 목적노드
*/
	function fGetComnCd(vOpenerID, vFlag , vCond, vCdnm , vDesXPathCd , vDesXPathNm ){
		clearParameter("SPAHA00500_PARAM1");
		clearParameter("SPAHA00500_PARAM2");
		clearParameter("SPAHA00500_PARAM3");
		clearParameter("SPAHA00500_PARAM4");
		clearParameter("SPAHA00500_PARAM5");
		clearParameter("SPAHA00500_PARAM6");
		clearParameter("SPAHA00500_PARAM7");

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

		modal("SPAHA00500");
	}

/**
* Node가 존재하지 않을 경우 make.======================================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: Node가 존재하지 않을 경우 make.
@param 	:
				* xPath : node XPath
				* bMake	: make 여부
@return 	: true/false (node 존재 여부 )
*/
  function fCheckNodeExist(xPath, bMake){
    var node = instance1.selectSingleNode(xPath);
		if(node == null){
		  if(bMake == true){
		    model.makeNode(xPath);
		    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){
		clearParameter("SPAHA00400_PARAM1");
		clearParameter("SPAHA00400_PARAM2");
		clearParameter("SPAHA00400_PARAM3");
		clearParameter("SPAHA00400_PARAM4");
		clearParameter("SPAHA00400_PARAM5");
		clearParameter("SPAHA00400_PARAM6");
		clearParameter("SPAHA00400_PARAM7");
		clearParameter("SPAHA00400_PARAM8");
		clearParameter("SPAHA00400_PARAM9");
		clearParameter("SPAHA00400_PARAM10");
		clearParameter("SPAHA00400_PARAM11");
		clearParameter("SPAHA00400_PARAM12");		
		clearParameter("SPAHA00400_PARAM13");

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

/**
* 환자인적사항저장=====================================================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 환자인적사항저장
@param 	  :
            * vPidYN : 등록번호생성여부
*/
	function fSavePatInfo(vPidYN){
		if(fCheckPatInfo() == false) return;
		fCheckNodeExist("/root/main/info/patinfo/item/pidcretfg", true);
		model.removenode("/root/send/save");
		model.makeNode("/root/send/save");

		model.setValue("/root/main/info/patinfo/item/pidcretfg", vPidYN);
		model.copyNode("/root/send/save", "/root/main/info/patinfo/item");

		fCheckNodeExist("/root/send/save/userid", true);
		fCheckNodeExist("/root/send/save/instcd", true);
		model.setValue("/root/send/save/userid", getUserId());
		model.setValue("/root/send/save/instcd", getUserInfo("dutplceinstcd"));
		model.makeNode("/root/send/save/healexamdetlflag");
		model.setValue("/root/send/save/healexamdetlflag", model.getValue("/root/send/srchhealexamflag"));
		model.makeNode("/root/send/save/zipcdaddr");
		model.setValue("/root/send/save/zipcdaddr", model.getValue("/root/main/info/patinfo/item/addr1"));
		model.makeNode("/root/send/save/builno");		
		model.setValue("/root/send/save/builno", model.getValue("/root/temp/address/builno"));
		//openLoadingBar("건진자 인적사항 저장  중입니다.."); //처리중 화면을 오픈한다.
		submit("TXAHA00101");
		//closeLoadingBar() ;//처리중 화면을 close한다.
	}

/**
*  건진자인적사항 내용 check.==========================================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 건진자인적사항 내용 check
@param 	:
*/
  function fCheckPatInfo(vFrom){
    if(vFrom=="1"){
			/**
			*  필수항목 입력여부 check.
			*/
			var vTmp = ipt_pnm.currentText.getTrim(); //model.getValue("/root/main/info/patinfo/pnm");
			if(vTmp == ""){
				messageBox("성명을 ", "C001");
				model.setFocus("ipt_pnm");
				return false;
			}
			/**
			*  외국인일 경우 별도의 구분 없이 주민번호 뒷번호가 남/여, 5/6으로 처리.
			*/
			vTmp = ipt_rgstno1.currentText; //model.getValue("/root/main/info/patinfo/rgstno1");
			if(vTmp == ""){
				messageBox("주민번호를 ", "C001");
				model.setFous("ipt_rgstno1");
				return false;
			}
			vTmp = ipt_rgstno2.currentText; //model.getValue("/root/main/info/patinfo/rgstno2");
			if(vTmp == ""){
				messageBox("주민번호를 ", "C001");
				model.setFocus("ipt_rgstno2");
				return false;
			}
			return true;
		}else{
			return true;
		}
	}

/** ==========================================================================================================
* fCheckRgstNo
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 주민번호 유효여부 check
@param 	:
==========================================================================================================================*/
	function fCheckRgstNo(){
		var vTmp =  ipt_rgstno1.currentText  +   ipt_rgstno2.currentText  ;
		if( isResidentNo(vTmp) == false ){
			if( messageBox("유효하지 않은 주민번호 입니다. ", "Q003") == 6 ) {
				return true;
			}

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

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

/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 주민번호로 생년월일/성별/나이 기본 setting
@param 	:
* ==========================================================================================================*/
	function fSetBrthDD(){
		//if( ipt_brthdd.value != "" ) return ;
		var vrgstno1 = ipt_rgstno1.currentText;
		var vrgstno2 = ipt_rgstno2.currentText;
		var vSex	 = vrgstno2.substr( 0, 1) ;
		var vBrthdd	 = "";
		if( ( vSex == 3 ) || (vSex == 4) ) {
			vBrthdd     = "20" + vrgstno1;
		}
		else {
			vBrthdd     = "19" + vrgstno1;
		}
		ipt_brthdd.value = vBrthdd;
		opt_sex.value = getGender(vrgstno1+ vrgstno2);
		opt_age.value = getFullAge(vrgstno1+ vrgstno2);

	}

	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] = eval(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 == eval(last)) {
			return true;
		} else {
			return false;
		}
	}


/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@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       = model.getValue("/root/main/info/rsrvacptinfo/item/choiflag");
    switch(vMode){
      case 0: vCond = "pnm";
        break;
      case 1: vCond = "rgstno";
        if(fCheckRgstNo() == false){
          ipt_rgstno1.value = "";
          ipt_rgstno2.value = "";
          return ;
        }
        break;
      case 2: vCond = "pid";
        break;
      default : vCond = "hid";
        break;
    }

		model.removeNodeSet("/root/send/save");
		model.makeNode("/root/send/save");
		fCheckNodeExist("/root/send/srchcond"			    , true );
		fCheckNodeExist("/root/send/srchinstcd"	      , true );
		fCheckNodeExist("/root/send/srchhealexampid"  , true );
		fCheckNodeExist("/root/send/srchrgstno1"		  , true );
		fCheckNodeExist("/root/send/srchrgstno2"		  , true );
		fCheckNodeExist("/root/send/srchpid"				  , true );
		fCheckNodeExist("/root/send/srchpnm"			    , true );

		model.setValue("/root/send/srchcond"				  , vCond);
		model.setValue("/root/send/srchinstcd"				, getUserInfo("dutplceinstcd"));
		if(vCond == "pnm"){
			model.setValue("/root/send/srchpnm"					, ipt_pnm.currentText);
		}else if(vCond == "pid"){
			model.setValue("/root/send/srchpid"					, ipt_pid.currentText);
		}else if(vCond == "rgstno"){
			model.setValue("/root/send/srchrgstno1"			, ipt_rgstno1.currentText);
			model.setValue("/root/send/srchrgstno2"			, ipt_rgstno2.currentText);
		}else{
			model.setValue("/root/send/srchhealexampid"	, model.getValue("/root/main/info/patinfo/item/healexampid"));
		}
		fCheckNodeExist("/root/temp/patinfo/item", true);
		model.resetInstanceNode("/root/temp/patinfo/item");

		submit("TRAHA00101", false);

		//node clear현상때문임...
		var tmpnode = model.instance1.selectSingleNode("/root/temp/patinfo/item/pid");
    if(tmpnode != null){
      model.copyNode("/root/main/info/patinfo/item", "/root/temp/patinfo/item");
      model.makeValue("/root/main/info/rsrvacptinfo/item/choiflag", vChoiFlag);
      ipt_pid.disabled = true;
		}else{
      model.makeValue("/root/main/info/rsrvacptinfo/item/choiflag", vChoiFlag);
		}
		model.refresh();
	}
	
	function fGetPatInfo2(vMode ){
		var vCond = "";
		switch( vMode ){
			case 0: vCond = "pnm";
			break;
			case 1: vCond = "rgstno";
						if( fCheckRgstNo() == false ){
							ipt_rgstno1.value = "";
							ipt_rgstno2.value = "";
							return ;
						}
			break;
			case 2: vCond = "pid";
			break;
			default : vCond = "hid";
			break;
		}
		model.removeNodeSet("/root/send/save");
		model.makeNode("/root/send/save");
		fCheckNodeExist("/root/send/srchcond"			, true );
		fCheckNodeExist("/root/send/srchpnm"			, true );
		fCheckNodeExist("/root/send/srchpid"				, true );
		fCheckNodeExist("/root/send/srchrgstno1"		, true );
		fCheckNodeExist("/root/send/srchrgstno2"		, true );
		fCheckNodeExist("/root/send/srchhealexampid", true );
		fCheckNodeExist("/root/send/srchinstcd"	    , true );

		model.setValue("/root/send/srchcond"				, vCond);
		if( vCond == "pnm") {
			model.setValue("/root/send/srchpnm"					, ipt_pnm.currentText );
		}
		else
		if( vCond == "pid") {
			model.setValue("/root/send/srchpid"					, model.getValue("/root/send/healexampid"));
		}
		else
		if( vCond == "rgstno") {
			model.setValue("/root/send/srchrgstno1"			, ipt_rgstno1.currentText );
			model.setValue("/root/send/srchrgstno2"			, ipt_rgstno2.currentText );
		}
		else {
			model.setValue("/root/send/srchhealexampid"	, model.getValue("/root/main/info/patinfo/item/healexampid"));
		}
		model.setValue("/root/send/srchinstcd"				, getUserInfo("dutplceinstcd"));

		fCheckNodeExist("/root/temp/patinfo/item", true);
		model.resetInstanceNode("/root/temp/patinfo/item");

		submit("TRAHA00101") ;
		//node clear현상때문임...
		var  tmpnode = model.instance1.selectSingleNode("/root/temp/patinfo/item/pid");
		if( tmpnode != null ){
			model.copyNode("/root/main/info/patinfo/item", "/root/temp/patinfo/item");
		}
		else {
			//model.resetInstanceNode("/root/main/info/patinfo/item");
		}
		model.refresh();
	}
	
	function setPkgInfo(){
    
	}

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

		fCheckNodeExist(vDestXPath							      , true );
		fCheckNodeExist("/root/send/srchcond"         , true );
		fCheckNodeExist("/root/send/srchpnm"          , true );
		fCheckNodeExist("/root/send/srchpid"          , true );
		fCheckNodeExist("/root/send/srchrgstno1"      , true );
		fCheckNodeExist("/root/send/srchrgstno2"      , true );
		fCheckNodeExist("/root/send/srchhealexampid"  , true );
		fCheckNodeExist("/root/send/srchinstcd"       , true );

		model.setValue("/root/send/srchcond"					, vCond);
		if( vCond == "pnm") {
			model.setValue("/root/send/srchpnm"					, vCond1);
		}else if( vCond == "pid") {
			model.setValue("/root/send/srchpid"					,vCond1);
		}else if( vCond == "rgstno") {
			model.setValue("/root/send/srchrgstno1"			, vCond1 );
			model.setValue("/root/send/srchrgstno2"			, vCond2 );
		}else{
			model.setValue("/root/send/srchhealexampid"	, vCond1 );
		}
		model.setValue("/root/send/srchinstcd"				, getUserInfo("dutplceinstcd"));

		fCheckNodeExist("/root/temp/patinfo/item", true);

		model.resetInstanceNode("/root/temp/patinfo/item");
		var ret  = submit("TRAHA00101") ;
		if( ret == false ) return false;

		//node clear현상때문임...
		var tmpnode = model.instance1.selectSingleNode("/root/temp/patinfo/item/pid");
		if( tmpnode != null ){
			model.copyNode(vDestXPath, "/root/temp/patinfo/item");
			return true ;
		}

		return false;
	}

/** ==========================================================================================================
@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){
		//var node = instance1.selectSingleNode("/root/main/info/histlst/item");
		model.removeNodeset("/root/main/info/histlst/item");

		if( vPid == ""  ) return ;

		var vhf = "";
		if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")==""){
			vhf = fGetHealExamFlag();
		}else{
			vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
		}
		model.setValue("/root/send/srchhealexamflag"			, vhf);
		model.setValue("/root/send/srchhealexamdetlflag"		, cmb_healexamdetlflag.value );
		model.setValue("/root/send/srchinstcd"					, getUserInfo("dutplceinstcd"));
		model.setValue("/root/send/srchpid"						, vPid);

		submit("TRAHA00106");
	}

/** ==========================================================================================================
@author 	: 김호익
@version 	: 2007-11-15
@desc 		: 검진페키지 상세조회(예약/접수)
@param 	:
				*  vPkgCd : 패키지 코드
* ==========================================================================================================*/
	function ahafGetPkgDetlList(vPkgCd){
		if( vPkgCd == ""  ){
			messageBox("선택된 패키지가 없습니다.", "E999");
			return ;
		}
		model.makeValue("/root/send/PkgCd" , vPkgCd);
		model.makeValue("/root/send/cmpycd" , model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd"));
		model.makeValue("/root/send/conseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conseq"));
		model.makeValue("/root/send/conhistseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq"));

		submit("TRAHA00113");
	}

	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);

	}


/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 건진자별 건진이력조회
@param 	:
				*  vPid : 등록번호
* ==========================================================================================================*/
	function ahafGetHistList2(vPid, vHealExamDetlFlag , vStatFlag){
		//var node = instance1.selectSingleNode("/root/main/info/histlst/item");
		model.removeNodeset("/root/main/info/histlst/item");

		if( vPid == ""  ) return ;


		model.setValue("/root/send/srchhealexamflag"			, vHealExamDetlFlag.substr(0,1));
		model.setValue("/root/send/srchhealexamdetlflag"		, vHealExamDetlFlag );
		model.setValue("/root/send/srchinstcd"						, getUserInfo("dutplceinstcd"));
		model.setValue("/root/send/srchpid"							, vPid);
		model.setValue("/root/send/srchstatflag"					, vStatFlag);

		submit("TRAHA00106");
	}


/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 패키지 상세내역조회
@param 	:
				* sPkgcd 	: 패키지코드
				* sPkgnm	: 패키지명
				* sSex		: 건진자 성별
				* sCmpycd	: 단체코드
				* iConseq		: 계약번호
				* iConHistseq		: 계약이력번호
* ==========================================================================================================*/
	function  fGetConAddList(sPkgcd, sPkgnm, sSex, sCmpycd, iConseq,iConHistseq ){
		model.removeNodeset("/root/temp/pkgtestcdlst");

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

		model.setValue("/root/send/srchinstcd"		, getUserInfo("dutplceinstcd") );
		model.setValue("/root/send/srchpkgcd"			, sPkgcd);
		var vhf = "";
		if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")=="")
		{
			vhf = fGetHealExamFlag();
		} else {
			vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
		}

		model.setValue("/root/send/srchhealexamflag", vhf);
		model.setValue("/root/send/srchcmpycd"		, sCmpycd);
		model.setValue("/root/send/srchconseq"		, iConseq  );
		model.makeNode("/root/send/srchconhistseq"	);
		model.setValue("/root/send/srchconhistseq"	, iConHistseq  );
		model.setValue("/root/send/srchsex"				, sSex );
		model.makeValue("/root/send/srchage"			, ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1"),model.getValue("/root/main/info/patinfo/item/rgstno2")));
		
		//2015/10/22 이정택 수정
		model.makeValue("/root/send/forgneryn",		model.getValue("/root/main/info/patinfo/item/forgneryn"));
		model.makeValue("/root/send/agencyrate",	model.getValue("/root/main/info/rsrvacptinfo/item/agencyrate"));
		//2015/10/22 이정택 수정		
		
		submit("TRAHA00107",false);
		copyNodeListType("/root/temp2","/root/main/info/rsrvacptinfo/addlst");
		//copyNodeListType("/root/temp2","/root/main/info/rsrvacptinfo/addlst[testflag='A']");
		var node = instance1.selectSingleNode("/root/temp/pkgtestcdlst/addlst");
		if( node != null ){
			var i = grd_addlst.rows;
			model.removeNodeset("/root/main/info/rsrvacptinfo/addlst");
			copyNodeListType("/root/main/info/rsrvacptinfo", "/root/temp/pkgtestcdlst/addlst", "after");
			if(model.getValue("/root/temp2/addlst/testcd") != ""){
				copyNodesetType("/root/main/info/rsrvacptinfo/addlst" , "/root/temp2/addlst","after");
			}
			var cnt = getNodesetCount("/root/temp/pkgtestcdlst") + i;
			//model.refresh();
			for( ; i < cnt ; i++) {
				grd_addlst.addStatus(i,"insert");
			}
		}else{
			model.removeNodeset("/root/main/info/rsrvacptinfo/addlst");
			if(model.getValue("/root/temp2/addlst/testcd") != ""){
				copyNodeListType("/root/main/info/rsrvacptinfo" , "/root/temp2/addlst","after");
			}
		}
	}

/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 예약접수 상세내역조회
@param 	:
				* vMode 	: 리스트 구분
* ==========================================================================================================*/
  function ahafGetRsrvAcptDetl(vMode){
		fInitInfo();  // 오른쪽 정보들 초기화 및 기본 값 셋팅
		var vXpath = "";
		var idx = -1;
		switch(vMode){
			case 1:
				vXpath = "/root/main/list/rsrvlst[";
				idx = grd_rsrvlst.row;
				break;
			case 2:
				vXpath = "/root/main/list/rsrvlst[";
				idx = grd_rsrventlst.row;
				break;
			case 3:
				vXpath = "/root/main/list/acptlst[";
				idx = grd_acptlst.row;
				break;
			case 4:
				vXpath = "/root/main/list/cncllst[";
				idx = grd_cncllst.row;
				break;
			case 5: //일반건진 2차대상자 리스트
				vXpath = "/root/main/list/sndlst[";
				idx = grd_sndlst.row;
				break;
			case 6 : //건진이력
				vXpath = "/root/main/info/histlst/item[";
        	//idx = grd_sndlst.row;
			idx = grd_hist.row;
			break;
			default:
				messageBox("인자가 잘못되었습니다", "E999");
				return ;
				break;
		}

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

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

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

/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 예약/접수 상세내역 조회
@param 	  :
    				* vRsrvdd 	: 예약등록일자
    				* vRsrvno 	: 예약번호
@return 	: 건진상세내역
* ==========================================================================================================*/
	function ahafGetRsrvAcpDetltInfo(vRsrvdd, vRsrvno , vStatFlag , vPid){
		if((vRsrvdd == "") ||  (vRsrvno == "")) return ;

		fCheckNodeExist("/root/send/srchhealexamflag" 	, true );
		fCheckNodeExist("/root/send/srchrsrvdd"			  	, true );
		fCheckNodeExist("/root/send/srchrsrvno"			  	, true );
		fCheckNodeExist("/root/send/srchinstcd"			  	, true );
		fCheckNodeExist("/root/send/scrnnm"			  			, true );

		var vhf = "";
		if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag") == ""){
			vhf = fGetHealExamFlag();
		}else{
			vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
		}
		model.setValue("/root/send/srchhealexamflag", vhf);

		model.setValue("/root/send/srchrsrvdd"			, vRsrvdd);
		model.setValue("/root/send/srchrsrvno"			, vRsrvno);
		model.setValue("/root/send/srchinstcd"			, getUserInfo("dutplceinstcd") );
		model.setValue("/root/send/scrnnm"					, vStatFlag == "A" && vPid == "0" ? "internet":"" );
    //model.makeValue("/root/send/srchage"      , ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1"), model.getValue("/root/main/info/patinfo/item/rgstno2")));

		model.resetInstanceNode("/root/main/info/patinfo/item");
		model.resetInstanceNode("/root/main/info/rsrvacptinfo/item");

		model.resetInstanceNode("/root/temp/info/rsrvacptinfo");
		model.resetInstanceNode("/root/temp/info/patinfo");

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

		if(submit("TRAHA00102", false) != true){
			return;
		}
		
		 var i = 0;
		//node clear현상때문임..

		// 건진정보
		var tmpnode = instance1.selectSingleNode("/root/temp/info/rsrvacptinfo");
		if(tmpnode != null){
			model.copyNode("/root/main/info/rsrvacptinfo/item", "/root/temp/info/rsrvacptinfo");
		}
		//건진장소 확인
		//건진자의 건진장소 구분이 없으면 Default 셋팅된 건진장소 구분을 등록
		var patPlacecd = model.getValue("/root/main/info/rsrvacptinfo/item/healexamplacecd");
		var defaultPlacecd = model.getValue("/root/init/place/healexamplacecd");
		model.setValue("/root/main/info/rsrvacptinfo/item/healexamplacecd", patPlacecd == "" ? defaultPlacecd :patPlacecd)

		//추가검사내역
		model.removeNodeset("/root/main/info/rsrvacptinfo/addlst");
		var nodelst = instance1.selectNodes("/root/temp/info/addlst");
		
		// 2008-06-11 이성인
		//.refresh() 의 존재 이유를 모르기 때문에 일단 주석처리 -> 테스트 해본바 잘못된거 없는거 같음
		//model.refresh();
		if(nodelst.length > 0){
			for(i=0; i<nodelst.length; i++){
				model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i));
			}
		}

		//1차판정내역
		//model.removeNodeset("/root/main/info/judgone");
		var nodelst = getNodesetCount("/root/temp/info/judgone");
		copyNodesetType("root/main/info/judgone", "root/temp/info/judgone", "replace");
		/*		
		for (i = 0; i <= nodelst; i++){
				model.setValue("/root/main/info/judgone/judgcd"       , model.getValue("/root/temp/info/judgone["+i+"]/judgcd"));
				model.setValue("/root/main/info/judgone/judgdetlcd"   , model.getValue("/root/temp/info/judgone["+i+"]/judgdetlcd"));
				model.setValue("/root/main/info/judgone/etcdetlnm"    ,	model.getValue("/root/temp/info/judgone["+i+"]/etcdetlnm"));
				model.setValue("/root/main/info/judgone/dulppkgcd"    ,	model.getValue("/root/temp/info/judgone["+i+"]/dulppkgcd"));
		}
		*/

		//추가패키지내역
		nodelst = instance1.selectNodes("/root/temp/info/pkglst");
		model.removeNodeset("/root/main/info/rsrvacptinfo/pkglst");
		// 2008-06-11 이성인
		//.refresh() 의 존재 이유를 모르기 때문에 일단 주석처리 -> 테스트 해본바 잘못된거 없는거 같음
		//model.refresh();
		if(nodelst.length > 0){
			for(i=0; i<nodelst.length; i++){
				model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i));
			}
		}

		copyNodesetType("root/send/selpkgexam","root/main/info/rsrvacptinfo/addlst","replace");//일반검진 추가검사

		//태그정보
		var tagNode = instance1.selectSingleNode("/root/temp/info/taginfo");
		btn_tag.attribute("text") = "태그지급";

		if(tagNode != null){
			copyNodesetType("/root/main/info/taginfo", "/root/temp/info/taginfo", "replace");
			var suppStat = model.getValue("/root/main/info/taginfo/suppstat");
			if("0" == suppStat){
				btn_tag.attribute("text") = "태그반납";
				ipt_tagno.disabled = true;
			}
		}
		
		//결과상담 예약리스트
		model.resetInstanceNode("/root/main/info/rsltcnstinfo/choicnst");
		copyNodesetType("/root/main/info/rsltcnstinfo/cnstlst/cnst", "/root/temp/info/cnst", "replace");
		if(model.getValue("/root/main/info/rsltcnstinfo/choicnst/outexamyn") == ""){
			model.makeValue("/root/main/info/rsltcnstinfo/choicnst/outexamyn", "N");
		}

		//환자정보
		tmpnode = instance1.selectSingleNode("/root/temp/info/patinfo");
		if( tmpnode != null){
			model.copyNode("/root/main/info/patinfo/item", "/root/temp/info/patinfo");
			ipt_pid.disabled = true;
		}

		//할인액 정보
		if(model.getValue("/root/main/info/rsrvacptinfo/item/disccd")!="-"){
			var nname = model.getValue("/root/main/info/rsrvacptinfo/item/disccd");
			var ncount = getNodesetCount("/root/init/baseinfo/pamcdlst/disccdlst");

			for(var i=0; i<ncount; i++){
				if(nname == model.getValue("/root/init/baseinfo/pamcdlst/disccdlst["+i+"]/cd")){
					model.makeValue("/root/main/info/rsrvacptinfo/item/dcamt", model.getValue("/root/init/baseinfo/pamcdlst/disccdlst["+i+"]/dcamt"));
					model.makeValue("/root/main/info/rsrvacptinfo/item/adddcamt", model.getValue("/root/init/baseinfo/pamcdlst/disccdlst["+i+"]/adddcamt"));
				}
			}
		}

		//수납정보
		tmpnode = instance1.selectSingleNode("/root/temp/info/opmi_out");
		if(tmpnode != null){
			model.makeNode("/root/main/info/rcptinfo/pkgamt");
			model.makeNode("/root/main/info/rcptinfo/addamt");
			model.makeNode("/root/main/info/rcptinfo/subtotamt");
			model.makeNode("/root/main/info/rcptinfo/preamt");
			model.makeNode("/root/main/info/rcptinfo/discamt");
			model.makeNode("/root/main/info/rcptinfo/uncoamt");
			model.makeNode("/root/main/info/rcptinfo/realamt");

			tmpnode = instance1.selectSingleNode("/root/temp/info/opmi_out/opmi_discamt");

			if(tmpnode!=null){
				model.setValue("/root/main/info/rcptinfo/pkgamt"		    			, model.getValue("/root/temp/info/opmi_out/opmi_baseexamamt"));
				model.setValue("/root/main/info/rcptinfo/addamt"		    			, model.getValue("/root/temp/info/opmi_out/opmi_addexamamt"));
				model.setValue("/root/main/info/rcptinfo/subtotamt"	    				, model.getValue("/root/temp/info/opmi_out/opmi_totamt"));
				model.setValue("/root/main/info/rcptinfo/preamt"		    			, model.getValue("/root/temp/info/opmi_out/opmi_mdlrcptamt"));
				model.makeNode("root/temp/info/opmi_out/opmi_discamt");
				model.setValue("/root/main/info/rcptinfo/discamt"		    			, model.getValue("/root/temp/info/opmi_out/opmi_discamt"));
				model.makeValue("/root/temp/discamt"									, model.getValue("/root/temp/info/opmi_out/opmi_discamt"));
				model.makeValue("/root/main/info/rcptinfo/uncoamt"		  				, model.getValue("/root/temp/info/opmi_out/opmi_restamt"));
				model.makeValue("/root/main/info/rcptinfo/realamt"		  				, model.getValue("/root/temp/info/opmi_out/opmi_rcptamt"));
				
				
			}
			model.makeValue("/root/temp/rcptCheck","true");			//수납된 내역 체크
		}else{
			model.makeValue("/root/send/srchcmpycd"       , model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd"));
			model.makeValue("/root/send/srchconseq"       ,	model.getValue("/root/main/info/rsrvacptinfo/item/conseq"));
			model.makeValue("/root/send/srchconhistseq"   , model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq"));
			model.makeValue("/root/send/srchsex"          , model.getValue("/root/main/info/patinfo/item/sex"));
			model.makeValue("/root/send/srchpkgcd"        , model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd"));
			model.makeValue("/root/send/srchpid"          ,	model.getValue("/root/main/info/patinfo/item/pid"));
			model.makeValue("/root/send/srchage"          , ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1"), model.getValue("/root/main/info/patinfo/item/rgstno2")));

			//2015/10/26 이정택 추가
			model.makeValue("/root/send/forgneryn"        ,	model.getValue("/root/main/info/patinfo/item/forgneryn"));
			//2015/10/26 이정택 추가
			
			//선수금(RCPTFLAG - P, R / 패키지 금액(할인 포함)/ 수납 내역 조회
			submit("TXAHA00903", false);
			model.makeValue("/root/main/info/rcptinfo/pkgamt"       ,	model.getValue("/root/main/info/rcptinfo/rcptinfo/pkgamt"));
			model.makeValue("/root/main/info/rcptinfo/discamt"      , model.getValue("/root/main/info/rcptinfo/rcptinfo/discamt"));
			model.makeValue("/root/temp/discamt"                    ,	model.getValue("/root/main/info/rcptinfo/rcptinfo/discamt"));
			model.makeValue("/root/main/info/rcptinfo/subtotamt"    , model.getValue("/root/main/info/rcptinfo/rcptinfo/subtotamt"));

			if((model.getValue("/root/main/info/rcptinfo/preamt") == "") || (model.getValue("/root/main/info/rcptinfo/preamt") == "0")){
				model.makeValue("/root/main/info/rcptinfo/preamt", model.getValue("/root/main/info/rcptinfo/rcptinfo/cashamt"));
			}

			if(instance1.selectSingleNode("/root/main/info/rcptinfo/addamt") == null){
				model.makeValue("/root/main/info/rcptinfo/rcptinfo/addamt", "0");
			}
			
			model.makeValue("/root/main/info/rcptinfo/addamt", model.getValue("/root/main/info/rcptinfo/rcptinfo/addamt"));
			if(model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag") == "Y" && isNull(model.getValue("/root/main/info/rsrvacptinfo/item/pkguncocd"))){
				model.makeValue("/root/main/info/rsrvacptinfo/item/pkguncocd", model.getValue("/root/main/info/rcptinfo/rcptinfo/pkguncocd"));
			}else{
				model.makeValue("/root/main/info/rcptinfo/realamt", model.getValue("/root/main/info/rcptinfo/rcptinfo/subtotamt"));
			}
			model.makeValue("/root/temp/rcptCheck", "false");   //수납된 내역 체크
		}

		//화면상단정보 설정
		var sPid      = model.getValue("/root/main/info/rsrvacptinfo/item/pid");
		var sOrddd 		= model.getValue("/root/main/info/rsrvacptinfo/item/orddd");
		var iCretno 	= model.getValue("/root/main/info/rsrvacptinfo/item/cretno");
		var statflag	= model.getValue("/root/main/info/rsrvacptinfo/item/statflag");
		if((sPid != "") && (sOrddd != "") && (iCretno != "") && (iCretno != "0")){
//		if(statflag != "" && statflag != "A" && statflag != "B" && statflag != "C" && statflag != "D"){
			ahafSetScreenTopPatInfo(sPid, sOrddd, iCretno); // 환자 상단정보 세팅
//		}
		}

		fDcAmtCalc();
		fSetBtnStat();		 // 권한에 따른 버튼 설정
		
		if(model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag")== "Y" && isNull(model.getValue("/root/main/info/rsrvacptinfo/item/pkguncocd"))){
			model.makeValue("/root/main/info/rsrvacptinfo/item/pkguncocd","V02");
		}
		
		// 미수코드 에 따라서 공단부담금과 단체부담금 입력란을 제어(2017/02/13 이정택)
		fUncoSeparate();			
		// 미수코드 에 따라서 공단부담금과 단체부담금 입력란을 제어(2017/02/13 이정택)
		
		model.refresh();
	}

/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 예약/접수 상세내역 조회
@param 	:
				* vHealExamDetlFg 	: 건진상세구분 
				* vPid 						: 환자등록번호
@return 	: 건진상세내역
* ==========================================================================================================*/
	function ahafGetRsrvAcpDetltInfoWithPid(vHealExamDetlFg, vPid){
		if((vHealExamDetlFg == "") || (vPid == "")) return ;

		fCheckNodeExist("/root/send/srchhealexamflag" 		, true );
		fCheckNodeExist("/root/send/srchhealexamdetlflag"	, true );
		fCheckNodeExist("/root/send/srchhealexampid"			, true );
		fCheckNodeExist("/root/send/srchinstcd"			  		, true );
		fCheckNodeExist("/root/send/srchrsrvdd"			  		, true );
		fCheckNodeExist("/root/send/srchrsrvno"			  		, true );

		var vhf = "";
		if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")==""){
			vhf = fGetHealExamFlag();
		}else{
			vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
		}

		model.setValue("/root/send/srchhealexamflag"		  , vhf);
		model.setValue("/root/send/srchhealexamdetlflag"	, vHealExamDetlFg);
		model.setValue("/root/send/srchhealexampid"		    , vPid);
		model.setValue("/root/send/srchinstcd"					  , getUserInfo("dutplceinstcd"));
		model.setValue("/root/send/srchrsrvdd"			  		, "");
		model.setValue("/root/send/srchrsrvno"			  		, "");

		//model.resetInstanceNode("/root/main/info/patinfo/item");
		//접수정보 초기화...
		//fInitRsrvAcptInfo();

		/*
		model.makeValue("/root/main/info/rsrvacptinfo/item/cmpycd",model.getValue("/root/main/info/patinfo/item/cmpycd"))		;
		model.makeValue("/root/main/info/rsrvacptinfo/item/pkgcd",model.getValue("/root/main/info/patinfo/item/pkgcd"))		;
		model.makeValue("/root/main/info/rsrvacptinfo/item/conseq",model.getValue("/root/main/info/patinfo/item/conseq"))		;
		model.makeValue("/root/main/info/rsrvacptinfo/item/conhistseq",model.getValue("/root/main/info/patinfo/item/conhistseq"))		;

		if (model.getValue("/root/main/info/patinfo/item/cmpycd")!=""){
			model.makeValue("/root/main/info/rsrvacptinfo/item/cmpyflag","Y");
		}
		*/

		//해당 건진자의 년도 건진예약 내역 존재유무
		if(submit("TRAHA00111", false) != true ){
			if(model.getValue("/root/temp/rsrvacptkey/item1/linfo")!=""){
				var linfo = model.getValue("/root/temp/rsrvacptkey/item1/linfo");
				var temp = new Date().getYear();

				model.setValue("/root/main/info/rsrvacptinfo/item/latestpkginfo", model.getValue("/root/temp/rsrvacptkey/item1/linfo"));

				var chklatestpkginfo = model.getValue("/root/main/info/rsrvacptinfo/item/latestpkginfo");
//			if(linfo.indexOf(temp-1) !=-1)
				if(temp - parseInt(chklatestpkginfo.substr(0, 4)) <=1){
					//비자건진은 연속건진 없음 20081004 윤찬우 수정
					if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag") != "G02"){
						var rtn = messageBox("연속건진 할인을 사용 ", "S001") ;
						//6.예   7. 아니오  2.취소
						//6예이면 연속건진 할인을 사용하므로 할인계정에 셋팅
						if(rtn == 6){
						  model.setValue( cmb_disccd.attribute("ref")	,  "F71");
						  //messageBox("연속건진 대상자입니다   ", "E999") ;
						}
					}
				}
			}
			return ;
		}

		if(model.getValue("/root/temp/rsrvacptkey/item1/linfo")!=""){
			var linfo = model.getValue("/root/temp/rsrvacptkey/item1/linfo");
			var temp = new Date().getYear();

			model.setValue("/root/main/info/rsrvacptinfo/item/latestpkginfo", model.getValue("/root/temp/rsrvacptkey/item1/linfo"));
			var chklatestpkginfo = model.getValue("/root/main/info/rsrvacptinfo/item/latestpkginfo");
			//연속건진을 위해 수정 2008-05-29 이성인
//    if(linfo.indexOf(temp-1) !=-1)
			if(temp - parseInt(chklatestpkginfo.substr(0,4)) <=1 ){
			  //비자건진은 연속건진 없음 20081004 윤찬우 수정
				if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag") != "G02"){
					var rtn = messageBox("연속건진 할인을 사용   ", "S001") ;
					//6.예   7. 아니오  2.취소
					//6예이면 연속건진 할인을 사용하므로 할인계정에 셋팅
					if(rtn == 6){
					  model.setValue( cmb_disccd.attribute("ref")	,  "F71");
					}
				}
			}
		}
		setPkgInfo();

		var tmpnode = instance1.selectSingleNode("/root/temp/rsrvacptkey/item/rsrvdd");
		if(tmpnode == null){
			fSetBtnStat();
			return ;
		}
		//*Q005=조회 하시겠습니까?
		if(messageBox("당해년도의 예약내역이 존재합니다.", "Q005") != 6 ){
		  fSetBtnStat();
			return ;
		}else{

		}

		model.setValue("/root/send/srchrsrvdd", model.getValue("/root/temp/rsrvacptkey/rsrvdd") );
		model.setValue("/root/send/srchrsrvno", model.getValue("/root/temp/rsrvacptkey/rsrvno") );

		if(submit("TRAHA00102", false) != true){
			return;
		}

    var i = 0;
		//node clear현상때문임..
		tmpnode = instance1.selectSingleNode("/root/temp/info/rsrvacptinfo");
		if(tmpnode != null){
			model.copyNode("/root/main/info/rsrvacptinfo/item", "/root/temp/info/rsrvacptinfo");
		}

		var nodelst = instance1.selectNodes("/root/temp/info/addlst");
		if(nodelst.length > 0){
			for(i=0; i<nodelst.length; i++){
				model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i));
			}
		}

		nodelst = instance1.selectNodes("/root/temp/info/pkglst");
		if(nodelst.length > 0){
			for(i=0; i<nodelst.length; i++){
				model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i));
			}
		}

		/*
		tmpnode = instance1.selectSingleNode("/root/temp/info/patinfo");
		if( tmpnode != null){
			model.copyNode("/root/main/info/patinfo/item", "/root/temp/info/patinfo");
		}
		*/

		//화면상단정보 설정
		var sPid 		  = model.getValue("/root/main/info/rsrvacptinfo/item/pid");
		var sOrddd 		= model.getValue("/root/main/info/rsrvacptinfo/item/orddd");
		var iCretno 	= model.getValue("/root/main/info/rsrvacptinfo/item/cretno");
		var statflag	= model.getValue("/root/main/info/rsrvacptinfo/item/statflag");
		if((sPid != "") && (sOrddd != "") && (iCretno != "") && (iCretno != "0")){
//	  if(statflag != "" && statflag != "A" && statflag != "B" && statflag != "C" && statflag != "D"){
		    ahafSetScreenTopPatInfo(sPid, sOrddd, iCretno);
//	  }
		}

		fSetBtnStat();
		model.refresh();
	}


	//예약 시 문진표 자동출력
	function ahafGetRsrvAcpDetltInfoWithPid_R(vHealExamDetlFg, vPid){
		if((vHealExamDetlFg == "") || (vPid == "")) return;

		fCheckNodeExist("/root/send/srchhealexamflag" 		, true );
		fCheckNodeExist("/root/send/srchhealexamdetlflag"	, true );
		fCheckNodeExist("/root/send/srchhealexampid"			, true );
		fCheckNodeExist("/root/send/srchinstcd"			  		, true );
		fCheckNodeExist("/root/send/srchrsrvdd"			  		, true );
		fCheckNodeExist("/root/send/srchrsrvno"			  		, true );

		var vhf = "";
		if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag") == ""){
			vhf = fGetHealExamFlag();
		}else{
		  vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
		}
		model.setValue("/root/send/srchhealexamflag"		  , vhf);
		model.setValue("/root/send/srchhealexamdetlflag"	, vHealExamDetlFg);
		model.setValue("/root/send/srchhealexampid"		    , vPid);
		model.setValue("/root/send/srchinstcd"					  , getUserInfo("dutplceinstcd") );
		model.setValue("/root/send/srchrsrvdd"			  		, "" );
		model.setValue("/root/send/srchrsrvno"			  		, "" );

		//해당 건진자의 년도 건진예약 내역 존재유무
		if(submit("TRAHA00111",false) != true){
			if(model.getValue("/root/temp/rsrvacptkey/item1/linfo")!=""){
				var linfo = model.getValue("/root/temp/rsrvacptkey/item1/linfo");
				var temp  = new Date().getYear();
				model.setValue("/root/main/info/rsrvacptinfo/item/latestpkginfo", model.getValue("/root/temp/rsrvacptkey/item1/linfo"));
			}
			return ;
		}

		if(model.getValue("/root/temp/rsrvacptkey/item1/linfo") != ""){
			var linfo = model.getValue("/root/temp/rsrvacptkey/item1/linfo");
			var temp  = new Date().getYear();
			model.setValue("/root/main/info/rsrvacptinfo/item/latestpkginfo",model.getValue("/root/temp/rsrvacptkey/item1/linfo"));
		}
		setPkgInfo();
		model.setValue("/root/send/srchrsrvdd"	, model.getValue("/root/temp/rsrvacptkey/rsrvdd") );
		model.setValue("/root/send/srchrsrvno"	, model.getValue("/root/temp/rsrvacptkey/rsrvno") );

		if(submit("TRAHA00102", false) != true){
			return;
		}

    var i = 0;
		//node clear현상때문임..
		tmpnode = instance1.selectSingleNode("/root/temp/info/rsrvacptinfo");
		if(tmpnode != null){
			model.copyNode("/root/main/info/rsrvacptinfo/item", "/root/temp/info/rsrvacptinfo");
		}
		var nodelst = instance1.selectNodes("/root/temp/info/addlst");
		if(nodelst.length > 0){
			for(i=0; i<nodelst.length; i++){
				model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i));
      }
    }
		nodelst = instance1.selectNodes("/root/temp/info/pkglst");
		if(nodelst.length > 0){
		  for(i=0; i<nodelst.length; i++){
		    model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i));
		  }
    }
    model.refresh();
  }


/** ==========================================================================================================
@author 	: 손주연
@version 	: 2007-04-30
@desc 		: 주소 검색
@param 	:
@return 	:
* ==========================================================================================================*/

	function fSetAddr(vCond, vDestXPath) {
		fCheckNodeExist("/root/temp/addr/zipcd1"		, true);
		fCheckNodeExist("/root/temp/addr/zipcd2"		, true);
		fCheckNodeExist("/root/temp/addr/zipcdseq"	, true);
		fCheckNodeExist("/root/temp/addr/addr"			, true);

		zbcfOpenZipCodeList("combination", "", "/root/temp/addr/zipcd1",  "/root/temp/addr/zipcd2", "/root/temp/addr/zipcdseq", "/root/temp/addr/addr");
		var node =model.getValue("/root/temp/addr/zipcd1");
		if( node != "" ){
			model.makeValue( vDestXPath + "/zipcd" 		+ vCond + "1" 	,  model.getValue("/root/temp/addr/zipcd1") );
			model.makeValue( vDestXPath + "/zipcd" 		+ vCond + "2" 	,  model.getValue("/root/temp/addr/zipcd2") );
			model.makeValue( vDestXPath + "/zipcdseq" 	+ vCond  			,  model.getValue("/root/temp/addr/zipcdseq") );
			model.makeValue( vDestXPath + "/addr" 			+ vCond     		,  model.getValue("/root/temp/addr/addr") );
			model.setFocus("ipt_detladdr");
			model.refresh();
		}
	}

/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-06-30
@desc 		: 주소 검색
@param 	  :
            * vCond 			: 주소1,2구분.(발송주소관련)
            * vDestXPath	: 목적노드(주소가 입력될)
            * vSrchCond 	: 검색조건 ( 주소(‘address’),  동명/아파트명/건물명(‘combination’), 우편번호(‘zipcode’) )
            * vSrchCondNm : 조건명
@return 	: 주소상세내역
*====================================================================================================================*/
	function ahafSetAddr(vCond, vDestXPath, vSrchCond, vSrchCondNm) {
		model.resetInstanceNode("/root/temp/address");
		model.makeNode("/root/temp/address/zipcd1");
		model.makeNode("/root/temp/address/zipcd2");
		model.makeNode("/root/temp/address/zipcdseq");
		model.makeNode("/root/temp/address/addr");
		model.makeNode("/root/temp/address/detladdr1");
		model.makeNode("/root/temp/address/builno");		
		model.makeNode("/root/temp/address/gubuilnm");

		zbcfOpenZipCodeList(vSrchCond
										, vSrchCondNm
										, "/root/temp/address/zipcd1"
										, "/root/temp/address/zipcd2"
										, "/root/temp/address/zipcdseq"
										, "/root/temp/address/addr"
										, "hangul"
										, "/root/temp/address/detladdr1"
										, "/root/temp/address/builno"
										, "/root/temp/address/gubuilnm");
		var node = model.getValue("/root/temp/address/zipcd1");
		if( node != "" ){
			model.setValue( vDestXPath + "/zipcd" 		+ vCond + "1" 	,  model.getValue("/root/temp/address/zipcd1"));
			model.setValue( vDestXPath + "/zipcd" 		+ vCond + "2" 	,  model.getValue("/root/temp/address/zipcd2"));
			model.setValue( vDestXPath + "/zipcdseq" 	+ vCond  		,  model.getValue("/root/temp/address/zipcdseq"));
			model.setValue( vDestXPath + "/addr" 		+ vCond      	,  model.getValue("/root/temp/address/addr"));
			model.setValue( vDestXPath + "/detladdr" 	+ vCond      	,  model.getValue("/root/temp/address/detladdr1"));	
			model.setValue( vDestXPath + "/builno"      + vCond         ,  model.getValue("/root/temp/address/builno"));					
			model.makeValue( vDestXPath + "/detladdr"   + vCond         ,  model.getValue("/root/temp/address/gubuilnm"));
			if( vCond == "1" ) vCond = "";
			model.setFocus("ipt_detladdr" + vCond );
			model.refresh();
		}

		return "/root/temp/address";
	}

/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-06-30
@desc 		: Calendar관련 draw 공용 함수
@param 	:
@return 	:
*====================================================================================================================*/
	function initCalendar(){
		var curDate = getCurrentDate().toDate();
		model.setValue("/root/temp/calendar/year", curDate.getDateFormat('YYYY'));
		model.setValue("/root/temp/calendar/month", curDate.getDateFormat('MM'));
		model.refresh();

		setCalendar(curDate);
	}

	function setCalendar(dateObj) {
		model.removeNodeset("/root/temp/calendar/weeklist/list");     //그리드 초기화

		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++){
			grd_calendar.addRow(false);
    }
		grd_calendar.rebuild();

		var rowIndex = grd_calendar.fixedRows;
		var colIndex = startDay;
		for(var i=1; i<=days; i++ ){
      grd_calendar.valueMatrix(rowIndex, colIndex) = i;
      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";
	}

/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-06-30
@desc 		: Calendar 선택한 일자 얻기
@param 	:
				* grdObj( calendar grid control )
@return 	: date (YYYYMMDD)
*====================================================================================================================*/
	function fGetCalendarDate(grdObj){
		var  cal_row = grdObj.row;
		var  cal_col  = grdObj.col;
		if( cal_col > 6) cal_col -= 7;
		var rsrvdd = "";
		 if( cal_row > 0 ){
			var dd = model.getValue( grdObj.nodeset + "[" + cal_row  + "]/" + grdObj.colAttribute( cal_col,"ref") ) ;
			if( dd.length  < 2 ) {
				dd = "0" + dd;
			}
			 rsrvdd =  model.getValue("/root/temp/calendar/year") + model.getValue("/root/temp/calendar/month") + dd  ;
		}
		return rsrvdd;
	}

/**==================================================================================================================
@author 	: 손주연
@version 	: 2007-06-30
@desc 		: Calendar    새로그리기
@param 	:
				* vDateFg : Y-년도, M-월
				* vIncrease : 증감(+/-)
@return 	: date (YYYYMMDD)
*====================================================================================================================*/
	function fHRefreshCalender(vDateFg, vIncrease){
		if( (vDateFg != "Y" ) && (vDateFg != "M") ) {
			return ;
		}

		var iTerm = parseInt(vIncrease);
		var isMonth = model.getValue("/root/temp/calendar/month");
		var isYear = model.getValue("/root/temp/calendar/year");
		var isDate = (isYear+isMonth+1).toDate().getAddDate(iTerm,vDateFg);

		model.setValue("/root/temp/calendar/year", isDate.getDateFormat('YYYY'));
		model.setValue("/root/temp/calendar/month", isDate.getDateFormat('MM'));
		model.refresh();

		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 ){
		clearParameter("SPAHB00200_PARAM1");
		clearParameter("SPAHB00200_PARAM2");
		clearParameter("SPAHB00200_PARAM3");
		clearParameter("SPAHB00200_PARAM4");
		clearParameter("SPAHB00200_PARAM5");
		clearParameter("SPAHB00200_PARAM6");


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


		modal("SPAHB00200");
	}
/**==================================================================================================================
@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 ){
		clearParameter("SPAHB00600_PARAM1");
		clearParameter("SPAHB00600_PARAM2");
		clearParameter("SPAHB00600_PARAM3");
		clearParameter("SPAHB00600_PARAM4");
		clearParameter("SPAHB00600_PARAM5");
		clearParameter("SPAHB00600_PARAM6");
		clearParameter("SPAHB00600_PARAM7");
		clearParameter("SPAHB00600_PARAM8");

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

		setParameter ("SPAHB00600_PARAM6", vjudgexmpcd);

		modal("SPAHB00600");
	}

/**==================================================================================================================
@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 ){
		clearParameter("SPAHA00200_PARAM1");
		clearParameter("SPAHA00200_PARAM2");
		clearParameter("SPAHA00200_PARAM3");
		clearParameter("SPAHA00200_PARAM4");
		clearParameter("SPAHA00200_PARAM5");
		clearParameter("SPAHA00200_PARAM6");
		clearParameter("SPAHA00200_PARAM7");
		clearParameter("SPAHA00200_PARAM8");
		clearParameter("SPAHA00200_PARAM9");
		clearParameter("SPAHA00200_PARAM10");
		clearParameter("SPAHA00200_PARAM11");
		clearParameter("SPAHA00200_PARAM12");
		clearParameter("SPAHA00200_PARAM13");
		clearParameter("SPAHA00200_PARAM14");
		clearParameter("SPAHA00200_PARAM15");
		
		//2015/10/21 이정택 추가(외국인 MOU요율관련)		
		clearParameter("SPAHA00200_PARAM16");

		setParameter ("SPAHA00200_PARAM1"		, vPkgFg);
		setParameter ("SPAHA00200_PARAM2"		, vCond);
		setParameter ("SPAHA00200_PARAM3"		, vCdnm);
		setParameter ("SPAHA00200_PARAM4"		, getUserInfo("dutplceinstcd"));   
		if(vHealExamDetlFlag!="G01"){
			setParameter ("SPAHA00200_PARAM5"		, fGetHealExamFlag() );
		} else {
			setParameter ("SPAHA00200_PARAM5"		, "G" );
		}
		setParameter ("SPAHA00200_PARAM6"		, vHealExamDetlFlag);
		setParameter ("SPAHA00200_PARAM7"		, vOpenerID);
		setParameter ("SPAHA00200_PARAM8"		, vSex);
		setParameter ("SPAHA00200_PARAM9"		, bMultiyn);
		setParameter ("SPAHA00200_PARAM10"	, vDestXPath);
		setParameter ("SPAHA00200_PARAM11"	, vSrchDisableYN);
		setParameter ("SPAHA00200_PARAM12"	, vFrom);
		setParameter ("SPAHA00200_PARAM13"	, vage);
		setParameter ("SPAHA00200_PARAM14"	, vbrthareacnts);
		setParameter ("SPAHA00200_PARAM15"	, vforgneryn);
		
		//2015/10/21 이정택 추가(외국인 MOU요율관련)
		setParameter ("SPAHA00200_PARAM16"	, vagencyrate);
		//2015/10/21 이정택 추가(외국인 MOU요율관련)		

		modal("SPAHA00200");
	}

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

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

		modal("SPAHA04012");
	}

/**==================================================================================================================
@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( model.getValue("/root/temp/okflag")  != "ok" ) return ;

		if( vGrdObj == null ) return ;
		if( vSrcXPath == "" ) return ;

		var cnt = getNodesetCount(vSrcXPath);
		var grdcnt  = vGrdObj.rows;
		var vTestcd = "";
		var vTestnm = "";
		var i = 0;

		if( vPkgYN == "Y" ){
			for(   i = 1 ; i <= cnt ; i++ ){
				vTestcd = model.getValue(vSrcXPath + "[" + i + "]/pkgcd" );
				vTestnm = model.getValue(vSrcXPath + "[" + i + "]/pkgnm" );
				if( vDupCheck == "Y" ) {
					if( fCheckDup(vGrdObj , vTestCdCol, vTestcd ) == false ){
						if( messageBox("중복되는 Pkg코드[" + vTestcd + " - " + vTestnm  +"] 를 추가 ", "S001") != 6 ){
							continue ;
						}
					}
				}
				var danga = model.getValue(vSrcXPath + "[" + i + "]/scoreamt" );
				
				/*
				단체 원단위 절사하지 않도록 주석처리
				if(model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag") == "Y") {
					danga = parseInt(parseFloat(danga)* 0.1)*10;
				}else {
					danga = danga;
				}*/

				vGrdObj.addRow();
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/sel");
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/sel" 				,  "Y" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/pkgcd" 			,  vTestcd );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/pkgnm"			,vTestnm );
				model.makeNode(vGrdObj.nodeset	+ "[" + grdcnt + "]/uncocd" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/uncocd" 	  	, "V03"  );
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/scoreamt" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/scoreamt" 	,danga);
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/addtotamt" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/addtotamt" 	,danga);
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscorcd" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscorcd" ,model.getValue(vSrcXPath + "[" + i + "]/calcscorcd" )  );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/testdiscyn" ,model.getValue(vSrcXPath + "[" + i + "]/testdiscyn" )  );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/gndrflag" ,model.getValue(vSrcXPath + "[" + i + "]/gndrflag" )  );

				grdcnt++;
			}
		}
		else {


			for(   i = 1 ; i <= cnt ; i++ ){
				vTestcd = model.getValue(vSrcXPath + "[" + i + "]/testcd" );
				vTestnm = model.getValue(vSrcXPath + "[" + i + "]/testnm" );
				if( vDupCheck == "Y" ) {
					if( fCheckDup(vGrdObj , vTestCdCol, vTestcd ) == false ){
						if( messageBox("중복되는 검사코드[" + vTestcd + " - " + vTestnm  +"] 를 추가 ", "S001") != 6 ){
							continue ;
						}
					}
				}

				var danga = model.getValue(vSrcXPath + "[" + i + "]/scoreamt" );
				
				/*
				단체 원단위 절사하지 않도록 주석처리
				if(model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag") == "Y") {
					danga = parseInt(parseFloat(danga)* 0.1)*10;
				}else {
					danga = danga;
				}*/

				vGrdObj.addRow();
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/sel");
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/sel" 				,  "Y" );
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/testflag");
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/testflag" 		,  "A" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/testcd" 			,  vTestcd );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/testnm"			,vTestnm );
				model.makeNode(vGrdObj.nodeset	+ "[" + grdcnt + "]/uncocd" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/uncocd" 	  	, "V01"  );
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/scoreamt" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/scoreamt" 	,danga  );
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/addtotamt" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/addtotamt" 	,danga  );
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscorcd" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscorcd" ,model.getValue(vSrcXPath + "[" + i + "]/calcscorcd" )  );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/prcptims" , "1" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/prcpdayno" , "1"  );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/testdiscyn" , model.getValue(vSrcXPath + "[" + i + "]/testdiscyn" )  );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/gndrflag" , model.getValue(vSrcXPath + "[" + i + "]/gndrflag" )  );

				//묵음처방 구분 추가 (2007.10.11 BY 손주연 )
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/grupflag" );
				model.setValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/grupflag" ,model.getValue(vSrcXPath + "[" + i + "]/grupflag" )  );

				grdcnt++;
			}
		}


		/*
		* 패키지 내부검사 중복여부 체크
		*/

		model.removeNodeSet("/root/send/test");
//		for(  i = 1; i <= vGrdObj.rows  ; i++)
	    if(vGrdObj.rows >= 2){
			for(  i = 1; i <= vGrdObj.rows - 1 ; i++)// 고정행까지 추가하는거같아서 -1 했음.
			{
			   model.makeValue("/root/send/test[" + i +"]/pkgcd"	,	    model.getValue(vGrdObj.nodeset 	+ "[" + i + "]/testcd"));
			   model.makeValue("/root/send/test[" + i +"]/grupflag"	,	model.getValue(vGrdObj.nodeset 	+ "[" + i + "]/grupflag"));
			}

			if(vPkgCd != "") { model.makeValue("/root/send/test/srchpkgcd"	,	vPkgCd);}
			if(vPkgCd != "") { model.makeValue("/root/send/test/healexamflag"	,	fGetHealExamFlag());}
			model.makeValue("/root/send/test/cmpycd" , model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd"));
			model.makeValue("/root/send/test/conseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conseq"));
			model.makeValue("/root/send/test/conhistseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq"));
			model.removeNodeSet("/root/send/testcount");
			submit("TRAHA00013",false);//패키지내 중복 체크*/
		}
		var testnm ="";
		var testnmcount ="";
		var cnt = getNodesetCount("/root/tmp/testcount/testcount");
		if (cnt != 0)
		{
			for (var i=0;i <=cnt ; i++)
			{
				testnm = model.getValue("/root/tmp/testcount/testcount["+i+"]/testnm");
				if (testnm!="")
				{
					testnmcount = testnmcount + testnm + "/";
				}

			}

			messageBox(testnmcount + " 검사가 중복되었습니다","E999");
			model.removeNodeset("/root/tmp/testcount/testcount");
		}
	    model.refresh();
	}


/**==================================================================================================================
@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 ){
		//if( vGrdObj.elementName() != "xforms:grid" ){
		//	messageBox("Invalid ObjName!", "E999");
		//	return false ;
		//}
		var cnt = vGrdObj.rows ;
		for( var i = 1; i <= cnt ; i++) {
			if( vGrdObj.valueMatrix(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할 목적노드
*====================================================================================================================*/
	function fGetCalScorCd(  vCond, vCdnm, bMultiyn ,  vMultiDestXPath, vCdDestXPath, vNmDestXPath, vAmtDestXPath){
			clearParameter("SPAHB00300_PARAM1");
			clearParameter("SPAHB00300_PARAM2");
			clearParameter("SPAHB00300_PARAM3");
			clearParameter("SPAHB00300_PARAM4");
			clearParameter("SPAHB00300_PARAM5");
			clearParameter("SPAHB00300_PARAM6");
			clearParameter("SPAHB00300_PARAM7");

			setParameter ("SPAHB00300_PARAM1"		, vCond);
			setParameter ("SPAHB00300_PARAM2"		, vCdnm);
			setParameter ("SPAHB00300_PARAM3"		, bMultiyn);
			setParameter ("SPAHB00300_PARAM4"		, vMultiDestXPath);
			setParameter ("SPAHB00300_PARAM5"		, vCdDestXPath );
			setParameter ("SPAHB00300_PARAM6"		, vNmDestXPath);
			setParameter ("SPAHB00300_PARAM7"		, vAmtDestXPath);

			modal("SPAHB00300");
	}



/**==================================================================================================================
@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( vGrdObj == null ) return ;
		if( vSrcXPath == "" ) return ;
		if( model.getValue("/root/temp/okflag")  != "ok" ) return ;
		var cnt = getNodesetCount(vSrcXPath);

		var grdcnt  = vGrdObj.rows;
		if( vHeaderAddRows != "" ){
			grdcnt  =parseInt( vGrdObj.rows) -  parseInt( vHeaderAddRows  ) ;
		}
		var vDupCheckVal = "";
		var i = 0;
		if( cnt == 1 ) {
			vDupCheckVal = model.getValue(vSrcXPath + "/calcscorcd" );
			if( vDupCheck == "Y" ) {
					if( fCheckDup(vGrdObj , vDupCheckCol, vDupCheckVal ) == false ){
						if( messageBox("중복되는 수가코드[" + vDupCheckVal + "] 를 추가", "S001") != 6 ){
							return ;
						}
					}
			}
			vGrdObj.addRow();

			if( vCodeNode != "" ){
				model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vCodeNode 	,  vDupCheckVal );
			}
			if( vNameNode != "" ){
				model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vNameNode	, model.getValue(vSrcXPath + "/hngnm"    ) );
			}
			if( vAmtNode != "" ){
				model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vAmtNode 		, model.getValue(vSrcXPath + "/scoreamt" )  );
			}
			model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscorcd" );
			model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscorcd"   		, vDupCheckVal );
			model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscornm" );
			model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/calcscornm"   		, model.getValue(vSrcXPath + "/ordnm" )   );
			model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/oldordcd" );
			model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/oldordcd"   			, model.getValue(vSrcXPath + "/oldordcd" ) );
		}
		else {
			for( var i = 1 ; i <= cnt ; i++ ){
				vDupCheckVal = model.getValue(vSrcXPath + "[" + i + "]/calcscorcd" );
				if( vDupCheck == "Y" ) {
					if( fCheckDup(vGrdObj , vDupCheckCol, vDupCheckVal ) == false ){
						if( messageBox("중복되는 수가코드[" + vDupCheckVal + "] 를 추가", "S001") != 6 ){
							continue ;
						}
					}
				}
				vGrdObj.addRow();

				if( vCodeNode != "" ){
					model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vCodeNode 	,  vDupCheckVal );
				}
				if( vNameNode != "" ){
					model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vNameNode	, model.getValue(vSrcXPath + "[" + i + "]/hngnm"    ) );
				}
				if( vAmtNode != "" ){
					model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vAmtNode 	,model.getValue(vSrcXPath + "[" + i + "]/scoreamt" )  );
				}
				model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" );
				model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd"   	,  vDupCheckVal );
				model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscornm" );
				model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscornm"   	,   model.getValue(vSrcXPath + "[" + i + "]/ordnm" )   );
				model.makeNode(vGrdObj.nodeset 	+ "[" + grdcnt + "]/oldordcd" );
				model.makeValue(vGrdObj.nodeset 	+ "[" + grdcnt + "]/oldordcd"   			, model.getValue(vSrcXPath + "/oldordcd" ) );
				grdcnt++;
			}
		}
		model.refresh();
	}



/**==================================================================================================================
@author 	: 손주연
@version 	:2007-08-30
@desc 		: 수납처리--임시..
@param 	:
				*  vJobFlag			: WORK/CANCEL 작업 구분.(접수/취소 구분)
	function fRcptAmt(vJobFlag){

		var payownamt = model.getValue("/root/temp/rcptinfo/hidden/opmi_out/opmi_rcptamt") ;
		if( payownamt == "") {
			payownamt = "0";
		}

		payownamt = parseInt(payownamt);

		if(  payownamt != 0  ) {

			ahafOpenRcpt(fGetHealExamFlag()
								, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd")
								, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno")
								, model.getValue("/root/main/info/patinfo/item/pid")
								, model.getValue("/root/main/info/rsrvacptinfo/item/rcptstat")
								, model.getValue("/root/main/info/rsrvacptinfo/item/orddd")  );
			return ;
		}

		var vTmp  = fGetHealExamFlag();
		if( vTmp == "" ){
			messageBox("건진분류 ERROR .", "E999");
		 	return ;
		 }
		model.setValue("/root/send/srchhealexamflag", vTmp );
		vTmp = model.getValue(ipt_pid.attribute("ref"));
		if( vTmp == "" ) {
			messageBox("환자ID ERROR .", "E999");
			return ;
		}
		model.setValue("/root/send/srchpid", vTmp );

		vTmp = model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd");
		if( vTmp== "" ) {
			messageBox("등록일자 ERROR .", "E999");
			return ;
		}
		model.setValue("/root/send/srchrsrvdd", vTmp );

		vTmp = model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno");
		if( vTmp == "" )  {
			messageBox("등록번호 ERROR .", "E999");
			return ;
		}
		model.setValue("/root/send/srchrsrvno", vTmp );
		model.setValue("/root/send/srchinstcd", 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");

		openLoadingBar("수납 처리중입니다..") ;//처리중 화면을 오픈한다.
		if( submit("TXAHA02102") == true ){
			messageBox("수납 ","I001");
		}
		closeLoadingBar() ;//처리중 화면을 close한다.
	}

*====================================================================================================================*/
/**==================================================================================================================
@author 	: 	손주연
@version 	:	2007-10-11
@desc 		: 	수납처리
@param 	:
				*  vJobFlag			: WORK/CANCEL 작업 구분.(접수/취소 구분)
				*  vRsrvdd			:
*====================================================================================================================*/
	function ahafRcptAmt(vJobFlag, vRsrvdd, vRsrvno, vPid, vOrddd,  vRcptStat , vOpmiRoot,vHealexamFlag){
		var payownamt = model.getValue(vOpmiRoot + "/opmi_out/opmi_rcptamt");
		if(payownamt == ""){
			payownamt = "0";
		}
		payownamt = parseInt(payownamt);

		if(vHealexamFlag != "G"){
      //if(payownamt != 0){
      //수납화면 팝업
      ahafOpenRcpt(fGetHealExamFlag()
                  , vRsrvdd
  								, vRsrvno
  								, vPid
  								, vRcptStat
  								, vOrddd);
      return;
      //}
    }

		var vTmp  = vHealexamFlag;//fGetHealExamFlag();
		if( vTmp == "" ){
			messageBox("건진분류 ERROR .", "E999");
		 	return ;
    }
		model.makeNode("/root/send/savercpt/srchhealexamflag");
		model.setValue("/root/send/savercpt/srchhealexamflag", vTmp );

		if( vPid == "" ) {
			messageBox("환자ID ERROR .", "E999");
			return ;
		}
		model.makeNode("/root/send/savercpt/srchpid");
		model.setValue("/root/send/savercpt/srchpid", vPid );

		if( vRsrvdd== "" ) {
			messageBox("등록일자 ERROR .", "E999");
			return ;
		}
		model.makeNode("/root/send/savercpt/srchrsrvdd");
		model.setValue("/root/send/savercpt/srchrsrvdd", vRsrvdd );

		if( vRsrvno == "" )  {
			messageBox("등록번호 ERROR .", "E999");
			return ;
		}

		model.makeNode("/root/send/savercpt/srchrsrvno");
		model.setValue("/root/send/savercpt/srchrsrvno", vRsrvno );

		model.makeNode("/root/send/savercpt/srchinstcd");
		model.setValue("/root/send/savercpt/srchinstcd", getUserInfo("dutplceinstcd"));

		//2007-08-17 추가
		model.makeNode("/root/send/savercpt/srchjobflag");
		model.makeNode("/root/send/savercpt/srchrcptdd");
		model.makeNode("/root/send/savercpt/srchrcptno");
		model.makeNode("/root/send/savercpt/srchrcptseqno");

		model.setValue("/root/send/savercpt/srchjobflag"		,vJobFlag);
		model.setValue("/root/send/savercpt/srchrcptdd"			,model.getValue(vOpmiRoot +"/opmi_out/org_rcptdd") );
		model.setValue("/root/send/savercpt/srchrcptno"			,model.getValue(vOpmiRoot +"/opmi_out/org_rcptno") );
		model.setValue("/root/send/savercpt/srchrcptseqno"	,model.getValue(vOpmiRoot +"/opmi_out/org_rcptseqno") );

		model.makeNode("/root/send/savercpt/opmi_out");
		model.copyNode("/root/send/savercpt/opmi_out", vOpmiRoot + "/opmi_out" );

		model.makeNode("/root/send/savercpt/dcgm_out");
		model.copyNode("/root/send/savercpt/dcgm_out", vOpmiRoot + "/dcgm_out" );

		model.makeNode("/root/send/savercpt/unco_out");
		model.copyNode("/root/send/savercpt/unco_out", vOpmiRoot + "/unco_out" );

    //영수증채번을 먼저한다.
   	//INPUT(1.수납일시)
    model.makeNode("/root/send/rcptdd");
    model.makeNode("/root/send/genrkind");
    model.setValue("/root/send/rcptdd"			,  getCurrentDate());
    model.setValue("/root/send/genrkind"		, "R");

   //SPAHA02100 이 수납화면
   //결과는 수납 번호
   if(submit("TRAHA02105", false)){
      //영수증번호를 채번하여 셋팅한다.
      var rcptno = model.getValue("/root/temp/rcptno_out/rcptno/opmi_rcptno");
      model.makeNode( "/root/send/savercpt/opmi_rcptno");
			model.setValue( "/root/send/savercpt/opmi_rcptno", rcptno);
    }
    
    //openLoadingBar("수납 처리중입니다..") ;//처리중 화면을 오픈한다.
    //수납화면의 내용을 채우는 카드나 현금. 추가 검사 내역, 감면정보등 모든 정보를 가져온다.
		if(submit("TXAHA02102") == true){
      messageBox("수납 ","I001");
		}
		//closeLoadingBar() ;//처리중 화면을 close한다.
	}

/**==================================================================================================================
@author 	: 손주연
@version 	:2007-08-30
@desc 		: 수납화면 open
@param 	:
				*   건진 구분, 예약등록일자, 예약등록번호, 등록번호
*====================================================================================================================*/
	function ahafOpenRcpt(vHealExamFlag, vRsrvDD, vRsrvNo, vPid, vRcptStat, vOrdDD){
			clearParameter("SMAHA02100_PARAM_HEALEXAMFLAG");
			clearParameter("SMAHA02100_PARAM_PID");
			clearParameter("SMAHA02100_PARAM_RSRVDD");
			clearParameter("SMAHA02100_PARAM_RSRVNO");

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

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

/**==================================================================================================================
@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"				, 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){
		clearParameter("SMAHA00400_PARAM1");
		clearParameter("SMAHA00400_PARAM2");
		clearParameter("SMAHA00400_PARAM3");
		clearParameter("SMAHA00400_PARAM4");
		clearParameter("SMAHA00400_PARAM5");
		clearParameter("SMAHA00400_PARAM6");
		clearParameter("SMAHA00400_PARAM7");
		clearParameter("SMAHA00400_PARAM8");
		clearParameter("SMAHA00400_PARAM9");
		clearParameter("SMAHA00400_PARAM10");
		clearParameter("SMAHA00400_PARAM11");
		clearParameter("SMAHA00400_PARAM12");
		clearParameter("SMAHA00400_PARAM13");

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

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

/**==================================================================================================================
@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)*/ ){

		clearParameter("SPAHB00500_PARAM1");
		clearParameter("SPAHB00500_PARAM2");
		clearParameter("SPAHB00500_PARAM3");
		clearParameter("SPAHB00500_PARAM4");
		clearParameter("SPAHB00500_PARAM5");
		clearParameter("SPAHB00500_PARAM6");

		model.makeNode(vDestNode);

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

		modal("SPAHB00500",100,100,"SMAHB00500");

		if( model.getValue("/root/temp/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){

	 	model.makeNode("/root/send/srchflag" );
	 	model.makeNode("/root/send/srchcond" );
	 	model.makeNode("/root/send/srchcdnm" );
	 	model.makeNode("/root/send/srchinstcd" );

		model.setValue("/root/send/srchflag"		, vSrchFlag);
	 	model.setValue("/root/send/srchcond" 	, "cd" );
	 	model.setValue("/root/send/srchcdnm" 	, vCode);
		model.setValue("/root/send/srchinstcd"	, getUserInfo("dutplceinstcd"));

		submit("TRAHA00105");
		var SrcNode = model.instance1.selectSingleNode("/root/temp/cdlst/item");
		if( SrcNode != null ) {
			if( vAllYN == "Y" ) {
				model.copyNode(vDestNodeSet, "/root/temp/cdlst/item");
			}
			else {
				model.setValue(vCodeNode 	, model.getValue("/root/temp/cdlst/item/cmpycd") );
				model.setValue(vNameNode	, model.getValue("/root/temp/cdlst/item/cmpynm") );
			}
			model.refresh();
			return true;
		}

		return false;
	}

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

/**==================================================================================================================
@author 	: 손주연
@version 	:2007-10-01
@desc 		: 종합판정 창 띄우기
@param 	:
				sPid : 환자ID
====================================================================================================================*/
	function ahafOpenColgJudg(sPid ){
		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 	+ "▦" ;	//진료일자



//		modal("SMAHA00210");

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


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

		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();
		}*/
	}
/**==================================================================================================================
@author 	: 손주연
@version 	:2007-10-11
@desc 		:화면 상단 환자정보 설정
@param 	:
				* vOrddd	 	: 진료일자
				* vPid			: 환자id
====================================================================================================================*/
	function ahafSetScreenTopPatInfo( vPid , vOrddd , vCretno ){
		 var  param = "O" + "▦" + vPid + "▦" + vOrddd + "▦" + vCretno + "▦" + getUserInfo("dutplceinstcd") + "▦";
		 setParameter("condparam", param);
		 //setParameter("condparam", "S" + "▦" + vPrcpDD + "▦"  +  vExecprcpuniqno + "▦"  +  getUserInfo("dutplceinstcd")  );
		 modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
	}

/**==================================================================================================================
@author 	: 김호익
@version 	:2007-12-12
@desc 		:통합예약관리 화면으로 이동
@param 	:
				* displayid		: 호출화면--통합예약 화면
				* maingridlistid	: 부서코드 Instance
				* path				: send Instance
====================================================================================================================*/

	function aezfPopUpRsrvSample(displayid, maingridlistid, path) {

		var pid = model.getValue(path +"/pid" );
		var suppdeptcd = getUserInfo("posdeptcd");

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


		open(displayid, 1, "", "", "", "", "", "left:0; right:0; width:0; height:0;  min:hidden, max:hidden;");
	}
/**==================================================================================================================
@author 	: 김호익
@version 	:2007-12-12
@desc 		:예약시 dc 금액 확인
@param 	:
====================================================================================================================*/

	function fDcAmtCalc(){
			model.makeValue("/root/send/priceamt/healexamflag",				fGetHealExamFlag());

			if(model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd") == "") {
				model.makeValue("/root/send/priceamt/healexamdetlflag"	,	model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag"));
			}else {
				model.makeValue("/root/send/priceamt/healexamdetlflag",		model.getValue("/root/send/srchhealexamdetlflag"));
			}

			model.makeValue("/root/send/priceamt/pkgcd"	,							model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd"));
			model.makeValue("/root/send/priceamt/cmpycd",							model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd"));
			model.makeValue("/root/send/priceamt/conseq",							model.getValue("/root/main/info/rsrvacptinfo/item/conseq"));
			model.makeValue("/root/send/priceamt/conhistseq",					model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq"));
			model.makeValue("/root/send/priceamt/pid",								model.getValue("/root/main/info/rsrvacptinfo/item/pid"));
			model.makeValue("/root/send/priceamt/rsrvdd",							model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd"));
			model.makeValue("/root/send/priceamt/rsrvno",							model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno"));
			model.makeValue("/root/send/priceamt/sex",								model.getValue("/root/main/info/patinfo/item/sex"));
			model.makeValue("/root/send/priceamt/age",								ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1") , 
																							model.getValue("/root/main/info/patinfo/item/rgstno2")));//model.getValue("/root/main/info/patinfo/item/age"));
			model.makeValue("/root/send/priceamt/disccd",							model.getValue("/root/main/info/rsrvacptinfo/item/disccd"));
			model.makeValue("/root/send/priceamt/pkguncocd",					model.getValue("/root/main/info/rsrvacptinfo/item/pkguncocd"));
//			model.makeValue("/root/send/priceamt/forgneryn",					model.getValue("/root/main/info/rsrvacptinfo/item/forgneryn"));
			model.makeValue("/root/send/priceamt/choiflag",						model.getValue("/root/main/info/rsrvacptinfo/item/choiflag"));
			model.makeValue("/root/send/priceamt/statflag",						model.getValue("/root/main/info/rsrvacptinfo/item/statflag"));
			model.makeValue("/root/send/priceamt/hopedd",							model.getValue("/root/main/info/rsrvacptinfo/item/hopedd"));
	
			//2015/10/22 이정택 수정
			model.makeValue("/root/send/priceamt/forgneryn",					model.getValue("/root/main/info/patinfo/item/forgneryn"));
			model.makeValue("/root/send/priceamt/agencyrate",							model.getValue("/root/main/info/rsrvacptinfo/item/agencyrate"));
			//2015/10/22 이정택 수정			

			model.removenode("/root/priceamt/priceamt");


			if(submit("TRAHA00509")) {

				model.makeValue("/root/main/info/rcptinfo/subtotamt", model.getValue("/root/temp/priceamt/priceamt/subtotamt"));	//소계
				model.makeValue("/root/main/info/rcptinfo/pkgamt",	model.getValue("/root/temp/priceamt/priceamt/pkgamt"));	//패키지금액
				model.makeValue("/root/main/info/rcptinfo/cmpyaddamt",	model.getValue("/root/temp/priceamt/priceamt/cmpyaddamt"));	//단체추가검사금액
				model.makeValue("/root/main/info/rcptinfo/psnaddamt",	model.getValue("/root/temp/priceamt/priceamt/psnaddamt"));	//개인추가검사금액
				model.makeValue("/root/main/info/rcptinfo/preamt",	model.getValue("/root/temp/priceamt/priceamt/preamt"));	//선수금
				model.makeValue("/root/main/info/rcptinfo/uncoamt",	model.getValue("/root/temp/priceamt/priceamt/uncoamt"));	//미수금
				model.makeValue("/root/main/info/rcptinfo/discamt",	model.getValue("/root/temp/priceamt/priceamt/discamt"));	//할인액
				model.makeValue("/root/main/info/rcptinfo/realamt",	model.getValue("/root/temp/priceamt/priceamt/realamt"));	//실수납액
				model.makeValue("/root/main/info/rcptinfo/ownbamt",	model.getValue("/root/temp/priceamt/priceamt/ownbamt"));	//부담액

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

/**==================================================================================================================
@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";
							}

					}
			}
	}

	 function fDocCmtChoice(){

			var cnt = getNodesetCount("/root/main/judgexmpcdlst/item");

			var sCmtH 	=	model.getValue("/root/main/judgdetl/judginfo/item/hngjudgcnts");
			var sCmtE		=	model.getValue("/root/main/judgdetl/judginfo/item/engjudgcnts");
			var sCmtSH 	=	model.getValue("/root/main/judgdetl/judginfo/item/shrthngjudgcnts");
			var sCmtSE 	=	model.getValue("/root/main/judgdetl/judginfo/item/shrtengjudgcnts");

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

				if (model.getValue("/root/main/judgexmpcdlst/item["+i+"]/sel")=="Y" && model.getValue("/root/main/judgexmpcdlst/item["+i+"]/lvl") != "1"){
					sCmtH 		= sCmtH 	+ model.getValue("/root/main/judgexmpcdlst/item["+i+"]/judghangcnts") + "\n";
					sCmtE 		= sCmtE 	+ model.getValue("/root/main/judgexmpcdlst/item["+i+"]/judgengcnts")+ "\n";
					sCmtSH 	= sCmtSH + model.getValue("/root/main/judgexmpcdlst/item["+i+"]/judghangshrtcnts")+ "\n";
					sCmtSE 	= sCmtSE + model.getValue("/root/main/judgexmpcdlst/item["+i+"]/judgengshrtcnts")+ "\n";
				}

			}
			model.setValue("/root/main/judgdetl/judginfo/item/hngjudgcnts", 		sCmtH);
			model.setValue("/root/main/judgdetl/judginfo/item/shrthngjudgcnts", sCmtSH);
			model.setValue("/root/main/judgdetl/judginfo/item/engjudgcnts", 		sCmtE);
			model.setValue("/root/main/judgdetl/judginfo/item/shrtengjudgcnts", sCmtSE);

			model.refresh();
	}

	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;

	}

	function deleteTest(delrow){
		model.makeValue("/root/temp/judgexmpcd" 	, model.getValue("/root/main/judgexmpcdlst/item[" +grd_judgexmplst.row+ "]/judgexmpcd" ));
		model.makeValue("/root/temp/testcd" 				, model.getValue("/root/main/judgexmpdetl/itemtest[" +delrow+"]/testcd"));
		model.makeValue("/root/temp/instcd" 				, getUserInfo("dutplceinstcd"));

		var vhf = "";
		if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")=="")
		{
			vhf = fGetHealExamFlag();
		} else {
			vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
		}

		model.makeValue("/root/temp/healexamflag" 	, vhf);

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

			submit("TXAHB00803");

			grd_testlst.deleteRow(grd_testlst.row);
	}


/**
*/
	function ageCalc(rgstno1,rgstno2){
		var ssno1 = rgstno1;
		var ssno2 = rgstno2;
		var temp1 = ssno1.substring(0,2);
		var temp2 = ""
		var sexTyp = 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);
	}
	function fClickCDISResultList() {


		model.resetInstanceNode("/root/send/iemr");
		model.makeNode("/root/hidden/temp");


		var prcpdd               = model.getValue("/root/temp/prcpdd");
		var execprcpuniqno       = model.getValue("/root/temp/seqno");
		var instcd				 = getUserInfo("dutplceinstcd"); 

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


		model.makeValue("/root/send/iemr/cmc_orddate",		sprcpdd);
		model.makeValue("/root/send/iemr/cmc_orderseqno", 	sexecprcpuniqno);
		model.makeValue("/root/send/iemr/cmc_spcid", 			sinstcd);
		if(window.children.item("imgemrviewer") == null)
		{
				window.load("../../../emr/imgemrweb/xrw/SSMRC03130.xrw","modeless", "imgemrviewer", "", "/root/send/iemr", "/root/hidden/temp");
/*				window.children.item("imgemrviewer").document.title = "Image EMR Viewer";
				window.children.item("imgemrviewer").javaScript.searchChart("/root/hidden/temp");
				if (window.children.item("imgemrviewer").javaScript.downloadChart() == true)
				{
						window.children.item("imgemrviewer").javaScript.setupChart("ChartView");
				}*/
		}

	}

	function fPriceCheck(){

			model.makeValue("/root/send/priceamt/healexamflag",				fGetHealExamFlag());

			if(model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd") == "") {
				model.makeValue("/root/send/priceamt/healexamdetlflag"	,	model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag"));
			}else {
				model.makeValue("/root/send/priceamt/healexamdetlflag",		model.getValue("/root/send/srchhealexamdetlflag"));
			}

			model.makeValue("/root/send/priceamt/pkgcd"	,							model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd"));
			model.makeValue("/root/send/priceamt/cmpycd",							model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd"));
			model.makeValue("/root/send/priceamt/conseq",							model.getValue("/root/main/info/rsrvacptinfo/item/conseq"));
			model.makeValue("/root/send/priceamt/conhistseq",					model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq"));
			model.makeValue("/root/send/priceamt/pid",								model.getValue("/root/main/info/rsrvacptinfo/item/pid"));
			model.makeValue("/root/send/priceamt/rsrvdd",							model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd"));
			model.makeValue("/root/send/priceamt/rsrvno",							model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno"));
			model.makeValue("/root/send/priceamt/sex",								model.getValue("/root/main/info/patinfo/item/sex"));
			model.makeValue("/root/send/priceamt/age",								ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1") , 
																							model.getValue("/root/main/info/patinfo/item/rgstno2")));//model.getValue("/root/main/info/patinfo/item/age"));
			model.makeValue("/root/send/priceamt/disccd",							model.getValue("/root/main/info/rsrvacptinfo/item/disccd"));
			model.makeValue("/root/send/priceamt/pkguncocd",					model.getValue("/root/main/info/rsrvacptinfo/item/pkguncocd"));
			model.makeValue("/root/send/priceamt/forgneryn",					model.getValue("/root/main/info/rsrvacptinfo/item/forgneryn"));
			model.makeValue("/root/send/priceamt/choiflag",						model.getValue("/root/main/info/rsrvacptinfo/item/choiflag"));
			model.makeValue("/root/send/priceamt/statflag",						model.getValue("/root/main/info/rsrvacptinfo/item/statflag"));

			model.removenode("/root/priceamt/priceamt");


			if(submit("TRAHA00509")) {

				model.makeValue("/root/main/info/rcptinfo/subtotamt", model.getValue("/root/temp/priceamt/priceamt/subtotamt"));	//소계
				model.makeValue("/root/main/info/rcptinfo/pkgamt",	model.getValue("/root/temp/priceamt/priceamt/pkgamt"));	//패키지금액
				model.makeValue("/root/main/info/rcptinfo/addamt",	model.getValue("/root/temp/priceamt/priceamt/cmpyaddamt"));	//단체추가검사금액
				model.makeValue("/root/main/info/rcptinfo/addamt",	model.getValue("/root/temp/priceamt/priceamt/psnaddamt"));	//개인추가검사금액
				model.makeValue("/root/main/info/rcptinfo/preamt",	model.getValue("/root/temp/priceamt/priceamt/preamt"));	//선수금
				model.makeValue("/root/main/info/rcptinfo/uncoamt",	model.getValue("/root/temp/priceamt/priceamt/uncoamt"));	//미수금
				model.makeValue("/root/main/info/rcptinfo/discamt",	model.getValue("/root/temp/priceamt/priceamt/discamt"));	//할인액
				model.makeValue("/root/main/info/rcptinfo/realamt",	model.getValue("/root/temp/priceamt/priceamt/realamt"));	//실수납액
				model.makeValue("/root/main/info/rcptinfo/ownbamt",	model.getValue("/root/temp/priceamt/priceamt/ownbamt"));	//부담액

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

	function fSaveRsrvAcptPro(vMode, GMode){
		if(GMode == "1"){
			var vHealExamFlag = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
		}else{
			var vHealExamFlag = fGetHealExamFlag();
			if( 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(messageBox(sMode, "Q002") != 6) return -1;

		//if(fChoiChk() == false) return -1 ; ;//패키지 검사중 둘중 하나를 반듯이 선택해야하는 검사 체크(예 : 소화기 내시경 패키지)
		//setInputNodeCurText();
		if(fCheckPatInfo() == false) return -1 ;
		if(!fCheckAcpt(vMode)) return  -1;

		var vPidYN = "Y";
		//예약/예약보류는 등록번호 생성하지 않음.
		if((vMode == "A") || (vMode == "B")){
			vPidYN = "N";
		}
		
		/*
		* 수진자정보
		*/
		model.setValue("/root/main/info/patinfo/item/pidcretfg"   , vPidYN);
		model.copyNode("/root/send/save"                          , "/root/main/info/patinfo/item");
		fCheckNodeExist("/root/send/save/userid"                  , true);
		model.setValue("/root/send/save/userid"                   , getUserId());
		fCheckNodeExist("/root/send/save/instcd"                  , true);
		model.setValue("/root/send/save/instcd"                   , getUserInfo("dutplceinstcd") );

		/*
		* 예약접수정보
		*/
		fCheckNodeExist("/root/main/info/rsrvacptinfo/item/mode"              , true );
		model.setValue("/root/main/info/rsrvacptinfo/item/mode"               , vMode);
		fCheckNodeExist("/root/main/info/rsrvacptinfo/item/healexamflag"      , true );
		model.setValue("/root/main/info/rsrvacptinfo/item/healexamflag"       , vHealExamFlag);
		model.duplicate("/root/send/save"                                     , "/root/main/info/rsrvacptinfo/item");
		model.makeValue("/root/send/save/item/ownbamt"                        , model.getValue("/root/main/info/rcptinfo/ownbamt"));
		model.makeValue("/root/send/save/pkgcd"                               , model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd"));
		model.makeValue("/root/send/save/cmpyflag"                            , model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag"));
		model.makeValue("/root/send/save/cmpycd"                              , model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd"));
		model.makeValue("/root/send/save/conseq"                              , model.getValue("/root/main/info/rsrvacptinfo/item/conseq"));
		model.makeValue("/root/send/save/conhistseq"                          , model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq"));
		model.makeValue("/root/send/save/choiflag"                            , model.getValue("/root/main/info/rsrvacptinfo/item/choiflag"));
		model.makeValue("/root/send/save/zipcdseq1"                           , model.getValue("/root/main/info/patinfo/item/zipcdseq1"));
		model.makeValue("/root/send/save/zipcdseq2"                           , model.getValue("/root/main/info/patinfo/item/zipcdseq2"));
		model.makeValue("/root/send/save/clntcmpynm"                          , model.getValue("/root/main/info/rsrvacptinfo/item/clntcmpynm"));
		model.makeValue("/root/send/save/clntdeptnm"                          , model.getValue("/root/main/info/rsrvacptinfo/item/clntdeptnm"));
		model.makeValue("/root/send/save/clntempid"                           , model.getValue("/root/main/info/rsrvacptinfo/item/clntempid"));
		model.makeValue("/root/send/save/clntpos"                             , model.getValue("/root/main/info/rsrvacptinfo/item/clntpos"));		
		model.makeValue("/root/send/save/patm_brthareacnts"                   , model.getValue("/root/main/info/patinfo/item/brthareacnts"));
		model.makeValue("/root/send/save/acpt_brthareacnts"                   , model.getValue("/root/main/info/rsrvacptinfo/item/brthareacnts"));
		
		//건진장소구분에 의한 예약건진상세구분 세팅
		//기업건진 추가 2009-08-28
		if(cmb_place.value == 'S'){ 
			model.makeValue("/root/send/save/rsltsave/rsrvdetlflag"           , 'C01');
			model.makeValue("/root/main/info/rsrvacptinfo/item/rsrvdetlflag"  , 'C01');
		}else if(cmb_place.value == 'K'){
			model.makeValue("/root/send/save/rsltsave/rsrvdetlflag"           , 'C03');
			model.makeValue("/root/main/info/rsrvacptinfo/item/rsrvdetlflag"  , 'C03');
		}

		/*
		* RFID
		*/
		fCheckNodeExist("/root/send/save", true);
		model.makeValue("/root/send/save/taginfo/rtime"       , model.getValue("/root/main/info/taginfo/rtime"));
		model.makeValue("/root/send/save/taginfo/tagno"       , model.getValue("/root/main/info/taginfo/tagno"));
		model.makeValue("/root/send/save/taginfo/suppstat"    , model.getValue("/root/main/info/taginfo/suppstat"));
		
		/*
		*결과상담 예약내역 저장		
		*/
		//예약 및 접수취소일경우 현재 이후의 예약이며 결과상담이 완료되지 않은 내역은 삭제합니다.
		if(vMode == "F"|| vMode == "D"){
			var rsltRsrvCnt = getNodesetCount("/root/main/info/rsltcnstinfo/cnstlst/cnst");
			for(var i=1; i<=rsltRsrvCnt; i++) {
				var cnstEndYN             = model.getValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltcnstendyn");
				var rsltCnstDD            = model.getValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltcnstdd");
				var rsltCnstRsrvStarttm   = model.getValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltcnstrsrvstarttm");				
				var dtRsrvdd              = (rsltCnstDD + " " + rsltCnstRsrvStarttm + "00" ).toDate("YYYYMMDD hhmmss");
				if((cnstEndYN == "N" || cnstEndYN == "") &&  dtRsrvdd > getCurrentDateTime().toDate("YYYYMMDD hhmmss")){
						model.setValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/m", "d");
						model.setValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltrsrvsaveyn", "N");
				}
			}
		}

		var rsltRsrvList = instance1.selectNodes("/root/main/info/rsltcnstinfo/cnstlst/cnst[rsltrsrvsaveyn='N']");
		model.makeNode("/root/send/save/rsltsave");
		model.makeValue("/root/send/save/rsltsave/rsltrsrv", getNodeListCSV(rsltRsrvList));
		
		/*
		* 추가검사정보
		* 종검을 제외한 나머지 검진은 선택된 프로파일을 추가검사정보에 가지고 있으므로 여기서 삭제한다
		*/
		/*		
		if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")=="G"){
			for(i=1; i<grd_addlst.rows;i++ ){
				if(model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd") == grd_addlst.valueMatrix(i,2)){
					grd_addlst.valueMatrix(i,grd_addlst.colRef("sel"))="";
				}
			}
		}*/

		//model.refresh(); 2008-06-12이성인 주석 처리 및 맨 끝으로 이동
		//model.refresh();
		//추가 검사 내역 rowheader를 i로 셋팅
		//추가검사 중 접수시 처방이 내려져야 하는검사가 있으므로 우선 추가검사 내역을 다 가져가야 하기에 u 모드로 변경

		grd_addlst.clearStatus();
		for(var i=1; i<grd_addlst.rows; i++){
			if((grd_addlst.valueMatrix(i,grd_addlst.colRef("sel"))=="Y") || (grd_addlst.valueMatrix(i,grd_addlst.colRef("sel"))=="true")){
				grd_addlst.rowStatus(i) = 2;
				model.setValue("/root/main/info/rsrvacptinfo/addlst["+ i + "]/m ", "u");
			}
		}
		model.makeValue("/root/send/save/addlst", grd_addlst.getUpdateData());

		//openLoadingBar(sMode + " 처리 중입니다.."); //처리중 화면을 오픈한다.
		model.resetInstanceNode("/root/hidden");
		model.removeNodeset("/root/tmp");
	
		var retInstance;
		/*
		if(vMode == "D" || vMode == "F"){
			retInstance = submit("TXAHA00013", false);
		}else{
			retInstance = submit("TXAHA00012", false);
		}
		*/
		retInstance = submit("TXAHA00012", false);
		//if((retInstance==true) ||(retInstance==True)){
 		if(retInstance == true){
			var ret = 0 ;
			var rst = "R";

			if(GMode == "1"){
				var vHealExamFlag = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag");
			}else{
				//일부결과를 인스턴스에 복사
				//AHA001.JS
				fretinstanceset();
			}

			if(vMode == "E"){ //접수
				model.makeNode("/root/send/srchjobflag");
				model.makeNode("/root/send/srchrcptdd");
				model.makeNode("/root/send/srchrcptno");
				model.makeNode("/root/send/srchrcptseqno");
				
		
// 검사동의서자동 출력 
// 						 submit("TRAHA04098");  //검사동의서자동출력여부 조회
// 						if(model.getValue("/root/temp/examformyn/item/examformyn") == "Y"){
// 							model.setValue("/root/send/seqinfo/srchhealexamflag" 		, model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag"));
// 							model.setValue("/root/send/seqinfo/srchrsrvdd" 					, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd"));
// 							model.setValue("/root/send/seqinfo/srchrsrvno" 					, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno"));
// 						    model.makeValue("/root/send/seqinfo/pid"                          ,  model.getValue("/root/main/info/rsrvacptinfo/item/pid"));							
// 							submit("TRAHA04099");  // 동의서 출력해야할 formcd조회
// 							
// 							var PrcpFormcdCnt = getNodesetCount("/root/temp/examformlist/item");
// 					            for(var i=1; i <= PrcpFormcdCnt; i++){
// 						           var formcd	= model.getValue("/root/temp/examformlist/item[" + i + "]/formcd");
// 								  // 개인정보이용동의서 출력
// 								    
// 								    setParameter ("formcd",  formcd ); 
// 									setParameter ("pid",    model.getValue("/root/main/info/rsrvacptinfo/item/pid"));
// 								setParameter ("orddd",  model.getValue("/root/main/info/rsrvacptinfo/item/orddd"));
// 									setParameter ("cretno",  model.getValue("/root/main/info/rsrvacptinfo/item/cretno"));
// 									setParameter ("ordtype", "S");
// 		
// 									modal ("SSMRF03700");
// 						   } 
// 						}					

        ///root/send/srchpid , srchrsrvdd , srchrsrvno , srchinstcd , srchjobflag 를 기준으로 TXAHA02101(수납)서브미션
				//SMAHA00100_예약접수

				// 태그등록 상태변경
				var suppstat = model.getValue("/root/tmp/reqrfid/suppstat"); // 태그지급상태
				if(suppstat == "0"){
					model.setValue("/root/main/info/taginfo/rtime"    , model.getValue("/root/tmp/reqrfid/rtime"));
					model.setValue("/root/main/info/taginfo/tagno"    , model.getValue("/root/tmp/reqrfid/tagno"));
					model.setValue("/root/main/info/taginfo/suppstat" , model.getValue("/root/tmp/reqrfid/suppstat"));

					//태그 지급상태 실시값
					model.makeValue("/root/tag/taginfo/tagstat" , model.getValue("/root/tmp/reqrfid/suppstat"));
					btn_tag.attribute("text") = "태그반납";
					ipt_tagno.disabled = true;
				}
			
				// 본원에만 적용 되야 하는 것들 기술 (2017/02/06 이정택)
				if(getUserInfo("dutplceinstcd")=="031"){
					
					//접수와 동시에 RFID 카드 등록여부 결정
					var startdd = model.getValue("/root/init/baseinfo/S960list/S960[cdid != '']/cdid");
					var today = getCurrentDate();
					if(parseInt(today)>=parseInt(startdd)){
						fRfidWrite("WR", ipt_pid.value, ipt_pnm.value);
					}
					
					//접수와 동시에 환자 팔찌 출력여부 결정
					startdd = model.getValue("/root/init/baseinfo/S980list/S980[cdid = '2']/cdnm");
					if(parseInt(today)>=parseInt(startdd)){
						btn_bracelet.dispatch("DOMActivate");
					}
				}
				//RFID 카드 Write(2016/11/22)

				ret = fCalcAmt("RCPT");
        //1은 서브미션결과가 TRUE
				if(ret  == 1){
					// 2016/08/01 검진 순서표 자동 출력 되도록 프로그램 수정
					if(model.getValue("/root/tmp2/printchk")=='Y'){
						ipt_pid.value = model.getValue("root/tmp/reqacpt/pid");
						ipt_pid.refresh();
						btn_examseq2.dispatch("DOMActivate");
					}
					// 2016/08/01 검진 순서표 자동 출력 되도록 프로그램 수정
					
				  //함수 내에서 조건에 따라 수납화면 팝업
					//TRAHA02105로 영수증번호 채번
					//TXAHA02102로 수납화면에 뿌려지는 내용인 카드현금수납내역, 할인내역, 검사내역등 을 조회해온다. /root/hidden/rcpt_out에 결과저장
					//ahafRcptAmt("RCPT");
					//2008.09.30 비자건진 담당자 요청에 따라 비자건진 접수시 수납창 안띄워줌
					//2010.07.29 JHP 건진/예약접수 수납화면 쪼회시 hopedd 기준 조회 되게 수정함.
					//ahafRcptAmt의 orddd를 hopedd로 변경함.
					// - 접수취소시에도 조회는 같은 내용으로 들어가니까. hopedd로 변경함.
					if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag") != "G" && model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag") != "G02"){
						ahafRcptAmt("RCPT"
											, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd")
											, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno")
											, model.getValue("/root/main/info/rsrvacptinfo/item/pid")
											, model.getValue("/root/main/info/rsrvacptinfo/item/hopedd")
											, model.getValue("/root/main/info/rsrvacptinfo/item/rcptstat")
											, "/root/temp/rcptinfo/hidden"
											, model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")
								   )
						rst = "T";
					}
				}
			}else if( vMode == "F" ){ //F접수 취소
				model.makeNode("/root/send/srchjobflag");
				model.makeNode("/root/send/srchrcptdd");
				model.makeNode("/root/send/srchrcptno");
				model.makeNode("/root/send/srchrcptseqno");
				ret =  fCalcAmt("CANCEL");
				if(ret == 1){
					ahafRcptAmt("CANCEL"
										, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd")
										, model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno")
										, model.getValue("/root/main/info/rsrvacptinfo/item/pid")
										, model.getValue("/root/main/info/rsrvacptinfo/item/hopedd")
										, model.getValue("/root/main/info/rsrvacptinfo/item/rcptstat")
										, "/root/temp/rcptinfo/hidden"
										, model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")
          )
          rst = "T";
				}
			}

			/*
			if (vMode=="C")//통합예약 뛰우기{
        vGrdObj = grd_addlst;
				for( var i = 1; i <= vGrdObj.rows ; i++){
				   model.makeValue("/root/send/test[" + i +"]/pkgcd"	,	model.getValue(vGrdObj.nodeset 	+ "[" + i + "]/testcd"));
				}
			  model.makeValue("/root/send/test[" + i+1 +"]/pkgcd"	,	model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd"));
				fTotRsrv();
			}
			*/
			
			//2010-04-12 부천성모만 문진표 자동출력
			model.setValue("/root/send/data/cdgrupid"   , "S700");
			model.setValue("/root/send/data/srchcond"   , "cd");
			model.setValue("/root/send/data/cdid"       , "1");
			model.setValue("/root/send/data/srchuseyn"  , "Y");
			submit("TRAHA00004");

			var autorsrv = model.getValue("root/main/codelist/item/cdnm");
			if(autorsrv == "Y" && vMode == "C"  && (btn_rsrvcfm.disabled == false)){ //예약
				btn_rsrvprnt.dispatch("onclick");   //예약시 문진표 자동출력
			}
			
      fInitInfo();					      //접수 정보 및 건진자 정보 초기화
			ipt_pnm.currentText ="";
			fSetBtnStat();					    //예약,접수등 상태에 맞는 버튼 셋팅
			fGetList();						      //TRAHA00103 -건진자 리스트 조회

			//closeLoadingBar() ;//처리중 화면을 close한다.
			var sytsrsrvchk =	model.getValue("/root/tmp/sytsrsrvchk/sytsrsrvchk");
			if(sytsrsrvchk == "Y" ){// 통합예약할 내역이 있으면 "Y"
				model.setValue("/root/main/info/rsrvacptinfo/item/pid" ,model.getValue("/root/tmp/reqacpt/pid"));
				//2015/07/02 통합예약 프로그램 호출 수정
				//button2.dispatch("onclick");
				button23.dispatch("onclick");
				//2015/07/02 통합예약 프로그램 호출 수정
			}
			model.refresh();

		}else{
			messageBox("저장이 잘못되었습니다", "E999");
		}
		return 1;
	}
	
	function fRfidWrite(type, pid, hngnm){
//		debugger;
		try{
			var activeObj = new ActiveXObject("WScript.Shell");
			activeObj.CurrentDirectory = "C:/Program Files/himed/components/JsInfo";
			var fileName = "";
			if(type == "WR") {// 저장과 동시에 환자번호 Write
				//fileName = "JS_RfidCCR_K1.exe " + type + "," + pid + "," + hngnm ;
				fileName = "Js_RfidCCRVb.exe " + pid + " " + hngnm;
			}else if(type == "READ") { // Writing 되어 있는 환자 번호 리딩
				fileName = "Js_RfidCCRVb.exe " + type ;
			}												
			activeObj.Run(fileName);
		}catch(e){
			alert("RFID 카드 등록오류");
		}
	}

	function fretinstanceset(){
		model.makeValue("/root/main/info/rsrvacptinfo/item/rsrvdd"  , model.getValue("/root/tmp/reqacpt/rsrvdd"));
		model.makeValue("/root/main/info/rsrvacptinfo/item/rsrvno"  , model.getValue("/root/tmp/reqacpt/rsrvno"));
		model.makeValue("/root/main/info/rsrvacptinfo/item/pid"     , model.getValue("/root/tmp/reqpat/pid"));
		model.makeValue("/root/main/info/rsrvacptinfo/item/orddd"   , model.getValue("/root/tmp/reqpat/orddd"));
		model.makeValue("/root/main/info/patinfo/item/pid"          , model.getValue("/root/tmp/reqpat/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"	, 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);
		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;}
				}
	  }

    /*
    * 환자정보 생성 및 저장
    */
    function fSavePtbs(){
  		if( fCheckPatInfo() == false ) return -1 ;
  		//수진자정보
  		model.copyNode("/root/send/save", "/root/main/info/patinfo/item");
  		fCheckNodeExist("/root/send/save/userid", true);
  		model.setValue("/root/send/save/userid", getUserId() );
  		fCheckNodeExist("/root/send/save/instcd", true);
  		model.setValue("/root/send/save/instcd", getUserInfo("dutplceinstcd") );
  
  		submit("TXAHA00111", false) ;
  		model.setValue("/root/main/info/patinfo/item/pid" , model.getValue("/root/tmp/patinfo/pid"));
  		ipt_pid.refresh();
    }

		// 추가검사 금액셋팅
		// 수정이력 : 20100712 JHP 금액계산부분에서 NaN(이 발생하여 금액이 1로 되는 경우 발생하여 NaN일때 0으로 바꾸는 로직 추가
		function fSetAddAmt() {

			var disccd = model.getValue("/root/main/info/rsrvacptinfo/item/disccd");	// 할인코드
			var cmpycd = model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd");	// 단체코드
			var statflag = model.getValue("/root/main/info/rsrvacptinfo/item/statflag");	// 단체코드
			var chngyn = model.getValue("/root/temp/priceamt/priceamt/chngyn");				// 부담금 변경여부
			var pkgdiscyn = model.getValue("/root/main/info/rsrvacptinfo/item/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(model.getValue("/root/temp/priceamt/priceamt/subtotamt"));	//소계
			var	pkgamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/pkgamt"));	//패키지금액
			var	cmpyaddamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/cmpyaddamt"));	//단체추가검사금액
			var	psnaddamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/psnaddamt"));	//개인추가검사금액
			var	preamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/preamt"));	//선수금
			var	discamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/discamt"));	//할인액
			var	realamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/realamt"));	//실수납액
			var org_uncoamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/orguncoamt")); // 계약처의 미수금(변경없는)
			var org_ownbamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/orgownbamt"));	//게약처의 원래 부담금
			if(chngyn == "Y") {
				uncoamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/chnguncoamt"));	//미수금
				ownbamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/chngownbamt"));	//부담액
			}else {
				uncoamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/uncoamt"));	//미수금
				ownbamt = parseInt(model.getValue("/root/temp/priceamt/priceamt/ownbamt"));	//부담액
			}

			// 할인율
			if(disccd != "") {
				 pkgDisc = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[cd='"+ disccd + "']/dcamt"));
				 addDisc = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[cd='"+ disccd + "']/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 = getNodesetCount("/root/main/info/rsrvacptinfo/addlst") ;

			for(var i=1; i <= cnt; i++) {
				var sel = model.getValue("/root/main/info/rsrvacptinfo/addlst[" + i + "]/sel");
				var testflag = model.getValue("/root/main/info/rsrvacptinfo/addlst[" + i + "]/testflag");	// 검사구분
				var uncocd = model.getValue("/root/main/info/rsrvacptinfo/addlst[" + i + "]/uncocd");	// 청구구분
				var scoreamt = parseInt(model.getValue("/root/main/info/rsrvacptinfo/addlst[" + i + "]/scoreamt"));	// 단가
				var testdiscyn = model.getValue("/root/main/info/rsrvacptinfo/addlst[" + 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) {
					messageBox("선택검사을 2개이상" , "E005");
				}
			}

			model.makeValue("/root/main/info/rcptinfo/subtotamt", subtotamt);	//소계
			model.makeValue("/root/main/info/rcptinfo/pkgamt",	pkgamt);	//패키지금액
			model.makeValue("/root/main/info/rcptinfo/cmpyaddamt",	cmpyaddamt);	//추가검사금액
			model.makeValue("/root/main/info/rcptinfo/psnaddamt",	psnaddamt);	//추가검사금액
			model.makeValue("/root/main/info/rcptinfo/preamt",	preamt);	//선수금
			model.makeValue("/root/main/info/rcptinfo/uncoamt",	uncoamt);	//미수금
			model.makeValue("/root/main/info/rcptinfo/discamt",	discamt);	//할인액

			if(statflag == "E" || statflag == "G" || statflag == "H" || statflag == "I") {
				model.makeValue("/root/main/info/rcptinfo/realamt",	realamt);	//실수납액
			}else {
				if(cmpycd != "") {
					model.makeValue("/root/main/info/rcptinfo/realamt",	pAddamt + ownbamt - realamt - preamt);	//실수납액
				}else {
					model.makeValue("/root/main/info/rcptinfo/realamt",	pkgamt + pAddamt - PkgDiscamt  - realamt - preamt);	//실수납액
				}
			}
			model.makeValue("/root/main/info/rcptinfo/ownbamt",	ownbamt);	//부담액
			model.makeValue("/root/main/info/rcptinfo/tempamt",	org_uncoamt + org_ownbamt);	//게약처 미수금 + 부담금
			if(0 > parseInt(model.getValue("/root/main/info/rcptinfo/realamt")))	{
				opt_realamt.attribute("style") = "left:904px; top:675px; width:291px; height:65px; text-align:right; vertical-align:bottom; color:#ff0000 ";
			}else {
				opt_realamt.initStyle("color");
				opt_realamt.attribute("style") = "left:904px; top:675px; width:291px; height:65px; text-align:right; vertical-align:bottom;";
			}
			model.refresh();
		}
		
//렉스포트형 바코드 출력
// 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;       
}

	/*
	 * 개인정보이용동의서 출력
	 */
	function fPrintPerson(pid, orddd, cretno, scanyn){
//		alert(pid+" : "+orddd+" : "+cretno+" : "+scanyn);
		if(scanyn == "X" || isNull(scanyn)){
		    //개인정보이용동의서 출력을 위한 서식코드 취득
		    reqHardCodeInfo("/root/send/reqdata", "/root/init/prncd", "5604"); 				//emr/prcpmngtweb/js/MMO001.js
		    
		    var ordtype = "S";
		    var ocrtype = "P"; //(P : 종이, E : 전자)
		    var formcd 	= "";
		    var nodeCnt = getNodesetCount("/root/init/prncd/hardcd");
		    //구분에 맞춰 폼코드 처리(1:일반약정서 / 2:기간약정서 / 3:개인정보이용동의서)
		    for(i=1; i<=nodeCnt; i++){
		    	if(3 == model.getValue("/root/init/prncd/hardcd[" + i + "]/cdseqno")){
		    		formcd = model.getValue("/root/init/prncd/hardcd[" + i + "]/hardcd");
		    		break;
		    	}
		    }
		    if(model.getValue("/root/init/baseinfo/PK018list/PK018[cdid='" + app.clientIp + "']/cdnm") == "Y"){
            	ocrtype = "E";
            }
		    
		    if(ocrtype=="E"){ // 전자동의서 출력
		        setParameter("SSMRC03160_param_patid",  pid);
		        setParameter("SSMRC03160_param_indate", orddd);
		        setParameter("SSMRC03160_param_cretno", cretno);
		        setParameter("SSMRC03160_param_instcd", getUserInfo("dutplceinstcd"));
		        setParameter("SSMRC03160_param_class",  ordtype);
		        setParameter("SSMRC03160_param_docucd", formcd);
		        setParameter("SSMRC03160_param_cuser",  getUserInfo("userid"));
		        setParameter("SSMRC03160_param_flag",   "G"); // 일반동의서
		        
		        modal("SSMRC03160");
		    }else{ // 종이 출력
		    	setParameter("formcd" 	, formcd);
			    setParameter("pid" 		, pid);
			    setParameter("orddd" 	, orddd);
			    setParameter("cretno" 	, cretno);
			    setParameter("ordtype" 	, ordtype);
			    modal("SSMRF03700");	
		    }
		    /*
		    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();
			*/
		}
	}
	
	/*
	 * 환불내역 조회/승인
	 * flag : 1.환불내역조회, 2.환불수납후 호출
	 */
	function fRtnRcpt(flag, rtnAmt){
		if(model.getValue("/root/main/info/patinfo/item/pid") == null || (model.getValue("/root/main/info/patinfo/item/pid")).getTrim == ""){
			messageBox("환자번호가 존재하지 않습니다.", "E999");
		}
		var acptRow = grd_acptlist.row;
		if(acptRow < 0){
			acptRow = 1;
		}
		
		if(flag == "1"){
			var sValue = flag 															+ "▦" + 	//1.환불내역조회  2.환불수납후 호출
			model.getValue("/root/hidden/session/dutplceinstcd") 						+ "▦" + 	//기관코드
			model.getValue("/root/main/info/patinfo/item/pid") 							+ "▦" + 	//환자등록번호
			model.getValue("/root/main/info/patinfo/item/hngnm") 						+ "▦" + 	//환자성명
			model.getValue("/root/main/info/patinfo/item/rgstno1") 						+ "▦" + 	//주민등록번호앞자리
			model.getValue("/root/main/info/patinfo/item/rgstno2") 						+ "▦" + 	//주민등록번호뒷자리
			model.getValue("/root/main/info/patinfo/item/telno") 						+ "▦" + 	//집전화
			model.getValue("/root/main/info/patinfo/item/mpphon") 						+ "▦" + 	//휴대폰
			model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/orddd") 		+ "▦" + 	//진료일
			model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/cretno") 	+ "▦" + 	//일련번호
			model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/orddeptcd") 	+ "▦" + 	//진료과
			model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/orddrid") 	+ "▦" + 	//진료의
			rtnAmt 																		+ "▦" + 	//환불금액
			"51" 																		+ "▦" + 	//보험유형
			"S"; 																					//진료유형
			
			setParameter("SPPAO00600_PARM", sValue);
			modal("SPPAO00600", "1","50", "50", "SPPAO00600", "", "", "sysmenu:hidden");
			
		}else if(flag == "2"){
			if(rtnAmt >= 0){
				return;
			}else{
				var rtn = messageBox("환불내역을 등록 하시겠습니까?", "Q999");
				if(rtn == "6"){
					var sValue = flag 															+ "▦" + 	//1.환불내역조회  2.환불수납후 호출
					model.getValue("/root/hidden/session/dutplceinstcd") 						+ "▦" + 	//기관코드
					model.getValue("/root/main/info/patinfo/item/pid") 							+ "▦" + 	//환자등록번호
					model.getValue("/root/main/info/patinfo/item/hngnm") 						+ "▦" + 	//환자성명
					model.getValue("/root/main/info/patinfo/item/rgstno1") 						+ "▦" + 	//주민등록번호앞자리
					model.getValue("/root/main/info/patinfo/item/rgstno2") 						+ "▦" + 	//주민등록번호뒷자리
					model.getValue("/root/main/info/patinfo/item/telno") 						+ "▦" + 	//집전화
					model.getValue("/root/main/info/patinfo/item/mpphon") 						+ "▦" + 	//휴대폰
					model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/orddd") 		+ "▦" + 	//진료일
					model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/cretno") 	+ "▦" + 	//일련번호
					model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/orddeptcd") 	+ "▦" + 	//진료과
					model.getValue("/root/main/list/acpt/acptlist[" + acptRow + "]/orddrid") 	+ "▦" + 	//진료의
					rtnAmt 																		+ "▦" + 	//환불금액
					"51" 																		+ "▦" + 	//보험유형
					"S"; 																					//진료유형
					
					setParameter("SPPAO00600_PARM", sValue);
					modal("SPPAO00600", "1","50", "50", "SPPAO00600", "", "", "sysmenu:hidden");
				}
			}
		}
	}
	
	/**
	 * 패키지에 물려 있는 검사 코드에 동의서 자동 출력 되도록 프로그램 개발
	 * 2015/01/22 이정택
	 * @return
	 */
	function fPrintOcrInfo(){
		model.makeValue("/root/send/testcdinfo/instcd", 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"));
		
		if(submit("TRAHA00931")){
			cnt=getNodeSetCnt("/root/temp/ocrinfo");
			for(var i=1; i<=cnt; i++){
				setParameter("formcd" 	, model.getValue("/root/temp/ocrinfo['"+i+"']/formcd"));
			    setParameter("pid" 		, model.getValue("/root/main/info/acptinfo/acptlist/pid"));
			    setParameter("orddd" 	, model.getValue("/root/main/info/acptinfo/acptlist/orddd"));
			    setParameter("cretno" 	, model.getValue("/root/main/info/acptinfo/acptlist/cretno"));
			    setParameter("ordtype" 	, "S");
			    modal("SSMRF03700");	
			}
		}	
	}
	
	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", 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++){
					setParameter("formcd" 	, model.getValue("/root/temp/ocrinfo['"+i+"']/formcd"));
				    setParameter("pid" 		, model.getValue("/root/main/info/acptinfo/acptlist/pid"));
				    setParameter("orddd" 	, model.getValue("/root/main/info/acptinfo/acptlist/orddd"));
				    setParameter("cretno" 	, model.getValue("/root/main/info/acptinfo/acptlist/cretno"));
				    setParameter("ordtype" 	, "S");
				    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(zipcd2.length!=2){
		messageBox("2015년 8월 1일부터 우편번호 뒷자리는 2자리 변경되었습니다.\n확인 후 수정부탁드립니다.", "E");
		return;
	}
}

/**
 * 종합건진 그리드 클릭시 동명이인 확인을 위해서 로직 추가(2016/10/25)
 */
function fChkPatNameC(gridNode, colName, patName){
	//var cnt=getNodeSetCnt(gridNode + "[pnm='" + patName + "']");
	var cnt=getNodeSetCnt(gridNode + "["+ colName + "='" + patName + "']");
	if(parseInt(cnt)>1){
		messageBox("["+patName+"]님으로 동명이인이 존재합니다. 확인 후 진행부탁드립니다.", "I");
	}
}


/**
 * 환자 팔찌 출력 관련 프로그램 개발(2017/02/03 이정택)
 */
function fPrintBarCode() {

	var pid = model.getValue("/root/main/info/patinfo/item/pid");
	var hngnm = model.getValue("/root/main/info/patinfo/item/hngnm");
	var rrgstno1 = model.getValue("/root/main/info/patinfo/item/rgstno1");
	var today = getCurrentDate();
	var lastinfo = model.getValue("/root/main/info/rsrvacptinfo/item/latestpkginfo").substr(0, 10).replaceAll("-", "");
	var sex = model.getValue("/root/main/info/patinfo/item/sex");
	var age = model.getValue("/root/main/info/patinfo/item/age");

	model.makeValue("/root/hidden/h_receipt/receipt/pid",   pid);
    model.makeValue("/root/hidden/h_receipt/receipt/hngnm2",   hngnm);
    model.makeValue("/root/hidden/h_receipt/receipt/rrgstno",rrgstno1+"  "+today+"/"+lastinfo);
	model.makeValue("/root/hidden/h_receipt/receipt/sex", sex);
	model.makeValue("/root/hidden/h_receipt/receipt/wardcd", "건강증진센터");
    model.makeValue("/root/hidden/h_receipt/receipt/babyyn",   "N");
    model.makeValue("/root/hidden/h_receipt/receipt/age",   age);
    
    model.refresh();
    
    // 프린터정보
    var print_name = "";
    
    // 트레이정보
    var print_tray = "";
    
    // 건진 환자 팔찌 프린터 기준자료 설정
    print_name = model.getValue("/root/init/baseinfo/S980list/S980[cdid = '1']/cdnm");
    print_tray = model.getValue("/root/init/baseinfo/S980list/S980[cdid = '1']/sortseq");

    if (print_name == 'SLP-T400' || print_name == 'SLP-T401') {
        exeReportPreview("RPPMI03202", "XMLSTR" , ""  , "" , print_name , "", "", "", "", "true", "", "", print_tray);
    }
}

/**
 * 종합건진 미수 청구를 분리 시킴
 * @return
 */
function fUncoSeparate(){
	var uncocd = cmb_pkguncocd.value;
	var pkgamt = parseInt(opt_pkgamt.value);
	var discamt = parseInt(opt_discamt.value);
	if(uncocd == 'V14'){
		ipt_paycmpyamt.disabled=false;
		ipt_payinsubamt.disabled=false;
		
		if(isNull(ipt_paycmpyamt.value)){
			ipt_paycmpyamt.value = pkgamt - discamt;
		}
		if(isNull(ipt_payinsubamt.value)){
			ipt_payinsubamt.value = "0";
		}
	}else{
		ipt_paycmpyamt.disabled=true;
		ipt_payinsubamt.disabled=true;
	}
	ipt_paycmpyamt.refresh();
	ipt_payinsubamt.refresh();
}

//업체와 공단미수금액을 변경시 미수금액을 자동 세팅시킴
function fSetUncoAmt(btn_name){
	var uncocd = cmb_pkguncocd.value;
	var pkgamt = parseInt(opt_pkgamt.value) - parseInt(opt_discamt.value);
	var paycmpyamt = model.getValue("/root/main/info/rsrvacptinfo/item/paycmpyamt").replaceAll(",", "");
	var payinsubamt = model.getValue("/root/main/info/rsrvacptinfo/item/payinsubamt").replaceAll(",", "");
	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);
		}
	}
	ipt_paycmpyamt.refresh();
	ipt_payinsubamt.refresh();
}