YNU_JEUS/app_home/himed/xpapps/emr/dialroomxp/xp/SMMND03000.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type ="xscript4.0"><![CDATA[/*

      복막투석 예약등록(SMMND03000.xrw - JScript )

      - Version :
          1)  : Ver.1.00.01
*/

var rsrvfromdd;		//예약시작일자
var rsrvtodd ;		//예약종료일자
var ddterm;		  	//예약일자 간격
var rsrvterm = 0;	//예약기간

/**
 * _group  :
 * _ver    : 2007.05.14
 * _by     : 김진아
 * _---------------------------------------------------
 * _type   : function
 * _access : public
 * _desc   : 화면 초기화
 * _param  :
 * _return :
 * _---------------------------------------------------
 */
function fDone(){
	//컨트롤 초기화
	var sRtn = utlf_getCurrentDate();	//현재일자 리턴	
	dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvfromdd", "string",  sRtn);

	 var node = sysf_getGlobalVariable("paminfo");
   dsf_setCSVToDs("ds_main_paminfo", node);

	 if(ds_main_paminfo.rowcount;> 0) { 
	  	  dsf_makeValue( ds_main_cretlist_cretinfo, "pid", "string",  ds_main_paminfo_list.getColumn(0, "pid"));
	  	  fSrchPat();	//환자기본정보 조회
	  }	 
	 // ds_main_cretlist_pdrsrvlist.clearData();  // 예약정보 그리드 초기화

//grd_pdrsrvinfo.refresh();

	  ipt_pid.setFocus();
}

/**
 * _group  :
 * _ver    : 2007.05.14
 * _by     : 김진아
 * _---------------------------------------------------
 * _type   : function
 * _access : public
 * _desc   : 등록번호로 환자를 검색한다.(예약생성시)
 * _param  :
 * _return : 환자명, 환자주민등록번호
 * _---------------------------------------------------
 */
function fSrchPat()
{
	if(ds_main_cretlist_cretinfo.getColumn(0, "pid") == ""){
		   return;
	}

	ds_send.clearData();
	dsf_makeValue( ds, "send", "string", "" );
	dsf_makeValue( ds_send_reqdata, "pid", "string",  ds_main_cretlist_cretinfo.getColumn(0, "pid"));
	dsf_makeValue( ds_send_reqdata, "dialflag", "string",  "P");
	ds_main_cretlist_getcreinfo_hngnm.clearData();
	ds_main_cretlist_getcreinfo_rrgstno1.clearData();
	ds_main_cretlist_getcreinfo_rrgstno2.clearData();
	ds_main_cretlist_getcreinfo_ioflag.clearData();
	ds_main_cretlist_getcreinfo_matndialflag.clearData();	//유지투석구분
  ds_main_cretlist_pdrsrvlist.clearData();              // 예약정보 그리드 초기화

	opt_hngnm.value    = "";
	opt_rrgstno1.value = "";
	opt_rrgstno2.value = "";
	opt_ioflag.value   = "";	//입원환자 등록번호

//	submit("TRMND03001");	//환자기본정보 및 입원내역테이블을 조회한다.
var oParam = {};
    oParam.id          = "TRMND03001";
    oParam.service     = "dialapp.DialPatMngt";
    oParam.method      = "reqGetHngInfo";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=getcreinfo ds_=detlrsrvinfo";
    oParam.async       = false;
    oParam.callback    = "cf_TRMND03001";

tranf_submit(oParam);
/*
function cf_TRMND03001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRMND03001(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRMND03001") > -1
arErrorCode.pop("TRMND03001") < 0
*/



  dsf_makeValue( ds_main_cretlist_cretinfo, "pid", "string",  ds_main_cretlist_getcreinfo.getColumn(0, "pid"));
	dsf_makeValue( ds_main_cretlist_cretinfo, "hngnm", "string",  ds_main_cretlist_getcreinfo.getColumn(0, "hngnm"));
	dsf_makeValue( ds_main_cretlist_cretinfo, "rrgstno1", "string",  ds_main_cretlist_getcreinfo.getColumn(0, "rrgstno1"));
	dsf_makeValue( ds_main_cretlist_cretinfo, "rrgstno2", "string",  ds_main_cretlist_getcreinfo.getColumn(0, "rrgstno2"));
	dsf_makeValue( ds_main_cretlist_cretinfo, "ioflag", "string",  ds_main_cretlist_getcreinfo.getColumn(0, "ioflag"));
	dsf_makeValue( ds_main_cretlist_cretinfo, "matndialflag", "string",  ds_main_cretlist_getcreinfo.getColumn(0, "matndialflag"));

	fSetDefaultRsrvdd(); // 예약생성초기화

	// 복막투석 예약정보의 과거예약내역에 대한 선택항목 체크박스 비활성화
	for(var i=1; i<grd_pdrsrvinfo.rows; i++ ){
     if(ds_main_cretlist_pdrsrvlist_pdrsrvinfo.getColumn(i, "disableyn") == "false"){
     	   grd_pdrsrvinfo.isReadOnly(i, grd_pdrsrvinfo.colRef("check")) = true;
     }
	}

//model.refresh();

	if(ds_main_cretlist_getcreinfo.getColumn(0, "matndialflag") == "H"){
			     sysf_messageBox("혈액투석 유지환자", "E008", "복막투석 예약을 수행 할 수 없습니다.");
			     fClearChildNode("ds_main_cretlist_cretinfo");
			     dsf_makeValue( ds_main_cretlist, "getcreinfo", "string", "" );
			     ds_main_cretlist_pdrsrvlist.clearData();  // 예약정보 그리드 초기화
			     fSetDefaultRsrvdd();

//model.refresh();

	}else if(ds_main_cretlist_getcreinfo.getColumn(0, "matndialflag") == ""){
			     sysf_messageBox("유지환자가 아닙니다.", "I", "먼저 복막투석 유지환자로 등록하십시오.");
			     fClearChildNode("ds_main_cretlist_cretinfo");
			     dsf_makeValue( ds_main_cretlist, "getcreinfo", "string", "" );
			     ds_main_cretlist_pdrsrvlist.clearData();  // 예약정보 그리드 초기화
           fSetDefaultRsrvdd();

//model.refresh();

	}
}

/**
 * _group  :
 * _ver    : 2007.05.14
 * _by     : 김진아
 * _---------------------------------------------------
 * _type   : function
 * _access : public
 * _desc   : 예약일자 지정(저장버튼 클릭 시)
 * _param  :
 * _return : 
 * _---------------------------------------------------
 */
function fSetRsrvdd()
{
	rsrvfromdd = ds_main_cretlist_cretinfo.getColumn(0, "rsrvfromdd");	//예약시작일자
	rsrvtodd   = ds_main_cretlist_cretinfo.getColumn(0, "rsrvtodd");		//예약종료일자
	ddterm     = ds_main_cretlist_cretinfo.getColumn(0, "rsrvterm");		//예약일자 간격
	if(rdo_rsrvopt.value == 2){												//예약범위
		rsrvterm = utlf_getDateInterval(rsrvfromdd,rsrvtodd);
	}						

	if(rdo_rsrvopt.value == 1){							// 단일 예약일자
		  ds_hidden.clearData();
		  dsf_makeValue( ds_hidden_rsrvddlist, "rsrvdd", "string", "" );
		  ds_hidden_rsrvddlist.setColumn( 0, "rsrvdd", ds_main_cretlist_cretinfo.getColumn(0, "rsrvfromdd"));
	}else if(rdo_rsrvopt.value == 2){					// 예약범위 지정
		  ds_hidden.clearData();
		  //var year = rsrvfromdd.substr(0,4);
		  //var month = rsrvfromdd.substr(4,2);
		  //var day = rsrvfromdd.substr(6,2);
		  //var dd = year + month + day;
		  var dd = rsrvfromdd;

		  //에약일자 간격으로 예약기간동안의 예약일자 구하기
		  for(var i=1; i<=rsrvterm+1; i++){
		  	  if(dd <= rsrvtodd){
		  	  	 var insRow = eval(ds_hidden_rsrvddlist.rowcount;)+1;
		  	  	 model.makeNode("ds_hidden_rsrvddlist["+insRow+"]_rsrvdd");
		  	  	 ds_hidden.setColumn( insRow , "rsrvdd", dd);

             dd = getDateCalc(dd, ddterm, "+");

//2008-09-16 로직 삭제(양천덕)  
//		  	  	 day = parseInt(day) + parseInt(ddterm);
//		  	  	 with(new Date(year, month, 1, 12)) {  //MM = 1 .. 12
//		  	  	 	 setDate(0);
//		  	  	 	 var lstday = getDate(); //해당월의 마지막 일 
//		  	  	 }
//             
//		  	  	 if(parseInt(day)>parseInt(lstday)){
//		  	  	 	  if(month==12){
//		  	  	 	  	 year = parseInt(year)+1;
//		  	  	 	  	 month =(parseInt(month)+1)-12;
//		  	  	 	  	 if(month<10){
//		  	  	 	  	 	 month = "0"+month;
//		  	  	 	  	 }
//		  	  	 	  }else{
//		  	  	 	  	 month = (parseInt(month)+1);
//		  	  	 	  	 if(month<10){
//		  	  	 	  	  	month = "0"+month;
//		  	  	 	  	 }
//		  	  	 	  }
//		  	  	 	  if((parseInt(day)-parseInt(lstday))<10){
//		  	  	 	  	 day = "0"+(day-lstday);
//		  	  	 	  }else{
//		  	  	 	  	 day = (parseInt(day)-parseInt(lstday));
//		  	  	 	  }
//		  	  	 }else{
//		  	  	 	  if(day<10){
//		  	  	 	  	 day = "0"+day;
//		  	  	 	  }
//		  	  	 }
//		  	  	 dd = year + month + day;
		  	  }//end of if
		  }//end of for
	}//end of if
}

function fSetDefaultRsrvdd(){
	 dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvcnts", "string",  "");
   dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvopt", "string",  "1");
   dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvfromdd", "string",  utlf_getCurrentDate());
   dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvtodd", "string",  "");
   dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvterm", "string",  "");
   ipt_rsrvtodd.enable = false;
   ipt_rsrvterm.enable = false;
}

/**
 * _group  :
 * _ver    : 2007.05.14
 * _by     : 김진아
 * _---------------------------------------------------
 * _type   : function
 * _access : public
 * _desc   : 복막투석 예약 저장(저장버튼 클릭 시)
 * _param  :
 * _return : 
 * _---------------------------------------------------
 */
function fSaveRsrv(){
     	if(ds_main_cretlist_getcreinfo.getColumn(0, "matndialflag") == "H"){
     			sysf_messageBox("혈액투석 유지환자", "E008", "복막투석 예약을 수행 할 수 없습니다.");
     			fClearChildNode("ds_main_cretlist_cretinfo");
     			fClearChildNode("ds_main_cretlist_getcreinfo");

//model.refresh();

     	} else{
     		  if(ds_main_cretlist_cretinfo.getColumn(0, "pid") == "") {
	     	  	  sysf_messageBox("등록번호는", "I003", "");
	     	  	  return;
	     	  } 

	     	  if(ds_main_cretlist_cretinfo.getColumn(0, "hngnm")=="") {
	     	  	  sysf_messageBox("환자기본 정보 조회 수행을 하지", "E007", "(등록번호 입력 후 엔터키를 누르십시오.)");
              ipt_pid.setFocus();
	     	  	  return;
	     	  }

					var sCurrDate = utlf_getCurrentDate();
					if(sCurrDate > ipt_rsrvfromdd.value){
						sysf_messageBox("예약일자는 현재일 이전으로 등록할 수 없습니다.","I");
						ipt_rsrvfromdd.value = sCurrDate;
						return;
					}

					if(ipt_rsrvtodd.value < ipt_rsrvfromdd.value && rdo_rsrvopt.value == "2"){
						sysf_messageBox("예약범위 설정이 잘 못되었습니다.","I");
						ipt_rsrvtodd.value = ipt_rsrvfromdd.value;
						return;
					}	

					if(sCurrDate > ipt_rsrvtodd.value && rdo_rsrvopt.value == "2"){
						sysf_messageBox("예약일자는 현재일 이전으로 등록할 수 없습니다.","I");
						ipt_rsrvtodd.value = ipt_rsrvfromdd.value;
						return;
					}

					if(ipt_rsrvtodd.value < ipt_rsrvfromdd.value && rdo_rsrvopt.value == "2"){
						sysf_messageBox("예약범위 설정이 잘 못되었습니다.","I");
						ipt_rsrvtodd.value = ipt_rsrvfromdd.value;
						return;
					}

					if(ds_main_cretlist_cretinfo.getColumn(0, "ampmflag")==""){ // 오전,오후구분 추가_20100125
						ds_main_cretlist_cretinfo.setColumn( 0, "ampmflag", "4");
					}

//     	    if(rdo_rsrvopt.value == 2){ //예약범위
//     	    	  rsrvterm = utlf_getDateInterval(rsrvfromdd,rsrvtodd);
//     	    }
//     	    dsf_makeValue( ds_send_savedata, "pid", "string", ds_main_cretlist_cretinfo.getColumn(0, "pid"));
//     	    dsf_makeValue( ds_send_savedata, "ioflag", "string", ds_main_cretlist_cretinfo.getColumn(0, "ioflag"));
//     	    dsf_makeValue( ds_send_savedata, "rsrvcnts", "string", ds_main_cretlist_cretinfo.getColumn(0, "rsrvcnts"));
//     	    for(var i=1;i<=rsrvterm+1; i++){
//     	    	  var dd = model.getValue("ds_hidden_rsrvdd"+i);
//     	    	  if(dd != ""){
//                 dsf_makeValue( ds_send_savedata, "status", "string",  "i");  //상태값 지정(insert)
//                 dsf_makeValue( ds_send_savedata, "dialflag", "string",  "P");
//     	    	     dsf_makeValue( ds_send_savedata, "rsrvdd", "string",  dd );
//     	    	     ds_main_chkinfo.clearData();
//
//     	    	  	 var ret = submit("TXMND03001");
//                 if(ds_main_chkinfo.getColumn(0, "rtnmgs") != ""){
//                    sysf_messageBox("["+ds_main_chkinfo.getColumn(0, "rtnmgs")+"]일자에 예약이", "E006", "확인 후 다시 시도하십시오.");
//                    return;
//                }
//     	    	  }
//     	    }

          var sOrddd_Old = "";
          var sCretno_Old = "";
          var sGenrflagcd_Old = "";

     	    var sSavePid = ds_main_cretlist_cretinfo.getColumn(0, "pid");
     	    var sSaveioflag = ds_main_cretlist_cretinfo.getColumn(0, "ioflag");
     	    var sSaversrvcnts = ds_main_cretlist_cretinfo.getColumn(0, "rsrvcnts");
          var sParamPid = sSavePid;
          var sParamRsrvdd = ds_main_cretlist_cretinfo.getColumn(0, "rsrvfromdd");
          var sSaveShiftflag = ds_main_cretlist_cretinfo.getColumn(0, "ampmflag");

          /* 진단 copy 로직 시작 */
          if(sSaveioflag == "외래" || sSaveioflag == "-" ){    
          	frmf_setParameter("preDiagCond", "InjRoom▦"+sParamPid+"▦"+sParamRsrvdd+"▦▦▦ds");
          	fFindDiagInfo();

            var sParamArr   = frmf_getParameter("preDiagResult").split("▦");
            sCretno_Old     = sParamArr[3];
            sGenrflagcd_Old = sParamArr[4];
            sIoFlag         = "외래";

            if(sParamArr[1] == "" && sParamArr[2] == "" ){
              //sysf_messageBox("가접수 생성시 진단 Copy할 수진 정보가 선택되지 않았습니다.", "I");
              //return;
          	}else{
            	if(sGenrflagcd_Old == "O"){
           		  sOrddd_Old = sParamArr[1];
           	  }else{
                sOrddd_Old = sParamArr[2];
          	  }	          		
          	}
          }
          /* 진단 copy 로직 종료 */

    	    for(var i= 1 ; i <= ds_hidden_rsrvddlist.rowcount; i++){
     	    	ds_send_savedata.setColumn( i, "pid", sSavePid);
     	    	ds_send_savedata.setColumn( i, "ioflag", sSaveioflag);
     	    	ds_send_savedata.setColumn( i, "rsrvcnts", sSaversrvcnts);
     	    	ds_send_savedata.setColumn( i, "status", "i");  //상태값 지정(insert)
     	    	ds_send_savedata.setColumn( i, "dialflag", "P");
     	    	ds_send_savedata.setColumn( i, "rsrvdd", ds_hidden_rsrvddlist.getColumn(i, "rsrvdd"));
            ds_send_savedata.setColumn( i, "orddd_old", sOrddd_Old                              );  // 과거 진료일자                    	    	
            ds_send_savedata.setColumn( i, "cretno_old", sCretno_Old                             );  // 과거 생성번호                    	    
            ds_send_savedata.setColumn( i, "genrflagcd_old", sGenrflagcd_Old                         );  // 과거 외래입원구분                	    
            ds_send_savedata.setColumn( i, "orddeptcd_old", ""                                      );  // 과거 진료과          		    
            ds_send_savedata.setColumn( i, "copyflag", "Y"                                     );  // 진단 복사  구분 ( Y_N,NULL => N이거나 NULL이면 이전 로직대로 )					
            ds_send_savedata.setColumn( i, "shiftflag", sSaveShiftflag); // 오전,오후에 따른 shift구분 추가(오전:4,오후:6)_20100125
          }
          ds_main_chkinfo.clearData();					
//          var ret = submit("TXMND03001");
var oParam = {};
    oParam.id          = "TXMND03001";
    oParam.service     = "dialapp.DialPatMngt";
    oParam.method      = "reqExeSaveCretInfo";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=rtnmgs";
    oParam.async       = false;
    oParam.callback    = "cf_TXMND03001";

tranf_submit(oParam);
/*
function cf_TXMND03001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TXMND03001(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TXMND03001") > -1
arErrorCode.pop("TXMND03001") < 0
*/



					//return Msg 존재 여부 체크
          if(ds_main_chkinfo.rowcount;> 0){
          	 var pDupMsg = ""; //중복값 관련 메시지
          	 var pEmpMsg = ""; //의사미지정 관련 메시지
          	 for(var k = 1 ; k <= ds_main_chkinfo.rowcount; k++){
          	 	 if(ds_main_chkinfo.getColumn(k, "rtnmgsflag")=="dup"){
          	 	 	 if(pDupMsg == ""){
          	 	 	   pDupMsg += ds_main_chkinfo.getColumn(k, "rtnmgs");	
          	 	 	 }else{
          	 	 	 	 pDupMsg += ", " + ds_main_chkinfo.getColumn(k, "rtnmgs");	          	 			
          	 	 	 }          	 		
          	 	 }else{
          	 	 	 if(pEmpMsg == ""){
          	 	 	 	 pEmpMsg += ds_main_chkinfo.getColumn(k, "rtnmgs").substr(0,4)+"-"
          	 	 	 	          + ds_main_chkinfo.getColumn(k, "rtnmgs").substr(4,2)+"-"
          	 	 	 	          + ds_main_chkinfo.getColumn(k, "rtnmgs").substr(6,2);	
          	 	 	 }else{
          	 	 	 	 pEmpMsg += ", " + ds_main_chkinfo.getColumn(k, "rtnmgs").substr(0,4)+"-"
          	 	 	 	          + ds_main_chkinfo.getColumn(k, "rtnmgs").substr(4,2)+"-"
          	 	 	 	          + ds_main_chkinfo.getColumn(k, "rtnmgs").substr(6,2);	  	 			
          	 	 	 } 
          	   }
          	 }
          	 if(pDupMsg != ""){
             	 sysf_messageBox("["+pDupMsg+"]일자에 예약이", "E006", "\n확인 후 다시 시도하십시오.");
             }
             if(pEmpMsg != ""){
                sysf_messageBox("["+pEmpMsg+"]일자에 예약의사가 지정되지 않았습니다.", "E", "\n확인 후 다시 시도하십시오.");
             }
          }else{     	    
	     	     if(ret == true){  //저장성공
	     	        sysf_messageBox("", "I001", "");
	     	     }
	     	  }
      }
   fSrchPat();//환자기본정보 조회
}

/**
 * _group  :
 * _ver    : 2008.02.11
 * _by     : 김진아
 * _---------------------------------------------------
 * _type   : function
 * _access : public
 * _desc   : 복막투석 예약취소 저장(취소저장 버튼 클릭 시)
 * _param  :
 * _return : 
 * _---------------------------------------------------
 */
function fSaveCncl(){
     ds_send.clearData();
     dsf_makeValue( ds, "send", "string", "" );
     dsf_makeValue( ds_send, "savedata", "string",  grd_pdrsrvinfo.getupdatedataAll("i"));
     dsf_makeValue( ds_temp_rtnmsg, "rtnmsg", "string",  "");

//     if(submit("TXMND03002") == true){	//kys-20091222
var oParam = {};
    oParam.id          = "TXMND03002";
    oParam.service     = "dialapp.DialPatMngt";
    oParam.method      = "reqExeSaveDetlrSrvInfo";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=rtnmsg";
    oParam.async       = false;
    oParam.callback    = "cf_TXMND03002";

tranf_submit(oParam);
/*
function cf_TXMND03002(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TXMND03002(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TXMND03002") > -1
arErrorCode.pop("TXMND03002") < 0
*/


     	if(ds_temp_rtnmsg.getColumn(0, "rtnmsg")=="Y"){	//추가-kys-20091222-예약취소시 기록중인지를 체크한다.
      		 sysf_messageBox("예약취소건중 복막투석기록한것이 존재하여 예약취소를 ","E001","확인 후 다시 시도하십시오.");
      	}
     }
}

/**
 * _group  :
 * _ver    : 2007.06.30
 * _by     : 김진아
 * _---------------------------------------------------
 * _type   : function
 * _access : public
 * _desc   : 예약범위 초기화
 * _param  :
 * _return : 
 * _---------------------------------------------------
 */
function fInitRsrvdd() {
	    if(rdo_rsrvopt.value == 1){ // 단일 예약일자
	    	    dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvfromdd", "string",  utlf_getCurrentDate());
	    	    dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvtodd", "string",  "");
	    	    dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvterm", "string",  "");
				    ipt_rsrvtodd.enable = false;
				    ipt_rsrvterm.enable = false;
			}else{                     // 예약범위 지정
				    dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvfromdd", "string",  utlf_getCurrentDate());
				    dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvtodd", "string",  utlf_getCurrentDate());
	    	    dsf_makeValue( ds_main_cretlist_cretinfo, "rsrvterm", "string",  "1");
				    ipt_rsrvtodd.enable = true;
				    ipt_rsrvterm.enable = true;
			}

//model.refresh();

}

function fUseridPopup(pPath, pNodeID, pNodeNM, pNodeRrgsNo1, pNodeRrgsNo2, pDOC) {
	     ds_properties_parameters_SendData_SendDatavalue.clearData();

	     modal("SMMNE03700", 1, event.screenX-100, event.screenY-100, "SMMNE03700", "ds_main_cretlist_cretinfo_pid", "ds_init_searchitem");

	     var pParam = ds_properties_parameters_SendData.getColumn(0, "SendDatavalue");
       var pParamValue = pParam.split("|");
       if(pParamValue[0].length > 0){
           dsf_makeValue( ds_main_cretlist_cretinfo, "pid", "string",  pParamValue[0]);
           dsf_makeValue( ds_main_cretlist_cretinfo, "hngnm", "string",  pParamValue[1]);
           dsf_makeValue( ds_main_cretlist_cretinfo, "rrgstno1", "string",  pParamValue[2]);
           dsf_makeValue( ds_main_cretlist_cretinfo, "rrgstno2", "string",  pParamValue[4]);

//model.refresh();

        }
}
]]></Script>