YNU_JEUS/app_home/himed/imsi/xpapps/emr/prcpmngtxp/xp/SMMMO00100.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/*function list
fBaseCdInit: 처방화면 공통코드 초기화
fInitializeScreen: 처방화면 세팅 초기화
fInitializeConDone: 처방화면 초기화 ( xforms-model-construct-done )
fInitializeReady: 처방화면 초기화( xforms-ready )
fDetlVw: 처방상세보기
fPrcpSrch: 처방검색(처방 그리드에서 처방명 쓰고 엔터치면 실행)
fPrcpDetl: 처방상세팝업
fPrcpDetlApp: 처방상세 입력내용을 메인에 적용
fMouseRghtBtnPopup: 오른쪽 마우스 팝업
fDrugInfo: 오른쪽 마우스 팝업 약정보
fDeleteRow: 오른쪽 마우스 클릭 삭제
fCnclDel: 오른쪽 마우스 클릭 삭제,D/C 취소
fPrcpBuffer:  함수 호출시 선택된 데이터를 특정 노드에 담아둔다.
fDelUndo: 마지막 삭제시 버퍼에 담겨둔 것을 되살린다.
fGridDrag: drag 시 이동할 grid 인스턴스 저장    
fGridDrop: drop위치에 인스턴스 mapping, 본체 remove, 이동한 row select
fSaveExistCheck: 처방 데이터 저장시 저장할 데이터가 있는 지 check
fPrcpSave: 처방 데이터 저장
fPrcpSavePatList: 진료대상자 리스트에서 환자 호출시 저장할 데이터가 있을 시 저장한다.
fPrcpSort: 처방정렬 
bfDrugCalc: 용량, 수량, 횟수의 수정전 값을 instance에 넣어둔다.
DrugCalc: 용량, 수량, 횟수를 수정했을 때 값계산
fPreWorkUp: PreWorkUp 오른쪽 마우스 클릭 ( BMT )
fPrcpDdCheck: 정규, 추가처방 처리
fTempPrcp: 임시처방
fDiagSrch: 진단검색
fDaigMouseRghtBtnPopup: 진단 오른쪽 마우스 클릭
fDiagDeleteRow: 환자진단삭제
fDiagUpdate: 환자진단수정
fPatDiagSrch: 환자진단검색
fMediDayNo: 투약일수조회
fDiagDetlVw: 진단상세보기
fDentifmla: 치식
fPrcpdelivefact: 전달사항 일괄입력
fReqfrm: 병리의뢰지 호출하기
fGetSpc: 진단검사 검체 호출 
fPrmsPrcp: 약속처방등록
fBaseMthd: 경구약 기본용법 조회
fScrnInitialize: 처방화면 초기화
fPrcpCopy: 처방화면 오른쪽 마우스 클릭 처방복사
fInitPaminfo: 전처방에서 급비변경후 환자정보 다시 SETTING
fPrcpWndClose : 처방화면 close
fSubjPrcpChk : 임상연구탭 view가능 여부 체크
fInitPrcpWnd : 처방화면 초기화
fXformsReady : 처방화면 초기화 (처음 열린 경우 )
fXReReady : 처방화면 초기화 (다시 열린 경우)
*/

//변수선언
var prcpKindCdCol = 3;      //처방종류 index
var prcpnmCol = 5;          //처방명 컬럼 index


var bfPrcpdd = "";          //처방일자를 바꾸기 전의 값을 담아둠
var diagnmCol = 4;

var SubmitTF_SMMMO00110 = false;        //MM)00101.js 에서 fPrcpSave()를 호출 시, 서브밋 성공여부 담음.(2008.01.29)

var arErrorCode = new HashArray();


/**@desc   : 처방화면 공통코드 초기화
 * @id     : model1
 * @event  : xforms-model-construct-done
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fBaseCdInit() {
	lf_mmbfGetDeptCodeComboList(ds_issdept, "I");
    lf_prcpExecDeptSrch("all");
    
    appf_getCodeList([{dsNm: "ds_M0003", cdGrpId: "M0003"}
					, {dsNm: "ds_M0005", cdGrpId: "M0005"}
					, {dsNm: "ds_M0011", cdGrpId: "M0011"}
					, {dsNm: "ds_P0034", cdGrpId: "P0034"}
					, {dsNm: "ds_M0029", cdGrpId: "M0029"}
					, {dsNm: "ds_M0046", cdGrpId: "M0046"}
					, {dsNm: "ds_M0007", cdGrpId: "M0007"}
					, {dsNm: "ds_M0545", cdGrpId: "M0545"}], true);
					
    lf_getHardCDList("N", 274, null, ds_c6specdrlist);
    lf_getHardCDList("N", 275, null, ds_autosetprcplist);
    lf_getHardCDList("N", 282, null, ds_securelimitdeptlist);
    lf_getHardCDList("N", 285, null, ds_specprcpdrinfo);  // 영상의학과 선택진료 교수 자동 배정
    lf_getHardCDList("N", 287, null, ds_d2specdrlist);  // 병리과 의사 자동배정
    lf_getHardCDList("N", 289, null, ds_b2specdrlist);  // 진검 선택진료 의사 자동배정
    lf_getHardCDList("N", 270, null, ds_init_operationroominfo);   // 일일수술실 수술방을 조회한다. 
    
    //20110211 mjm 추가 선택진료의 로그인 했을 때 가져오는 것으로 수정
    if ( !utlf_isNull(ds_initsrch_usercombo) && ds_initsrch_usercombo.rowcount > 0 ) {
        if ( ds_specdrinfo.rowcount < 1 )
			ds_specdrinfo.copyData(ds_initsrch_usercombo);
    } else  {
        sysf_messageBox("현재 프로그램 배포로 인해 진료에 필요한 데이터를 재조회 해야합니다. 죄송하지만 반드시 다시 로그인 해주시기 바랍니다.", "");         
        lf_mmbfGetUserComboList(ds_specdrinfo, sysf_getUserInfo("dutplcecd"), "0330", "", "M", "", "", "", "Y"); // 선택진료의사 리스트를 조회한다.
    }
}

/**@desc   : 처방화면 세팅 초기화
 * @id     : model1
 * @event  : xforms-model-construct-done
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fInitializeScreen() {    
  //처방화면 위치 선정 2008. 06. 02 오지훈, 두번째 모니터에서 띄어진 경우 중간에 띄지 않는 문제 해결
  //var xpt     = window.screenleft + eval(0);
  //var ypt     = window.screenTop  + eval(0);
  //var coord   = getRelativeCoordinate ( xpt, ypt );
  //alert(xpt + "," + ypt);
  //window.left = xpt;
  //window.top  = ypt;
  
  //처방화면 초기화시 일일 용량으로 할지 1회 용량으로 할지에 따라서 보여지는 컬럼값 변경
  // DB에 저장된 병원기준값을 가지고 와서 보여주는 컬럼을 셋팅한다. 
  var colHidnValue = lf_grdBaseColHidn("D");
  lf_grdBaseColHidn(colHidnValue);
  //처방화면 초기화  
  ds_main_prcplist.selectRow(ds_main_prcplist.rowcount - 1);
  ds_main_prcplist.rowposition = ds_main_prcplist.rowcount - 1;  
  div_all.grd_prcplist.setCellPos(prcpnmCol);
  
  //진단화면 초기화
  ds_main_diagcdlist.selectRow(ds_main_diagcdlist.rowcount - 1);
  ds_main_diagcdlist.rowposition = ds_main_diagcdlist.rowcount - 1;
  div_all.grd_diaglist.setCellPos(diagnmCol);  
  
  div_all.grd_prcplist.setFocus();
}

/**@desc   : 처방화면 초기화
 * @id     : model1
 * @event  : xforms-model-construct-done
 * @return : void
 * @authur : 마정민 2007. 3. 14             
 */
function fInitializeConDone(saveFlag) {
    
    //처방 속도개선을 위한 시간 체크 set 20101027  LYJ
    try {
         var SMMMO00100_S = new Date();
         var ordPatObj = frmf_findPopup("SMMMO04100");    
         var SMMMO04100_chk = ordPatObj.frmf_getParameter("SMMMO04100_chk");
         if(!utlf_isNull(ordPatObj) && SMMMO04100_chk == "Y"){
              ordPatObj.frmf_setParameter("SMMMO00100_S3",SMMMO00100_S.getTime());
          }
     } catch(e) {
     }
    //xforms-ready 에 썼더니 변하는게 보인다.
    
    // 2007.12.07 추가 (Cp창이 열려있다면 close)
	ds_main_prcplist.clearData();
    lf_appendChildPrcp ( "ds_reset_prcplist", "ds_main_prcplist", "main", "S" ); //검색라인추가
    
    var prcpgenrflag = "";
    var patFlagCvs = sysf_getGlobalVariable("patflag");
    if(!utlf_isNull(patFlagCvs) && patFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
        dsf_setCSVToDs("ds_patflag", patFlagCvs);	 //상단화면 정보 초기화
        
        prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    }
    
    var pamInfoCvs = sysf_getGlobalVariable("paminfo");
    var insukindcd =  appf_getPatientInfoDetail("insukind");
    var vopt_insuinfo = "";
    if(!utlf_isNull(pamInfoCvs)){ //cvs가 null이 아닌 경우에만 처리함.
		dsf_setCSVToDs("ds_paminfo", pamInfoCvs);	//상단화면 정보 초기화
		ds_init.setColumn(0, "pid", ds_paminfo.getColumn(0, "pid" ));
        
        var vopt_patinfo  = ds_paminfo.getColumn(0, "dispnm2" ) + " " + ds_paminfo.getColumn(0, "sex" ) + "/" + ds_paminfo.getColumn(0, "age" );
        var roomcd        = lf_getDsValue(ds_paminfo, 0, "roomcd");
        if (!utlf_isNull(roomcd)){
            vopt_patinfo = vopt_patinfo + " " + roomcd + "호";
        }
      
        if(prcpgenrflag == "O" && ds_paminfo.getColumn(0, "dnoracptyn" ) == "Y") {
            vopt_patinfo = vopt_patinfo + " [donor w/u]";
        }
        
        if( (prcpgenrflag == "I" || prcpgenrflag == "E" || prcpgenrflag == "D") && appf_getPatientInfoDetail("drgyn") == "Y" ) { //DRG 환자 표시 2013.05.06 엄영만
            vopt_patinfo = vopt_patinfo + " [DRG]";
        }
        
        ds_init.setColumn(0, "patinfo", vopt_patinfo);
      
        if (insukindcd == "21"){
            vopt_insuinfo = "[의료급여1]";
        }else if (insukindcd == "22"){
            vopt_insuinfo = "[의료급여2]";
        }else if (insukindcd == "81"){
            vopt_insuinfo = "[장기요양]";
        }else{
            vopt_insuinfo =   "[" + appf_getPatientInfo("insukind") + "]" ;
        }
        
		ds_init.setColumn(0, "insuinfo", vopt_insuinfo );
		
		var sReMark = lf_getDsValue(ds_paminfo, 0, "warnmsg"); // 주의요망 환자 메세지
		
        if ( insukindcd == "31" || insukindcd =="41"){
			 if(!utlf_isNull(sReMark)) {
                sReMark = sReMark + "\n\n";
            }
            
            if (appf_getPatientInfoDetail("ioflag") == "O"){
				sReMark = sReMark + "자보/산재 환자입니다. \n관련 처방을 모두 [급여]로 처방하여 주시기 바랍니다.\n기왕증은 건강보험으로 재접수하여 처방해 주시기 바랍니다.";
            }else {
				sReMark = sReMark + "자보/산재 환자입니다. \n관련 처방은 모두 [급여]로 처방하여 주시기 바랍니다. \n그 외 처방은 처방 상세팝업에서 기왕증 체크 후 처방해 주시기 바랍니다.";
            }
        }
        
        if(!utlf_isNull(sReMark)) {
			ds_paminfo.addColumn("remark", "string");
			ds_paminfo.setColumn(0, "remark",  sReMark);
            div_all.group_rmk.visible = true;
        }
    }

    //PRN 적용여부를 실시간으로 가져와서 체크한다. 2010-01-02 by LYJ 
    lf_getHardCDList("N", "173", null, ds_prnprcpyninfo);
    ds_save_saveflaginfo.setColumn(0, "prnprcpyninfo", ds_prnprcpyninfo.getColumn(0, "hardcd"));
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
        div_all.cmb_prcpkind.visible      = false; 
        div_all.cal_prcpdd.visible        = false;
        div_all.cmb_issdept.visible       = true;
        div_all.cmb_hosinprcpresn.visible = true;
        div_all.btn_issdept.visible       = true;
        div_all.caption1.visible = true;
        div_all.Div00.button21.visible = true;       //kimsj 되의뢰버튼 
        div_all.cmb_issdept.position.x = 454;
        div_all.btn_issdept.position.x = 558;
        div_all.cmb_hosinprcpresn.position.x = 695;
        div_all.cmb_hosinprcpresn.position.width = 240;  //298-58=240
        
        div_all.btn_prcpsave2.enable = true;  // 진료예약 + 인증저장
        //btn_prcpsave3.enable = true;  // 가셔야할 곳 출력 및 인증저장
        div_all.chk_patgolistprtyn.enable = true;
        div_all.btn_prtpattogo.visible = true;
        
        div_all.grd_prcplist.setFormatColProperty(prcpKindCdCol, "size", 0);
        
        ds_init.setColumn(0, "prcpkindcd", "20" ); //처방종류(추가)
        ds_init.setColumn(0, "prcpdd", ds_paminfo.getColumn(0, "orddd"));
        
        //20110104. mjm수정. 경부의 원무 프로세스상 원무의 환자원내 사유를 가져오지 않게 주석처리
        //2013.08.08 엄영만 수정 정신과 해바라기센터 의뢰 환자의 원내 사유 설정.
        if( "2030000000" == ds_paminfo.getColumn(0, "orddeptcd") && "29" == ds_paminfo.getColumn(0, "hosoutexptresncd") ) {
            ds_init.setColumn(0, "hosinprcpresncd", "29"); // 협진(한양방, 양한방, 양양방)환자  정신과 해바라기센터 의뢰 환자 체크
        } else {
        	//2013/09/30 인증 저장됐을시 인증저장 된 값으로 원내처방사유를 세팅(이정택)
        	if(saveFlag=="save"){
        		ds_init.setColumn(0, "hosinprcpresncd", ds_paminfo.getColumn(0, "hosoutexptresncd"));	
        	}else{
        		ds_init.setColumn(0, "hosinprcpresncd", "00");
        	}
        }
        
        //20080927 마정민 수정. 외래환자가 암센터인경우는 발행처를 암센터로 한다.
        // 20101227 김영학 수정 외래환자가 센터로 접수한 경우는 발행처를 센터로 한다. 
        // 2010. 12. 31 특정 센터만 발행처를 센터로 한다. 칠곡병원 김진경 선생님 요청
        var patcentcd    = ds_paminfo.getColumn(0, "centcd" );
        var patorddeptcd = ds_paminfo.getColumn(0, "orddeptcd" );
        if(lf_ContainsHardCD("264", patorddeptcd)) {              // 진료과가 포함 되면 진료과로 설정 (센터내 특정진료과만 집계를 틀리게 하기 위해) 2013.12.11 엄영만
            ds_root.setColumn(0, "issdept", patorddeptcd);
        } else if(lf_ContainsHardCD("264", patcentcd)) {
            ds_root.setColumn(0, "issdept", patcentcd);
        } else {
            ds_root.setColumn(0, "issdept", patorddeptcd);
        }
    } else { //입원, 응급일때           
        if (prcpgenrflag == "I") {
            ds_init.setColumn(0, "hosinprcpresncd", "00"); 
            div_all.Div00.button21.visible = false;       //kimsj 되의뢰버튼 - 입원일 경우 보이지 않도록 설정
        } else {             
            ds_init.setColumn(0, "hosinprcpresncd", ds_paminfo.getColumn(0, "hosoutexptresncd"));
            div_all.Div00.button21.visible = true;    //kimsj 되의뢰버튼
        }
        
        // 응급실 발행부서 관련 셋팅. 응급실 환자의 경우 센서스에 등록되어 있는 부서코드로 발행부서를 셋팅해준다.2012.04.24 엄영만       
        var erissdeptcd = ds_paminfo.getColumn(0, "erissdeptcd");
        if (prcpgenrflag == "E" && !utlf_isNull(erissdeptcd) && erissdeptcd != "-") {
            ds_root.setColumn(0, "issdept", erissdeptcd);
        } else {
            ds_root.setColumn(0, "issdept", ds_paminfo.getColumn(0, "wardcd" ));
        }

        if ( saveFlag != "save" || utlf_isNull(ds_init.getColumn(0, "prcpdd"))) {
            ds_init.setColumn(0, "prcpdd", utlf_getCurrentDate());
        }
       
        div_all.cmb_hosinprcpresn.visible = false;
        div_all.cmb_prcpkind.visible      = true; 
        div_all.cal_prcpdd.visible        = true;
        div_all.cmb_issdept.visible       = true;    
        div_all.caption1.visible          = false;
        div_all.btn_issdept.visible       = true;
        
        div_all.grd_prcplist.setFormatColProperty(prcpKindCdCol, "size", 55);
        
        div_all.cmb_issdept.position.x = 662;
        div_all.btn_issdept.position.x = 764; 
        
        div_all.btn_prcpsave2.enable = false;  // 진료예약 + 인증저장
        div_all.chk_patgolistprtyn.enable = false;
        div_all.btn_prtpattogo.visible = false;
        
        //by sonjy 20081020 입원 일때만 정규 처방 시간 check  
        // by 김영학 2010. 12. 29 정규처방 입력시간을 하드코드 테이블 활용 수정 ( 261번)
        lf_getHardCDList("N", "261", null, ds_nomalordertm);
        
        var nomalordrendtm  = ds_nomalordertm.lookup("cdseqno", '1', "hardcd");
        var nomalordrstrttm = ds_nomalordertm.lookup("cdseqno", '2', "hardcd");
        if ( eval (utlf_getCurrentTime().substr (0,2)) <= parseInt(nomalordrendtm)  && prcpgenrflag == "I") { //처방종류: 4시전이면 정규
            ds_init.setColumn(0, "prcpkindcd", "10" );
        } else if ( eval (utlf_getCurrentTime().substr (0,2)) >= parseInt(nomalordrstrttm)  && prcpgenrflag == "I" ) { //9시 이후면 정규, 날짜는 다음날짜
            ds_init.setColumn(0, "prcpkindcd", "10" );
            var nextDay = utlf_getCurrentDate().toDate().getAddDate(1,"D").getDateFormat(); //다음날을 찾는다.  
            ds_init.setColumn(0, "prcpdd", nextDay  );
        }  else { //추가처방
            ds_init.setColumn(0, "prcpkindcd", "20" );
        } 

        if ( prcpgenrflag == "E" || prcpgenrflag == "D" ) {
            div_all.cmb_hosinprcpresn.visible = true;
            ds_init.setColumn(0, "prcpkindcd", "20" );
            div_all.cmb_hosinprcpresn.position.x = 786;
            div_all.cmb_hosinprcpresn.position.width = 147;  //204-57=147
        }
    }

    //@@@ 조영제 부작용 관리팝업 한번만 띄우기 위해 관련 paramter를 저장 후에 초기화 하도록 수정 (2010.07.16 JJE)
    frmf_clearParameter("SPAER01900_popupYN");
    frmf_clearParameter("SPAER01900_prcpcd");
    frmf_clearParameter("SPAER01900_lnkno");

    //협진명을 처방화면에 표시, 2008.04.26 오지훈  
    var cnsttypenm = appf_getPatientInfoDetail("coopteamnm");
    if(utlf_isNull(cnsttypenm)){
        div_all.Div00.stt_cnsttypenm.visible = false;
        div_all.Div00.btn_cnstconf.visible   = false;
    }else{
        ds_init.setColumn(0, "cnsttypenm", cnsttypenm);
        div_all.Div00.stt_cnsttypenm.visible = true;
        div_all.Div00.btn_cnstconf.visible   = true;
    }
    // 선택진료 위임여부를 처방화면에 표시 , 2008. 05. 29 김영학
    var specordtypenm = appf_getPatientInfoDetail("specordtypenm");
    if (specordtypenm == "-" || utlf_isNull(specordtypenm)) {
        ds_init.setColumn(0, "specordtypenm", "");
        div_all.Div00.stt_specordtypenm.visible = false;
    } else {
        ds_init.setColumn(0, "specordtypenm", specordtypenm);
        div_all.Div00.stt_specordtypenm.visible = true;    
    }
  
    //의뢰서회신 관련 정보 처리  kimsj 20100208 수정 (회신정보 없을 경우 보이지 않도록 수정) 
    if(ds_paminfo.getColumn(0, "replyn")=="N"){      
        ds_init.setColumn(0, "repltypenm", ds_paminfo.getColumn(0, "repltypenm"));
    } else {
        ds_init.setColumn(0, "repltypenm", "");
    }
  
    //중증등록 유효기간 만료 표시 [중증등록 종료일자 기준 -1개월 ~ +18개월]  kimsj 100818
    var sdoaendchk = appf_getPatientInfoDetail("sdoaendchk");
    if (sdoaendchk == "Y") {
        ds_init.setColumn(0, "sdoaendnm", "[중증등록 유효기간 만료]");
        div_all.Div00.stt_sdoaendnm.visible = true;
    } else {
        ds_init.setColumn(0, "sdoaendnm", "");
        div_all.Div00.stt_sdoaendnm.visible = false;    
    }
  
    //20080731 마정민 수정 수술탭에서 선택한 것은 수술후에서 수술중으로 처리
    var operationFlagCvs = sysf_getGlobalVariable("operation");  
    if(!utlf_isNull(operationFlagCvs) && operationFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
        dsf_setCSVToDs("ds_operation", operationFlagCvs ); //상단화면 정보 초기화
        ds_init.setColumn(0, "prcpkindcd", "35" );
    } else {
		ds_operation.clearData();
    }
    
    bfPrcpdd = ds_init.getColumn(0, "prcpdd");
    if(utlf_isNull(pamInfoCvs)){
        return;
    }   

    //20080818 마정민 수정. 처방 저장후 불러오는 건은 app에서 호출하는 걸로 수정.
    if ( saveFlag == "save" ){        
        ds_initsrchprcp_prcpetccnts.copyData(ds_savertninfo_prcpetccnts);
        ds_initsrchprcp_rsrvcvrtprcp.copyData(ds_savertninfo_rsrvcvrtprcp);        
        ds_initsrchprcp_saveserdiagcont.copyData(ds_savertninfo_saveserdiagcont);        
        ds_initsrchprcp_saveresindenture.copyData(ds_savertninfo_saveresindenture);
    } else {
        fInitSrch();
    }

    if ( prcpgenrflag == "O" ){ //외래일때
        //20090316 마정민 수정. login 정보에서 당인선검사 사용여부 가져옴
        if ( !utlf_isNull(ds_initsrch_pretest) && ds_initsrch_pretest.getColumn(0, "trgtcd") == "Y" ) {
            div_all.chk_aftrcpt.visible = true;
        }
    } else {
        div_all.chk_aftrcpt.visible = false;
    }

    //20090428 마정민 추가. 외래수술로 추가
    if (!utlf_isNull(ds_operation.getColumn(0, "oprsrvno"))){        
        div_all.chk_aftrcpt.visible = false;
        div_all.cmb_prcpkind.visible = true;
    } 

    if ( ds_init.getColumn(0, "setprcpyn") == "Y" && saveFlag != "save" ){     
        if ( ds_root.getColumn(0, "cp" ) != "Y" ) {
            //전처방의 로딩여부 초기화, bfprcpload를 N으로 설정해야 진료기록을 띄울 수 있음 2008.02.12 오지훈
            ds_init.getColumn(0, "bfprcpload", "N");
            div_all.Tab_prcp.tabindex = 1;
            div_all.Tab_prcp.tp_bfprcp.fInitialize();
        }
    }
  
    //ivw_prcp3추가 관련 로직 이동 및 변경.. by sonjy  2008-08-20 start
// iviewer 관련 확인필요
    if ( ds_init.getColumn(0, "detlivw") == "m" ) {			
        div_all.Tab_prcp.components[div_all.Tab_prcp.tabindex].fIvwDetlVwCom(); 
    } else if ( ds_init.getColumn(0, "detlvw" ) == "m"  ) {
		fDetlVw("y");
    } 
  
    if( div_all.Tab_prcp.tabindex == 1 ) {
        if ( ds_init.getColumn(0, "detlivw") == "m" ) {
            div_all.Tab_prcp.tp_bfprcp.fIvwDetlVwCom("bf"); 
        } else if ( ds_init.getColumn(0, "detlvw" ) == "m"  ) {
            fDetlVw("y");             
        } 
    }
    //ivw_prcp3추가 관련 로직 이동 및 변경.. by sonjy  2008-08-20 end
  
    if ( ds_anst.getColumn(0, "paramyn") != "Y" ) {
        if ( !utlf_isNull(ds_operation.getColumn(0, "oprsrvno")) && prcpgenrflag == "O") {
            div_all.cmb_prcpkind.enable = false;
        } else {
            div_all.cmb_prcpkind.enable = true;
        }
    } 
  
    // 외래에서 로그인 한 의사의 부서와 환자의 부서가 같지 않을 경우 인증저장 버튼 비활성 - 20081015 by Moonsh
    var orddeptcd    = ds_paminfo.getColumn(0, "orddeptcd");		// 환자의 진료과 
    var instcd       = sysf_getUserInfo("dutplceinstcd");           // 로그인 사용자의 기관기호
    var userdeptcd   = sysf_getUserInfo("dutplcecd");               // 로그인 사용자의 부서코드 
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag" );	// 입원, 외래 정보   
    var oprsrvinfo   = ds_operation.getColumn(0, "oprsrvno");   
    var chkDisbBtnYN = "N";  //20091015 by JJE 추가
    if ( prcpgenrflag == "O" ){
        if ( orddeptcd != userdeptcd ) {
            if ( utlf_isNull(oprsrvinfo) ) {
                if(instcd == "032" && orddeptcd == "2110000000" && lf_ContainsHardCD("445", userdeptcd)) {
                    // 2014.04.01 엄영만 칠곡 소아청소년과 분과 관련 이전 처방을 DC 할수 있도록 하기 위해 조건 추가
                } else {
                    div_all.btn_prcpsave.enable = false;
                    div_all.btn_prcpsave2.enable = false;
                    div_all.btn_prcpsave.tooltiptext = "선생님의 부서와 환자의 부서가 같지 않아서 인증 저장을 할 수 없습니다.";               
                    div_all.btn_prcpsave2.tooltiptext = "선생님의 부서와 환자의 부서가 같지 않아서 인증 저장을 할 수 없습니다.";               
                    chkDisbBtnYN = "Y";  //20091015 by JJE 추가
                }
            }
        }
    }
    
    //20140407 엄영만 직종코드가 의사가 아니면 인증저장 버튼 비활성화 처리
    var jobkindcd = sysf_getUserInfo("jobkindcd");
    if ( !lf_ContainsHardCD("69", jobkindcd)) {
        div_all.btn_prcpsave.enable = false;
        div_all.btn_prcpsave2.enable = false;
        div_all.btn_prcpsave.tooltiptext  = "의사직종의 사용자가  아니므로 인증저장 할 수 없습니다.";
        div_all.btn_prcpsave2.tooltiptext = "의사직종의 사용자가  아니므로 인증저장 할 수 없습니다.";
        chkDisbBtnYN = "Y";  //20091015 by JJE 추가
    }
  
    if ( prcpgenrflag == "E" ){
        var mainObj = frmf_getMainViewer();     
        var ordPatObj = mainObj.frmf_findPopup("SMMMO04100");    
        if(ordPatObj != null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
           var callvisityn = ordPatObj.frmf_getParameter("SMMMO04100_callvisityn");
           ds_tmp.setColumn(0, "callvisityn",callvisityn)
           if (callvisityn == "N")  {
              div_all.btn_prcpsave.enable = false;
              div_all.btn_prcpsave2.enable = false;
              div_all.btn_prcpsave.tooltiptext = "응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능 합니다.";     
              div_all.btn_prcpsave2.tooltiptext = "응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능 합니다.";     
              chkDisbBtnYN = "Y";       
           }
        } 
    }// 응급실 call visit 하지 않으면 처방 인증저장만 가능 20100527 by LYJ

    //20091015 by JJE 처방 창 사용 도중 저장버튼 비활성화 처리 될 수 있으므로(fChkInCnclYN() 추가에 따라) 화면 환자 전환 시 활성화 처리 필요
    if(chkDisbBtnYN == "N"){
        div_all.btn_tempsave.tooltiptext = "";
        div_all.btn_prcpsave.tooltiptext = "";
        div_all.btn_prcpsave2.tooltiptext = "";
        div_all.btn_tempsave.enable = true;
        div_all.btn_prcpsave.enable = true;
        div_all.btn_prcpsave2.enable = true;
    }

    //DUR-S by sonjy 20091207 환자 선택이 바뀔때 이전 difguid초기화  durappyn : "A:DUR전체사용", "Y:DUR중 저함량제외", "나머지:DUR 사용안함" , "K:경북대용 DUR"    
    if ( ds_initsrch_durappyn.getColumn(0, "trgtcd" ) == "A" || ds_initsrch_durappyn.getColumn(0, "trgtcd" ) == "Y") {
        if( saveFlag != "save" ) ds_init.setColumn(0, "bf_difguid", "");
    }//DUR-E

    if(typeof(div_all.div_prcpdetail) == "object" && div_all.div_prcpdetail.visible) { // 처방 상세화면이 표시 되어 있으면 초기화
        div_all.div_prcpdetail.fPrcpClick();	
    }
}

/**@desc   : 처방화면 초기화
 * @id     : model1
 * @event  : xforms-ready
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fInitializeReady(diag) {
	var patFlagCvs = sysf_getGlobalVariable("patflag");    

	if(utlf_isNull(patFlagCvs) || patFlagCvs.length == 0 ) { 
		sysf_messageBox ( "환자정보가", "I004" );
		close();
		return;
	}

	//진단검색 호출
	if (utlf_isNull(diag)){
		fPatDiagSrch();
	}

  //처방 Lock 정보 호출
  //fgetPrcpLock();
  fInitializeScreen();

  //CP화면에서는 마지막에 처리
  if ( ds_root.getColumn(0, "cp" ) != "Y" )   {
      fDrugPrcpDc();
      fTempPrcp(); 
      //외래검사처방 입원전환 ( 주사연속처방, 물리치료 연속처방은 제외 )
      fSaveRsrvPrcpCvrt();
      fPainCnt();  
  }
}

/**@desc   : 처방 상세보기
 * @param  : 전처방, 연속처방, 처방검색 탭버튼 눌렀을 경우 원복 orgflag => Y
 * @id     : btn_detlvw
 * @event  : DOMActivate
 * @return : void
 * @authur : 마정민 2007. 3. 12
 */
function fDetlVw ( orgflag ) { 
	var grdLeft = 382;
	var extnGrdLeft = -2;   
	var drugmthdspccdnm = 72;
   
	var col = div_all.grd_prcplist.getBindCellIndex("body", "drugmthdspccdnm");
	var oldWidth = div_all.grd_prcplist.getFormatColProperty(col, "size");

	if ( ds_init.getColumn(0, "detlvw") == "p" && orgflag != "y" ) {
		div_all.Splitter00.position.x = extnGrdLeft;
       
		ds_init.setColumn(0, "detlvw", "m");		
		div_all.grd_prcplist.setFormatColProperty(col, "size", parseInt(oldWidth) - parseInt(drugmthdspccdnm));
	} else {
		div_all.Splitter00.position.x = grdLeft;
		
		ds_init.setColumn(0, "detlvw", "p" );		
		div_all.grd_prcplist.setFormatColProperty(col, "size", parseInt(oldWidth) + parseInt(drugmthdspccdnm));
   }
}

/**@desc   : 처방검색(처방 그리드에서 처방명 쓰고 엔터)
 * @id     : grd_prcplist
 * @event  : onendedit
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fPrcpSrch(srchflag) {
	var currow = ds_main_prcplist.rowposition;
	
	if ((ds_main_prcplist.getColumn(currow, "prcpflag") == "2" && 
		 ds_main_prcplist.getColumn(currow, "drugmastspec") == "Y") ||
		 ds_main_prcplist.getColumn(currow, "status") != "S"){
		ds_init_rowmodify.clearData();
		ds_init_rowmodify.addRow();
		return;
	}

	if ( gridprcpsrchflag == "Y" ) {
		gridprcpsrchflag = "N";
		
		ds_init_rowmodify.clearData();
		ds_init_rowmodify.addRow();
		return;
	}

	var prcpnm = lf_getDsValue(ds_main_prcplist, currow, "prcpnm");	
	if ( srchflag ==  "prcpcd") {
		prcpnm = lf_getDsValue(ds_main_prcplist, currow, "prcpcd" );
	}
	
	prcpnm = prcpnm.getTrim();

	// 신규처방 수정모드일때 검색 글자수에 대한 flag 셋팅 - 20090630 by Moonsh
	var modiflag = ds_init_rowmodify.getColumn(0, "modiflag"); 
	
	//by sonjy 20100405  처방검색시 제한 글자수 setting 
	var srchprcpnmlimit  = 3;
	var srchprcpcdlimit  = 2;
	var srchhnglimit     = 2;
	var ds_srchprcplimitlist = this.objects["ds_initsrch_srchprcplimit"];
	if( !utlf_isNull(ds_srchprcplimitlist) && ds_srchprcplimitlist.rowcount > 0 ){
		for( var n = 0 ; n < ds_srchprcplimitlist.rowcount; n++ ){ 
			if( ds_srchprcplimitlist.getColumn(n, "trgtcd") == "prcpnm" && !utlf_isNull(ds_srchprcplimitlist.getColumn(n, "trgtcdnm")) ){
				srchprcpnmlimit = ds_srchprcplimitlist.getColumn(n, "trgtcdnm");
			} else if(  ds_srchprcplimitlist.getColumn(n, "trgtcd") == "prcpcd" && !utlf_isNull(ds_srchprcplimitlist.getColumn(n, "trgtcdnm")) ){
				srchprcpcdlimit = ds_srchprcplimitlist.getColumn(n, "trgtcdnm");
			} else if(  ds_srchprcplimitlist.getColumn(n, "trgtcd") == "hangul" && !utlf_isNull(ds_srchprcplimitlist.getColumn(n, "trgtcdnm")) ){
				srchhnglimit = ds_srchprcplimitlist.getColumn(n, "trgtcdnm") ;
			} 
		}
	}
	
	var isHangul = utlf_isHangul (prcpnm);
	//한글일때는 1글자만 넣어도 검색가능        
	if ( utlf_isNull(prcpnm)) {
		if ( modiflag == "Y" ) {
			ds_init_rowmodify.setColumn(0, "srchnoflag", "Y");             // 검색없는 flag 셋팅 - 20090630 by Moonsh
		}           
		sysf_messageBox ( "처방 검색어를", "C001" );
		return;
	} else if ( isHangul == "E" ){
	//영문,숫자일때는 4글자 넣어야 검색가능
	if ( srchflag ==  "prcpcd") {
		//by sonjy 20100405  처방검색시 제한 글자수 setting 
		//if ( prcpnm.length < 2 ){
		if ( prcpnm.length < parseInt(srchprcpcdlimit) ){
			if ( modiflag == "Y" ) { 
				ds_init_rowmodify.setColumn(0, "srchnoflag", "Y");         // 검색없는 flag 셋팅 - 20090630 by Moonsh
			}                           
			//messageBox ( "2글자 이상", "C001" );
			sysf_messageBox ( srchprcpcdlimit + "글자 이상", "C001" );
			return;
		}   
	} else {
		//if ( prcpnm.length < 3 ){
		if ( prcpnm.length < parseInt(srchprcpnmlimit) ){
			if ( modiflag == "Y" ) {
				ds_init_rowmodify.setColumn(0, "srchnoflag", "Y");             // 검색없는 flag 셋팅 - 20090630 by Moonsh
			}
			//messageBox ( "3글자 이상", "C001" );
			sysf_messageBox ( srchprcpnmlimit + "글자 이상", "C001" );	
			return;
		}   
	}
	} else if ( isHangul == "H" ) {
		//by sonjy 20100405  처방검색시 제한 글자수 setting 
		//if ( prcpnm.length < 3 ){
		if ( prcpnm.length < parseInt(srchhnglimit) ){
			if ( modiflag == "Y" ) {
				ds_init_rowmodify.setColumn(0, "srchnoflag", "Y");             // 검색없는 flag 셋팅 - 20090630 by Moonsh
			}
			//messageBox ( "한글은 3글자 이상",  "C001" );
			sysf_messageBox ( "한글은 " + srchhnglimit + "글자 이상",  "C001" );
			return;
		}   
	}

	if (prcpnm.charAt ( 0 ) == "/"){
		
		if ( prcpnm.length == 1 ){
			if ( modiflag == "Y" ) {
				ds_init_rowmodify.setColumn(0, "srchnoflag", "Y");             // 검색없는 flag 셋팅 - 20090630 by Moonsh
			}
			sysf_messageBox ( "검색할 수술명이", "I004" );
			return;
		}
		
// 		var curRow =  grd_prcplist.row;
// 		var srchRow = grd_prcplist.rows -1;
		lf_prcpModal ( "SPMMO05100", 180, 80 );
	} else {
		//첫글자에 *가 있는 경우, contains검색수행
		// 2008.06.28 오지훈
//            if( prcpnm.charAt(0) == "*" && srchflag !=  "prcpcd"){ 
		var containflag = false;
		if( srchflag !=  "prcpcd"){ 
			//prcpnm = prcpnm.substring(1, prcpnm.length);
			containflag = true;
		}

		prcpnm = prcpnm.getTrim();
		
		if ( srchflag ==  "prcpcd") {
			lf_prcpSrchCom ( prcpnm, ds_init.getColumn(0, "prcpdd"), ds_paminfo.getColumn(0, "insukind"), "TRMMO00100", "", "getPrcpCdOldSrchInfo", isHangul , containflag);
		} else if ( srchflag ==  "prcpnm") {
			lf_prcpSrchCom ( prcpnm, ds_init.getColumn(0, "prcpdd"), ds_paminfo.getColumn(0, "insukind"), "TRMMO00100", "", "getPrcpNmSrchInfo", isHangul , containflag);
		} else {
			lf_prcpSrchCom ( prcpnm, ds_init.getColumn(0, "prcpdd"), ds_paminfo.getColumn(0, "insukind"), "TRMMO00100", "", "getPrcpSrchInfo", isHangul , containflag);
		}
		
		var srchLength = ds_prcpsrch_prcplist.rowcount;
		if( srchLength > 1) {
			// 처방 코드 수정 모드 관련 import 화면 관련 셋팅 - 20090630 by Moonsh
			// setValue => 타부서 프로그램(마취기록)에서 오류발생 => makeValue로 수정 by sonjy 20091009 
			ds_init_rowmodify.setColumn(0, "importflag", "Y");
			var modiflag = ds_init_rowmodify.getColumn(0, "modiflag"); 
			var modirow  = ds_init_rowmodify.getColumn(0, "modirow");
			if ( srchLength * grd_row_height < 325 ) {
				div_all.div_srch.grd_prcpsrchlist.position.height = ( srchLength + 1 ) * grd_row_height + 3;
				div_all.div_srch.btn_copy.position.y = ( srchLength + 1 ) * grd_row_height + 8;
				div_all.div_srch.btn_cancel.position.y = ( srchLength + 1 ) * grd_row_height + 8;
				div_all.div_srch.position.height = ( srchLength + 1 ) * grd_row_height + 33;
			} else {
				div_all.div_srch.grd_prcpsrchlist.position.height = 325;
				div_all.div_srch.btn_copy.position.y = 331;
				div_all.div_srch.btn_cancel.position.y = 331;
				div_all.div_srch.position.height = 351;
			}

			// 처방 코드 수정 모드일때 import 화면 위치 재설정 - 20090630 by Moonsh 
			if ( modiflag == "Y" ){
				currow = ds_main_prcplist.rowposition = modirow; 
			}

			if ( currow <= 10 ) {
				div_all.div_srch.position.y = 218 + currow * grd_row_height;
			} else if ( currow <= 23 ) {
				div_all.div_srch.position.y =  currow * grd_row_height + 169 - div_all.div_srch.position.height;
			} else if ( currow > 23 ){
				div_all.div_srch.position.y =  grd_row_height * 23 + 195 - div_all.div_srch.position.height;
			}
			
			div_all.div_srch.visible = true;
			div_all.div_srch.setPrcpSrchListFocus();
		} else if( srchLength == 1) {
			lf_addPrcp ( "import", "ds_prcpsrch_prcplist", "ds_main_prcplist", "N", "prcpcd", ds_prcpsrch_prcplist.getColumn(0, "prcpcd"), div_all.div_srch.grd_prcpsrchlist, "Y", "00");

			//2011.10.19 엄영만 위에 로직으로 변경 추후 아래는 삭제 해야함.
			//srchRow = addPrcpDetl ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , grd_prcplist.row, "00" );

			//if (srchRow !=0 ) {
				//srchRow = fAddSetPrcpChk ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , srchRow, "00" );
			//    srchrownum = fAddSetPrcpChkKNUH ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , srchRow, "00" );
			//  if (srchrownum != srchRow) {
			//      srchRow = srchrownum;                       
			//        DrugCalc ( "drprcpetc8" , parseInt(srchRow) -1 );   // 용량보정을 해준다.                  
			//    }
			//    fHosinPrcpResnChk ("main", "/root/main/prcp/" );
			//    focusMain ( srchRow );
			//}
			//fPrcpColor();
		} else {
			sysf_messageBox ( "검색된 내용이", "I004" );
			
			// 처방 코드 수정 모드 관련 검색 내용이 없을 경우 변경 Row 초기화 후 리턴 - 20090630 by Moonsh
			var modiflag = ds_init_rowmodify.getColumn(0, "modiflag"); 
			if ( modiflag == "Y" ) { 
				var grdcnt = ds_main_prcplist.rowcount - 1; 
				ds_main_prcplist.setColumn(grdcnt, "prcpcd", ""); 
				
				var modirow    = ds_init_rowmodify.getColumn(0, "modirow"); 
				var modiprcpcd = ds_init_rowmodify.getColumn(0, "modiprcpcd"); 
				
				ds_main_prcplist.setColumn(modirow, "prcpcd", modiprcpcd);                                        
				ds_main_prcplist.rowposition =  modirow;
				
				ds_init_rowmodify.clearData();
				ds_init_rowmodify.addRow();
			} else { 
				div_all.grd_prcplist.showEditor(true);
			}                
		}                   
	} 
}

/**@desc   : 처방상세팝업
 * @param  : row: 팝업을 띄울 row
           : vxpt: x좌표
           : vypt: y좌표
           : flag: 처방복사시 자동 팝업인지 체크. 자동 팝업일 경우에는 화면을 refresh 해줘 어느로우에서 팝업을 띄우는지 확인가능하게 한다.
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fPrcpDetl( row, vxpt, vypt, flag ) {
    var curRow = 0;
    if ( utlf_isNull(row)) {
        curRow = ds_main_prcplist.rowposition;
    } else {
        curRow = row;           
    }

    var sStatus      = ds_main_prcplist.getColumn(curRow, "status");
    var prcpClsCd    = ds_main_prcplist.getColumn(curRow, "prcpclscd");
    var prcpinptflag = ds_main_prcplist.getColumn(curRow, "prcpinptflag");

    if ( sStatus == "I" || sStatus == "U" || sStatus == "-" ) {
        if(typeof(div_all.div_prcpdetail) == "object" && div_all.div_prcpdetail.visible) { // 처방화면 처방상세 기능 사용시 2014.07.16 엄영만
            if(flag == "auto") {
                if(prcpClsCd == "B4" || prcpClsCd == "C2" || prcpClsCd == "C6") { 
                    // 수혈, 영상 상세창 팝업 되도록 
                } else if(prcpClsCd == "K2") { //KNUH, 약속처방 복사 시 치식 팝업이 한번만 뜨고 다른 치과처방에 동일하게 적용되도록 함.(2011.03.28 JJE)
                    if(flag == "auto" && prcpinptflag == "02" && !utlf_isNull(this.objects["ds_main_toot_prcplist"])){ 
                    } else {
// 잠시 보류 확인 필요
//                        event.defaultAction = "cancel";
                        return true;
                    }
                } else {
//                    event.defaultAction = "cancel";
                    return true;
                }
            } else {
//                event.defaultAction = "cancel";
                return true;
            }
        }
        
        if ( utlf_isNull ( vxpt )) vxpt = 400;

        if ( utlf_isNull(vypt)) {
			var arrCellRect = div_all.grd_prcplist.getCellRect(ds_main_prcplist.rowposition, div_all.grd_prcplist.getCellPos());

            if (arrCellRect.bottom <= 408 ) {
                vypt = div_all.grd_prcplist.position.top + arrCellRect.bottom + 40;
            } else {
                vypt = div_all.grd_prcplist.position.top + arrCellRect.bottom - 200;
            }
        }
        
        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + parseInt(vxpt);
		var ypt = this.getOwnerFrame().position.y + parseInt(vypt);
		
		dsf_createDs("ds_temp_main_prcplist");
		dsf_copyColInfo(ds_temp_main_prcplist, ds_main_prcplist);
		ds_temp_main_prcplist.addRow();
		ds_temp_main_prcplist.copyRow(0, ds_main_prcplist, curRow);
		
		var objArg = new Object();
		objArg.arg_ds_main_prcplist = ds_temp_main_prcplist;
        
        if ( ( prcpClsCd == "A2" || prcpClsCd == "A4" ) && prcpinptflag != "35") { //약   20100507 자가보유처방은 팝업 뜨지 않는다. by LYJ
            var prnscrID = frmf_getScreenID(); 
            // PRN 처방 프로세스의 적용범위( 처방까지 or  마스터만)에 따라 상세 팝업의 기능을 결정하기위한 파라메터 set
            // 2010-01-02 by LYJ  
            frmf_setParameter ( "SPMMO01100_prcp", prnscrID);
            frmf_setParameter ( "SPMMO01100_prndetl", ds_main_prcplist.getColumn(curRow, "drprcpetc6"));
                                    
            frmf_modal("SPMMO01100", "SPMMO01100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
            
            //20090218 마정민 추가 산제불가 및 주의 약은 대체처방 팝업을 띄운다.
            frmf_clearParameter ( "SPMMB10100_chkyn" );
            if ( frmf_getParameter ( "SPMMO01100_powdaltdrug" ) == "2" ){                
                lf_altDrug ( curRow, "4" );
            } else if ( frmf_getParameter ( "SPMMO01100_powdaltdrug" ) == "1" ){             
                lf_altDrug ( curRow, "5" );
            }            
            //확인을 눌렀을 경우. 단 선택된 대체약이 있을 때만 SPMMB10100_chkyn = Y 처리해 준다.
            if ( frmf_getParameter ( "SPMMB10100_chkyn" ) == "Y" ) {
                var addRow = ds_main_prcplist.rowcount - 2;
                fPrcpBuffer( 1, addRow, "ds_prcpdrag_prcplist", "ds_main_prcplist" ); // 대체약 버퍼에 복사
                ds_main_prcplist.deleteRow(addRow);   								  // 대체약 삭제
                ds_main_prcplist.deleteRow(curRow);   								  // 기존약 삭제
                ds_main_prcplist.insertRow(curRow);
                ds_main_prcplist.copyRow(curRow, ds_prcpdrag_prcplist, 0);			  // 기존약을 대체약으로 변경
                ds_main_prcplist.setColumn(curRow, "powdflag", "Y");
                
                ds_prcpdrag_prcplist.clearData();
                
                lf_makePrcpNm ( prcpNode, curRow );
                
                ds_main_prcplist.selectRow(curRow);
				div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getCellPos());
            } else {
                if ( frmf_getParameter ( "SPMMO01100_powdaltdrug" ) == "1" ) {
                    ds_main_prcplist.setColumn(curRow, "powdflag", "Y");
                    lf_makePrcpNm ( prcpNode, curRow );
                }
            }
            frmf_clearParameter ( "SPMMO01100_powdaltdrug" );
            frmf_clearParameter ( "SPMMB10100_chkyn" );
        } else if ( prcpClsCd == "A6" && prcpinptflag !="35" ) { //주사  20100507 자가보유처방은 팝업 뜨지 않는다. by LYJ
            var prnscrID = frmf_getScreenID();  
            // PRN 처방 프로세스의 적용범위( 처방까지 or  마스터만)에 따라 상세 팝업의 기능을 결정하기위한 파라메터 set
            // 2010-01-02 by LYJ 
            frmf_setParameter ( "SPMMO01200_prcp", prnscrID);
            frmf_setParameter ( "SPMMO01200_prndetl", ds_main_prcplist.getColumn(curRow, "drprcpetc6"));
                        
            frmf_modal("SPMMO01200", "SPMMO01200", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
            
            frmf_clearParameter ( "SPMMO01200_prcp");
        } else if ( prcpClsCd == "F2" ) { //재활
            frmf_modal("SPMMO01800", "SPMMO01800", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "C2" || prcpClsCd == "C6" || prcpClsCd == "E2" ) { 
            //방사선 검사(기능검사, 내시경,천자,생검, 방사선, 핵의학영상)
            frmf_modal("SPMMO01300", "SPMMO01300", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
            
            //start: 영상 검사의 자동 팝업 시 취소 할 경우 처방창에 처방이 떨어지지 않도록 (2010.02.02 JJE)
            if( utlf_isNull(this.objects["ds_prcptemp_prcplist"]) && flag == "auto") frmf_setParameter("cnclCopyPrcpYN_Param", "Y");          // 자동팝업 자동팝업일 경우에만 삭제하도록 "auto" 조건추가
            //end
        } else if ( prcpClsCd == "G2" ) { //RT
			frmf_modal("SPMMO13300", "SPMMO13300", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "B2" || prcpClsCd == "B6" ) { //진단검사 (검체검사), 핵의학 체내
			frmf_modal("SPMMO01400", "SPMMO01400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "B4" ) { //수혈 (혈액수혈)
            frmf_modal("SPMMO01500", "SPMMO01500", objArg, false, mon, xpt, ypt - 80, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "H2" ) {  //수술
            frmf_modal("SPMMO01600", "SPMMO01600", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
            
            //치과 수술 처방(대분류:치과, 중분류:치과수술)인 경우 치식 팝업 호출 (요청번호:8731 2009.10.26 by JJE)
            if( frmf_getParameter("SPMMO01600_returnParam") == "Y" ){  //수술팝업에서 '확인'한 경우에만 치식팝업 호출(from 서소영선생님요청)
                var tempcol2 = ds_main_prcplist.getColumn(curRow, "tempcol2" );
                var tootfact = ds_main_prcplist.getColumn(curRow, "tootfact" );
                //by sonjy  20100304  수술/치식 필수입력일경우로 제한 조건 추가 및 치실필수입력 추가. (여의도 상황실 오류 ): 
                //기존은 치과 수술 처방(대분류:치과, 중분류:치과수술)경우 팝업으로 되어 있었음.
                var prcpessninptflag =  ds_main_prcplist.getColumn(curRow, "prcpessninptflag" );   
                //if(tempcol2.substr(0, 5) == "17|02" && tootfact == "-" ){
                if((  prcpessninptflag == "2" || ( prcpessninptflag == "5" && tempcol2.substr(0, 5) == "17|02" ) ) && tootfact == "-" ){
					ds_main_prcplist.selectRow(curRow);
					div_all.grd_prcplist.setCellPos(1);
                    fDentifmla("OP");
                }
              }
              frmf_clearParameter("SPMMO01600_returnParam");              
        } else if ( prcpClsCd == "H4" ) { //처치
			frmf_modal("SPMMO13100", "SPMMO13100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "K2" ) { //치과
            //KNUH, 약속처방 복사 시 치식 팝업이 한번만 뜨고 다른 치과처방에 동일하게 적용되도록 함.(2011.03.28 JJE)
            if( flag == "auto" && prcpinptflag == "02" && !utlf_isNull(this.objects["ds_main_toot_prcplist"]) ){
				ds_prcptemp_prcplist.clear();
				ds_prcptemp_prcplist.copyData(ds_main_toot_prcplist);
				
                ds_prcptemp_prcplist.setColumn(0, "prcpcd"         , ds_main_prcplist.getColumn(curRow, "prcpcd" ));
                ds_prcptemp_prcplist.setColumn(0, "prcpnm"         , ds_main_prcplist.getColumn(curRow, "prcpnm" ));
                ds_prcptemp_prcplist.setColumn(0, "orgprcpnm"      , ds_main_prcplist.getColumn(curRow, "orgprcpnm" ));
                ds_prcptemp_prcplist.setColumn(0, "tempcol2"       , ds_main_prcplist.getColumn(curRow, "tempcol2" ));
                ds_prcptemp_prcplist.setColumn(0, "erprcpflag"     , ds_main_prcplist.getColumn(curRow, "erprcpflag" ));
                ds_prcptemp_prcplist.setColumn(0, "nigtprcpflag"   , ds_main_prcplist.getColumn(curRow, "nigtprcpflag" ));
                ds_prcptemp_prcplist.setColumn(0, "payflagcd"      , ds_main_prcplist.getColumn(curRow, "payflagcd" ));
                ds_prcptemp_prcplist.setColumn(0, "prcpdelivefact" , ds_main_prcplist.getColumn(curRow, "prcpdelivefact" ));
                ds_prcptemp_prcplist.setColumn(0, "precureprcpflag", ds_main_prcplist.getColumn(curRow, "precureprcpflag" ));
                ds_prcptemp_prcplist.setColumn(0, "prcpqty"        , ds_main_prcplist.getColumn(curRow, "prcpqty" ));
                ds_prcptemp_prcplist.setColumn(0, "prcpvol"        , ds_main_prcplist.getColumn(curRow, "prcpvol" ));
                ds_prcptemp_prcplist.setColumn(0, "prcptims"       , ds_main_prcplist.getColumn(curRow, "prcptims" ));
                ds_prcptemp_prcplist.setColumn(0, "drprcpetc7"     , ds_main_prcplist.getColumn(curRow, "drprcpetc7" ));
                ds_prcptemp_prcplist.setColumn(0, "drprcpetc8"     , ds_main_prcplist.getColumn(curRow, "drprcpetc8" ));
                ds_prcptemp_prcplist.setColumn(0, "choiordflag"    , ds_main_prcplist.getColumn(curRow, "choiordflag" ));
                ds_prcptemp_prcplist.setColumn(0, "specdrid"       , ds_main_prcplist.getColumn(curRow, "specdrid" ));
                ds_prcptemp_prcplist.setColumn(0, "prcpexecdeptcd" , ds_main_prcplist.getColumn(curRow, "prcpexecdeptcd" ));
                ds_prcptemp_prcplist.setColumn(0, "powdflag"       , ds_main_prcplist.getColumn(curRow, "powdflag" ));
            }else{
                frmf_modal("SPMMO13200", "SPMMO13200", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                if( flag == "auto" && prcpinptflag == "02" ){
					dsf_createDs("ds_main_toot_prcplist");					
					ds_main_toot_prcplist.copyData(ds_prcptemp_prcplist);
                }
            }
        } else if ( prcpClsCd == "03" ) { //식이
			frmf_modal("SPMMO01700", "SPMMO01700", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "I2" || prcpClsCd == "I4" ) {  //마취
			frmf_modal("SPMMO02000", "SPMMO02000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "C4" ) {  //angio
			frmf_modal("SPMMO02100", "SPMMO02100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
            //start: 영상 검사의 자동 팝업 시 취소 할 경우 처방창에 처방이 떨어지지 않도록 (2010.02.02 JJE)
            if( utlf_isNull(this.objects["ds_prcptemp_prcplist"]) && flag == "auto") frmf_setParameter("cnclCopyPrcpYN_Param", "Y");          // 자동팝업 자동팝업일 경우에만 삭제하도록 "auto" 조건추가
            //end
        } else if ( prcpClsCd == "D2" ) {  //병리
			frmf_modal("SPMMO02200", "SPMMO02200", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "M2" ) {  //재료
			frmf_modal("SPMMO13400", "SPMMO13400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else if ( prcpClsCd == "Z0" ) { // 기타일 경우 처치와 같은 화면으로 오픈한다. 2010. 12. 29)
            frmf_modal("SPMMO13100", "SPMMO13100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        }

        if ( utlf_isNull(this.objects["ds_prcptemp_prcplist"]) || ds_prcptemp_prcplist.rowcount == 0 ) return false;

        fPrcpDetlApp ( prcpClsCd, "ds_prcptemp_prcplist", "ds_main_prcplist", curRow );

        //M-SET 모처방인 경우, prcphopedd를 자처방에 동일하게 적용
        //2008. 07. 22 오지훈
        var prcpSetCd  = ds_main_prcplist.getColumn(curRow, "prcpsetcd" );
        var inclPrcpNo = ds_main_prcplist.getColumn(curRow, "inclprcpno" );
        var prcpHopeDD = ds_main_prcplist.getColumn(curRow, "prcphopedd" );
        if(prcpSetCd == "-" && inclPrcpNo > 0){ //모처방인 경우, prcphopedd
            //alert(prcpSetCd + "," + inclPrcpNo + "," + prcpHopeDD);
            for(var i = 0;  i < ds_main_prcplist.rowposition; i++){
                if(inclPrcpNo == ds_main_prcplist.getColumn(i, "inclprcpno")){
					ds_main_prcplist.setColumn(i, "prcphopedd", prcpHopeDD);
                }
            }
        }
        
        /* 수혈적응증 미 입력시 수혈 처방 삭제 처리 */
        if ( frmf_getParameter ( "SPMMO01500_bprcpadapt" ) == "D" ){
            fDeleteRow();
            //화면 닫은후 focus를 다시 grid로 이동시킨다.
            div_all.grd_prcplist.setFocus();
            //더블 클릭 후 edit 모드로 가는 것을 막는다.
            // 확인필요
            //event.defaultAction = "cancel";
            //model.recalculate();   
            return false;
        }

        //화면 닫은후 focus를 다시 grid로 이동시킨다.
        div_all.grd_prcplist.setFocus();        
        //더블 클릭 후 edit 모드로 가는 것을 막는다.
        // 확인필요
        //event.defaultAction = "cancel";
        ds_main_prcplist.selectRow(curRow);
        div_all.grd_prcplist.setCellPos(prcpnmCol);
        return true;

   } else if ( sStatus == "S" ) { //검색안된 것은 더블클릭해도 뜰 것이 없다.         
        div_all.grd_prcplist.showEditor();
        return false;
   }
}

/**@desc   : 처방상세 입력내용을 메인에 적용
 * @param  : prcpClsCd - 처방분류
 *         : strSrc - 소스노드       
 *         : strDest - 목적지노드 
 *         : row - 수정할 row
 * @authur : 마정민 2007. 3. 14
 */
function fPrcpDetlApp ( prcpClsCd, strSrc, strDest, row ) {
	var ds_src  = this.objects[strSrc];
	var ds_dest = this.objects[strDest];
	
    var srchRow = ds_main_prcplist.rowcount - 1;
    var curRow =  row;
    
    gGridUpdateChk("det_per"); // 임시저장 수정 모드 
        
    if (!utlf_isNull(ds_src) && ds_src.rowcount > 0) {
        
        /*if ( prcpClsCd == "B2" || prcpClsCd == "B6"  ) { //진단검사 (검체검사), 핵의학 체내

            for(var i = 1; i <= srcNodeList.length; i++) {
                makePrcpNm ( strSrc, i );
                if ( i == 1 ){ //연속검사이건 아니건 팝업 띄운 row는 replace
                    var srcSingleNode = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" );
                    destNode.replaceChild( srcNodeList.item(i-1).cloneNode(true), srcSingleNode);   
                } else {//추가된 내용은 검색뒤에 붙음
                    model.duplicate ( strDest, strSrc + "[" + i + "]", "*[" + srchRow  + "]" );
                    srchRow++;
                }   
            }

        } else*/
        if ( prcpClsCd == "03" ) {  //식이
            var chkcnt = frmf_getParameter( "SPMMO01700_chkcnt" );
            var dietcnt = 0;
            //팝업에서 체크한 값이 1이고 처방화면의 식이처방도 1개이면 값을 없는다.
            var srcNodeListChk = ds_main_prcplist.getCaseCount("prcpclscd == '03'");

            if ( chkcnt == "1" && srcNodeListChk == 1 ) {
                lf_makePrcpNm ( strSrc, 0 );
                
                ds_dest.copyRow(curRow, ds_src, 0);
            } else {
                for(var i = 0; i < ds_src.rowcount; i++) {
                    lf_makePrcpNm ( strSrc, i );
                    
                    var dietprcpgenrflag = ds_src.getColumn(i, "dietprcpgenrflag");
                    var findRow = ds_main_prcplist.findRowExpr("prcpclscd == '03' && dietprcpgenrflag == '" + dietprcpgenrflag + "'");
                    var checkFlag = ds_main_prcplist.getColumn(curRow, "dietprcpgenrflag");

                    if ( checkFlag == "-" ) {
                        ds_dest.copyRow(curRow, ds_src, i);
                    } else if (findRow != -1) {
						ds_dest.copyRow(findRow, ds_src, i);
                    } else { //추가된 내용은 duplicate
                        ds_dest.insertRow(srchRow);
						ds_dest.copyRow(srchRow, ds_src, i);
						
                        dietcnt++; //식이 자동팝업 때문에 추가했다.
                        srchRow++;
                    }   
                }
            }
        } else {
           lf_makePrcpNm ( strSrc, 0 );
           ds_dest.copyRow(curRow, ds_src, 0);
        }
        
        ds_src.clearData();
        
        ds_main_prcplist.setColumn(curRow, "tempcol9", "");
        
        fSetCpVal( row, "U");
    }       
}

function fDrugInfo() {
	ds_hidden_receivedata.setColumn(0, "srchdrugcd", ds_main_prcplist.getColumn(ds_main_prcplist.rowposition, "prcpcd"));
    //open("SMADB01900",0,0,0,"SMADB01900","약코드","/root/hidden/receivedata/srchdrugcd");
    //2008. 07. 08 오지훈
    //약품편람 조회 화면 open시 약코드 parameter기본 설정    
    var objArg = new Object();
	objArg.arg_ds_hidden_receivedata = ds_hidden_receivedata;
	
	frmf_open("SMADB01900", "SMADB01900", objArg, null, 0, 0, 0, null, null, null, null, null, "M"); //오류팝업
}

function fPrnDrugInfo() {
    ds_hidden_receivedata.setColumn(0, "srchdrugcd", ds_main_prcplist.getColumn(ds_main_prcplist.rowposition, "prcpcd"));
    //2011. 05. 23 엄영만
    //PRN 조회창 open시 약코드 parameter기본 설정    

    frmf_setParameter("SPMMO33800_search_code", ds_hidden_receivedata.getColumn(0, "srchdrugcd"));
    
    frmf_open("SPMMO33800", "SPMMO33800", null, null, 0, 0, 0, null, null, null, null, null, "M");
}

/**@desc   : 선택제외 삭제
 * @return : void
 * @authur : 마정민 2007. 10. 16 
 */
function fDeleteElseRow() {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    
    for (var i = 0; i < selectedRows.length; i++) {       
         ds_main_prcplist.setColumn(selectedRows[i], "tempcol6", "select");
    }
    
    div_all.grd_prcplist.selectAll();
    
    for ( var i = 0; i < ds_main_prcplist.rowcount; i++ ) {
        if ( ds_main_prcplist.getColumn(i, "tempcol6") == "select" ) {
			ds_main_prcplist.selectRow(i, false);
        }
        ds_main_prcplist.setColumn(i, "tempcol6", "");
    }

    fDeleteRow();
}

/**@desc   : 오른쪽 마우스 클릭 삭제
 * @       : 신규일 때는 removeNode
 * @       : 수정중일 때 원복시킨 후 삭제, D/C 표시
 * @       : 삭제, D/C 원복시킬려면 ? 오른쪽 마우스에 삭제 및 D/C 원복
 * @       : D/C 후 삭제는 불가
 * @id     : grd_prcplist
 * @event  : 오른쪽 마우스 클릭 삭제
 * @return : void
 * @authur : 마정민 2007. 3. 26 
 */
function fDeleteRow(flag) {
	var currow = ds_main_prcplist.rowposition;
	var curcol = div_all.grd_prcplist.getCellPos();

    var selectedRows;
    
    if( ds_root.getColumn(0, "cp") == "Y" && ds_main_prcplist.getColumn(0, "status") == "S" ){
        selectedRows = grdf_getSelectedRows(grd_errprcplist);	// 추후 CPGMAIN 작업 후 그리드 경로 확인필요
    } else {
		selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    }
    
    var cnt = 0;

    if ( flag != "noselect" ){
        if (ds_main_prcplist.rowposition < 0 ){
            return;
        }
    }
    
    //SON0919 원내/원외사유 처리 관련 추가 by sonjy start 
    var hosinprcpresncd = "";
    var prcpkindcd = "";
    
    //SON0919 end 
    if ( flag != "noselect" ){
        for (var i = selectedRows.length - 1; i >= 0; i--){
            var status = ds_main_prcplist.getColumn(selectedRows[i], "status");// i가 아니라 selectedRows[i] 아닌가? 추후 확인필요
                                                                               // TF : model.getValue ( prcpNode + "[" + i + "]/status" );
            if ( status != "D" ) {
                //처방에서 실수로 복사할 경우 지우지 못하면 문제가 됨으로 일단 주석으로 막았다.
                //응급의료관리료 삭제시
                /*if ( model.getValue ( "/root/patflag/list/prcpgenrflag" ) =="E" ) {
                    var prcpcd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpcd" );
                    if ( "AC103" == prcpcd || "ACD0005" == prcpcd ){
                        messageBox ( "응급의료관리료는 삭제가 불가합니다. 오른쪽마우스 > 응급의료관리료를 이용하여 수정하여 주십시오", "E" );
                        continue;
                    } 
                }*/
                var deleteflag = ds_main_prcplist.getColumn(selectedRows[i], "tempcol6");
                if ( deleteflag != "D" ) { //이미 삭제 표시된것은 제외하고
                    //종속처방 체크
                    var inclprcpno = ds_main_prcplist.getColumn(selectedRows[i], "inclprcpno"); 
                    if ( !utlf_isNull(inclprcpno) && inclprcpno != "-" ) {
                        if ( eval(inclprcpno) > 0  ) { //종속처방이면
                            for ( var j = 0; j < ds_main_prcplist.rowcount; j++ ) {
                                if ( inclprcpno == ds_main_prcplist.getColumn(j, "inclprcpno")) { // 같은 종속처방은 모두 삭제이다.
                                    ds_main_prcplist.setColumn(j, "tempcol6", "D");
                                }
                            }
                        }
                    }
                    ds_main_prcplist.setColumn(selectedRows[i], "tempcol6", "D"); 
                }
            } else {
                // 같은 종속처방은 모두 살아난다.
                var inclprcpno = ds_main_prcplist.getColumn(selectedRows[i], "inclprcpno" ); 
                if ( !utlf_isNull(inclprcpno) && inclprcpno != "-" ) {
                    if ( eval(inclprcpno) > 0  ) { //종속처방이면
                        for ( var j = 0; j < ds_main_prcplist.rowcount; j++ ) {
                            if ( inclprcpno == ds_main_prcplist.getColumn(j, "inclprcpno" )) { 
                                ds_main_prcplist.setColumn(j, "status", "-" );
                            }
                        }
                    }
                }
            }
        }
    }

    var grdrows = ds_main_prcplist.rowcount;
    for (var i = grdrows - 1 ; i >= 0; i-- ) {
        if ( ds_main_prcplist.getColumn(i, "tempcol6") == "D" ) {
            ds_main_prcplist.setColumn(i, "tempcol6", ""); //삭제 표시 clear
            ds_main_prcplist.setColumn(i, "prcpmixno", "-"); //mix clear
            var status = ds_main_prcplist.getColumn(i, "status");
            if (status == "S" ) {
                ds_main_prcplist.setColumn(i, "prcpnm", "");
            } else if ( status == "I" || status == "" ) { 
                    //SON0919 원내/원외사유 처리 관련 추가 by sonjy start 
                    //SON1107 DSC 퇴원약도 외래에 준하여 처리. 변경개발요청서 20081013-93에 의거 => 간호준비될때까지 원복 ...
                    prcpkindcd  = ds_main_prcplist.getColumn(i, "prcpkindcd");
                    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
                    if( prcpgenrflag  == "O"  ||  
                       (prcpgenrflag  == "E" &&  ds_init.getColumn(0, "erresn") != "G3"  &&  prcpkindcd  == "60" ) ||   
                       (prcpgenrflag  == "D" &&  prcpkindcd  == "60" )  ){
                        if( hosinprcpresncd == "" && ( ds_main_prcplist.getColumn(i, "hosinprcpresncd") == "45"  ||  ds_main_prcplist.getColumn(i, "hosinprcpresncd") == "47") ) {
                            hosinprcpresncd = ds_main_prcplist.getColumn(i, "hosinprcpresncd") ;
                        } 
                     }
                     //SON0919 end
                 
                    fPrcpBuffer( ++cnt, i, "ds_prcpdel_prcplist", "ds_main_prcplist" );
                    ds_main_prcplist.deleteRow(i);
                    lastDeletedRow = i;
            } else if ( status == "-" || status == "U" ) {
				ds_main_prcplist.setColumn(i, "status", "D" );
            } else if ( status =="D" ) {
                ds_main_prcplist.setColumn(i, "status", "-" );
            }
        }
    }
    
    for (var i = grdrows - 1; i >= 1; i-- ) {       
        var chkPrcpmixno = ds_main_prcplist.getColumn(i, "prcpmixno" );
        if ( chkPrcpmixno != "-" && !utlf_isNull(chkPrcpmixno)) {
            //믹스번호가 있고 삭제가 아닌 것중에 혼자 남아 있는 믹스번호라면 풀어준다.
            var srcNodeList = ds_main_prcplist.getCaseCount("prcpmixno == '" + chkPrcpmixno + "'");
            if ( srcNodeList <= 1) {
				ds_main_prcplist.setColumn(i, "prcpmixno", "-");
            }
        }
    } 

    // 처방 신규코드에서 수정 모드가 아닐때만 rebuild - 20090630 by Moonsh
    // 추후 색상 확인필요
//     var modiflag = ds_init_rowmodify.getColumn(0, "modiflag"); 
//     if ( modiflag != "Y" ){ 
//         grd_prcplist.rebuild(); 
//         fPrcpColor(); 
//     } 
    
    //SON0919 원내원외관련 추가  by sonjy 
    if( !utlf_isNull(hosinprcpresncd) ){ 
        lf_chngHosinPrcpResn();
    }
    //SON0919 end
    
    var firstRow = selectedRows[0];
    var lastRow  = selectedRows[selectedRows.length - 1];
    
    if(currow > firstRow) {
		if(lastRow > ds_main_prcplist.rowcount - 1)
			lastRow = ds_main_prcplist.rowcount - 1;
		
		ds_main_prcplist.selectRow(lastRow);
 		ds_main_prcplist.rowposition = lastRow;		
	} else {
		ds_main_prcplist.selectRow(firstRow);
		ds_main_prcplist.rowposition = firstRow;
	}
    div_all.grd_prcplist.setCellPos(curcol);
    
    if(typeof(div_all.div_prcpdetail) == "object" && div_all.div_prcpdetail.visible) { // 처방상세화면 재설정
	    div_all.div_prcpdetail.fPrcpClick();	
    }
}

/**@desc   : 함수 호출시 선택된 데이터를 특정 노드에 담아둔다.
 * @param1 : bufCnt: 첫번째 cnt일때 기존 노드를 삭제하기 위한 count
 * @param2 : bufRow: 노드에 담아놓을 그리드 row
 * @param4 : strDest: 목적지 주소값
 * @param3 : strSrc: 출발지 주소값
 * @return : void
 * @authur : 마정민 2007. 4. 3
*/
function fPrcpBuffer( bufCnt, bufRow, strDest, strSrc ) {
	var ds_src  = this.objects[strSrc];
	var ds_dest = this.objects[strDest];
	
    if (bufCnt == 1) { //첫번째 데이터이면 기존 노드를 삭제한다.
		ds_dest.clearData();
    }
        
    //대상노드로 복사한다.    
    var toRow = ds_dest.addRow();
    ds_dest.copyRow(toRow, ds_src, bufRow);
}

/**@desc   : 마지막 삭제시 버퍼에 담겨둔 것을 되살린다.
 * @id     : btn_undo
 * @event  : DOMActivate
 * @return : void
 * @authur : 마정민 2007. 4. 3
 */
function fDelUndo () {
    //fGetRsrvPrcp();
    if ( ds_prcpdel_prcplist.rowcount == 0 ) {
        sysf_messageBox ( "되살릴 삭제 데이터가", "I004" );
        return;
    }
    var prcpdd = ds_init.getColumn(0, "prcpdd");

    //삭제시 루프가 뒤에서 부터돌며 buffer instance에 저장하기 때문에 불러 올때도 뒤어서부터 불러와 삭제시 순서를 맞춘다.
    var insRow = ds_main_prcplist.rowcount - 1;
    for (var i = ds_prcpdel_prcplist.rowcount - 1; i >= 0; i--) {
       //대상노드로 복사한다.
		ds_prcpdel_prcplist.setColumn(i, "prcppkspec", prcpdd + "|0|0|" + sysf_getUserInfo("dutplceinstcd"));
        var prcphopedd = ds_prcpdel_prcplist.getColumn(i, "prcphopedd" );
        if ( utlf_isNull(prcphopedd) || prcphopedd == "-" ) {
            prcphopedd = prcpdd;
        }
        if ( prcphopedd < prcpdd ) {
            ds_prcpdel_prcplist.setColumn(i, "prcphopedd", prcpdd );
        }
        
        ds_main_prcplist.insertRow(insRow);
        ds_main_prcplist.copyRow(insRow, ds_prcpdel_prcplist, i);
        
		insRow++;
    }
    
    //되살리기 한번만 해달라는 장효은 선생님 요청
    ds_prcpdel_prcplist.clearData();
}

/**@desc   : 처방 데이터 저장시 저장할 데이터가 있는 지 check
 * @param  : prcpflag: 저장 위치 구분. 0은 메인
 * @return : 0:인증저장(진단+상병), 1:인증저장(진단), 2:인증저장(처방), 4:임시저장(처방), 5:임시저장DC(처방), 6:임시저장(진단+처방), 7:임시저장(진단) 
 * @authur : 마정민 2007. 4. 04
 */
function fSaveExistCheck(savekindflag, patyn) {
    var prcpCnt = 0; 
    var tempPrcpCnt = 0;
    var tempDcPrcpCnt = 0;
    var tempDiagPrcpCnt = 0;
    var diagCnt = 0;
    var status = "";

    if (utlf_isNull(savekindflag)) savekindflag = "0";

    if ( savekindflag == "0" ) {
        for ( var i = 0; i < ds_main_prcplist.rowcount; i++ ) {
			var status = lf_getDsValue(ds_main_prcplist, i, "status");
			
            if (patyn == "Y") {
                if ( status != "S"  && status != "-" )
                    prcpCnt++;
            } else {
                if ( status != "S" )
                    prcpCnt++;
            }
        }
        
        prcpCnt += ds_prcpdc_prcplist.rowcount;

        for ( var i = 0; i < ds_main_diagcdlist.rowcount; i++ ) {
            var status = lf_getDsValue(ds_main_diagcdlist, i, "status");
            
            if (patyn == "Y") {
                if ( status != "S" && status != '-' && status != 'T' )
                    diagCnt++;
            } else {
                if ( status != "S" && status != '-' )
                    diagCnt++;
            }
        }
    } else if ( savekindflag == "1" ) {
        for ( var i = 0; i < ds_main_prcplist.rowcount; i++ ) {
			var status = lf_getDsValue(ds_main_prcplist, i, "status");
			
            if ( status != "S" && status != "-" ){
                tempPrcpCnt++;
            }
        }
        
        tempDcPrcpCnt += ds_prcpdc_prcplist.rowcount;

        if ( tempDcPrcpCnt > 0 )
            return 5;

        for ( var i = 0; i < ds_main_diagcdlist.rowcount; i++ ) {
            var status = lf_getDsValue(ds_main_diagcdlist, i, "status");

            if ( status != "S" && status != '-' )
                diagCnt++;
        }
        if ( diagCnt > 0 && tempPrcpCnt > 0 && savekindflag == "1" ) {
            return 6;
        }
        if ( diagCnt > 0 && tempPrcpCnt == 0 && savekindflag == "1" ) {
            return 7;
        }
    } 

    if ( prcpCnt > 0 && diagCnt > 0) { // 처방도 존재, 진단도 존재
        return 0;
    } else if ( diagCnt > 0 ) { // 진단만 존재
        return 1;
    } else  if ( prcpCnt > 0 ) { // 처방만 존채
        return 2;
    } else if ( tempPrcpCnt > 0 ) { // 임시처방만 존재
        return 4;
    }   
    
    return -1;
}

/**@desc   : 처방 데이터 저장
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             prcpchkflag: 저장하시겠습니까 등 메시지를 띄울것인지 check
 * @return : true, false
 * @authur : 마정민 2007. 4. 04
 */
function fPrcpSave( prcpflag, savekindflag, saveNode, prcpchkflag ) {
    var startStepDate = new Date(); // 각 업부 시작 시간
    var stepElapsed   = null;
    var endStepDate   = null;       // 각 업부 종료후 시간
    
    var sRTC_Code = "ds_prcpsave_rtc_codeinfo";  // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로
    var sRTC_Pat  = "ds_prcpsave_rtc_patinfo";   // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로
    dsf_createDs(sRTC_Code);
    dsf_createDs(sRTC_Pat);
    
    ds_TRMMO00148.setColumn(0, "instcd", ds_paminfo.getColumn(0, "instcd"));
    ds_TRMMO00148.setColumn(0, "ioflag", ds_paminfo.getColumn(0, "ioflag"));
    ds_TRMMO00148.setColumn(0, "pid",    ds_paminfo.getColumn(0, "pid"));
        
    if(ds_paminfo.getColumn(0, "ioflag") == "O" || ds_paminfo.getColumn(0, "ioflag") == "S") {
        ds_TRMMO00148.setColumn(0, "orddd", ds_paminfo.getColumn(0, "orddd" ));
    } else {
        ds_TRMMO00148.setColumn(0, "orddd", ds_paminfo.getColumn(0, "indd" ));
    }
    ds_TRMMO00148.setColumn(0, "cretno", ds_paminfo.getColumn(0, "cretno" ));
    ds_TRMMO00148.setColumn(0, "userid", sysf_getUserInfo("userid") );
    ds_TRMMO00148.setColumn(0, "userdeptcd", sysf_getUserInfo("dutplcecd") );
    
    var oParam = {};
		oParam.id       = "TRMMO00148";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqGetPrcpSaveRTCInfo";
		oParam.inds     = "req=ds_TRMMO00148";
		oParam.outds    = sRTC_Pat + "=patinfo " + sRTC_Code + "=codeinfo";
		oParam.async    = false;

	tranf_submit(oParam);			// 처방저장 실시간 체크(RealTimeCheck)변수 설정
	
	ds_main_prcplist.enableevent = false;
	
// 작업 완료후 다시 try catch 걸어야 함
//    try {
		var ds_codeinfo = this.objects[sRTC_Code];
		
        var sNewLogic = ds_codeinfo.lookup("hardcdno", '430', "trgtcd"); // 신규로직 적용여부
        
        var findRow431 = ds_codeinfo.findRowExpr("hardcdno == '431' && trgtcd == '" + sysf_getUserInfo("userid") + "'");

        if(sNewLogic == "Y") {
            fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag );
        } else if (sNewLogic == "S" && !utlf_isNull(ds_codeinfo.getColumn(findRow431, "trgtcd"))) {
            fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag );
        } else {
            fPrcpSave_old( prcpflag, savekindflag, saveNode, prcpchkflag );
        }
//     } catch(err) {
//         sysf_messageBox ( "fPrcpSave() 실행 중 오류가 발생 하였습니다. 전산실(6598)로 연락 부탁드립니다.", "E" );
//     } finally {
        dsf_deleteDs(sRTC_Code);
        dsf_deleteDs(sRTC_Pat);
        
        ds_main_prcplist.enableevent = true;
//    }
    
    //endStepDate  = new Date(); // 각 업부 종료후 시간
    //stepElapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 오류 체크전 처리 소요시간
    
    // 속도체크를 위한 모니터링 로그 데이터 생성.
    //reqSetMonitoringLog( "PrcpSave" + sNewLogic, stepElapsed);
}

function fPrcpSave_new( sPrcpFlag, sSaveKindFlag, saveNode, sPrcpChkFlag ) {
    //model.addlog("SPEED CHECK START OF fPrcpSave()");
    //model.addlog("  SPEED CHECK START OF 처방가능체크(화면)");
    
    var sRTC_Code = "ds_prcpsave_rtc_codeinfo";  // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로
    var sRTC_Pat  = "ds_prcpsave_rtc_patinfo";  // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로
    
    var ds_rtc_patinfo = this.objects[sRTC_Pat];
    
    //처방 시간을 계산하기 위해 변수 추가 2012.11.19 엄영만
    var startStepDate = new Date(); // 각 업부 시작 시간
    var endStepDate   = null;       // 각 업부 종료후 시간
    var step1Elapsed  = null; // 화면 오류 체크전 처리 소요시간
    var step2Elapsed  = null; // 서버 오류 체크 소요시간
    var step3Elapsed  = null; // 화면 서버 오류 처리 소요시간
    var step4Elapsed  = null; // 서버 실제 저장 소요시간 
    var step5Elapsed  = null; // 화면 저장후 처리 소요 시간
    var nPrcpCnt = 0;        // 처방 갯수
    var nDiagCnt = 0;        // 진단 갯수

    var mon = sysf_getCurrentMonitorNumber();
	var xpt = this.getOwnerFrame().position.x + 200;
	var ypt = this.getOwnerFrame().position.y + 100;

    var sCpFlag       = ds_root.getColumn(0, "cp");  // CP 여부
    var sAddPrcp      = ds_root.getColumn(0, "addprcp"); // 시행부서 처방여부
    var sPrcpAuthFlag = ds_init.getColumn(0, "prcpauthflag"); // 처방권한구분
    var sPrcpGenrFlag = ds_patflag.getColumn(0, "prcpgenrflag"); // ioflag O:외래, S:검진, I:입원, E:응급, D:DSC
    var sTuningYn     = getTuningYn(); //튜닝 적용여부를 실시간으로 가져와서 체크한다. 2013-03-12 by 박황백 
    var sAftDcYn      = "N"; //청구후 d/c처방 여부 by sonjy 20081027
    var sUserId       = sysf_getUserInfo ("userid");
    
    var sInstCd    = ds_paminfo.getColumn(0, "instcd");
    var sPid       = ds_paminfo.getColumn(0, "pid");
    var sCretNo    = ds_paminfo.getColumn(0, "cretno");
    var sOrdDeptCd = ds_paminfo.getColumn(0, "orddeptcd");
    var sPrcpDd    = ds_init.getColumn(0, "prcpdd");
    var sOrdDd     = "";
    var sOrdDrId   = "";
    
    if ( sPrcpGenrFlag == "O" || sPrcpGenrFlag == "S" ) {
        sOrdDd   = ds_paminfo.getColumn(0, "orddd");
        sOrdDrId = ds_paminfo.getColumn(0, "orddrid");
    } else {
        sOrdDd   = ds_paminfo.getColumn(0, "indd");
        sOrdDrId = ds_paminfo.getColumn(0, "medispclid");
    }
    
    var pop_DrgAbleYn       = "N"; // DRG적용 찹 팝업 여부
    var pop_MedicineConsult = "N"; // 복약상담의뢰 창 팝업 여부 2011.10.24 엄영만 (칠곡 약제부 이석미 요청)
    var pop_EnConsult       = "N"; // TPN 영양 상담 여부
    
    //by sonjy 20091120 전처방 개인별 조회 option 추가
    var bfprcpviewnode = ds_initsrch_envinfo.lookup("qestcd", '018', "answcnt");
    var sBfPrcpViewFlag = ""; 
    if( !utlf_isNull(bfprcpviewnode) ) {
        sBfPrcpViewFlag = bfprcpviewnode;
    }

    /*********************************************************************************************************** 
     *  1. 화면 오류 체크 및 저장 데이터 구성
     ***********************************************************************************************************/
    var curCpObj = frmf_findPopup("SPMMO00600"); //활성화된 CP Main 화면 object loading
    if(!utlf_isNull(curCpObj)) curCpObj.fClose();
    if( utlf_isNull(sPrcpFlag))     sPrcpFlag = "0";          
    if( utlf_isNull(sSaveKindFlag)) sSaveKindFlag = "0";          
    if( utlf_isNull(saveNode))      saveNode = "ds_main_prcplist";

    //20091208 HJS DUR적용여부를 임시적으로 실시간으로 가져와서 체크한다.
    lf_reqHardCodeInfo(ds_hidden_durappinfo, "119");
	ds_initsrch_durappyn.setColumn(0, "trgtcd", ds_hidden_durappinfo.getColumn(0, "hardcd"));
    
    //PRN 적용여부를 실시간으로 가져와서 체크한다. 2010-01-02 by LYJ 
    lf_reqHardCodeInfo(ds_hidden_prnprcpyninfo, "173");
    ds_save_saveflaginfo.setColumn(0, "prnprcpyninfo", ds_hidden_prnprcpyninfo.getColumn(0, "hardcd") );
    
    //전처방 탭이 아닌 탭에 포커싱 될 때 인증저장 시 DC처방 저장되지 않음. "btn_ivbfprcp.selected &&" 조건 삭제 (JJE)
    if ( sCpFlag != "Y" ) {
        if ( ds_init.getColumn(0, "setprcpyn") == "Y" ) {
			div_all.Tab_prcp.tp_bfprcp.fAppendDC();
        }
    } else {
        if ( prtlprcpstatus_SMMMO00110 != "U" ) {   //OCS활성화된 경우만 체크 && btn_ivbfprcp.selected && btn_init.visible == false && btn_reinit.visible == false //CP에서 DC+추가처방발행 안돼서 해당 조건 삭제(2010.07.06 JJE)
            var dcNode = div_all.Tap_prcp.tp_bfprcp.ds_prcpsrch_prcplist.findRow("chkcol", "D");                     // DC처방           
            if( dcNode != -1 && ds_init.getColumn(0, "setprcpyn") == "Y" ){
                div_all.Tap_prcp.tp_bfprcp.fAppendDC();
            }
            ds_save_saveflaginfo.setColumn(0, "prtlflag", prtlFlag_SMMMO00110 ); //MMPHPTCP의 prtlflag(프로토콜구분)이 '-'이거나 '01'이면 CP (DC저장을 위함)
        }
    }

    var sSaveDataFlag = fSaveExistCheck( sSaveKindFlag );
    if ( sSaveDataFlag == -1 ) {
        if ( sPrcpGenrFlag == "O" ) { 
            sSaveDataFlag = 3;
        } else {
            sysf_messageBox ( "저장할", "E013" );
            return false;
        }
    } else if ( sSaveDataFlag == 5 ) {
        sysf_messageBox ( "처방DC는 임시저장", "E001" );
        return false;
    } 

    // 처방 저장시 화면에서 처장 가능 한지 체크 한다.
    var sIprcAddYn = lf_getDsValue(ds_paminfo, 0, "iprcaddyn");  // 추가처방 발행여부(심사실 가퇴원 환자)는 처방저장 가능 체크 제외 2012.04.16
    if(sIprcAddYn != "Y" && !fCheckBeforePrcpSave( sPrcpFlag, sSaveKindFlag, saveNode, sPrcpChkFlag )) return false;

    var sSaveOk = "N";
    if ( sPrcpChkFlag != "N" ) { // sPrcpChkFlag가 N 이면 메시지를 안물어보고 넘어간다.       
        if ( sPrcpChkFlag == "clickpatlist" ){ sSaveOk = "Y"; }   // 진료대상자리스트에서 선택되었을때는 메세지 띄우지 않는다.   20100317 LYJ  
        if ( sPrcpChkFlag != "drugdc" ) sPrcpChkFlag = "Y"; //반환요청이 아니라면 Y로 해준다.
        
        if (ds_initsrch_prcpetccnts.getColumn(0, "admiprcpyn") == "Y" ) { //admission 처방이 없는데
            if ( !utlf_isNull(ds_main_prcplist.lookup("prcpkindcd", '10', "prcpcd")) ) { //정규처방이 존재하면
                if ( "7" == sysf_messageBox ( "입원당일 Admission 처방이 존재하지 않습니다. 그래도 정규처방을", "Q002" )) return false;
                else sSaveOk = "Y"; //질문을 한번만 하려고 수정
            }
        }
        
        if ( sSaveOk == "N" ) {
            if ( sSaveDataFlag == 6 ) {
                if( sysf_messageBox ( "", "Q002" ) == "6"  ) {
                    sSaveOk = "Y";
                } else {
                    sSaveOk = "N";
                }
            } else {
                if( sysf_messageBox ( "", "Q002" ) == "6"  ) sSaveOk = "Y";
            }
        }
    } else {
        sSaveOk = "Y"
    }
    
    if( sSaveOk != "Y"  ) { return false; }

    if (sSaveKindFlag != 1) { // 처방 저장전 체크 해야 할 것들           
        if (!fPrcpSaveChkBf(sPrcpChkFlag)) return false; 
    }
    
    //저장등록정보(saveRgstInfo)
    if ("I" == sPrcpGenrFlag || "E" == sPrcpGenrFlag || "D" == sPrcpGenrFlag) {
        ds_paminfo.setColumn(0, "dethdt", ds_rtc_patinfo.getColumn(0, "dethdt")); // 인증저장데이터 생성위치 변경에 따라 사망일자를 실시간 조회 하여 설정 2013.06.05 엄영만
    }
    
    ds_send_cond2.copyData(ds_paminfo);
    
    //저장처방정보(savePrcpInfo)      
    // 미완성 처방 저장 시, '-' 까지 함께 저장하려 하기때문에 I 만 저장하도록 분기 (2008.10.15 JJE) (s)
    if( sCpFlag != "Y" ){
		ds_send_cond3.copyData(ds_main_prcplist);
    }else{
        fClearSaveInstance();
        fAppendSaveNode( "ds_send_cond3", saveNode );
    }

    fAppendSaveNode( "ds_send_cond3", "ds_prcper_prcplist" );
    fAppendSaveNode( "ds_send_cond3", "ds_prcpdc_prcplist" );
    
    nPrcpCnt = ds_send_cond3.rowcount - 1;
    //청구후 d/c처방 여부 setting by sonjy 20081027 => 청구후 d/c일 경우 산정특례 및 법정전염병등의 처방저장 후 로직을 탈필요가 없음.
    var aftdclist = ds_prcpdc_prcplist.getCaseCount("tempcol21 == 'C'"); 
    if( aftdclist.length > 0 ) sAftDcYn = "Y";
    
    if ( sPrcpChkFlag == "drugdc" ) { //약/주사 D/C 요청 중에 반납요청된 것은 D/C 처리한다.( 저장로직에서 사용 )
        ds_send_cond14.copyData(ds_prcpdc_prcplist); 
    }

    //setValue 후에 prcpdc 에 옮겨 놓은 prcplist를 클리어 한다.
    ds_prcpdc_prcplist.clearData();

    //저장진단정보(saveDiagInfo)
    nDiagCnt = ds_main_diagcdlist.rowcount - 1;
    ds_send_cond4.copyData(ds_main_diagcdlist);

    // 처방 진단 암호화 정보 생성(인증서창 팝업)
    if ( sSaveKindFlag != 1 && signyn == "Y" ) {
        var sSignBfPrcpConts = lf_getSignBfConts("1", "ds_paminfo", "ds_send_cond3");      // 암호화전 인증저장 처방 데이터
        var sSignBfDiagConts = lf_getSignBfConts("2", "ds_paminfo", "ds_main_diagcdlist"); // 암호화전 인증저장 진단 데이터
        var sSignAfPrcpConts = "";  // 암호화후 인증저장 처방 데이터
        var sSignAfDiagConts = "";  // 암호화후 인증저장 진단 데이터
        var bSignOpt = false;

        // 응급실환자중 하드코드에 등록되어 있는 과 의사가 로그인 후 처방을 낼 경우에는 인증저장을 한번만 하게 함.(외래와 동일하게 처리)
        var sPD = ds_securelimitdeptlist.lookup("hardcd", sysf_getUserInfo("dutplcecd"), "hardcd");
        if ( sPrcpGenrFlag != "O" && !(sPrcpGenrFlag == "E" && !utlf_isNull(sPD)) ) {
            bSignOpt = true;
        }
        
        // 입원 또는 응급일 경우                    // 20111201 knuh 최원돈
        // 기록/처방 직전 인증저장이 정해진 시간(분 단위, 하드코드 401) 이내이면 인증서를 띄우지 않음(1/2)
        // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js
        // 띄우지 않는 로직
        var ls_emrinptsavetime = lf_getHardCDList("Y", 401, 3);
        var ll_emrinptsavetime = utlf_isNull(ls_emrinptsavetime) ? 0 : parseInt(ls_emrinptsavetime) * -1; 
        if (   (   sPrcpGenrFlag == "I"
                || sPrcpGenrFlag == "E")
            && ll_emrinptsavetime < 0
            && sysf_getGlobalVariable("emrinptsavetime") >= utlf_getCurrentDateTime().toDate("YYYYMMDD hhmmss").getAddDate(ll_emrinptsavetime, "m").getDateFormat("YYYYMMDD hhmmss"))
        {
            bSignOpt = false;
        }

        if(!utlf_isNull(sSignBfPrcpConts)) {
            sSignAfPrcpConts = lf_saveSign ( sSignBfPrcpConts, sUserId, bSignOpt); //처방인증
            if ( sSignAfPrcpConts != "N" ) {
                if (utlf_isNull( sSignAfPrcpConts )) { return false; }
                bSignOpt = false; //진단에서 또 안띄우기 위해서 false로 수정
            }
        }

        if(!utlf_isNull(sSignBfDiagConts)) {
            sSignAfDiagConts = lf_saveSign ( sSignBfDiagConts, sUserId, bSignOpt); //진단인증
            if ( sSignAfDiagConts != "N") {
                if (utlf_isNull(sSignAfDiagConts)) { return false; }
            }
        }
    }

    // 저장구분정보(saveFlagInfo)
    ds_save_saveflaginfo.setColumn(0, "savedataflag",       sSaveDataFlag);                                       	// 저장자료구분 0:진단 및 처방, 1:진단, 2:처방, 4:처방임시저장, 6:진단 및 처방 임시저장, 7:진단임시저장
    ds_save_saveflaginfo.setColumn(0, "saveflag",           sPrcpGenrFlag);                                         // 저장구분 O:외래, I:입원, E:응급, S:건진
    ds_save_saveflaginfo.setColumn(0, "prcpflag",           sPrcpFlag);                                           	// 처방구분 0:의사처방, 2:간호, 3:지원부서, 5:Admission, 6:CP, 7:항암프로토콜, 8:임시처방
    ds_save_saveflaginfo.setColumn(0, "inptflag",           "0");                                                	// 입력구분 0:의사, 1:간호사(간호에서 사용), 3:지원부서
    ds_save_saveflaginfo.setColumn(0, "deptcd",             sysf_getUserInfo("dutplcecd"));                         // 부서코드
    ds_save_saveflaginfo.setColumn(0, "deptnm",             sysf_getUserInfo("dutplcenm"));                         // 부서명
    ds_save_saveflaginfo.setColumn(0, "userid",             sysf_getUserInfo("userid"));                            // 사용자ID
    ds_save_saveflaginfo.setColumn(0, "usernm",             sysf_getUserInfo("usernm"));                            // 사용자명
    ds_save_saveflaginfo.setColumn(0, "prcpdd",             sPrcpDd);    
    ds_save_saveflaginfo.setColumn(0, "divyn",              sPrcpChkFlag);                                          // 용량분할 할건지
    ds_save_saveflaginfo.setColumn(0, "durappyn",           ds_initsrch_durappyn.getColumn(0, "trgtcd")); // 2010.11.24 이선경 수정 : 경북대용 DUR flag값을 던져줘야 함
    ds_save_saveflaginfo.setColumn(0, "nonprgflag",         fCompareNonPrgDiag());
    ds_save_saveflaginfo.setColumn(0, "ipaddress",          sysf_getUserInfo("ipaddr"));                            // 사용자 ipaddress정보
    ds_save_saveflaginfo.setColumn(0, "screenid",           frmf_getScreenID());                                    // 사용자 화면 정보
    ds_save_saveflaginfo.setColumn(0, "savekindflag",       sSaveKindFlag);                                       	// 처방저장구분 0: 인증저장, 1:임시저장
    ds_save_saveflaginfo.setColumn(0, "cpflag",             sCpFlag);                                            	// CP처방 Flag
    //2014/02/10 주석처리
    //ds_save_saveflaginfo.setColumn(0, "preworkup",          "N");                                                 // preworkup 여부 디폴트값
    //2014/02/10
    ds_save_saveflaginfo.setColumn(0, "signbfprcpconts",    sSignBfPrcpConts); // 인증저장 암호화 전 처방 데이터
    ds_save_saveflaginfo.setColumn(0, "signbfdiagconts",    sSignBfDiagConts); // 인증저장 암호화 전 진단 데이터
    ds_save_saveflaginfo.setColumn(0, "signafprcpconts",    sSignAfPrcpConts); // 인증저장 암호화 전 처방 데이터
    ds_save_saveflaginfo.setColumn(0, "signafdiagconts",    sSignAfDiagConts); // 인증저장 암호화 전 진단 데이터
    ds_save_saveflaginfo.setColumn(0, "aftdcyn",            sAftDcYn);                                              // 청구후 DC 여부
    ds_save_saveflaginfo.setColumn(0, "addprcp",            sAddPrcp);                                              // 시행부서 처방여부
    ds_save_saveflaginfo.setColumn(0, "bfprcpviewflag",     sBfPrcpViewFlag);                                       // 전처방 개인별 조회 option
    ds_save_saveflaginfo.setColumn(0, "prcpauthflag",       sPrcpAuthFlag);                                         // 처방권한구분
    ds_save_saveflaginfo.setColumn(0, "dschprcpyn",         ds_hidden.getColumn(0, "dschprcpyn"));          		// 퇴원처방 발행 여부
    
    // 현재 사용하지 않음 추후 삭제 검토 엄영만 2013.11.07
    ds_save_saveflaginfo.setColumn(0, "judgtrgtchkyn",       "N" ); //정밀 심사대상 약제(뇌대사개선제, 뇌혈류개선제, 뇌증상개선제) 체크 (2010.01.28 JJE)
    ds_save_saveflaginfo.setColumn(0, "idementiachk",        "" );  //by sonjy 20100420 / 치매약제(dementia drug) 복용 시 FF621601 검사 처방 ALERT 팝업 메시지 요청(외래, 신경과인 경우만 체크)
    ds_save_saveflaginfo.setColumn(0, "idementiachkcode",    "" );  //by sonjy 20100420 / 치매약제(dementia drug) 복용 시 FF621601 검사 처방 ALERT 팝업 메시지 요청(외래, 신경과인 경우만 체크)
    // 현재 사용하지 않음 추후 삭제 검토 엄영만 2013.11.07
    
    if ( sSaveKindFlag == 1 ) { 
        ds_save_saveflaginfo.setColumn(0, "signyn", "N" );  // 임시저장
    } else {
        ds_save_saveflaginfo.setColumn(0, "signyn", signyn); // 인증저장       
    }
    
    if ( sAddPrcp == "Y" ) {
        ds_save_saveflaginfo.setColumn(0, "pseuacptflag", !utlf_isNull(this.objects["ds_formerkey"]) ? ds_formerkey.getColumn(0, "pseuacptflag") : "");
        ds_save_saveflaginfo.setColumn(0, "admininfo",    ds_root.getColumn(0, "admininfo"));
    } else {
        ds_save_saveflaginfo.setColumn(0, "pseuacptflag", "N");
        ds_save_saveflaginfo.setColumn(0, "admininfo",    "NNNNNNNNNNNNNNNNNNNN");
    }
        
    ds_send_cond1.copyData(ds_save_saveflaginfo);
    
    // DUR 점검결과 전문(DUR 처방전간 체크시 필요함.)
    ds_send_cond5.clearData();	// 처음 체크시에는 값이 없음.
    
    //20080909 시행부서처방 (진단 복사할 원무정보)
    if ( !utlf_isNull(this.objects["ds_formerkey"]) && ds_formerkey.getColumn(0, "pseuacptflag") == "Y" ) {
        ds_send_cond15.copyData(ds_formerkey);
    } else {
		ds_send_cond15.clearData();
    }
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step1Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 오류 체크전 처리 소요시간
    startStepDate = new Date(); // 각 업부 시작 시간
    //model.addlog("  SPEED CHECK END OF 처방가능체크(화면)");
    //model.addlog("  SPEED CHECK START OF 저장 데이터 생성(오류/사유)");
    
    /*********************************************************************************************************** 
     *  2. APP 오류 체크 및 저장  처리
     ***********************************************************************************************************/
	// XP에선 mapfile에서 처리하던 default가 안되니 여기서 일괄 처리함
    dsf_setDefaultVal(ds_send_cond1, "divyn:N,pseuacptflag:N,admininfo:N,durappyn:N,nonprgflag:N,preworkup:N,prtlflag:-,cpflag:-,cpgappno:0,prtlprcpstatus:-,msgdd:-,msgno:0,histno:0,resaveyn:Y,checkerrcnt:0,checkresncnt:0,checkinfocnt:0,checketccnt:0,screenid:-,ipaddress:-,savekindflag:-,divchkflag:-,dschyn:N,drgcheck:N,durrechk:-,ocrtagval:-,medicosultnyn:N,aftdcyn:N,addprcp:N,bfprcpviewflag:-,prcpauthflag:-,dschprcpyn:N,dschoutyn:N,enconsultyn:N");
    
    if ( sPrcpGenrFlag == "O"  ||  sPrcpGenrFlag == "S"  )
		dsf_setDefaultVal(ds_send_cond2, "orddeptnm:-,orddrnm:-");
	else
		dsf_setDefaultVal(ds_send_cond2, "orddeptnm:-,orddrnm:-,dschprcpyn:N");
		
	dsf_setDefaultVal(ds_send_cond3, "prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,prcpdelivefact:-,clinccmtcnts:-,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrdayno:0,druglnkno:0,cvrtbfprcpgenrflag:-,cvrtbforddd:00000000,cvrtbfcretno:0,drgacptflag:-");
	dsf_setTypeFormat(ds_send_cond3, "prcpvol:FLOAT^prcpqty:FLOAT^prcptims:INT^prcpdayno:INT");
	
	dsf_setDefaultVal(ds_send_cond14, "hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,subcretno:0,drgacptflag:-");

    var sReSaveYn = "Y"; // 처음 한번은 Call 하도록 설정(오류가 있을경우 화면에서 처리 하고, 다시 Call 하도록 
    while (sReSaveYn == "Y") {    
		// XP : submit 외래, 입원 두개 통합해도 될듯 하나 TF 소스 형태 유지 함
        if ( sPrcpGenrFlag == "O"  ||  sPrcpGenrFlag == "S"  ) { //건진일 경우 외래와 동일 처리 BY SONJY 2008-09-03
			// 화면과 DB의 columnid가 서로 다른 경우에 대한 처리
			if(!utlf_isNull(ds_send_cond15.getColumnInfo("orddd")))
				ds_send_cond15.updateColID("orddd", "diagdd");
				
			// ds_saveinvaliprcplist columnid가 전체가 다 다르다(CP에서 쓰는 건데 CP 화면 작업후 확인필요)
			// ds_delprcplist 은 status의 columnid가 다르다(CP에서 쓰는 건데 CP 화면 작업후 확인필요)
		
			var oParam = {};
				oParam.id       = "TXMMO00121";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExePrcpSave";
				oParam.inds     = "saveFlagInfo=ds_send_cond1 saveRgstInfo=ds_send_cond2 savePrcpInfo=ds_send_cond3 saveDiagInfo=ds_send_cond4 kDurChkRslt=ds_send_cond5 saveDrugDcInfo=ds_send_cond14 copyDiagInfo=ds_send_cond15";
				oParam.outds    = "ds_result_saveflaginfo=saveflaginfo ds_result_prcperrlist=prcperrlist ds_result_prcplist=prcplist ds_result_savetnmlist=savetnmlist ds_result_savecncrlist=savecncrlist ds_result_kdurchkrslt=kdurchkrslt ds_result_chemoprcplist=chemoprcplist ds_result_geneconsent=geneconsent ds_result_atadconsent=atadconsent ds_result_comnconsent=comnconsent ds_result_invalprcplist=invalprcplist ds_result_specconsent=specconsent ds_result_diagcdlist=diagcdlist ds_result_bfprcplist=bfprcplist ds_result_prcpetccnts=prcpetccnts ds_result_rsrvcvrtprcp=rsrvcvrtprcp ds_result_saveestmspclcs=saveestmspclcs ds_result_saveserdiagappfrm=saveserdiagappfrm ds_result_savelglydis=savelglydis ds_result_saverareobst=saverareobst ds_result_saveresindenture=saveresindenture ds_result_dschestmspclcs=dschestmspclcs ds_result_dschserdiagappfrm=dschserdiagappfrm ds_result_dschlglydis=dschlglydis ds_result_dschrareobst=dschrareobst ds_result_dschresindenture=dschresindenture";
				oParam.async    = false;
				oParam.transaction = false;
				oParam.callback = "cf_TXMMO00121";

			tranf_submit(oParam);
			
			// 화면과 DB의 columnid가 서로 다른 경우에 대한 처리(transaction 후 다시 원래대로)
			if(!utlf_isNull(ds_send_cond15.getColumnInfo("diagdd")))
				ds_send_cond15.updateColID("diagdd", "orddd");
			
			if(arErrorCode.pop("TXMMO00121") < 0) {
                if (sCpFlag != "Y" || sSaveKindFlag == 1 ) {    //조건추가(2008.09.01 JJE)
					ds_send_cond1.clearData();
					ds_send_cond2.clearData();
					ds_send_cond3.clearData();
					ds_send_cond4.clearData();
					ds_send_cond5.clearData();
					ds_send_cond14.clearData();
					ds_send_cond15.clearData();
					
					ds_result_saveflaginfo.clearData();
					ds_result_prcperrlist.clearData();
					ds_result_prcplist.clearData();
					ds_result_savetnmlist.clearData();
					ds_result_savecncrlist.clearData();
					ds_result_kdurchkrslt.clearData();
					ds_result_chemoprcplist.clearData();
					ds_result_geneconsent.clearData();
					ds_result_atadconsent.clearData();
					ds_result_comnconsent.clearData();
					ds_result_invalprcplist.clearData();
					ds_result_specconsent.clearData();
					ds_result_diagcdlist.clearData();
					ds_result_bfprcplist.clearData();
					ds_result_prcpetccnts.clearData();
					ds_result_rsrvcvrtprcp.clearData();
					ds_result_saveestmspclcs.clearData();
					ds_result_saveserdiagappfrm.clearData();
					ds_result_savelglydis.clearData();
					ds_result_saverareobst.clearData();
					ds_result_saveresindenture.clearData();
					ds_result_dschestmspclcs.clearData();
					ds_result_dschserdiagappfrm.clearData();
					ds_result_dschlglydis.clearData();
					ds_result_dschrareobst.clearData();
					ds_result_dschresindenture.clearData();
                }
                fClearSaveInstance();
                return false;
            }
            
            dsf_setDefaultVal(ds_result_saveflaginfo, "divyn:N,pseuacptflag:N,admininfo:N,durappyn:N,nonprgflag:N,prtlflag:-,cpflag:-,cpgappno:0,prtlprcpstatus:-,msgdd:-,msgno:0,histno:0,resaveyn:Y,checkerrcnt:0,checkresncnt:0,checkinfocnt:0,checketccnt:0,screenid:-,ipaddress:-,savekindflag:-,divchkflag:-,dschyn:N,drgcheck:N,durrechk:-,ocrtagval:-,medicosultnyn:N,aftdcyn:N,addprcp:N,bfprcpviewflag:-,prcpauthflag:-,dschprcpyn:N,dschoutyn:N,enconsultyn:N");
            dsf_setDefaultVal(ds_result_prcplist, "prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrdayno:0,druglnkno:0,drgacptflag:-");
            dsf_setDefaultVal(ds_result_invalprcplist, "status:-,prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,drugspd:0,nigtprcpflag:N,mealcalrcnts:0,mealprotcnts:0,prcprefseq:0,ordreqlnkno:0,testreqlnkno:0,prcplnkno:0,prtlno:0,inclprcpno:0,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,aftcertflag:-,aftcertdrid:-,prcpvalidd:00000000,specdrid:-,anticncrprtlno:0,anticncrdayno:0,druglnkno:0,drgacptflag:-");
            dsf_setDefaultVal(ds_result_bfprcplist, "prcpvol:0,prcpvolunitnm:-,prcpqty:0,prcpqtyunitnm:-,prcptims:0,prcpdayno:0,drugmthdspccdnm:-,drugmthdspccd:-,hsctdelivepos:0,etcprcpflag:-,drgacptflag:-");
        } else {
			// 화면과 DB의 columnid가 서로 다른 경우에 대한 처리
			if(!utlf_isNull(ds_send_cond2.getColumnInfo("dschrgstacptchar")))
				ds_send_cond2.updateColID("dschrgstacptchar", "dschrgstacptcharid");
			if(!utlf_isNull(ds_send_cond15.getColumnInfo("orddd")))
				ds_send_cond15.updateColID("orddd", "diagdd");
			
			var oParam = {};
				oParam.id       = "TXMMO00122";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExePrcpSave";
				oParam.inds     = "saveFlagInfo=ds_send_cond1 saveRgstInfo=ds_send_cond2 savePrcpInfo=ds_send_cond3 saveDiagInfo=ds_send_cond4 kDurChkRslt=ds_send_cond5 saveDrugDcInfo=ds_send_cond14 copyDiagInfo=ds_send_cond15";
				oParam.outds    = "ds_result_saveflaginfo=saveflaginfo ds_result_prcperrlist=prcperrlist ds_result_prcplist=prcplist ds_result_savetnmlist=savetnmlist ds_result_savecncrlist=savecncrlist ds_result_kdurchkrslt=kdurchkrslt ds_result_chemoprcplist=chemoprcplist ds_result_geneconsent=geneconsent ds_result_atadconsent=atadconsent ds_result_comnconsent=comnconsent ds_result_invalprcplist=invalprcplist ds_result_specconsent=specconsent ds_result_diagcdlist=diagcdlist ds_result_bfprcplist=bfprcplist ds_result_prcpetccnts=prcpetccnts ds_result_rsrvcvrtprcp=rsrvcvrtprcp ds_result_saveestmspclcs=saveestmspclcs ds_result_saveserdiagappfrm=saveserdiagappfrm ds_result_savelglydis=savelglydis ds_result_saverareobst=saverareobst ds_result_saveresindenture=saveresindenture ds_result_dschestmspclcs=dschestmspclcs ds_result_dschserdiagappfrm=dschserdiagappfrm ds_result_dschlglydis=dschlglydis ds_result_dschrareobst=dschrareobst ds_result_dschresindenture=dschresindenture";
				oParam.async    = false;
				oParam.transaction = false;
				oParam.callback = "cf_TXMMO00122";

			tranf_submit(oParam);
			
			// 화면과 DB의 columnid가 서로 다른 경우에 대한 처리(transaction 후 다시 원래대로)
			if(!utlf_isNull(ds_send_cond2.getColumnInfo("dschrgstacptcharid")))
				ds_send_cond2.updateColID("dschrgstacptcharid", "dschrgstacptchar");
			if(!utlf_isNull(ds_send_cond15.getColumnInfo("diagdd")))
				ds_send_cond15.updateColID("diagdd", "orddd");
				
			// ds_saveinvaliprcplist columnid가 전체가 다 다르다(CP에서 쓰는 건데 CP 화면 작업후 확인필요)
			// ds_delprcplist 은 status의 columnid가 다르다(CP에서 쓰는 건데 CP 화면 작업후 확인필요)
			
			if(arErrorCode.pop("TXMMO00122") < 0) {
                if (sCpFlag != "Y" || sSaveKindFlag == 1 ) {    //조건추가(2008.09.01 JJE)
                    ds_send_cond1.clearData();
					ds_send_cond2.clearData();
					ds_send_cond3.clearData();
					ds_send_cond4.clearData();
					ds_send_cond5.clearData();
					ds_send_cond14.clearData();
					ds_send_cond15.clearData();
					
					ds_result_saveflaginfo.clearData();
					ds_result_prcperrlist.clearData();
					ds_result_prcplist.clearData();
					ds_result_savetnmlist.clearData();
					ds_result_savecncrlist.clearData();
					ds_result_kdurchkrslt.clearData();
					ds_result_chemoprcplist.clearData();
					ds_result_geneconsent.clearData();
					ds_result_atadconsent.clearData();
					ds_result_comnconsent.clearData();
					ds_result_invalprcplist.clearData();
					ds_result_specconsent.clearData();
					ds_result_diagcdlist.clearData();
					ds_result_bfprcplist.clearData();
					ds_result_prcpetccnts.clearData();
					ds_result_rsrvcvrtprcp.clearData();
					ds_result_saveestmspclcs.clearData();
					ds_result_saveserdiagappfrm.clearData();
					ds_result_savelglydis.clearData();
					ds_result_saverareobst.clearData();
					ds_result_saveresindenture.clearData();
					ds_result_dschestmspclcs.clearData();
					ds_result_dschserdiagappfrm.clearData();
					ds_result_dschlglydis.clearData();
					ds_result_dschrareobst.clearData();
					ds_result_dschresindenture.clearData();
                }
                fClearSaveInstance();
                return false;
            }
            
            dsf_setDefaultVal(ds_result_saveflaginfo, "divyn:N,pseuacptflag:N,admininfo:N,durappyn:N,nonprgflag:N,prtlflag:-,cpflag:-,cpgappno:0,prtlprcpstatus:-,msgdd:-,msgno:0,histno:0,resaveyn:Y,checkerrcnt:0,checkresncnt:0,checkinfocnt:0,checketccnt:0,screenid:-,ipaddress:-,savekindflag:-,divchkflag:-,dschyn:N,drgcheck:N,durrechk:-,ocrtagval:-,medicosultnyn:N,aftdcyn:N,addprcp:N,bfprcpviewflag:-,prcpauthflag:-,dschprcpyn:N,dschoutyn:N,enconsultyn:N");
            dsf_setDefaultVal(ds_result_prcplist, "prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrdayno:0,druglnkno:0,drgacptflag:-");
            dsf_setDefaultVal(ds_result_invalprcplist, "status:-,prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,drugspd:0,nigtprcpflag:N,mealcalrcnts:0,mealprotcnts:0,prcprefseq:0,ordreqlnkno:0,testreqlnkno:0,prcplnkno:0,prtlno:0,inclprcpno:0,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,aftcertflag:-,aftcertdrid:-,prcpvalidd:00000000,specdrid:-,anticncrprtlno:0,anticncrdayno:0,druglnkno:0,drgacptflag:-");
            dsf_setDefaultVal(ds_result_bfprcplist, "prcpvol:0,prcpvolunitnm:-,prcpqty:0,prcpqtyunitnm:-,prcptims:0,prcpdayno:0,drugmthdspccdnm:-,drugmthdspccd:-,clinccmtcnts:'',hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,drgacptflag:-");
        }
        
        sReSaveYn = ds_result_saveflaginfo.getColumn(0, "resaveyn"); // 다시 오류 체크 할지 여부
        if (sReSaveYn == "Y") { // 오류, 사유, 정보, 기타처리, DUR 처방전간 체크 중 하나라도 있으면 'Y'            
            var sCheckErrCnt  = ds_result_saveflaginfo.getColumn(0, "checkerrcnt");   // 에러 항목
            var sCheckResnCnt = ds_result_saveflaginfo.getColumn(0, "checkresncnt");  // 사유 입력 항목
            var sCheckInfoCnt = ds_result_saveflaginfo.getColumn(0, "checkinfocnt");  // 정보 확인 항목
            var sCheckEtcCnt  = ds_result_saveflaginfo.getColumn(0, "checketccnt");   // 기타 처리 항목
            
            if(sCheckErrCnt > 0) { // 에러 항목이 존재 하면
                if ( ds_result_prcperrlist.rowcount > 0) {
                    var sFlag      = "";
                    var nErrorCnt  = 0;     // 에러 오류 처리   
                    var nBfJudgCnt = 0;     // 사전심사 관련 내용은 따로 처리하기 위해서 로직 추가
                    
                    for ( var i = 0; i < ds_result_prcperrlist.rowcount; i++ ) {
                        sFlag = ds_result_prcperrlist.getColumn(i, "flag" );
                        if ( sFlag == "1" ) {
                            nErrorCnt++;
                            nBfJudgCnt = 0;
                            break;
                        } else if (sFlag == "9") { // 사전심사에 관련한 에러내용은 따로 처리한다.  2010. 10. 08  김영학							
                            nBfJudgCnt++;
                        }
                    }
        
                    if ( nErrorCnt > 0 ) {        // 처방 오류 처리
						dsf_createDs("ds_result_prcperrlist_clone");
						ds_result_prcperrlist_clone.copyData(ds_result_prcperrlist);

						var objArg = new Object();
						objArg.arg_ds_result_prcperrlist = ds_result_prcperrlist_clone;

						frmf_open("SPMMO00600", "SPMMO00600", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M"); //오류팝업
                        
                        var nErrRow = -1;                
                        var nDcRow  = 0;
                        var sDcPrcpPkSpec = "";
                        var DcErrArray = new Array();
                        for ( var i = 0; i < ds_result_prcperrlist.rowcount; i++ ) {
                            if (ds_result_prcperrlist.getColumn(i, "flag") == "1") {
                                nErrRow       = ds_result_prcperrlist.getColumn(i, "errrow");
                                nErrRow -= 1; 

                                sDcPrcpPkSpec = ds_result_prcperrlist.getColumn(i, "dcprcppkspec");
                                if ( !utlf_isNull(nErrRow) && nErrRow >= 0 && nErrRow < ds_main_prcplist.rowcount - 1 ) {
                                    ds_main_prcplist.setColumn(nErrRow, "tempcol9", "#ff6600");
        
                                    //응급처방 할 수 없는 처방코드 수정
                                    //if(model.getValue("/root/main/prcp/prcplist[" + nErrRow + "]/erprcpflag") == "Y"){
                                    //    model.setValue("/root/main/prcp/prcplist[" + nErrRow + "]/erprcpflag", 'N');
                                    //    model.setValue("/root/main/prcp/prcplist[" + nErrRow + "]/prcpnm", model.getValue("/root/main/prcp/prcplist[" + nErrRow + "]/orgprcpnm") );
                                    //    model.setValue("/root/main/prcp/prcplist[" + nErrRow + "]/prcprefseq","0" );
                                    //}
                                } else if ( !utlf_isNull(sDcPrcpPkSpec) ){ //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                                    DcErrArray[nDcRow] = sDcPrcpPkSpec ;
                                    nDcRow ++; 
                                } //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30
                            }
                        }
        
                        if( nDcRow > 0 ){  //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                            if( div_all.Tab_prcp.tabindex == 1 && ds_root.getColumn(0, "bfinityn") ==  "Y" )
								div_all.Tab_prcp.tp_bfprcp.fSetErrDCRow(DcErrArray);
                        } //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30
        
                        fClearSaveInstance();                        
                        ds_result_prcperrlist.clearData();
                        return false;
                    } else if ( nBfJudgCnt > 0) { // 사전심사 요구 처리
                        frmf_clearParameter("SPMMO21500_rntValue"); //parameter 초기화(2011.01.31 JJE)
                        
                        var objArg = new Object();
                        objArg.arg_ds_result_saveflaginfo   = ds_result_saveflaginfo;
                        objArg.arg_ds_result_savedrprcplist = ds_result_savedrprcplist;
						objArg.arg_ds_result_prcperrlist    = ds_result_prcperrlist;
						
                        frmf_modal("SPMMO21500", "SPMMO21500", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M"); //오류팝업
                        
                        var bfRtnValue = frmf_getParameter("SPMMO21500_rntValue");
                        if (bfRtnValue == "REQ") {
                            ds_result_prcperrlist.clearData();
                            var findRow = ds_main_prcplist.findRowExpr("status == 'I' || status == 'D' || status == 'U'");
                            if ( findRow == -1 || utlf_isNull(ds_main_prcplist.getColumn(findRow, "prcpcd"))) {
								findRow = ds_main_diagcdlist.findRowExpr("status == 'I' || status == 'D' || status == 'U'");
                                if (findRow == -1 || utlf_isNull(ds_main_diagcdlist.getColumn(findRow, "diagcd"))) {
                                    sysf_messageBox ( "사전심사할 처방 및 진단이 없습니다.", "E" );
                                    fClearSaveInstance();
                                    return false;
                                }
                            }
                            if ( !fPrcpSave_new("0", "1")) {
								ds_prcpdc_prcplist.clearData();
                            }
                            fClearSaveInstance();
                            return false;
        
                        } else if (bfRtnValue == "chgPayFlag") {
                            ds_result_prcperrlist.clearData();
                            var savePrcpListLen = ds_main_prcplist.getCaseCount("status != 'S'");
                            var saveDiagListLen = ds_main_diagcdlist.getCaseCount("status != 'S' && status != '-'");
                            if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                                fPrcpSave_new( sPrcpFlag, sSaveKindFlag, "", "N" );
                            }
                            return false;
                        } else {
                            fClearSaveInstance();
                            ds_result_prcperrlist.clearData();
                            return false;
                        }
                    } // End of 사전심사처리
                } else {
                    sysf_messageBox ("처방 저장시 오류가 발생하였습니다. 전산실(6598)로 문의 바랍니다." , "E" );
                    return false;
                }         
            } // End of 에러 항목이 존재 하면
            
            if(sCheckResnCnt > 0) { // 사유 입력 항목이 존재 하면
                frmf_clearParameter("SPMMO90200_rtn");
                
                var objArg = new Object();
                objArg.arg_ds_result_saveflaginfo = ds_result_saveflaginfo;
				objArg.arg_ds_result_prcperrlist = ds_result_prcperrlist;

				frmf_modal("SPMMO90200", "SPMMO90200", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
				
                if(frmf_getParameter("SPMMO90200_rtn") != "Y") { return false; }
            } // End of 사유 입력 항목이 존재 하면
            
            if(sCheckInfoCnt > 0) { // 정보 확인 항목이 존재 하면
                frmf_clearParameter("SPMMO90100_rtn");
                
                var objArg = new Object();
                objArg.arg_ds_result_saveflaginfo = ds_result_saveflaginfo;
				
				frmf_modal("SPMMO90100", "SPMMO90100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
				
                if(frmf_getParameter("SPMMO90100_rtn") != "Y") { return false; } 
            } // End of 정보 확인 항목이 존재 하면
            
            if(sCheckEtcCnt > 0) { // 기타 처리 항목이 존재 하면
                // 01. T10001, T10002 용량 분할 처리 T10001:일반 약품 용량 분할, T10002:항암 약품 용량 분할
                var sDivChkFlag  = ds_result_saveflaginfo.getColumn(0, "divchkflag"); // 용량 분할 처리
                if (ds_initsrch_durappyn.getColumn(0, "trgtcd") != "A" ) { // 경북대용 DUR 적용시에는 저함량 용량분할 체크 후 DUR 로직체크 함 durappyn : "A-전체 DUR", "Y-저함량제외 DUR", "나머지-DUR 사용안함"  , "K:경북대용 DUR"
                    if ( sDivChkFlag == "N" ) {
                        if ( ds_result_prcplist.rowcount > 0 ) { // 용량분할, 저함량
                            if ( !utlf_isNull(ds_result_prcplist.getColumn(0, "prcpcd"))){
                                //by sonjy 20090714 변경요청서 처리 :  저함량 용량분할창 닫기버튼 삭제처리								
								var objArg = new Object();
								objArg.arg_ds_main_prcplist = ds_result_prcplist;
								
								frmf_modal("SPADB62400", "SPADB62400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
								
                                fClearSaveInstance();
                            }
                            
                            fPrcpSave_new( sPrcpFlag, sSaveKindFlag, "", "N"  ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
                            return false;
                        }
                    } else if (sDivChkFlag == "A") {
                        //20090420 마정민 수정 항암용량분할은 기존에는 서버에서 불할되어 바로 저장체크로직으로 갔지만 보험제한규정에 걸려서
                        //다시저장할때 분할된 내용이 화면이 표시가 되지 않아 용량분할이 되지 않음.
                        //항암용량분할도 화면에 표시하게 수정
                        ds_main_prcplist.clearData();
                    
                        //용량분할시 서버체크로직에서 default="0" 으로 세팅하여 넘겨서 화면에 0 으로 조회되여 다시 ''로 초기화, 서버로직 수정은 추후검토, 2009-07-05. CHC   
                        for (var i = 0; i < ds_result_prcplist.rowcount; i++) {
                            if(ds_result_prcplist.getColumn(i, "status") == "S") {
								ds_result_prcplist.setColumn(i, "prcpvol",   "");
                                ds_result_prcplist.setColumn(i, "prcpqty",   "");
                                ds_result_prcplist.setColumn(i, "prcptims",  "");
                                ds_result_prcplist.setColumn(i, "prcpdayno", "");
                                break;
                            }
                        }
						ds_main_prcplist.appendData(ds_result_prcplist, true);
						
                        fPrcpSave_new( sPrcpFlag, sSaveKindFlag, "", "N"  ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
                        return false;
                    } 
                } // End of 용량 분할 처리
                
                // 02. T10003 퇴원예고에러발생여부
                var sDschYn  = ds_result_saveflaginfo.getColumn(0, "dschyn");
                if(sDschYn == "Y"){ //퇴원예고 되지 않은 사항에서 퇴원처방을 했을경우 퇴원예고 창을 띄움
                    sysf_messageBox ("퇴원예고를 해야만 퇴원 및 퇴원후외래,입원전검사(전일/당일) 처방을 저장할 수 있습니다." , "E" );
                    preDsch();
                    return false;
                }

                // 03. T10004 DRG적용 처방체크
                pop_DrgAbleYn  = ds_result_saveflaginfo.getColumn(0, "drgcheck"); // DRG적용 처방체크
                
                // 04. T10005 항암제 상세정보 입력 2013.08.13 엄영만
				for ( var i = 0; i < ds_result_chemoprcplist.rowcount; i++ ) {
					frmf_clearParameter ( "SPMMO23000_rtn1" );
					
					dsf_createDs("ds_result_chemoprcplist_clone");
					dsf_copyColInfo(ds_result_chemoprcplist_clone, ds_result_chemoprcplist);
					ds_result_chemoprcplist_clone.addRow();
					ds_result_chemoprcplist_clone.copyRow(0, ds_result_chemoprcplist, i);
					
					var objArg = new Object();
					objArg.arg_ds_main_chemoinfo = ds_result_chemoprcplist_clone;
					
					frmf_modal("SPMMO23000", "SPMMO23000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
					
					if ( frmf_getParameter ( "SPMMO23000_rtn1" ) != "Y" ){
						dsf_deleteDs("ds_result_chemoprcplist_clone");
						return false;
					}
				}
				
				dsf_deleteDs("ds_result_chemoprcplist_clone");

                // 05. T10006 병기분류/항암차수 정보 입력
                if (!utlf_isNull(ds_result_savetnmlist.getColumn(0, "pid")) || !utlf_isNull(ds_result_savecncrlist.getColumn(0, "pid"))) { 
                    frmf_clearParameter("SPMMO08400_rtn1");
					
					var objArg = new Object();
					objArg.arg_ds_tempresult_savetnmlist = ds_result_savetnmlist;
					objArg.arg_ds_tempresult_savecncrlist = ds_result_savecncrlist;
					
					frmf_modal("SPMMO08400", "SPMMO08400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
					
                    if(frmf_getParameter ( "SPMMO08400_rtn1" ) != "Y") { return false; }
                }
                
                // 06. T10007 유전자검사 동의서 처리
                if (!utlf_isNull(ds_result_geneconsent.getColumn(0, "prcpcd")) && sCpFlag != "Y") {
                    dsf_deleteDs("ds_hidden_gene2_savedata"); // 유전자 검사 동의서 저장 노드 초기화
                    dsf_deleteDs("ds_hidden_geneunitlist2");  // 유전자 검사 동의서 출력물 노드 초기화
                    					
					var objArg = new Object();
					objArg.arg_ds_main_prcplist = ds_result_geneconsent;
                    
                    frmf_modal("SPMMO21001", "SPMMO21001", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");   // 유전자 동의서
                    
                    var geneInfoNodes =  this.objects["ds_hidden_geneunitlist2"]; // 유전자 동의서 서식 데이터
                    if( utlf_isNull(geneInfoNodes) || geneInfoNodes.rowcount <= 0) {				 // 유전자 동의서 서식 데이터
                        return false; 
                    } else {
						dsf_createDs("ds_hidden_gene_savedata");	// TXMMO21001 input 노드 주소
						
                        if(ds_hidden_gene2_savedata.rowcount > 0){  // 유전자 동의서 저장 데이터 노드 주소							
							ds_hidden_gene_savedata.copyData(ds_hidden_gene2_savedata);
                        }
                        
                        var oParam = {};
							oParam.id       = "TXMMO21001";
							oParam.service  = "prcpmngtapp.EtcPrcpMngt";
							oParam.method   = "reqExeSaveGeneInsptAgree";
							oParam.inds     = "savedata=ds_hidden_gene_savedata";
							oParam.outds    = "ds_result_saveinfo=saveinfo";
							oParam.async    = false;
							oParam.callback = "cf_TXMMO21001";

						tranf_submit(oParam);
						
						if(arErrorCode.pop("TXMMO21001") > -1) { // 유전자 동의서 저장
							var objDOM = rptf_createDOM();															// DOM 객체 설정	
							rptf_setNodeListToDOM(objDOM, "/root/hidden/geneunitlist2", ds_hidden_geneunitlist2);	// 데이터셋 1
							
							var objParam = new Object();
							objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
							var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
							rptf_exeReportPreview30(["RPMMO21002"],[objParam], option);
							
                            fOcrAutoPrint(ds_result_geneconsent.getColumn(0, "prcpcd") + "▦");
                            
                            if(!fSaveOCRIF(ds_result_geneconsent.getColumn(0, "ocrtag")
                                         , ds_result_geneconsent.getColumn(0, "pid")
                                         , ds_result_geneconsent.getColumn(0, "orddd")
                                         , ds_result_geneconsent.getColumn(0, "cretno")
                                         , ds_result_geneconsent.getColumn(0, "prcpgenrflag")
                                         , ds_result_geneconsent.getColumn(0, "orddeptcd")
                                         , ds_result_geneconsent.getColumn(0, "orddrid")
                                         , ds_result_geneconsent.getColumn(0, "formcd")
                                         , ds_result_geneconsent.getColumn(0, "formfromdt")
                                         , "", "", 1) ) {
                                sysf_messageBox("유전자검사동의서 IF 저장시 오류발생", "I");
                            }
                        }
                    }
                }
                
                // 07. T10008 인체 유래물 동의서 처리
                if (!utlf_isNull(ds_result_atadconsent.getColumn(0, "prcpcd")) && sCpFlag != "Y") {
                    dsf_deleteDs("ds_hidden_gene_savedata"); // 유전자 검사 동의서 저장 노드 초기화
                    dsf_deleteDs("ds_hidden_geneunitlist");  // 인체 유래물 동의서 서식 데이터 출력물 노드 초기화
                    
                    var objArg = new Object();
					objArg.arg_ds_main_prcplist = ds_result_atadconsent;
                    
                    frmf_modal("SPMMO21000", "SPMMO21000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");   // 인체 유래물 동의서
                    
                    var atadInfoNodes = this.objects["ds_hidden_geneunitlist"]; // 인체 유래물 동의서 서식 데이터
                    if( utlf_isNull(atadInfoNodes) || atadInfoNodes.rowcount <= 0) {
                        return false; 
                    } else {
						var oParam = {};
							oParam.id       = "TXMMO21001";
							oParam.service  = "prcpmngtapp.EtcPrcpMngt";
							oParam.method   = "reqExeSaveGeneInsptAgree";
							oParam.inds     = "savedata=ds_hidden_gene_savedata";
							oParam.outds    = "ds_result_saveinfo=saveinfo";
							oParam.async    = false;
							oParam.callback = "cf_TXMMO21001";

						tranf_submit(oParam);
						
                        if(arErrorCode.pop("TXMMO21001") > -1) { // 인체 유래물 동의서 저장
							var objDOM = rptf_createDOM();															// DOM 객체 설정	
							rptf_setNodeListToDOM(objDOM, "/root/hidden/geneunitlist", ds_hidden_geneunitlist);	// 데이터셋 1
							
							var objParam = new Object();
							objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
							var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
							rptf_exeReportPreview30(["RPMMO21001"],[objParam], option);
							
							fOcrAutoPrint(ds_result_atadconsent.getColumn(0, "prcpcd") + "▦");
                            
                            if(!fSaveOCRIF(ds_result_atadconsent.getColumn(0, "ocrtag")
                                         , ds_result_atadconsent.getColumn(0, "pid")
                                         , ds_result_atadconsent.getColumn(0, "orddd")
                                         , ds_result_atadconsent.getColumn(0, "cretno")
                                         , ds_result_atadconsent.getColumn(0, "prcpgenrflag")
                                         , ds_result_atadconsent.getColumn(0, "orddeptcd")
                                         , ds_result_atadconsent.getColumn(0, "orddrid")
                                         , ds_result_atadconsent.getColumn(0, "formcd")
                                         , ds_result_atadconsent.getColumn(0, "formfromdt")
                                         , "", "", 1) ) {
                                sysf_messageBox("인체 유래물 기증 동의서 IF 저장시 오류발생", "I");
                            }
                        }
                    }
                }
                
                // 08. T10009 처방 일반 동의서 처리
                if (!utlf_isNull(ds_result_comnconsent.getColumn(0, "prcpcd")) && sCpFlag != "Y") {
                    ocrcalcscorcd = "";
                    for (var i = 0; i < ds_result_comnconsent.rowcount; i++) {
                        ocrcalcscorcd = ocrcalcscorcd + ds_result_comnconsent.getColumn(i, "prcpcd") + "▦";
                    }
                    fOcrAutoPrint(ocrcalcscorcd); //OCR 자동출력 ocrcalcscorcd 값은 MMO001에 global로 선언.
                    
                    // 추후 SPMRF04500_OCR팝업 작업 완료후  SPMRF04500_OCRTAGvalue 관련 확인필요
                    var sOcrTagVal = frmf_getParameter("SPMRF04500_OCRTAGvalue"); 
                    if(!utlf_isNull(sOcrTagVal)){
                        sOcrTagVal = sOcrTagVal.replaceAll("▦", "|");
                        frmf_setParameter("SPMRF04500_OCRTAGvalue", ""); 
                        ds_result_saveflaginfo.setColumn(0, "ocrtagval", sOcrTagVal);  // 동의서 출력후 다시 체크시 처방 정보에 OCR Tag번호(drprcpetc3) 설정 하기위해
                    }
                    ocrcalcscorcd = "";
                }
            } // End of 기타 처리 항목이 존재 하면

            // 저장 3단계로 구성 - 저장 구분 정보를 재설정 한다. 2013.10.14 엄영만
            ds_send_cond1.copyData(ds_result_saveflaginfo);
            // DUR 점검결과 전문 - 심평원 체크(처방전간) 로직으로 인해 화면에서 다시 값을 서버로 보낸다. 2013.10.31 엄영만
            ds_send_cond5.copyData(ds_result_kdurchkrslt);
        } else {
            prcpsaveyn = "Y";
            if(sCpFlag == "Y") {
                prcpsaveyn_SMMMO00110 = "Y";
                if(sSaveKindFlag != 1){
                    SubmitTF_SMMMO00110 = true;
                    dsf_createDs("ds_main_invalprcplist");
                    ds_main_invalprcplist.copyData(ds_result_invalprcplist);
                }
            }
            
            // 저장 성공시 saveflag 정보 관련 변수값  설정.
            pop_MedicineConsult = ds_result_saveflaginfo.getColumn(0, "medicosultnyn"); // 복약상담의뢰 창 팝업 여부 2011.10.24 엄영만 (칠곡 약제부 이석미 요청)
            pop_DrgAbleYn       = ds_result_saveflaginfo.getColumn(0, "drgcheck");      // DRG적용 처방체크
            pop_EnConsult       = ds_result_saveflaginfo.getColumn(0, "enconsultyn");   // TPN 영양 상담 여부
            
            if(sTuningYn == "Y") {
                // 처방저장후 화면 처리 관련 노드 설정
            	dsf_createDs("ds_savertninfo_prcpetccnts");          // 처방 기본 설정 정보
            	dsf_createDs("ds_savertninfo_rsrvcvrtprcp");         // 외래 예약처방을 입원으로 전환대상
            	dsf_createDs("ds_savertninfo_prcplist");             // 저장후 전처방 리스트
            	dsf_createDs("ds_savertninfo_saveestmspclcs");       // 중증/특례 적용정보
            	dsf_createDs("ds_savertninfo_saveserdiagappfrm");    // 중증/특례 신청서 정보
            	dsf_createDs("ds_savertninfo_savelglydis");          // by sonjy 2008-07-28 희귀난치대상자 구분 
            	dsf_createDs("ds_savertninfo_saverareobst");         // 법정전염병 처방시 첫번째 상병의 신고서만 호출 2010-01-21 pyj
            	dsf_createDs("ds_savertninfo_saveresindenture");     // 레진상 완전 틀니 
            	dsf_createDs("ds_savertninfo_dschestmspclcs");       // 퇴원후 외래 중증/특례 적용정보
            	dsf_createDs("ds_savertninfo_dschserdiagappfrm");    // 퇴원후 외래 중증/특례 신청서 정보
            	dsf_createDs("ds_savertninfo_dschlglydis");          // 퇴원후 외래 by sonjy 2008-07-28 희귀난치대상자 구분 
            	dsf_createDs("ds_savertninfo_dschrareobst");         // 퇴원후 외래 법정전염병 처방시 첫번째 상병의 신고서만 호출 2010-01-21 pyj
            	dsf_createDs("ds_savertninfo_dschresindenture");     // 퇴원후 외래레진상 완전 틀니 
            	
            	ds_savertninfo_prcpetccnts.copyData(ds_result_prcpetccnts);
            	ds_savertninfo_rsrvcvrtprcp.copyData(ds_result_rsrvcvrtprcp);
            	ds_savertninfo_prcplist.copyData(ds_result_bfprcplist);
            	// 산정특례정보
            	ds_savertninfo_saveestmspclcs.copyData(ds_result_saveestmspclcs);
            	ds_savertninfo_saveserdiagappfrm.copyData(ds_result_saveserdiagappfrm);
            	ds_savertninfo_savelglydis.copyData(ds_result_savelglydis);
            	ds_savertninfo_saverareobst.copyData(ds_result_saverareobst);
            	ds_savertninfo_saveresindenture.copyData(ds_result_saveresindenture);
            	// 퇴원후 외래 산정특례정보
            	ds_savertninfo_dschestmspclcs.copyData(ds_result_dschestmspclcs);
            	ds_savertninfo_dschserdiagappfrm.copyData(ds_result_dschserdiagappfrm);
            	ds_savertninfo_dschlglydis.copyData(ds_result_dschlglydis);
            	ds_savertninfo_dschrareobst.copyData(ds_result_dschrareobst);
            	ds_savertninfo_dschresindenture.copyData(ds_result_dschresindenture);
            }
        }
    }
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step2Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 서버 오류 체크 소요시간
    startStepDate = new Date(); // 각 업부 시작 시간
    
    /*********************************************************************************************************** 
     *  3. 처방 저장후 화면 처리
     ***********************************************************************************************************/
    fClearSaveInstance();
    appf_setPatientInfoDetailByKey("prcpsaveyn", sPid+ "|" + ds_init.getColumn(0, "prcpobjsaveyn"));     // 처방이 저장된것을 상단에 올려준다.   
    
    //선택진료 동의서를 출력한다.
    fPrltPartSpclDrList(); // 2010.12.30 김영학 경북대 버젼 수정
    
    //2011.01.09 외래 예약 창을 팝업 한다. 
    if (sSaveKindFlag == "0" && sPrcpGenrFlag == "O" && sAddPrcp != "Y" && ds_init.getColumn(0, "prcpsavebtnflag") == "2"){
        frmf_setParameter("SMPMO00300_PARM1", sOrdDeptCd); //진료과코드
        frmf_setParameter("SMPMO00300_PARM2", sOrdDrId);   //진료의사코드
        frmf_setParameter("SMPMO00300_PARM3", sPid);       //환자번호   
                    
        lf_prcpModal ("SMPMO00300", 0, 80);
        frmf_clearParameter("SMPMO00300_PARM1");
        frmf_clearParameter("SMPMO00300_PARM2");
        frmf_clearParameter("SMPMO00300_PARM3");
    } 
    
    if(sTuningYn == "Y") {
        // 처방저장후 화면 처리 관련
        if( sCpFlag == "Y" && sAddPrcp != "Y"  ){ //20080910 마정민 수정. 시행부서처방은 산정특례 체크 안한다.
            //JJE 조건추가 2008.09.08 인증저장인 경우, M-GPS의 적용 버튼 이벤트에서 (당일+미래처방 저장 처리가 모두 끝난 후) fGetPrcpSaveAftInfo()를 직접 호출하므로, 임시저장 때에만 여기에서 수행함.
            if( sSaveKindFlag == 1 ){
            	fExeAfterPrcpSave(prcpsaveyn ,"Y");
            }
        }else{
            if( sSaveKindFlag == 1 ) { 
                sAftDcYn = "Y"; //임시저장일 경우 산정특례 및 법정전염병 타지 않도록....by sonjy 20081123
            }
            fExeAfterPrcpSave(prcpsaveyn ,sAftDcYn); //청구후 d/c가 아닐 경우만 타도록 parameter 추가 . by sonjy 20081027
        }
        
        ds_main_diagcdlist.copyData(ds_result_diagcdlist); // 진단 정보 복사
    } else {
        // 산정특례 체크
        if( sCpFlag == "Y" && sAddPrcp != "Y"  ){ //20080910 마정민 수정. 시행부서처방은 산정특례 체크 안한다.
            //JJE 조건추가 2008.09.08
            //인증저장인 경우, M-GPS의 적용 버튼 이벤트에서 (당일+미래처방 저장 처리가 모두 끝난 후) fGetPrcpSaveAftInfo()를 직접 호출하므로, 임시저장 때에만 여기에서 수행함.
            if( sSaveKindFlag == 1 ){
            	fGetPrcpSaveAftInfo(prcpsaveyn ,"Y");
            }
        }else{
            if( sSaveKindFlag == 1 ) { 
                sAftDcYn = "Y"; //임시저장일 경우 산정특례 및 법정전염병 타지 않도록....by sonjy 20081123
            }
            fGetPrcpSaveAftInfo ( prcpsaveyn ,sAftDcYn); //청구후 d/c가 아닐 경우만 타도록 parameter 추가 . by sonjy 20081027
        }
    }

    // 처방 저장후 환자 가셔야 할 곳을 출력한다. 2011. 01. 05. 김영학 외래 환자만 출력한다. 
    if (sSaveKindFlag == "0" && sCpFlag != "Y" && (sPrcpGenrFlag == "O" || sPrcpGenrFlag == "S")){
        var returnVal = lf_getHardCDList("Y", 268, 3);
        var patgolistprtyn = ds_init.getColumn(0, "patgolistprtyn");
        if ((returnVal == "N" || patgolistprtyn == "Y") && ds_paminfo.getColumn(0, "ordtype") == "O" ) {
            fPrltPatTogoPlceList();
        }
    }

    if (sSaveKindFlag != 1) {
        var prcpsaveyn = "N";
        if ( sSaveDataFlag == "0" || sSaveDataFlag == "2" ) {
            prcpsaveyn = "Y";
        }
        
// 추후 input dataset 확인필요(일단은 가장 적합해 보이는 ds_send_cond3 으로 셋팅함)
        if(sTuningYn != "Y") {
            //수술중처방 마약집계호출
            if ( ds_init.getColumn(0, "drugbatch") == "Y" ) {
				var oParam = {};
					oParam.id       = "TXMMO00106";
					oParam.service  = "prcpmngtapp.PrcpMngt";
					oParam.method   = "reqExeDrugBatch";
					oParam.inds     = "savedrprcplist=ds_send_cond3";
					oParam.async    = false;

				tranf_submit(oParam);
            }
    
            if ( sPrcpGenrFlag == "E" ) { //응급일 때 진료지원 예약모듈 호출
                var oParam = {};
					oParam.id       = "TXMMO00110";
					oParam.service  = "prcpmngtapp.PrcpMngt";
					oParam.method   = "reqExeSetAutoRoomAssignIF";
					oParam.inds     = "savedrprcplist=ds_send_cond3";
					oParam.async    = false;

				tranf_submit(oParam);

            }
        }
    }
    
    ds_main_prcplist.clearData();
    
    lf_appendChildPrcp("ds_reset_prcplist", "ds_main_prcplist", "main");
    
    ds_result_saveflaginfo.clearData();
	ds_result_prcperrlist.clearData();
	ds_result_prcplist.clearData();
	ds_result_savetnmlist.clearData();
	ds_result_savecncrlist.clearData();
	ds_result_kdurchkrslt.clearData();
	ds_result_chemoprcplist.clearData();
	ds_result_geneconsent.clearData();
	ds_result_saveinfo.clearData();
	ds_result_atadconsent.clearData();
	ds_result_comnconsent.clearData();
	ds_result_invalprcplist.clearData();
	ds_result_specconsent.clearData();
	ds_result_diagcdlist.clearData();
	ds_result_bfprcplist.clearData();
	ds_result_prcpetccnts.clearData();
	ds_result_rsrvcvrtprcp.clearData();
	ds_result_saveestmspclcs.clearData();
	ds_result_saveserdiagappfrm.clearData();
	ds_result_savelglydis.clearData();
	ds_result_saverareobst.clearData();
	ds_result_saveresindenture.clearData();
	ds_result_dschestmspclcs.clearData();
	ds_result_dschserdiagappfrm.clearData();
	ds_result_dschlglydis.clearData();
	ds_result_dschrareobst.clearData();
	ds_result_dschresindenture.clearData();

	ds_send_cond1.clearData();
	ds_send_cond2.clearData();
	ds_send_cond3.clearData();
	ds_send_cond4.clearData();
	ds_send_cond5.clearData();
	ds_send_cond14.clearData();
	ds_send_cond15.clearData();

    //추가처방화면이면
    if ( sAddPrcp == "Y" ) {
// 추가처방 화면 작업 후 확인필요
        fAddPrcpInitConDone( "", "", "", "", "", "Y" , "" );
    } 

	var param;
    var operation = sysf_getGlobalVariable("operation"); //수술예약정보 set
    var sIoFlag = ds_paminfo.getColumn(0, "ioflag");
    if ( sIoFlag == "O" || sIoFlag == "S" )    {
        //ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
        //외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
        var sAcptSeqNo = ds_paminfo.getColumn(0, "acptseqno" );
        var sOrgOrdDd  = ds_paminfo.getColumn(0, "orgorddd" );
        
        param = sIoFlag + "▦" + sPid + "▦" + sOrdDd + "▦" + sCretNo + "▦" + sInstCd + "▦" + sAcptSeqNo + "▦" + sOrgOrdDd;        
    } else {
        //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦prcpdd▦
        //입원/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드▦처방적용일
        var sInPrcpDd = sPrcpDd;
        if( sIoFlag == "D" ) { // DSC는 입원으로 처리
            sIoFlag = "I";
        }
        //청구 후 D/C관련 추가 처리...prcpdd를 퇴원환자일 경우 퇴원일을 넘겨 준다. 그렇지 않을 경우 상단 정보 오류남. by sonjy 20081027 
        if( ds_paminfo.getColumn(0, "indschacptstat") == "D" && ds_paminfo.getColumn(0, "dschdd") != "99991231" && !utlf_isNull(ds_paminfo.getColumn(0, "dschdd")) ){
            sInPrcpDd = ds_paminfo.getColumn(0, "dschdd");
        }
        
        param = sIoFlag + "▦" + sPid + "▦" + sOrdDd + "▦" + sCretNo + "▦" + sInstCd + "▦" + sInPrcpDd;
    } 
    
    var useyn;
    
    if ( sAddPrcp != "Y"  ){//&& sPrcpChkFlag != "clickpatlist"  진료대상자리스트에서 선택되었을때는 메세지 띄우지 않는다. 20100317 LYJ
        useyn = appf_initPatientInfo(param);
    }
    
    //기존의 수술예약번호가 있는 경우에는 reset처리
    if( !utlf_isNull(operation) ){
        sysf_setGlobalVariable("operation", operation);
    }

    if(useyn){
        if(sTuningYn == "Y") {
            fPatDiagSrch("save");
   		} else {
   		    if ( sSaveDataFlag != "2" ) {
   		        fPatDiagSrch();
   		    }
   		}        
        
        if ( sCpFlag == "Y" && sSaveKindFlag != 1 ){ //JJE CP일 경우, 당일+미래처방 모두 저장 후 맨 마지막에 진료대상자를 조회한다 (2008.09.11)
            return true;
        }

        fInitializeConDone("save");
        fTempPrcp("save");

        //20080818 마정민 수정: 전처방 조회 저장후 바로 가져오는 걸로 수정
        //ivw_prcp3.window.javascript.fInitialize("init");
        if ( sCpFlag != "Y" && div_all.Tab_prcp.tabindex != 1) {
			div_all.Tab_prcp.tabindex = 1;
        }else if ( div_all.Tab_prcp.tabindex != 1 ) {
            div_all.Tab_prcp.tabindex = 1;
        }
        
        //20090327 마정민수정: 차상위 로직추가
        if ( ds_paminfo.getColumn(0, "scndyn") == "Y" && sPrcpGenrFlag == "O" && sSaveKindFlag != 1 ) {
            fScndChk();
        }

        fInitializeScreen();
        
        //종속처방번호, 믹스번호, hsctlnkno 초기화
        ds_init.setColumn(0, "inclprcpno", 0 );
        ds_init.setColumn(0, "hsctlnkno", 0 );
        ds_init.setColumn(0, "prcpmixno", 0 );

        var ordPatObj = frmf_findPopup("SMMMO04100");
        if(!utlf_isNull(ordPatObj)){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
           ordPatObj.fPrcpCallPatList();
        }
        var ordMiniPatObj = frmf_findPopup("SPMMO04200");
        if(!utlf_isNull(ordMiniPatObj)){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
           ordMiniPatObj.fChkGetData();
        }
    }        
    
    //model.addlog("      SPEED CHECK END OF 화면 재조회(상단/처방/대상자)");
    //model.addlog("  SPEED CHECK END OF 저장 후 처리");
    //model.addlog("SPEED CHECK END OF fPrcpSave()");           
        
    // 입원 또는 응급일 경우 기록/처방 직전 인증저장이 정해진 시간(분 단위, 하드코드 401) 이내이면 인증서를 띄우지 않음. 인증저장된 시간을 저장. 20111201 knuh 최원돈
    // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js
    if ((sPrcpGenrFlag == "I" || sPrcpGenrFlag == "E") && sSaveKindFlag != 1 ) {
        sysf_setGlobalVariable("emrinptsavetime", utlf_getCurrentDateTime());
    }

    if(pop_MedicineConsult == "Y") { // 복약상담의뢰 창 팝업 여부 2011.10.24 엄영만 (칠곡 약제부 이석미 요청)
        frmf_modal("SPADC62100", "SPADC62100", null, null, null, 200, 200, null, null, null, null, null, "M");
    }
    
    if(pop_EnConsult == "Y") { // TPN 영양 상담 여부 창 팝업 여부 2014.03.24 엄영만 (본원영양팀 이민지 요청), 1주 이상으로 변경 2014.10.27
        if( sysf_messageBox("정맥영양(PN) 1주이상 지속 처방되어 환자 모니터링되었습니다.\n\n영양집중지원팀(NST)으로 의뢰하시겠습니까?(문의5213)","Q999") == 6 ){
			dsf_createDsRow("ds_temp", [{col:"cnstinfo",    type:"string", size:256, val:"0000000770"}]);  // 정맥영양상담의뢰
			
			var objArg = new Object();
			objArg.arg_ds_temp = ds_temp;      
			
			frmf_modal("SPADB62300", "SPADB62300", objArg, null, 1, 0, 0, null, null, null, null, null, "M");
        }
    }
    
    if (pop_DrgAbleYn == "Y") {  // DRG 정보화면 팝업. 2013.06.25
    	if ( sysf_messageBox ( "DRG 적용 가능한 수술처방이 저장 되었습니다.\nDRG 임시대상자로 등록 하시겠습니까?","Q") == "6" ) {
        	frmf_setParameter("pid",    sPid);
    		frmf_setParameter("indd",   sOrdDd);
    		frmf_setParameter("cretno", sCretNo);
    		frmf_setParameter("prcpyn", "Y");  // 처방 화면에서 오픈
    		
    		frmf_modal("SPPIJ03201", "SPPIJ03201", null, null, null, 200, 200, null, null, null, null, null, "M");
	    }
	}
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step5Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 저장후 처리 소요 시간

    if(sPrcpFlag == "0" && sSaveKindFlag == "0" && sAddPrcp != "Y") {
        // 속도체크를 위한 모니터링 로그 데이터 생성.
        reqSetMonitoringLog( "PrcpSave"         // type
                           , sSaveDataFlag       // item01 : 저장 데이터 유형  0:인증저장(진단+상병), 1:인증저장(진단), 2:인증저장(처방), 4:임시저장(처방), 5:임시저장DC(처방), 6:임시저장(진단+처방), 7:임시저장(진단)
                           , sPrcpGenrFlag       // item02 : 진료유형 (O:외래, S:건강검진, I:입원, E:응급, D:일일수술,낮병동)
                           , "0"                // item03 : 입력구분 (코드정의서 M0034 참조) inptflag
                           , sPid                // item04 : 등록번호
                           , sOrdDd              // item05 : 진료(입원)일자
                           , sCretNo             // item06 : 생성번호
                           , sOrdDeptCd          // item07 : 진료부서
                           , nPrcpCnt           // item08 : 처방갯수
                           , nDiagCnt           // item09 : 진단갯수
                           , (step1Elapsed + step2Elapsed + step5Elapsed) // item10 : 전체소요시간
                           , step1Elapsed       // item11 : 화면 오류체크 소요시간
                           , step2Elapsed       // item12 : 서버 오류체크 소요시간
                           , step3Elapsed       // item13 : 화면 오류처리 소요시간
                           , step4Elapsed       // item14 : 서버 저장처리 소요시간
                           , step5Elapsed       // item15 : 화면 저장후처리 소요시간
                           , (step2Elapsed + step5Elapsed) // item16 : 서버 저장처리 소요시간 + 화면 저장후처리 소요시간
                           , sTuningYn          // 튜닝로직 적용여부
                           );
    }
    
    return true;
}

function cf_TXMMO00121(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00122(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO21001(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function fPrcpSave_old( prcpflag, savekindflag, saveNode, prcpchkflag ) {
    //model.addlog("SPEED CHECK START OF fPrcpSave()");
    //model.addlog("  SPEED CHECK START OF 처방가능체크(화면)");
    
    //처방 시간을 계산하기 위해 변수 추가 2012.11.19 엄영만
    var startStepDate = new Date(); // 각 업부 시작 시간
    var endStepDate   = null;       // 각 업부 종료후 시간
    var step1Elapsed  = null; // 화면 오류 체크전 처리 소요시간
    var step2Elapsed  = null; // 서버 오류 체크 소요시간
    var step3Elapsed  = null; // 화면 서버 오류 처리 소요시간
    var step4Elapsed  = null; // 서버 실제 저장 소요시간 
    var step5Elapsed  = null; // 화면 저장후 처리 소요 시간
    var nPrcpCnt = 0;        // 처방 갯수
    var nDiagCnt = 0;        // 진단 갯수
    
    var mon = sysf_getCurrentMonitorNumber();
	var xpt = this.getOwnerFrame().position.x + 200;
	var ypt = this.getOwnerFrame().position.y + 100;

    var curCpObj = frmf_findPopup("SPMMO00600"); //활성화된 CP Main 화면 object loading
    var nodelistRecNode = "";
    
    if(!utlf_isNull(curCpObj)) curCpObj.fClose();
    if( utlf_isNull(prcpflag)) prcpflag = "0";          
    if( utlf_isNull(savekindflag)) savekindflag = "0";          
    if( utlf_isNull(saveNode)) saveNode = "ds_main_prcplist";

    //20091208 HJS DUR적용여부를 임시적으로 실시간으로 가져와서 체크한다.
    lf_reqHardCodeInfo(ds_hidden_durappinfo, "119");
    ds_initsrch_durappyn.setColumn(0, "trgtcd", ds_hidden_durappinfo.getColumn(0, "hardcd"));
    
    //PRN 적용여부를 실시간으로 가져와서 체크한다. 2010-01-02 by LYJ 
    lf_reqHardCodeInfo(ds_hidden_prnprcpyninfo, "173");
    ds_save_saveflaginfo.setColumn(0, "prnprcpyninfo", ds_hidden_prnprcpyninfo.getColumn(0, "hardcd") );
    
    //청구후 d/c처방 여부 by sonjy 20081027
    var aftdcyn = "N";
    
    //전처방 탭이 아닌 탭에 포커싱 될 때 인증저장 시 DC처방 저장되지 않음. "btn_ivbfprcp.selected &&" 조건 삭제 (JJE)
    if ( ds_root.getColumn(0, "cp") != "Y" ) {
        if ( ds_init.getColumn(0, "setprcpyn") == "Y" ) {
            div_all.Tab_prcp.tp_bfprcp.fAppendDC();
        }
    } else {
        if ( prtlprcpstatus_SMMMO00110 != "U" ) {   //OCS활성화된 경우만 체크 && btn_ivbfprcp.selected && btn_init.visible == false && btn_reinit.visible == false //CP에서 DC+추가처방발행 안돼서 해당 조건 삭제(2010.07.06 JJE)
            var dcNode = div_all.Tap_prcp.tp_bfprcp.ds_prcpsrch_prcplist.findRow("chkcol", "D");                     // DC처방
            if( dcNode != -1 && ds_init.getColumn(0, "setprcpyn") == "Y" ){
                div_all.Tap_prcp.tp_bfprcp.fAppendDC();
            }
            ds_save_saveflaginfo.setColumn(0, "prtlflag", prtlFlag_SMMMO00110 ); //MMPHPTCP의 prtlflag(프로토콜구분)이 '-'이거나 '01'이면 CP (DC저장을 위함)
        }
    }

    var savedataflag = fSaveExistCheck( savekindflag );
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag" );

    if ( savedataflag == -1 ) {
        if ( prcpgenrflag == "O" ) { 
            savedataflag = 3;
        } else {
            sysf_messageBox ( "저장할", "E013" );
            return false;
        }
    } else if ( savedataflag == 5 ) {
        sysf_messageBox ( "처방DC는 임시저장", "E001" );
        return false;
    } 
    
    // 처방 저장시 화면에서 처장 가능 한지 체크 한다.
    var sIprcAddYn = ds_paminfo.getColumn(0, "iprcaddyn");  // 추가처방 발행여부(심사실 가퇴원 환자)는 처방저장 가능 체크 제외 2012.04.16
    if(sIprcAddYn != "Y" && !fCheckBeforePrcpSave( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;

    var saveok = "N";
    if ( prcpchkflag != "N" ) { // prcpchkflag가 N 이면 메시지를 안물어보고 넘어간다.       
        if ( prcpchkflag == "clickpatlist" ){
             saveok = "Y"; 
        }   // 진료대상자리스트에서 선택되었을때는 메세지 띄우지 않는다.   20100317 LYJ  
        if ( prcpchkflag != "drugdc" ) prcpchkflag = "Y"; //반환요청이 아니라면 Y로 해준다.        
        if (ds_initsrch_prcpetccnts.getColumn(0, "admiprcpyn") == "Y" ) { //admission 처방이 없는데
            if ( !utlf_isNull(ds_main_prcplist.lookup("prcpkindcd", '10', "prcpcd")) ) { //정규처방이 존재하면
                if ( "7" == sysf_messageBox ( "입원당일 Admission 처방이 존재하지 않습니다. 그래도 정규처방을", "Q002" )) return false;
                else saveok = "Y"; //질문을 한번만 하려고 수정
            }
        }
        
        if ( saveok == "N" ) {
            if ( savedataflag == 6 ) {
                if( sysf_messageBox ( "", "Q002" ) == "6"  ) {
                    saveok = "Y";
                } else {
                    saveok = "N";
                }
            } else {
                if( sysf_messageBox ( "", "Q002" ) == "6"  ) saveok = "Y";
            }
        }
    } else {
        saveok = "Y"
    }
    
    //by sonjy 20091103 처방인증저장 시점 용량 보정여부 확인 팝업 성빈센트만...적용 
    //if( prcpchkflag != "N" && saveok == "Y"  && prcpflag == "0" && savekindflag == "0" &&  model.getValue ( "/root/usge" ) == "prcp" ){
    //    var chngprcpvollst = model.instances(0).selectNodes( "/root/main/prcp/prcplist[tempcol22 !='' and (prcpclscd='A2' or prcpclscd='A4' or prcpclscd='A6')]" ); 
    //    if( chngprcpvollst != null && chngprcpvollst.length > 0 ) {
    //        fPrcpModal("SPMMO20900", 20, 50);
    //        if( getParameter ( "SPMMO20900_rtn1") != "Y" ) return false;
    //    }
    //}
    // 오류 체크시 체크 하도록 변경 2013.01.28 엄영만
    
    if( saveok != "Y"  ) { return false; }

    if (savekindflag != 1) { // 처방 저장전 체크 해야 할 것들           
        if (!fPrcpSaveChkBf(prcpchkflag)) return false; 
    }
    
    // 저장구분정보(saveFlagInfo)
    ds_save_saveflaginfo.setColumn(0, "savedataflag", savedataflag );                                       // 저장자료구분 0:진단 및 처방, 1:진단, 2:처방, 4:처방임시저장, 6:진단 및 처방 임시저장, 7:진단임시저장
    ds_save_saveflaginfo.setColumn(0, "saveflag",     prcpgenrflag);                                        // 저장구분 O:외래, I:입원, E:응급, S:건진
    ds_save_saveflaginfo.setColumn(0, "prcpflag",     prcpflag );                                           // 처방구분 0:의사처방, 2:간호, 3:지원부서, 5:Admission, 6:CP, 7:항암프로토콜, 8:임시처방
    ds_save_saveflaginfo.setColumn(0, "inptflag",     "0" );                                                // 입력구분 0:의사, 1:간호사(간호에서 사용), 3:지원부서
    ds_save_saveflaginfo.setColumn(0, "deptcd",       sysf_getUserInfo("dutplcecd"));                            // 부서코드
    ds_save_saveflaginfo.setColumn(0, "deptnm",       sysf_getUserInfo("dutplcenm"));                            // 부서명
    ds_save_saveflaginfo.setColumn(0, "userid",       sysf_getUserInfo("userid"));                               // 사용자ID
    ds_save_saveflaginfo.setColumn(0, "usernm",       sysf_getUserInfo("usernm"));                               // 사용자명
    ds_save_saveflaginfo.setColumn(0, "prcpdd",       ds_init.getColumn(0, "prcpdd"));    
    ds_save_saveflaginfo.setColumn(0, "divyn",        prcpchkflag );                                        // 용량분할 할건지
    ds_save_saveflaginfo.setColumn(0, "durappyn",     ds_initsrch_durappyn.getColumn(0, "trgtcd" ) ); // 2010.11.24 이선경 수정 : 경북대용 DUR flag값을 던져줘야 함
    ds_save_saveflaginfo.setColumn(0, "nonprgflag",   fCompareNonPrgDiag());
    
    // 현재 사용하지 않음 추후 삭제 검토 엄영만 2013.11.07
    ds_save_saveflaginfo.setColumn(0, "judgtrgtchkyn",       "N" ); //정밀 심사대상 약제(뇌대사개선제, 뇌혈류개선제, 뇌증상개선제) 체크 (2010.01.28 JJE)
    ds_save_saveflaginfo.setColumn(0, "idementiachk",        "" );  //by sonjy 20100420 / 치매약제(dementia drug) 복용 시 FF621601 검사 처방 ALERT 팝업 메시지 요청(외래, 신경과인 경우만 체크)
    ds_save_saveflaginfo.setColumn(0, "idementiachkcode",    "" );  //by sonjy 20100420 / 치매약제(dementia drug) 복용 시 FF621601 검사 처방 ALERT 팝업 메시지 요청(외래, 신경과인 경우만 체크)
    // 현재 사용하지 않음 추후 삭제 검토 엄영만 2013.11.07
    
    if ( savekindflag == 1 ) {
        ds_save_saveflaginfo.setColumn(0, "signyn", "N" );  // 임시저장
    } else {
        ds_save_saveflaginfo.setColumn(0, "signyn", signyn);        
    }
    
    if ( ds_root.getColumn(0, "addprcp" ) == "Y" ) {
        ds_save_saveflaginfo.setColumn(0, "pseuacptflag", !utlf_isNull(this.objects["ds_formerkey"]) ? ds_formerkey.getColumn(0, "pseuacptflag") : "");
        ds_save_saveflaginfo.setColumn(0, "admininfo",    ds_root.getColumn(0, "admininfo"));
    } else {
        ds_save_saveflaginfo.setColumn(0, "pseuacptflag", "N");
        ds_save_saveflaginfo.setColumn(0, "admininfo",    "NNNNNNNNNNNNNNNNNNNN");
    }
    
    ds_send_cond1.copyData(ds_save_saveflaginfo);

    //저장등록정보(saveRgstInfo)
    ds_send_cond2.copyData(ds_paminfo);
    
    //저장처방정보(savePrcpInfo)
      
    // 미완성 처방 저장 시, '-' 까지 함께 저장하려 하기때문에 I 만 저장하도록 분기 (2008.10.15 JJE) (s)
    if( ds_root.getColumn(0, "cp") != "Y" ){
        ds_send_cond3.copyData(ds_main_prcplist);
    }else{
        fClearSaveInstance();
        fAppendSaveNode( "ds_send_cond3", saveNode );
    }
    
    fAppendSaveNode( "ds_send_cond3", "ds_prcper_prcplist" );
    fAppendSaveNode( "ds_send_cond3", "ds_prcpdc_prcplist" );
    nPrcpCnt = ds_send_cond3.rowcount - 1;
    //청구후 d/c처방 여부 setting by sonjy 20081027 => 청구후 d/c일 경우 산정특례 및 법정전염병등의 처방저장 후 로직을 탈필요가 없음.
    var aftdclist = ds_prcpdc_prcplist.getCaseCount("tempcol21 == 'C'"); 
    if( aftdclist.length > 0 ) sAftDcYn = "Y";
    
    if ( prcpchkflag == "drugdc" ) { //약/주사 D/C 요청 중에 반납요청된 것은 D/C 처리한다.( 저장로직에서 사용 )
        ds_send_cond14.copyData(ds_prcpdc_prcplist); 
    }

    //setValue 후에 prcpdc 에 옮겨 놓은 prcplist를 클리어 한다.
    ds_prcpdc_prcplist.clearData();

    //저장진단정보(saveDiagInfo)
    nDiagCnt = ds_main_diagcdlist.rowcount - 1;
    ds_send_cond4.copyData(ds_main_diagcdlist);

    endStepDate   = new Date(); // 각 업부 종료후 시간
    step1Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 오류 체크전 처리 소요시간
    startStepDate = new Date(); // 각 업부 시작 시간
    //model.addlog("  SPEED CHECK END OF 처방가능체크(화면)");
    //model.addlog("  SPEED CHECK START OF 저장 데이터 생성(오류/사유)");
    
    if ( prcpgenrflag == "O"  ||  prcpgenrflag == "S"  ) { //건진일 경우 외래와 동일 처리 BY SONJY 2008-09-03
		dsf_setDefaultVal(ds_send_cond1, "divyn:N,pseuacptflag:N,admininfo:N,durappyn:N,nonprgflag:N");
		dsf_setDefaultVal(ds_send_cond2, "orddeptnm:-,orddrnm:-");
		dsf_setDefaultVal(ds_send_cond3, "prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,prcpdelivefact:-,clinccmtcnts:-,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrdayno:0,druglnkno:0,cvrtbfprcpgenrflag:-,cvrtbforddd:00000000,cvrtbfcretno:0,drgacptflag:-");
		dsf_setTypeFormat(ds_send_cond3, "prcpvol:FLOAT^prcpqty:FLOAT^prcptims:INT^prcpdayno:INT");
		
		// 화면과 비지니스단의 columnid가 달라 확인필요
		// ds_saveexecprcplist, ds_savediaglist, ds_savepamlist, ds_signprcplist, ds_signdiaglist, ds_savematrprcplist, ds_a, ds_screenResultList, ds_screenRenList
		// ds_dementiainfo, ds_bfjudgeprcplist, ds_antibioreq, ds_antibioprcp, ds_kdurchkinfo, ds_kdurchklist, ds_kdurchkrslt, ds_kdurcnclyn
		
		var oParam = {};
			oParam.id       = "TRMMO00103";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpSaveChk";
			oParam.inds     = "saveFlagInfo=ds_send_cond1 saveRgstInfo=ds_send_cond2 savePrcpInfo=ds_send_cond3 saveDiagInfo=ds_send_cond4";
			oParam.outds    = "ds_result_prcperrlist=prcperrlist ds_result_prcplist=prcplist ds_result_savedrprcplist=savedrprcplist ds_result_saveexecprcplist=saveexecprcplist ds_result_savediaglist=savediaglist ds_result_savepamlist=savepamlist ds_result_signprcplist=signprcplist ds_result_signdiaglist=signdiaglist ds_result_savetnmlist=savetnmlist ds_result_savecncrlist=savecncrlist ds_result_duplprcplist=duplprcplist ds_result_savematrprcplist=savematrprcplist ds_result_limprcplist=limprcplist ds_result_comduplprcplist=comduplprcplist ds_result_divinfo=divinfo ds_result_a=a ds_result_patientInfoList=patientInfoList ds_result_drugInofList=drugInofList ds_result_screenResultList=screenResultList ds_result_screenRenList=screenRenList ds_result_dementiainfo=dementiainfo ds_result_bfjudgeprcplist=bfjudgeprcplist ds_result_spclhdrugprcplist=spclhdrugprcplist ds_result_checkprcpresn=checkprcpresn ds_result_antibioreq=antibioreq ds_result_antibioprcp=antibioprcp ds_result_kdurchkinfo=kdurchkinfo ds_result_kdurchklist=kdurchklist ds_result_kdurchkrslt=kdurchkrslt ds_result_kdurcnclyn=kdurcnclyn ds_result_warnprcplist=warnprcplist ds_result_drgableprcplist=drgableprcplist ds_result_chemoprcplist=chemoprcplist ds_result_geneconsentlist=geneconsentlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO00103";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TRMMO00103") < 0) {
            if (ds_root.getColumn(0, "cp") != "Y" || savekindflag == 1 ) {    //조건추가(2008.09.01 JJE)
                ds_send_cond1.clearData();
				ds_send_cond2.clearData();
				ds_send_cond3.clearData();
				ds_send_cond4.clearData();
            }
            fClearSaveInstance();
            return false;
        }
        
        dsf_setDefaultVal(ds_result_prcplist, "prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrdayno:0,druglnkno:0,drgacptflag:-");
		dsf_setDefaultVal(ds_result_savedrprcplist, "hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,drgacptflag:-");
    } else {
		dsf_setDefaultVal(ds_send_cond1, "divyn:N,pseuacptflag:N,admininfo:N,durappyn:N,nonprgflag:N");
		dsf_setDefaultVal(ds_send_cond2, "orddeptnm:-,orddrnm:-,dschprcpyn:N");
		
		if(!utlf_isNull(ds_send_cond2.getColumnInfo("dschrgstacptchar")))
			ds_send_cond2.updateColID("dschrgstacptchar", "dschrgstacptcharid");
		
		dsf_setDefaultVal(ds_send_cond3, "prcpvol:0,prcpqty:0,prcpdelivefact:-,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrdayno:0,druglnkno:0,cvrtbfprcpgenrflag:-,cvrtbforddd:00000000,cvrtbfcretno:0,drgacptflag:-");
		dsf_setTypeFormat(ds_send_cond3, "prcpvol:FLOAT^prcpqty:FLOAT^prcptims:INT^prcpdayno:INT");
		
		var oParam = {};
			oParam.id       = "TRMMO00104";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpSaveChk";
			oParam.inds     = "saveFlagInfo=ds_send_cond1 saveRgstInfo=ds_send_cond2 savePrcpInfo=ds_send_cond3 saveDiagInfo=ds_send_cond4";
			oParam.outds    = "ds_result_prcperrlist=prcperrlist ds_result_prcplist=prcplist ds_result_savedrprcplist=savedrprcplist ds_result_saveexecprcplist=saveexecprcplist ds_result_savediaglist=savediaglist ds_result_savepamlist=savepamlist ds_result_signprcplist=signprcplist ds_result_signdiaglist=signdiaglist ds_result_savetnmlist=savetnmlist ds_result_savecncrlist=savecncrlist ds_result_duplprcplist=duplprcplist ds_result_savematrprcplist=savematrprcplist ds_result_dschflaginfo=dschflaginfo ds_result_dschpamlist=dschpamlist ds_result_dschdrprcplist=dschdrprcplist ds_result_dschexecprcplist=dschexecprcplist ds_result_dschmatrprcplist=dschmatrprcplist ds_result_limprcplist=limprcplist ds_result_divinfo=divinfo ds_result_a=a ds_result_patientInfoList=patientInfoList ds_result_drugInofList=drugInofList ds_result_screenResultList=screenResultList ds_result_screenRenList=screenRenList ds_result_saveetcchklist=saveetcchklist ds_result_dementiainfo=dementiainfo ds_result_bfjudgeprcplist=bfjudgeprcplist ds_result_amidschprcpinfo=amidschprcpinfo ds_result_checkprcpresn=checkprcpresn ds_result_antibioreq=antibioreq ds_result_antibioprcp=antibioprcp ds_result_kdurchkinfo=kdurchkinfo ds_result_kdurchklist=kdurchklist ds_result_kdurchkrslt=kdurchkrslt ds_result_kdurcnclyn=kdurcnclyn ds_result_warnprcplist=warnprcplist ds_result_drgableprcplist=drgableprcplist ds_result_chemoprcplist=chemoprcplist ds_result_geneconsentlist=geneconsentlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO00104";

		tranf_submit(oParam);
		
		if(!utlf_isNull(ds_send_cond2.getColumnInfo("dschrgstacptcharid")))
			ds_send_cond2.updateColID("dschrgstacptcharid", "dschrgstacptchar");
		
		if(arErrorCode.pop("TRMMO00104") < 0) {
            if (ds_root.getColumn(0, "cp") != "Y" || savekindflag == 1 ) {    //조건추가(2008.09.01 JJE)
                ds_send_cond1.clearData();
				ds_send_cond2.clearData();
				ds_send_cond3.clearData();
				ds_send_cond4.clearData();
            }
            fClearSaveInstance();
            return false;
        }
        
        dsf_setDefaultVal(ds_result_prcplist, "prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrdayno:0,druglnkno:0,drgacptflag:-");
        dsf_setDefaultVal(ds_result_savedrprcplist, "hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,drgacptflag:-");
        dsf_setDefaultVal(ds_result_dschdrprcplist, "dschdr_hsctdelivepos:0,dschdr_hsctlnkno:0,dschdr_etcprcpflag:-,dschdr_drgacptflag:-");
    }
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step2Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 서버 오류 체크 소요시간
    startStepDate = new Date(); // 각 업부 시작 시간
    //model.addlog("  SPEED CHECK END OF 저장 데이터 생성(오류/사유)");
    //model.addlog("  SPEED CHECK START OF 저장 데이터 보정(오류/사유)");
    //model.addlog("      SPEED CHECK START OF 오류/사유 처리");
    
    //퇴원예고 되지 않은 사항에서 퇴원처방을 했을경우 퇴원예고 창을 띄움        
    if(ds_result_saveetcchklist.getColumn(0, "dschyn") == "Y"){
        sysf_messageBox ("퇴원예고를 해야만 퇴원 및 퇴원후외래,입원전검사(전일/당일) 처방을 저장할 수 있습니다." , "E" );
        preDsch();
        return false;
    }
    
    //DUR-S, 2009-10-01 차현철        
    // 저함량 용량분할의 경우 기존 것을 사용함으로 DUR을 뒤에 수행
    // 경북대용 DUR 적용시에는 저함량 용량분할 체크 후 DUR 로직체크 함
    // durappyn : "A-전체 DUR", "Y-저함량제외 DUR", "나머지-DUR 사용안함"  , "K:경북대용 DUR"
    if (ds_initsrch_durappyn.getColumn(0, "trgtcd") != "A" ) {         
        if ( ds_result_divinfo.getColumn(0, "divchkflag") == "N" ) {
             if ( ds_result_prcplist.rowcount > 0 ) { // 용량분할, 저함량
                if ( !utlf_isNull(ds_result_prcplist.getColumn(0, "prcpcd"))){
                    //by sonjy 20090714 변경요청서 처리 :  저함량 용량분할창 닫기버튼 삭제처리 
                    xpt = this.getOwnerFrame().position.x + 100;
					ypt = this.getOwnerFrame().position.y + 50;
					
					var objArg = new Object();
					objArg.arg_ds_main_prcplist = ds_result_prcplist;
					
					frmf_modal("SPADB62400", "SPADB62400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                        
                    fClearSaveInstance();
                }
                fPrcpSave_old( prcpflag, savekindflag, "", "N" ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
                return false;
            }
        } else if (ds_result_divinfo.getColumn(0, "divchkflag") == "A") {
            //20090420 마정민 수정 항암용량분할은 기존에는 서버에서 불할되어 바로 저장체크로직으로 갔지만 보험제한규정에 걸려서
            //다시저장할때 분할된 내용이 화면이 표시가 되지 않아 용량분할이 되지 않음.
            //항암용량분할도 화면에 표시하게 수정
            ds_main_prcplist.clearData();
            var srcNodeList = model.instances(0).selectNodes("/root/result/prcplist"); 
            var destNode = model.instances(0).selectSingleNode("/root/main/prcp");
        
            //용량분할시 서버체크로직에서 default="0" 으로 세팅하여 넘겨서 화면에 0 으로 조회되여 다시 ''로 초기화, 서버로직 수정은 추후검토, 2009-07-05. CHC   
            for (var i = 0; i < ds_result_prcplist.rowcount; i++) {
                if(ds_result_prcplist.getColumn(i, "status") == "S") {
                    ds_result_prcplist.setColumn(i, "prcpvol", "");
                    ds_result_prcplist.setColumn(i, "prcpqty", "");
                    ds_result_prcplist.setColumn(i, "prcptims", "");
                    ds_result_prcplist.setColumn(i, "prcpdayno", ""); 
                    break;    
                }   
            }          
        
            ds_main_prcplist.appendData(ds_result_prcplist, true);
            fPrcpSave_old( prcpflag, savekindflag, "", "N" ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
            return false;
        } 
    }
    
    if ( ds_result_prcperrlist.rowcount > 0 ) {
        if ( !utlf_isNull(ds_result_prcperrlist.getColumn(0, "prcpcd"))){            
            //20080928 마정민 수정 병용금기, 연령금기만 있을 경우에는 사유입력하면 처방 낼수 있도록 처리
            var flag = "";
            var errPrcpCd = "";
            var errRowNum = "";
            var errorCnt = 0;        
            var bfJudgErrorCnt = 0;     // 사전심사 관련 내용은 따로 처리하기 위해서 로직 추가
            var kdurCnt     = 0;// 2010-11-29 이선경 추가 : 경북대용 DUR 최대용량, 최대기간, 최대용량 저함량 사유입력후 처방저장 가능
            var kimbuCnt    = 0;// 2010-11-29 이선경 추가 : 경북대용 DUR 임부금기체크 후 경고 메시지후 처방저장 가능
            
            for ( var i = 0; i < ds_result_prcperrlist.rowcount; i++ ) {
                flag = ds_result_prcperrlist.getColumn(i, "flag" );
                if ( flag == "1" ) {
                    errorCnt++;
                } else if (flag == "9") { // 사전심사에 관련한 에러내용은 따로 처리한다.  2010. 10. 08  김영학
                    if ( prcpgenrflag == "O" ) {
                        //외래 사전심사인 경우 사전심사 팝업을 띄우고
                        bfJudgErrorCnt++;
                    }else{
                        //입원 사전심사인 경우 바로 비급여로 변경 (2010.12.30 JJE, 경북대 이은정선생님 요청)
                        errPrcpCd = ds_result_prcperrlist.getColumn(i, "prcpcd" );
                        errRowNum = ds_result_prcperrlist.getColumn(i, "errrow" );
                        var ChngInsuKindList = ds_result_savedrprcplist.getCaseCount("prcpcd == '" + errPrcpCd + "'");
                        if( ChngInsuKindList > 0 ){
                            for(var bfRow = 0; bfRow < ds_result_savedrprcplist.rowcount; bfRow++ ) {
								if(ds_result_savedrprcplist.getColumn(bfRow, "prcpcd") == errPrcpCd) {
									var chngPayFlagCd = "";
									if( errRowNum == "2" ) chngPayFlagCd = errRowNum; //일반
									else chngPayFlagCd = "1";                         //비급여
									ds_result_savedrprcplist.setColumn(bfRow, "payflagcd", chngPayFlagCd);
								}
                            }
                        }
                    }
                } else if (flag == "4") { // 2010-11-29 이선경 추가 : 경북대용 DUR 임부금기체크 후 경고 메시지띄우는 경우
                    kimbuCnt++;
                } else if (flag == "5") { // 2010-11-29 이선경 추가 : 경북대용 DUR 최대용량 사유입력후 처방저장 가능
                    kdurCnt++;
                } else if (flag == "6") { // 2010-11-29 이선경 추가 : 경북대용 DUR 최대기간 사유입력후 처방저장 가능
                    kdurCnt++;
                } else if (flag == "7") { // 2010-11-29 이선경 추가 : 경북대용 DUR 저함량 사유입력후 처방저장 가능
                    kdurCnt++;
                }
            }

			xpt = this.getOwnerFrame().position.x + 180;
			ypt = this.getOwnerFrame().position.y + 50;

            if ( errorCnt > 0 ) {
				dsf_createDs("ds_result_prcperrlist_clone");
				ds_result_prcperrlist_clone.copyData(ds_result_prcperrlist);
				
				var objArg = new Object();
				objArg.arg_ds_result_prcperrlist = ds_result_prcperrlist_clone;

				frmf_open("SPMMO00600", "SPMMO00600", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M"); //오류팝업
            } else {
                // 사전심사 요구창 팝업
                if ( bfJudgErrorCnt > 0) {
                    frmf_clearParameter("SPMMO21500_rntValue"); //parameter 초기화(2011.01.31 JJE)
					
					var objArg = new Object();
					objArg.arg_ds_result_saveflaginfo   = ds_result_saveflaginfo;
                    objArg.arg_ds_result_savedrprcplist = ds_result_savedrprcplist;
					objArg.arg_ds_result_prcperrlist = ds_result_prcperrlist;
					
					frmf_modal("SPMMO21500", "SPMMO21500", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M"); //오류팝업
                }
            }

            if ( errorCnt > 0 ) {
                var errrow = -1;                
                //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                var DcErrArray = new Array();
                var dcprcppkspec = "";
                var iDcRow = 0 ;
                //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30
                for ( var i = 0; i < ds_result_prcperrlist.rowcount; i++ ) {
                    if (ds_result_prcperrlist.getColumn(i, "flag") == "1") {
                        errrow = ds_result_prcperrlist.getColumn(i, "errrow");
                        errrow -= 1;
                        
                        //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                        dcprcppkspec = ds_result_prcperrlist.getColumn(i, "dcprcppkspec");
                        //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30
                        if ( !utlf_isNull(errrow) && errrow >= 0 && errrow < ds_main_prcplist.rowcount -1 ) {
                            ds_main_prcplist.setColumn(errrow, "tempcol9", "#ff6600");

                            //응급처방 할 수 없는 처방코드 수정
                            if(ds_main_prcplist.getColumn(errrow, "erprcpflag") == "Y"){
                                ds_main_prcplist.setColumn(errrow, "erprcpflag", 'N');
                                ds_main_prcplist.setColumn(errrow, "prcpnm", ds_main_prcplist.getColumn(errrow, "orgprcpnm"));
                                ds_main_prcplist.setColumn(errrow, "prcprefseq","0");
                            }
                        } else if ( !utlf_isNull(dcprcppkspec)   ){ //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                            DcErrArray[iDcRow] = dcprcppkspec ;
                            iDcRow ++; 
                        }
                        //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30
                    }
                }

                //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                if( iDcRow > 0 ){ 
                    if( div_all.Tab_prcp.tabindex == 1
                       && ds_root.getColumn(0, "bfinityn") ==  "Y" ){ 
                        div_all.Tab_prcp.tp_bfprcp.fSetErrDCRow(DcErrArray);
                    }
                }
                //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30

                fClearSaveInstance();
                ds_result_prcperrlist.clearData();
                return false;
            }  

            if ( bfJudgErrorCnt > 0 ) {    //  사전심사 관련 메시지 창이 떴을 경우 이벤트처리

                var bfRtnValue = frmf_getParameter("SPMMO21500_rntValue");
                if (bfRtnValue == "REQ") {
                    ds_result_prcperrlist.clearData();
                    var findRow = ds_main_prcplist.findRowExpr("status == 'I' || status == 'D' || status == 'U'");
                    if ( findRow == -1 || utlf_isNull(ds_main_prcplist.getColumn(findRow, "prcpcd"))) {
						findRow = ds_main_diagcdlist.findRowExpr("status == 'I' || status == 'D' || status == 'U'");
                        if (findRow == -1 || utlf_isNull(ds_main_diagcdlist.getColumn(findRow, "diagcd"))) {
                            sysf_messageBox ( "사전심사할 처방 및 진단이 없습니다.", "E" );
                            fClearSaveInstance();
                            return false;
                        }
                    }
                    if ( !fPrcpSave_old("0", "1")) {
                        ds_prcpdc_prcplist.clearData();
                    }
                    fClearSaveInstance();
                    return false;

                } else if (bfRtnValue == "chgPayFlag") {
                    ds_result_prcperrlist.clearData();
                    var savePrcpListLen = ds_main_prcplist.getCaseCount("status != 'S'");
                    var saveDiagListLen = ds_main_diagcdlist.getCaseCount("status != 'S' && status != '-'");
                    if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                        //fPrcpSave_old( "", "", "", "N"  );
                        fPrcpSave_old( prcpflag, savekindflag, "", "N"  );
                    }
                    return false;
                } else {
                    fClearSaveInstance();
                    ds_result_prcperrlist.clearData();
                    return false;
                }
            }
        }               
    }         
    
    //kimsj 수혈동의서 메세지    
    if ( !utlf_isNull(this.objects["ds_hidden_ocrbldyn"]) && ds_hidden_ocrbldyn.getColumn(0, "ocrmsgyn") == "Y" ) {
        var ocryndaymsg = ds_hidden_ocrbldyn.getColumn(0, "ocrynday" );
        sysf_messageBox("첫 수혈이거나 마지막 수혈시행일로부터 " + ocryndaymsg + "일 이상이 경과하였으니 \n  수혈동의서를 작성해주시기 바랍니다.", "E"); 
        ds_hidden_ocrbldyn.setColumn(0, "ocrmsgyn", "");
    }

    if (savekindflag != 1) { //임시저장이 아닐때
		for ( var i = 0; i < ds_result_antibioreq.rowcount; i++ ) {// 제한항생제 신청정보
			var sMsg = ds_result_antibioreq.getColumn(i, "msg");
			if ( sMsg != "" &&  sysf_messageBox ( sMsg, "Q" ) != "6") {
				fClearSaveInstance();
				ds_result_antibioreq.clearData();
				return false;
			}
		}

        var qestflagcnt = 0;
        if ( ds_result_limprcplist.rowcount > 0 ) { // 보험제한처방
            for ( var i = 0; i < ds_result_limprcplist.rowcount; i++ ) {
                if ( ds_result_limprcplist.getColumn(i, "qestflag") != "M" ) {
                    qestflagcnt++;
                }
            }
            if ( qestflagcnt == 0 && getRegistryPrcp ( "limprcp|" + utlf_getCurrentDate()) == "Y" ) {
            } else {
                if ( !utlf_isNull(ds_result_limprcplist.getColumn(0, "calcscorcd"))) {
					xpt = this.getOwnerFrame().position.x + 100;
					ypt = this.getOwnerFrame().position.y + 50;
					
                    var rowid = 0
                    for ( var k = 0; k < ds_result_limprcplist.rowcount; k++ ){
                        rowid = eval(ds_result_limprcplist.getColumn(k, "rowid"));
                        var displayprcpnm = rowid + ". " + ds_result_limprcplist.getColumn(k, "calcscorcd" ) +  "\n" + "[" + ds_result_limprcplist.getColumn(k, "prcpnm") + "]";
                        ds_result_limprcplist.setColumn(k, "displayprcpnm", displayprcpnm);
                    }
                    					
					var objArg = new Object();
					objArg.arg_ds_result_limprcplist = ds_result_limprcplist;
					
					frmf_modal("SPMMO00900", "SPMMO00900", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
					
					ds_result_limprcplist.clearData();
					
                    if ( frmf_getParameter ( "SPMMO00900_rtnyn" ) == "Y" ) {
                        frmf_clearParameter ( "SPMMO00900_rtnyn" );
                        var savePrcpListLen = ds_main_prcplist.getCaseCount("status != 'S'");
						var saveDiagListLen = ds_main_diagcdlist.getCaseCount("status != 'S' && status != '-'");
                        if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                            //fPrcpSave_old( "", "", "", "N"  );
                            fPrcpSave_old( prcpflag, savekindflag, "", "N"  );
                        }
                        return false;
                    } else if ( frmf_getParameter ( "SPMMO00900_rtnyn" ) == "C" ) {
                        //msg만 있는 것이라면 그냥 진행함
                    } else {
                        return false;
                    }
                } 
            }
            
        } // 보험제한처방끝    

        if ( ds_result_duplprcplist.rowcount > 0 ) {	//처방중복체크
            if ( !utlf_isNull(ds_result_duplprcplist.getColumn(0, "prcpnm"))){
                xpt = this.getOwnerFrame().position.x + 100;
				ypt = this.getOwnerFrame().position.y + 50;
				
                frmf_clearParameter ( "SPMMO14100_rtn1" )
                				
				var objArg = new Object();
				objArg.arg_ds_result_duplprcplist = ds_result_duplprcplist;
				
				frmf_modal("SPMMO14100", "SPMMO14100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
				
                if ( frmf_getParameter ( "SPMMO14100_rtn1" ) != "Y" ) {
					ds_result_duplprcplist.clearData();
                    return false;
                } 
            } 
        } 
        
        if ( ds_result_warnprcplist.rowcount > 0 ) { //주의요망 처방체크
            if ( !utlf_isNull(ds_result_warnprcplist.getColumn(0, "prcpnm"))){
                xpt = this.getOwnerFrame().position.x + 100;
				ypt = this.getOwnerFrame().position.y + 50;
				
                frmf_clearParameter ( "SPMMO14101_rtn1" );
				
				var objArg = new Object();
				objArg.arg_ds_result_warnprcplist = ds_result_warnprcplist;
				
				frmf_modal("SPMMO14101", "SPMMO14101", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
				
                if ( frmf_getParameter ( "SPMMO14101_rtn1" ) != "Y" ) {
                    ds_result_duplprcplist.clearData();
                    return false;
                } 
            } 
        }
        
        var pop_DrgAbleYn = "N"; // DRG적용 찹 팝업 여부
        if ( ds_result_drgableprcplist.rowcount > 0 ) { //DRG적용 처방체크
            if ( !utlf_isNull(ds_result_drgableprcplist.getColumn(0, "drgcheck"))) {
                pop_DrgAbleYn = ds_result_drgableprcplist.getColumn(0, "drgcheck");
            } 
        }

        //DUR - E   
        //향정신성 의약품 30일 이상 처방일 경우 처방 사유를 입력받도록 수정
        if ( ds_result_spclhdrugprcplist.rowcount > 0 ) { //처방중복체크(성분)
            if ( !utlf_isNull(ds_result_spclhdrugprcplist.getColumn(0, "prcpnm"))){
                xpt = this.getOwnerFrame().position.x + 100;
				ypt = this.getOwnerFrame().position.y + 50;
				
                frmf_clearParameter ( "SPMMO21800_rtn1" );
				
				var objArg = new Object();
				objArg.arg_ds_result_spclhdrugprcplist = ds_result_spclhdrugprcplist;
				
				frmf_modal("SPMMO21800", "SPMMO21800", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
				
                if ( frmf_getParameter ( "SPMMO21800_rtn1" ) != "Y" ) {
                    ds_result_spclhdrugprcplist.clearData();
                    return false;
                } 
            } 
        }
        
        //처방 사유 입력창 팝업 여부 (2011.12.28 엄영만)
        if ( ds_result_checkprcpresn.rowcount > 0 ) { // 처방사유 입력항목이 있을경우 팝업
            if ( !utlf_isNull(ds_result_checkprcpresn.getColumn(0, "prcpcd"))){
                xpt = this.getOwnerFrame().position.x + 100;
				ypt = this.getOwnerFrame().position.y + 50;
				
                frmf_clearParameter ( "SPMMO50100_rtn1" );
                				
				var objArg = new Object();
				objArg.arg_ds_result_checkprcpresn = ds_result_checkprcpresn;
				
				frmf_modal("SPMMO50100", "SPMMO50100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
				
                if ( frmf_getParameter ( "SPMMO50100_rtn1" ) != "Y" ) {
                    ds_result_checkprcpresn.clearData();
                    return false;
                } 
            } 
        }

        //급성심근경색 퇴원약 아스피린 및 베타차단체 처방 여부 (2011.09.16 엄영만)
        if ( ds_result_amidschprcpinfo.rowcount > 0 ) { //아스피린 및 베타차단체 처방 여부
            //급성심근경색 퇴원약 아스피린 미처방사유
            if (ds_result_amidschprcpinfo.getColumn(0, "asprinyn") == "N"){
                xpt = this.getOwnerFrame().position.x + 100;
				ypt = this.getOwnerFrame().position.y + 50;
                
                frmf_clearParameter ( "SPMMO21900_rtn1" );
                frmf_clearParameter ( "SPMMO21900_hardcdno" );
                frmf_clearParameter ( "SPMMO21900_title" );
                frmf_clearParameter ( "SPMMO21900_resncode" );
                frmf_clearParameter ( "SPMMO21900_resncmt" );
                
                frmf_setParameter("SPMMO21900_hardcdno", "311"); // 하드코드 311 급성심근경색 퇴원약 아스피린 미처방사유
                frmf_setParameter("SPMMO21900_title", "급성심근경색 퇴원약 아스피린 미처방사유");

                frmf_modal("SPMMO21900", "SPMMO21900", null, false, mon, xpt, ypt, null, null, null, null, null, "M");
                
                if ( frmf_getParameter ( "SPMMO21900_rtn1" ) != "Y" ) {
                    ds_result_amidschprcpinfo.clearData();
                    return false;
                }
                
                if(utlf_isNull(this.objects["ds_result_savesujinresn"])) {
					dsf_createDs("ds_result_savesujinresn");
					
					ds_result_savesujinresn.addColumn("resn_resndd", "string");
					ds_result_savesujinresn.addColumn("resn_pid", "string");
					ds_result_savesujinresn.addColumn("resn_orddd", "string");
					ds_result_savesujinresn.addColumn("resn_cretno", "string");
					ds_result_savesujinresn.addColumn("resn_orddeptcd", "string");
					ds_result_savesujinresn.addColumn("resn_ordtype", "string");
					ds_result_savesujinresn.addColumn("resn_prcpdd", "string");
					ds_result_savesujinresn.addColumn("resn_prcpno", "string");
					ds_result_savesujinresn.addColumn("resn_prcphistno", "string");
					ds_result_savesujinresn.addColumn("resn_resnflag", "string");
					ds_result_savesujinresn.addColumn("resn_resncd", "string");
					ds_result_savesujinresn.addColumn("resn_resncnts", "string");
                }
                
                var row = ds_result_savesujinresn.addRow();
                
                ds_result_savesujinresn.setColumn(row, "resn_resndd"    , ds_initsrchcond.getColumn(0, "prcpdd"));
                ds_result_savesujinresn.setColumn(row, "resn_pid"       , ds_initsrchcond.getColumn(0, "pid"));
                ds_result_savesujinresn.setColumn(row, "resn_orddd"     , ds_initsrchcond.getColumn(0, "orddd"));
                ds_result_savesujinresn.setColumn(row, "resn_cretno"    , ds_initsrchcond.getColumn(0, "cretno"));
                ds_result_savesujinresn.setColumn(row, "resn_orddeptcd" , ds_initsrchcond.getColumn(0, "orddeptcd"));
                ds_result_savesujinresn.setColumn(row, "resn_ordtype"   , ds_initsrchcond.getColumn(0, "ioflag"));
                ds_result_savesujinresn.setColumn(row, "resn_prcpdd"    , ds_initsrchcond.getColumn(0, "prcpdd"));
                ds_result_savesujinresn.setColumn(row, "resn_prcpno"    , "0");
                ds_result_savesujinresn.setColumn(row, "resn_prcphistno", "0");
                ds_result_savesujinresn.setColumn(row, "resn_resnflag"  , "005"); 
                ds_result_savesujinresn.setColumn(row, "resn_resncd"    , frmf_getParameter("SPMMO21900_resncode"));
                ds_result_savesujinresn.setColumn(row, "resn_resncnts"  , frmf_getParameter("SPMMO21900_resncmt"));
            }
            
            //급성심근경색 퇴원약 베타차단제 미처방사유
            if (ds_result_amidschprcpinfo.getColumn(0, "antibetayn") == "N"){
                xpt = this.getOwnerFrame().position.x + 100;
				ypt = this.getOwnerFrame().position.y + 50;
                
                frmf_clearParameter ( "SPMMO21900_rtn1" );
                frmf_clearParameter ( "SPMMO21900_hardcdno" );
                frmf_clearParameter ( "SPMMO21900_title" );
                frmf_clearParameter ( "SPMMO21900_resncode" );
                frmf_clearParameter ( "SPMMO21900_resncmt" );
                
                frmf_setParameter("SPMMO21900_hardcdno", "312"); // 하드코드 312 급성심근경색 퇴원약 베타차단제 미처방사유
                frmf_setParameter("SPMMO21900_title", "급성심근경색 퇴원약 베타차단제 미처방사유");

                frmf_modal("SPMMO21900", "SPMMO21900", null, false, mon, xpt, ypt, null, null, null, null, null, "M");
                
                if ( frmf_getParameter ( "SPMMO21900_rtn1" ) != "Y" ) {
                    ds_result_amidschprcpinfo.clearData();
                    return false;
                }
                
                if(utlf_isNull(this.objects["ds_result_savesujinresn"])) {
					dsf_createDs("ds_result_savesujinresn");
					
					ds_result_savesujinresn.addColumn("resn_resndd", "string");
					ds_result_savesujinresn.addColumn("resn_pid", "string");
					ds_result_savesujinresn.addColumn("resn_orddd", "string");
					ds_result_savesujinresn.addColumn("resn_cretno", "string");
					ds_result_savesujinresn.addColumn("resn_orddeptcd", "string");
					ds_result_savesujinresn.addColumn("resn_ordtype", "string");
					ds_result_savesujinresn.addColumn("resn_prcpdd", "string");
					ds_result_savesujinresn.addColumn("resn_prcpno", "string");
					ds_result_savesujinresn.addColumn("resn_prcphistno", "string");
					ds_result_savesujinresn.addColumn("resn_resnflag", "string");
					ds_result_savesujinresn.addColumn("resn_resncd", "string");
					ds_result_savesujinresn.addColumn("resn_resncnts", "string");
                }
                
                var row = ds_result_savesujinresn.addRow();
                
                ds_result_savesujinresn.setColumn(row, "resn_resndd"    , ds_initsrchcond.getColumn(0, "prcpdd"));
                ds_result_savesujinresn.setColumn(row, "resn_pid"       , ds_initsrchcond.getColumn(0, "pid"));
                ds_result_savesujinresn.setColumn(row, "resn_orddd"     , ds_initsrchcond.getColumn(0, "orddd"));
                ds_result_savesujinresn.setColumn(row, "resn_cretno"    , ds_initsrchcond.getColumn(0, "cretno"));
                ds_result_savesujinresn.setColumn(row, "resn_orddeptcd" , ds_initsrchcond.getColumn(0, "orddeptcd"));
                ds_result_savesujinresn.setColumn(row, "resn_ordtype"   , ds_initsrchcond.getColumn(0, "ioflag"));
                ds_result_savesujinresn.setColumn(row, "resn_prcpdd"    , ds_initsrchcond.getColumn(0, "prcpdd"));
                ds_result_savesujinresn.setColumn(row, "resn_prcpno"    , "0");
                ds_result_savesujinresn.setColumn(row, "resn_prcphistno", "0");
                ds_result_savesujinresn.setColumn(row, "resn_resnflag"  , "006");
                ds_result_savesujinresn.setColumn(row, "resn_resncd"    , frmf_getParameter("SPMMO21900_resncode"));
                ds_result_savesujinresn.setColumn(row, "resn_resncnts"  , frmf_getParameter("SPMMO21900_resncmt"));
            }
        }
        
        //병기분류
        if ( !utlf_isNull(ds_result_savetnmlist.getColumn(0, "pid" )) || !utlf_isNull(ds_result_savecncrlist.getColumn(0, "pid"))) { 
			xpt = this.getOwnerFrame().position.x + 300;
			ypt = this.getOwnerFrame().position.y;
            
            frmf_clearParameter ( "SPMMO08400_rtn1" );
			
			var objArg = new Object();
			objArg.arg_ds_result_savetnmlist  = ds_result_savetnmlist;
			objArg.arg_ds_result_savecncrlist = ds_result_savecncrlist;
			
			frmf_modal("SPMMO08400", "SPMMO08400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
			
            if ( frmf_getParameter ( "SPMMO08400_rtn1" ) != "Y" ){
                return false;
            }
        }
        
        // 항암제 상세정보 입력 2013.08.13 엄영만
        if ( ds_result_chemoprcplist.rowcount > 0 ) { //항암제 상세정보 입력
            xpt = this.getOwnerFrame().position.x + 100;
			ypt = this.getOwnerFrame().position.y + 50;
            
            for ( var i = 0; i < ds_result_chemoprcplist.rowcount; i++ ) {
                frmf_clearParameter ( "SPMMO23000_rtn1" );
                
                dsf_createDs("ds_result_chemoprcplist_clone");
                dsf_copyColInfo(ds_result_chemoprcplist_clone, ds_result_chemoprcplist);                
				ds_result_chemoprcplist_clone.copyRow(0, ds_result_chemoprcplist, i);
				
				var objArg = new Object();
				objArg.arg_ds_main_chemoinfo = ds_result_chemoprcplist_clone;
				
				frmf_modal("SPMMO23000", "SPMMO23000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
				
				dsf_deleteDs("ds_result_chemoprcplist_clone");
				
                if ( frmf_getParameter ( "SPMMO23000_rtn1" ) != "Y" ){
                    return false;
                }
            }
        }

        /*
        // 20100108 한재상 - 유전자검사 동의서 출력방식 변경 (OCR -> REX)
        var atadPrcpNodes =  instance1.selectNodes("/root/result/savedrprcplist[tempcol13='A' and status='I']");
        model.removeNodeSet("/root/hidden/atadinfo");
        model.removeNodeSet("/root/hidden/geneunitlist");

        if( atadPrcpNodes.length > 0 ) {
            model.makeValue("/root/hidden/atadinfo", "");
            for(var m=0; m < atadPrcpNodes.length; m++ ){ 
                var node = atadPrcpNodes.item(m);
                var atadNode = node.selectSingleNode("tempcol14");
                var atadNodeArray = atadNode.text.split("▦");

                model.makeValue("/root/init/atadinfo/row/instcd",   atadNodeArray[0]);
                model.makeValue("/root/init/atadinfo/row/prcpdd",   atadNodeArray[1]);
                model.makeValue("/root/init/atadinfo/row/prcpno",   atadNodeArray[2]);
                model.makeValue("/root/init/atadinfo/row/pid",      atadNodeArray[3]);
                model.makeValue("/root/init/atadinfo/row/orddd",    atadNodeArray[4]);
                model.makeValue("/root/init/atadinfo/row/cretno",   atadNodeArray[5]);
                model.makeValue("/root/init/atadinfo/row/patnm",    getPatientInfoDetail("hngnm") );

                //alert(atadNode+"  ##  "+atadNodeArray[7]);

                var gender = atadNodeArray[7].substr(6, 1);
                var regYY = parseInt(atadNodeArray[7].substr(0, 2));

                if(gender == '3' || gender == '4' || gender == '7' || gender == '8') {
                    regYY += 2000;
                } else if(gender == '0' || gender == '9') {
                    regYY += 1800;
                } else {
                    regYY += 1900;
                }
                model.makeValue("/root/init/atadinfo/row/rrgstno", regYY + atadNodeArray[7].substr(2, 5));
                model.makeValue("/root/init/atadinfo/row/drnm", getUserInfo("usernm") ); 

                gender = atadNodeArray[9].substr(6, 1);
                regYY = parseInt(atadNodeArray[9].substr(0, 2));

                if(gender == '3' || gender == '4' || gender == '7' || gender == '8') {
                    regYY += 2000;
                } else if(gender == '0' || gender == '9') {
                    regYY += 1800;
                } else {
                    regYY += 1900;
                }
                model.makeValue("/root/init/atadinfo/row/drbrthdd",         regYY + atadNodeArray[9].substr(2, 4));
                model.makeValue("/root/init/atadinfo/row/prcpcd",           atadNodeArray[10]);
                model.makeValue("/root/init/atadinfo/row/prcpnm",           atadNodeArray[11]);
                model.makeValue("/root/init/atadinfo/row/deptengabbr",      atadNodeArray[12]); 
                model.makeValue("/root/init/atadinfo/row/roomcd",           atadNodeArray[13]);
                model.makeValue("/root/init/atadinfo/row/prcpgenrflag",     atadNodeArray[14]);
                model.makeValue("/root/init/atadinfo/row/centcd",           model.getValue("/root/paminfo/list/centnm") );
                model.makeValue("/root/init/atadinfo/row/ocrtag",           atadNodeArray[16]);
                model.makeValue("/root/init/atadinfo/row/formcd",           atadNodeArray[17]);
                model.makeValue("/root/init/atadinfo/row/formfromdt",       atadNodeArray[18]);
                model.makeValue("/root/init/atadinfo/row/pagenum",          atadNodeArray[19]);
                //model.makeValue("/root/init/atadinfo/row/pagenum", "3");
                model.makeValue("/root/init/atadinfo/row/execprcpuniqno",   atadNodeArray[20]);
                model.makeValue("/root/init/atadinfo/row/pattelno",         atadNodeArray[21]);
                model.makeValue("/root/init/atadinfo/row/pataddr",          atadNodeArray[22]);
                model.makeValue("/root/init/atadinfo/row/patsex",           atadNodeArray[23]);
                model.makeValue("/root/init/atadinfo/row/instnm",           atadNodeArray[24]);
                model.makeValue("/root/init/atadinfo/row/insttelno",        atadNodeArray[25]);

                copyNodeType("/root/hidden/atadinfo", "/root/init/atadinfo", "after");
            }
            modal("SPMMO21000", "", "", "", "", "/root/hidden/atadinfo", "/root/main/prcplist");

            var atadInfoNodes =  instance1.selectNodes("/root/hidden/geneunitlist");
            if( atadInfoNodes.length > 0 ) { }
            else return false;

        }
        */

        // 20130911 김영기 - 유전자검사 동의서 및 인체 유래물 동의서 수정 (둘중 하나를 선택을 위한)
        var atadPrcpNodes = ds_result_savedrprcplist.getCaseCount("tempcol13 == 'A' && status == 'I')");
        var sCopyAtadNode = "ds_hidden_atadinfo";
        var sCopyGeneNode = "ds_hidden_geneinfo";

        var sFormcd = "";
        
        dsf_deleteDs(sCopyAtadNode);
        dsf_deleteDs(sCopyGeneNode);        
        dsf_deleteDs("ds_hidden_geneunitlist");   // 인체유래물 동의서 출력물 노드 초기화
        dsf_deleteDs("ds_hidden_geneunitlist2");  // 유전자 검사 동의서 출력물 노드 초기화
        
        if( atadPrcpNodes > 0 ) {
            dsf_createDs(sCopyAtadNode);
            dsf_createDs(sCopyGeneNode);

            var nGeneConsentCount = ds_result_geneconsentlist.rowcount;
            
            for(var m = 0; m < nGeneConsentCount; m++ ){                 
                sFormcd = ds_result_geneconsentlist.getColumn(m, "formcd");

                // 유전자 동의서 : 1300014609 , 인체유래물 동의서 :  1000007185    
                var oDsSet;
                if(sFormcd == "1300014609"){
                    oDsSet = this.objects[sCopyGeneNode];
                }else{
                    oDsSet = this.objects[sCopyAtadNode];
                }
                
                oDsSet.addColumn("instcd", "string");
                oDsSet.addColumn("prcpdd", "string");
                oDsSet.addColumn("prcpno", "string");
                oDsSet.addColumn("pid", "string");
                oDsSet.addColumn("orddd", "string");
                oDsSet.addColumn("cretno", "string");
                oDsSet.addColumn("patnm", "string");
                oDsSet.addColumn("rrgstno", "string");
                oDsSet.addColumn("drnm", "string");
                oDsSet.addColumn("prcpcd", "string");
                oDsSet.addColumn("prcpnm", "string");
                oDsSet.addColumn("deptengabbr", "string");
                oDsSet.addColumn("roomcd", "string");
                oDsSet.addColumn("prcpgenrflag", "string");
                oDsSet.addColumn("centcd", "string");
                oDsSet.addColumn("ocrtag", "string");
                oDsSet.addColumn("formcd", "string");
                oDsSet.addColumn("formfromdt", "string");
                oDsSet.addColumn("pagenum", "string");
                oDsSet.addColumn("execprcpuniqno", "string");
                oDsSet.addColumn("pattelno", "string");
                oDsSet.addColumn("pataddr", "string");
                oDsSet.addColumn("patsex", "string");
                oDsSet.addColumn("instnm", "string");
                oDsSet.addColumn("insttelno", "string");
                
                var row = oDsSet.addRow();
                
                oDsSet.setColumn(row, "instcd",   ds_result_geneconsentlist.getColumn(m, "instcd"));
                oDsSet.setColumn(row, "prcpdd",   ds_result_geneconsentlist.getColumn(m, "prcpdd"));
                oDsSet.setColumn(row, "prcpno",   ds_result_geneconsentlist.getColumn(m, "prcpno"));
                oDsSet.setColumn(row, "pid",      ds_result_geneconsentlist.getColumn(m, "pid"));
                oDsSet.setColumn(row, "orddd",    ds_result_geneconsentlist.getColumn(m, "orddd"));
                oDsSet.setColumn(row, "cretno",   ds_result_geneconsentlist.getColumn(m, "cretno"));
                oDsSet.setColumn(row, "patnm",    getPatientInfoDetail("hngnm") );

                //alert(atadNode+"  ##  "+atadNodeArray[7]);
                var rrgstno = ds_result_geneconsentlist.getColumn(m, "rrgstno");
                var gender = rrgstno.substr(6, 1);
                var regYY = parseInt(rrgstno.substr(0, 2));

                if(gender == '3' || gender == '4' || gender == '7' || gender == '8') {
                    regYY += 2000;
                } else if(gender == '0' || gender == '9') {
                    regYY += 1800;
                } else {
                    regYY += 1900;
                }
                
                oDsSet.setColumn(row, "rrgstno",          regYY + rrgstno.substr(2, 5));
                oDsSet.setColumn(row, "drnm",             sysf_getUserInfo("usernm") ); 
                oDsSet.setColumn(row, "prcpcd",           ds_result_geneconsentlist.getColumn(m, "prcpcd"));
                oDsSet.setColumn(row, "prcpnm",           ds_result_geneconsentlist.getColumn(m, "prcpnm"));
                oDsSet.setColumn(row, "deptengabbr",      ds_result_geneconsentlist.getColumn(m, "deptengabbr")); 
                oDsSet.setColumn(row, "roomcd",           ds_result_geneconsentlist.getColumn(m, "roomcd"));
                oDsSet.setColumn(row, "prcpgenrflag",     ds_result_geneconsentlist.getColumn(m, "saveflag"));
                oDsSet.setColumn(row, "centcd",           ds_paminfo.getColumn(0, "centnm"));
                oDsSet.setColumn(row, "ocrtag",           ds_result_geneconsentlist.getColumn(m, "seq"));
                oDsSet.setColumn(row, "formcd",           ds_result_geneconsentlist.getColumn(m, "formcd"));
                oDsSet.setColumn(row, "formfromdt",       ds_result_geneconsentlist.getColumn(m, "formfromdt"));
                oDsSet.setColumn(row, "pagenum",          ds_result_geneconsentlist.getColumn(m, "pagenum"));
                //model.makeValue("/root/init/atadinfo/row/pagenum", "3");
                oDsSet.setColumn(row, "execprcpuniqno",   ds_result_geneconsentlist.getColumn(m, "execprcpuniqno"));
                oDsSet.setColumn(row, "pattelno",         ds_result_geneconsentlist.getColumn(m, "pattelno"));
                oDsSet.setColumn(row, "pataddr",          ds_result_geneconsentlist.getColumn(m, "pataddr"));
                oDsSet.setColumn(row, "patsex",           ds_result_geneconsentlist.getColumn(m, "patsex"));
                oDsSet.setColumn(row, "instnm",           ds_result_geneconsentlist.getColumn(m, "instnm"));
                oDsSet.setColumn(row, "insttelno",        ds_result_geneconsentlist.getColumn(m, "insttelno"));
                
                //copyNodeType("/root/hidden/atadinfo", "/root/init/atadinfo", "after");
            }
            //modal("SPMMO21000", "", "", "", "", "/root/hidden/atadinfo", "/root/main/prcplist");
            
            var objArg = new Object();
			objArg.arg_ds_main_prcplist = oDsSet;

            if(this.objects[sCopyGeneNode].rowcount > 0){
				frmf_modal("SPMMO21001", "SPMMO21001", objArg, null, null, null, null, null, null, null, null, null, "M");   // 유전자 동의서
            }

            if(this.objects[sCopyAtadNode].rowcount > 0){
				frmf_modal("SPMMO21000", "SPMMO21000", objArg, null, null, null, null, null, null, null, null, null, "M");   // 인체 유래물 동의서
            }
            
            var atadInfoNodes = this.objects["ds_hidden_geneunitlist"];  // 인체 유래물 동의서 서식 데이터
            var geneInfoNodes = this.objects["ds_hidden_geneunitlist2"]; // 유전자 동의서 서식 데이터
            if( (utlf_isNull(atadInfoNodes) || atadInfoNodes.rowcount <= 0)  && (utlf_isNull(geneInfoNodes) || geneInfoNodes.rowcount <= 0)) { return false; }
            //else return false;

        }
    }
    //20080620 마정민 수정 마감후 반환 체크 및 사유 입력
    fEndAftDC();
    fClearSaveInstance();
    
    //model.addlog("      SPEED CHECK END OF 오류/사유 처리");
    //model.addlog("      SPEED CHECK START OF DUR처리(처방전내)");
    
    //2011-12-19 mjm 경북대 새로운 DUR 적용
    if( ds_initsrch_durappyn.getColumn(0, "trgtcd") == "K" && lf_getHardCDList("Y", 404, 3) == "Y" ) { //20111219 구DUR 적용 ( HARDCDNO => 404 )
        
        //2010-11-29 이선경 추가 : 경북대용 DUR 최대용량, 최대기간, 최대용량 저함량 사유입력후 처방저장 가능
        if( kdurCnt > 0 ) {
            frmf_clearParameter ( "SPMMO16101_rtn1" );
            frmf_clearParameter ( "SPMMO16101_rtn2" );
            			
			var objArg = new Object();
			objArg.arg_ds_result_prcperrlist = ds_result_prcperrlist;
			
			frmf_modal("SPMMO16101", "SPMMO16101", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");

            if ( frmf_getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                for (var i = 0; i < ds_main_prcplist.rowcount; i++) {
                    ds_main_prcplist.setColumn(i, "tempcol19", "");
                }
                return false;
            } else {
                if ( frmf_getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                    fPrcpSave_old( prcpflag, savekindflag, "", "N" );
                    return false;
                }
            }
        }
        
        //2010-11-29 이선경 추가 : 경북대용 DUR 임부금기 체크중 falg값이 4인 경우 경고메시지 띄우고 처방저장 가능
        if( kimbuCnt > 0 ) {
            var flag      = "";
            var prcpcd    = "";
            var prcpnm    = "";
            var prcperr   = "";
            var sAlertMsg = "";

            for(var j = 0; j < ds_result_prcperrlist.rowcount; j++) {
                flag = ds_result_prcperrlist.getColumn(j, "flag");
                if(flag == "4") {
                    prcpcd  = ds_result_prcperrlist.getColumn(j, "prcpcd");
                    prcpnm  = ds_result_prcperrlist.getColumn(j, "prcpnm");
                    prcperr = ds_result_prcperrlist.getColumn(j, "prcperr");
                    
                    if(utlf_isNull(sAlertMsg)) {
                        sAlertMsg = "[의약품 처방지원 서비스(DUR) 정보]\n  아래의 처방은 한번 더 확인 하시기 바랍니다.!";
                    }
                    
                    sAlertMsg = sAlertMsg + "\n\n" + prcpnm + "[" + prcpcd + "]" + "은(는) " + prcperr;
                    
                    var srcNodeList = ds_main_prcplist;
                    for (var i = 0; i < ds_main_prcplist.rowcount; i++) {
                        ds_main_prcplist.setColumn(i, "tempcol19", "");
                    }
                }
            }
            
            if (!utlf_isNull(sAlertMsg)) {
                sysf_messageBox(sAlertMsg, "I999");
            }
        }
    }
    
    //model.addlog("      SPEED CHECK END OF DUR처리(처방전내)");
    //model.addlog("      SPEED CHECK START OF 동의서출력");
    
    if ( savekindflag != 1 && signyn == "Y" ) {
        var signbfcnts = ds_result_signprcplist.getColumn(0, "signbfcnts");
        var setnode    = "ds_result_signprcplist";
        var signid     = sysf_getUserInfo ("userid");
        var signopt    = false;
        // 응급실환자중 하드코드에 등록되어 있는 과 의사가 로그인 후 처방을 낼 경우에는 인증저장을 한번만 하게 함.(외래와 동일하게 처리)
        var sPD = ds_securelimitdeptlist.lookup("hardcd", sysf_getUserInfo("dutplcecd"), "hardcd");
        if ( prcpgenrflag != "O" && !(prcpgenrflag == "E" && !utlf_isNull(sPD)) ) {
            signopt = true;
        }              

        // 입원 또는 응급일 경우                    // 20111201 knuh 최원돈
        // 기록/처방 직전 인증저장이 정해진 시간(분 단위, 하드코드 401) 이내이면 인증서를 띄우지 않음(1/2)
        // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js
        // 띄우지 않는 로직

        var ls_emrinptsavetime = lf_getHardCDList("Y", 401, 3);
        var ll_emrinptsavetime = ls_emrinptsavetime == "" ? 0 : parseInt(ls_emrinptsavetime) * -1; 
        if (   (   prcpgenrflag == "I"
                || prcpgenrflag == "E")
            && ll_emrinptsavetime < 0
            && sysf_getGlobalVariable("emrinptsavetime") >= utlf_getCurrentDateTime().toDate("YYYYMMDD hhmmss").getAddDate(ll_emrinptsavetime, "m").getDateFormat("YYYYMMDD hhmmss"))
        {
            signopt = false;
        }

        // setnode 정리 해야 함
        //처방인증
        var v_stext = lf_saveSign ( signbfcnts, signid, signopt, setnode );
        if ( v_stext != "N" ) {
            if (utlf_isNull( v_stext )) {
                return false;
            }

            fAppendSaveNode( "ds_send_cond2", "ds_result_signprcplist" ); //의사처방데이터
            signopt = false; //진단에서 또 안띄우기 위해서 false로 수정
        }

        signbfcnts = ds_result_signdiaglist.getColumn(0, "signbfcnts");
        setnode = "ds_result_signdiaglist";

        //진단인증
        v_stext = lf_saveSign ( signbfcnts, signid, signopt, setnode );
        if ( v_stext != "N") {
            if (utlf_isNull(v_stext)) {
                return false;
            }
            fAppendSaveNode( "ds_send_cond2", "ds_result_signdiaglist" ); //의사진단명데이터
        }
    }
    
    if (savekindflag != 1) {
        //JJE (CP는 당일+미래 모든처방 저장 종료 후 한꺼번에 출력) //CP 임시처방 저장시 수행하도록 수정(2008.10.20 JJE)
        if ( ds_root.getColumn(0, "cp") != "Y" ) {
            if (!utlf_isNull(ocrcalcscorcd)){ //OCR 자동출력 ocrcalcscorcd 값은 MMO001에 global로 선언. 값은 fPrcpSaveChkaft에서 체크한다.
                fOcrAutoPrint(ocrcalcscorcd);
                fSetOcrTagNum(); // 영상학과에서 OCR 확인을 위해 코드별 테그 셋팅 - 20081029 by MoonSH
                ocrcalcscorcd = "";
            }
        }

        /*
        // 20100108 한재상 - 유전자검사 동의서 출력방식 변경 (OCR -> REX)
        var atadInfoNodes =  instance1.selectNodes("/root/hidden/geneunitlist");
        if( atadPrcpNodes.length > 0 ) {
            if(submit("TXMMO21001")){
                exeReportPreview("RPMMO21001", "XMLSTR" , "/root/hidden/geneunitlist"  , ""   , "true" , "", "", "", "", "", "", "grp_report");
                fOcrAutoPrint(model.getValue("/root/init/atadinfo/row/prcpcd")+ "▦");
                var orddrid = ""
                if (model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") == "O" || model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") == "S" ) { 
                    orddrid = model.getValue("/root/paminfo/list/orddrid")
                } else {
                    orddrid = model.getValue("/root/paminfo/list/medispclid");
                }
                if( ! fSaveOCRIF(model.getValue("/root/hidden/atadinfo/row[1]/ocrtag")
                        , model.getValue("/root/hidden/atadinfo/row[1]/pid")
                        , model.getValue("/root/hidden/atadinfo/row[1]/orddd")
                        , model.getValue("/root/hidden/atadinfo/row[1]/cretno")
                        , model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag")
                        , model.getValue("/root/paminfo/list/orddeptcd")
                        , orddrid
                        , model.getValue("/root/hidden/atadinfo/row[1]/formcd")
                        , model.getValue("/root/hidden/atadinfo/row[1]/formfromdt")
                        , "", "", 1) ) {
                    messageBox("유전자검사동의서 IF 저장시 오류발생", "I");
                }
            }
        }
        */
        // 20130917 김영기 유전자 및 인체 유래물 동의서 출력을 위해 로직 수정
        var atadInfoNodes =  this.objects["ds_hidden_geneunitlist"];    // 인체 유래물 동의서 
        var geneInfoNodes =  this.objects["ds_hidden_geneunitlist2"];   // 유전자 동의서

        if( atadPrcpNodes > 0 ) {
            if(ds_hidden_gene2_savedata.rowcount > 0){  // 유전자 동의서 저장 데이터 노드 주소
				var ds_hidden_gene = this.objects["ds_hidden_gene_savedata"];
                 if(utlf_isNull(ds_hidden_gene) || ds_hidden_gene.rowcount <= 0){ // TXMMO21001 input 노드 주소
                    dsf_createDs("ds_hidden_gene_savedata");
                    dsf_copyColInfo(ds_hidden_gene_savedata, ds_hidden_gene2_savedata);
                }
				ds_hidden_gene_savedata.appendData(ds_hidden_gene2_savedata, true);
            }
            
            var oParam = {};
				oParam.id       = "TXMMO21001";
				oParam.service  = "prcpmngtapp.EtcPrcpMngt";
				oParam.method   = "reqExeSaveGeneInsptAgree";
				oParam.inds     = "savedata=ds_hidden_gene_savedata";
				oParam.outds    = "ds_result_saveinfo=saveinfo";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO21001";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO21001") > -1) { // 유전자 동의서 저장
                if(atadInfoNodes > 0){
					var objDOM = rptf_createDOM();														// DOM 객체 설정	
					rptf_setNodeListToDOM(objDOM, "/root/hidden/geneunitlist", ds_hidden_geneunitlist);	// 데이터셋 1
					
					var objParam = new Object();
					objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
					var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
					rptf_exeReportPreview30(["RPMMO21001"],[objParam], option);
					
                    fOcrAutoPrint(ds_init_atadinfo.getColumn(0, "prcpcd")+ "▦");
                    var orddrid = ""
                    if (ds_hidden_atadinfo.getColumn(0, "prcpgenrflag") == "O" || ds_hidden_atadinfo.getColumn(0, "/prcpgenrflag") == "S" ) { 
                        orddrid = ds_paminfo.getColumn(0, "orddrid")
                    } else {
                        orddrid = ds_paminfo.getColumn(0, "medispclid");
                    }
                    if( ! fSaveOCRIF(ds_hidden_atadinfo.getColumn(0, "ocrtag")
                            , ds_hidden_atadinfo.getColumn(0, "pid")
                            , ds_hidden_atadinfo.getColumn(0, "orddd")
                            , ds_hidden_atadinfo.getColumn(0, "cretno")
                            , ds_hidden_atadinfo.getColumn(0, "prcpgenrflag")
                            , ds_paminfo.getColumn(0, "orddeptcd")
                            , orddrid
                            , ds_hidden_atadinfo.getColumn(0, "formcd")
                            , ds_hidden_atadinfo.getColumn(0, "formfromdt")
                            , "", "", 1) ) {
                        sysf_messageBox("인체 유래물 기증 동의서 IF 저장시 오류발생", "I");
                    }
                }

                if(geneInfoNodes > 0){
					var objDOM = rptf_createDOM();														// DOM 객체 설정	
					rptf_setNodeListToDOM(objDOM, "/root/hidden/geneunitlist2", ds_hidden_geneunitlist2);	// 데이터셋 1
					
					var objParam = new Object();
					objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
					var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
					rptf_exeReportPreview30(["RPMMO21002"],[objParam], option);
					
                    fOcrAutoPrint(ds_init_geneinfo.getColumn(0, "prcpcd")+ "▦");
                    var orddrid = ""
                    if (ds_hidden_geneinfo.getColumn(0, "prcpgenrflag") == "O" || ds_hidden_geneinfo.getColumn(0, "prcpgenrflag") == "S" ) { 
                        orddrid = ds_paminfo.getColumn(0, "orddrid")
                    } else {
                        orddrid = ds_paminfo.getColumn(0, "medispclid");
                    }
                    if( ! fSaveOCRIF(ds_hidden_geneinfo.getColumn(0, "ocrtag")
                            , ds_hidden_geneinfo.getColumn(0, "pid")
                            , ds_hidden_geneinfo.getColumn(0, "orddd")
                            , ds_hidden_geneinfo.getColumn(0, "cretno")
                            , ds_hidden_geneinfo.getColumn(0, "prcpgenrflag")
                            , ds_paminfo.getColumn(0, "orddeptcd")
                            , orddrid
                            , ds_hidden_geneinfo.getColumn(0, "formcd")
                            , ds_hidden_geneinfo.getColumn(0, "formfromdt")
                            , "", "", 1) ) {
                        sysf_messageBox("유전자검사동의서 IF 저장시 오류발생", "I");
                    }
                }
            }

            dsf_deleteDs("ds_hidden_gene_savedata");
            dsf_deleteDs("ds_hidden_gene2_savedata");
        }

        //선택진료 동의서를 출력한다.
        // 2010. 12. 30 김영학 경북대 버젼 수정
        var returnVal = lf_getHardCDList("Y", 266, 3);
        if (returnVal == "Y" ) {
            fPrltPartSpclDrList();
        }
    }               

    //2011. 01. 09 인증저장전 환자의 진료예약여부를 확인한다. 
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
        // 외래 예약 창을 팝업 한다. 
        if (savekindflag == "0"  && ds_root.getColumn(0, "addprcp") != "Y"){
            var returnVal = lf_getHardCDList("Y", 269, 3);
            var prcpsavebtnflag = ds_init.getColumn(0, "prcpsavebtnflag");
            if ((returnVal == "N" || prcpsavebtnflag == "2") && ds_paminfo.getColumn(0, "ordtype") == "O" ) {
                var maxdayno = 0;
                for (var rowno = 0 ; rowno < ds_main_prcplist.rowcount; rowno++) {
                    var chkmaxdayno = ds_main_prcplist.getColumn(rowno, "maxdayno");
                    if (chkmaxdayno <=  maxdayno ) {
                        maxdayno = maxdayno;
                    } else {
                        maxdayno = chkmaxdayno;
                    }
                }
                var todd = (utlf_getCurrentDate().toDate()).getAddDate(maxdayno);
                
                frmf_setParameter("SMPMO00300_PARM1", ds_paminfo.getColumn(0, "orddeptcd")); //진료과코드
                frmf_setParameter("SMPMO00300_PARM2", orddrid); //진료의사코드
                frmf_setParameter("SMPMO00300_PARM3", ds_paminfo.getColumn(0, "pid")); //환자번호   
                frmf_setParameter("SMPMO00300_PARM4", todd); // 예약일자
                            
                lf_prcpModal ("SMPMO00300", 0, 80);
                frmf_clearParameter("SMPMO00300_PARM1");
                frmf_clearParameter("SMPMO00300_PARM2");
                frmf_clearParameter("SMPMO00300_PARM3");
                frmf_clearParameter("SMPMO00300_PARM4");
            }
        }
    }                                

    fAppendSaveNode( "ds_send_cond2", "ds_result_savedrprcplist" );   //의사처방데이터
    fAppendSaveNode( "ds_send_cond2", "ds_result_saveexecprcplist" ); //실시처방 저장데이터
    fAppendSaveNode( "ds_send_cond2", "ds_result_savediaglist" );     //진단저장 저장데이터
    fAppendSaveNode( "ds_send_cond2", "ds_result_savepamlist" );      //원무정보 저장데이터
    fAppendSaveNode( "ds_send_cond2", "ds_result_savematrprcplist" ); //재료처방정보 저장데이터
    fAppendSaveNode( "ds_send_cond2", "ds_result_savesujinresn" );    //수진별 처방사유 데이터 (2011.09.15 엄영만) 급성심근경색 환자 퇴원약(베타차단제,아스피린) 미발행 사유 입력을 위해 생성
    fAppendSaveNode( "ds_send_cond2", "ds_result_bfjudgeprcplist" );  //외래 사전심사 중 누적관련 처방 데이터 (2010.12.27 JJE)
    
    fAppendSaveNode( "ds_send_cond2", "ds_result_kdurchklist" );      //DUR 점검일반 전문(20120101 고시시행 11/11/24cys)
    fAppendSaveNode( "ds_send_cond2", "ds_result_kdurchkinfo" );      //DUR 점검약품 전문
    fAppendSaveNode( "ds_send_cond2", "ds_result_kdurchkrslt" );      //DUR 점검결과 전문
    fAppendSaveNode( "ds_send_cond2", "ds_result_kdurcnclyn" );       //DUR 취소전문
    
    if ( prcpgenrflag != "O" && prcpgenrflag != "S" ) {
        //퇴원후 외래처방 저장 setting
        fAppendSaveNode( "ds_send_cond2", "ds_result_dschflaginfo" );
        fAppendSaveNode( "ds_send_cond2", "ds_result_dschpamlist" );
        fAppendSaveNode( "ds_send_cond2", "ds_result_dschdrprcplist" );
        fAppendSaveNode( "ds_send_cond2", "ds_result_dschexecprcplist" );
        fAppendSaveNode( "ds_send_cond2", "ds_result_dschmatrprcplist" );
        
        //제한항생제 관련
        fAppendSaveNode( "ds_send_cond2", "ds_result_antibioreq" );       //제한항생제 신청정보 (2013.01.10 엄영만)
        fAppendSaveNode( "ds_send_cond2", "ds_result_antibioprcp" );      //제한항생제 처방정보 (2013.01.10 엄영만)
    }
    
    //20080909 시행부서처방
    if ( !utlf_isNull(this.objects["ds_formerkey"]) && ds_formerkey.getColumn(0, "pseuacptflag") == "Y" ) {
        ds_send_cond15.copyData(ds_formerkey);
    }
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step3Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 서버 오류 처리 소요시간
    startStepDate = new Date(); // 각 업부 시작 시간
    
    //model.addlog("      SPEED CHECK START OF 동의서출력");
    //model.addlog("  SPEED CHECK END OF 저장 데이터 보정(오류/사유)");
    //model.addlog("  SPEED CHECK START OF 데이터(처방/진단/기타) 저장");
    
    if ( ds_root.getColumn(0, "cp") == "Y" && savekindflag != 1 ) {
            //openLoadingBar("저장중입니다.");  //로딩메세지 open (미래처방 오류리스트 팝업처리로 인해 막음)
        if ( prcpgenrflag == "O" ) {
			dsf_setDefaultVal(ds_send_cond1, "pseuacptflag:N,admininfo:N");
			dsf_setDefaultVal(ds_result_savedrprcplist, "clinccmtcnts:-,hosinprcpresncd:00,prcpdelivefact:-,druglnkno:0,ermediscmngtresncd:-,dnorreqlnkno:0,subcretno:0,drgacptflag:-");
			dsf_setDefaultVal(ds_result_saveinvaliprcplist, "prcpdelivefact:-,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,anticncrprtlno:0,anticncrdayno:0,druglnkno:0,subcretno:0,drgacptflag:-");
			
			var oParam = {};
				oParam.id       = "TXMMP00804";
				oParam.service  = "prcpmngtapp.CPPrcpMngt";
				oParam.method   = "reqExeSavePrtcPrcp";
				oParam.inds     = "saveflaginfo=ds_send_cond1 savedrprcplist=ds_result_savedrprcplist saveexecprcplist=ds_result_saveexecprcplist savediaglist=ds_result_savediaglist savepamlist=ds_result_savepamlist signprcplist=ds_result_signprcplist signdiaglist=ds_result_signdiaglist savematrprcplist=ds_result_savematrprcplist saveinvaliprcplist=ds_result_saveinvaliprcplist req=ds_result_req steplist=ds_result_steplist delprcplist=ds_result_delprcplist dessprcplist=ds_result_dessprcplist pessprcplist=ds_result_pessprcplist";
				oParam.outds    = "ds_main_invalprcplist=prcplist";
				oParam.async    = false;
				oParam.callback = "cf_TXMMP00804";

			tranf_submit(oParam);
			
            SubmitTF_SMMMO00110 = (arErrorCode.pop("TXMMP00804") < 0) ? false : true;
            if ( !SubmitTF_SMMMO00110 ) {           //TXMMO00101
                fClearDatasets("O");
                return false;
            }
            
            dsf_setDefaultVal(ds_main_invalprcplist, "status:-,prcpvol:0,prcpqty:0,prcptims:0,prcpdayno:0,drugspd:0,nigtprcpflag:N,mealcalrcnts:0,mealprotcnts:0,prcprefseq:0,ordreqlnkno:0,testreqlnkno:0,prcplnkno:0,prtlno:0,inclprcpno:0,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,aftcertflag:-,aftcertdrid:-,prcpvalidd:00000000,specdrid:-,anticncrprtlno:0,anticncrdayno:0,druglnkno:0,drgacptflag:-");
        }else {
			var oParam = {};
				oParam.id       = "TXMMP00803";
				oParam.service  = "prcpmngtapp.CPPrcpMngt";
				oParam.method   = "reqExeSavePrtcPrcp";
				oParam.inds     = "saveflaginfo=ds_send_cond1 savedrprcplist=ds_result_savedrprcplist saveexecprcplist=ds_result_saveexecprcplist savediaglist=ds_result_savediaglist savepamlist=ds_result_savepamlist signprcplist=ds_result_signprcplist signdiaglist=ds_result_signdiaglist savematrprcplist=ds_result_savematrprcplist dschflaginfo=ds_result_dschflaginfo dschpamlist=ds_result_dschpamlist dschdrprcplist=ds_result_dschdrprcplist dschexecprcplist=ds_result_dschexecprcplist dschmatrprcplist=ds_result_dschmatrprcplist savePrcpInfo=ds_result_savePrcpInfo saveinvaliprcplist=ds_result_saveinvaliprcplist req=ds_result_req steplist=ds_result_steplist delprcplist=ds_result_delprcplist dessprcplist=ds_result_dessprcplist pessprcplist=ds_result_pessprcplist";
				oParam.outds    = "ds_main_invalprcplist=prcplist";
				oParam.async    = false;
				oParam.callback = "cf_TXMMP00803";

			tranf_submit(oParam);

            SubmitTF_SMMMO00110 = (arErrorCode.pop("TXMMP00803") < 0) ? false : true;
            if ( !SubmitTF_SMMMO00110 ) {           //TXMMO00103
				fClearDatasets();                
                return false;
            }
        }
    } else {
     // 20100412 퇴원처방 저장/DC 시 입퇴원요약지 기록 인터페이스 태우도록  by LYJ 
        if ( ds_init.getColumn(0, "setprcpyn") == "Y" ) {
            nodelistRecNode = ds_result_savedrprcplist.getCaseCount("prcpkindcd == 60");
        }
        
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
			var oParam = {};
				oParam.id       = "TXMMO00101";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeSavePrcp";
				oParam.inds     = "saveflaginfo=ds_send_cond1 savedrprcplist=ds_result_savedrprcplist saveexecprcplist=ds_result_saveexecprcplist savediaglist=ds_result_savediaglist savepamlist=ds_result_savepamlist signprcplist=ds_result_signprcplist signdiaglist=ds_result_signdiaglist savematrprcplist=ds_result_savematrprcplist copydiaginfo=ds_result_copydiaginfo savesujinresn=ds_result_savesujinresn bfjudgeprcplist=ds_result_bfjudgeprcplist kdurchkinfo=ds_result_kdurchkinfo kdurchklist=ds_result_kdurchklist kdurchkrslt=ds_result_kdurchkrslt kdurcnclyn=ds_result_kdurcnclyn";
				oParam.outds    = "ds_result1_prcperrlist=prcperrlist ds_result1_kdurchkrslt=kdurchkrslt";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO00101";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO00101") < 0) {
				fClearDatasets("O");
                
                ds_send_cond1.clearData();
                ds_send_cond2.clearData();
                ds_send_cond3.clearData();
                ds_send_cond4.clearData();
                ds_send_cond5.clearData();
                ds_send_cond14.clearData();
                ds_send_cond15.clearData();
                return false;
            }

            //심평원 처방전간 사유가 있으면 입력 20120101 고시          
            if (ds_result1_prcperrlist.rowcount > 0) {
                //사유팝업
                dsf_createDs("ds_result_kdurchkrslt");
				ds_result_kdurchkrslt.copyData(ds_result1_kdurchkrslt);
                
                for(var i = ds_result_kdurchkrslt.rowcount - 1; i >= 0; i--) {
					if(utlf_isNull(ds_result_kdurchkrslt.getColumn(i, "rslt_cmpt_cd")))
						ds_result_kdurchkrslt.deleteRow(i);
                }
                
                ds_result_kdurchkrslt.applyChange();

                //DUR 점검결과 전문
				dsf_createDs("ds_result_prcperrlist");                
				ds_result_prcperrlist.copyData(ds_result1_prcperrlist);
				
				for(var i = ds_result_prcperrlist.rowcount - 1; i >= 0; i--) {
					if(utlf_isNull(ds_result_prcperrlist.getColumn(i, "flag")))
						ds_result_prcperrlist.deleteRow(i);
				}
				
				ds_result_prcperrlist.applyChange();

                frmf_clearParameter ( "SPMMO16101_rtn1" );
                frmf_clearParameter ( "SPMMO16101_rtn2" );
                				
				var objArg = new Object();
				objArg.arg_ds_result_prcperrlist = ds_result1_prcperrlist;

				frmf_modal("SPMMO16101", "SPMMO16101", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
    
                if ( frmf_getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                    for (var i = 0; i < ds_main_prcplist.rowcount; i++) {
                        ds_main_prcplist.setColumn(i, "tempcol19" , "");
                    }
                    return false;
                } else {
                    if ( frmf_getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                        fPrcpSave_old( prcpflag, savekindflag, "", "N" );
                        return false;
                    }
                }
                
                ds_result1_prcperrlist.clearData();
                ds_result1_kdurchkrslt.clearData();
                
                ds_send_cond2.clearData();

                fAppendSaveNode( "ds_send_cond2", "ds_result_kdurchkrslt" );      //DUR 점검결과 전문
                fAppendSaveNode( "ds_send_cond2", "ds_result_kdurcnclyn" );       //DUR 취소전문
                
                dsf_setDefaultVal(ds_send_cond1, "pseuacptflag:N,admininfo:N");
                dsf_setDefaultVal(ds_result_savedrprcplist, "clinccmtcnts:-,hosinprcpresncd:00,prcpdelivefact:-,druglnkno:0,ermediscmngtresncd:-,dnorreqlnkno:0,subcretno:0,drgacptflag:-");
                
                var oParam = {};
					oParam.id       = "TXMMO00118";
					oParam.service  = "prcpmngtapp.PrcpMngt";
					oParam.method   = "reqExeSavePrcp2";
					oParam.inds     = "saveflaginfo=ds_send_cond1 savedrprcplist=ds_result_savedrprcplist saveexecprcplist=ds_result_saveexecprcplist savediaglist=ds_result_savediaglist savepamlist=ds_result_savepamlist signprcplist=ds_result_signprcplist signdiaglist=ds_result_signdiaglist savematrprcplist=ds_result_savematrprcplist copydiaginfo=ds_result_copydiaginfo savesujinresn=ds_result_savesujinresn bfjudgeprcplist=ds_result_bfjudgeprcplist kdurchkinfo=ds_result_kdurchkinfo kdurchklist=ds_result_kdurchklist kdurchkrslt=ds_result_kdurchkrslt kdurcnclyn=ds_result_durcnclyn";
					oParam.async    = false;
					oParam.callback = "cf_TXMMO00118";

				tranf_submit(oParam);
				
				if(arErrorCode.pop("TXMMO00118") < 0) {
					fClearDatasets("O");
					
					ds_send_cond1.clearData();
					ds_send_cond2.clearData();
					ds_send_cond3.clearData();
					ds_send_cond4.clearData();
					ds_send_cond5.clearData();
					ds_send_cond14.clearData();
					ds_send_cond15.clearData();
                    return false;
               }
            }
        } else {
			dsf_setDefaultVal(ds_send_cond1, "admininfo:N");
			dsf_setDefaultVal(ds_result_savedrprcplist, "clinccmtcnts:-,hosinprcpresncd:00,druglnkno:0,dnorreqlnkno:0,subcretno:0,drgacptflag:-");
			dsf_setDefaultVal(ds_result_dschdrprcplist, "hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,ermediscmngtresncd:-,drgacptflag:-");
			dsf_setDefaultVal(ds_result_savePrcpInfo, "hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,subcretno:0,drgacptflag:-");
			
			var oParam = {};
				oParam.id       = "TXMMO00103";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeSavePrcp";
				oParam.inds     = "saveflaginfo=ds_send_cond1 savedrprcplist=ds_result_savedrprcplist saveexecprcplist=ds_result_saveexecprcplist savediaglist=ds_result_savediaglist savepamlist=ds_result_savepamlist signprcplist=ds_result_signprcplist signdiaglist=ds_result_signdiaglist savematrprcplist=ds_result_savematrprcplist dschflaginfo=ds_result_dschflaginfo dschpamlist=ds_result_dschpamlist dschdrprcplist=ds_result_dschdrprcplist dschexecprcplist=ds_result_dschexecprcplist dschmatrprcplist=ds_result_dschmatrprcplist savePrcpInfo=ds_result_savePrcpInfo copydiaginfo=ds_result_copydiaginfo savesujinresn=ds_result_savesujinresn bfjudgeprcplist=ds_result_bfjudgeprcplist antibioreq=ds_result_antibioreq antibioprcp=ds_result_antibioprcp kdurchkinfo=ds_result_kdurchkinfo kdurchklist=ds_result_kdurchklist kdurchkrslt=ds_result_kdurchkrslt kdurcnclyn=ds_result_kdurcnclyn";
				oParam.outds    = "ds_result1_prcperrlist=prcperrlist ds_result1_kdurchkrslt=kdurchkrslt";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO00103";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO00103") < 0) {
                fClearDatasets();
				
                ds_send_cond1.clearData();
                ds_send_cond2.clearData();
                ds_send_cond3.clearData();
                ds_send_cond4.clearData();
                ds_send_cond5.clearData();
                ds_send_cond14.clearData();
                ds_send_cond15.clearData();
                return false;
            }
            //model.addlog("      SPEED CHECK START OF DUR처리(처방전간)");
        
            //심평원 처방전간 사유가 있으면 입력 20120101 고시          
            if (ds_result1_prcperrlist.rowcount > 0) {
    
                //사유팝업
                dsf_createDs("ds_result_kdurchkrslt");
				ds_result_kdurchkrslt.copyData(ds_result1_kdurchkrslt);
                
                for(var i = ds_result_kdurchkrslt.rowcount - 1; i >= 0; i--) {
					if(utlf_isNull(ds_result_kdurchkrslt.getColumn(i, "rslt_cmpt_cd")))
						ds_result_kdurchkrslt.deleteRow(i);
                }
                
                ds_result_kdurchkrslt.applyChange();

                //DUR 점검결과 전문
				dsf_createDs("ds_result_prcperrlist");                
				ds_result_prcperrlist.copyData(ds_result1_prcperrlist);
				
				for(var i = ds_result_prcperrlist.rowcount - 1; i >= 0; i--) {
					if(utlf_isNull(ds_result_prcperrlist.getColumn(i, "flag")))
						ds_result_prcperrlist.deleteRow(i);
				}
				
				ds_result_prcperrlist.applyChange();
    
                frmf_clearParameter ( "SPMMO16101_rtn1" );
                frmf_clearParameter ( "SPMMO16101_rtn2" );
                
                var objArg = new Object();
				objArg.arg_ds_result_prcperrlist = ds_result1_prcperrlist;

				frmf_modal("SPMMO16101", "SPMMO16101", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
    
                if ( frmf_getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                    for (var i = 0; i < ds_main_prcplist.rowcount; i++) {
                        ds_main_prcplist.setColumn(i, "tempcol19" , "");
                    }
                    return false;
                } else {
                    if ( frmf_getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                        fPrcpSave_old( prcpflag, savekindflag, "", "N" );
                        return false;
                    }
                }
                
                ds_result1_prcperrlist.clearData();
                ds_result1_kdurchkrslt.clearData();
                
                ds_send_cond2.clearData();

                fAppendSaveNode( "ds_send_cond2", "ds_result_kdurchkrslt" );      //DUR 점검결과 전문
                fAppendSaveNode( "ds_send_cond2", "ds_result_kdurcnclyn" );       //DUR 취소전문
                
                dsf_setDefaultVal(ds_send_cond1, "admininfo:N");
                dsf_setDefaultVal(ds_result_savedrprcplist, "clinccmtcnts:-,hosinprcpresncd:00,druglnkno:0,dnorreqlnkno:0,subcretno:0,drgacptflag:-");
                dsf_setDefaultVal(ds_result_dschdrprcplist, "hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,ermediscmngtresncd:-,drgacptflag:-");
                dsf_setDefaultVal(ds_result_savePrcpInfo, "hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,subcretno:0,drgacptflag:-", true);
                
                var oParam = {};
					oParam.id       = "TXMMO00119";
					oParam.service  = "prcpmngtapp.PrcpMngt";
					oParam.method   = "reqExeSavePrcp2";
					oParam.inds     = "saveflaginfo=ds_send_cond1 savedrprcplist=ds_result_savedrprcplist saveexecprcplist=ds_result_saveexecprcplist savediaglist=ds_result_savediaglist savepamlist=ds_result_savepamlist signprcplist=ds_result_signprcplist signdiaglist=ds_result_signdiaglist savematrprcplist=ds_result_savematrprcplist dschflaginfo=ds_result_dschflaginfo dschpamlist=ds_result_dschpamlist dschdrprcplist=ds_result_dschdrprcplist dschexecprcplist=ds_result_dschexecprcplist dschmatrprcplist=ds_result_dschmatrprcplist savePrcpInfo=ds_result_savePrcpInfo copydiaginfo=ds_result_copydiaginfo savesujinresn=ds_result_savesujinresn bfjudgeprcplist=ds_result_bfjudgeprcplist kdurchkinfo=ds_result_kdurchkinfo kdurchklist=ds_result_kdurchklist kdurchkrslt=ds_result_kdurchkrslt kdurcnclyn=ds_result_kdurcnclyn";
					oParam.async    = false;
					oParam.callback = "cf_TXMMO00119";

				tranf_submit(oParam);

                if(arErrorCode.pop("TXMMO00119") < 0) {
                    fClearDatasets();
				
					ds_send_cond1.clearData();
					ds_send_cond2.clearData();
					ds_send_cond3.clearData();
					ds_send_cond4.clearData();
					ds_send_cond5.clearData();
					ds_send_cond14.clearData();
					ds_send_cond15.clearData();
                    return false;
                }
            }
            //model.addlog("      SPEED CHECK END OF DUR처리(처방전간)");
        }
        
        appf_setPatientInfoDetailByKey("prcpsaveyn", pid+ "|" + ds_init.getColumn(0, "prcpobjsaveyn"));     // 처방이 저장된것을 상단에 올려준다.   
    }
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step4Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 서버 실제 저장 소요시간 
    startStepDate = new Date(); // 각 업부 시작 시간

    //model.addlog("  SPEED CHECK END OF 데이터(처방/진단/기타) 저장");
    //model.addlog("  SPEED CHECK START OF 저장 후 처리");
    //model.addlog("      SPEED CHECK START OF 산정특례 처리");

    var sChkMedicineConsultYn = lf_getHardCDList("Y", 315, 3); // 315 퇴원약 처방시 복약상담의뢰 자동팝업 사용 여부
    var pop_MedicineConsult = "N"; // 복약상담의뢰 창 팝업 여부 2011.10.24 엄영만 (칠곡 약제부 이석미 요청)
	if ( sChkMedicineConsultYn == "Y" && prcpflag == '0' && savekindflag == '0' ) {
		var findRow = ds_main_prcplist.findRowExpr("(prcpgenrflag == 'I' || prcpgenrflag == 'E') && (prcpkindcd == '60') && (prcpclscd == 'A2' || prcpclscd == 'A4' || prcpclscd = 'A6')");
		if( findRow != -1 && !utlf_isNull(ds_main_prcplist.getColumn(findRow, "prcpcd")) ){
			pop_MedicineConsult = "Y";
		}
    }

    if ( ds_result_savedrprcplist.rowcount > 0 ) {
        prcpsaveyn = "Y";
        
        //JJE 2008.09.08
        if(ds_root.getColumn(0, "cp") == "Y") prcpsaveyn_SMMMO00110 = "Y";
    }
    
    //20080910 마정민 수정. 시행부서처방은 산정특례 체크 안한다.
    if( ds_root.getColumn(0, "cp") == "Y" && ds_root.getColumn(0, "addprcp") != "Y" ){
        //JJE 조건추가 2008.09.08
        //인증저장인 경우, M-GPS의 적용 버튼 이벤트에서 (당일+미래처방 저장 처리가 모두 끝난 후) fGetPrcpSaveAftInfo()를 직접 호출하므로, 임시저장 때에만 여기에서 수행함.
        if( savekindflag == 1 ){
       		fGetPrcpSaveAftInfo ( prcpsaveyn ,"Y");
        }
        
    }else{
        if( savekindflag == 1 ) { 
            aftdcyn = "Y"; //임시저장일 경우 산정특례 및 법정전염병 타지 않도록....by sonjy 20081123
        }
       	fGetPrcpSaveAftInfo ( prcpsaveyn ,aftdcyn); //청구후 d/c가 아닐 경우만 타도록 parameter 추가 . by sonjy 20081027
    }
    
    
    //model.addlog("      SPEED CHECK END OF 산정특례 처리");
    //model.addlog("      SPEED CHECK START OF 가야할곳 출력");
    
    
    // 처방 저장후 환자 가셔야 할 곳을 출력한다.
    // 2011. 01. 05. 김영학
    // 외래 환자만 출력한다. 
    if (savekindflag == "0"  && ds_root.getColumn(0, "addprcp" ) != "Y"  && ds_root.getColumn(0, "cp") != "Y" 
        && (prcpgenrflag == "O" || prcpgenrflag == "S")){
        var returnVal = lf_getHardCDList("Y", 268, 3);
        var patgolistprtyn = ds_init.getColumn(0, "patgolistprtyn");
        if ((returnVal == "N" || patgolistprtyn == "Y") && ds_paminfo.getColumn(0, "ordtype") == "O") {
            fPrltPatTogoPlceList();
        }
    }

    //model.addlog("      SPEED CHECK END OF 가야할곳 출력");
    //model.addlog("      SPEED CHECK START OF 화면 재조회(상단/처방/대상자)");
    
    if (savekindflag != 1) {
        var prcpsaveyn = "N";
        if ( savedataflag == "0" || savedataflag == "2" ) {
            prcpsaveyn = "Y";
        }

        //수술중처방 마약집계호출
        if ( ds_init.getColumn(0, "drugbatch") == "Y" ) {
			var oParam = {};
				oParam.id       = "TXMMO00106";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeDrugBatch";
				oParam.inds     = "savedrprcplist=ds_send_cond3";
				oParam.async    = false;

			tranf_submit(oParam);
		}

		if ( sPrcpGenrFlag == "E" ) { //응급일 때 진료지원 예약모듈 호출
			var oParam = {};
				oParam.id       = "TXMMO00110";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeSetAutoRoomAssignIF";
				oParam.inds     = "savedrprcplist=ds_send_cond3";
				oParam.async    = false;

			tranf_submit(oParam);
		}
    }
    
    ds_main_prcplist.clearData();
    lf_appendChildPrcp("ds_reset_prcplist", "ds_main_prcplist", "main");
    
    fClearDatasets();
    ds_result1_prcperrlist.clearData();
	ds_result1_kdurchkrslt.clearData();
	
	ds_send_cond1.clearData();
	ds_send_cond2.clearData();
	ds_send_cond3.clearData();
	ds_send_cond4.clearData();
	ds_send_cond5.clearData();
	ds_send_cond14.clearData();
	ds_send_cond15.clearData();

    //추가처방화면이면
    if ( ds_root.getColumn(0, "addprcp" ) == "Y" ) {
        fAddPrcpInitConDone( "", "", "", "", "", "Y" , "" );
    } 

	var param;
    //ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
    //외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
    var operation = sysf_getGlobalVariable("operation"); //수술예약정보 set
    var ioflag = ds_paminfo.getColumn(0, "ioflag");
    if ( ioflag == "O" || ioflag == "S" )    {
        var pid = ds_paminfo.getColumn(0, "pid" );
        var orddd = ds_paminfo.getColumn(0, "orddd" );
        var cretno = ds_paminfo.getColumn(0, "cretno" );
        var instcd = ds_paminfo.getColumn(0, "instcd" );
        var acptseqno = ds_paminfo.getColumn(0, "acptseqno" );
        var orgorddd = ds_paminfo.getColumn(0, "orgorddd" );                    
        
        param = ioflag + "▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + acptseqno + "▦" + orgorddd;
    } else if( ioflag == "D" || ioflag == "I"){ //입원(DSC, 입원)
        var ioflag = "I";
        //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
        //외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
        var pid = ds_paminfo.getColumn(0, "pid" );
        var indd = ds_paminfo.getColumn(0, "indd" );
        var cretno = ds_paminfo.getColumn(0, "cretno" );
        var instcd = ds_paminfo.getColumn(0, "instcd" );                
        var prcpdd = ds_init.getColumn(0, "prcpdd" );
        //청구 후 D/C관련 추가 처리...prcpdd를 퇴원환자일 경우 퇴원일을 넘겨 준다. by sonjy 20081027 
        //그렇지 않을 경우 상단 정보 오류남.
        if(  ds_paminfo.getColumn(0, "indschacptstat" ) == "D" && 
             ds_paminfo.getColumn(0, "dschdd" ) != "99991231" &&
             !utlf_isNull(ds_paminfo.getColumn(0, "dschdd" ) ) ){
             prcpdd = ds_paminfo.getColumn(0, "dschdd" );
        }
        
        param = ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd;        
    } else if(ioflag == "E"){ //입원(E응급)
        var ioflag = "E";
        //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
        //외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
        var pid = ds_paminfo.getColumn(0, "pid" );
        var indd = ds_paminfo.getColumn(0, "indd" );
        var cretno = ds_paminfo.getColumn(0, "cretno" );
        var instcd = ds_paminfo.getColumn(0, "instcd" );                
        var prcpdd = ds_init.getColumn(0, "prcpdd" );
        
        //청구 후 D/C관련 추가 처리...prcpdd를 퇴원환자일 경우 퇴원일을 넘겨 준다. by sonjy 20081027 
        //그렇지 않을 경우 상단 정보 오류남.
        if(  ds_paminfo.getColumn(0, "indschacptstat" ) == "D" && 
             ds_paminfo.getColumn(0, "dschdd" ) != "99991231" &&
             !utlf_isNull(ds_paminfo.getColumn(0, "dschdd" ) ) ){
             prcpdd = ds_paminfo.getColumn(0, "dschdd" );
        }
        
        param = ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd;
    }

	var useyn;
    if ( ds_root.getColumn(0, "addprcp") != "Y" ){//&& prcpchkflag != "clickpatlist"  진료대상자리스트에서 선택되었을때는 메세지 띄우지 않는다. 20100317 LYJ
        useyn = appf_initPatientInfo(param);
    }
    
    //기존의 수술예약번호가 있는 경우에는 reset처리
    if( operation != "" ){
        sysf_setGlobalVariable("operation", operation);
    }
    
    if(useyn == "Y"){
        frmf_setParameter("SPMMO08900_rtn_useyn", "");

        if ( savedataflag != "2" ) {
       		fPatDiagSrch();
        }
        
        //JJE CP일 경우, 당일+미래처방 모두 저장 후 맨 마지막에 진료대상자를 조회한다 (2008.09.11)
        if ( ds_root.getColumn(0, "cp" ) == "Y" && savekindflag != 1 ){
            return true;
        }               
        
        fInitializeConDone("save");   
            
        fTempPrcp("save");
        
        //20080818 마정민 수정: 전처방 조회 저장후 바로 가져오는 걸로 수정
        //ivw_prcp3.window.javascript.fInitialize("init");
        if ( ds_root.getColumn(0, "cp") != "Y" && div_all.Tab_prcp.tabindex != 1) {
            div_all.Tab_prcp.tabindex = 1;
        }else if ( div_all.Tab_prcp.tabindex != 1 ) {
            div_all.Tab_prcp.tabindex = 1;
        }
        
        //20090327 마정민수정: 차상위 로직추가
        if ( ds_paminfo.getColumn(0, "scndyn" ) == "Y" && prcpgenrflag == "O" && savekindflag != 1 ) {
            fScndChk();
        }

        fInitializeScreen();
        
        //종속처방번호, 믹스번호, hsctlnkno 초기화
        ds_init.setColumn(0, "inclprcpno", 0 );
        ds_init.setColumn(0, "hsctlnkno", 0 );
        ds_init.setColumn(0, "prcpmixno", 0 );

        var ordPatObj = frmf_findPopup("SMMMO04100");
        if(!utlf_isNull(ordPatObj)){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
           ordPatObj.fPrcpCallPatList();
        }
        var ordMiniPatObj = frmf_findPopup("SPMMO04200");
        if(!utlf_isNull(ordMiniPatObj)){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
           ordMiniPatObj.fChkGetData();
        }
    }  
    
    // 20100412 퇴원처방 저장시 입퇴원요약지 기록 인터페이스 태우도록  by LYJ  20101102 위치변경
    if ( ds_initsrch_getoutprcpsave.getColumn(0, "trgtcd") == "Y" ) {
        if ( ds_paminfo.getColumn(0, "ioflag" ) == "I") {
            if( nodelistRecNode > 0 &&  ds_init.getColumn(0, "setprcpyn") == "Y" ) {
                var pid    = ds_paminfo.getColumn(0, "pid");
                var orddd  = ds_paminfo.getColumn(0, "indd");
                var cretno = ds_paminfo.getColumn(0, "cretno"); 
                var orddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
                
                // 추후 SPMMR07300.xjs 작업 되면 확인필요
                openAutoSaveForm_MMR073("DisChargeSummaryNote_ReDschOrd", pid, orddd, cretno, orddeptcd);
            }
        }
    }

    //model.addlog("      SPEED CHECK END OF 화면 재조회(상단/처방/대상자)");
    //model.addlog("  SPEED CHECK END OF 저장 후 처리");
    //model.addlog("SPEED CHECK END OF fPrcpSave()");           
        
    // 입원 또는 응급일 경우                    // 20111201 knuh 최원돈
    // 기록/처방 직전 인증저장이 정해진 시간(분 단위, 하드코드 401) 이내이면 인증서를 띄우지 않음(2/2)
    // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js
    // 인증저장된 시간을 저장.
    if ((prcpgenrflag == "I" || prcpgenrflag == "E") && savekindflag != 1 ) {
        sysf_setGlobalVariable("emrinptsavetime", utlf_getCurrentDateTime());
    }

    if(pop_MedicineConsult == "Y") {
        frmf_modal("SPADC62100", "SPADC62100", null, null, null, 200, 200, null, null, null, null, null, "M");
    }
    
    // DRG 정보화면 팝업. 2013.06.25
    if (pop_DrgAbleYn == "Y" && (prcpgenrflag == "I" || prcpgenrflag == "E" || prcpgenrflag == "D") && savekindflag == "0" ) {
    	var pid    = ds_paminfo.getColumn(0, "pid");
		var indd   = ds_paminfo.getColumn(0, "indd");
		var cretno = ds_paminfo.getColumn(0, "cretno"); 
	
		frmf_setParameter("pid",    pid);
		frmf_setParameter("indd",   indd);
		frmf_setParameter("cretno", cretno);
		
		frmf_modal("SPPIJ03201", "SPPIJ03201", null, null, null, 200, 200, null, null, null, null, null, "M");
	}
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step5Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 저장후 처리 소요 시간

    if(prcpflag == "0" && savekindflag == "0" && ds_root.getColumn(0, "addprcp" ) != "Y") {
        var pid       = ds_paminfo.getColumn(0, "pid");
        var cretno    = ds_paminfo.getColumn(0, "cretno"); 
        var orddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
        var orddd     = ""
        if(prcpgenrflag == "O" || prcpgenrflag == "S"){
            orddd     = ds_paminfo.getColumn(0, "orddd");
        } else {
            orddd     = ds_paminfo.getColumn(0, "indd");
        }
        
        // 속도체크를 위한 모니터링 로그 데이터 생성.
        reqSetMonitoringLog( "PrcpSave"         // type
                           , savedataflag       // item01 : 저장 데이터 유형  0:인증저장(진단+상병), 1:인증저장(진단), 2:인증저장(처방), 4:임시저장(처방), 5:임시저장DC(처방), 6:임시저장(진단+처방), 7:임시저장(진단)
                           , prcpgenrflag       // item02 : 진료유형 (O:외래, S:건강검진, I:입원, E:응급, D:일일수술,낮병동)
                           , "0"                // item03 : 입력구분 (코드정의서 M0034 참조) inptflag
                           , pid                // item04 : 등록번호
                           , orddd              // item05 : 진료(입원)일자
                           , cretno             // item06 : 생성번호
                           , orddeptcd          // item07 : 진료부서
                           , nPrcpCnt           // item08 : 처방갯수
                           , nDiagCnt           // item09 : 진단갯수
                           , (step1Elapsed + step2Elapsed + step3Elapsed + step4Elapsed + step5Elapsed) // item10 : 전체소요시간
                           , step1Elapsed       // item11 : 화면 오류체크 소요시간
                           , step2Elapsed       // item12 : 서버 오류체크 소요시간
                           , step3Elapsed       // item13 : 화면 오류처리 소요시간
                           , step4Elapsed       // item14 : 서버 저장처리 소요시간
                           , step5Elapsed       // item15 : 화면 저장후처리 소요시간
                           );
    }
    
    return true;
}

function cf_TRMMO00103(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TRMMO00104(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMP00804(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMP00803(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00101(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00118(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00103(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00119(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function fClearDatasets(ioflag) {
	if(ioflag == "O") {
		ds_result_prcperrlist.clearData();
		ds_result_prcplist.clearData();
		ds_result_savedrprcplist.clearData();
		ds_result_saveexecprcplist.clearData();
		ds_result_savediaglist.clearData();
		ds_result_savepamlist.clearData();
		ds_result_signprcplist.clearData();
		ds_result_signdiaglist.clearData();
		ds_result_savetnmlist.clearData();
		ds_result_savecncrlist.clearData();
		ds_result_duplprcplist.clearData();
		ds_result_savematrprcplist.clearData();
		ds_result_limprcplist.clearData();
		ds_result_comduplprcplist.clearData();
		ds_result_divinfo.clearData();
		ds_result_a.clearData();
		ds_result_patientInfoList.clearData();
		ds_result_drugInofList.clearData();
		ds_result_screenResultList.clearData();
		ds_result_screenRenList.clearData();
		ds_result_dementiainfo.clearData();
		ds_result_bfjudgeprcplist.clearData();
		ds_result_spclhdrugprcplist.clearData();
		ds_result_checkprcpresn.clearData();
		ds_result_antibioreq.clearData();
		ds_result_antibioprcp.clearData();
		ds_result_kdurchkinfo.clearData();
		ds_result_kdurchklist.clearData();
		ds_result_kdurchkrslt.clearData();
		ds_result_kdurcnclyn.clearData();
		ds_result_warnprcplist.clearData();
		ds_result_drgableprcplist.clearData();
		ds_result_chemoprcplist.clearData();
		ds_result_geneconsentlist.clearData();
	} else {
		ds_result_prcperrlist.clearData();
		ds_result_prcplist.clearData();
		ds_result_savedrprcplist.clearData();
		ds_result_saveexecprcplist.clearData();
		ds_result_savediaglist.clearData();
		ds_result_savepamlist.clearData();
		ds_result_signprcplist.clearData();
		ds_result_signdiaglist.clearData();
		ds_result_savetnmlist.clearData();
		ds_result_savecncrlist.clearData();
		ds_result_duplprcplist.clearData();
		ds_result_savematrprcplist.clearData();
		ds_result_dschflaginfo.clearData();
		ds_result_dschpamlist.clearData();
		ds_result_dschdrprcplist.clearData();
		ds_result_dschexecprcplist.clearData();
		ds_result_dschmatrprcplist.clearData();
		ds_result_limprcplist.clearData();
		ds_result_divinfo.clearData();
		ds_result_a.clearData();
		ds_result_patientInfoList.clearData();
		ds_result_drugInofList.clearData();
		ds_result_screenResultList.clearData();
		ds_result_screenRenList.clearData();
		ds_result_saveetcchklist.clearData();
		ds_result_dementiainfo.clearData();
		ds_result_bfjudgeprcplist.clearData();
		ds_result_amidschprcpinfo.clearData();
		ds_result_checkprcpresn.clearData();
		ds_result_antibioreq.clearData();
		ds_result_antibioprcp.clearData();
		ds_result_kdurchkinfo.clearData();
		ds_result_kdurchklist.clearData();
		ds_result_kdurchkrslt.clearData();
		ds_result_kdurcnclyn.clearData();
		ds_result_warnprcplist.clearData();
		ds_result_drgableprcplist.clearData();
		ds_result_chemoprcplist.clearData();
		ds_result_geneconsentlist.clearData();
	}
}

/**@desc   : 처방 저장후 화면 처리 함수
 * @return : true, false
 * @authur : 엄영만 2014. 02. 07
 */
function fExeAfterPrcpSave( sPrcpSaveYn ,sAftDcYn ) {
    var rtnVal = true;  
    var sPrcpGenrFlag = ds_patflag.getColumn(0, "prcpgenrflag");
    
    fChkNPDschChk(); //정신과 의료급여 환자 입퇴원 유형 체크 

    if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
		rtnVal = false;
	}
	
	if(sPrcpGenrFlag != "O" && sPrcpGenrFlag != "S"){
		ds_savertninfo_saveestmspclcs.copyData(ds_savertninfo_dschestmspclcs);
    	ds_savertninfo_saveserdiagappfrm.copyData(ds_savertninfo_dschserdiagappfrm);
    	ds_savertninfo_savelglydis.copyData(ds_savertninfo_dschlglydis);
    	ds_savertninfo_saverareobst.copyData(ds_savertninfo_dschrareobst);
    	ds_savertninfo_saveresindenture.copyData(ds_savertninfo_dschresindenture);
	    
	    if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
		    rtnVal = false;
	    }
	}

	//by sonjy 간호반납의뢰 처방 저장 후 호출 시에는...아직 화면이 그려지지 않은 상태임. 
	if( ds_root.getColumn(0, "bfinityn") ==  "Y" ){ 
		if( ds_root.getColumn(0, "cp") == "Y" ){ //JJE 처방일이 미래일자로 변경되어 있을경우, 오늘날짜로 다시 설정 (2008.09.11) 
			ds_init.setColumn(0, "prcpdd", utlf_getCurrentDate());
		}
		div_all.Tab_prcp.tp_bfprcp.fInitialize("save");
	}

    //true 리턴 추가(2008.09.29 JJE)
    return rtnVal; //return true;
}

function fGetPrcpSaveAftInfo( prcpsaveyn ,aftdcyn ) {
    var rtnVal = true;  //return value(true/false) 선언 추가 (2010.02.20 JJE)
    if( utlf_isNull(aftdcyn) ) aftdcyn = "";  //청구 후 d/c관련 추가 by sonjy 20081027  청구 후 d/c시 법정전염병 및 산정특례를 체크하지 않도록 한다.
    
    fChkNPDschChk(); //정신과 의료급여 환자 입퇴원 유형 체크 

    var orddd = ""; 
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");      
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
        orddd   = ds_paminfo.getColumn(0, "orddd");
        orddrid = ds_paminfo.getColumn(0, "orddrid");
    } else {
        orddd   = ds_paminfo.getColumn(0, "indd");
        orddrid = ds_paminfo.getColumn(0, "medispclid");
    }
    //처방에 대한 중증진료, 산정특례, 법정전염병 처리
    ds_TRMMO00122.setColumn(0, "ioflag",       prcpgenrflag);                              //외래,입원구분
    ds_TRMMO00122.setColumn(0, "pid",          ds_paminfo.getColumn(0, "pid"));            //환자번호
    ds_TRMMO00122.setColumn(0, "orddd",        orddd);                                     //진료일
    ds_TRMMO00122.setColumn(0, "cretno",       ds_paminfo.getColumn(0, "cretno"));         //cretno
    ds_TRMMO00122.setColumn(0, "instcd",       ds_paminfo.getColumn(0, "instcd"));         //기관코드
    ds_TRMMO00122.setColumn(0, "orddeptcd",    ds_paminfo.getColumn(0, "orddeptcd"));      //진료과
    ds_TRMMO00122.setColumn(0, "orddrid",      orddrid);                                   //진료의id
    ds_TRMMO00122.setColumn(0, "prcpdd",       ds_init.getColumn(0, "prcpdd"));            //처방일
    ds_TRMMO00122.setColumn(0, "age",          ds_paminfo.getColumn(0, "age"));            //나이
    ds_TRMMO00122.setColumn(0, "dschprcpyn",   ds_hidden.getColumn(0, "dschprcpyn"));      //퇴원오더 여부
    ds_TRMMO00122.setColumn(0, "suppkind",     ds_paminfo.getColumn(0, "suppkind"));  	   //보조유형
    ds_TRMMO00122.setColumn(0, "prcpauthflag", ds_init.getColumn(0, "prcpauthflag"));      //권한구분
    ds_TRMMO00122.setColumn(0, "insukind",     ds_paminfo.getColumn(0, "insukind"));   	   //보험유형
    ds_TRMMO00122.setColumn(0, "deptcd",       sysf_getUserInfo("dutplcecd"));             //부서코드
    ds_TRMMO00122.setColumn(0, "userid",       sysf_getUserInfo("userid"));                //사용자ID
    ds_TRMMO00122.setColumn(0, "prcpsaveyn",   prcpsaveyn);                                //처방저장여부  
    ds_TRMMO00122.setColumn(0, "pseuacptflag", !utlf_isNull(this.objects["ds_formerkey"]) ? ds_formerkey.getColumn(0, "pseuacptflag") : ""); //시행부서처방가접수여부
    ds_TRMMO00122.setColumn(0, "aftdcyn",      aftdcyn);    //청구 후 d/c처방 여부 by sonjy 20081027 추가 
    
    //by sonjy 20091120 전처방 개인별 조회 option 추가  
    var bfprcpviewnode =  ds_initsrch_envinfo.lookup("qestcd", '018', "answcnt");
    var bfprcpviewflag = ""; 
    if( !utlf_isNull(bfprcpviewnode) ) bfprcpviewflag = bfprcpviewnode;
    ds_TRMMO00122.setColumn(0, "bfprcpviewflag", bfprcpviewflag);   

    //submit("TRMMO00122") => if( submit("TRMMO00122") == true ) 로 변경 (2008.09.28 JJE)
    var oParam = {};
		oParam.id       = "TRMMO00122";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqGetPrcpSaveAftInfo";
		oParam.inds     = "req=ds_TRMMO00122";
		oParam.outds    = "ds_savertninfo_prcplist=prcplist ds_savertninfo_prcpetccnts=prcpetccnts ds_savertninfo_rsrvcvrtprcp=rsrvcvrtprcp ds_savertninfo_saveestmspclcs=saveestmspclcs ds_savertninfo_saveserdiagappfrm=saveserdiagappfrm ds_savertninfo_savelglydis=savelglydis ds_savertninfo_saverareobst=saverareobst ds_savertninfo_saveserdiagcont=saveserdiagcont ds_savertninfo_saveresindenture=saveresindenture";
		oParam.async    = false;
		oParam.callback = "cf_TRMMO00122";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO00122") > -1) {
        if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
            rtnVal = false; //return false;
        }
        
        if(prcpgenrflag != "O" && prcpgenrflag != "S"){
            var nDschOutCnt = ds_main_prcplist.getCaseCount("status == 'I' && prcpkindcd == '70'");
            if(nDschOutCnt > 0) {
                ds_TRMMO00119.setColumn(0, "pid",    ds_paminfo.getColumn(0, "pid") );  //환자번호
                ds_TRMMO00119.setColumn(0, "orddd",  ds_paminfo.getColumn(0, "indd") ); //진료일
                ds_TRMMO00119.setColumn(0, "instcd", ds_paminfo.getColumn(0, "instcd"));  //cretno
                ds_TRMMO00119.setColumn(0, "cretno", ds_paminfo.getColumn(0, "cretno"));  //cretno
                
                var oParam = {};
					oParam.id       = "TRMMO00119";
					oParam.service  = "prcpmngtapp.PrcpMngt";
					oParam.method   = "reqGetFollowUpChk";
					oParam.inds     = "req=ds_TRMMO00119";
					oParam.outds    = "ds_followup=followup";
					oParam.async    = false;
					oParam.callback = "cf_TRMMO00119";

				tranf_submit(oParam);
				
				if(arErrorCode.pop("TRMMO00119") > -1) {
                    //처방에 대한 중증진료, 산정특례, 법정전염병 처리
                    ds_TRMMO00122.setColumn(0, "ioflag", "O" );                                 //외래,입원구분
                    ds_TRMMO00122.setColumn(0, "pid",   ds_paminfo.getColumn(0, "pid"));        //환자번호
                    ds_TRMMO00122.setColumn(0, "orddd", ds_followup.getColumn(0, "outorddd") );                                            //진료일
                    ds_TRMMO00122.setColumn(0, "cretno", ds_followup.getColumn(0, "outcretno"));        //cretno
                    ds_TRMMO00122.setColumn(0, "instcd", ds_paminfo.getColumn(0, "instcd"));      //기관코드
                    ds_TRMMO00122.setColumn(0, "orddeptcd", ds_paminfo.getColumn(0, "orddeptcd"));   //진료과
                    ds_TRMMO00122.setColumn(0, "orddrid", orddrid );                                         //진료의id
                    ds_TRMMO00122.setColumn(0, "prcpdd", ds_init.getColumn(0, "prcpdd"));              //처방일
                    ds_TRMMO00122.setColumn(0, "age", ds_paminfo.getColumn(0, "age"));         //나이
                    ds_TRMMO00122.setColumn(0, "dschprcpyn", ds_hidden.getColumn(0, "dschprcpyn"));      //퇴원오더 여부
                    ds_TRMMO00122.setColumn(0, "suppkind", ds_paminfo.getColumn(0, "suppkind"));  //보조유형
                    ds_TRMMO00122.setColumn(0, "prcpauthflag", ds_init.getColumn(0, "prcpauthflag"));      //권한구분
                    ds_TRMMO00122.setColumn(0, "insukind", ds_paminfo.getColumn(0, "insukind"));   //보험유형
                    ds_TRMMO00122.setColumn(0, "deptcd", sysf_getUserInfo("dutplcecd"));                        //부서코드
                    ds_TRMMO00122.setColumn(0, "userid", sysf_getUserInfo ("userid"));                          //사용자ID
                    ds_TRMMO00122.setColumn(0, "prcpsaveyn", prcpsaveyn );                                     //처방저장여부  
                    ds_TRMMO00122.setColumn(0, "pseuacptflag", !utlf_isNull(this.objects["ds_formerkey"]) ? ds_formerkey.getColumn(0, "pseuacptflag") : ""); //시행부서처방가접수여부
                    ds_TRMMO00122.setColumn(0, "aftdcyn", aftdcyn);    //청구 후 d/c처방 여부 by sonjy 20081027 추가 
                    
                    var oParam = {};
						oParam.id       = "TRMMO00122";
						oParam.service  = "prcpmngtapp.PrcpMngt";
						oParam.method   = "reqGetPrcpSaveAftInfo";
						oParam.inds     = "req=ds_TRMMO00122";
						oParam.outds    = "ds_savertninfo_prcplist=prcplist ds_savertninfo_prcpetccnts=prcpetccnts ds_savertninfo_rsrvcvrtprcp=rsrvcvrtprcp ds_savertninfo_saveestmspclcs=saveestmspclcs ds_savertninfo_saveserdiagappfrm=saveserdiagappfrm ds_savertninfo_savelglydis=savelglydis ds_savertninfo_saverareobst=saverareobst ds_savertninfo_saveserdiagcont=saveserdiagcont ds_savertninfo_saveresindenture=saveresindenture";
						oParam.async    = false;
						oParam.callback = "cf_TRMMO00122";

					tranf_submit(oParam);
					
					if(arErrorCode.pop("TRMMO00122") > -1) {
                        if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
                            rtnVal = false; //return false;
                        }
                    }
                }
            }
        }
    
        //by sonjy 간호반납의뢰 처방 저장 후 호출 시에는...아직 화면이 그려지지 않은 상태임. 
        if( ds_root.getColumn(0, "bfinityn") ==  "Y" ){ 
            if( ds_root.getColumn(0, "cp") == "Y" ){ //JJE 처방일이 미래일자로 변경되어 있을경우, 오늘날짜로 다시 설정 (2008.09.11) 
                ds_init.setColumn(0, "prcpdd", utlf_getCurrentDate());
            }
            
            div_all.Tab_prcp.tp_bfprcp.fInitialize("save");
        }
    }
  
    //start: 외부 CD 재판독 의뢰 정보 update (2010.02.19 JJE)
    if( frmf_getParameter("spmmo21200_rtnyn") == "Y" ){
        var saveYN     = "N";
        var prcpPkSpec = "";
        var savePrcpDD = "";
        var savePrcpCd = "";
        var saveEqmtCd = "";
        var saveTrsmDD = "";
        var saveTrsmTM = "";
        //var saveOcdSeq = "";
        var prcpcdList = frmf_getParameter("spmmo21200_rtnprcpcd").split("^"); //prcpCd
        var eqmtcdList = frmf_getParameter("spmmo21200_rtneqmtcd").split("^"); //cdType
        var trsmddList = frmf_getParameter("spmmo21200_rtntrsmdd").split("^"); //trsmDD
        var trsmtmList = frmf_getParameter("spmmo21200_rtntrsmtm").split("^"); //trsmTM
        //var ocdseqList = getParameter("spmmo21200_rtnocdseq").split("^"); //oCdSeq
        var iRow = 0;
    
        dsf_createDs("ds_spmmo21200_send");
        
        ds_spmmo21200_send.addColumn("pid",       "string");
        ds_spmmo21200_send.addColumn("orddeptcd", "string");
        ds_spmmo21200_send.addColumn("prcpdd",    "string");
        ds_spmmo21200_send.addColumn("prcpcd",    "string");
        ds_spmmo21200_send.addColumn("eqmtcd",    "string");
        ds_spmmo21200_send.addColumn("trsmdd",    "string");
        ds_spmmo21200_send.addColumn("trsmtm",    "string");
        
        for( var i = 0; i < prcpcdList.length; i++ ){
            prcpPkSpec = ds_savertninfo_prcplist.lookup("prcpcd", prcpcdList[i], "prcppkspec");
            if( !utlf_isNull(prcpPkSpec) ){  //익일 처방 있고, 당일처방 추가로 낸 경우.. 값 있는지?
                savePrcpDD = prcpPkSpec.text.substr(0, 8);
                savePrcpCd = prcpcdList[i];
                saveEqmtCd = eqmtcdList[i];
                saveTrsmDD = trsmddList[i];
                saveTrsmTM = trsmtmList[i];
                //saveOcdSeq = ocdseqList[i];
                saveYN     = "Y";
                
                iRow = ds_spmmo21200_send.addRow();
                //break;  //우선은 1건만 prcpcd mapping
                
                ds_spmmo21200_send.setColumn(iRow, "pid"      , frmf_getParameter("spmmo21200_pid"));
                ds_spmmo21200_send.setColumn(iRow, "orddeptcd", frmf_getParameter("spmmo21200_orddeptcd"));
                ds_spmmo21200_send.setColumn(iRow, "prcpdd"   , savePrcpDD);
                ds_spmmo21200_send.setColumn(iRow, "prcpcd"   , savePrcpCd);
                ds_spmmo21200_send.setColumn(iRow, "eqmtcd"   , saveEqmtCd);
                ds_spmmo21200_send.setColumn(iRow, "trsmdd"   , saveTrsmDD);
                ds_spmmo21200_send.setColumn(iRow, "trsmtm"   , saveTrsmTM);
                //model.makeValue("/root/spmmo21200/send/info/ocdseq"   , saveOcdSeq);
            }
        }
        if( saveYN == "Y" ){
			var oParam = {};
				oParam.id       = "TXMMO21201";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExePatOuterCdInfo";
				oParam.inds     = "req=ds_spmmo21200_send";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO21201";

			tranf_submit(oParam);

			if(arErrorCode.pop("TXMMO21201") < 0) {
                rtnVal = false;
            }
        }
        
        dsf_deleteDs("ds_spmmo21200_send");
        
        frmf_clearParameter("spmmo21200_rtnyn"); 
        frmf_clearParameter("spmmo21200_pid");
        frmf_clearParameter("spmmo21200_orddeptcd");
        frmf_clearParameter("spmmo21200_rtnprcpcd"); 
        frmf_clearParameter("spmmo21200_rtneqmtcd"); 
        frmf_clearParameter("spmmo21200_rtntrsmdd"); 
        frmf_clearParameter("spmmo21200_rtntrsmtm"); 
    }
    //end
  
  //true 리턴 추가(2008.09.29 JJE)
  return rtnVal; //return true;
}

function cf_TRMMO00122(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO21201(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function fGetPrcpEtcInfo(flag) {
    var mon = sysf_getCurrentMonitorNumber();
	var xpt = this.getOwnerFrame().position.x + 400;
	var ypt = this.getOwnerFrame().position.y + 100;
        
    var orddd = ""; 
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag" );

    //20090415 마정민추가 chronicdiseaseyn 초기화
    ds_init.setColumn(0, "chronicdiseaseyn", "N");
    
    if ( flag == "save" ) {
        //20080818 마정민 수정. 처방 저장후 불러오는 건은 app에서 호출하는 걸로 수정.
        ds_prcpetcinfo_saveestmspclcs.copyData(ds_savertninfo_saveestmspclcs);
		ds_prcpetcinfo_saveserdiagappfrm.copyData(ds_savertninfo_saveserdiagappfrm);
		ds_prcpetcinfo_savelglydis.copyData(ds_savertninfo_savelglydis);
		ds_prcpetcinfo_saverareobst.copyData(ds_savertninfo_saverareobst);
		ds_prcpetcinfo_saveserdiagcont.copyData(ds_savertninfo_saveserdiagcont);
		ds_prcpetcinfo_saveresindenture.copyData(ds_savertninfo_saveresindenture);
    } else {
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
            orddd = ds_paminfo.getColumn(0, "orddd");
        } else {
            orddd = ds_paminfo.getColumn(0, "indd");
        }
        //처방에 대한 중증진료, 산정특례, 법정전염병 처리
        ds_TRMMO00108.setColumn(0, "ioflag",     prcpgenrflag); //ioflag
        ds_TRMMO00108.setColumn(0, "dataflag",   "1"); //dataflag 자료구분(1:처방화면, 2:진단화면)
        ds_TRMMO00108.setColumn(0, "pid",        ds_paminfo.getColumn(0, "pid")); //pid
        ds_TRMMO00108.setColumn(0, "orddd",      orddd ); //orddd
        ds_TRMMO00108.setColumn(0, "cretno",     ds_paminfo.getColumn(0, "cretno")); //cretno
        ds_TRMMO00108.setColumn(0, "instcd",     ds_paminfo.getColumn(0, "instcd")); //instcd
        ds_TRMMO00108.setColumn(0, "prcpdd",     ds_init.getColumn(0, "prcpdd")); //prcpdd
        ds_TRMMO00108.setColumn(0, "deptcd",     sysf_getUserInfo("dutplcecd")); //deptcd
        ds_TRMMO00108.setColumn(0, "userid",     sysf_getUserInfo ("userid")); //userid
        ds_TRMMO00108.setColumn(0, "age",        ds_paminfo.getColumn(0, "age" )); //나이
        ds_TRMMO00108.setColumn(0, "dschprcpyn", ds_hidden.getColumn(0, "dschprcpyn")); //퇴원오더여부 by sonjy 2008-07-30
        ds_TRMMO00108.setColumn(0, "orddeptcd",  ds_paminfo.getColumn(0, "orddeptcd"));    //진료과 (만성B형간염 - kimsj 100217)
        
        //submit("TRMMO00108") => if( !submit("TRMMO00108") ) 로 변경 (2008.09.29 JJE)
        
        var oParam = {};
			oParam.id       = "TRMMO00108";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpEtcInfoTret";
			oParam.inds     = "req=ds_TRMMO00108";
			oParam.outds    = "ds_prcpetcinfo_saveestmspclcs=saveestmspclcs ds_prcpetcinfo_saveserdiagappfrm=saveserdiagappfrm ds_prcpetcinfo_savelglydis=savelglydis ds_prcpetcinfo_saverareobst=saverareobst ds_prcpetcinfo_saveserdiagcont=saveserdiagcont ds_prcpetcinfo_saveresindenture=saveresindenture";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO00108";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TRMMO00108") < 0) {
            return false;
        }
    }
    
    var frmflag = "Y"; // 재등록 체크를 위한 변수

    //20090415 마정민수정: 유정란대리 요청
    ds_init.setColumn(0, "chronicdiseaseyn", ds_prcpetcinfo_saveestmspclcs.getColumn(0, "chronicdiseaseyn"));
    
    if ( ds_root.getColumn(0, "addprcp") != "Y") { // 추가처방에서는 신청서만 뜨지 않도록 ...
        var sRgstKindCd = "";  // 산정특례 종류 00:중증, 01:희귀난치 일반, 02:중증화상, 03:경증, 06:희귀난치 결핵
        var sReRegYn    = "";  // 재등록 여부 (Y: 재등록, X: 희귀난치 자격조회 안됨, C: 희귀난치 재등록 기간에 진단명이 틀림, 그외 신규) 
        
        for (var i = 0; i < ds_prcpetcinfo_saveserdiagappfrm.rowcount; i++) {
            frmflag     = "Y";
            sRgstKindCd = ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "rgstkindcd");
            sReRegYn    = ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "reregyn");    // 2014.09.27 희귀난치 재등록 관련 추가. 엄영만
            
            if (sReRegYn == "Y" || sReRegYn == "C") {// 재등록 일경우 Y:재등록, C:희귀재등록시 진단이 틀린 경우 신규 등록으로 처리
				var msgData = "";
				if(sReRegYn == "Y") { // 재등록 메세지
                    msgData = sysf_messageBox(ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "reregmsg") + "\n\n아래 항목을 선택 하세요.\n\n 1. 재등록하시려면 예(Yes)\n 2. 재등록이 필요없는 환자분이라면 아니오(No)\n 3. 추후 재등록 하시려면 취소", "S");
                } else {    // 재등록 C:희귀재등록시 진단이 틀린 경우 신규 등록으로 처리
                    msgData = sysf_messageBox(ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "reregmsg" ) + "특례 등록상병(" + ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "regdiagcd" )+ ")과 현재 주진단이 동일하지 않습니다.\n\n아래 항목을 선택 하세요.\n\n 1. 현재 진단으로 신규등록하시려면 예(Yes)\n 2. 기간연장이 필요없는 환자분이라면 아니오(No)\n 3. 현재진단을 수정하여 재등록 하시려면 취소", "S");

                    ds_prcpetcinfo_saveserdiagappfrm.setColumn(i, "reregyn",    "");
                    ds_prcpetcinfo_saveserdiagappfrm.setColumn(i, "regdiagcd",  "" )
                    ds_prcpetcinfo_saveserdiagappfrm.setColumn(i, "regdiagseq", "");
                }
                
                var msgData = sysf_messageBox(ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "reregmsg"), "S007", "추후 재등록 하시려면|재등록이 필요없는 환자분이라면" );
                if (msgData == "6" ) {  // 재등록 한다.
                    if(sRgstKindCd == "00" || sRgstKindCd == "01" || sRgstKindCd == "06" ) { // 00:중증, 01:희귀난치 일반, 06:희귀난치 결핵
                        frmflag = "Y";
                    } else if (sRgstKindCd == "02") { // 중증화상
                        frmflag = "R";
                        frmf_setParameter("SMMMR02900_formcd", "1200012640");
                        frmf_modal("SMMMR02900", "SMMMR02900", null, null, null, null, null, null, null, null, null, null, "M");
                        frmf_clearParameter("SMMMR02900_formcd");
                    }
                } else if ( msgData == "7" ) { // 재등록 하지 않겠습니다. 
                    frmflag = "N";
                } else {                       // 나중에 한다.
                    frmflag = "-";
                }
                
                ds_TXMMO00116.setColumn(0, "pid", ds_paminfo.getColumn(0, "pid"));
                ds_TXMMO00116.setColumn(0, "instcd", ds_paminfo.getColumn(0, "instcd"));
                ds_TXMMO00116.setColumn(0, "genrdd", "");
                ds_TXMMO00116.setColumn(0, "genrno", "");
                ds_TXMMO00116.setColumn(0, "histno", "");
                ds_TXMMO00116.setColumn(0, "contflag", frmflag);
                ds_TXMMO00116.setColumn(0, "serdiagtodd", "");
                
                if(sRgstKindCd == "06" && utlf_getCurrentDate() < "20150101") {
                    ds_TXMMO00116.setColumn(0, "rgstkindcd", "01"); // 희귀난치(01) 에서 희귀난치 결핵(06)으로 재등록 하는경우
                } else {
                    ds_TXMMO00116.setColumn(0, "rgstkindcd", sRgstKindCd);
                }
                
                var oParam = {};
					oParam.id       = "TXMMO00116";
					oParam.service  = "prcpmngtapp.PrcpMngt";
					oParam.method   = "reqSetSerDiagContflag";
					oParam.inds     = "req=ds_TXMMO00116";
					oParam.callback = "cf_TXMMO00116";

				tranf_submit(oParam);
				
				if(arErrorCode.pop("TXMMO00116") < 0) {
                    return false;
                }
            } else if (sReRegYn == "X" ) {// 희귀난치 자격조회 안된 경우
                sysf_messageBox(ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "reregmsg") + "특례 등록상병이 확인되지 않아 재등록 하실수 없습니다.\n원무창구에 자격조회 후 재등록 하시기 바랍니다." , "I999");
                frmflag = "-"; // 나중에 한다.
            }
            
            // 신규 등록 또는 중증 재등록 체크 "예" 선택시 에만 중증 신청서 팝업 되어야 함.
            if (frmflag == "Y"  && sRgstKindCd == "00" ) { // 중증 신청서는 
                frmf_setParameter("SPMMO11500_pid",             ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "pid"));
                frmf_setParameter("SPMMO11500_pathngnm",        ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "hngnm"));
                frmf_setParameter("SPMMO11500_insukind",        ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "insukind"));
                frmf_setParameter("SPMMO11500_anohosprgstflag", ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "anohosprgstflag"));
                frmf_setParameter("SPMMO11500_genrflagcd",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "genrflagcd"));
                frmf_setParameter("SPMMO11500_cncrdiagcnfmdd",  ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "cncrdiagcnfmdd"));
                frmf_setParameter("SPMMO11500_orddeptcd",       ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "orddeptcd"));
                frmf_setParameter("SPMMO11500_orddrid",         ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "orddrid"));
                frmf_setParameter("SPMMO11500_genrorddd",       ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "genrorddd"));
                frmf_setParameter("SPMMO11500_genrcretno",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "genrcretno"));
                frmf_setParameter("SPMMO11500_maindiagcd",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "maindiagcd"));
                frmf_setParameter("SPMMO11500_insukindnm",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "insukindnm"));
                frmf_setParameter("SPMMO11500_befsuppkind",     ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "befsuppkind")); //2013/12/02
                frmf_setParameter("SPMMO11500_reregyn",         ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "reregyn" ));    //2014/09/27 재등록 여부 추가
                frmf_setParameter("SPMMO11500_mthdstr",         "-");
                frmf_setParameter("SPMMO11500_mthd5txt",        "-");
                frmf_setParameter("SPMMO11500_rgstbasic",       "-");
                
                frmf_clearParameter("SPMMO11500_save");
                lf_prcpModal ( "SPMMO11500", 400, 100 );
                
                if(frmf_getParameter("SPMMO11500_save")== "Y") {
					if(!utlf_isNull(ds_prcpetcinfo_saveestmspclcs.getColumnInfo("estmexistyn"))) // 차상위 1종은 정보가 없어서 오류 발생하여 수정.
						ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmexistyn", "Y"); // 기존 신청서가 없고 신규로 신청서 작성시 등록 정보 여부를 셋팅 함.(아래쪽에서 요율 팝업 창 뛰울때 체크함.) 2012.02.29 엄영만
                } else {
                    sysf_messageBox ( "중증 신청서가 작성되지 않았습니다.", "I" );
                    
                    ds_TXMMO00116.setColumn(0, "pid", ds_paminfo.getColumn(0, "pid"));
					ds_TXMMO00116.setColumn(0, "instcd", ds_paminfo.getColumn(0, "instcd"));
					ds_TXMMO00116.setColumn(0, "genrdd", "");
					ds_TXMMO00116.setColumn(0, "genrno", "");
					ds_TXMMO00116.setColumn(0, "histno", "");
					ds_TXMMO00116.setColumn(0, "contflag", "-"); // 나중에 하는것으로 수정.
					ds_TXMMO00116.setColumn(0, "serdiagtodd", "");
					ds_TXMMO00116.setColumn(0, "rgstkindcd", sRgstKindCd);
            
                    var oParam = {};
						oParam.id       = "TXMMO00116";
						oParam.service  = "prcpmngtapp.PrcpMngt";
						oParam.method   = "reqSetSerDiagContflag";
						oParam.inds     = "req=ds_TXMMO00116";
						oParam.callback = "cf_TXMMO00116";

					tranf_submit(oParam);
					
					if(arErrorCode.pop("TXMMO00116") < 0) {
						return false;
					}
                }
            } else if ( frmflag == "Y" && ( sRgstKindCd == "01" || sRgstKindCd == "02" || sRgstKindCd == "06" ))  { // 희귀난치/중증화상
                frmf_setParameter("SPMMO20000_pid",             ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "pid"));
                frmf_setParameter("SPMMO20000_pathngnm",        ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "hngnm"));
                frmf_setParameter("SPMMO20000_insukind",        ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "insukind"));
                frmf_setParameter("SPMMO20000_anohosprgstflag", ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "anohosprgstflag"));
                frmf_setParameter("SPMMO20000_genrflagcd",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "genrflagcd"));
                frmf_setParameter("SPMMO20000_cncrdiagcnfmdd",  ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "cncrdiagcnfmdd"));
                frmf_setParameter("SPMMO20000_orddeptcd",       ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "orddeptcd"));
                frmf_setParameter("SPMMO20000_orddrid",         ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "orddrid"));
                frmf_setParameter("SPMMO20000_genrorddd",       ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "genrorddd"));
                frmf_setParameter("SPMMO20000_genrcretno",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "genrcretno"));
                frmf_setParameter("SPMMO20000_maindiagcd",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "maindiagcd"));
                frmf_setParameter("SPMMO20000_insukindnm",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "insukindnm"));                
                frmf_setParameter("SPMMO20000_rgstkindcd",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "rgstkindcd"));      // 20100706 중증화상인지 산정특례인지 구분을 위해서.
                frmf_setParameter("SPMMO20000_burnicd10desc",   ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "burnicd10desc"));   // 20100706 중증화상의 Icd10cd를 가져오기 위해서.
                frmf_setParameter("SPMMO20000_icd10cd",         ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "icd10cd"));   	   // 20100706 중증화상의 Icd10cd를 가져오기 위해서.
                frmf_setParameter("SPMMO20000_befsuppkind",     ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "befsuppkind"));     //2013/12/02                
                frmf_setParameter("SPMMO20000_reregyn",         ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "reregyn"));         //2014.09.27 희귀난치 재등록 관련 추가. 엄영만
                frmf_setParameter("SPMMO20000_regdiagcd",       ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "regdiagcd"));       //2014.09.27 희귀난치 재등록 관련 추가. 엄영만
                frmf_setParameter("SPMMO20000_regdiagseq",      ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "regdiagseq"));      //2014.09.27 희귀난치 재등록 관련 추가. 엄영만
                frmf_setParameter("SPMMO20000_mthdstr",         ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "mthdstr"));
                frmf_setParameter("SPMMO20000_mthd5txt",        ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "mthd5txt"));
                frmf_setParameter("SPMMO20000_rgstbasic",       ds_prcpetcinfo_saveserdiagappfrm.getColumn(i, "rgstbasic"));
                
                frmf_clearParameter("SPMMO20000_save");
                lf_prcpModal ( "SPMMO20000", 400, 100 );
                
                if(frmf_getParameter("SPMMO20000_save")== "Y") {
					if(!utlf_isNull(ds_prcpetcinfo_saveestmspclcs.getColumnInfo("estmexistyn"))) // 차상위 1종은 정보가 없어서 오류 발생하여 수정.
						ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmexistyn", "Y"); // 기존 신청서가 없고 신규로 신청서 작성시 등록 정보 여부를 셋팅 함.(아래쪽에서 요율 팝업 창 뛰울때 체크함.) 2012.02.29 엄영만
                } else {
                    sysf_messageBox ( "희귀난치/중증화상 신청서가 작성되지 않았습니다.", "I" );
                    
					ds_TXMMO00116.setColumn(0, "pid", ds_paminfo.getColumn(0, "pid"));
					ds_TXMMO00116.setColumn(0, "instcd", ds_paminfo.getColumn(0, "instcd"));
					ds_TXMMO00116.setColumn(0, "genrdd", "");
					ds_TXMMO00116.setColumn(0, "genrno", "");
					ds_TXMMO00116.setColumn(0, "histno", "");
					ds_TXMMO00116.setColumn(0, "contflag", "-"); // 나중에 하는것으로 수정.
					ds_TXMMO00116.setColumn(0, "serdiagtodd", "");
					
					if(sRgstKindCd == "06" && utlf_getCurrentDate() < "20150101") {
						ds_TXMMO00116.setColumn(0, "rgstkindcd", "01"); // 희귀난치(01) 에서 희귀난치 결핵(06)으로 재등록 하는경우
					} else {
						ds_TXMMO00116.setColumn(0, "rgstkindcd", sRgstKindCd);
					}
					
					var oParam = {};
						oParam.id       = "TXMMO00116";
						oParam.service  = "prcpmngtapp.PrcpMngt";
						oParam.method   = "reqSetSerDiagContflag";
						oParam.inds     = "req=ds_TXMMO00116";
						oParam.callback = "cf_TXMMO00116";

					tranf_submit(oParam);
					
					if(arErrorCode.pop("TXMMO00116") < 0) {
						return false;
					}
                }
            }
        }
    }
    
    fEstmSpclFrm(); // 요율팝업 
    
    //희귀질환대상자 by sonjy 2008-07-28 
    if ( ds_prcpetcinfo_saverareobst.getColumn(0, "estmflag") == "Y"  ) {
        sysf_messageBox("희귀난치 대상자이나 관련 상병이 누락되어 있습니다. 희귀난치 진료이면 관련 상병을 주상병으로 입력해 주십시오.", "I");
        ds_prcpetcinfo_saverareobst.setColumn(0, "estmyn", "H");  //희귀난치 대상 상병으로 진료를 본 것이 아니라고 할 경우 
                
        var oParam = {};
			oParam.id       = "TXMMO00105";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqExeSavePrcpEtcInfo";
			oParam.inds     = "saveestmspclcs=ds_prcpetcinfo_saverareobst";
			oParam.async    = false;
			oParam.callback = "cf_TXMMO00105";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TXMMO00105") < 0) {
			return false;
        }
    } else if ( ds_prcpetcinfo_saverareobst.getColumn(0, "estmflag") == "U"  ) { //희귀난치 대상이고 진단값이 있는데 otpt에 H값이 없으면 Update 처리 해준다.
        ds_prcpetcinfo_saverareobst.setColumn(0, "estmyn", "U"); 
        
        var oParam = {};
			oParam.id       = "TXMMO00105";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqExeSavePrcpEtcInfo";
			oParam.inds     = "saveestmspclcs=ds_prcpetcinfo_saverareobst";
			oParam.async    = false;
			oParam.callback = "cf_TXMMO00105";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TXMMO00105") < 0) {
			return false;
        }
    }

    // 레진상 완전틀린 관련 처리 2012.07.04 엄영만
    if(ds_prcpetcinfo_saveresindenture.rowcount > 0){
        fResinDentureFrm();
    }

    //법정전염병 신고서 기존 결핵신고자에게 결핵약 발행 시 결핵신고서 또 호출되는 문제 => 서버단에서 신고건까지 모두 return, client는 chkyn컬럼으로 체크 (20090710 JJE)
    var savelglydisNodes = ds_prcpetcinfo_savelglydis.getCaseCount("chkyn != 'Y'"); // (20090710 JJE)
    if( savelglydisNodes > 0 ) {  
        for ( var i = 0; i < ds_prcpetcinfo_savelglydis.rowcount; i++){
			if(ds_prcpetcinfo_savelglydis.getColumn(i, "chkyn") != 'Y') {
				var sReptNm  = ds_prcpetcinfo_savelglydis.getColumn(i, "reptnm");
				var sIcd10Cd = ds_prcpetcinfo_savelglydis.getColumn(i, "icd10cd");
				if(!utlf_isNull(sReptNm)) {
					frmf_setParameter("PrcpLglyDis",   "PrcpLglyDis");  //20100113 pyj 처방에서 신고서 호출시 파라메터를 넘겨준다.
					frmf_setParameter("PrcpLglyDisCd", sIcd10Cd);
					
					var objArg = new Object();
					objArg.arg_ds_main_diagcdlist = ds_main_diagcdlist;

					frmf_modal(sReptNm, sReptNm, objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
			
					frmf_clearParameter("PrcpLglyDis");      
					frmf_clearParameter("PrcpLglyDisCd");    
				}
			}
        }
    } 

    ds_prcpetcinfo_saveestmspclcs.clearData();
	ds_prcpetcinfo_saveserdiagappfrm.clearData();
	ds_prcpetcinfo_savelglydis.clearData();
	ds_prcpetcinfo_saverareobst.clearData();
	ds_prcpetcinfo_saveserdiagcont.clearData();
	ds_prcpetcinfo_saveresindenture.clearData();
    
    return true;    //리턴 위치 바꿈, true 값 리턴 (2008.09.29 JJE)
}

function cf_TRMMO00108(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00116(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : 진료대상자 리스트에서 환자 호출시 저장할 데이터가 있을 시 저장한다.
 * @return : true, false
 * @authur : 마정민 2007. 4. 04
 */
function fPrcpSavePatList() {
    //20081014 간호확인 후에만 처방인증저장 가능.   start  
    var usge = ds_root.getColumn(0, "usge"); 
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag" );
    if( prcpgenrflag == "O" || prcpgenrflag == "S" ){ 
        if( ds_paminfo.getColumn(0, "elbulbodstat") == "0" &&  usge == "prcp" && ds_root.getColumn(0, "addprcp") != "Y" ){
            return false;
        }
    }
    
    //20081014 간호확인 후에만 처방인증저장 가능.   end 
    var sSaveDataFlag = fSaveExistCheck(null, "Y");
    if ( sSaveDataFlag != -1 && sSaveDataFlag != 1  ){ //20081215 마정민수정: 변경요청서 512에 따라 진료대상자 리스트에서 환자 바꿀때 진단정보만 있으면 저장메시지 띄우지 않음     
        if(sysf_messageBox ( "", "Q002" ) == "6"){
            fPrcpSave("","","","N");  // 진료대상자리스트에서 환자 선택할 때는 저장여부 메세지 한번만 띄우고 새로 선택한 환자가 상단으로 올라간다. 20100317 LYJ
            return true;
        } else {
            return false;
        }
    }
}

/**@desc   : 용량, 수량, 횟수의 수정전 값을 instance에 넣어둔다.
 * @param  : flag : 용량, 수량, 횟수 변경 구분
           : curRow : 수정할 현재 row
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function bfDrugCalc ( flag, curRow ) {
    ds_drugcalc.setColumn(0, flag, ds_main_prcplist.getColumn(curRow, flag));
}

/**@desc   : 용량, 수량, 횟수를 수정했을 때 값계산
 * @param  : flag : 용량, 수량, 횟수 변경 구분
           : curRow : 수정할 현재 row
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function DrugCalc ( flag, curRow ) {
    var PrcpNm = "";
    var PrcpVol = ds_main_prcplist.getColumn(curRow, "prcpvol" );
    if ( utlf_isNull(PrcpVol) || PrcpVol == 0 ) {    
        PrcpVol = "1"; 
        if ( flag == "prcpvol") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm" );
            sysf_messageBox ( PrcpNm + " 처방의 1일용량값이 없거나 0입니다.\n1일용량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "prcpvol", PrcpVol );   //1일
        }
    }

    var PrcpQty = ds_main_prcplist.getColumn(curRow, "prcpqty" );
    if ( utlf_isNull(PrcpQty) || PrcpQty == 0 ){ 
        PrcpQty = "1"; 
        if ( flag == "prcpqty") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm" );
            sysf_messageBox ( PrcpNm + " 처방의 1일수량값이 없거나 0입니다.\n1일수량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "prcpqty", PrcpQty );      
        }
    }

    var PrcpTims = ds_main_prcplist.getColumn(curRow, "prcptims" );
    if ( utlf_isNull(PrcpTims) || PrcpTims == 0 ) {  
        PrcpTims = "1"; 
        if ( flag == "prcptims") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm" );
            sysf_messageBox ( PrcpNm + " 처방의 횟수값이 없거나 0입니다.\n횟수을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "prcptims", PrcpTims);
        }
    }

    var drprcpetc7 = ds_main_prcplist.getColumn(curRow, "drprcpetc7" );
    if ( utlf_isNull(drprcpetc7) || drprcpetc7 == 0 || drprcpetc7 == "-") {  
        drprcpetc7 = "1"; 
        if ( flag == "drprcpetc7") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm" );
            sysf_messageBox ( PrcpNm + " 처방의 1회용량값이 없거나 0입니다.\n1회용량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", drprcpetc7 );      //1회
        }
    }

    var drprcpetc8 = ds_main_prcplist.getColumn(curRow, "drprcpetc8" );
    if ( utlf_isNull(drprcpetc8) || drprcpetc8 == 0 || drprcpetc8 == "-") {  
        drprcpetc8 = "1"; 
        if ( flag == "drprcpetc8") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm" );
            sysf_messageBox ( PrcpNm + " 처방의 1회수량값이 없거나 0입니다.\n1회수량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", drprcpetc8 ); //1회 
        }        
    }
        
    var bfPrcpVol = ds_drugcalc.getColumn(0, "prcpvol" );
    if ( utlf_isNull(bfPrcpVol) || bfPrcpVol == 0 ) {    
        bfPrcpVol = "1"; 
    }
    var bfPrcpQty = ds_drugcalc.getColumn(0, "prcpqty" ); 
    if ( utlf_isNull(bfPrcpQty) || bfPrcpQty == 0 ) {    
        bfPrcpQty = "1"; 
    }
    var bfprcpTims = ds_drugcalc.getColumn(0, "prcptims" ); 
    if ( utlf_isNull(bfprcpTims) || bfprcpTims == 0 ) {  
        bfprcpTims = "1"; 
    }
    var bfdrprcpetc7 = ds_drugcalc.getColumn(0, "drprcpetc7" ); 
    if ( utlf_isNull(bfdrprcpetc7) || bfdrprcpetc7 == 0 ) {  
        bfdrprcpetc7 = "1"; 
    }
    var bfdrprcpetc8 = ds_drugcalc.getColumn(0, "drprcpetc8" ); 
    if ( utlf_isNull(bfdrprcpetc8) || bfdrprcpetc8 == 0 ) {  
        bfdrprcpetc8 = "1"; 
    }
            
    var calcPrcpVol = 0;
    var calcPrcpQty = 0;
    var calcPrcpTimeVol = 0;
    var calcPrcpTimeQty = 0;
    
    //20090820 마정민 수정. 약인 경우는 최초의 용량 수량 비율로 계산하는 것으로 수정
    var baseQty = lf_getArrayData ( ds_main_prcplist.getColumn(curRow, "drugmastspec" ) + "^", 0, 31 , "^", "|" );
    var baseVol = lf_getArrayData ( ds_main_prcplist.getColumn(curRow, "drugmastspec" ) + "^", 0, 32 , "^", "|" );

    var drugcntsvol = lf_getArrayData ( ds_main_prcplist.getColumn(curRow, "drugmastspec" ) + "^", 0, 1 , "^", "|" );
    var drugstndvol = lf_getArrayData ( ds_main_prcplist.getColumn(curRow, "drugmastspec" ) + "^", 0, 3 , "^", "|" );
    var drugpackvol = lf_getArrayData ( ds_main_prcplist.getColumn(curRow, "drugmastspec" ) + "^", 0, 5 , "^", "|" );
    var drugbasevol = lf_getArrayData ( ds_main_prcplist.getColumn(curRow, "drugmastspec" ) + "^", 0, 7 , "^", "|" );

    var baseTimeVol = drugcntsvol * drugbasevol / drugpackvol;
    var baseTimeQty = drugbasevol;
    
    //alert( "baseTimeQty=" + drugbasevol + ", baseVol=" + baseVol + ", baseQty="+ baseQty );
    var calcmthdcd = lf_getArrayData ( ds_main_prcplist.getColumn(curRow, "drugmastspec" ) , 0, 26, "^", "|" ); 
    var colHidnValue = lf_grdBaseColHidn("D");
    
    if (ds_main_prcplist.getColumn(curRow, "prcpclscd" ).substring ( 0, 1 ) == "A" && !utlf_isNull(baseQty) && !utlf_isNull(baseVol)) {
        if ( flag == "prcpvol" && bfPrcpVol != PrcpVol ) { // 용량을 수정했을 때: 수량 자동계산
            calcPrcpQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000; 
            
            calcPrcpTimeQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeQty)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000;     

            calcPrcpTimeVol = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeVol)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
            
            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/
                                
            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty);      
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol);
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty);                            
        } else if ( flag == "prcpqty" && bfPrcpQty != PrcpQty ) { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd" );
            calcPrcpVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 
            
            calcPrcpTimeQty = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeQty)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000;     

            calcPrcpTimeVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeVol)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/

            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );   //1일
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol ); //1회
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty ); //1회
            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4")!= "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4" )>0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty );      
                }
            }            
        } else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) { // 용량을 수정했을 때: 수량 자동계산             
            //calcPrcpQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseQty)*1000; 
            //calcPrcpQty = Math.round(calcPrcpQty)/1000;               

            calcPrcpTimeQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseTimeQty)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000;                                 
            
            //calcPrcpVol = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseVol)*1000; 
            //calcPrcpVol = Math.round(calcPrcpVol)/1000;                               

            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1" && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){
                calcPrcpQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpVol = drprcpetc7 * PrcpTims;
            } else {
                calcPrcpQty = calcPrcpTimeQty;
				calcPrcpVol = drprcpetc7;
            }

            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end 
            
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty );     //1일
            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );     //1일
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty ); //1회
        } else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) { // 수량을 수정했을 때: 용량 자동계산      

            calcPrcpVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000;                 
                                            
            calcPrcpTimeVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseTimeVol)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
                            
            calcPrcpQty = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000;     

            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1" && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){
                calcPrcpQty = drprcpetc8 * PrcpTims;
                calcPrcpVol = calcPrcpTimeVol * PrcpTims;
            } else {
                calcPrcpQty = drprcpetc8;
              calcPrcpVol = calcPrcpTimeVol;
            }

            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );  
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty );                                  
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );  
            
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd" );
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!utlf_isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4")!= "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4" )>0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty );      
                }
            }
        } else if (flag =="prcptims"){     // 횟수가 변경될 경우 일회용량에 횟수를 곱해서 일일 총용량과 수량을 계산해서 넣어준다.
            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1" && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){
                ds_main_prcplist.setColumn(curRow, "prcpvol" , drprcpetc7 * PrcpTims);
                ds_main_prcplist.setColumn(curRow, "prcpqty" , drprcpetc8 * PrcpTims);
            }
        }
    } else {
        if ( flag == "prcpvol" ) { // 용량을 수정했을 때: 수량 자동계산
            calcPrcpQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(PrcpQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000; 

            calcPrcpTimeVol = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc7)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            calcPrcpTimeQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc8)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/
            
            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty);
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol);
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty);
        } else if ( flag == "prcpqty" ) { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd" );
            calcPrcpVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(PrcpVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 
            
            calcPrcpTimeVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc7)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            calcPrcpTimeQty = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc8)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 
                            
            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/
                            
            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );  
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );      
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );  
                            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!utlf_isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4")!= "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4" )>0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty );      
                }
            }
        } else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) { // 용량을 수정했을 때: 수량 자동계산  
             
            calcPrcpTimeQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(drprcpetc8)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

            calcPrcpVol = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 

            calcPrcpQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000; 

            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1" && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){
                calcPrcpQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpVol = drprcpetc7 * PrcpTims;
            } else {
                calcPrcpQty = calcPrcpTimeQty;
              calcPrcpVol = drprcpetc7;
            }

            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty );      
            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );      
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );
            
        } else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) { // 수량을 수정했을 때: 용량 자동계산      

            calcPrcpTimeVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(drprcpetc7)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            calcPrcpVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 

            calcPrcpQty = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000;     

            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1" && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){
                calcPrcpQty = drprcpetc8 * PrcpTims;
                calcPrcpVol = calcPrcpTimeVol * PrcpTims;
            } else {
                calcPrcpQty = drprcpetc8;
              calcPrcpVol = calcPrcpTimeVol;
            }

            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );  
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty );                                  
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );  
            
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd" );
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4")!= "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4" )>0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty );      
                }
            }
        } else if ( flag =="prcptims"){   
            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1"){
            var colHidnValue = lf_grdBaseColHidn("D");
                if (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H" ) {  // 일회용량과 관련된내용일 경우
                    ds_main_prcplist.setColumn(curRow, "prcpvol" , drprcpetc7 * PrcpTims);
                    ds_main_prcplist.setColumn(curRow, "prcpqty" , drprcpetc8 * PrcpTims);                    
                }
            }
        }   
    }    
}

/**@desc   : 용량, 수량, 횟수를 수정했을 때 값계산
 * @param  : flag : 용량, 수량, 횟수 변경 구분
           : curRow : 수정할 현재 row
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function DrugCalc2 ( flag, curRow ) {
    var PrcpNm = "";

    var PrcpVol = ds_main_prcplist.getColumn(curRow, "prcpvol");
    if ( utlf_isNull(PrcpVol) || PrcpVol == 0 ) {    
        PrcpVol = "1"; 
        if ( flag == "prcpvol") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm");
            sysf_messageBox ( PrcpNm + " 처방의 1일용량값이 없거나 0입니다.\n1일용량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "prcpvol", PrcpVol);
        }
    }

    var PrcpQty = ds_main_prcplist.getColumn(curRow, "prcpqty");
    if ( utlf_isNull(PrcpQty) || PrcpQty == 0 ){ 
        PrcpQty = "1"; 
        if ( flag == "prcpqty") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm");
            sysf_messageBox ( PrcpNm + " 처방의 1일수량값이 없거나 0입니다.\n1일수량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "prcpqty", PrcpQty);
        }
    }

    var PrcpTims = ds_main_prcplist.getColumn(curRow, "prcptims");
    if ( utlf_isNull(PrcpTims) || PrcpTims == 0 ) {  
        PrcpTims = "1"; 
        if ( flag == "prcptims") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm");
            sysf_messageBox ( PrcpNm + " 처방의 횟수값이 없거나 0입니다.\n횟수을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "prcptims", PrcpTims);
        }
    }

    var drprcpetc7 = ds_main_prcplist.getColumn(curRow, "drprcpetc7");
    if ( utlf_isNull(drprcpetc7) || drprcpetc7 == 0 || drprcpetc7 == "-") {  
        drprcpetc7 = "1"; 
        if ( flag == "drprcpetc7") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm");
            sysf_messageBox ( PrcpNm + " 처방의 1회용량값이 없거나 0입니다.\n1회용량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", drprcpetc7);
        }
    }

    var drprcpetc8 = ds_main_prcplist.getColumn(curRow, "drprcpetc8");
    if ( utlf_isNull(drprcpetc8) || drprcpetc8 == 0 || drprcpetc8 == "-") {  
        drprcpetc8 = "1"; 
        if ( flag == "drprcpetc8") {
            PrcpNm = ds_main_prcplist.getColumn(curRow, "prcpnm");
            sysf_messageBox ( PrcpNm + " 처방의 1회수량값이 없거나 0입니다.\n1회수량을 1로 초기화 합니다.", "I999" );
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", drprcpetc8); 
        }
    }
        
    var bfPrcpVol = ds_drugcalc.getColumn(0, "prcpvol");
    if ( utlf_isNull(bfPrcpVol) || bfPrcpVol == 0 ) {    
        bfPrcpVol = "1"; 
    }
    var bfPrcpQty = ds_drugcalc.getColumn(0, "prcpqty"); 
    if ( utlf_isNull(bfPrcpQty) || bfPrcpQty == 0 ) {    
        bfPrcpQty = "1"; 
    }
    var bfprcpTims = ds_drugcalc.getColumn(0, "prcptims"); 
    if ( utlf_isNull(bfprcpTims) || bfprcpTims == 0 ) {  
        bfprcpTims = "1"; 
    }
    var bfdrprcpetc7 = ds_drugcalc.getColumn(0, "drprcpetc7"); 
    if ( utlf_isNull(bfdrprcpetc7) || bfdrprcpetc7 == 0 ) {  
        bfdrprcpetc7 = "1"; 
    }
    var bfdrprcpetc8 = ds_drugcalc.getColumn(0, "drprcpetc8"); 
    if ( utlf_isNull(bfdrprcpetc8) || bfdrprcpetc8 == 0 ) {  
        bfdrprcpetc8 = "1"; 
    }
            
    var calcPrcpVol = 0;
    var calcPrcpQty = 0;
    var calcPrcpTimeVol = 0;
    var calcPrcpTimeQty = 0;
    
    //20090820 마정민 수정. 약인 경우는 최초의 용량 수량 비율로 계산하는 것으로 수정
    var drugmastspec = lf_getDsValue(ds_main_prcplist, curRow, "drugmastspec");
    
    var baseQty = lf_getArrayData ( drugmastspec + "^", 0, 31 , "^", "|" );
    var baseVol = lf_getArrayData ( drugmastspec + "^", 0, 32 , "^", "|" );

    var drugcntsvol = lf_getArrayData ( drugmastspec + "^", 0, 1 , "^", "|" );
    var drugstndvol = lf_getArrayData ( drugmastspec + "^", 0, 3 , "^", "|" );
    var drugpackvol = lf_getArrayData ( drugmastspec + "^", 0, 5 , "^", "|" );
    var drugbasevol = lf_getArrayData ( drugmastspec + "^", 0, 7 , "^", "|" );

    var baseTimeVol = drugcntsvol * drugbasevol / drugpackvol;
    var baseTimeQty = drugbasevol;
    
    var calcmthdcd = lf_getArrayData ( drugmastspec, 0, 26, "^", "|" ); 
    var colHidnValue = lf_grdBaseColHidn("D");
    
    if (ds_main_prcplist.getColumn(curRow, "prcpclscd" ).substring ( 0, 1 ) == "A" && !utlf_isNull(baseQty) && !utlf_isNull(baseVol)) {
        if ( flag == "prcpvol") { // 용량을 수정했을 때: 수량 자동계산
            calcPrcpQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000; 
            
            calcPrcpTimeQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeQty)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000;     

            calcPrcpTimeVol = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeVol)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/

            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty );      
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );               
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );                            
        } else if ( flag == "prcpqty") { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd" );
            calcPrcpVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 
            
            calcPrcpTimeQty = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeQty)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000;     

            calcPrcpTimeVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeVol)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/

            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );  
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );               
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );
            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!utlf_isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4") != "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4") > 0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty);      
                }
            }
        } else if ( flag == "drprcpetc7") { // 용량을 수정했을 때: 수량 자동계산
            calcPrcpQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000;                 

            calcPrcpTimeQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseTimeQty)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000;                                 
            
            calcPrcpVol = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000;                                 
            
            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1"){
                calcPrcpQty = calcPrcpQty * PrcpTims;
                calcPrcpVol = calcPrcpVol * PrcpTims;
            }
            
            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end             
            
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty ); 
            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol ); 
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );             
        } else if ( flag == "drprcpetc8" ) { // 수량을 수정했을 때: 용량 자동계산
            calcPrcpVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000;                 
                                            
            calcPrcpTimeVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseTimeVol)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
                            
            calcPrcpQty = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000;     

            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1"){
                calcPrcpQty = calcPrcpQty * PrcpTims;
                calcPrcpVol = calcPrcpVol * PrcpTims;
            }

            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol );  
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty );                                  
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );  
            
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd" );
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!utlf_isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4") != "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4") > 0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty);      
                }
            }
        } else if (flag =="prcptims"){   
            var colHidnValue = lf_grdBaseColHidn("D");
            if (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H" ) {  // 일회용량과 관련된내용일 경우
                ds_main_prcplist.setColumn(curRow, "prcpvol" , drprcpetc7 * PrcpTims);
                ds_main_prcplist.setColumn(curRow, "prcpqty" , drprcpetc8 * PrcpTims);                    
            }               
        }
    } else {
        if ( flag == "prcpvol" ) { // 용량을 수정했을 때: 수량 자동계산
            calcPrcpQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(PrcpQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000; 

            calcPrcpTimeVol = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc7)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            calcPrcpTimeQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc8)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/
            
            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty);      
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol);
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty);
        } else if ( flag == "prcpqty" ) { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd");
            calcPrcpVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(PrcpVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 
            
            calcPrcpTimeVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc7)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            calcPrcpTimeQty = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc8)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 
                        
            /*alert( "calcmthdcd=" + calcmthdcd );
            if(calcmthdcd == "1"){
                calcPrcpTimeQty = calcPrcpTimeQty * PrcpTims;
                calcPrcpTimeVol = calcPrcpTimeVol * PrcpTims;
            }*/
                            
            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol);  
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol);
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty);
                            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!utlf_isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4") != "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4") > 0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty);
                }
            }
        } else if ( flag == "drprcpetc7" ) { // 용량을 수정했을 때: 수량 자동계산
            calcPrcpTimeQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(drprcpetc8)*1000; 
            calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

            calcPrcpVol = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 

            calcPrcpQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000; 

            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1"){
                calcPrcpQty = calcPrcpQty * PrcpTims;
                calcPrcpVol = calcPrcpVol * PrcpTims;
            }
            
            //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
            var cnclInptTxt  = ds_main_prcplist.getColumn(curRow, "prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(ds_main_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty);
            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol);
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty);
        } else if ( flag == "drprcpetc8" ) { // 수량을 수정했을 때: 용량 자동계산
            calcPrcpTimeVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(drprcpetc7)*1000; 
            calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

            calcPrcpVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpVol)*1000; 
            calcPrcpVol = Math.round(calcPrcpVol)/1000; 

            calcPrcpQty = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpQty)*1000; 
            calcPrcpQty = Math.round(calcPrcpQty)/1000;     

            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1"){
                calcPrcpQty = calcPrcpQty * PrcpTims;
                calcPrcpVol = calcPrcpVol * PrcpTims;
            }

            ds_main_prcplist.setColumn(curRow, "prcpvol",    calcPrcpVol);
            ds_main_prcplist.setColumn(curRow, "prcpqty",    calcPrcpQty);
            ds_main_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol);
            ds_main_prcplist.setColumn(curRow, "drprcpetc8", drprcpetc8);
            
            var prcpclscd = ds_main_prcplist.getColumn(curRow, "prcpclscd" );
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!utlf_isNull(ds_main_prcplist.getColumn(curRow, "drprcpetc4")) && ds_main_prcplist.getColumn(curRow, "drprcpetc4") != "-" && ds_main_prcplist.getColumn(curRow, "drprcpetc4") > 0){
                    ds_main_prcplist.setColumn(curRow, "drprcpetc4", PrcpQty );      
                }
            }
        } else if (flag =="prcptims"){   
            var colHidnValue = lf_grdBaseColHidn("D");
            if (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H" ) {  // 일회용량과 관련된내용일 경우
                ds_main_prcplist.setColumn(curRow, "prcpvol" , drprcpetc7 * PrcpTims);
                ds_main_prcplist.setColumn(curRow, "prcpqty" , drprcpetc8 * PrcpTims);                    
            }               
        }   
    }    
}

/**@desc   : PreWorkUp 처리 오른쪽 마우스 클릭
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function fPreWorkUp () {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);

    for (var i = 0; i< selectedRows.length; i++) {
        if ( ds_main_prcplist.getColumn(selectedRows[i], "trnptbftestflag") == "Y" ) {
            ds_main_prcplist.setColumn(selectedRows[i], "trnptbftestflag", "N" )
        } else {
            ds_main_prcplist.setColumn(selectedRows[i], "trnptbftestflag", "Y" )
        }

        lf_makePrcpNm( "ds_main_prcplist", selectedRows[i] );
        
        fSetCpVal(selectedRows[i], "U");
    }
}

/**@desc   : 입원전 검사처방(당일)처리 오른쪽 마우스 클릭
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function fPreHosInPrcp () {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);

    for (var i = 0; i < selectedRows.length; i++) {        
        if (ds_main_prcplist.getColumn(selectedRows[i], "status" )=="S") continue;
        if ( ds_main_prcplist.getColumn(selectedRows[i], "prcpkindcd" ) == "90" ) {
            ds_main_prcplist.setColumn(selectedRows[i], "prcpkindcd", "20" )
        } else {
            ds_main_prcplist.setColumn(selectedRows[i], "prcpkindcd", "90" )
        }

		lf_makePrcpNm( "ds_main_prcplist", selectedRows[i]);
        
        fSetCpVal(selectedRows[i], "U");
    }
}

/**@desc   : 입원전 검사처방(전일)처리 오른쪽 마우스 클릭
 * @return : void
 * @authur : 마정민 2007. 7. 21
 */
function fPreHosInPrcpBf () {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);

    for (var i = 0; i < selectedRows.length; i++) {
        if (ds_main_prcplist.getColumn(selectedRows[i], "status" )=="S") continue;
        if ( ds_main_prcplist.getColumn(selectedRows[i], "prcpkindcd" ) == "95" ) {
            ds_main_prcplist.setColumn(selectedRows[i], "prcpkindcd", "20" )
        } else {
            ds_main_prcplist.setColumn(selectedRows[i], "prcpkindcd", "95" )
        }

        lf_makePrcpNm( "ds_main_prcplist", selectedRows[i]);
        
        fSetCpVal(selectedRows[i], "U");
    }
}

/**@desc   : BMT주사실 처방을 구분 체크
 * @return : void
 * @authur : 마정민 2009. 02. 17
 */
function fBMTShot() {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);

    for (var i = 0; i < selectedRows.length; i++) {
        if (ds_main_prcplist.getColumn(selectedRows[i], "status" )=="S") continue;
        if ( ds_main_prcplist.getColumn(selectedRows[i], "drprcpetc2" ) == "B" ){
            ds_main_prcplist.setColumn(selectedRows[i], "drprcpetc2", "" )
        } else {
            ds_main_prcplist.setColumn(selectedRows[i], "drprcpetc2", "B" )
        }   

        lf_makePrcpNm( "ds_main_prcplist", selectedRows[i]);
        
        fSetCpVal(selectedRows[i], "U");
    }
}

/**@desc   : 정규, 추가처방 처리
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function fPrcpDdCheck() {
    //DUR-S
    //by sonjy 20091207 처방일자가 바뀔때 이전 difguid초기화 
    // durappyn : "A:DUR전체사용", "Y:DUR중 저함량제외", "나머지:DUR 사용안함", "K:경북대용 DUR"
    if ( ds_initsrch_durappyn.getColumn(0, "trgtcd") == "A" || ds_initsrch_durappyn.getColumn(0, "trgtcd") == "Y") {
        ds_init.setColumn(0, "bf_difguid", "");
    }
    //DUR-E
    
    var cnt = 0;
    
    if ( ds_main_prcplist.rowcount > 0 )    {
        var rtnmsg = sysf_messageBox( "날짜를 수정하시면 " + lf_dateFormat(ds_init.getColumn(0, "prcpdd")) + "일 처방으로 변경됩니다.\n희망일자도 같이 변경", "S001");
        if ( rtnmsg == "6" || rtnmsg == "7" ) {
            bfPrcpdd = ds_init.getColumn(0, "prcpdd");

            for (var i = ds_main_prcplist.rowcount - 1; i >= 0; i--) {
                if ( ds_main_prcplist.getColumn(i, "status") == "I" ){
                    fPrcpBuffer( ++cnt, i, "ds_prcpdrag_prcplist", "ds_main_prcplist" );
                }
            }
            
            ds_main_prcplist.clearData();
            lf_appendChildPrcp ( "ds_reset_prcplist", "ds_main_prcplist", "main" ); //검색라인추가 
        } else {
            ds_init.setColumn(0, "prcpdd", bfPrcpdd);
            return;
        }
    } else {
        bfPrcpdd = ds_init.getColumn(0, "prcpdd");
        ds_main_prcplist.clearData();
        lf_appendChildPrcp ( "ds_reset_prcplist", "ds_main_prcplist", "main" ); //검색라인추가 
    }

    if ( ds_init.getColumn(0, "prcpkindcd") == "80" ) return;

    /*var prcpdd = model.getValue ( "/root/init/prcpdd" );      

    if ( eval (getCurrentTime().substr (0,2)) <= 4 && prcpdd == getCurrentDate()) {
       //처방종류: 당일이고 4시전이면 정규
       model.setValue ( "/root/init/prcpkindcd", "10" );
    } else if ( eval(prcpdd) > eval(getCurrentDate())) {
       //처방종류: 오늘이후 처방일이면 정규
       model.setValue ( "/root/init/prcpkindcd", "10" );
    } else {
        //아니면 추가
       model.setValue ( "/root/init/prcpkindcd", "20" );
    }*/
    
    fInitSrch();
    fTempPrcp(); //임시처방 호출
    if ( cnt > 0 ) {
        fPrcpPaste( rtnmsg );
    }
    
    div_all.grd_prcplist.setFocus();
    
    var row = ds_main_prcplist.rowcount - 1;
    ds_main_prcplist.selectRow(row);
	ds_main_prcplist.rowposition = row;			
	div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getCellPos());
}

/**@desc   : 임시처방처리
 * @return : void
 * @param  : flag : 저장하고 호출하는 건지 check
 * @authur : 마정민 2007. 5. 10
*/
function fTempPrcp (flag) {
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag" );
    if ( ds_initsrchprcp_prcpetccnts.getColumn(0, "temprsrvprcpyn") != "N") {
        var orddd = "";
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
            orddd = ds_paminfo.getColumn(0, "orddd" );
        } else {
            orddd = ds_paminfo.getColumn(0, "indd" );
        }
        var cnt = 0;        
        var prcpdd = ds_init.getColumn(0, "prcpdd");
        if ( utlf_isNull(prcpdd)) prcpdd = utlf_getCurrentDate(); 

        ds_send.setColumn(0, "cond1", ds_paminfo.getColumn(0, "pid" ));     //환자ID
        ds_send.setColumn(0, "cond2", orddd );                              //외래:진료일, 입원:입원일
        ds_send.setColumn(0, "cond4", prcpdd);                              //임시처방구분
        ds_send.setColumn(0, "cond5", "rsrv" );                             //전처방구분:예약처방 
        ds_send.setColumn(0, "cond6", "" );                                 //전처방구분:예약처방 

        ds_send.setColumn(0, "cond9", prcpgenrflag );                                            
        ds_send.setColumn(0, "cond11", ds_paminfo.getColumn(0, "cretno" ));  //생성번호
        ds_send.setColumn(0, "cond14", ds_init.getColumn(0, "prcpdd" ));  //생성번호
        ds_send.setColumn(0, "cond99", "getBfPrcpSrchInfo"); //검색구분
        
        var oParam = {};
			oParam.id       = "TRMMO00100";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpSrchInfo";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_prcpsrch_prcplist=prcplist";
			oParam.async    = false;

		tranf_submit(oParam);
		
		dsf_setDefaultVal(ds_prcpsrch_prcplist, "prcpvol:0,prcpvolunitnm:-,prcpqty:0,prcpqtyunitnm:-,prcptims:0,prcpdayno:0,drugmthdspccdnm:-,hosinprcpresncd:00,drugmthdspccd:-,hsctdelivepos:0,druglnkno:0,dnorreqlnkno:0,subcretno:0,drgacptflag:-");

        var sPrcpHistCd = ds_prcpsrch_prcplist.getColumn(0, "prcphistcd");
        if ( sPrcpHistCd == "T" ) {
			ds_main_prcplist.copyData(ds_prcpsrch_prcplist);

            lf_appendChildPrcp ( "ds_reset_prcplist", "ds_main_prcplist", "main" ); //검색라인추가
            ds_main_prcplist.rowposition = -1;
        } else if ( sPrcpHistCd == "X" && flag != "save") { //저장하고 나서는 임시저장된 데이터가 있으면 화면에 보여준다.
            var mon = sysf_getCurrentMonitorNumber();
			var xpt = this.getOwnerFrame().position.x + 100;
			var ypt = this.getOwnerFrame().position.y + 100;

			var objArg = new Object();
			objArg.arg_ds_main_prcplist = ds_prcpsrch_prcplist;

			frmf_modal("SPMMO00700", "SPMMO00700", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        }
    }

    //응급의학 관리료 증상관리 창 팝업.
    if (ds_initsrchprcp_prcpetccnts.getColumn(0, "erprcpyn" ) == "Y" ){
        frmf_setParameter ( "SMMMO00100_cond1", "Y" );
        lf_prcpModal ( "SMMMO06100", null, 0, 0 );
        div_all.grd_prcplist.setFocus();
    }
    
    ds_prcpsrch_prcplist.clearData();
}

/**@desc   : 진단검색
 * @param  : flag : 진단명검색, 코드검색
 * @return : void
 * @authur : 마정민 2007. 5. 10
*/
function fDiagSrch ( flag ) {
    //if(event.keyCode == "13" && flag != "addprcp" ) {
    if(flag != "addprcp" ) {
		var currow = ds_main_diagcdlist.rowposition;
        var diagnm = "";
        if ( flag == "diagnm" ) {
            ds_main_diagcdlist.setColumn(currow, "icd10cd", "");
            diagnm = ds_main_diagcdlist.getColumn(currow, "diagengnm");
            srchflag = "2";
            ds_init.setColumn(0, "diagsrchcond1", "2"); //단어검색으로 수정
        } else if ( flag == "icd10cd" ) {
            ds_main_diagcdlist.setColumn(currow, "diagengnm", "");
            diagnm = ds_main_diagcdlist.getColumn(currow, "icd10cd");
            srchflag = "1";
            ds_init.setColumn(0, "diagsrchcond1", "1");
        }
        
        if(utlf_isNull(diagnm))
			return;
        
        var isHangul = utlf_isHangul (diagnm);
        if ( utlf_isNull(diagnm)) { //한글일때는 1글자만 넣어도 검색가능        
            sysf_messageBox ( "진단 검색어를", "C001" );
            return;
        } else if ( isHangul == "E" ){
            if ( diagnm.length < 2 ){ //영문,숫자일때는 3글자 넣어야 검색가능
                sysf_messageBox ( "2글자 이상", "C001" );
                return;
            }   
        }

        frmf_setParameter ( "SPMMO00800_cond1", srchflag );
        frmf_setParameter ( "SPMMO00800_cond2", ds_init.getColumn(0, "diagsrchcond1"));
        frmf_setParameter ( "SPMMO00800_cond3", isHangul );
        frmf_setParameter ( "SPMMO00800_cond4", ds_init.getColumn(0, "prcpdd"));
        frmf_setParameter ( "SPMMO00800_cond5", diagnm );
        frmf_setParameter ( "SPMMO00800_srchmode", "P" );
        
        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 200;
		var ypt = this.getOwnerFrame().position.y + 110;
							
		frmf_modal("SPMMO00800", "SPMMO00800", null, false, mon, xpt, ypt, null, null, null, null, null, "M");

        if ( frmf_getParameter( "SPMMO00800_rtn_useyn" ) == "Y" ) {
            lf_addDiagSetValue (frmf_getParameter( "SPMMO00800_rtn" ));
            frmf_setParameter( "SPMMO00800_rtn_useyn", "" );
        }
      
        // 처방 메인화면에서 진단코드나 진단명 입력 후 다음 셀에 edit 상태 생성 - 20081124 by MoonSH 
        if ( flag == "diagnm" ) {
			ds_main_diagcdlist.selectRow(ds_main_diagcdlist.rowcount - 1);
			div_all.grd_diaglist.setCellPos(div_all.grd_diaglist.getBindCellIndex("body", "diagnm"));
			this.setTimer(1, 1);		// 편집상태로
        } else if ( flag == "icd10cd" ) { 
			ds_main_diagcdlist.selectRow(ds_main_diagcdlist.rowcount - 1);
			div_all.grd_diaglist.setCellPos(div_all.grd_diaglist.getBindCellIndex("body", "icd10cd")); 
			this.setTimer(1, 1);		// 편집상태로
        } 
    } else if ( flag == "addprcp" ){
        lf_appendChildPrcp ( "ds_reset_diagcdlist", "ds_main_diagcdlist", "main" );
        
        frmf_setParameter ( "SPMMO00800_cond1", "1" );
        frmf_setParameter ( "SPMMO00800_cond2", "1");
        frmf_setParameter ( "SPMMO00800_cond3", "E" );
        frmf_setParameter ( "SPMMO00800_cond4", ds_init.getColumn(0, "prcpdd"));
        
        frmf_setParameter ( "SPMMO00800_cond5", ds_initsrch_prcpetccnts.getColumn(0, "pamdiagcd"));

        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 200;
		var ypt = this.getOwnerFrame().position.y + 110;
							
		frmf_modal("SPMMO00800", "SPMMO00800", null, false, mon, xpt, ypt, null, null, null, null, null, "M");
        
        if ( frmf_getParameter( "SPMMO00800_rtn_useyn" ) == "Y" ) {
            lf_addDiagSetValue (frmf_getParameter( "SPMMO00800_rtn" ));
            frmf_setParameter( "SPMMO00800_rtn_useyn", "" );
            var srcNodeList = model.instances(0).selectNodes("/root/main/diaginfo/diagcdlist");
            for ( var i= 0; i < ds_main_diagcdlist.rowcount; i++){       
                if ( ds_main_diagcdlist.getColumn(i, "status") == "S" ) {
					ds_main_diagcdlist.deleteRow(i);
                }
            }
        }
    }
}

/**@desc   : 진단삭제
 * @id     : grd_prcplist
 * @event  : onmousedown
 * @return : void
 * @authur : 마정민 2007. 5. 15 
 */
function fDiagDeleteRow() {
    
    //시행부서 화면에서는 진단 수정, 삭제 불가
    if ( ds_root.getColumn(0, "addprcp") == "Y" ){
        return;
    }
    
    ds_main_diagcdlist.enableevent = false;

    var selectedRows = grdf_getSelectedRows(div_all.grd_diaglist);
    var chkcnt = 0;

    for (var i = selectedRows.length - 1; i >= 0; i--){
        var icd10cd        = ds_main_diagcdlist.getColumn(selectedRows[i], "icd10cd");
        var diagkindcdflag = ds_main_diagcdlist.getColumn(selectedRows[i], "diagkindcdflag");

        if ( ds_patflag.getColumn(0, "prcpgenrflag") == "O" && chkcnt == 0) {
            if ( !utlf_isNull(ds_initsrch_diagautocnts.getColumn(0, "trgtcd")) ) {
                if (ds_init.getColumn(0, "hosinprcpresncd") != "00" ) { //원내처방 사유가 있을 경우
                    for ( var j = 0; j < ds_initsrch_diagautocnts.rowcount; j++ ) {
                        var trgtcdnmArray = ds_initsrch_diagautocnts.getColumn(j, "trgtcdnm");
                        var fromTrgtcdnm  = lf_getArrayData ( trgtcdnmArray + "^", 0, 0, "^", "|" );
                        var toTrgtcdnm    = lf_getArrayData ( trgtcdnmArray + "^", 0, 1, "^", "|" );
                        var cdlength      = fromTrgtcdnm.length;
                        var icd10Chck     = icd10cd.substring( 0, cdlength );
                        if ( icd10Chck >= fromTrgtcdnm && icd10Chck <= toTrgtcdnm  ) { //해당 진단검색안에 값이 있다면
                            var hosinprcpresncd = ds_initsrch_diagautocnts.getColumn(j, "trgtcd");
                            //삭제 진단의 원내처방 사유가 init 의 원내처방 사유와 같다면 clear 를 물어본다.
                            if ( hosinprcpresncd == ds_init.getColumn(0, "hosinprcpresncd") ) {
                                //주상병이든 원내처방사유 23일 때만 적용
                                if ( diagkindcdflag == "M" || hosinprcpresncd == "23" ) {
                                    chkcnt++; //한번물어보면 더이상 물어보지 않기 위해 체크한다.
                                    if (sysf_messageBox ( "원내처방 [" + div_all.cmb_hosinprcpresn.text + "]" + "\n관련된 진단을 삭제하셨습니다. 원내처방사유를 적용을", "Q007" ) == "6" ) {
                                        ds_init.setColumn(0, "hosinprcpresncd", "00");
                                        
                                        for ( var k = 0; k < ds_main_prcplist.rowcount; k++ ) {
                                            var prcpclscd = ds_main_prcplist.getColumn(k, "prcpclscd");
                                            if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) { //약,주사
                                                var prcphosinprcpresncd = ds_main_prcplist.getColumn(k, "hosinprcpresncd");
                                                //원내처방사유가 약에 관련된 것이 있다면 적용하지 않는다.
                                                //저장할 때 일괄적용
                                                if ( !lf_pamHosinPrcpResnCdChk(hosinprcpresncd)) {
                                                    ds_main_prcplist.setColumn(k, "hosinhosoutflag", "O");
                                                    ds_main_prcplist.setColumn(k, "hosinprcpresncd", "00");
                                                }
                                            } //약,주사 end
                                        } //처방검색 end
                                        ds_paminfo.setColumn(0, "hosoutexptresncd" , "00");
                                        break; //값을 setting 하면 빠져나온다.
                                    } //icd10cd == trgtcdnm end
                                } //진단검색 end
                            }
                        }
                    }
                } //원내처방 사유 여부
            }//진단초기값 여부 end
        } //외래end

        var status = ds_main_diagcdlist.getColumn(selectedRows[i], "status" );

        if ( status == "-" || status == "U" || status == "T" ) {
            //수정한 데이터를 원복시킨다.
            var diagdd     = ds_main_diagcdlist.getColumn(selectedRows[i], "diagdd" );
            var diagno     = ds_main_diagcdlist.getColumn(selectedRows[i], "diagno" );
            var diaghistno = ds_main_diagcdlist.getColumn(selectedRows[i], "diaghistno" );
            
            var findRow = ds_diagorg_diagcdlist.findRowExpr("diagdd == '" + diagdd + "' && diagno == '" + diagno + "' && diaghistno == '" + diaghistno + "'");            
            ds_main_diagcdlist.copyRow(selectedRows[i], ds_diagorg_diagcdlist, findRow);

            ds_main_diagcdlist.setColumn(selectedRows[i], "status", "D" );
        } else if ( status == "I" ){
			ds_main_diagcdlist.deleteRow(selectedRows[i]);
        } else if ( status == "S" ) {
            ds_main_diagcdlist.setColumn(selectedRows[i], "diagengnm", "" );
        }   
    }
    
    ds_main_diagcdlist.enableevent = true;
    
    div_all.grd_diaglist_fixrow.position.width = div_all.grd_diaglist.position.width
	                                             - (div_all.grd_diaglist.vscrollbar.visible ? div_all.grd_diaglist.vscrollbar.position.width : 0);
}

function fDiagCnclRow() {
	ds_main_diagcdlist.enableevent = false;
	
    var selectedRows = grdf_getSelectedRows(div_all.grd_diaglist);

    for (var i = selectedRows.length - 1; i >= 0; i--){
        var status = ds_main_diagcdlist.getColumn(selectedRows[i], "status");
        if ( status == "D" || status == "U") {
            //수정한 데이터를 원복시킨다.
            var diagdd     = ds_main_diagcdlist.getColumn(selectedRows[i], "diagdd" );
            var diagno     = ds_main_diagcdlist.getColumn(selectedRows[i], "diagno" );
            var diaghistno = ds_main_diagcdlist.getColumn(selectedRows[i], "diaghistno" );
            
            var findRow = ds_diagorg_diagcdlist.findRowExpr("diagdd == '" + diagdd + "' && diagno == '" + diagno + "' && diaghistno == '" + diaghistno + "'");            
            ds_main_diagcdlist.copyRow(selectedRows[i], ds_diagorg_diagcdlist, findRow);
        }
    }
    
    ds_main_diagcdlist.enableevent = true;
}

/**@desc   : 진단 수정
 * @       : 신규일때는 수정표시 안함.
 * @event  : xforms-value-changed
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fDiagUpdate() {
    var status = ds_main_diagcdlist.getColumn(ds_main_diagcdlist.rowposition, "status" );
    if ( status == "-" || status == "T" ) {
        ds_main_diagcdlist.setColumn(ds_main_diagcdlist.rowposition, "status", "U" );
    }
}

/**@desc   : 진단 조회
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fPatDiagSrch(sPrcpFlag) {
    if (utlf_isNull(sPrcpFlag)){
        sPrcpFlag = "prcp"
    }
    
    var bTRMMO00105 = false; // 진단조회 서브밋 성공 여부
    var sPrcpGenrFlag = ds_patflag.getColumn(0, "prcpgenrflag");
        
    if(sPrcpFlag == "save") { // 처방 저장후 호출시에는 데이터 조회 하도록 수정.
        bTRMMO00105 = true;
    } else {
        var sOrdDd        = "";
        var sCretNo       = ""; 
        var sOrdDrId      = "";
        
        var ds_formerkey = this.objects["ds_formerkey"];
        var sPseuAcptFlag = utlf_isNull(ds_formerkey) ? "" : ds_formerkey.getColumn(0, "pseuacptflag" );  //시행부서처방가접수
        
        if ( sPrcpGenrFlag == "O" || sPrcpGenrFlag == "S" ) {
            sOrdDd   = ds_paminfo.getColumn(0, "orddd");
            sOrdDrId = ds_paminfo.getColumn(0, "orddrid");
            sCretNo  = ds_paminfo.getColumn(0, "cretno");
        } else {
            sOrdDd   = ds_paminfo.getColumn(0, "indd");
            sOrdDrId = ds_paminfo.getColumn(0, "medispclid");
            sCretNo  = ds_paminfo.getColumn(0, "cretno");
        }
        if ( sPseuAcptFlag == "Y" ) {
            sOrdDd  = ds_formerkey.getColumn(0, "orddd_old");
            sCretNo = ds_formerkey.getColumn(0, "cretno_old");
        }  
        
        ds_send.setColumn(0, "cond1", ds_paminfo.getColumn(0, "pid"));
        ds_send.setColumn(0, "cond2", sOrdDd);
        ds_send.setColumn(0, "cond3", sCretNo);
        ds_send.setColumn(0, "cond4", ds_paminfo.getColumn(0, "orddeptcd")); 
        ds_send.setColumn(0, "cond5", sPrcpGenrFlag);
        ds_send.setColumn(0, "cond6", sOrdDrId );
        ds_send.setColumn(0, "cond7", sPrcpFlag ); //처방구분
        
        ds_send.setColumn(0, "cond8", ds_initsrch_envinfo.lookup("qestcd", '050', "answcnt")); //직전 진단 Copy 개인설정(001:진료의 진단만 Copy, 002:진료의 진단이 없으면 진료과 진단 Copy) 2014.01.06 엄영만
                
        var oParam = {};
			oParam.id       = "TRMMO00105";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPatDiagInfo";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_main_diagcdlist=diagcdlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO00105";

		tranf_submit(oParam);
		
		bTRMMO00105 = (arErrorCode.pop("TRMMO00105") < 0) ? false : true;
    } 
    
    if (bTRMMO00105) {
        /********** 외래일 경우 원내처방 사유가 있는 진단인지 체크한다. **********/
        for ( var i = 0; i < ds_main_diagcdlist.rowcount; i++ ) { 			
            var sIcd10Cd        = ds_main_diagcdlist.getColumn(i, "icd10cd");
            var sDiagKindCdFlag = ds_main_diagcdlist.getColumn(i, "diagkindcdflag");
            lf_checkDiagHosinpPcp(sIcd10Cd, sPrcpGenrFlag, sDiagKindCdFlag); 
        } 
        
        if ( sPrcpFlag == "prcp" || sPrcpFlag == "save") { 
            lf_appendChildPrcp("ds_reset_diagcdlist", "ds_main_diagcdlist", "main"); //검색라인추가 
            
            if ( ds_main_diagcdlist.rowcount > 0) {
				ds_diagorg_diagcdlist.copyData(ds_main_diagcdlist);
            }
        }
    }
}

function cf_TRMMO00105(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : 투약일수 조회
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fMediDayNo() {
	var xpt = this.getOwnerFrame().position.x + 397;
	var ypt = this.getOwnerFrame().position.y + ds_main_prcplist.rowposition * 24 + div_all.grd_prcplist.position.y + 96;
    
    frmf_modal("SPMMO02300", "SPMMO02300", null, null, 1, xpt, ypt, null, null, null, null, null, "M");
}

/**@desc   : 진단상세보기
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fDiagDetlVw() {
	if ( ds_init.getColumn(0, "diagdetlvw") == "p" ) {
		if ( ds_main_diagcdlist.rowcount >= 3 ) {
			var height = 99 + ( ds_main_diagcdlist.rowcount - 3 ) * grd_row_height;
			if(height > 770) height = 770;
			
			div_all.grd_diaglist.position.height = height;
		}

		ds_init.setColumn(0, "diagdetlvw", "m");
	} else {
		div_all.grd_diaglist.position.height = 99;
			
		ds_init.setColumn(0, "diagdetlvw", "p");
	}
	
	div_all.grd_diaglist_fixrow.position.width = div_all.grd_diaglist.position.width
	                                             - (div_all.grd_diaglist.vscrollbar.visible ? div_all.grd_diaglist.vscrollbar.position.width : 0);
}

/**@desc   : 치식
 * @return : void
 * @authur : 마정민 2007. 5. 30
 */
function fDentifmla (flag) {
    //처방 치식 setting 시작
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var prcpNm = "";
    var tootFact = "";

    var sPrcpStr = "prcpcd▦tootfact▦rtntootfact▦rowcnt▩"; 
    var cnt = 0;

    for ( var i = selectedRows.length - 1; i >= 0; i-- ) {
		var iRow = selectedRows[i];
            
        var prcpessninptflag = ds_main_prcplist.getColumn(iRow, "prcpessninptflag")
        var chkprcpstatus    = ds_main_prcplist.getColumn(iRow, "status")
        var tempcol2         = ds_main_prcplist.getColumn(iRow, "tempcol2"); //처방 대분류, 중분류 조건 추가 (2009.10.26 by JJE)
        
        //기존에는 처방필수입력이 치식필수인 경우에만 치식팝업 떴으나, 처방 대분류+중분류 조건 추가 (2009.10.26 by JJE)
        if ( (prcpessninptflag == "2" || (prcpessninptflag == "5" && tempcol2.substr(0, 5) == "17|02") ) && chkprcpstatus != "S" ) {
            prcpNm   = ds_main_prcplist.getColumn(iRow, "prcpcd") + "▦▦";
            tootFact = ds_main_prcplist.getColumn(iRow, "tootfact") + "▦" + iRow +"▩";
            sPrcpStr = sPrcpStr + prcpNm + tootFact;
            frmf_setParameter("param_prcplist", sPrcpStr);
            cnt++;
        } else {
			ds_main_prcplist.selectRow(iRow, false);
        }
    } //처방 치식 setting 끝

    //진단 치식 setting 시작
    var selectedDiagRows = grdf_getSelectedRows(div_all.grd_diaglist);
    var sDiagStr = "diagcd▦tootfact▦rtntootfact▦rowcnt▩"; 

    for ( var i = selectedDiagRows.length - 1; i >= 0; i-- ) {
        var chkdiagstatus = ds_main_diagcdlist.getColumn(selectedDiagRows[i], "status")
        if ( chkdiagstatus != "S" ) {
            diagNm = ds_main_diagcdlist.getColumn(selectedDiagRows[i], "diagcd") + "▦▦";
            tootFact = ds_main_diagcdlist.getColumn(selectedDiagRows[i], "tootfact") + "▦" + selectedDiagRows[i] +"▩";
            sDiagStr = sDiagStr + diagNm + tootFact;
            frmf_setParameter("param_diaglist", sDiagStr);
            cnt++;
        } else {
			ds_main_diagcdlist.selectRow(selectedDiagRows[i], false);
        }
    }

    if ( cnt == 0 ) {
        sysf_messageBox ( "선택된 치식입력 정보가", "E014" );
        return;
    }

    frmf_modal("SPMMO10500", "SPMMO10500", null, null, null, null, null, null, null, null, null, null, "M");

    if ( frmf_getParameter("rtn_useyn") == "Y" ) {        
        var prow = 0;
        var ptootfact = "";
        var drow = 0;
        var dtootfact = "";
        
        var desPrcpNode = "ds_main_prcplist";
        if(flag == "OP"){ //처방화면에서 직접 호출한 경우, desPath가 다르므로 치환한다 (2009.10.27 JJE)
            desPrcpNode = "ds_prcptemp_prcplist";
        }
        
        var ds_prcp = this.objects[desPrcpNode];
        
        var prcplen = frmf_getParameter("rtn_prcptootfact").split("▩").length;
        for ( var i = 1; i < prcplen - 1; i++ ) {	// 인덱스 1부터 맞는지 확인필요
            prow      = lf_getArrayData ( frmf_getParameter("rtn_prcptootfact"), i, 3, "▩", "▦" ); //치식이 입력될 row
            ptootfact = lf_getArrayData ( frmf_getParameter("rtn_prcptootfact"), i, 2, "▩", "▦" )//치식
            
            //처방 치과 수술팝업 입력 시 치식팝업 호출의 경우 prcptemp를 이용하므로 prow 사용하면 안됨. 오류 수정 (JJE 2009.11.03)
            /*
            model.setValue ( desPrcpNode + "[" + prow + "]/tootfact", ptootfact);  
            var prcpstatus = model.getValue ( desPrcpNode + "[" + prow + "]/status" );
            */
            if(flag == "OP"){
                ds_prcp.setColumn(0, "tootfact", ptootfact);  
                var prcpstatus = ds_prcp.getColumn(0, "status");
            }else{
                ds_prcp.setColumn(prow, "tootfact", ptootfact);  
                var prcpstatus = ds_prcp.getColumn(prow, "status");
            }
            
            //if (prcpstatus=="-") {
            //  model.setValue ( desPrcpNode + "[" + prow + "]/status", "U" );
            //}
        }
        
        var diaglen = frmf_getParameter("rtn_diagtootfact").split("▩").length;
        for ( var i = 1; i < diaglen - 1; i++ ) {	// 인덱스 1부터 맞는지 확인필요
            drow      = lf_getArrayData (frmf_getParameter("rtn_diagtootfact"), i, 3, "▩", "▦" );
            dtootfact = lf_getArrayData (frmf_getParameter("rtn_diagtootfact"), i, 2, "▩", "▦" );
            ds_main_diagcdlist.setColumn(drow, "tootfact", dtootfact);  
            var diagstatus = ds_main_diagcdlist.getColumn(drow, "status" );
            if (diagstatus == "-") {
				ds_main_diagcdlist.setColumn(drow, "status", "U");
            }
        }
    }

    frmf_clearParameter ("param_prcplist");
    frmf_clearParameter ("param_diaglist");
    frmf_clearParameter ("rtn_prcptootfact");
    frmf_clearParameter ("rtn_diagtootfact");
}

/**@desc   : 전달사항 일괄입력
 * @param  : flag: M double click 인지 일괄입력인지 구분자
 * @return : void
 * @authur : 마정민 2007. 5. 30
 */
function fPrcpdelivefact( flag ) {
	var currow = ds_main_prcplist.rowposition;
    var xpt    = 395;
    var ypt    = currow * grd_row_height + 177;

    if ( flag == "M" ) {
        if ( ds_main_prcplist.getColumn(currow, "status" ) != "S"  ) {
            frmf_setParameter ( "prcpdelivefac", ds_main_prcplist.getColumn(currow, "prcpdelivefact"));
            lf_prcpModal ( "SPMMO10800", xpt, ypt );
            ds_main_prcplist.setColumn(currow, "prcpdelivefact", frmf_getParameter ( "rtn_prcpdelivefac" )); 
        }
    } else {
        var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
        if ( selectedRows.legnth > 0 ) {
            lf_prcpModal ( "SPMMO10800", xpt, ypt );
        }
        for ( var i = 0; i < selectedRows.length; i++ ){
            if ( ds_main_prcplist.getColumn(selectedRows[i], "status" ) != "S"  ) {
                ds_main_prcplist.setColumn(selectedRows[i], "prcpdelivefact", frmf_getParameter ( "rtn_prcpdelivefac" ));  
            }
        }
    }
}

/**@desc   : 처방상세 일괄입력
 * @param  : 
 * @return : void
 * @authur : 마정민 2007. 6. 30
 */
function fPrcpDetlCom() {
    var xpt = 510;
    var ypt = 180;  
    
    var header = "";
    var useyn = "";
    var value = "";
    var cnt = 0;

    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var prcpclscd    = ds_main_prcplist.getColumn(selectedRows[0], "prcpclscd");
    var prnscrID     = frmf_getScreenID(); 
    
    //fPrcpModal ( "SPMMO   10400", xpt, ypt ); //일괄입력 공통
    if ( prcpclscd == "A2" || prcpclscd == "A4" ) { //약
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != "A2" && selprcpclscd != "A4"  ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if (cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            frmf_setParameter ( "SPMMO12100_prnchk", prnscrID); 
            lf_prcpModal ( "SPMMO12100", xpt, ypt );
        }
    } else if ( prcpclscd == "A6" ) { //주사
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            frmf_setParameter ( "SPMMO12200_prnchk", prnscrID); 
            lf_prcpModal ( "SPMMO12200", xpt, ypt );
        }
    } else if ( prcpclscd == "F2" ) {  //재활
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO11200", xpt, ypt );
        }
    } else if ( prcpclscd == "C2" || prcpclscd == "C6" || prcpclscd == "E2" ) { 
        //방사선 검사(기능검사, 내시경,천자,생검, 방사선, 핵의학영상, 방사선치료)
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != "C2" && selprcpclscd != "C6" && selprcpclscd != "E2"  ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            frmf_setParameter ( "SPMMO12300_prcpclscd", prcpclscd );
            lf_prcpModal ( "SPMMO12300", xpt, ypt );
            frmf_setParameter ( "SPMMO12300_prcpclscd", "" );
        }
    } else if ( prcpclscd == "B2" || prcpclscd == "B6" ) { //진단검사 (검체검사), 핵의학 체내
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != "B2" && selprcpclscd != "B6" ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            frmf_setParameter ( "SPMMO12400_prcpclscd", prcpclscd );
            lf_prcpModal ( "SPMMO12400", xpt, ypt );
            frmf_setParameter ( "SPMMO12400_prcpclscd", "" );
        }
    } else if ( prcpclscd == "H2" ) {  //수술, 처치, 치과
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != "H2" && selprcpclscd != "H4" ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO12600", xpt, ypt );
        }
    } else if ( prcpclscd == "K2" ) { 
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != "K2" ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO13500", xpt, ypt );
        }
    } else if ( prcpclscd == "03" ) {  //식이                
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO12700", xpt, ypt );
        }
    } else if ( prcpclscd == "I2" || prcpclscd == "I4" ) {  //마취
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != "I2" && selprcpclscd != "I4") {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO12800", xpt, ypt );
        }
    } else if ( prcpclscd == "C4" ) {  //angio
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO12900", xpt, ypt );
        }
    } else if ( prcpclscd == "D2" ) {  //병리
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO13000", xpt, ypt );
        }
    } else if ( prcpclscd == "M2" ) {  //재료
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO13600", xpt, ypt );
        }
    } else if ( prcpclscd == "G2" ) { //RT
		for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO13700", xpt, ypt );  
        }
    } else if ( prcpclscd == "H4" ) { //처치
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO13800", xpt, ypt );
        }
    } else if ( prcpclscd == "B4" ) { //수혈 (혈액수혈)
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            lf_prcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            lf_prcpModal ( "SPMMO12500", xpt, ypt );
        }
    } else if ( fSubcretnoSet("3", null) == 0 ) {   //kimsj 091230 임상시험환자이면서 문진처방의 경우 일괄입력 팝업      
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            if ( ds_main_prcplist.getColumn(selectedRows[i], "prcpcd") == "ACD0002" ) {
                lf_prcpModal ( "SPMMO10400", xpt, ypt );
                break;
            }
        }
    }

	ds_main_prcplist.enableevent = false;
    fBatIpt ( "batipt_rtn1_useyn", "batipt_rtn1" );
    ds_main_prcplist.enableevent = true;
}

/**@desc   : 처방상세 일괄입력 공통
 * @param  : 
 * @return : void
 * @authur : 마정민 2007. 6. 30
 */
function fBatIpt ( useyn, rtn ) {
    var rtn_useyn = frmf_getParameter ( useyn );
    var rtn_value = "";
    var header    = "";
    var useyn     = "";
    var value     = "";

    //M-SET모처방 일괄입력 적용여부, 희망일자 변경시 자처방의 희망일자를 동일하게 적용
    //2008. 07. 22 오지훈
    var mSetFlag      = ""; 
    var cmpInclPrcpNo = "";
    
    if ( rtn_useyn == "Y" ) {
        var rtn_value     = frmf_getParameter ( rtn );

        var rtn_Array     = rtn_value.split("^");
        var prcplen       = rtn_Array[0].split("|").length;
        var selectedRows  = grdf_getSelectedRows(div_all.grd_prcplist);
        var cnclInptCnt   = 0;  // 입력 취소 rows 수 (2010.01.28 JJE)
        var cnclInptTxt   = ""; // 입력 취소 처방코드 (2010.01.28 JJE)
        var skipSubCretno = "N" // 임상연구, 기왕증 동시체크 불가 처리 관련 체크 변수(2012.05.08 엄영만)

        for ( var j = 0; j < selectedRows.length; j++ ){
            skipSubCretno = "N"; // 변수초기화
            
            var sPrcpHistCd = ds_main_prcplist.getColumn(selectedRows[j], "prcphistcd"); // 처방저장 상태
			var sDrPrcpEtc9 = ds_main_prcplist.getColumn(selectedRows[j], "drprcpetc9"); // 사전심사 진행상태
			if( sPrcpHistCd == "T" && sDrPrcpEtc9 != "-" && sDrPrcpEtc9 != "X") {
			    var sPrcpNm = ds_main_prcplist.getColumn(selectedRows[j], "prcpnm"); // 처방명칭
				sysf_messageBox ( "사전심사 진행(대기/승인) 처방은 수정 할 수 없습니다.\n 처방명:" + sPrcpNm, "I999" );
				continue;
			}
            
            for ( var i = 0; i < prcplen; i++ ) {
                header = lf_getArrayData ( rtn_value, 0, i, "^", "|" );
                useyn  = lf_getArrayData ( rtn_value, 1, i, "^", "|" );
                value  = lf_getArrayData ( rtn_value, 2, i, "^", "|" );

                var prcpcd       = ds_main_prcplist.getColumn(selectedRows[j], "prcpcd");
                var prcpclscd    = ds_main_prcplist.getColumn(selectedRows[j], "prcpclscd");
                var prcpinptflag = ds_main_prcplist.getColumn(selectedRows[j], "prcpinptflag");
                var calcmthdcd   = lf_getArrayData ( ds_main_prcplist.getColumn(selectedRows[j], "drugmastspec") , 0, 26, "^", "|" ); 
                
                if ( useyn == "Y" ) {
                    if ( header == "prcpqty" ) { //수량이 바뀌면 용량도 바뀐다.
                        prcpvol      = eval( ds_main_prcplist.getColumn(selectedRows[j], "prcpvol")); 
                        bfprcpqty    = eval( ds_main_prcplist.getColumn(selectedRows[j], "prcpqty"));
                        bfprcptims   = eval( ds_main_prcplist.getColumn(selectedRows[j], "prcptims"));                
                        drprcpetc7   = eval( ds_main_prcplist.getColumn(selectedRows[j], "drprcpetc7"));
                        bfdrprcpetc8 = eval( ds_main_prcplist.getColumn(selectedRows[j], "drprcpetc8"));                       

                        //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
                        var prcpcdTxt    = ds_main_prcplist.getColumn(selectedRows[j], "prcpcd");
                        var prcpcdEndTxt = prcpcdTxt.substring(prcpcdTxt.length-1, prcpcdTxt.length);
                        if(ds_main_prcplist.getColumn(selectedRows[j], "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && parseFloat(value) < 1){
                            cnclInptCnt++;
                            cnclInptTxt = cnclInptTxt + ds_main_prcplist.getColumn(selectedRows[j], "prcpcd") + ", ";
                            //continue;
                        } //end
                        // 경북대 1회 용량 관련 내용 수정 2010. 12. 20 - 김영학 @@@@@
                        var colHidnValue = lf_grdBaseColHidn("D");
                        
                        if (colHidnValue =="C") {  // 1회용량 기준일 경우
                            var calcprcpvol    = value / bfprcpqty * prcpvol * bfprcptims   ;
                            var calcdrprcpetc7 = value / bfprcpqty * prcpvol;
                            var calcdrprcpetc8 = value;
                            
                            if ( calcprcpvol.toString().indexOf(".") >= 0 ) {
                                calcprcpvol = calcprcpvol * 1000;
                                calcprcpvol = Math.round(calcprcpvol);
                                calcprcpvol = calcprcpvol / 1000;
                            }  
                            value = value * bfprcptims;
                        } else {   // 1일 용량 관련 기준일 경우
                            var calcprcpvol    = value / bfprcpqty * prcpvol;
                            var calcdrprcpetc7 = value / bfprcpqty * prcpvol / bfprcptims;
                            var calcdrprcpetc8 = value / bfprcptims ;
                            if ( calcprcpvol.toString().indexOf(".") >= 0 ) {
                                calcprcpvol = calcprcpvol * 1000;
                                calcprcpvol = Math.round(calcprcpvol);
                                calcprcpvol = calcprcpvol / 1000;
                            }  
                        } 
                        ds_main_prcplist.setColumn(selectedRows[j], "prcpvol",    calcprcpvol);
                        ds_main_prcplist.setColumn(selectedRows[j], "drprcpetc7", calcdrprcpetc7);
                        ds_main_prcplist.setColumn(selectedRows[j], "drprcpetc8", calcdrprcpetc8);
                        // 경북대 1회 용량 관련 내용 수정 END 2010. 12. 20 - 김영학
                    } else if ( header == "selfdrugflag" ) { // 자가보유처방은 일괄팝업에 의해 일부 기능은 설정되지 않는다.
                       if (prcpinptflag == "35"){
                         continue;
                       }
                    } else if ( header == "payflagcd" ) {
                       if (prcpinptflag == "35"){
                         continue;
                         }
                    } else if ( header == "prepprcpflag" ) {
                       if (prcpinptflag == "35"){
                         continue;
                       }
                    } else if ( header == "drugrateqty" ) {
                        value = frmf_getParameter ( "SPMMO12100_drugrateqty" );
                    } else if ( header == "contprcpspec" ) {
                        value = frmf_getParameter ( "SPMMO12200_contprcpspec" );
                    } else if ( header == "prcptims" ) {
                        //응급일때는 횟수와 용법을 자동으로 바꿔주는데 응급이 제일먼저 setting 함으로 continue 한다.
                        if (ds_main_prcplist.getColumn(selectedRows[j], "erprcpflag") == "Y" ) continue;
                        if (ds_main_prcplist.getColumn(selectedRows[j], "prnprcpflag") == "Y" ) continue;
                        if ( frmf_getParameter ( "SPMMO12100_chgmthd" ) == "Y" ) { 
                            ds_main_prcplist.setColumn(selectedRows[j], "prcptims", value); // 기본용법을 가져 오기 위해 예외적으로 미리 값을 셋팅 한다.
                            fBaseMthd(selectedRows[j]);
                        }
                        
                        if(calcmthdcd == "1"){
                            // 경북대 1회 용량 관련 내용 수정 2010. 12. 20 - 김영학
                            bfprcpvol    = eval( ds_main_prcplist.getColumn(selectedRows[j], "prcpvol"));
                            bfprcpqty    = eval( ds_main_prcplist.getColumn(selectedRows[j], "prcpqty"));
                            prcptims     = eval( ds_main_prcplist.getColumn(selectedRows[j], "prcptims"));
                            bfdrprcpetc7 = eval( ds_main_prcplist.getColumn(selectedRows[j], "drprcpetc7"));
                            bfdrprcpetc8 = eval( ds_main_prcplist.getColumn(selectedRows[j], "drprcpetc8"));
                            
                            var colHidnValue = lf_grdBaseColHidn("D");
                            
                            if (colHidnValue =="C") {  // 1회용량 기준일 경우
                                var calcprcpvol    = bfdrprcpetc7 * value;
                                var calcprcpqty    = bfdrprcpetc8 * value;
                                var calcdrprcpetc7 = bfdrprcpetc7;
                                var calcdrprcpetc8 = bfdrprcpetc8;   
                            } else {   // 1일 용량 관련 기준일 경우
                                var calcprcpvol    = bfprcpvol;
                                var calcprcpqty    = bfprcpqty;
                                var calcdrprcpetc7 = bfdrprcpetc7 / value;
                                var calcdrprcpetc8 = bfdrprcpetc8 / value;
                            }
                            ds_main_prcplist.setColumn(selectedRows[j], "prcpvol",    calcprcpvol);
                            ds_main_prcplist.setColumn(selectedRows[j], "prcpqty",    calcprcpqty);
                            ds_main_prcplist.setColumn(selectedRows[j], "drprcpetc7", calcdrprcpetc7);
                            ds_main_prcplist.setColumn(selectedRows[j], "drprcpetc8", calcdrprcpetc8);
                        }
                        // 경북대 1회 용량 관련 내용 수정 ENd 2010. 12. 20 - 김영학
                    } else if ( header == "erprcpflag" ) {
						if (prcpinptflag == "35"){
							continue;
						} else {
                            if ( value == "Y") {
                                if( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) { // 약품처방 응급
                                    var prcptims = ds_main_prcplist.getColumn(selectedRows[j], "prcptims");
    
                                    if ( prcptims != "1" ) {
                                        //1이 아닌 경우는 1로 바꿔주고 경구약인 경우는 용법도 바꿔준다.
                                        var prcpqty = ds_main_prcplist.getColumn(selectedRows[j], "prcpqty");
                                        var prcpvol = ds_main_prcplist.getColumn(selectedRows[j], "prcpvol");
                                                            
                                        if ( prcptims != "0" &&  ( prcpclscd == "A2" || prcpclscd == "A6" )) {
                                            prcpqty = (eval(prcpqty)*1000/eval(prcptims));
                                            prcpvol = (eval(prcpvol)*1000/eval(prcptims));
                                            ds_main_prcplist.setColumn(selectedRows[j], "prcpqty", Math.round ( prcpqty ) / 1000);
                                            ds_main_prcplist.setColumn(selectedRows[j], "prcpvol", Math.round ( prcpvol ) / 1000);
                                        }
    
                                        ds_main_prcplist.setColumn(selectedRows[j], "prcptims", "1");    
                                    } 
    
                                    if ( ds_main_prcplist.getColumn(selectedRows[j], "prcpclscd") == "A2"  ) {                           
                                        ds_main_prcplist.setColumn(selectedRows[j], "erprcpflag", "Y"); // 응급용법을 가져 오기 위해 예외적으로 미리 값을 셋팅 한다.
                                        fBaseMthd(selectedRows[j]);                         
                                    }
                                } else if( prcpclscd == "M2" && sysf_getUserInfo("dutplceinstcd") == "031") { // 재료 처방 응급
                                    continue;
                                }
                            } else if (value == "N" && ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" )) {
                                ds_main_prcplist.setColumn(selectedRows[j], "erprcpflag", "N"); // 응급용법을 가져 오기 위해 예외적으로 미리 값을 셋팅 한다.
                            }

                            if ( ds_main_prcplist.getColumn(selectedRows[j], "prcpclscd") == "A2" ) {
                                fBaseMthd(selectedRows[j]);                         
                            }
                        }
                    } else if ( header == "prnprcpflag" ) {
                        if ( value == "Y" && ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" )) {
                            var prcptims = ds_main_prcplist.getColumn(selectedRows[j], "prcptims");

                            if ( prcptims != "1" ) {
                                //1이 아닌 경우는 1로 바꿔주고 경구약인 경우는 용법도 바꿔준다.
                                var prcpqty = ds_main_prcplist.getColumn(selectedRows[j], "prcpqty");
                                var prcpvol = ds_main_prcplist.getColumn(selectedRows[j], "prcpvol");
                                                        
                                if ( prcptims != "0" &&  ( prcpclscd == "A2" || prcpclscd == "A6" )) {
                                    prcpqty = (eval(prcpqty)*1000/eval(prcptims));
                                    prcpvol = (eval(prcpvol)*1000/eval(prcptims));
                                    ds_main_prcplist.setColumn(selectedRows[j], "prcpqty", Math.round ( prcpqty ) / 1000);
                                    ds_main_prcplist.setColumn(selectedRows[j], "prcpvol", Math.round ( prcpvol ) / 1000);
                                }

                                ds_main_prcplist.setColumn(selectedRows[j], "prcptims", "1");
                                if ( ds_main_prcplist.getColumn(selectedRows[j], "prcpclscd") == "A2" ) {                           
                                    fBaseMthd(selectedRows[j]);                         
                                }
                            } 
                        }
                        
                        if (value == "Y") {
							ds_main_prcplist.setColumn(selectedRows[j], "tempprcpflag", "Y");   
                        }else if (value == "N"){
                            ds_main_prcplist.setColumn(selectedRows[j], "tempprcpflag", "N");    
                        }
                    } else if ( header == "drugmthdspccd" ) {
                        if (prcpclscd == "A2" ){ //응급 용법자동바뀜은 A2만 함
                            //응급을 제일먼저 setting 함으로 체크 조건에 넣어도 상관없다.
                            if (ds_main_prcplist.getColumn(selectedRows[j], "erprcpflag") == "Y" ) continue;
                        }
                    } else if ( header == "prcphopedd" ) {                        
                        //M-SET 자처방의 경우 처방희망일자는 일괄변경 변경처리 하지 않음
                        //2008. 07. 22 오지훈
                        var prcpsetcd  = ds_main_prcplist.getColumn(selectedRows[j], "prcpsetcd");
                        var inclprcpno = ds_main_prcplist.getColumn(selectedRows[j], "inclprcpno");                        
                        if(prcpsetcd != "-" && inclprcpno > 0){ //M-SET의 자처방인 경우, skip
                            continue;

                        }else if(prcpsetcd == "-" && inclprcpno > 0){ //M-SET의 모처방인 경우, 일괄적용 이후 희망일자를 자처방에 모두 적용
                            mSetFlag = "Y";
                            cmpInclPrcpNo = inclprcpno;
                            cmpPrcpHopeDD = value;
                        }
                    } else if ( header == "selfprcpflag" ) {
                        //지정일을 지정을 할 수 없다.
                        for ( var k = 0; k < selectedRows.length; k++ ){
                            if (ds_main_prcplist.getColumn(selectedRows[k], "prcpclscd" ) == "A6"){
                                ds_main_prcplist.setColumn(selectedRows[k], "contprcpspec", "-" ); 
                            } 
                        } 
                    } else if ( header == "hosinhosoutflag"  ){     //by sonjy 20080912 추가 원내 변경시 원내사유 우선순위를 따르도록 수정. start  
                        lf_hosinPrcpResncdSed ( "",  "ds_main_prcplist", selectedRows[j] );
                        continue ; 
                    } else if ( header == "hosinprcpresncd" ){      //by sonjy 20081003 원외전용 처방시 환자사유가 들어오는 경우가 있음. 
                        lf_hosinPrcpResncdSed ( "",  "ds_main_prcplist", selectedRows[j], value );
                        continue ;                                  //by sonjy 20080912 추가 원내 변경시 원내사유 우선순위를 따르도록 수정. end 
                    } else if ( header == "rsrvflag" ) { 
                        header = "prcphopedd" ; 
                    } else if ( header == "prcpdayno" ) {
                        //by sonjy 20091019 수가계산법 4일 경우 처방일수는 1로 고정 
                        var drugmastspec = ds_main_prcplist.getColumn(selectedRows[j], "drugmastspec"); 
                        var calcmthdcd   = lf_getArrayData ( drugmastspec , 0, 26, "^", "|" ); 
                        if( (prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) && calcmthdcd == "4" ){
                             ds_main_prcplist.setColumn(selectedRows[j], "prcpdayno", "1");
                             continue ;
                        }
                    } else if ( header == "anamneflag" ) {  // 기왕증 변경시 기존 처방이 임상연구가 체크 되어 있으면 skip, 원무부유형(subcretno)도 skip (2012.05.08 엄영만)
                        if (ds_main_prcplist.getColumn(selectedRows[j], "clincstdyflag") == "Y" ) {
                            sysf_messageBox ( "처방코드[" + prcpcd + "]는 임상연구 처방이므로 기왕증을 적용 할 수", "I004" );
                            skipSubCretno = "Y";
                            continue;
                        }
                    } else if ( header == "clincstdyflag" ) {  // 임상연구 변경시 기존 처방이 기완증이 체크 되어 있으면 skip, 원무부유형(subcretno)도 skip (2012.05.08 엄영만)
                        if (ds_main_prcplist.getColumn(selectedRows[j], "anamneflag" ) == "Y" ) {
                            sysf_messageBox ( "처방코드[" + prcpcd + "]는 기왕증 처방이므로 임상연구을 적용 할 수", "I004" );
                            skipSubCretno = "Y";
                            continue;
                        }
                    } else if ( header == "subcretno" ) {  // 원무부유형(subcretno) (2012.05.08 엄영만)
                        if (skipSubCretno == "Y" ) {
                            continue;
                        }
                    } 

                    gGridUpdateChk("det_pack", j);  // 임시저장 수정 모드 
                    
                    ds_main_prcplist.setColumn(selectedRows[j], "" + header, value);
                    lf_makePrcpNm( "ds_main_prcplist", selectedRows[j]);
                }
            }
            
            fSetCpVal(selectedRows[j], "U");
        }
        
        //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
        if( cnclInptCnt > 0 ){
            cnclInptTxt = cnclInptTxt.substr(0, cnclInptTxt.length - 2);
            sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
        } //end
    }    
    
    //M-SET 모처방의 희망일자 변경인 경우, 선택되지 않은 자처방 포함하여 희망일자를 모두 변경
    if(mSetFlag == "Y"){
        for(var i = 0;  i < ds_main_prcplist.rowcount; i++){
            if(cmpInclPrcpNo == ds_main_prcplist.getColumn(i, "inclprcpno")){
                ds_main_prcplist.setColumn(i, "prcphopedd", cmpPrcpHopeDD);
            }
        }
    }
    
    frmf_setParameter( "batipt_rtn1_useyn", "");
}

/**@desc   : 그리드에서 멀티 select후 일괄입력
 * @param  : 
 * @return : void
 * @authur : 마정민 2007. 7. 24
 */
function fGridfBatIpt( flag ) {
    var nCurrow = ds_main_prcplist.rowposition;
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    
    if ( selectedRows.length < 1) return;    

	if ( flag == "prcpdayno" ) {
		var prcpdayno = ds_main_prcplist.getColumn(nCurrow, "prcpdayno");
		var drugmastspec = "";
		var calcmthdcd = "";
		  
		for ( var j = 0; j < selectedRows.length; j++ ){
			var statuschk = ds_main_prcplist.getColumn(selectedRows[j], "status");
			if ( statuschk != "S" || statuschk != "D" ) {
				ds_main_prcplist.setColumn(selectedRows[j], "prcpdayno", prcpdayno);
				
				//by sonjy 20091019 요청번호:3667 
				//외래처방, 입원처방 모두에서, 수가 계산법 4번인 약품(경구, 주사, 외용 상관없이 계산법으로)을 처방할 때 
				//처방일수가 1일이 되면서 수정할 수 없도록 
				drugmastspec = ds_main_prcplist.getColumn(selectedRows[j], "drugmastspec"); 
				calcmthdcd = lf_getArrayData ( drugmastspec , 0, 26, "^", "|" );
				if(  (prcpclscd = "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) && calcmthdcd == "4" ) {
					ds_main_prcplist.setColumn(selectedRows[j], "prcpdayno" , "1" );
				}
				
				gGridUpdateChk("pack", j);  // 임시저장 수정 모드 
				fSetCpVal(selectedRows[j], "U");
			}
		}
	} else if ( flag == "prcptims" ){
		var prcptims = ds_main_prcplist.getColumn(nCurrow, "prcptims");
		
		for ( var j = selectedRows.length - 1; j >= 0; j-- ){
			bfDrugCalc ( "prcptims", selectedRows[j]); //횟수 수정 시 용량,수량 보정을 위해 호출 추가(2010.01.02 전지은)
			ds_main_prcplist.setColumn(selectedRows[j], "prcptims", prcptims );
			DrugCalc ( "prcptims" , selectedRows[j] );
			fBaseMthd(selectedRows[j]);
				
			gGridUpdateChk("pack", j);  // 임시저장 수정 모드 
			fSetCpVal(selectedRows[j], "U");
		}
	} else if ( flag == "prcpqty" ){
		var prcpqty = ds_main_prcplist.getColumn(nCurrow, "prcpqty");
		var cnclInptCnt = 0;  // 입력 취소 rows 수 (2010.01.28 JJE)
		var cnclInptTxt = ""; // 입력 취소 처방코드 (2010.01.28 JJE)
		for ( var j = selectedRows.length - 1; j >= 0; j-- ){
			//마지막 selectedRows-1은 자체적으로 계산됨으로 뺐다.
			var statuschk = ds_main_prcplist.getColumn(selectedRows[j], "status");
			if (  statuschk != "S" || statuschk != "D"  ) {
				//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
				var prcpcdTxt    = ds_main_prcplist.getColumn(selectedRows[j], "prcpcd");
				var prcpcdEndTxt = prcpcdTxt.substring(prcpcdTxt.length-1, prcpcdTxt.length);
				if(ds_main_prcplist.getColumn(selectedRows[j], "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && parseFloat(prcpqty) < 1){
					cnclInptCnt++;
					cnclInptTxt = cnclInptTxt + ds_main_prcplist.getColumn(selectedRows[j], "prcpcd") + ", ";
					//continue;
				} //end
				bfDrugCalc ( "prcpqty", selectedRows[j]);
				ds_main_prcplist.setColumn(selectedRows[j], "prcpqty", prcpqty);
				DrugCalc ( "prcpqty", selectedRows[j] );
				
				gGridUpdateChk("pack", j);  // 임시저장 수정 모드 
				fSetCpVal(selectedRows[j], "U");
			}
		}
		//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
		if( cnclInptCnt > 0 ){
			cnclInptTxt = cnclInptTxt.substr(0, cnclInptTxt.length-2);
			sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
		} //end
		
	// 경북대 1회 용량관련 내용추가 : 2010. 12. 20 - 김영학
	} else if (flag == "drprcpetc8") {
		var drprcpetc8 = ds_main_prcplist.getColumn(nCurrow, "drprcpetc8");
		var cnclInptCnt = 0;  // 입력 취소 rows 수 (2010.01.28 JJE)
		var cnclInptTxt = ""; // 입력 취소 처방코드 (2010.01.28 JJE)
		for ( var j = selectedRows.length - 1; j >= 0; j-- ){
			//마지막 selectedRows-1은 자체적으로 계산됨으로 뺐다.
			var statuschk = ds_main_prcplist.getColumn(selectedRows[j], "status");
			if (  statuschk != "S" || statuschk != "D"  ) {
				//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
				var prcpcdTxt    = ds_main_prcplist.getColumn(selectedRows[j], "prcpcd");
				var prcpcdEndTxt = prcpcdTxt.substring(prcpcdTxt.length-1, prcpcdTxt.length);
				if(ds_main_prcplist.getColumn(selectedRows[j], "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && parseFloat(prcpqty) < 1){
					cnclInptCnt++;
					cnclInptTxt = cnclInptTxt + ds_main_prcplist.getColumn(selectedRows[j], "prcpcd") + ", ";
					//continue;
				} //end
				bfDrugCalc ( "drprcpetc8", selectedRows[j]);
				ds_main_prcplist.setColumn(selectedRows[j], "drprcpetc8", drprcpetc8);
				DrugCalc ( "drprcpetc8" , selectedRows[j] );
				
				gGridUpdateChk("pack", j);  // 임시저장 수정 모드 
				fSetCpVal(selectedRows[j], "U");
			}
		}
		//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
		if( cnclInptCnt > 0 ){
			cnclInptTxt = cnclInptTxt.substr(0, cnclInptTxt.length-2);
			sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
		} //end            
	}
	// 경북대 1회 용량관련 내용추가 END : 2010. 12. 20 - 김영학

    if ( flag == "payflagcd" ) {
        var payflagcd = ds_main_prcplist.getColumn(nCurrow, "payflagcd");
        
        for ( var j = 0; j < selectedRows.length; j++ ){
            var statuschk = ds_main_prcplist.getColumn(selectedRows[j], "status");
            if (  statuschk != "S" || statuschk != "D"  ) {                    
                var tempcol2  = ds_main_prcplist.getColumn(selectedRows[j], "tempcol2");                
                var findRow   = ds_initsrch_earnclsauto.findRowExpr("earnclsflag == '1' && earnclscd ='" + tempcol2 + "'");
                var earnclscd = ds_initsrch_earnclsauto.getColumn(findRow, "earnclscd");
                if ( !utlf_isNull(earnclscd) && payflagcd == "1") {
                    sysf_messageBox ( "영상MRI 및 핵의학 PET CT, MRI는 급여구분이 '급여/일반'만", "I006" );
                    ds_main_prcplist.setColumn(selectedRows[j], "payflagcd", ds_init.getColumn(0, "bfpayflagcd"));
                } else if (tempcol2 == "24|01|01" && payflagcd == "0" ) { // 2011.07.05 엄영만 수익분류 의료영상복사-CD 복사-CD copy 안내 메세지 원무 최인영(5069) 요청
                    sysf_messageBox ( "CD Copy 및 제증명료는 비급여로 처방", "I006" );
                    ds_main_prcplist.setColumn(selectedRows[j], "payflagcd", payflagcd);
                    ds_init.setColumn(0, "bfpayflagcd", payflagcd );
                } else {
                    ds_main_prcplist.setColumn(selectedRows[j], "payflagcd", payflagcd);
                    ds_init.setColumn(0, "bfpayflagcd", payflagcd );
                }
            }
            gGridUpdateChk("pack", j);  // 임시저장 수정 모드
            fSetCpVal(selectedRows[j], "U");
            lf_makePrcpNm("ds_main_prcplist", selectedRows[j]);
        }   
    } else if ( flag == "prcpkindcd" ) {
        var prcpkindcd = ds_main_prcplist.getColumn(nCurrow, "prcpkindcd");
        var prcpclscd = "";
        for ( var j = 0; j < selectedRows.length; j++ ){
            var statuschk = ds_main_prcplist.getColumn(selectedRows[j], "status");
            if ( statuschk != "S" || statuschk != "D" ) {
                ds_main_prcplist.setColumn(selectedRows[j], "prcpkindcd", prcpkindcd );
                //응급이고, 퇴원처방이면
                if ( ds_patflag.getColumn(0, "prcpgenrflag") == "E" && prcpkindcd == "60" ){
                    prcpclscd = ds_main_prcplist.getColumn(selectedRows[j], "prcpclscd");
                    //응급환자가 아니면 원내처리
                    if ( ds_init.getColumn(0, "erresn") != "G3"
                        && (prcpclscd == "A2" || prcpclscd=="A4" || prcpclscd == "A6") ) { //by sonjy 20081012 추가 . 약/주사에만 원내외 적용하도록. 
                        ds_main_prcplist.setColumn(selectedRows[j], "hosinhosoutflag", "O");
                        ds_main_prcplist.setColumn(selectedRows[j], "hosinprcpresncd", "00");
                    }
                }                   

                var prcpclscd = ds_main_prcplist.getColumn(selectedRows[j], "prcpclscd");
                var drugmastspec = ds_main_prcplist.getColumn(selectedRows[j], "drugmastspec");
                var selfls = lf_getArrayData ( drugmastspec, 0, 34, "^", "|" );
                //외래, 외출외박, 퇴원은 HOME 자동체크
                if ( prcpkindcd == "50" || prcpkindcd == "60" ) {
                    if ( prcpclscd == "A6" && lf_getArrayData (drugmastspec, 0, 20, "^", "|" ) == "Y" ) {
                          ds_main_prcplist.setColumn(selectedRows[j], "selfprcpflag", "Y");
                     
                        if (selfls == "Y" ){ // 20101018 LYJ 주사제 상세용법 자동 팝업 . 상세용법입력이 필수인 home 처방은 상세팝업을 자동 호출하며 용법이 입력되지 않을 시 삭제처리한다. 
                            var prcpClsCd = ds_main_prcplist.getColumn(selectedRows[j], "prcpclscd" );
                            
                            var mon = sysf_getCurrentMonitorNumber();
							var xpt = getScreenCenterPoint(0, 380);
                            var ypt = getScreenCenterPoint(1, 119);
							
							dsf_createDs("ds_main_prcplist_selected");
							dsf_copyColInfo(ds_main_prcplist_selected, ds_main_prcplist);
							ds_main_prcplist_selected.addRow();
							ds_main_prcplist_selected.copyRow(0, ds_main_prcplist, selectedRows[j]);
							
							var objArg = new Object();
							objArg.arg_ds_main_prcplist = ds_main_prcplist_selected;      
                            
                            frmf_modal("SPMMO01200", "SPMMO01200", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                            
                            dsf_deleteDs("ds_main_prcplist_selected");
                            
                            if ( frmf_getParameter("SPMMO01200_selfprcpflag") == "N"){
								ds_main_prcplist.deleteRow(selectedRows[j]);
								ds_main_prcplist.applyChange();
                                frmf_clearParameter ( "SPMMO01200_selfprcpflag" );
                                return false;
                            } else {
                                lf_prcpDetlApp ( prcpClsCd, "ds_prcptemp_prcplist", "ds_main_prcplist", selectedRows[j]); 
                            }
                                    
                        }
                    }
                } else {
                    if ( ds_main_prcplist.getColumn(selectedRows[j], "selfprcpflag") == "Y" ) {
                        ds_main_prcplist.setColumn(selectedRows[j], "selfprcpflag", "N");
                        ds_main_prcplist.setColumn(selectedRows[j], "diagtestconttestcdspec", "-");
                    }
                }
                //20080729 마정민 수정. 수혈이고 외래가 아니면 퇴원후외래, 입원전검사를 외래처리해준다.
                if ( prcpclscd == "B4" && ds_patflag.getColumn(0, "prcpgenrflag") != "O" ) { 

                    if ( prcpkindcd == "70"  || prcpkindcd == "90"  || prcpkindcd == "95" ) { //20080729 마정민 수정. 수혈이고 외래가 아니면 퇴원후외래, 입원전검사를 외래처리해준다.
                        ds_main_prcplist.setColumn(selectedRows[j], "prepprcpflag", "N");
                    } else {
                        ds_main_prcplist.setColumn(selectedRows[j], "prepprcpflag", "Y");
                    }
                }
            }
            
            gGridUpdateChk("pack", j);  // 임시저장 수정 모드 
            fSetCpVal(selectedRows[j], "U"); 
            lf_makePrcpNm("ds_main_prcplist", selectedRows[j]); 
        } 
    } else if ( flag == "prcphopedd" ){ // 희망일자 멀티 변경 요청 - 20081023 by MoonSH 
        var prcphopedd = ds_main_prcplist.getColumn(nCurrow, "prcphopedd"); 

		for( var j = 0; j < selectedRows.length; j++) {
			var statuschk = ds_main_prcplist.getColumn(selectedRows[j], "status");
			if( statuschk != "S" || statuschk != "D" )
				ds_main_prcplist.setColumn(selectedRows[j], "prcphopedd", prcphopedd ); 
				
			gGridUpdateChk("pack", j);  // 임시저장 수정 모드 
            fSetCpVal(selectedRows[j], "U");
		}
    }
    //grd_prcplist.row = nCurrow;
}

/**@desc   : 병리의뢰지 호출하기
 * @param  : curRow: 호출 row
           : flag: 처방복사시 호출하면 refresh 시켜주면서 어느 row의 팝업인지 알게함
 * @return : void
 * @authur : 마정민 2007. 5. 9
 */
function fReqfrm ( curRow, flag, srcNode ) {  
    var newFlag = "Y";

    var mon = this.getOwnerFrame().form.sysf_getCurrentMonitorNumber();
	var xpt = this.getOwnerFrame().position.x + 100;
	var ypt = this.getOwnerFrame().position.y + 100;
    
    var scrID = frmf_getScreenID();
    var pid = 0;

    if( utlf_isNull(srcNode) ){
        if ( scrID == "SMMMO02100") {						// 전회처방 화면
            srcNode = "ds_prcpsrch_prcplist";  
            curRow = ds_prcpsrch_prcplist.rowposition;
            pid = oOpener.ds_paminfo.getColumn(0, "pid");
        } else {                                            // 기타 화면
            srcNode = "ds_main_prcplist";          			//파라메터 추가함(2008.03.11)
            if( utlf_isNull(curRow) ){                      //조건추가(2008.08.05 JJE)
                curRow = ds_main_prcplist.rowposition;
            }
            pid = ds_paminfo.getColumn(0, "pid");
        }
        newFlag = "N";                                      //오른쪽 마우스 클릭은 새로나오는 처방은 아님.
    }
    
    var ds_src = this.objects[srcNode];
    
    var prcpclscd     = ds_src.getColumn(curRow, "prcpclscd");
    var prcpflag      = ds_src.getColumn(curRow, "prcpflag");
    var drugmastspec  = ds_src.getColumn(curRow, "drugmastspec") + "^";
    var drugmthdspccd = ds_src.getColumn(curRow, "drugmthdspccd");

    if ( prcpclscd == "D2" ) {
        /* ==================
        전달값
        ==================
        pid : 등록번호(필수)
        prcpcd : 처방코드(필수)
        prcpnm : 처방명(필수)
        opnm   : 수술명(옵션)
        spccd  : 검체코드(필수)
        spcnm  : 검체명(옵션)
        reqno  : 의뢰지번호(신규 작성시에는 '0', 작성된 의뢰지를 조회/수정할 경우는 해당 의뢰지번호) - 필수
        reqhistno : 의뢰지 이력번호(옵션)
        scrnno    : 화면번호(10:처방화면, 20:채혈화면, 30:병리과 추가처방화면, 40:병리과 접수화면) */
        ds_hidden_reqfrminfo.clearData();
        ds_hidden_reqfrminfo.addRow();
        
        ds_hidden_reqfrminfo.setColumn(0, "pid", pid);
        ds_hidden_reqfrminfo.setColumn(0, "prcpcd", ds_src.getColumn(curRow, "prcpcd"));
        ds_hidden_reqfrminfo.setColumn(0, "prcpnm", ds_src.getColumn(curRow, "orgprcpnm"));
        ds_hidden_reqfrminfo.setColumn(0, "prcpstatcd", ds_src.getColumn(curRow, "prcpstatcd"));

        if ( ds_src.getColumn(curRow, "optermcd") != "-" ) {
            ds_hidden_reqfrminfo.setColumn(0, "opnm", ds_src.getColumn(curRow, "prcpnm"));
        }
        ds_hidden_reqfrminfo.setColumn(0, "spccd", ds_src.getColumn(curRow, "drugmthdspccd"));
        ds_hidden_reqfrminfo.setColumn(0, "spcnm", ds_src.getColumn(curRow, "drugmthdspccdnm"));
        if ( newFlag == "N" ) {
            if ( scrID == "SMMMO02100") { //전처방 화면에서만 의뢰시 번호 셋팅.
                ds_hidden_reqfrminfo.setColumn(0, "reqno", ds_src.getColumn(curRow, "testreqlnkno"));
            } else {
                ds_hidden_reqfrminfo.setColumn(0, "reqno", "0");
            }
        }
        ds_hidden_reqfrminfo.setColumn(0, "scrnno", "10");
        ds_hidden_reqfrminfo.setColumn(0, "patnm", ds_paminfo.getColumn(0, "hngnm"));
        
        if( srcNode == "ds_main_prcplist" ){            //2008.03.11 수정(CP 추가)
            ds_hidden_reqfrminfo_prcplist.copyData(ds_main_prcplist);
        }else{
			ds_hidden_reqfrminfo_prcplist.copyData(ds_src);
        }

        var popwndflagcd = lf_getArrayData (drugmastspec, 0, 4, "^", "|" );
        if ( popwndflagcd == "1" )  { // 당일저장된 것이 있으면 자동으로 끌고온다.
             fCpInPrcpVisible();
             ds_hidden_reqfrminfo.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
             ds_hidden_reqfrminfo.setColumn(0, "tday",   ds_init.getColumn(0, "prcpdd"));
             
			 var xpt1 = this.getOwnerFrame().position.x + 0;
			 var ypt1 = this.getOwnerFrame().position.y + 0;
			 
			 var objArg = new Object();
			 objArg.arg_ds_hidden_reqfrminfo          = ds_hidden_reqfrminfo;
			 objArg.arg_ds_hidden_reqfrminfo_prcplist = ds_hidden_reqfrminfo_prcplist;
			 
			 frmf_modal("SPLPJ01900", "SPLPJ01900", objArg, false, mon, xpt1, ypt1, 0, 0, null, null, null, "P");
        } else {
            reqfrmflagcd = lf_getArrayData (drugmastspec, 0, 3, "^", "|" );
            if ( reqfrmflagcd == "01" || reqfrmflagcd == "02" || reqfrmflagcd == "03" || reqfrmflagcd == "05" || reqfrmflagcd == "08") {
                 fCpInPrcpVisible();
            }
            
            var xpt1 = this.getOwnerFrame().position.x + 10;
			var ypt1 = this.getOwnerFrame().position.y + 10;
			
			var objArg = new Object();
			objArg.arg_ds_hidden_reqfrminfo          = ds_hidden_reqfrminfo;
			objArg.arg_ds_hidden_reqfrminfo_prcplist = ds_hidden_reqfrminfo_prcplist;
			
            switch ( reqfrmflagcd ) {       // 의뢰지 구분코드에 따라 호출화면을 선택
                case "01" : // 조직의뢰지
					frmf_modal("SPLPJ01500", "SPLPJ01500", objArg, false, mon, xpt1, ypt1, null, null, null, null, null, "M");
                    break;
                
                case "02" : // 부인과의뢰지
					frmf_modal("SPLPJ01400", "SPLPJ01400", objArg, false, mon, xpt1, ypt1, null, null, null, null, null, "M");
                    break;
                
                case "03" : // 비부인과의뢰지
					frmf_modal("SPLPJ01300", "SPLPJ01300", objArg, false, mon, xpt1, ypt1, null, null, null, null, null, "M");
                    break;
                
                //case "04" : // 세침흡인 의뢰지(개발중)
                //  modal("SPLPJ01400",mon, xpt, ypt,"SPLPJ01400","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo");
                //  break;
                
                case "05" : // 분자병리의뢰지	
					frmf_modal("SPLPJ01200", "SPLPJ01200", objArg, false, mon, xpt1, ypt1, null, null, null, null, null, "M");
                    break;
                
                //case "06" : // 세포유전의뢰지
                //  modal("SPLPJ01200",mon, xpt, ypt,"SPLPJ01200","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo");
                //  break;
                
                //case "07" : // 부검의뢰지
                //  modal("SPLPJ01200",mon, xpt, ypt,"SPLPJ01200","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo");
                //  break;
                
                case "08" : // 원본대출의뢰지
					frmf_modal("SPLPJ02000", "SPLPJ02000", objArg, false, mon, xpt1, ypt1, null, null, null, null, null, "M");
                    break;
            }
        }
        
        if ( !utlf_isNull(ds_hidden_reqfrminfo.getColumn(0, "reqno"))){
            ds_src.setColumn(curRow, "testreqlnkno",    ds_hidden_reqfrminfo.getColumn(0, "reqno"));
            ds_src.setColumn(curRow, "drugmthdspccd",   ds_hidden_reqfrminfo.getColumn(0, "spccd"));
            ds_src.setColumn(curRow, "drugmthdspccdnm", ds_hidden_reqfrminfo.getColumn(0, "spcnm"));

            if ( scrID != "SMMMO02100") { // 처방발행 화면일경우(전회처방이 아닐경우)
                var prcpInptFlag = ds_src.getColumn(curRow, "prcpinptflag" );
                lf_setPrcpSpecValue( srcNode, curRow, prcpInptFlag ); // 병리처방은 검체 코드가 정해 지면 선택진료의사를 셋팅 한다. 검체코드별 선택진료 의사 셋팅 때문 2011.11.25 엄영만
            }
        }
    } else if ( prcpclscd == "B2" || prcpclscd == "B4" || prcpclscd == "B6" ) {
        /* ==================
           전달값
           ==================
        pid : 등록번호(필수)
        prcpcd : 처방코드(필수)
        prcpnm : 처방명(필수)
        opnm   : 수술명(옵션)
        spccd  : 검체코드(필수)
        spcnm  : 검체명(옵션)
        reqno  : 의뢰지번호(신규 작성시에는 '0', 작성된 의뢰지를 조회/수정할 경우는 해당 의뢰지번호) - 필수
        reqhistno : 의뢰지 이력번호(옵션)
        scrnno    : 화면번호(10:처방화면, 20:채혈화면, 30:병리과 추가처방화면, 40:병리과 접수화면) 
        */
        ds_hidden_reqfrminfo.clearData();
        
        ds_hidden_reqfrminfo.setColumn(0, "pid", pid);
        ds_hidden_reqfrminfo.setColumn(0, "prcpcd",     ds_src.getColumn(curRow, "prcpcd"));
        ds_hidden_reqfrminfo.setColumn(0, "prcpnm",     ds_src.getColumn(curRow, "orgprcpnm"));
        ds_hidden_reqfrminfo.setColumn(0, "prcpstatcd", ds_src.getColumn(curRow, "prcpstatcd"));

        if ( ds_src.getColumn(curRow, "optermcd") != "-" ) {
            ds_hidden_reqfrminfo.setColumn(0, "opnm", ds_src.getColumn(curRow, "prcpnm"));
        }
        ds_hidden_reqfrminfo.setColumn(0, "spccd", ds_src.getColumn(curRow, "drugmthdspccd"));
        ds_hidden_reqfrminfo.setColumn(0, "spcnm", ds_src.getColumn(curRow, "drugmthdspccdnm"));
        if ( newFlag == "N" ) {
            ds_hidden_reqfrminfo.setColumn(0, "reqno", ds_src.getColumn(curRow, "testreqlnkno"));
        }
        ds_hidden_reqfrminfo.setColumn(0, "scrnno", "10");           
        ds_hidden_reqfrminfo.setColumn(0, "patnm",  ds_paminfo.getColumn(0, "hngnm"));

        reqfrmflagcd = lf_getArrayData (drugmastspec, 0, 10, "^", "|" );

        if ( reqfrmflagcd == "01" || reqfrmflagcd == "02" || reqfrmflagcd == "03" || reqfrmflagcd == "04" || reqfrmflagcd == "05" || reqfrmflagcd == "06" || reqfrmflagcd == "07") {
            fCpInPrcpVisible();
        }
        
        var objArg = new Object();
		objArg.arg_ds_hidden_reqfrminfo = ds_hidden_reqfrminfo;

        switch ( reqfrmflagcd ) {       // 의뢰지 구분코드에 따라 호출화면을 선택
            case "01" : // 골수검사의뢰서등록
				frmf_modal("SPLRR90100", "SPLRR90100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
            
            case "02" : // 분자생물학부의뢰서등록
				frmf_modal("SPLRR90200", "SPLRR90200", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
            
            case "03" : // 산전검사의뢰서등록
				frmf_modal("SPLRR90300", "SPLRR90300", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
            
            case "04" : // 세포유전학검사의뢰서등록
				frmf_modal("SPLRR90400", "SPLRR90400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;

            case "05" : // 장기이식의뢰서등록
				frmf_modal("SPLRR90500", "SPLRR90500", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;

            case "06" : // TDM의뢰서등록
				frmf_modal("SPLRR90600", "SPLRR90600", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;

            case "07" : // 산전검사의뢰서등록(핵의학)
				frmf_modal("SPLRR91000", "SPLRR91000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;

            case "09" : // 염색체검사의뢰서등록
				frmf_modal("SPLRR91300", "SPLRR91300", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;

            case "10" : // 말초혈액 의뢰서 및 결과지
				frmf_modal("SPLRR91400", "SPLRR91400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;

            case "08" : // ICG의뢰서 
				frmf_modal("SPLRR91100", "SPLRR91100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;

            case "11" : // AMH검사의뢰서
				frmf_modal("SPLRR91900", "SPLRR91900", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
                          
            case "12" : // 서울대학유전자검사의뢰서
				frmf_modal("SPLRR92200", "SPLRR92200", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
                          
            case "13" : // 아산병원유전자검사의뢰서
				frmf_modal("SPLRR92100", "SPLRR92100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
                          
            case "14" : // 삼성서울병원유전자검사의뢰서
				frmf_modal("SPLRR92000", "SPLRR92000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
            
            case "15" : // 기생충항체검사의뢰지
				frmf_modal("SPLRR91800", "SPLRR91800", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
            
            case "16" : // 약물검사의뢰서
				frmf_modal("SPLRR92300", "SPLRR92300", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;
            
            case "17" : // 말라리아 검사의뢰서
				frmf_modal("SPLRR92400", "SPLRR92400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
                break;                          
        }
        if ( !utlf_isNull(ds_hidden_reqfrminfo.getColumn("reqno"))) {
            ds_src.setColumn(curRow, "testreqlnkno",    ds_hidden_reqfrminfo.getColumn("reqno"));
            ds_src.setColumn(curRow, "drugmthdspccd",   ds_hidden_reqfrminfo.getColumn("spccd"));
            ds_src.setColumn(curRow, "drugmthdspccdnm", ds_hidden_reqfrminfo.getColumn("spcnm"));
        }
    
    } else if ( prcpflag == "2" ) { //지서처방 의뢰서 팝업
        if ( !utlf_isNull(drugmthdspccd) && drugmthdspccd != "-" ) {
			ds_hidden_reqfrminfo.clearData();
			ds_hidden_reqfrminfo.addRow();

            ds_hidden_reqfrminfo.setColumn(0, "pid", pid );
            ds_hidden_reqfrminfo.setColumn(0, "prcpcd", ds_src.getColumn(curRow, "prcpcd"));
            ds_hidden_reqfrminfo.setColumn(0, "prcpnm", ds_src.getColumn(curRow, "orgprcpnm"));

            if ( newFlag == "N" ) {
                ds_hidden_reqfrminfo.setColumn(0, "reqno", ds_src.getColumn(curRow, "testreqlnkno"));
            }

            ds_hidden_reqfrminfo.setColumn(0, "patnm", ds_paminfo.getColumn(0, "hngnm"));
            fCpInPrcpVisible();
            
            //방사선종양 지시 처방 의뢰서 팝업
            //drugmthdspccd: SPAOB00700, SPAOB00800
            dsf_createDs("ds_hidden_reqfrminfo_diagcdlist");
            ds_hidden_reqfrminfo_diagcdlist.copyData(ds_main_diagcdlist);
            
            var objArg = new Object();
			objArg.arg_ds_hidden_reqfrminfo            = ds_hidden_reqfrminfo;
			objArg.arg_ds_hidden_reqfrminfo_diagcdlist = ds_hidden_reqfrminfo_diagcdlist;
            
            frmf_modal("SPLRR92400", "SPLRR92400", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");

            if ( !utlf_isNull(ds_hidden_reqfrminfo.getColumn("reqno"))) {
                ds_src.setColumn(curRow, "testreqlnkno", ds_hidden_reqfrminfo.getColumn("reqno"));
            }
        }
    } 
}

/**@desc   : 진단검사 검체 호출
 * @param  : curRow: 호출 row
           : flag: 그룹검체일때는 node를 구분하기 위한 구분자
           : objFlag: child구분. 구룹검체에서는 같은 계열처방적용을 안한다면 쓸필요없다.    
           : clickFlag: 처방화면에서 더블클릭해서 넘어왔는지 구분자.
 * @return : void
 * @authur : 마정민 2007. 5. 9
 */
function fGetSpc( curRow, flag, objFlag, clickFlag ) {
    fCpInPrcpVisible(); 

    var srcNode = "ds_main_prcplist";
    if ( flag == "group" ) {
        srcNode = "ds_prcpsrch_prcplist";
    } else if ( flag == "oldprcp" ) {
        srcNode = "ds_oldprcpchngsrch_prcplist";
    }
    
    var oTrgtObj = lf_getFormObject(objFlag);
    var ds_src = oTrgtObj.objects[srcNode];

    //20080723 마정민 수정. 같은 계열의 처방은 검체를 한번만 넣도록 한다. 
    //단 그룹검체는 검체가 틀렸을 경우 조회가 안될수 있음으로 쓰지 않는다.
    if (utlf_isNull(flag) && clickFlag != "Y" ){
        var tempcol2 = ds_src.getColumn(curRow, "tempcol2" );    
        
		ds_initsrch_trgtcdlist.filter("prcpclscd == '" + tempcol2 + "'");
		
		for (var i = 0; i < ds_initsrch_trgtcdlist.rowcount; i++) {
			var srchprcpcd = ds_initsrch_trgtcdlist.getColumn(i, "trgtcd");
			if (!utlf_isNull(oTrgtObj.ds_main_prcplist.lookup("prcpcd", srchprcpcd, "prcpcd"))) {                    
				var drugmastspec = oTrgtObj.ds_main_prcplist.lookup("prcpcd", srchprcpcd, "drugmastspec") + "^";
				var drugmthdspccd = lf_getArrayData (drugmastspec, 0, 0, "^", "|" );

				if (drugmthdspccd == "999" && drugmthdspccd == "998") {
						ds_src.setColumn(curRow, "drugmthdspccd",   oTrgtObj.ds_main_prcplist.lookup("prcpcd", srchprcpcd, "drugmthdspccd"));
						ds_src.setColumn(curRow, "drugmthdspccdnm", oTrgtObj.ds_main_prcplist.lookup("prcpcd", srchprcpcd, "drugmthdspccdnm"));
						
						ds_initsrch_trgtcdlist.filter("");
						return "mainspccd";
				}
			}
		}
		
		ds_initsrch_trgtcdlist.filter("");
    }

    var drugmastspec  = ds_src.getColumn(curRow, "drugmastspec" ) + "^";
    var drugmthdspccd = lf_getArrayData (drugmastspec, 0, 0, "^", "|" );
    //var drugmthdspccd = model.getValue ( srcNode + "[" + curRow + "]/drugmthdspccd" );
    //drugmthdspccd 인스턴스가 계속 바뀌어서 처방복사할 때 떴던 팝업이 안떠서 수정함.
   

    var prcpcd = ds_src.getColumn(curRow, "prcpcd" );
    var prcpnm = ds_src.getColumn(curRow, "prcpnm" );
    if ( drugmthdspccd == "998" ) {              //검체코드가 998일때 띄운다.
        //검사대분류유형(testlrgkind) M:미생물, B:혈액은행, G: 분자/세포 유전, N:핵의학-체외
//      if ( getArrayData (drugmastspec, 0, 3, "^", "|" ) == "M" ) {
        frmf_setParameter ( "SPMMO03500_param_tclscd", prcpcd );
        frmf_setParameter ( "SPMMO03500_param_tclsnm", prcpnm );
        lf_prcpModal ( "SPMMO03500", 200, 100 );
        if (utlf_isNull(flag)) {
            if ( frmf_getParameter ("SPMMO03500_rtn_useyn") == "Y" ) {
                ds_src.setColumn(curRow, "drugmthdspccd",   frmf_getParameter( "SPMMO03500_rtn_spccd" ));
                ds_src.setColumn(curRow, "drugmthdspccdnm", frmf_getParameter ("SPMMO03500_rtn_spcscrnnm" ));
            }
        }
    } else if ( drugmthdspccd == "999" ) {
        frmf_setParameter ( "SPMMO03400_param_tclscd", prcpcd );
        frmf_setParameter ( "SPMMO03400_param_tclsnm", prcpnm );
        lf_prcpModal ( "SPMMO03400", 200, 100 );
        if (utlf_isNull(flag)) {
            if ( frmf_getParameter ("SPMMO03400_rtn_useyn") == "Y" ) {
                ds_src.setColumn(curRow, "drugmthdspccd",   frmf_getParameter( "SPMMO03400_rtn_spccd" ));
                ds_src.setColumn(curRow, "drugmthdspccdnm", frmf_getParameter ("SPMMO03400_rtn_spcscrnnm" ));
            }
        }
    } else {
        if ( clickFlag == "Y" ) {
            frmf_setParameter ( "SPMMO03400_param_tclscd", prcpcd );
            frmf_setParameter ( "SPMMO03400_param_tclsnm", prcpnm );
            lf_prcpModal ( "SPMMO03400", 200, 100 );
            if ( utlf_isNull(flag)) {
                if ( frmf_getParameter ("SPMMO03400_rtn_useyn") == "Y" ) {
                    ds_src.setColumn(curRow, "drugmthdspccd",   frmf_getParameter( "SPMMO03400_rtn_spccd" ));
                    ds_src.setColumn(curRow, "drugmthdspccdnm", frmf_getParameter ("SPMMO03400_rtn_spcscrnnm" ));
                }
            }
        }
    }
    
    if (utlf_isNull(flag)) {
		if ( frmf_getParameter ("SPMMO03500_rtn_useyn") == "Y" || frmf_getParameter ("SPMMO03400_rtn_useyn") == "Y") {
			fSetCpVal(curRow, "U");
		}
	} 
}

/**@desc   : 약속처방등록
 * @return : void
 * @authur : 마정민 2007. 6. 6
 */
function fPrmsPrcp() {
    if (div_all.Tab_prcp.tabindex == 2) {
		ds_init.setColumn(0, "prmsautoflag", "N");
        div_all.Tab_prcp.tp_prmsprcp.fPrmsSave();
    } else {
		// 약속처방 폴더선택이 없는 경우 자동등록 처리
        // 2008. 07. 25 오지훈        
		ds_init.setColumn(0, "prmsautoflag", "Y");
		
		div_all.Tab_prcp.tabindex = 2;
        div_all.Tab_prcp.tp_prmsprcp.fPrmsSave();
    }    
}

/**@desc   : 경구약 기본용법 조회
 * @return : void
 * @authur : 마정민 2007. 6. 6
 */
function fBaseMthd(currow) {
	var sDsSrc;
	var ds_temp_prcplist;
	
    if ( currow == "oldprcp" ) {
		sDsSrc = "ds_oldprcpchngsrch_prcplist";
		ds_temp_prcplist = this.objects[sDsSrc];
        currow = 0;
    } else {
		sDsSrc = "ds_main_prcplist";
		ds_temp_prcplist = this.objects[sDsSrc];
		
		if(utlf_isNull(currow))
			currow = ds_temp_prcplist.rowposition;
    }

    //횟수 수정시 경구약의 기본용법을 가져온다.
    var prcpclscd     = ds_temp_prcplist.getColumn(currow, "prcpclscd");
    var prcptims      = ds_temp_prcplist.getColumn(currow, "prcptims");
    var drugmthdspccd = ds_temp_prcplist.getColumn(currow, "drugmthdspccd");
    var prcpcd        = ds_temp_prcplist.getColumn(currow, "prcpcd");
    var prcpdd        = utlf_isNull(this.objects["ds_init"]) ? "" : lf_getDsValue(ds_init, 0, "prcpdd");
    if (utlf_isNull(prcpdd)){
        prcpdd = utlf_getCurrentDate();
    }

    var mthdcd = "";
    var mthdKind = "";

    if ( prcpclscd == "F2" ) {
        lf_makePrcpNm(sDsSrc, currow);
        return;
    } else if ( prcpclscd != "A2" ) {
        return;
    } else { // 경구약이면
        mthdKind = "N";
        // 응급약이면
        if ( ds_temp_prcplist.getColumn(currow, "erprcpflag") == "Y" ) { 
            if (prcptims == "1") { //2011.07.07 엄영만 경구약, 응급, 횟수 1 이면 용법 [지금복용] 으로 변경
                //mthdcd = "A10D1"; // 지금 복용 용법 코드
            } else { // 응급약은 1회만 가능
                sysf_messageBox ( "응급약은 1회만", "I006" );
                ds_temp_prcplist.setColumn(currow, "prcptims", 1);
                return;
            }
        //응급약이 아니면 기본 용법 가져온다.
        } else {
            if ( drugmthdspccd.length >= 3 ) {
                //20081213 변경개발요청서 497. 20081213 마정민 수정.
                //네번째 자리가 E가 아닌 경우 용법코드의 네번째 자리도 A로 변경해 줄 것을 요청
                if ( drugmthdspccd.length >= 4 && ( drugmthdspccd.substring ( 3, 4 ) != "A" && drugmthdspccd.substring ( 3, 4 ) != "E" )) {
                    mthdcd = drugmthdspccd.substring ( 0, 2 ) + prcptims + "A" + drugmthdspccd.substring ( 4, drugmthdspccd.length );
                } else {
                    mthdcd = drugmthdspccd.substring ( 0, 2 ) + prcptims + drugmthdspccd.substring ( 3, drugmthdspccd.length );
                }
            }
        }

		ds_send.clearData();
		ds_send.addRow();
		
        ds_send.setColumn(0, "cond1", mthdKind );
        ds_send.setColumn(0, "cond2", prcptims );  //횟수
        ds_send.setColumn(0, "cond3", "base" );  //기본정보값만 가져오는지 표시한다.
        ds_send.setColumn(0, "cond4", mthdcd );  //기본정보값만 가져오는지 표시한다.

        // 응급약이 아니면 약품의 기본 횟수가 변경된 횟수이면 약품의 기본 용법을 가져온다. (응급약은 지금복용으로)
        //if ( model.getValue ( prcpNode + "[" + currow + "]/erprcpflag") != "Y" ) { 
        ds_send.setColumn(0, "cond5", prcpcd );  
        ds_send.setColumn(0, "cond6", prcpdd );  
        //}
        
        dsf_setDefaultVal(ds_send, "mthdtime:-");
        
        var oParam = {};
			oParam.id       = "TRMMO01901";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetTmedTthdInfo";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_tmedmthdlist=tmedmthdlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO01901";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TRMMO01901") > -1) {		
			var mthdcd   = ds_tmedmthdlist.getColumn(0, "mthdcd" );
			var mthdcnts = ds_tmedmthdlist.getColumn(0, "abbrnm" );
			if ( !utlf_isNull(mthdcd)) {
				ds_temp_prcplist.setColumn(currow, "drugmthdspccd", mthdcd );
				ds_temp_prcplist.setColumn(currow, "drugmthdspccdnm", mthdcnts );
			} else {
				ds_temp_prcplist.setColumn(currow, "drugmthdspccd", "-");
				ds_temp_prcplist.setColumn(currow, "drugmthdspccdnm", "-" );
			}
		}
    }
}

function cf_TRMMO01901(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : 처방화면 오른쪽 마우스 클릭 처방복사
 * @return : void
 * @authur : 마정민 2007. 6. 21
 */
function fPrcpCopy() {
	var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
	
    for (var i = selectedRows.length - 1; i >= 0; i--) {
        var inclprcpno = ds_main_prcplist.getColumn(selectedRows[i], "inclprcpno"); 
        if ( !utlf_isNull(inclprcpno) && inclprcpno != "-" ) {
            if ( eval(inclprcpno) > 0  ) {
                sysf_messageBox ( "M-SET은 복사하기 하실 수 없습니다.", "I" );
                return;
            }
       }
    }
    
    if ( ds_init.getColumn(0, "cropflag") == "Y" ) {
        if (sysf_messageBox ( "잘라낸 데이터가 이미 있습니다. 복사하시겠습니까?", "Q" ) != "6" ) {
            return;
        }
    }
    
    var cnt=0;
    //by sonjy 20091121 임시처방 복사 시 복사대상이 신규모드로 바뀜. => 복사후 붙여넣기시 처방이 두개씩 생김.
    //복사대상의 원상태는 돌려놓는 로직 추가. 
    var orgstatus = "";
    var orgprcphistcd = "";
    
    for (var i = selectedRows.length - 1; i >= 0; i--) {
        orgstatus = "";
        orgprcphistcd = "";
        if ( ds_main_prcplist.getColumn(selectedRows[i], "status" ) != "S" ){ //검색은 드래그 안한다.
            if( ds_root.getColumn(0, "cp") != "S" ){            
                //by sonjy 20091121임시처방 ( 수정포함 )일 경우 원상태값을 저장
                if( ds_main_prcplist.getColumn(selectedRows[i], "status" ) == "-" || 
                    ds_main_prcplist.getColumn(selectedRows[i], "status" ) == "U"  ){
                    orgstatus = ds_main_prcplist.getColumn(selectedRows[i], "status" );
                    orgprcphistcd = ds_main_prcplist.getColumn(selectedRows[i], "prcphistcd" );  
                    //by sonjy 20091124 임시처방 복사 후 인증저장시 오류발생 수정 
                    ds_main_prcplist.setColumn(selectedRows[i], "prcphistcd", "O");
                }
                  
                ds_main_prcplist.setColumn(selectedRows[i], "status", "I" )
            }
            fPrcpBuffer( ++cnt, selectedRows[i], "ds_prcpdrag_prcplist", "ds_main_prcplist" );
            
            //원상태값으로 돌려놓는다.
            if( !utlf_isNull(orgstatus) ) ds_main_prcplist.setColumn(selectedRows[i], "status", orgstatus ); 
            orgstatus = "";
            if( !utlf_isNull(orgprcphistcd) ) ds_main_prcplist.setColumn(selectedRows[i], "prcphistcd", orgprcphistcd ); 
            orgprcphistcd = "";
        }
    }

    /*var srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist");
    var destNode = model.instances(0).selectSingleNode("/root/main/prcp");
    var dropRow = grd_prcplist.rows - 2;
    
    for ( var i= 1; i<=srcNodeList.length ; i++){       
        row = dropRow + i;
        model.duplicate( "/root/main/prcp", "/root/prcpdrag/prcplist[" + i + "]", "*[" + row + "]");
        fSetCpVal( row, "I");
    }
    model.recalculate();   
    model.refresh();*/
}

/**@desc   : 처방화면 오른쪽 마우스 클릭 처방잘라내기
 * @return : void
 * @authur : 마정민 2007. 10. 22
 */
function fPrcpCrop() {
	var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);

    for (var i = selectedRows.length - 1; i >= 0; i--) {
        var inclprcpno = ds_main_prcplist.getColumn(selectedRows[i], "inclprcpno" ); 
        if ( !utlf_isNull(inclprcpno) && inclprcpno != "-" ) {
            if ( eval(inclprcpno) > 0  ) {
                sysf_messageBox ( "M-SET은 잘라내기 하실 수 없습니다.", "I" );
                return;
            }
       }
    }

    if ( ds_init.getColumn(0, "cropflag") == "Y" ) {
        if (messageBox ( "잘라낸 데이터가 이미 있습니다. 잘라내시겠습니까?", "Q" ) != "6" ) {
            return;
        }
    }
    
    var cnt=0;

    for (var i = selectedRows.length - 1; i >= 0; i--) {
        if ( ds_main_prcplist.getColumn(selectedRows[i], "status") != "S" ){ //검색은 드래그 안한다.
            fPrcpBuffer( ++cnt, selectedRows[i], "ds_prcpdrag_prcplist", "ds_main_prcplist" );
            ds_main_prcplist.deleteRow(selectedRows[i]);
        }
        ds_init.setColumn(0, "cropflag", "Y");
    }
}

/**@desc   : 처방화면 오른쪽 마우스 클릭 처방붙여넣기
 * @param  : prcphopeddflag - 6: prcpdd 와 prcphopedd를 똑같게 처리, 7: prcphopedd가 prcphopedd에 비해 과거날짜만 바꿔 줌.
 * @return : void
 * @authur : 마정민 2007. 10. 22
 */
function fPrcpPaste( prcphopeddflag ) {
    ds_init.setColumn(0, "cropflag", "N" );

    var prcpdd = ds_init.getColumn(0, "prcpdd" );
    
    var dropRow = ds_main_prcplist.rowposition;

    if ( dropRow == -1 ){
        dropRow = ds_main_prcplist.rowcount - 1;
    }
    var endRow = ds_main_prcplist.rowcount - 1;
    var prcphopedd = "";

    if ( dropRow == endRow ) {
        dropRow = dropRow - 1;
    } 

    var row = 0;
    var cnt = 1;
    
    for (var i = ds_prcpdrag_prcplist.rowcount - 1; i >= 0; i--) {    
        row = dropRow + cnt++;
        
        //by sonjy 오류 수정 20091121 임시처방의 경우 잘라내기, 붙여넣기 후 임시저장시 오류 발생 => 임시저장은 이미 저장된 처방임. prcppkspec초기화시 오류 발생 
        //임시처방 수정 혹은 임시처방 모드일 경우 처리 추가. 
        //model.setValue ( "/root/prcpdrag/prcplist[" + i + "]/prcppkspec", prcpdd + "|0|0|" + getUserInfo("dutplceinstcd"));
        if( ds_prcpdrag_prcplist.getColumn(i, "status") == "-"  ||  ds_prcpdrag_prcplist.getColumn(i, "status") == "U" ){ 
            if( ds_prcpdrag_prcplist.getColumn(i, "status") == "-") ds_prcpdrag_prcplist.setColumn(i, "status", "U");            
        }else {
            ds_prcpdrag_prcplist.setColumn(i, "prcppkspec", prcpdd + "|0|0|" + sysf_getUserInfo("dutplceinstcd"));
        }
        prcphopedd = ds_prcpdrag_prcplist.getColumn(i, "prcphopedd" );
        if ( utlf_isNull(prcphopedd) || prcphopedd == "-" ) {
            prcphopedd = prcpdd;
        }
        if ( prcphopedd < prcpdd || prcphopeddflag == "6" ) {
            ds_prcpdrag_prcplist.setColumn(i, "prcphopedd", prcpdd );
        }
        
        ds_main_prcplist.insertRow(row);
        ds_main_prcplist.copyRow(row, ds_prcpdrag_prcplist, i);
        
        fSetCpVal(row, "I");
    }
    
    ds_main_prcplist.rowposition = dropRow + ds_prcpdrag_prcplist.rowcount;
	div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getCellPos());
    
    ds_prcpdrag_prcplist.clearData();
}

/**@desc   : 처방용법복사
 * @return : void
 * @authur : 마정민 2007. 10. 17
 */
function fMthdCopy() {
	var currow    = ds_main_prcplist.rowposition;
    var prcpclscd = ds_main_prcplist.getColumn(currow, "prcpclscd" );

    if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
        var prcptims        = ds_main_prcplist.getColumn(currow, "prcptims" ); 
        var drugmthdspccd   = ds_main_prcplist.getColumn(currow, "drugmthdspccd" );
        var drugmthdspccdnm = ds_main_prcplist.getColumn(currow, "drugmthdspccdnm" );  

        ds_init_mthdcopy.setColumn(0, "prcpclscd",       prcpclscd );
        ds_init_mthdcopy.setColumn(0, "prcptims",        prcptims );
        ds_init_mthdcopy.setColumn(0, "drugmthdspccd",   drugmthdspccd );
        ds_init_mthdcopy.setColumn(0, "drugmthdspccdnm", drugmthdspccdnm );
    } else {
        sysf_messageBox ( "약주사만 용법복사가", "I006" );
    }
}

/**@desc   : 처방용법붙혀넣기
 * @return : void
 * @authur : 마정민 2007. 10. 17
 */
function fMthdPaste() {
	var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);

    for ( var i = selectedRows.length - 1; i >= 0; i-- ){  
        if ( ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd") == ds_init_mthdcopy.getColumn(0, "prcpclscd")){
            ds_main_prcplist.setColumn(selectedRows[i], "prcptims",        ds_init_mthdcopy.getColumn(0, "prcptims"));
            ds_main_prcplist.setColumn(selectedRows[i], "drugmthdspccd",   ds_init_mthdcopy.getColumn(0, "drugmthdspccd"));
            ds_main_prcplist.setColumn(selectedRows[i], "drugmthdspccdnm", ds_init_mthdcopy.getColumn(0, "drugmthdspccdnm"));
            
            fSetCpVal(selectedRows[i], "U");
        } else {
			ds_main_prcplist.selectRow(selectedRows[i], false);
        }
    }
    
    ds_init_mthdcopy.clearData();
    ds_init_mthdcopy.addRow();
}

function fChgChoiDr() {
	lf_chgChoiDr();
}

/**@desc   : 우측상단 진단화면에서 개인진단 즐겨찾기 추가
 * @return : void
 * @authur : 오지훈 2007. 7. 2
 */
function fAddEnjoyPrivate(){
   var header = "settypecd▦setkindcd▦setclscd▦settrgtcd▦detlsetcd▩";
   var totRow = ds_main_diagcdlist.rowcount;
   for(var i = 0; i < totRow ; i++){
      if(ds_main_diagcdlist.getSelect(i)){
         var diagcd = ds_main_diagcdlist.getColumn(i, "diagcd");
         var settrgtcd = sysf_getUserInfo("userid");
         header += "E▦P▦D▦" + settrgtcd + "▦" + diagcd + "▩";
      }
   }
   
   dsf_setCSVToDs("ds_send_savedata", header);
   
   var oParam = {};
		oParam.id       = "TXMMB00604";
		oParam.service  = "prcpbaseapp.PrmsPrcpMngt";
		oParam.method   = "reqInsDirectPrmsDiagEnjoy";
		oParam.inds     = "req=ds_send_savedata";
		oParam.async    = false;

	tranf_submit(oParam);
	
	dsf_deleteDs("ds_send_savedata");
}

/**@desc   : 즐겨찾기SET Open
 * @return : void
 * @authur : 오지훈 2007. 7. 4
 */
function fOpenEnjoySet(){
   frmf_modal("SPMMO03700", "SPMMO03700", null, null, null, null, null, null, null, null, null, null, "M");
   if ( frmf_getParameter( "SPMMO03700_rtn_useyn" ) == "Y" ) {
        lf_addDiagSetValue (frmf_getParameter( "SPMMO03700_rtn" ));
        frmf_setParameter( "SPMMO03700_rtn_useyn", "" );
   }
}

/**@desc   : 처방수정.
 * @       : 신규일때는 수정표시 안함.
 * @       : 삭제,D/C 상태일때는 취소후 수정.
 * @param  :
 * @id     : grd_prcplist
 * @event  : xforms-value-changed
 * @return : void
 * @authur : 마정민 2007. 3. 27
 * @---------------------------------------------------
 */
function fPrcpUpdate() {
	var currow = ds_main_prcplist.rowposition;
    var status = ds_main_prcplist.getColumn(currow, "status");
    if (status == "-") {
//      model.setValue ( prcpNode + "[" + grd_prcplist.row+ "]/status", "U" );
        fSetCpVal(currow, "U");
    } 
    if ( status == "I" || status == "-" ) {
		ds_main_prcplist.setColumn(currow, "tempcol9", ""); 
    }
}

/**@desc   : 추가처방화면 초기화
 * @id     : model1
 * @event  : xforms-model-construct-done
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fAddPrcpInitConDone( pid, orddd, cretno, instcd, ioflag, saveflag , dschdd, srchdd ) {
	ds_main_prcplist.clearData();                                      //처방화면 그리도 초기화
    lf_appendChildPrcp ( "ds_reset_prcplist", "ds_main_prcplist", "main" );
    
    if (!utlf_isNull(pid)){
		var sSendDs = dsf_createDsRow("ds_addprcp_send", [{col:"pid",          type:"string", size:256},
														  {col:"orddd",        type:"string", size:256},
														  {col:"cretno",       type:"string", size:256},
														  {col:"instcd",       type:"string", size:256},
														  {col:"ioflag",       type:"string", size:256},
														  {col:"srchdd",       type:"string", size:256},
														  {col:"pseuacptflag", type:"string", size:256}]);
		ds_addprcp_send.addRow();
		
        ds_addprcp_send.setColumn(0, "pid" , pid);
        ds_addprcp_send.setColumn(0, "orddd", orddd);
        ds_addprcp_send.setColumn(0, "cretno", cretno);
        ds_addprcp_send.setColumn(0, "instcd", instcd);
        ds_addprcp_send.setColumn(0, "ioflag", ioflag);

        if ( !utlf_isNull(dschdd) && dschdd != "99991231" && dschdd != "-" ){
            ds_addprcp_send.setColumn(0, "srchdd", dschdd);
        } else {
            if (utlf_isNull(srchdd)) {
                ds_addprcp_send.setColumn(0, "srchdd", "");
            } else {
                ds_addprcp_send.setColumn(0, "srchdd", srchdd);    
            }            
        }

        if ( ioflag == "O" || ioflag == "S" )   {
            ds_addprcp_send.setColumn(0, "ioflag", "O" );
            ds_addprcp_send.setColumn(0, "pseuacptflag", (utlf_isNull(this.objects["ds_formerkey"]) ? "" : ds_formerkey.getColumn(0, "pseuacptflag")));
            
            var oParam = {};
				oParam.id       = "TRMMO04208";
				oParam.service  = "prcpmngtapp.EtcPrcpMngt";
				oParam.method   = "reqGetPatTopInfo";
				oParam.inds     = "req=ds_addprcp_send";
				oParam.outds    = "ds_topinfo_outpatpaminfo=outpatpaminfo ds_topinfo_patmaintopinfo=patmaintopinfo ds_topinfo_outpatflaginfo=outpatflaginfo";
				oParam.async    = false;
				oParam.callback = "cf_TRMMO04208";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TRMMO04208") > -1) {
				ds_paminfo.copyData(ds_topinfo_outpatpaminfo);
				ds_patflag.copyData(ds_topinfo_outpatflaginfo);
            } else {
                return;
            }

        } else {
            if (ioflag == "D"){
                ds_addprcp_send.setColumn(0, "ioflag", "I");
            }
            
            var oParam = {};
				oParam.id       = "TRMMO04308";
				oParam.service  = "prcpmngtapp.EtcPrcpMngt";
				oParam.method   = "reqGetPatTopInfo";
				oParam.inds     = "req=ds_addprcp_send";
				oParam.outds    = "ds_topinfo_inpatpaminfo=inpatpaminfo ds_topinfo_patmaintopinfo=patmaintopinfo ds_topinfo_inpatflaginfo=inpatflaginfo";
				oParam.async    = false;
				oParam.callback = "cf_TRMMO04308";

			tranf_submit(oParam);

			if(arErrorCode.pop("TRMMO04308") > -1) {
                ds_paminfo.copyData(ds_topinfo_inpatpaminfo);
				ds_patflag.copyData(ds_topinfo_inpatflaginfo);
            } else {
                return;
            }
        }
    }   

	if ( saveflag != "Y" ) {
		prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
		
		if ( ioflag == "O" || ioflag == "S" )   {
            ds_init.setColumn(0, "orddd", ds_paminfo.getColumn(0, "orddd"));     
		} else {
            ds_init.setColumn(0, "orddd", ds_paminfo.getColumn(0, "indd"));
		}

		if ( !utlf_isNull(prcpgenrflag)) {
			ds_init.setColumn(0, "rrgstno1",  ds_paminfo.getColumn(0, "rrgstno1"));
			ds_init.setColumn(0, "rrgstno2",  ds_paminfo.getColumn(0, "rrgstno2"));
			ds_init.setColumn(0, "orddeptnm", ds_paminfo.getColumn(0, "orddeptnm"));
			ds_init.setColumn(0, "srchcond2", pid);
			ds_init.setColumn(0, "srchcond3", ds_paminfo.getColumn(0, "hngnm"));
			ds_init.setColumn(0, "srchcond4", ds_patflag.getColumn(0, "prcpgenrflag"));
			ds_init.setColumn(0, "sex",       ds_paminfo.getColumn(0, "sex"));
			ds_init.setColumn(0, "age",       ds_paminfo.getColumn(0, "age"));
			ds_init.setColumn(0, "wardcd",    ds_paminfo.getColumn(0, "wardcd"));
		}
		
        cmb_issdept.visible = true;

		if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
              cmb_prcpkind.visible = false; 
              cmb_prcpdd.visible = false;
              cmb_issdept.position.x = 454;
              btn_issdept.position.x = 558;
              cmb_hosinprcpresn.visible = true;
              caption14.visible = true;
              cmb_hosinprcpresn.position.x = 760;
              grd_prcplist.setFormatColProperty(prcpKindCdCol, "size", 0);
              
              ds_init.setColumn(0, "hosinprcpresncd", ds_paminfo.getColumn(0, "hosoutexptresncd" ));   
              ds_init.setColumn(0, "prcpkindcd", "20" ); //처방종류(추가)
              ds_init.setColumn(0, "prcpdd", ds_paminfo.getColumn(0, "orddd" ));                 

		} else { 
              ds_init.setColumn(0, "wardcd" , ds_paminfo.getColumn(0, "roomcd" ) + "호" );
              ds_init.setColumn(0, "orddd" , ds_paminfo.getColumn(0, "indd" ));          
              //입원, 응급일때           
              ds_init.setColumn(0, "hosinprcpresncd", "00");     
              
              // 가퇴원 누락처방 날자셋팅 - 20081221 by MoonSH             
              var chkMissPrcp = sysf_getGlobalVariable("SPMMO16800_rtn1"); 
              if (chkMissPrcp == "Y"){ 
                 frmf_setParameter ( "SPMMO16800_rtn1", "" ); 
                 var missPrcpdd = ds_prcpresn.getColumn(0, "prcpdd"); 
                 ds_init.setColumn(0, "prcpdd", missPrcpdd); 
                 cmb_prcpdd.visible = false; 
              } else { 
                 ds_init.setColumn(0, "prcpdd", utlf_getCurrentDate()); 
                 cmb_prcpdd.visible = true; 
              } 
               
              cmb_issdept.position.x = 662;
              btn_issdept.position.x = 764;
              cmb_hosinprcpresn.visible = false;
              cmb_prcpkind.visible = true; 
              //cmb_prcpdd.visible = true;
              caption14.visible = false;
              ds_init.setColumn(0, "prcpkindcd", "20" ); //처방종류(추가)
              if ( prcpgenrflag == "E" || prcpgenrflag == "D" ) {
				cmb_hosinprcpresn.visible = true;
				cmb_hosinprcpresn.position.x = 766;
				cmb_hosinprcpresn.position.width = 224;
              }
		}        
	}

	fInitSrch();
	//진단호출
	if ( !utlf_isNull(pid) || saveflag == "Y" ){
		fPatDiagSrch("addprcp");
		if (ds_main_diagcdlist.rowcount < 1 ){
			//원무에서 화면을 호출할 경우 저장된 진단이 없으면 기초정보에 등록된 진단코드로 검색한다.
			if (frmf_getMenuParam() == "PAM") {
				fDiagSrch("addprcp");
			}
		}           
	}

	if (ds_init.getColumn(0, "detlivw") == "m" ) {
		Tab_prcp.components[Tab_prcp.tabindex].fIvwDetlVwCom(); 
	} else if ( ds_init.getColumn(0, "detlvw") == "m" ) {
		fDetlVw("y");               
	}

	bfPrcpdd = ds_init.getColumn(0, "prcpdd");
	var sDutPlceCd = sysf_getUserInfo("dutplcecd");
	if ( saveflag != "Y" && sDutPlceCd != "4072000000" && sDutPlceCd != "4070700000" ) { // 심사팀은 전처방 화면이 먼저 열리도록 처리 2012.09.18 엄영만
		Tab_prcp.tabindex = 2;
	} else {
		Tab_prcp.tabindex = 1;
	}
	ds_init.setColumn(0, "prcpinptflag", "28" ); //시행부서처방
	//btn_prcpsave.disabled = false;
}

function cf_TRMMO04208(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TRMMO04308(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : 외래, 주사(A6)인 경우, 일수 변경시 달력화면을 띄움, 연속처방 적용 
 * @param  :
 * @return :
 * @author : EMR MSH
 * @---------------------------------------------------
 */
function fDayValChnged() {
    //prcpdd를 선언하지 않고 아래에서 사용하고 있음. 오류수정 by sonjy 20091021
    var prcpdd = ds_init.getColumn(0, "prcpdd");
    
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var chngRow = ds_main_prcplist.rowposition;
    
    for ( var j = 0; j < selectedRows.length; j++ ){   
        var curRow = selectedRows[j];   // 현재 row 
        var strtRow = selectedRows[0];  // 시작 row 
        if( chngRow < 0 ) chngRow = strtRow;
        
        var prcpclscd    = ds_main_prcplist.getColumn(curRow, "prcpclscd");
        var selfprcpflag = ds_main_prcplist.getColumn(curRow, "selfprcpflag");
        var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
        var prcpcd       = ds_main_prcplist.getColumn(curRow, "prcpcd");
        
        //by sonjy 20091019 수가계산방법 4일경우 외래/입원 관계없이 일수는 1로 고정 (요청번호 : 3667 ) 
        var drugmastspec = ds_main_prcplist.getColumn(curRow, "drugmastspec");
        var calcmthdcd = lf_getArrayData ( drugmastspec , 0, 26, "^", "|" ); 
        if( (prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" )  && calcmthdcd == "4" ) {
            ds_main_prcplist.setColumn(curRow, "prcpdayno", "1");
        } 
         
        // 외래인 경우
        if(prcpgenrflag == "O"){
            // 주사면서 자가 처방이 아닌 경우
            //수가계산방법 4가 아닐 경우  by sonjy 20091019 (요청번호 : 3667 ) 
            if( (prcpclscd == "A6" && selfprcpflag != "Y" && calcmthdcd != "4" ) || prcpcd == "MUR0001"){

                //var prcpdayno = grd_prcplist.valueMatrix(strtRow, grd_prcplist.colRef("prcpdayno"));
                var prcpdayno =   ds_main_prcplist.getColumn(chngRow, "prcpdayno");
                
                var contprcpspec = ds_main_prcplist.getColumn(curRow, "contprcpspec");
                if(contprcpspec != "-"){
                    var contprcpsplit = contprcpspec.split("^");
                    var contprcprslt  = contprcpsplit[1].split("|");
                    var startdd = contprcprslt[1];
                    
                }else{
                    var startdd = ds_paminfo.getColumn(0, "orddd");
                    
                }
                var reqparam = startdd + "▩";
                
                //변경된 일수만큼의 일자 parameter를 생성함
                for(var i = 1; i < prcpdayno; i++){
                    var dd = ((startdd.toDate()).getAddDate(i)).getDateFormat();
                    reqparam += dd + "▩";
                }

                reqparam = reqparam.substring(0, reqparam.length-1);
                frmf_setParameter("paramcalflag", "multi");
                frmf_setParameter("defaultday"  , startdd);
                frmf_setParameter("reqparam"    , reqparam);
                frmf_setParameter("prcpdayno"   , prcpdayno);

                lf_prcpModal("SPMMO10600", 20, 50);

                //달력에서 선택된 일자만큼 처방상세정보 생성 및 처방 정보 설정
                if ( !utlf_isNull(frmf_getParameter("rtn"))) { //20080703 마정민 수정 값이 있을 때문 처리
                    var actordddArray = frmf_getParameter("rtn").split("▩");
                    var contprcpspec = "status|actorddd|execprcpstatcd|prcpdd|execprcpno";
                    for(var i = 0; i < actordddArray.length; i++){
                        var actorddd = actordddArray[i];
                        contprcpspec = contprcpspec + "^I|" + actorddd + "|" + "" + "|" + startdd + "|" + "";
                    }
                
                    var rtnval = "";
                    var contprcpspecArray = contprcpspec.split("^");
                    for(var i = 1; i < contprcpspecArray.length; i++){
                        var tmp = contprcpspecArray[i].split("|");
                        rtnval = rtnval + tmp[1] + ",";
                    }
                    rtnval = rtnval.substring(0, rtnval.length-1);
                  
                    if(actordddArray.length == 1 && actorddd == prcpdd){
                        ds_main_prcplist.setColumn(curRow, "contprcpspec", "-");
                    }else{
                        ds_main_prcplist.setColumn(curRow, "contprcpspec", contprcpspec);
                    }
                    ds_main_prcplist.setColumn(curRow, "prcpdayno", actordddArray.length);
                }
            }
        }   
    }   
}

/**@desc   : 영상학과에서 OCR 확인을 위한 코드별 테그 셋팅
 * @param  :
 * @return :
 * @author : EMR MoonSH
 * @---------------------------------------------------
 */
function fSetOcrTagNum() {
    var taglist = frmf_getParameter("SPMRF04500_OCRTAGvalue"); 
    
    if( !utlf_isNull(taglist) ){
        frmf_setParameter("SPMRF04500_OCRTAGvalue", ""); 
        
        var septag = taglist.split("▦"); 
        var tagcode = ""; 
        
        for (var i = 0; i < ds_result_savedrprcplist.rowcount; i++) {
            var prcpcd = ds_result_savedrprcplist.getColumn(i, "prcpcd");
            var prcpkindcd = ds_result_savedrprcplist.getColumn(i, "prcpkindcd");
            for ( var j = 0; j < septag.length - 1; j++) {
                if ( septag[j]==prcpcd ) {
					tagcode = septag[j + 1] ;
					var findRow = ds_result_dschdrprcplist.findRow("dschdr_prcpcd", prcpcd);
					if ( prcpkindcd == "70" && (findRow != -1 && utlf_isNull(ds_result_dschdrprcplist.getColumn(findRow, "dschdr_drprcpetc3"))) ){
						ds_result_dschdrprcplist.setColumn(findRow, "dschdr_drprcpetc3", tagcode);
					// 퇴원후 외래 처방은 ORC 태그 정보 박히지 않는 오류 수정 . 20100607 by LYJ
					}else {
						ds_result_savedrprcplist.setColumn(i, "drprcpetc3", tagcode ); 
					}
                }
            }
        }
    }   
}

/**@desc   : 그리드 임시저장 수정 모드 
 * @param  : position(1.개별수정:per, 2.일괄수정:pack, 3.상세팝업개발수정:det_per, 4.일괄 상세팝업:det_pack), grid row, object 
 * @return :
 * @author : EMR MoonSH
 * @---------------------------------------------------
 */
function gGridUpdateChk(pos, grow, obj) {    
    if ( pos == "per" ) {   // 1.개별수정
		var oTrgtObj = lf_getFormObject(obj);
		
        if (obj == "child" && utlf_isNull(grow))
			grow = oTrgtObj.ds_main_prcplist.rowposition;
        
        var chkstatus = oTrgtObj.ds_main_prcplist.getColumn(grow, "status");
		if ( chkstatus == "-" )
			oTrgtObj.ds_main_prcplist.setColumn(grow, "status", "U");
    } else if ( pos == "pack" ) {   // 2.일괄수정
		var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
        var chkstatus = ds_main_prcplist.getColumn(selectedRows[grow], "status"); 
        if ( chkstatus == "-" )
            ds_main_prcplist.setColumn(selectedRows[grow], "status", "U" );
    } else if ( pos == "det_per" ) { // 3.상세 팝업에서 개별 수정 
        // 1. popup 노드 get 
        // 2. main 그리드 row 노드 get 
        // 3. for 문을 이용 팝업과 메인의 노드 비교         
        var tarrow = ds_main_prcplist.rowposition;
        
        if ( ds_main_prcplist.getColumn(tarrow, "status") != "-" ) return;

        if ( ds_prcptemp_prcplist.rowcount < 1 )
            return;
        
        var tarChildCnt = ds_prcptemp_prcplist.colcount;
        if( tarChildCnt == 0 ) return; 
                
        if ( ds_main_prcplist.rowcount <= tarrow )  // changed node list 
            return;
        
        var srcChildCnt = ds_main_prcplist.colcount;
        if( srcChildCnt == 0 ) return; 
        
        if ( tarChildCnt != srcChildCnt ) return ;      // popup 노드와 main 노드 갯수가 틀리면 노드 매핑 오류로 리턴 
        
        for(var i = 0; i < srcChildCnt; i++) { 
			var tNodeName = ds_prcptemp_prcplist.getColID(i);
			var tNodeName = ds_prcptemp_prcplist.getColumn(0, tNodeName);
            
            var sNodeName = ds_main_prcplist.getColID(i);
			var sNodeText = ds_main_prcplist.getColumn(tarrow, sNodeName);
            
            if ( tNodeName == sNodeName ) { 
                if ( tNodeText != sNodeText ) { 
                    var chkstatus = ds_prcptemp_prcplist.getColumn(0, "status"); 
                    if ( chkstatus == "-" ) { 
                        ds_prcptemp_prcplist.setColumn(0, "status", "U"); 
                    } 
                    return ; 
                } 
            } else { 
                return ;                    // 소스 노드와 대상 노드의 노드가 틀릴 경우는 리턴 
            } 
        } 
    } else if ( pos == "det_pack" ) {   // 4. 일괄 상세팝업
		var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
        var chkstatus = ds_main_prcplist.getColumn(selectedRows[grow], "status");
        if ( chkstatus == "-" )
			ds_main_prcplist.setColumn(selectedRows[grow], "status", "U");
    }
}

/**@desc   : 진료대상자 리스트를 actvate 하기 위한 로직 추가
 * @param  : 
 * @return :
 * @author : EMR 김영학
 * @---------------------------------------------------
 */
function fSetUpperInfo() {
    // 진료대상자 리스트를 actvate 하기 위한 로직 추가  // 김영학 추가  :  2008. 11. 17
    var curPatListObj= frmf_findPopup("SMMMO04100"); //활성화된 진료대상자 화면 object loading
    
    var pid = appf_getPatientInfo("pid");
    ds_init.setColumn(0, "prcpobjsaveyn", "Y")

    if (!utlf_isNull(curPatListObj)) {        
        var prcpsaveyn = ds_init.getColumn(0, "prcpobjsaveyn"); // 상단의 처방 저장여부를 가져온다
        var emrsaveyn = ds_init.getColumn(0, "emrobjsaveyn");   // 상단의 진료기록 저장여부를 가져온다.
        if (prcpsaveyn == "Y" && emrsaveyn == "Y") {            // 처방과 진료기록이 모두 저장된 경우는 포커스를 진료대상자로 이동
            //최소화 시킨 창을 최대화 시킴 (2009.10.26 JJE)
            curPatListObj.frmf_setFocus();
        }
    }   
}

/**@desc   : 보험제한규정창이 메시지만 있을경우 창을 더이상 띄우지 않기 위해 레지스트리에 등록된 값을 가져옴
 * @ver    : 2008.12.09
 * @by     : 마정민
 * @modify: 
 * @---------------------------------------------------
 * @type   : 
 * @access : public
 * @param  : regnm : 레지스트리 명
 * @param  : 
 * @return : regval : 레지스트리 값
 * @---------------------------------------------------
 */ 
function getRegistryPrcp(regnm)
{
	var objExtCommon = new ExtCommon();
    return objExtCommon.regGetValue("HKEY_LOCAL_MACHINE", "SOFTWARE\\HIS\\Config\\" + sysf_getUserId(), regnm, "S");
}

/**@desc   : 급성 상기도감염에 항생제 처방 제한  
            일수 촉박으로 인해 hardcoding 추후 login정보에 담을 예정  
 * @param  :  
 * @return :
 * @author : 손주연 20081212 
 * @---------------------------------------------------
*/  
function fChkInfecLimAntiDrug( strSrc, sendRow ){
    var mainDiag10cd = "";
    var diaglstCnt = ds_main_diagcdlist.getCaseCount("diagkindcdflag == 'M'");
    if( diaglstCnt > 0) {
		var findRow = ds_main_diagcdlist.findRow("diagkindcdflag", 'M');
        mainDiag10cd = (findRow == -1) ? "" : ds_main_diagcdlist.getColumn(findRow, "icd10cd");
    }
    
    if( utlf_isNull(mainDiag10cd) ) return true ;
    /* 급성상기도감염에 항생제 처방 제한
     * 조건 : HARDCDNO 101
     * 1) 의사의 진단명 주상병이 ICD10 기준 J00~J06에 해당할 경우(J00~J069까지)
     * 2) 항생제 처방이 발생된 경우  
     *
     * 골관절염 상병에 스테로이드 제제 처방 제한
     * 조건 :  HARDCDNO 122
     * 1) 의사의 진단명 주상병이 ICD10 기준 M13~M17(M130~M179), M19(M190~199)에 해당할 경우 주, 부상병 모두 체크로 변경
     * 2) 스테로이드제 처방이 발생된 경우(처방 소분류가 Hormones-adrenal corticosteroid가 처방될 경우(대분류가 외용제인건은 제외) )
    */ 
    var chkFlag = "" ;
    var icd10Chck   = mainDiag10cd.substring( 0, 3 );
    var sMsg = "";
    if ( icd10Chck >= "J00" && icd10Chck <= "J06"  ) { 
        chkFlag = "1" ;
    } else {
		for( var i = 0; i < ds_main_diagcdlist.rowcount; i++ ){
			mainDiag10cd = lf_getDsValue(ds_main_diagcdlist, i, "icd10cd"); 
			icd10Chck   = mainDiag10cd.substring( 0, 3 );
			if ( icd10Chck >= "M130" && icd10Chck <= "M179"  ){
				chkFlag = "2" ;
				break;
			}
			if ( icd10Chck >= "M190" && icd10Chck <= "M199"  ){
				chkFlag = "3" ;
				break;
			}
		}
    }
    
    if( utlf_isNull(chkFlag) )  return true ;
    
    var prcpclscd       = "";
    var drugmastspec    = "";
    var tempcol2        = "";
    var rtnFlag         = "";
    var srcNodeList = null;
    
    var ds_src = this.objects[strSrc];
     
    prcpclscd   =  ds_src.getColumn(sendRow, "prcpclscd" );
    drugmastspec=  ds_src.getColumn(sendRow, "drugmastspec" );
    tempcol2    =  ds_src.getColumn(sendRow, "tempcol2" );
    if(prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
        if( chkFlag == "1"  && lf_getArrayData ( drugmastspec + "^", 0, 23, "^", "|" ) == "P" ) {
            rtnFlag = "1" ;
        } else if ( ( chkFlag == "2" || chkFlag == "3" ) && !utlf_isNull(tempcol2) ){
            //처방 소분류가 Hormones-adrenal corticosteroid(경구/주사만) 
            if( (tempcol2 == "03|04|03" || tempcol2 == "04|04|03") && prcpclscd != "A4" ) rtnFlag = chkFlag ;
        }  
    } 
    
    if( rtnFlag == "1" ) {
        sMsg = "급성 상기도(J00~J069)에 항생제 처방은 권장되지 않고 있으며 평가결과가 공개되는 항목입니다. 항생제처방을 재고하시거나,상병명을 변경하여 주십시오.문의 보험팀(" +  model.getValue("/root/initsrch/callnoinfo[trgtcd='insurance']/trgtcdnm") + ")" ;
    } else if( rtnFlag == "2" || rtnFlag == "3" ) { 
        sMsg = "골관절염상병(M130~M179, M190~M199)에 Steroid제제의 전신적 사용은 권장되지 않고 있으며 평가결과가 공개되는 항목입니다. Steroid처방을 재고하시거나, 상병명을 변경하여 주십시오.문의 보험팀" + model.getValue("/root/initsrch/callnoinfo[trgtcd='insurance']/trgtcdnm");
    } 

    if( rtnFlag == "1" ) {
        sysf_messageBox(sMsg, "I" );
        if ( ds_initsrch_hrcdinfo1.getColumn(0, "trgtcd") != "N" ) {
            return false ;
        } else {
            if ( sysf_messageBox ( "계속 저장하시겠습니까?","Q") != "6" ) {
                return false ;
            }
        }
    } else if ( rtnFlag == "2" || rtnFlag == "3" ) {
        sysf_messageBox(sMsg, "I" );
        //return false ;
        //by sonjy 20090803 골관절염상병 병원별 blocking 적용 변경요청서 선진행 사항. HARDCDNO 122
        if ( ds_initsrch_steroidlimyn.getColumn(0, "trgtcd") != "N" ) {
            return false ;
        } else {
            if ( sysf_messageBox ( "계속 저장하시겠습니까?","Q") != "6" ) {
                return false ;
            }
        }
    }

    return true ; 
}

/**@desc   : 당일결과 체크하면 체크값을 원무테이블에 입력해준다.
 * @param  :  
 * @return :
 * @author : 김영학 : 20090304
 * @---------------------------------------------------
*/  
function fSaveDayAftRcpt() {
	var sInputDs = dsf_createDsRow("ds_TXMMO00114", [{col:"pid",               type:"string", size:256, val:ds_paminfo.getColumn(0, "pid")},
                                                     {col:"orddd",             type:"string", size:256, val:ds_paminfo.getColumn(0, "orddd")},
                                                     {col:"cretno",            type:"string", size:256, val:ds_paminfo.getColumn(0, "cretno")},
                                                     {col:"prcptdayaftrcptyn", type:"string", size:256, val:div_all.chk_aftrcpt.value},
                                                     {col:"elbulbodstat",      type:"string", size:256, val:""}]);
    var oParam = {};
		oParam.id       = "TXMMO00114";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqSetPrcpDayAftRcpt";
		oParam.inds     = "req=" + sInputDs;
		oParam.async    = false;

	tranf_submit(oParam);
	
	dsf_deleteDs("ds_TXMMO00114");

    var ordPatObj = frmf_findPopup("SMMMO04100");
    if (!utlf_isNull(ordPatObj)) {
        ordPatObj.fPrcpCallPatList();    
    }
}

/**@desc   : 처방창 초기화 (상태에 따라 처방창이 처음 열리는 경우와 열려 있는 경우 초기화시켜주는 함수가 달라짐)
 * @param  :  
 * @return :
 * @author : 김영학 : 20090306
 * @---------------------------------------------------
*/  
function fInitPrcpWnd(status){
    if (status == "init") {
        btn_init.visible    = false;
        btn_reinit.visible  = false;
        
        zesf_InitSign();
 
        fInitializeReady();
        fAnstPrcp();  // 마취화면에서 보내준 처방 검색          
        //임시처방 호출 
		ds_init.setColumn(0, "setprcpyn", "Y" );

        if ( ds_initsrch_prcpetccnts.getColumn(0, "erprcpyn" ) == "Y" ) {
			frmf_setParameter ( "SMMMO00100_cond1", "Y" );
            lf_prcpModal ( "SMMMO06100", null, 0, 0 );
            
            div_all.grd_prcplist.setFocus();
        }

        fChkOuterCdListPop();  //외부등록CD 재판독 의뢰할 처방 있다면 popup 호출 (2010.02.24 JJE)
        
        ds_init.setColumn(0, "bfprcpload", "N");
        
        div_all.Tab_prcp.tabindex = 1;
        div_all.Tab_prcp.tp_bfprcp.fInitialize();
        
        ds_M0003.deleteRow(ds_M0003.findRow("cdid", 80));
        div_all.visible = true;
        
        div_all.Tab_prcp.tp_bfprcp.fBtnInit("C");
    } else {
        fInitializeConDone();

        btn_reinit.visible  = false;
        btn_init.visible    = false;
        
        fChkOuterCdListPop();  //외부등록CD 재판독 의뢰할 처방 있다면 popup 호출 (2010.02.24 JJE)

        var BfPrcpObj = frmf_findPopup("SMMMO02100") ;

        if (div_all.Tab_prcp.tabindex != 1) {
            div_all.Tab_prcp.tabindex = 1;
            div_all.Tab_prcp.tp_bfprcp.fInitialize();
            ds_M0003.deleteRow(ds_M0003.findRow("cdid", 80));
        }
        div_all.Tab_prcp.tp_bfprcp.fBtnInit("C");
        
        fInitializeReady("diag");
        
        fPatDiagSrch();
    }

    //20090515 마정민 상병 특례체크로직 추가. 의정부성모병원요청사항.
    //기존 의정부 성모병원은 부상병으로도 산정특례가 적용되어서 의사사 주,부 유형을 적확히 입력하지 않음
    //그래서 처방화면 로딩시 기존수진진단을 가져올때 마이그레이션 데이터이고 산정특례로 된 주진단이 없을 경우 메시지 처리
    for ( var i = 0; i < ds_main_diagcdlist.rowcount; i++ ) {    
        var status      = ds_main_diagcdlist.getColumn(i, "status");
        var diagremfact = ds_main_diagcdlist.getColumn(i, "diagremfact");
        
        if ( status == "I" && diagremfact == "Y" ) { //마이그레이션
			ds_main_diagcdlist.setColumn(i, "diagremfact", "");
            var spclinfo = ds_main_diagcdlist.getColumn(i, "spclinfo");            
            if ( spclinfo == "Y" ) { //산전특례
                //산정특례 처방이면 산전특례이면서 주상병이 있는지 찾는다.
                var findRow = ds_main_diagcdlist.findRowExpr("diagkindcdflag == 'M' && spclinfo == 'Y' && status == 'I'");
                var spcmdiagcd = (findRow == -1) ? "" : ds_main_diagcdlist.getColumn(findRow, "diagcd");
                if (utlf_isNull(spcmdiagcd)) { //값이 없으면 주상병으로 할 건지 물어본다.
                    var icd10cd = ds_main_diagcdlist.getColumn(i, "icd10cd");
                    if ( sysf_messageBox ( "[" + icd10cd + "] 상병은 특례상병입니다. 주상병으로 하시겠습니까?","Q") == "6" ) {
                        //하겠다고 하면 주상병으로 고침
                        for ( var j = 0; j < ds_main_diagcdlist.rowcount; j++ ) {
                            if (i == j) {
								ds_main_diagcdlist.setColumn(j, "diagkindcdflag", "M" );
                            } else {
                                if (ds_main_diagcdlist.getColumn(j, "diagkindcdflag")=="M") {
                                    ds_main_diagcdlist.setColumn(j, "diagkindcdflag", "S" );
                                    if (ds_main_diagcdlist.getColumn(j, "status" ) == "-" ) { 
                                        //진단상태가 - 이면 U로 수정함
                                        ds_main_diagcdlist.setColumn(j, "status", "U" );
                                    }
                                }
                            }
                        }
                        
                        //break; 20090629 diagremfact '-' 처리하는것 때문에 주석처리
                    }
                }
            }
        }
   }   
    
    // 전처방 복사 로직 위치 이동 2011.11.16 엄영만
    // 환경설정(전처방 자동 copy 기능 설정)에 따른 전처방 copy 추가 (요청번호:8586, 2009.11.02 JJE)
    var prcpgenrflag     = ds_patflag.getColumn(0, "prcpgenrflag" );
    var addprcpflag      = ds_init.getColumn(0, "addprcpflag");
    
    var findRow = ds_initsrch_envinfo.findRowExpr("qestcd == '016' && answcnt != '003'");    
    var copyPrcpInfoNode = ds_initsrch_envinfo.getColumn(findRow, "answcnt"); //001:약만COPY, 002:전체COPY, 003:설정안함
    if( prcpgenrflag == "O" && addprcpflag != "Y" && !utlf_isNull(copyPrcpInfoNode) ){
        if (typeof(div_all.Tab_prcp.tp_bfprcp) == "object"){
            div_all.Tab_prcp.tp_bfprcp.fCopyBfPrcp("init");
        }
    }

    //KNUH, 사전심사 대기상태인 경우, 대기상태 처방리스트와 심사메세지를 팝업으로 보여줌 (2011.03.17 JJE)
    fOpenBfJudgInfoPop();
   
}

/**@desc   : 처방창 초기화 (처방창이 처음 열리는 경우)
 * @param  :  
 * @return :
 * @author : 김영학 : 20090306
 * @---------------------------------------------------
*/  
function fXformsReady() {
    //처방 속도개선을 위한 시간 체크 set 20101027  LYJ
	try {
        var SMMMO00100_S = new Date();
        var ordPatObj = frmf_findPopup("SMMMO04100");    
        var SMMMO04100_chk = ordPatObj.frmf_getParameter("SMMMO04100_chk");
        if(!utlf_isNull(ordPatObj) && SMMMO04100_chk == "Y"){
			ordPatObj.frmf_setParameter("SMMMO00100_S",SMMMO00100_S.getTime());
        }
    } catch(e) {
    }
    
    btn_reinit.visible = false; 
    
    // 신규처방 수정 모드을 위한 bind셋팅 - 20090630 by Moonsh 
    var AnswData = "N";//fGetIntefeAnsw("013");
    if( AnswData == "Y" ) {
        ds_init.setColumn(0, "enviflag", "Y"); 
        //div_all.grd_prcplist.autoenter = "none";
    } else {
		ds_init.setColumn(0, "enviflag", "");
		//div_all.grd_prcplist.autoenter = "select";
    }
    
    fInitializeConDone();
    fBaseCdInit();
    fInitBtnSet();

    var answcnt = lf_mmbfGetUserEnvQuestValue("006"); // "006" 환자선택시 진료프로그램 로딩 방식 (001:처방창만 블라인드, 002:기록창만 블라인드, 003:처방창과 기록창 블라인드, 004:처방창과 기록창 모두 오픈
    if (answcnt =="001" || answcnt =="003") {
        btn_init.visible = true;    
        div_all.visible = true;
    } else {
        fInitPrcpWnd("init");
    }

    // CP 초기화 해주는 로직 전처방에서 처방.js로 이동 김영학 ( 2009.03.16)
    //JJE- (추가, srcOrdPatListwnd=null의 Y/N 상관없이 체크해야 함)
    var fstopenflag = ds_init.getColumn(0, "fstopenflag"); //처방화면이 최초 생성 여부
    var cpWdwFlag   = ds_root.getColumn(0, "cp");
    if( fstopenflag == "Y" && cpWdwFlag == "Y" ){       //CP가 open된 첫회만 수행(CP가 열린상태에서 다른환자 선택 시 수행 안함 -> fReconstruct()*2 방지)
        // CPGMAIN 화면 작업후 확인필요
        fReconstruct();
    }
    
    //처방 마우스 오른쪽 클릭 메뉴를 병원마다 달리하기 위해 하드코드테이블에서 받아옴.
    fGetRghtClickList();
}

/**@desc   : 처방창 초기화 (처방창이 열려 있는 경우)
 * @param  :  
 * @return :
 * @author : 김영학 : 20090306
 * @---------------------------------------------------
*/  
function fXReReady(consulyn) {
    //처방 속도개선을 위한 시간 체크 set 20101027  LYJ
    try {
        var SMMMO00100_S = new Date();
        var ordPatObj = frmf_findPopup("SMMMO04100");    
        var SMMMO04100_chk = ordPatObj.frmf_getParameter("SMMMO04100_chk");
        if(!utlf_isNull(ordPatObj) && SMMMO04100_chk  == "Y"){
          ordPatObj.frmf_setParameter("SMMMO00100_S",SMMMO00100_S.getTime());
        }
    } catch(e) {
    }

    btn_reinit.visible = false;    
    div_all.group_rmk.visible = false;                                             //처방 화면 참고사항 안보이게
    
    var answcnt = lf_mmbfGetUserEnvQuestValue("006"); // "006" 환자선택시 진료프로그램 로딩 방식 (001:처방창만 블라인드, 002:기록창만 블라인드, 003:처방창과 기록창 블라인드, 004:처방창과 기록창 모두 오픈
    if(consulyn == "T") {
        answcnt = "";
    }
    
    if (answcnt == "001" || answcnt == "003") {
        btn_reinit.visible = true;
        btn_init.visible = false;
        var BfPrcpObj = frmf_findPopup("SMMMO02100");
        
        if(div_all.Tab_prcp.tabindex != 1) {
			div_all.Tab_prcp.tabindex = 1;
			div_all.Tab_prcp.tp_bfprcp.fInitialize();
			
			ds_M0003.deleteRow(ds_M0003.findRow("cdid", 80));
        }
        div_all.Tab_prcp.tp_bfprcp.fBtnInit("B");;              
    } else {
        fInitPrcpWnd();
    }
    
    fSelfHldPrcpSub(); //자가보유처방 조회 20100127 by LYJ 
    fChkValidRecInfo(); //kimsj 처방시 미비기록 유무 확인(submit) -- SMMMO04100.js에서 message 실행
}

/**@desc   : 차상위 추가 체크
 * @param  :  
 * @return :
 * @author : 20090327 마정민추가
 * @---------------------------------------------------
*/ 
function fScndChk() {
	ds_TRMMO00127.setColumn(0, "pid",      ds_paminfo.getColumn(0, "pid" )); 
    ds_TRMMO00127.setColumn(0, "orddd",    ds_paminfo.getColumn(0, "orddd" ));
    ds_TRMMO00127.setColumn(0, "cretno",   ds_paminfo.getColumn(0, "cretno" ));
    ds_TRMMO00127.setColumn(0, "instcd",   ds_paminfo.getColumn(0, "instcd" ));
    ds_TRMMO00127.setColumn(0, "insukind", ds_paminfo.getColumn(0, "insukind" ));
    ds_TRMMO00127.setColumn(0, "suppkind", ds_paminfo.getColumn(0, "suppkind" ));
    ds_TRMMO00127.setColumn(0, "rrgstno1", ds_paminfo.getColumn(0, "rrgstno1" ));
    ds_TRMMO00127.setColumn(0, "rrgstno2", ds_paminfo.getColumn(0, "rrgstno2" ));
    ds_TRMMO00127.setColumn(0, "userid",   sysf_getUserInfo ("userid") );
    ds_TRMMO00127.setColumn(0, "updtyn",   "Y" );
    ds_TRMMO00127.setColumn(0, "chronicdiseaseyn", ds_init.getColumn(0, "chronicdiseaseyn"));
    ds_TRMMO00127.setColumn(0, "etcordflag", "");
    
    //by sonjy 20090803 가정간호 특례체크 관련 추가 
    //model.setValue ( "/root/send/cond15", model.getValue ( "/root/paminfo/list/etcordflag" ));
    var oParam = {};
		oParam.id       = "TRMMO00127";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqExeSaveScndPamInfo";
		oParam.inds     = "req=ds_TRMMO00127";
		oParam.async    = false;

	tranf_submit(oParam);
    
    //by sonjy 20090803 가정간호 특례체크 관련 추가  : 시행부서처방에서 호출시 해당 내역 초기화 필요. => 호출뒤 처방검색시 오류발생 
    /*
    if (  model.getValue ( "/root/addprcp" ) == "Y" && model.getValue ( "/root/paminfo/list/etcordflag" ) == "N" ){ 
        model.setValue ( "/root/send/cond3", ""); 
        model.setValue ( "/root/send/cond4", ""); 
        model.setValue ( "/root/send/cond5", ""); 
        model.setValue ( "/root/send/cond6", ""); 
        model.setValue ( "/root/send/cond7", ""); 
        model.setValue ( "/root/send/cond8", ""); 
        model.setValue ( "/root/send/cond9", ""); 
        model.setValue ( "/root/send/cond10", ""); 
        model.setValue ( "/root/send/cond11", ""); 
        model.setValue ( "/root/send/cond12", ""); 
        model.setValue ( "/root/send/cond14", ""); 
        
        //by sonjy 20090803 가정간호 특례체크 관련 추가 
        model.setValue ( "/root/send/cond15", ""); 
    }
    */
}

/**@desc   : 예약처방. 예약처방으로 저장하면 PRCPHISTCD = 'X' 상태로 있다가 간호입실확인시 실처방으로 전환. 후인증.
 * @param  :  
 * @return :
 * @author : 20090327 마정민추가
 * @---------------------------------------------------
*/ 
function fSetRsrvPrcp() {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    
    //kimsj 외래간호 선처치 마스터에 등록된 처방을 예약처방으로 지정하는 경우 처방 저장 시 [선처치] 자동으로 해제
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    var precureprcp  = ds_initsrchprcp_prcpetccnts.getColumn(0, "precureprcpcd");
    var sFrtStage = "", sSndStage = "", sPreMasterYn = "";
    
    for (var i = 0; i < selectedRows.length; i++) {
        if (ds_main_prcplist.getColumn(selectedRows[i], "status")=="S") continue;
        if (prcpgenrflag == "O") {
            sPreMasterYn = "N";
            sFrtStage = precureprcp.split("^");
            for (var j = 0; j < sFrtStage.length; j++) {
                sSndStage = sFrtStage[j].split("|");
                if ( ds_main_prcplist.getColumn(selectedRows[i], "prcpcd" ) == sSndStage[0] ) {  //처방코드, 선처치 마스터 코드(코드|선처치|부서)
                    //model.alert("선처치 처리부분으로 들어왔습니다! prcpcd : " + sSndStage[0]);
                    sPreMasterYn = "Y";
                    break;
                }
            }
        }
        
        if ( ds_main_prcplist.getColumn(selectedRows[i], "prcpkindcd" ) == "80" ) {
            ds_main_prcplist.setColumn(selectedRows[i], "prcpkindcd", "20" );
            if ( ds_main_prcplist.getColumn(selectedRows[i], "prnprcpflag" ) == "Y" ) {
                ds_main_prcplist.setColumn(selectedRows[i], "prnprcpflag", "N" );
            }
            if (sPreMasterYn == "Y")    ds_main_prcplist.setColumn(selectedRows[i], "precureprcpflag", "Y" ); //선처치
        } else {
            ds_main_prcplist.setColumn(selectedRows[i], "prcpkindcd", "80" );
            if (sPreMasterYn == "Y")    ds_main_prcplist.setColumn(selectedRows[i], "precureprcpflag", "N" ); //선처치
        }

        lf_makePrcpNm( "ds_main_prcplist", selectedRows[i] );
        
        fSetCpVal(selectedRows[i], "U");
    }
}

/**@desc   : 신규처방 수정모드 초기화 
 * @param  : 
 * @return : 
 * @author : 20090630 by Moonsh
 * @---------------------------------------------------
*/ 
function fCodeModifyInit() {
	var grdcnt = ds_main_prcplist.rowcount - 1;
	var modirow = ds_main_prcplist.rowposition;
	
	if ( grdcnt != modirow ) { 
		ds_init_rowmodify.setColumn(0, "modiinit", "Y"); 
		ds_init_rowmodify.setColumn(0, "modiflag", "Y"); 
		ds_init_rowmodify.setColumn(0, "modirow", modirow); 
		
		var bacprcpcd = ds_main_prcplist.getColumn(modirow, "prcpcd"); 
		// 상태가 검색은 삭제가 안되므로, 검색에서 신규로 상태 변경 후 삭제 
		ds_main_prcplist.setColumn(modirow, "status", "I");
		
		ds_init_rowmodify.setColumn(0, "lastrow", grdcnt); 
		ds_main_prcplist.setColumn(grdcnt, "prcpcd", bacprcpcd); 

		ds_main_prcplist.rowposition = grdcnt;
		//grd_prcplist.focusColor = "#ffffff"; 
		prcpcd = bacprcpcd;
	}
} 

/**@desc   : 신규처방 수정되는 열 추가 
 * @param  :  
 * @return :
 * @author : 20090630 by Moonsh
 * @---------------------------------------------------
*/

function fCodeModifyAdd() { 
    // Import여부 조회 
    var importflag = ds_init_rowmodify.getColumn(0, "importflag"); 
    
    // 검색 단어 수가 맞지 않을 경우 조회 전 값 셋팅 후 리턴 
    var srchnoflag = ds_init_rowmodify.getColumn(0, "srchnoflag"); 
    if ( srchnoflag == "Y" ) { 
        var modirow    = ds_init_rowmodify.getColumn(0, "modirow"); 
        var prcpcd     = ds_main_prcplist.getColumn(modirow, "prcpcd");
        var modiprcpcd = ds_init_rowmodify.getColumn(0, "modiprcpcd");
        var lastrow    = ds_main_prcplist.rowcount - 1;        
        var lastprcpcd = ds_main_prcplist.getColumn(lastrow, "prcpcd"); 
        
        ds_main_prcplist.setColumn(modirow, "prcpcd", modiprcpcd); 
        ds_main_prcplist.setColumn(lastrow, "prcpcd", ""); 
        
        // 초기화 
        ds_init_rowmodify.setColumn(0, "modiflag", ""); 
        ds_init_rowmodify.setColumn(0, "enterflag", ""); 
        ds_init_rowmodify.setColumn(0, "srchnoflag", ""); 
                
        ds_main_prcplist.selectRow(modirow);
		ds_main_prcplist.rowposition = modirow;			
		div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getCellPos());
        return ; 
    } 
    
    // edit cell 상황에서 enter 칠때만 변경 코드 조회 적용 
    // div_all.grd_prcplist.userdata == 1 은 edit cell에서 엔터키 눌렀을때임
    if ( div_all.grd_prcplist.userdata == 1 || importflag == "Y") { 
        var tarrow  = ds_init_rowmodify.getColumn(0, "modirow"); 
        var lastrow = ds_init_rowmodify.getColumn(0, "lastrow"); 

        ds_main_prcplist.selectRow(tarrow);
		ds_main_prcplist.rowposition = tarrow;			
		div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getCellPos());
			
        // 해당 row 삭제 처리
        fDeleteRow();

        var nodeLen = ds_main_prcplist.rowcount;
        
        // 1. 검색 했으나 조회 조건이 없을 경우, 2. 그룹코드를 수정할 경우 
        if ( lastrow > nodeLen ) { 
            var srchcond = "N"; 
        }
        
        // 1. 수정 후 코드 조회 건이 1건일 경우(대부분이 여기에 해당),  2. 검색했으나 조회 조건이 없을때... 
        if ( lastrow == nodeLen || srchcond == "N" ) {
            // 위치 선정 
            lastrow = lastrow - 1; 
            
            if (srchcond != "N") {
                ds_main_prcplist.moveRow(lastrow, tarrow);
            } else { 
                nodeLen = nodeLen - 1;
                ds_main_prcplist.moveRow(nodeLen, tarrow);
            }
            
            ds_main_prcplist.selectRow(tarrow);
			ds_main_prcplist.rowposition = tarrow;			
			div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getCellPos());
         } else {                                                // 수정 후 코드 조회건이 1건 이상일 경우
            lastrow = lastrow - 1; 
            var roop = nodeLen - lastrow; 
            for ( var i = 1; i < roop; i++ ) {
				ds_main_prcplist.moveRow(lastrow++, tarrow++);
            }
            
            var tarrow2 = ds_init_rowmodify.getColumn(0, "modirow"); 
            ds_main_prcplist.selectRow(tarrow2);
			ds_main_prcplist.rowposition = tarrow2;			
			div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getCellPos());
        }
        
        ds_init_rowmodify.clearData();
        ds_init_rowmodify.addRow();
    }           
}

/**@desc   : 통증관리 화면.
 * @return : true, false
 * @authur : 한재상 2009. 9. 9
 */
function fPainCnt() {
    var orddeptcd    = ds_paminfo.getColumn(0, "orddeptcd");
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag" );

	var paincntyn    = ds_initsrch_paincntyn.getColumn(0, "trgtcd");
    var srcNodeCount = ds_initsrch_paincntdept.getCaseCount("trgtcd == '" + orddeptcd + "'");

    if ( prcpgenrflag == "I" && paincntyn == "Y" && srcNodeCount != 0 ) {
        var pid    = ds_paminfo.getColumn(0, "pid");
        var indd   = ds_paminfo.getColumn(0, "indd");
        var cretno = ds_paminfo.getColumn(0, "cretno");

        fConfirmPainAdmin(pid, indd, cretno, "dr", "ds_searchinfo_paincount");
    }
}

/**@desc   :병리처방 과거 블록 지정 => 변경 요청번호 7322 
 * @return : true, false
 * @authur : 손주연 2009.09.27
 */
function fSetPlgyPastBlock() {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var i   = 0; 
    var tempcol2 = "";
    var chkcnt = 0;
    
    for (var j = 0; j < selectedRows.length; j++) {
        i = selectedRows[j];
        tempcol2 = ds_main_prcplist.getColumn(i, "tempcol2");
        
        //earncls1 : 07  earncls2 : 01, 02(조직, 세포) 신규 팝업 화면이 뜨지 않아야 함. 
        if ( ds_main_prcplist.getColumn(i, "prcpclscd" )  != 'D2' || 
             tempcol2.substring(0,5) == "07|01" || tempcol2.substring(0,5) == "07|02" ) { 
             sysf_messageBox (ds_main_prcplist.getColumn(i, "prcpnm") + "는 병리번호지정 가능한 처방이 아닙니다.", "I" );
             return false;
        } else {
            chkcnt++;
        } 
    }
    
    if( chkcnt < 1 ) return false;
    
    var mon = sysf_getCurrentMonitorNumber();
	var xpt = this.getOwnerFrame().position.x + 100;
	var ypt = this.getOwnerFrame().position.y + 100;
    
    var pid = ds_paminfo.getColumn(0, "pid");
    ds_hidden_reqfrminfo.clearData();
    ds_hidden_reqfrminfo.addRow();
    ds_hidden_reqfrminfo.setColumn(0, "pid", pid);
    
    var objArg = new Object();
	objArg.arg_ds_hidden_reqfrminfo = ds_hidden_reqfrminfo;

	frmf_modal("SPLPJ02600", "SPLPJ02600", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
	
    var reqno = ds_hidden_reqfrminfo.getColumn(0, "reqno");
    
    if ( !utlf_isNull(reqno)){
        for( var j = 0; j < selectedRows.length; j++){
            i = selectedRows[j];
            tempcol2 = ds_main_prcplist.getColumn(i, "tempcol2" );
            
            if( ds_main_prcplist.getColumn(i, "prcpclscd") == 'D2' &&
             tempcol2.substring(0,5) != "07|01" && tempcol2.substring(0,5) != "07|02"  ){
                ds_main_prcplist.setColumn(i, "testreqlnkno", ds_hidden_reqfrminfo.getColumn(0, "reqno" ));
                ds_main_prcplist.setColumn(i, "drugmthdspccd", ds_hidden_reqfrminfo.getColumn(0, "spccd" ));
                ds_main_prcplist.setColumn(i, "drugmthdspccdnm", ds_hidden_reqfrminfo.getColumn(0, "spcnm" ));
            }
         }
    }
    return true;
}

/**@desc   : 처방 화면의 처방코드 컬럼 SORTING
 * @param  : 
 * @return : 
 * @author : 전지은
 * @---------------------------------------------------
 */
function fGrdOnBeForeSort(){
	var rowcount = ds_main_prcplist.rowcount;
	
    //2009.10.15 처방 화면의 처방코드 컬럼 SORTING 기능 추가 요청 - 검색라인이 맨위로 올라가는 것을 방지
    ds_main_prcplist.deleteRow(rowcount - 1);

    //2009.10.29 mset 존재하면 copy&delete 해두었다가 정렬 후 추가해준다.

    dsf_createDs("ds_temp_tempsortprcp");
    ds_temp_tempsortprcp.copyData(ds_main_prcplist);
    
    ds_main_prcplist.enableevent     = false;
    ds_temp_tempsortprcp.enableevent = false;
    
    for(var i = ds_main_prcplist.rowcount - 1; i >= 0; i--){
        if(ds_main_prcplist.getColumn(i, "inclprcpno") > "0" && ds_main_prcplist.getColumn(i, "prcpsetcd") != "-"){
			ds_main_prcplist.deleteRow(i);
        } else {
			ds_temp_tempsortprcp.deleteRow(i);
        }
    }
    
    ds_main_prcplist.enableevent     = true;
    ds_temp_tempsortprcp.enableevent = true;
}

/**@desc   : 처방 화면의 처방코드 컬럼 SORTING
 * @param  : 
 * @return : 
 * @author : 전지은
 * @---------------------------------------------------
 */
function fGrdOnAfterSort(){
    //2009.10.15 처방 화면의 처방코드 컬럼 SORTING 기능 추가 요청 - 정렬 후 검색라인 맨 밑에 추가    
    lf_appendChildPrcp ( "ds_reset_prcplist", "ds_main_prcplist", "main" ); //검색라인추가 

    //2009.10.29 mset처방의 자코드가 따로 그룹핑되도록 처리
    if(!utlf_isNull(ds_temp_tempsortprcp) && ds_temp_tempsortprcp.rowcount > 0) {
		var tempCnt = ds_temp_tempsortprcp.rowcount;
             
		ds_main_prcplist.enableevent = false;
		//처방 수만큼 check
		for( var i = 0; i < ds_main_prcplist.rowcount; i++ ){
			var iInclprcpno = ds_main_prcplist.getColumn(i, "inclprcpno");
			var iPrcpsetcd  = ds_main_prcplist.getColumn(i, "prcpsetcd");
							
			if(iInclprcpno > '0' && iPrcpsetcd = '-') {		// mset
				for(var t = tempCnt - 1; t >= 0; t--){
					var tInclprcpno = ds_temp_tempsortprcp.getColumn(t, "inclprcpno");
					if(iInclprcpno == tInclprcpno){
						i++;
						ds_main_prcplist.insertRow(i);
						ds_main_prcplist.copyRow(i, ds_temp_tempsortprcp, t);
					}
				}
			}
		}
		
		ds_main_prcplist.applyChange();
		ds_main_prcplist.enableevent = true;
		
        dsf_deleteDs("ds_temp_tempsortprcp");
    }
}

/**@desc   : 처방 이동 (위로 or 아래로 버튼을 통한 이동)
 * @param  : btnFlag 버튼구분(top or bottom)
 * @return : void
 * @authur : 전지은 2009.11.18
 * @---------------------------------------------------
 */
function fMovePrcpList ( btnFlag ) {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var frstRow   = 0;
    if( btnFlag == "top" )         frstRow = selectedRows[0];
    else if( btnFlag == "bottom" ) frstRow = selectedRows[selectedRows.length - 1];
    var allRows   = ds_main_prcplist.rowcount - 1; //caption, search row
    var addChkRow = 0;
    var cnt       = 0;
    var chngYN    = 0; //선택된 row인지 체크
    var rowNum    = 0;
    var chkNum    = 0; //위, 아래 row의 mset여부에 따라 달라지는 +/- row
    var moveCnt   = 0;
    var iRow      = 0;
    var addNum    = 0; //추가해야할 num
//var pmFlag  = 0; //rowNum + - 여부 : 0 or else
    var selInclprcpno = "";
    var chkInclprcpno = "";
    
    var inclprcpnoExistYN = "N";
    var inclprcpnoCVS     = "";
    var inclprcpnoItem    = "";
    
    var printRow  = new Array();
    var printRow2 = new Array();
    var selRows   = new Array();
    
    if( selectedRows.length < 1 ) return;
    
    ds_main_prcplist.enableevent = false;
    
    dsf_createDs("ds_tmp_moveprcp");
    
    for(var i = selectedRows.length - 1; i >= 0; i--){
        if(ds_main_prcplist.getColumn(selectedRows[i], "inclprcpno") > "0" && ds_main_prcplist.getColumn(selectedRows[i], "prcpsetcd") == "-")
            inclprcpnoCVS = inclprcpnoCVS + ds_main_prcplist.getColumn(selectedRows[i], "inclprcpno") + "|";
    }
    inclprcpnoItem = inclprcpnoCVS.split("|");
    
    //전체 row를 보면서 rowSeq를 설정해 줌 , rowseq순으로 /root/tmp_moveprcp => /root/main/prcp 로 이동
    if( btnFlag == "top" ){        
        for( var i = ds_main_prcplist.rowcount - 1; i >= 0; i-- ){            
            iRow = i;
            chkNum = 0;
            chngYN = 0;
            addNum = 0;
            //pmFlag = 0;
            
            if( iRow >= 0 ){                
                chkInclprcpno = ds_main_prcplist.getColumn(iRow, "inclprcpno");
                
                if( inclprcpnoItem.length - 1 > 0 ){
                    for(var k = 0; k < inclprcpnoItem.length - 1; k++){ //copy대상의 mset
                        if( chkInclprcpno != "0" && chkInclprcpno == inclprcpnoItem[k] ){
                            chngYN = 1;
                        }
                    }
                }
                
                if( chngYN == 0 && ds_main_prcplist.getSelect(iRow) == true && chkInclprcpno == "0" ) chngYN = 1;
                
                if( chngYN == 1 ){  //선택된 row이면(선택된모코드의 자코드도 포함)
                    addChkRow = iRow - 1;
                    selInclprcpno = "";
                    
                    if( addChkRow >= 0 && addChkRow < ds_main_prcplist.rowcount ){                        
                        for(var j = addChkRow; j >= 0; j--){
                            addYN = "N";
                            chkInclprcpno = ds_main_prcplist.getColumn(j, "inclprcpno");
                            
                            if( inclprcpnoItem.length - 1 > 0 ){
                                for(var k = 0; k < inclprcpnoItem.length - 1; k++){ //copy대상의 mset
                                    if( chkInclprcpno != "0" && chkInclprcpno == inclprcpnoItem[k] ){
                                        //addNum++;
                                        addYN = "Y";
                                    }
                                }
                            }
                            
                            if( addYN != "Y" && ds_main_prcplist.getSelect(j) == true && chkInclprcpno == "0" ){
                                //addNum++;
                                addYN = "Y";
                            }
                            
                            if( addYN != "Y" ){
                                if( chkInclprcpno != "0" ){  // && chkInclprcpno != inclprcpnoItem[k]
                                    if( utlf_isNull(selInclprcpno) ) selInclprcpno = ds_main_prcplist.getColumn(j, "inclprcpno");
                                    if( !utlf_isNull(selInclprcpno) && selInclprcpno == chkInclprcpno && utlf_isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                    chkNum++;
                                }
                                else{
                                    if( printRow.length <= 0 ){
                                        if( utlf_isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                        chkNum++;
                                    }
                                    break;
                                }
                            }                            
                        }
                    }
                }                
            }
            
            if( chngYN > 0 ){
                rowNum = i - printRow.length;
                moveCnt++;
                selRows[selRows.length] = rowNum;
                
                //임시처방은 순서변경 시 수정모드로 상태를 세팅해줌
                if( ds_main_prcplist.getColumn(i, "status") == "-") ds_main_prcplist.setColumn(i, "status", "U" );                
            }else{
                if( printRow.length > 0 ){
                    for( var p = 0; p < printRow.length; p++ ){
                        if( printRow[p] == i ) addNum = moveCnt;
                    }
                }
                
                rowNum = i + addNum;
                
                if( printRow.length == 0 || (printRow.length > 0 && i == printRow[printRow.length-1]) ){
                    moveCnt = 0;
                    printRow = new Array();
                }
            }
            
            //검색 row는 rowseq 변동 없음
            if( ds_main_prcplist.getColumn(i, "status") == "S" ) rowNum = i;
            
            ds_main_prcplist.addColumn("rowseq", "string");
            ds_main_prcplist.setColumn(i, "rowseq", rowNum);
            printRow2[i-1] = rowNum;
        }        
    } else{
        for( var i = 0; i < ds_main_prcplist.rowcount; i++ ){
            iRow = i;
            chkNum = 0;
            chngYN = 0;
            addNum = 0;
            //pmFlag = 0;
            
            if( iRow < ds_main_prcplist.rowcount - 1){                
                chkInclprcpno = ds_main_prcplist.getColumn(iRow, "inclprcpno");
                
                if( inclprcpnoItem.length - 1 > 0 ){
                    for(var k = 0; k < inclprcpnoItem.length - 1; k++){ //copy대상의 mset
                        if( chkInclprcpno != "0" && chkInclprcpno == inclprcpnoItem[k] ){
                            chngYN = 1;
                        }
                    }
                }
                
                if( chngYN == 0 && ds_main_prcplist.getSelect(iRow) == true && chkInclprcpno == "0" ) chngYN = 1;
                
                if( chngYN == 1 ){  //선택된 row이면(선택된모코드의 자코드도 포함)
                    addChkRow = iRow + 1;
                    selInclprcpno = "";
                    
                    if( addChkRow >= 0 && addChkRow < ds_main_prcplist.rowcount ){
                        
                        for(var j = addChkRow; j < allRows; j++){
                            addYN = "N";
                            chkInclprcpno = ds_main_prcplist.getColumn(j, "inclprcpno");
                            
                            if( inclprcpnoItem.length - 1 > 0 ){
                                for(var k = 0; k < inclprcpnoItem.length - 1; k++){ //copy대상의 mset
                                    if( chkInclprcpno != "0" && chkInclprcpno == inclprcpnoItem[k] ){
                                        //addNum++;
                                        addYN = "Y";
                                    }
                                }
                            }
                            
                            if( addYN != "Y" && ds_main_prcplist.getSelect(j) == true && chkInclprcpno == "0" ){
                                //addNum++;
                                addYN = "Y";
                            }
                            
                            if( addYN != "Y" ){
                                if( chkInclprcpno != "0" ){  // && chkInclprcpno != inclprcpnoItem[k]
                                    if( utlf_isNull(selInclprcpno) ) selInclprcpno = ds_main_prcplist.getColumn(j, "inclprcpno");
                                    if( !utlf_isNull(selInclprcpno) && selInclprcpno == chkInclprcpno && utlf_isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                    chkNum++;
                                }
                                else{
                                    if( printRow.length <= 0 ){
                                        if( utlf_isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                        chkNum++;
                                    }
                                    break;
                                }
                            }                            
                        }
                    }
                }                
            }
            
            if( chngYN > 0 ){
                rowNum = i + printRow.length;
                moveCnt++;
                selRows[selRows.length] = rowNum;
                
                //임시처방은 순서변경 시 수정모드로 상태를 세팅해줌
                if( ds_main_prcplist.getColumn(i, "status") == "-") ds_main_prcplist.setColumn(i, "status", "U" );                
            }else{
                if( printRow.length > 0 ){
                    for( var p = 0; p < printRow.length; p++ ){
                        if( printRow[p] == i ) addNum = moveCnt;
                    }
                }
                
                rowNum = i - addNum;
                
                if( printRow.length == 0 || (printRow.length > 0 && i == printRow[printRow.length-1]) ){
                    moveCnt = 0;
                    printRow = new Array();
                }
            }
            
            //검색 row는 rowseq 변동 없음
            if( ds_main_prcplist.getColumn(i, "status") == "S" ) rowNum = i;
            
            ds_main_prcplist.addColumn("rowseq", "string");
            ds_main_prcplist.setColumn(i, "rowseq", rowNum);
            printRow2[i-1] = rowNum;
        }
    }
    
    //alert( printRow2 );
    
    ds_tmp_moveprcp.copyData(ds_main_prcplist);
    
    //처방 인스턴스로 이동 후 refresh
    ds_main_prcplist.clearData();
    
    for( var i = 0; i < ds_tmp_moveprcp.rowcount; i++ ){
		var findRow = ds_tmp_moveprcp.findRow("rowseq", i);
		
		var row     = ds_main_prcplist.addRow();		
		ds_main_prcplist.copyRow(row, ds_tmp_moveprcp, findRow);
    }
    
    ds_main_prcplist.deleteColumn("rowseq");
    
    dsf_deleteDs("ds_tmp_moveprcp");
    
    ds_main_prcplist.applyChange();
    
    //이동된 row를 select 처리함
	if( selRows.length > 0 ){
		for(var i = 0; i < selRows.length; i++){
            ds_main_prcplist.selectRow(selRows[i]);
        }
        
        ds_main_prcplist.rowposition = selRows[selRows.length - 1];
    }
    
    ds_main_prcplist.enableevent = true;
}

// 20100108 한재상 - 유전자검사 동의서 출력방식 변경 (OCR -> REX)
function fSaveOCRIF(ocrtag, pid, orddd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, diaghngnm, ophngnm, pagecnt){
    trace("fSaveOCRIF: " + ocrtag + "," + pid + "," + orddd + "," + cretno + "," + ordtype + "," + orddeptcd + "," + orddrid + "," + formcd + "," + formfromdt + "," + diaghngnm + "," + ophngnm + "," + pagecnt);
    
    var savepath = dsf_createDsRow("ds_hidden_atadocrdata", [{col:"ocrtag",        type:"string", size:256},
                                                             {col:"pid",           type:"string", size:256},
                                                             {col:"ordtype",       type:"string", size:256},
                                                             {col:"orddd",         type:"string", size:256},
                                                             {col:"orddrid",       type:"string", size:256},
                                                             {col:"orddeptcd",     type:"string", size:256},
                                                             {col:"formcd",        type:"string", size:256},
                                                             {col:"formfromdt",    type:"string", size:256},
                                                             {col:"fstprntdt",     type:"string", size:256},
                                                             {col:"fstprntdeptcd", type:"string", size:256},
                                                             {col:"fstprntid",     type:"string", size:256},
                                                             {col:"updtdt",        type:"string", size:256},
                                                             {col:"updtdeptcd",    type:"string", size:256},
                                                             {col:"updtuserid",    type:"string", size:256},
                                                             {col:"diagnm",        type:"string", size:256},
                                                             {col:"opnm",          type:"string", size:256},
                                                             {col:"pagecnt",       type:"string", size:256}]);
    ds_hidden_atadocrdata.setColumn(0, "ocrtag",        ocrtag);
    ds_hidden_atadocrdata.setColumn(0, "pid",           pid);
    ds_hidden_atadocrdata.setColumn(0, "ordtype",       ordtype);
    ds_hidden_atadocrdata.setColumn(0, "orddd",         orddd);
    ds_hidden_atadocrdata.setColumn(0, "cretno",        cretno);
    ds_hidden_atadocrdata.setColumn(0, "orddrid",       orddrid);
    ds_hidden_atadocrdata.setColumn(0, "orddeptcd",     orddeptcd);
    ds_hidden_atadocrdata.setColumn(0, "formcd",        formcd);
    ds_hidden_atadocrdata.setColumn(0, "formfromdt",    formfromdt);
    ds_hidden_atadocrdata.setColumn(0, "fstprntdt",     utlf_getCurrentDate() + utlf_getCurrentTime());
    ds_hidden_atadocrdata.setColumn(0, "fstprntdeptcd", sysf_getUserInfo("dutplcecd"));
    ds_hidden_atadocrdata.setColumn(0, "fstprntid",     sysf_getUserInfo("userid"));
    ds_hidden_atadocrdata.setColumn(0, "updtdt",        utlf_getCurrentDate() + utlf_getCurrentTime());
    ds_hidden_atadocrdata.setColumn(0, "updtdeptcd",    sysf_getUserInfo("dutplcecd"));
    ds_hidden_atadocrdata.setColumn(0, "updtuserid",    sysf_getUserInfo("userid"));
    ds_hidden_atadocrdata.setColumn(0, "diagnm",        diaghngnm);
    ds_hidden_atadocrdata.setColumn(0, "opnm",          ophngnm);
    ds_hidden_atadocrdata.setColumn(0, "pagecnt",       pagecnt);
    
    var sRstRef = dsf_createDs("ds_init_insocrtag_ocrprntlnfo");

	var oParam = {};
		oParam.id       = "TXMRF03805";
		oParam.service  = "formmngtapp.OcrPreViewMngt";
		oParam.method   = "reqInsOcrPrntInfo";
		oParam.inds     = "req=ds_hidden_atadocrdata";
		oParam.outds    = sRstRef + "=ocrprntlnfo";
		oParam.async    = false;
		oParam.callback = "cf_TXMRF03805";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TXMRF03805") > -1) {
		dsf_deleteDs(savepath);
        return true;
    } else {
		dsf_deleteDs(savepath);
        return false;
    }
}

function cf_TXMRF03805(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : 퇴원예고등록 또는 수정처리를 위한 Initialize
 * @return : void
 * @authur : 오지훈 2007. 7. 24
 * @---------------------------------------------------
 */
function fDschNotiInit(){
//ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
//외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
   var ioflag = ds_paminfo.getColumn(0, "ioflag");
   var param;
   
	if ( ioflag == "O" ) {
		var pid = ds_paminfo.getColumn(0, "pid" );
		var orddd = ds_paminfo.getColumn(0, "orddd" );
		var cretno = ds_paminfo.getColumn(0, "cretno" );
		var instcd = ds_paminfo.getColumn(0, "instcd" );
		var acptseqno = ds_paminfo.getColumn(0, "acptseqno" );
		var orgorddd = ds_paminfo.getColumn(0, "orgorddd" );                  
		param = ioflag + "▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + acptseqno + "▦" + orgorddd;
	} else {
		//ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
		//외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
		var pid = ds_paminfo.getColumn(0, "pid" );
		var indd = ds_paminfo.getColumn(0, "indd" );
		var cretno = ds_paminfo.getColumn(0, "cretno" );
		var instcd = ds_paminfo.getColumn(0, "instcd" );
		var seqno = ds_paminfo.getColumn(0, "seqno" );                    
		if(ioflag == "D"){ ioflag = "I";}

		param = ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd;
	}
   
	appf_initPatientInfo(param);
}

/**@desc   : 처방화면에서 초기 검색 값을 가져옴
 * @return : void
 * @authur : 마정민 2007. 8. 9
 */
function fInitSrch() {  
    fInitSrchLogin();
    fInitSrchPrcp();
}

/**@desc   : 처방화면에서 환자초기검색 값을 가져옴
 * @return : void
 * @authur : 마정민 2007.01.26
 */
function fInitSrchPrcp() {  
    
    //model.addlog("          SPEED CHECK START OF fInitSrchPrcp()");
    if ( ds_root.getColumn(0, "usge" ) == "prcp" ) {

        var orddd = "";
        if (ds_paminfo.getColumn(0, "ioflag") == "O" || ds_paminfo.getColumn(0, "ioflag") == "S") {
            orddd = ds_paminfo.getColumn(0, "orddd");
        } else {
            orddd = ds_paminfo.getColumn(0, "indd");
        }

        ds_initsrchcond.setColumn(0, "ioflag",     ds_paminfo.getColumn(0, "ioflag"));
        ds_initsrchcond.setColumn(0, "pid",        ds_paminfo.getColumn(0, "pid"));
        ds_initsrchcond.setColumn(0, "orddd",      orddd);
        ds_initsrchcond.setColumn(0, "cretno",     ds_paminfo.getColumn(0, "cretno"));
        ds_initsrchcond.setColumn(0, "instcd",     sysf_getUserInfo("dutplceinstcd"));
        ds_initsrchcond.setColumn(0, "prcpdd",     ds_init.getColumn(0, "prcpdd"));
        ds_initsrchcond.setColumn(0, "deptcd",     sysf_getUserInfo("dutplcecd")); 
        ds_initsrchcond.setColumn(0, "userid",     sysf_getUserInfo("userid")); 
        ds_initsrchcond.setColumn(0, "scrnkindcd", "00");
        ds_initsrchcond.setColumn(0, "scrnid",     "SMMMO00100" );
        ds_initsrchcond.setColumn(0, "suppkind",   ds_paminfo.getColumn(0, "suppkind"));
        ds_initsrchcond.setColumn(0, "orddeptcd",  ds_paminfo.getColumn(0, "orddeptcd"));
        
        if (ds_root.getColumn(0, "addprcp") == "Y") {
            ds_initsrchcond.setColumn(0, "prcpkind", "addprcp" );
        } else {
            ds_initsrchcond.setColumn(0, "prcpkind", "prcp" );
        }
        
        var oParam = {};
			oParam.id       = "TRMMO00206";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpEtcEnvCntsPrcp";
			oParam.inds     = "req=ds_initsrchcond";
			oParam.outds    = "ds_initsrchprcp_prcpetccnts=prcpetccnts ds_initsrchprcp_rsrvcvrtprcp=rsrvcvrtprcp";
			oParam.async    = false;

		tranf_submit(oParam);

        if (ds_root.getColumn(0, "usge") == "prcp") {
            if (ds_patflag.getColumn(0, "prcpgenrflag") == "E") {
                var erprcpyn = ds_initsrchprcp_prcpetccnts.getColumn(0, "erprcpyn" );
                var erresn = lf_getArrayData(erprcpyn + "^", 0, 0, "^", "|");
                if (!utlf_isNull(erresn) &&  erresn != "-" &&  erresn != "Y") {
                    ds_init.setColumn(0, "erresn", erresn );
                    //응급의료 관리료가 G3인경우 응급환자
                    if ( erresn == "G3" ) {
                        ds_init.setColumn(0, "hosinprcpresncd", "11");
                    } 
                } else {
                    ds_init.setColumn(0, "erresn", "");
                }
            } else {
                    ds_init.setColumn(0, "erresn", "");
            }
        }
        
		if (ds_root.getColumn(0, "addprcp") != "Y" && utlf_isNull(ds_root.getColumn(0, "cp" )) ) {  // !"Y" -> isNull로 조건 변경(2009.05.12 JJE)
			if (ds_initsrchprcp_prcpetccnts.getColumn(0, "serdiagyn" ) == "Y")
				div_all.Div00.stt_pid.style.color = "#ff0000";
			else
				div_all.Div00.stt_pid.style.color = "#000000";			
		}

        //입원당일 admission 처방이 없으면 변경해 준다.
        if (ds_initsrchprcp_prcpetccnts.getColumn(0, "admiprcpyn" ) == "Y" && utlf_isNull(ds_operation.getColumn(0, "oprsrvno"))){
            ds_init.setColumn(0, "prcpkindcd", "00");
        }
        
        //20131119 이정택 추가(산정특례 기간 알 수 있도록 표시)
        if(!utlf_isNull(ds_initsrchprcp_prcpetccnts.getColumn(0, "message"))){
			ds_init.setColumn(0, "message", ds_initsrchprcp_prcpetccnts.getColumn(0, "message"));
        	div_all.Div00.stt_message.style.color = "#ff0000";
        }else{
        	ds_init.setColumn(0, "message", "");
        }
        //20131119
    }
    
    //model.addlog("          SPEED CHECK END OF fInitSrchPrcp()");
}

/**@desc   : 처방화면에서 환자초기검색 값을 가져옴
 * @return : void
 * @authur : 마정민 2007.01.26
 */
function fInitSrchLogin(force) {
	if (force || !appf_getOrderBasicInfo("ds_initsrch_")) {
        ds_initsrchcond.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
        ds_initsrchcond.setColumn(0, "prcpdd", ds_init.getColumn(0, "prcpdd"));

        var outds = "";
        var sInitsrchs = ["btnenvcnts", "btnsrchenvcnts", "prcpetccnts", "prcpenvcnts", "diagautocnts", "prcpinsertcnts", "inclprcpcnts", "ercalcscorcd", "dietendtm", "earnclsauto", "independprcpimpsi", "trgtcdlist", "tdmcdlist", "opdrugcdlist", "drjobkindcd", "aftcertprcpcls", "aftcertearncls", "irrprcpcd", "hlaprcpcd", "pretest", "ngb", "setprcplist", "opanstdeptcd", "recovdeptcd", "opdeptcd", "envinfo"];
        var endCnt = sInitsrchs.length - 1;
        
        for(var i = 0; i < sInitsrchs.length; i++) {
			dsf_createDs("ds_initsrch_" + sInitsrchs[i]);
			outds += "ds_initsrch_" + sInitsrchs[i] + "=" + sInitsrchs[i] + ((i != endCnt) ? " " : "");
		}

        var oParam = {};
			oParam.id       = "TRMMO00205";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpEtcEnvCntsLogin";
			oParam.inds     = "req=ds_initsrchcond";
			oParam.outds    = outds;
			oParam.async    = false;

		tranf_submit(oParam);
    }
}

/**@desc   : 처방화면에서 button 초기화 setting
 * @return : void
 * @authur : 마정민 2007. 8. 9
 */
function fInitBtnSet() {
    for ( var i = 0; i < 19; i++ ) {
		var btncd = ds_initsrch_btnenvcnts.getColumn(i, "btncd");
		var btnnm = "div_all.Div00.Tab_btns.tabpage1.button" + i;
		var buttonObj = eval(btnnm);
		
        if ( i < ds_initsrch_btnenvcnts.rowcount) {
            buttonObj.text = ds_initsrch_btnenvcnts.getColumn(i, "btnnm");
            buttonObj.visible = true;
            buttonObj._value = btncd;
            buttonObj.onclick.addHandler(fBtnClick);
        } else {
            buttonObj.visible = false;
        }
    }
    
    fInitSrchBtnSet();
    
    // 처방상세화면 표시여부  개인별 조회 option 추가  2014.07.16 엄영만
    var sOption55 = ds_initsrch_envinfo.lookup("qestcd", '055', "answcnt");
    if(sOption55 == "001" && typeof(div_all.div_prcpdetail) == "object" &&  ds_root.getColumn(0, "cp") != "Y") { // 처방 상세 화면 표시 (CP 제외)
        div_all.grd_prcplist.position.height = 476;
		div_all.div_prcpdetail.visible       = true;
    } else {
        div_all.grd_prcplist.position.height = 616;
		div_all.div_prcpdetail.visible       = false;
    }
    
    // 처방에서 대상자탭 사용여부  개인별 조회 option 추가  2014.07.16 엄영만
    var sOption56 =  ds_initsrch_envinfo.lookup("qestcd", '056', "answcnt");
    if(sOption56 == "001") { // 진료대상사 사용		
		if(!utlf_isNull(div_all.Tab_prcp.components["tp_clinc"])) {		
			div_all.Tab_prcp.removeTabpage(6);
			div_all.Tab_prcp_btn.removeTabpage(6);
		}		
		if(!utlf_isNull(div_all.Tab_prcp.components["tp_prmsop"])) {		
			div_all.Tab_prcp.removeTabpage(5);
			div_all.Tab_prcp_btn.removeTabpage(5);
		}
    } else {
		if(!utlf_isNull(div_all.Tab_prcp.components["tp_patlist"])) {
			div_all.Tab_prcp.removeTabpage(4);		
			div_all.Tab_prcp_btn.removeTabpage(4);
		}
    }
}

/**@desc   : 처방화면에서 버튼값 설정
 * @return : void
 * @authur : 마정민 2007. 8. 9
 */
function fBtnClick(obj:Button, e:ClickEventInfo) {
    var buttonObj = obj;
    var buttonValue = obj._value;

    var sOrdDd   = "";
    var sOrddrId = "";   
    var sPrcpGenrFlag = ds_patflag.getColumn(0, "prcpgenrflag" );
    var sOrdDeptCd = ds_paminfo.getColumn(0, "orddeptcd");
    var sPid       = ds_paminfo.getColumn(0, "pid");
    var sCretno    = ds_paminfo.getColumn(0, "cretno");

    if ( sPrcpGenrFlag == "O" || sPrcpGenrFlag == "S" ) {
        sOrdDd   = ds_paminfo.getColumn(0, "orddd");
        sOrddrId = ds_paminfo.getColumn(0, "orddrid");
    } else {
        sOrdDd   = ds_paminfo.getColumn(0, "indd");
        sOrddrId = ds_paminfo.getColumn(0, "medispclid");
    }

    if ( buttonValue == "01") { //대상자
        var patListObj = frmf_getMainViewer();
        patListObj.frmf_open("SPMMO04200", "SPMMO04200", null, null, null, null, null, null, null, "max=false", null, null, "M");
    } else if ( buttonValue == "02") { //항암처방
		ds_hidden_receivedata.clearData();
		ds_hidden_receivedata.addRow();
		
		ds_hidden_receivedata.setColumn(0, "orddeptcd", sOrdDeptCd);
        ds_hidden_receivedata.setColumn(0, "ioflag",    sPrcpGenrFlag );
        ds_hidden_receivedata.setColumn(0, "pid",       sPid);
        ds_hidden_receivedata.setColumn(0, "age",       ds_paminfo.getColumn(0, "age"));
        ds_hidden_receivedata.setColumn(0, "sex",       ds_paminfo.getColumn(0, "sex"));
        ds_hidden_receivedata.setColumn(0, "cretno",    sCretno);
        ds_hidden_receivedata.setColumn(0, "orddd",     sOrdDd );

        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x;
		var ypt = this.getOwnerFrame().position.y + 10;
		
		dsf_createDs("ds_hidden_receivedata_clone");
		ds_hidden_receivedata_clone.copyData(ds_hidden_receivedata);

		var objArg = new Object();
		objArg.arg_ds_send_srchdata_receivedata = ds_hidden_receivedata_clone;

		frmf_modal("SMADB01000", "SMADB01000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        
        fPatDiagSrch();
        //항암프로토콜을 저장시 지시처방을 항암프로토콜명으로 만들어준다.
        if (frmf_getParameter("SMADB01000_saveyn") =="Y") {            
            var insrow = 0;
            
            if ( ds_main_prcplist.rowposition == ds_main_prcplist.rowcount - 1 ) {
                insrow = ds_main_prcplist.rowcount - 1;
            } else {
                insrow = ds_main_prcplist.rowposition + 1;                            
            }
            ds_prcpsrch_prcplist.copyData(ds_directprcp_prcplist);
            var srchRow = lf_addPrcpDetl ( "import" , "ds_prcpsrch_prcplist" , "ds_main_prcplist" , 0, insrow, "00" );                  
            //model.duplicate( model.instances(0).selectSingleNode( "/root/main/prcp" ), "/root/directprcp/prcplist", "*[" + insrow + "]"); 
            ds_main_prcplist.setColumn(insrow, "prcpnm", frmf_getParameter("SMADB01000_prcpnm"));
            frmf_clearParameter("SMADB01000_saveyn");
            frmf_clearParameter("SMADB01000_prcpnm");
            
            div_all.grd_prcplist.setFocus();
            
            ds_main_prcplist.selectRow(insrow);
            ds_main_prcplist.rowposition = insrow;
            div_all.grd_prcplist.setCellPos(div_all.grd_prcplist.getBindCellIndex("body", "prcpnm"));
			div_all.grd_prcplist.showEditor(true);      
        }

    } else if ( buttonValue == "03") { //재활예약
        frmf_setParameter("SMAEA01900_Param_doctorYn", "Y");
        lf_prcpModal ("SMAEA01900", 0, 40);
        frmf_clearParameter("SMAEA01900_Param_doctorYn");
    } else if ( buttonValue == "04") { //입원결정
        frmf_setParameter("SPMMO00100_param", param);
        lf_prcpModal ("SPMMO00100", 100, 40);
    } else if ( buttonValue == "05") { //임상연구
		var oParam = {};
			oParam.id       = "TRMMO00120";
			oParam.service  = "prcpbaseapp.PrcpClsMngt";
			oParam.method   = "reqGetSubjPrcpChk";
			oParam.inds     = "req=ds_initsrchcond";
			oParam.outds    = "ds_temp_subjprcpchk=subjprcpchk";
			oParam.async    = false;

		tranf_submit(oParam);
        
        if (ds_temp_subjprcpchk.getColumn(0, "subjrgstyn") == "N" ){
            sysf_messageBox("임상연구 처방은 피험자등록" , "E012");
            return -1;
        }
        
        var clincstdyno   = ds_temp_subjprcpchk.getColumn(0, "clincstdyno");
        
        if (sPrcpGenrFlag == "I" || sPrcpGenrFlag == "D" || sPrcpGenrFlag == "E") {
			var sInputDs = dsf_createDsRow("ds_TXMMO00113", [{col:"pid",    type:"string", size:256, val:sPid},
                                                             {col:"indd",   type:"string", size:256, val:sOrdDd},
                                                             {col:"cretno", type:"string", size:256, val:sCretno}]);
			var sOutputDs = dsf_createRow("ds_temp_rtnstdyotpt");

			var oParam = {};
				oParam.id       = "TXMMO00113";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeInRgstSubKindIF";
				oParam.inds     = "req=" + sInputDs;
				oParam.outds    = sOutputDs + "=rtnstdyotpt";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO00113";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO00113") < 0) {
                sysf_messageBox("임상접수를 생성하는데 ", "E009");
            } else {
                sysf_messageBox("임상접수 생성이  ", "I002");
            }
            dsf_deleteDs("ds_TXMMO00113");
        } else if (sPrcpGenrFlag == "O" ) {
            var centcd      = ds_paminfo.getColumn(0, "centcd" );
            var subdeptcd   = ds_paminfo.getColumn(0, "subdeptcd" );
            
            var sInputDs = dsf_createDsRow("ds_TXMMO00112", [{col:"otpt_flag",           type:"string", size:256, val:"I"},									//otpt_flag
                                                             {col:"otpt_pid",            type:"string", size:256, val:sPid},								//otpt_pid
                                                             {col:"otpt_orddd",          type:"string", size:256, val:sOrdDd},								//otpt_orddd
                                                             {col:"otpt_orddeptcd",      type:"string", size:256, val:sOrdDeptCd},							//otpt_orddeptcd
                                                             {col:"otpt_orddrid",        type:"string", size:256, val:sOrddrId},							//otpt_orddrid
                                                             {col:"otpt_ordtm",          type:"string", size:256, val:utlf_getCurrentTime().substr(0,4)},	//otpt_ordtm
                                                             {col:"otpt_rsrvflag",       type:"string", size:256, val:"-"},									//otpt_rsrvflag
                                                             {col:"otpt_etcordflag",     type:"string", size:256, val:"-"},									//otpt_etcordflag
                                                             {col:"otpt_instcd",         type:"string", size:256, val:sysf_getUserInfo("dutplceinstcd")},	//otpt_instcd
                                                             {col:"sess_userid",         type:"string", size:256, val:sysf_getUserInfo("userid")},			//sess_userid
                                                             {col:"otpt_medamtestmyn",   type:"string", size:256, val:"N"},									//otpt_medamtestmyn
                                                             {col:"otpt_medamtfreeresn", type:"string", size:256, val:"09"},								//otpt_medamtfreeresn
                                                             {col:"otpt_centcd",         type:"string", size:256, val:centcd},								//otpt_centcd
                                                             {col:"otpt_subdeptcd",      type:"string", size:256, val:subdeptcd},							//otpt_subdeptcd
                                                             {col:"otpt_clincstdyno",    type:"string", size:256, val:clincstdyno}]);						//otpt_clincstdyno

			var sOutputDs = dsf_createRow("ds_temp_rtnstdyotpt");
			
			var oParam = {};
				oParam.id       = "TXMMO00112";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeSetOtptDial";
				oParam.inds     = "req=ds_TXMMO00112";
				oParam.outds    = "ds_temp_rtnstdyotpt=rtnstdyotpt";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO00112";

			tranf_submit(oParam);
			
            if(arErrorCode.pop("TXMMO00112") < 0) {
                sysf_messageBox("임상접수를 생성하는데 ", "E009");
            } else {
                var errmsg = ds_temp_rtnstdyotpt.getColumn(0, "errmsg");
                if (utlf_isNull(errmsg.getTrim())) {
                    sysf_messageBox("임상접수 생성이  ", "I002");
                } else {
                    sysf_messageBox(errmsg, "E");
                }
            }
            dsf_deleteDs("ds_TXMMO00112");
        } else {
            sysf_messageBox ( "외래, 입원, 응급, DSC만 가능합니다.", "E" );
        }
    } else if ( buttonValue == "06") { //cp처방
        if ( ds_root.getColumn(0, "cp" ) != "Y" ) {
            var mainObj = frmf_getMainViewer();
            mainObj.frmf_open("SPMMP01200", "SPMMP01200", null, false, 2, 0, 20, null, null, null, null, null, "M");
        }        
    } else if ( buttonValue == "07") { //tpn처방
        var prcpdd = ds_init.getColumn(0, "prcpdd");
        
        var sInputDs = dsf_createDsRow("ds_temp_patdata", [{col:"pid",       type:"string", size:256, val:sPid},
                                                           {col:"ioflag",    type:"string", size:256, val:sPrcpGenrFlag},
                                                           {col:"orddeptcd", type:"string", size:256, val:sOrdDeptCd},
                                                           {col:"orddd",     type:"string", size:256, val:sOrdDd},
                                                           {col:"orddrid",   type:"string", size:256, val:sOrddrId},
                                                           {col:"prcpdd",    type:"string", size:256, val:prcpdd}]);
                                                                                
        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x;
		var ypt = this.getOwnerFrame().position.y + 10;
		
		var objArg = new Object();
		objArg.arg_ds_temp_patdata = ds_temp_patdata;

		frmf_modal("SMADB01100", "SMADB01100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
    } else if ( buttonValue == "08") { //퇴원예고
        if (lf_ContainsHardCD("341", "Y") && checkRtnDrug()) { // 간호 반납약 체크, 하드코드 341 체크
            return;
        } 
        
        if (lf_ContainsHardCD("341", "Y") && checkRtnPrcp()) { // 반환요청 처방(E)  체크, 하드코드 341 체크 퇴원예고 등록시 반환요청(E) 처방 여부를 체크한다. 20130803 엄영만  
            return;
        } 
        
        if (lf_ContainsHardCD("280", "Y") && !fCheckOpFee( "0", "0", "ds_main_prcplist", "N", "dsch" )) { // 수술료 처방 체크 블러킹
            return;
        } 
        preDsch(); // 퇴원예고
    } else if ( buttonValue == "09") { //통합예약
        lf_prcpModal ( "SMAEA02000", 0, 60 );
    } else if ( buttonValue == "10") { //Medical Reference(의학참고)
        lf_prcpModal ( "SMMMD05200", 0, 60 );
    } else if ( buttonValue == "11") { //수술예약
        lf_prcpModal ("SPMMO00200", 0, 80);
    } else if ( buttonValue == "12") { //외래예약
        frmf_setParameter("SMPMO00300_PARM1", sOrdDeptCd); //진료과코드
        frmf_setParameter("SMPMO00300_PARM2", sOrddrId);   //진료의사코드
        frmf_setParameter("SMPMO00300_PARM3", sPid);       //환자번호   

                    
        lf_prcpModal ("SMPMO00300", 0, 80);
    } else if ( buttonValue == "13") { //환자정보
        lf_prcpModal ( "SMMMO02500", 0, 60 );
    } else if ( buttonValue == "14") { //외출외박
        if ( sPrcpGenrFlag != "O" ) {
			ds_hidden_target.setColumn(0, "pid"  ,  sPid );
            ds_hidden_target.setColumn(0, "indd" ,  sOrdDd );
            ds_hidden_target.setColumn(0, "cretno", sCretno );
            ds_hidden_target.setColumn(0, "hngnm" , ds_paminfo.getColumn(0, "hngnm"));

            var mon = sysf_getCurrentMonitorNumber();
			var xpt = this.getOwnerFrame().position.x + 10;
			var ypt = this.getOwnerFrame().position.y + 10;
			
			var objArg = new Object();
			objArg.arg_ds_hidden_target = ds_hidden_target;

			frmf_modal("SPPMI01100", "SPPMI01100", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else {
            sysf_messageBox ( "외래환자에는 사용", "E001" );
        }

    } else if ( buttonValue == "15") { //전과신청
        if ( sPrcpGenrFlag != "O" && sPrcpGenrFlag != "S" ) {
            if (lf_ContainsHardCD("341", "Y") && checkRtnDrug()) { // 간호 반납약 체크, 하드코드 341 체크
                return;
            } 
            
            if (lf_ContainsHardCD("341", "Y") && checkRtnPrcp()) { // 반환요청 처방(E)  체크, 하드코드 341 체크 전과전실  등록시 반환요청(E) 처방 여부를 체크한다. 20130803 엄영만  
                return;
            }
            
            //if (checkTransferMibi()) { // 미비기록(전출기록 등) 를 체크한다. 20130808 엄영만  2013.08.26 원무에서 처리 하기로 함.
            //    return;
            //}  
            
            ds_hidden_target.setColumn(0, "pid",    sPid);
            ds_hidden_target.setColumn(0, "indd",   sOrdDd );
            ds_hidden_target.setColumn(0, "cretno", sCretno);
            ds_hidden_target.setColumn(0, "hngnm",  ds_paminfo.getColumn(0, "hngnm"));

            var mon = sysf_getCurrentMonitorNumber();
			var xpt = this.getOwnerFrame().position.x + 10;
			var ypt = this.getOwnerFrame().position.y + 10;
			
			var objArg = new Object();
			objArg.arg_ds_hidden_target = ds_hidden_target;

			frmf_modal("SPPMI02700", "SPPMI02700", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        } else {
            sysf_messageBox ( "외래환자에는 사용", "E001" );
        }
    } else if ( buttonValue == "16") { //항생제 
        lf_prcpModal("SPMMD01600", 20, 50);               
    } else if ( buttonValue == "17") { //수술장부
        var hngnm    = ds_paminfo.getColumn(0, "hngnm");
        var sex      = ds_paminfo.getColumn(0, "sex");
        var age      = ds_paminfo.getColumn(0, "age");
        var insukind = ds_paminfo.getColumn(0, "insukind");
        var suppkind = ds_paminfo.getColumn(0, "suppkind");
        
        var param    = sPid       + "▦" + 
                       hngnm      + "▦" + 
                       sex        + "▦" + 
                       age        + "▦" + 
                       insukind   + "▦" + 
                       suppkind   + "▦" + 
                       sOrdDd     + "▦" + 
                       sOrdDeptCd + "▦" +
                       sPrcpGenrFlag;
        frmf_setParameter("SMMMO05700_param", param);
        frmf_modal("SMMMO05700", "SMMMO05700", null, null, null, null, null, null, null, null, null, null, "M");
    } else if ( buttonValue == "18") { //통합결과조회
        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 10;
		var ypt = this.getOwnerFrame().position.y + 10;
        
        var mainObj = frmf_getMainViewer();
		
		dsf_createDsRow("ds_temp_SMAER00800", [{col:"srchpid", type:"string", size:256, val:ds_paminfo.getColumn(0, "pid")}]);
		
		var objArg = new Object();
		objArg.arg_ds_send_singdata = ds_temp_SMAER00800;
		mainObj.frmf_open("SMAER00800", "SMAER00800", objArg, null, mon, xpt, ypt, null, null, null, null, null, "M");
    } else if ( buttonValue == "19") { //self 처방 조회 버튼 추가 20100520 by LYJ
        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 10;
		var ypt = this.getOwnerFrame().position.y + 10;
			
        frmf_setParameter ( "SPMMO19300_prcp", "prcpbtn");
        
		frmf_modal("SPMMO19300", "SPMMO19300", null, null, mon, xpt, ypt, null, null, null, null, null, "M");
		
        lf_focusMain ( ds_main_prcplist.rowposition );
    }
}

function cf_TXMMO00113(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00112(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**간호반납 요청 처방 체크*/
function checkRtnDrug(){
    var bRtn = false;
    var sPrcpGenrFlag = ds_patflag.getColumn(0, "prcpgenrflag");
    
    if (sPrcpGenrFlag == "I") {
        var sPid       = ds_paminfo.getColumn(0, "pid");
        var sOrdDd     = ds_paminfo.getColumn(0, "indd");
        var sCretno    = ds_paminfo.getColumn(0, "cretno"); 
        var sOrdDeptCd = ds_paminfo.getColumn(0, "orddeptcd");
        
        var sRef = dsf_createDsRow("ds_checkrtndrug_reqdata", [{col:"pid",       type:"string", size:256, val:sPid},
                                                               {col:"orddd",     type:"string", size:256, val:sOrdDd},
                                                               {col:"cretno",    type:"string", size:256, val:sCretno},
                                                               {col:"orddeptcd", type:"string", size:256, val:sOrdDeptCd}]);
        var sRstlRef = dsf_createDs("ds_checkrtndrug_rtndata");
        
        var oParam = {};
			oParam.id       = "TRMMO00146";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetChkRtnDrug";
			oParam.inds     = "req=" + sRef;
			oParam.outds    = sRstlRef + "=rtndata";
			oParam.async    = false;

		tranf_submit(oParam);
        
        if( ds_checkrtndrug_rtndata.getColumn(0, "rtnyn") == "Y") { // 반환요청 처방이 존재 하면
            bRtn = true;
            if ("6" == sysf_messageBox ( "확인 되지 않은 간호반납 요청 처방이 존재하여 진행 할수 없습니다.\n\n간호반납 요청 처방을 확인 하시겠습니까?", "Q999" )) {
                fDrugPrcpDc();
            }
        }
    }
    
    return bRtn
}

/**@desc   : 반환요청(E) 처방 존재 유무 확인(submit)
 * @param  : 
 * @return : true, false
 * @authur : 엄영만 2013. 08. 05
 */
function checkRtnPrcp(){
	var bRtn = false;

    var sPid       = ds_paminfo.getColumn(0, "pid");
    var sInDd      = lf_getDsValue(ds_paminfo, 0, "indd");
    var sCretno    = ds_paminfo.getColumn(0, "cretno"); 
    var sOrdDeptCd = ds_paminfo.getColumn(0, "orddeptcd");
    
    var sRef = dsf_createDsRow("ds_checkreturnprcp_reqdata", [{col:"pid",    type:"string", size:256, val:sPid},
                                                              {col:"orddd",  type:"string", size:256, val:sInDd},
                                                              {col:"cretno", type:"string", size:256, val:sCretno}]);
    var sRstlRef = dsf_createDs("ds_checkreturnprcp_rtndata");
    
    var oParam = {};
		oParam.id       = "TRMMO00404";
		oParam.service  = "prcpmngtapp.EtcPrcpMngt";
		oParam.method   = "reqGetChkDschReturnPrcpCnt";
		oParam.inds     = "req=" + sRef;
		oParam.outds    = sRstlRef + "=rtndata";
		oParam.async    = false;
		oParam.callback = "cf_TRMMO00404";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO00404") > -1) {
	    var nCnt = ds_checkreturnprcp_rtndata.getColumn(0, "cnt");
	    
	    if(nCnt > 0) {
	        if ( "6" == sysf_messageBox("[반환요청] 상태의 처방이 존재 하여 진행할 수 없습니다.\n\n반환요청 처방 내역을 확인 하시겠습니까?", 'Q999')) {
	            frmf_setParameter("SPMMO50400_pid",         sPid);
    			frmf_setParameter("SPMMO50400_indd",        sInDd);
    			frmf_setParameter("SPMMO50400_cretno",      sCretno);
    			//setParameter("SPMMO50400_orddeptcd",   sOrdDeptCd);
    			
    			frmf_modal("SPMMO50400", "SPMMO50400", null, null, null, null, null, null, null, null, null, null, "M");
	        }
	        bRtn = true;
	    }
    }
	
    return bRtn;
}

function cf_TRMMO00404(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function fBtnClick2(obj:Button, e:ClickEventInfo) {
	var btnnm = obj.name.substring ( 6, 8 );
	if ( !utlf_isNull (btnnm)) {						
		var srcnbtnnm = eval ( btnnm ) - 50;
		var srcnbtnnm = "button" + srcnbtnnm;
		if ( div_all.Tab_prcp.tabindex == 3 ) {		// 처방 검색 선택중
			div_all.Tab_prcp.tp_prcpsrch.fCallSrchBtn(srcnbtnnm);
		}  else {
			ds_init.setColumn(0, "srchbtn" , srcnbtnnm );
			div_all.Tab_prcp.tabindex = 3;
		}
	}
}

/**퇴원예고창 */
function preDsch(){
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    if ( prcpgenrflag == "O" ) {
        sysf_messageBox ( "외래환자에는 사용", "E001" );
        return;
    } else {
        lf_prcpModal ( "SPMMO00400", 55, 60 );                           
    }
     
    var useyn = frmf_getParameter("SPMMO00400_rtn_useyn");
     
    if(useyn == "Y"){
        frmf_setParameter("SPMMO00400_rtn_useyn", "");

        //상단올리기
        fDschNotiInit();
        var pamInfoCvs = sysf_getGlobalVariable("paminfo");  
        var insukindcd = appf_getPatientInfoDetail("insukind");
        var vopt_insuinfo = "";
        if(!utlf_isNull(pamInfoCvs)){ //cvs가 null이 아닌 경우에만 처리함.
            dsf_setCSVToDs ( "ds_paminfo", pamInfoCvs );	//상단화면 정보 초기화
            
            ds_init.setColumn(0, "pid", ds_paminfo.getColumn(0, "pid"));
             
            var vopt_patinfo  = ds_paminfo.getColumn(0, "dispnm2") + " " + ds_paminfo.getColumn(0, "sex") + "/" + ds_paminfo.getColumn(0, "age");
            if ( !utlf_isNull(ds_paminfo.getColumn(0, "roomcd")) ){
                vopt_patinfo = vopt_patinfo + " " + ds_paminfo.getColumn(0, "roomcd") + "호";
            }
            if (insukindcd == "21"){
               vopt_insuinfo = "[의료급여1]";
            } else if (insukindcd == "22"){
               vopt_insuinfo = "[의료급여2]";
            } else if (insukindcd == "81"){
               vopt_insuinfo = "[장기요양]";
            } else {
               vopt_insuinfo =   "[" + appf_getPatientInfo("insukind") + "]" ;
            }
            ds_init.setColumn(0, "insuinfo", vopt_insuinfo );
            
            if ( insukindcd == "31" || insukindcd =="41"){
               if (appf_getPatientInfoDetail("ioflag") == "O"){
                   sysf_messageBox ( "자보/산재 환자입니다. \n관련 처방을 모두 [급여]로 처방하여 주시기 바랍니다.\n기왕증은 건강보험으로 재접수하여 처방해 주시기 바랍니다.", "I" );
               } else {
                   sysf_messageBox ( "자보/산재 환자입니다. \n관련 처방은 모두 [급여]로 처방하여 주시기 바랍니다. \n그 외 처방은 처방 상세팝업에서 기왕증 체크 후 처방해 주시기 바랍니다.", "I" );
               }
            }
            ds_init.setColumn(0, "patinfo", vopt_patinfo );
        }
        
        var patFlagCvs = sysf_getGlobalVariable("patflag");
        if(patFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
            dsf_setCSVToDs ( "ds_patflag", patFlagCvs );	//상단화면 정보 초기화
            prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
        }
        
         //환자리스트 불러오기
        var mainObj = frmf_getMainViewer();
        var ordPatObj = mainObj.frmf_findPopup("SMMMO04100");   //현재 활성화된 진료대상자 화면 객체                
        if(utlf_isNull(ordPatObj)){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
            mainObj.frmf_open("SMMMO04100", "SMMMO04100", null, false, 1, 200, 100, null, null, null, null, null, "M");
        } else {
            ordPatObj.fPrcpCallPatList();
        }
         
        if( ds_root.getColumn(0, "cp") == "Y" ){
            if( ds_temp1_getdata.getColumn(0, "appstat") == "50" ){
				// CPGMAIN 에 있는 함수 CPGMAIN 작업 후 확인필요
                fOpenPrcpWindow();
                return;
            } else {
                if( ds_temp1_getdata.getColumn(0, "prtlflagcd") != "02" ){  //CP면 퇴원처방 자동발행
					// CPGMAIN 에 있는 버튼 CPGMAIN 작업 후 확인필요
                    btn_cpbatch.onclick.fireEvent(btn_cpbatch, new ClickEventInfo());
                } else {
					// CPGMAIN 에 있는 버튼 CPGMAIN 작업 후 확인필요
					btn_inqr.onclick.fireEvent(btn_inqr, new ClickEventInfo()); //CPG면 문진팝업 호출 (2010.04.16 JJE)
                }
            }
        }
    }
}

/**@desc   : 전처방에서 급비변경후 환자정보 다시 SETTING
 * @return : void
 * @authur : 마정민 2007. 9. 10
 */
function fInitPaminfo() {
    //ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
    //외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
    var ioflag = ds_paminfo.getColumn(0, "ioflag");
    var param = "";

    if ( ioflag == "O" || ioflag == "S" )    {
        var pid       = ds_paminfo.getColumn(0, "pid" );
        var orddd     = ds_paminfo.getColumn(0, "orddd" );
        var cretno    = ds_paminfo.getColumn(0, "cretno" );
        var instcd    = ds_paminfo.getColumn(0, "instcd" );
        var acptseqno = ds_paminfo.getColumn(0, "acptseqno" );
        var orgorddd  = ds_paminfo.getColumn(0, "orgorddd" );                    
        param = ioflag + "▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + acptseqno + "▦" + orgorddd;
    } else {
        //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
        //외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
        var pid    = ds_paminfo.getColumn(0, "pid" );
        var indd   = ds_paminfo.getColumn(0, "indd" );
        var cretno = ds_paminfo.getColumn(0, "cretno" );
        var instcd = ds_paminfo.getColumn(0, "instcd" );
        var seqno  = ds_paminfo.getColumn(0, "seqno" );
        var prcpdd = ds_init.getColumn(0, "prcpdd" );
        param = ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd;
    }
    
    if(appf_initPatientInfo(param)){
      var pamInfoCvs = sysf_getGlobalVariable("paminfo");  
      
      if(!utlf_isNull(pamInfoCvs)){ //cvs가 null이 아닌 경우에만 처리함.
          dsf_setCSVToDs ( "ds_paminfo", pamInfoCvs );	//상단화면 정보 초기화
      }

      var patFlagCvs = sysf_getGlobalVariable("patflag");      
      
      if(!utlf_isNull(patFlagCvs)){ //cvs가 null이 아닌 경우에만 처리함.
          dsf_setCSVToDs ( "ds_patflag", patFlagCvs );	//상단화면 정보 초기화
      }

      var operationFlagCvs = sysf_getGlobalVariable("operation");  
      if(!utlf_isNull(operationFlagCvs)){ //cvs가 null이 아닌 경우에만 처리함.
          dsf_setCSVToDs ( "ds_operation", operationFlagCvs );	//상단화면 정보 초기화
      } 
    }

    var mainObj = frmf_getMainViewer();                
    var ordPatObj = mainObj.frmf_findPopup("SMMMO04100");   //현재 활성화된 진료대상자 화면 객체                
    if(utlf_isNull(ordPatObj)){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
       //mainObj.frmf_open("SMMMO04100",1, 200, 100);
       mainObj.frmf_open("SMMMO04100", "SMMMO04100", null, false, 1, 200, 100, null, null, null, null, null, "M");
    } else {
       ordPatObj.fPrcpCallPatList();
    }      
}

function fDrugPrcpDc() {
    //투약반환요청이 있을 경우 관련 팝업을 띄운다.
    if ( ds_initsrch_prcpetccnts.getColumn(0, "drugprcprtnyn" ) == "Y" ){
        //나중에 예약처방도 수정        modal ( "SPMMO00700", 1,  xpt, ypt, "prcpdetl", "/root/prcpsrch", "/root/main/prcp" );

        var orddd = "";
        if (ds_paminfo.getColumn(0, "ioflag") == "O" || ds_paminfo.getColumn(0, "ioflag") == "S") {
            orddd = ds_paminfo.getColumn(0, "orddd");
        } else {
            orddd = ds_paminfo.getColumn(0, "indd");
        }

        ds_send.setColumn(0, "cond1",  ds_paminfo.getColumn(0, "pid" ));
        ds_send.setColumn(0, "cond2",  orddd);
        ds_send.setColumn(0, "cond3",  ds_paminfo.getColumn(0, "cretno" ));
        ds_send.setColumn(0, "cond4",  ds_paminfo.getColumn(0, "instcd" ));
        ds_send.setColumn(0, "cond5",  "drugdcprcp");
        ds_send.setColumn(0, "cond6",  "");
        ds_send.setColumn(0, "cond9",  "DC");
        ds_send.setColumn(0, "cond99",  "getBfPrcpSrchInfo");
        
        var oParam = {};
			oParam.id       = "TRMMO00100";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpSrchInfo";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_prcpsrch_prcplist=prcplist";
			oParam.async    = false;

		tranf_submit(oParam);
		
		dsf_setDefaultVal(ds_prcpsrch_prcplist, "prcpvol:0,prcpvolunitnm:-,prcpqty:0,prcpqtyunitnm:-,prcptims:0,prcpdayno:0,drugmthdspccdnm:-,hosinprcpresncd:00,drugmthdspccd:-,hsctdelivepos:0,druglnkno:0,dnorreqlnkno:0,subcretno:0,drgacptflag:-");

		var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 100;
		var ypt = this.getOwnerFrame().position.y + 100;

        if ( ds_prcpsrch_prcplist.rowcount > 0 ) {
            fCpInPrcpVisible();
            frmf_setParameter ( "SPMMO00700_rtn1", "drugdc" );
            
            var objArg = new Object();
			objArg.arg_ds_main_prcplist = ds_prcpsrch_prcplist;

			frmf_modal("SPMMO00700", "SPMMO00700", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
            frmf_setParameter ( "SPMMO00700_rtn1", "" );
        }
    }
}

/**@desc   : 외래검사처방 입원전환 ( 주사연속처방, 물리치료 연속처방은 제외 )
 * @return :
 * @author : 2007. 11. 29
 * @---------------------------------------------------
*/
function fSaveRsrvPrcpCvrt() {
    //kimsj 100311 환자입원과, 의사진료과 동일할 경우에만 팝업창 보여줌
    var userdept = sysf_getUserInfo ( "dutplcecd" );
    var pamdept = ds_paminfo.getColumn(0, "orddeptcd");
    if ( ds_initsrchprcp_prcpetccnts.getColumn(0, "rsrvprcpyn" ) == "Y" && ( userdept == pamdept ) ){
		var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 200;
		var ypt = this.getOwnerFrame().position.y + 100;
		
		var objArg = new Object();
		objArg.arg_ds_initsrch_rsrvcvrtprcp = ds_initsrchprcp_rsrvcvrtprcp;

		frmf_modal("SPMMO01000", "SPMMO01000", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
        if ( frmf_getParameter ( "SPMMO01000_rtnyn" ) == "Y" ) {
			div_all.Tab_prcp.tabindex = 1;
			div_all.Tab_prcp.tp_bfprcp.fInitialize();
        }
    }
}

/**@desc   : 수가조회 open
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fOpenCalscorCD(){
	var currow = ds_main_prcplist.rowposition;
	if(currow < 0){
		return;
	}
	var prcpcd = ds_main_prcplist.getColumn(currow, "prcpcd");
	
	dsf_createDsRow("ds_arg_temp", [{col:"temp",    type:"string", size:256, val:prcpcd}]);	

	var objArg = new Object();
	objArg.ds_arg_temp = ds_arg_temp;

	frmf_modal("SMPIC00200", "SMPIC00200", objArg, null, 1, 100, 200, null, null, null, null, null, "M");
}

/**환자 주진단 색깔표시
 * @param 
 * grdobj : grid
 * color  : 표시색깔
 */
function fDispPatMainDiag(diagkindcdflag){    
    return (diagkindcdflag == "M") ? "#ccffff" : "#ffffff";
}

/**@desc   : 마취화면에서 보내준 처방 검색
 * @return : void
 * @authur : 마정민 2007. 9. 18
 */
function fAnstPrcp() {
    /*  SMMMR03700_paramyn = "Y", 
        SMMMR03700_opansflagcd,
        SMMMR03700_ansttm (4자리),
        SMMMR03700_anstfromdt(12자리),
        SMMMR03700_ansttodt(12자리) */

    if ( opener.frmf_getParameter ( "SMMMR03700_paramyn" ) == "Y" ) {
        ds_anst.setColumn(0, "paramyn", "Y" );
        ds_anst.setColumn(0, "anstrecno",    opener.frmf_getParameter ( "SMMMR03700_anstrecno" ) ); 
        ds_anst.setColumn(0, "opansflagcd",  opener.frmf_getParameter ( "SMMMR03700_opansflagcd" ));
        ds_anst.setColumn(0, "ansttm",       opener.frmf_getParameter ( "SMMMR03700_ansttm" ));
        ds_anst.setColumn(0, "anstfromdt",   opener.frmf_getParameter ( "SMMMR03700_anstfromdt" ));
        ds_anst.setColumn(0, "ansttodt",     opener.frmf_getParameter ( "SMMMR03700_ansttodt" ));
        //마취의, 특진의여부 추가 by sonjy 20080925  start
        ds_anst.setColumn(0, "anst_drid"        , opener.frmf_getParameter ( "SMMMR03700_anstdrid" ));		//마취의 1 setting 
        ds_anst.setColumn(0, "anst_specordflag" , opener.frmf_getParameter ( "SMMMR03700_refseq" ));		//마취의 1 특진의 여부  
        //20131107 이정택 추가
        ds_anst.setColumn(0, "anst_anstdrnm"    , opener.frmf_getParameter ( "SMMMR03700_anstdrnm" ));		//마취의 1의 이름
        //20131107
        
        ds_init.setColumn(0, "prcpkindcd",   "35" );  //수술 중 처방으로 setting
        ds_init.setColumn(0, "prcpinptflag", "27" );  //마취기록에서 호출한 처방
        //마취의, 특진의여부 추가 by sonjy 20080925  end
        div_all.cmb_prcpkind.enable = false;
    }

    var SMMMR03700_prcp = opener.frmf_getParameter ( "SMMMR03700_prcp" );
    opener.frmf_setParameter ( "SMMMR03700_prcp", "" );
    if ( !utlf_isNull(SMMMR03700_prcp) && !utlf_isNull(ds_paminfo.getColumn(0, "pid" ))) {
        var prcpcd = "";
        var prcpvol = "";
        var drugmthdcd = "";
        var mthdcnts = "";
        var prcplen = SMMMR03700_prcp.split("▩").length;

        for ( var i = 0; i < prcplen; i++ ) {
            lf_appendChildPrcp ( "ds_reset_anstprcplist", "ds_anstprcplist", "main" ); //검색라인추가 
            prcpcd     = lf_getArrayData ( SMMMR03700_prcp, i, 0, "▩", "▦" );
            prcpvol    = lf_getArrayData ( SMMMR03700_prcp, i, 1, "▩", "▦" );
            drugmthdcd = lf_getArrayData ( SMMMR03700_prcp, i, 2, "▩", "▦" );
            mthdcnts   = lf_getArrayData ( SMMMR03700_prcp, i, 3, "▩", "▦" );
            ds_anstprcp.setColumn(i, "prcpcd",     prcpcd );
            ds_anstprcp.setColumn(i, "prcpvol",    prcpvol );
            ds_anstprcp.setColumn(i, "drugmthdcd", drugmthdcd );
            ds_anstprcp.setColumn(i, "mthdcnts",   mthdcnts );
            ds_anstprcp.setColumn(i, "prcpdd",     ds_init.getColumn(0, "prcpdd" ));
            ds_anstprcp.setColumn(i, "insukind",   ds_paminfo.getColumn(0, "insukind"));
        }
        
        dsf_createDs("ds_send_cond1");
        ds_send_cond1.copyData(ds_anstprcplist);
        ds_send_cond1.updateColID("prcpcd", "cond1");
        ds_send_cond1.updateColID("prcpdd", "cond3");
        ds_send_cond1.updateColID("insukind", "cond4");
        ds_send_cond1.updateColID("srchkind", "cond5");        
        dsf_setDefaultVal(ds_send_cond1, "srchkind:ANST");
        
        var oParam = {};
			oParam.id       = "TRMMO00115";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPrcpMultiSrchInfo";
			oParam.inds     = "req=ds_send_cond1";
			oParam.outds    = "ds_prcpsrch_prcplist=prcplist";
			oParam.async    = false;

		tranf_submit(oParam);
        
        var opanstdeptcd_trgtcd = ds_initsrch_opanstdeptcd.getColumn(0, "trgtcd");
        for (var i = 0; i < ds_prcpsrch_prcplist.rowcount; i++)
			ds_prcpsrch_prcplist.setColumn(i, "prcpexecdeptcd", opanstdeptcd_trgtcd);
			
        //prcpinptflag 27 마취기록
                                                                                          // 그리드명 추후 확인필요
		lf_addPrcp ( "import", ds_prcpsrch_prcplist, ds_main_prcplist,  "Y", "status", "", grd_prcpsrchlist, "N", "27");
    }
}

function fPrcpSaveChkBf( prcpchkflag ) {
    var prcpsetcd = "";
    var inclprcpcd = "";
    var drugmastspec = "";
    var prcpclscd = "";
    var prcpkindcd = "";
    var prcpkindchk = 0;
    var prcpkindcd 
    var prcpcd = "";
    var prcpcd = "";
    var prcpexecdeptcd = "";
    var precureprcpflag = "";
    var spcldrug = "";
    var iFind = -1;
    var iFind2 = -1;
    var sTestreqlnkno = ""; 
    var drugbatchcnt = "";
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    var savecnt = 0;    
    var prcpdschcnt = 0; //by sonjy 2008-07-30 중증등록암 관련 추가 퇴원처방 여부.    
    var antideptcd = ""; //by sonjy 2008-08-12 항암제 및 퇴원후 외래/입원전검사처방시 수행부서setting.
    
    ocrcalcscorcd = "";

    ds_init.setColumn(0, "drugbatch", "N" );
    ds_init.setColumn(0, "prgtbooprcpyn", "N" );
    //model.removeNodeset ( "/root/prcper/prcplist" );    
//    ds_prcper_prcplist.clearData();
    
    //kimsj 수혈동의서 동의서 유무, 마지막 수혈일 체크
    var bldFind         = "N";
    var ocrbldexists    = "";  // 수혈동의서 존재 여부
    var ocrbldprnt      = ds_initsrchprcp_prcpetccnts.getColumn(0, "ocrbldprnt");
    var ocrbldprntArray = ocrbldprnt.split("|");
    var ocrbldynhrcd    = "N"; // 수혈동의서 확인메시지 사용여부[병원별]
    lf_reqHardCodeInfo(ds_hidden_ocrbldynhrcd, "198");
    ocrbldynhrcd = ds_hidden_ocrbldynhrcd.getColumn(0, "hardcd");
    
    var pid = ds_paminfo.getColumn(0, "pid");
        
    for (var i = 0; i < ds_main_prcplist.rowcount; i++) {
        if (ds_main_prcplist.getColumn(i, "status" ) == "S") continue;
        if (ds_main_prcplist.getColumn(i, "status" ) == "D") continue;
        savecnt++;
        ds_main_prcplist.setColumn(i, "tempcol5", i);
        ds_main_prcplist.setColumn(i, "tempcol3", "");
        prcpclscd      = ds_main_prcplist.getColumn(i, "prcpclscd" );
        prcpsetcd      = ds_main_prcplist.getColumn(i, "prcpsetcd" );
        drugmastspec   = ds_main_prcplist.getColumn(i, "drugmastspec" );
        prcpkindcd     = ds_main_prcplist.getColumn(i, "prcpkindcd" );
        prcpcd         = ds_main_prcplist.getColumn(i, "prcpcd" );
        prcpexecdeptcd = ds_main_prcplist.getColumn(i, "prcpexecdeptcd" );
        spcldrug = lf_getArrayData ( drugmastspec + "^", 0, 23, "^", "|" ); 

        ds_main_prcplist.setColumn(i, "prcpauthflag", ds_init.getColumn(0, "prcpauthflag"));
        
		if ( prcpclscd == "C2" || prcpclscd == "C4" ) {
			fPrintDyeFrm(i, prcpcd); //@@@ 조영제 출력팝업 한번만 호출하도록 수정 (2010.07.22 JJE)
			if (ds_main_prcplist.getColumn(i, "testreqlnkno") == "DYENO" ) { // 처방취소 버튼 시 저장 중지 및  다시 저장 시 재 팝업 되도록 수정  20100818 LYJ
			   frmf_setParameter("SPAER01900_popupYN", "N" );
			   return false;
			}
		}

        //********************************* 단독처방 불가약 메시지처리 ***********************************//
        var addprcpcd = ds_initsrch_independprcpimpsi.lookup("prcpcd", prcpcd, "addprcpcd");
        if ( !utlf_isNull(addprcpcd)) { //같이 내야할 처방이 없으면 메시지 처리
            if (utlf_isNull (ds_main_prcplist.lookup("prcpcd", addprcpcd, "prcpcd"))) {
                var prcpmsg = ds_initsrch_independprcpimpsi.lookup("prcpcd", prcpcd, "prcpmsg");
                sysf_messageBox ( prcpmsg, "E" );
                ds_initsrch_independprcpimpsi.deleteRow(i);
            } 
        }
        
        //*************************** OCR 자동출력할 처방이 있는지 체크 **********************************//
        if ( ds_main_prcplist.getColumn(i, "tempcol13" ) == "Y" ) {
            // kimsj 수혈동의서 자동출력 
            if ( ocrbldynhrcd == "Y" ) {
                bldFind = "N";
                for( var m = 0; m < ocrbldprntArray.length; m++ ){ 
                    if( prcpcd == ocrbldprntArray[m]) { 
                        bldFind = "Y";
                        break;
                    } 
                }
                if ( bldFind == "Y" ) { // 수혈동의서일 경우
                    if(utlf_isNull(ocrbldexists)) { // 수혈 동의서 존재 여부 한번만 체크 하도록
                        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
                            var orddd = ds_paminfo.getColumn(0, "orddd");
                        } else {
                            var orddd = ds_init.getColumn(0, "prcpdd");
                        }
                        
                        var sRef = dsf_createDsRow("ds_send_reqdata_ocrbld", [{col:"pid",    type:"string", size:256, val:pid},
                                                                              {col:"orddd",    type:"string", size:256, val:orddd},
                                                                              {col:"ioflag",    type:"string", size:256, val:prcpgenrflag}]);
                        var sRstlRef = dsf_createDs("ds_hidden_ocrbldyn");
                        
                        var oParam = {};
							oParam.id       = "TRMMO00132";
							oParam.service  = "prcpmngtapp.PrcpMngt";
							oParam.method   = "reqGetOCRBldPrntYN";
							oParam.inds     = "req=" + sRef;
							oParam.outds    = sRstlRef + "=ocrbldyn";
							oParam.async    = false;

						tranf_submit(oParam);
                        
                        dsf_deleteDs("ds_send_reqdata_ocrbld");
                        
                        ocrbldexists = ds_hidden_ocrbldyn.getColumn(0, "ocryn");
                    }
                    
                    if ( ocrbldexists == "D" || ocrbldexists == "N") { // 동의서가 없거나 불출일 60일(입원55일) 경과
						ds_hidden_ocrbldyn.addColumn("ocrmsgyn", "string");
                        ds_hidden_ocrbldyn.setColumn(0, "ocrmsgyn", "Y"); //메세지는 다른 부분으로 적용 (메세지 두번 나오는 현상 발생)
                        if ( prcpgenrflag == "O" || prcpgenrflag == "S" )   ocrcalcscorcd = ocrcalcscorcd + prcpcd + "▦";          
                    }
                } else {    // 수혈동의서가 아닐경우
                    ocrcalcscorcd = ocrcalcscorcd + prcpcd + "▦";
                }
            } else {
                ocrcalcscorcd = ocrcalcscorcd + prcpcd + "▦";
            }   
        }
        
        //입원전검사(당일/전일)도 퇴원후 외래와 같은 처리 by sonjy 2008-07-25
        if ( prcpkindcd == "70"  || prcpkindcd == "90"  || prcpkindcd == "95"  ) {
            //CP 미완성 처방 저장 시, 저장할 범위가 아닌 status '-' 중 퇴원처방 있을 때에는 퇴원예고 체크 skip 해야 함 (2008.10.16 JJE)
            if( ds_root.getColumn(0, "cp") == "Y" && ds_main_prcplist.getColumn(i, "status") == "-" ){
                if( ds_main_prcplist.getColumn(i, "prcphistcd") == "T" ) {
                    prcpkindchk++;
                }
            }else{
                prcpkindchk++;
            }
        } else if ( prcpkindcd == "60" ) {
            prcpdschcnt++; // by sonjy 2008-07-30 중증등록암관련...퇴원처방 여부.
        }

        if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
            //처방검색 용량보정
            var calcmthdcd   = lf_getArrayData ( drugmastspec + "^", 0, 26, "^", "|" ); 
            if ( calcmthdcd == 1 ) {
                var drprcpetc7 = ds_main_prcplist.getColumn(i, "drprcpetc7");
                var drprcpetc8 = ds_main_prcplist.getColumn(i, "drprcpetc8");
                var prcptims   = ds_main_prcplist.getColumn(i, "prcptims" );
                var prcpvol    = Math.floor( ds_main_prcplist.getColumn(i, "prcpvol")*100 );
                var prcpqty    = Math.floor( ds_main_prcplist.getColumn(i, "prcpqty")*100 );
                var totqty     = Math.floor( drprcpetc8*prcptims*100 );
                var totvol     = Math.floor( drprcpetc7*prcptims*100 );
                
                if ( prcpqty != totqty ) {
                    ds_main_prcplist.setColumn(i, "prcpvol", drprcpetc7 * prcptims);
                    ds_main_prcplist.setColumn(i, "prcpqty", drprcpetc8 * prcptims);
                }
                if ( prcpvol != totvol ) {
                    ds_main_prcplist.setColumn(i, "prcpvol", drprcpetc7 * prcptims);
                    ds_main_prcplist.setColumn(i, "prcpqty", drprcpetc8 * prcptims);
                }                                                       
            } else {
                var drprcpetc7 = ds_main_prcplist.getColumn(i, "drprcpetc7");
                var drprcpetc8 = ds_main_prcplist.getColumn(i, "drprcpetc8");
                var prcpvol    = ds_main_prcplist.getColumn(i, "prcpvol");
                var prcpqty    = ds_main_prcplist.getColumn(i, "prcpqty");                     
               
                if ( prcpqty != drprcpetc8 ) {                          
                    ds_main_prcplist.setColumn(i, "prcpvol", drprcpetc7);
                    ds_main_prcplist.setColumn(i, "prcpqty", drprcpetc8);
                }
                if ( prcpvol != drprcpetc7 ) {
                    ds_main_prcplist.setColumn(i, "prcpvol", drprcpetc7);
                    ds_main_prcplist.setColumn(i, "prcpqty", drprcpetc8);
                }               
            }
            
            //************************* 약시행부서 setting ***********************//
            //입원일 경우 시행부서 병동약국
            if ( prcpgenrflag != "O" && ds_main_prcplist.getColumn(i, "inclprcpno") == "0" ) {
                //항암제 및 항암제와 mix인 경우는 항암제의 시행부서로. by sonjy 2008-08-12 김은희 약사 요청.
                //퇴원후 외래 및 입원전검사의 경우 외래이므로 바꾸지 않는다. by sonjy 2008-08-12 서소영 mit 요청
                antideptcd = fDrugDeptcdChk( "ds_main_prcplist", i) ; 
                ds_main_prcplist.setColumn(i, "prcpexecdeptcd", antideptcd);
            }

            //복막투석액(spcldrug=K) 일 경우 인공신장실 복막투석가로 SETTING   
            if ( spcldrug  == "K" && ds_main_prcplist.getColumn(i, "precureprcpflag" ) == "Y" ) {
                ds_main_prcplist.setColumn(i, "prcpexecdeptcd", "2010702030"); 
            }
            //************************* 약시행부서 setting 끝 *********************//
            
            //20081212 by sonjy 윤영옥 선생님 요청사항 상기도 감염시 항생제처방 제한
            if(prcpgenrflag == "O"  ){
                if( !fChkInfecLimAntiDrug( "ds_main_prcplist", i ) ) return false ;
            }
        } else if ( ds_root.getColumn(0, "addprcp") == "Y" && prcpclscd == "D2" && opener.frmf_getScreenID() == "SMAER00400" ) { //20080923 벙리처방의뢰지 번호
            if ( ds_main_prcplist.getColumn(i, "testreqlnkno") != 0 ){
                sTestreqlnkno = sTestreqlnkno + ds_main_prcplist.getColumn(i, "testreqlnkno") + ",";
            }
        }
            
        //********************************* 선처치, 재료 시행부서 - 일 때 처리 *************************//
        if ( prcpexecdeptcd == "-" || utlf_isNull(prcpexecdeptcd)) {
            precureprcpflag = ds_main_prcplist.getColumn(i, "precureprcpflag");
            if ( precureprcpflag == "Y" || prcpclscd == "M2" ) { //선처치, 재료일때 시행부서가 - 일 경우는 발행처를 시행부서로 넣어준다.
                ds_main_prcplist.setColumn(i, "prcpexecdeptcd", ds_main_prcplist.getColumn(i, "issdeptcd"));
            }
        }
                       
        // 수술/마취 관련 처방 시행부서 설정.
        if ( ds_anst.getColumn(0, "paramyn") == "Y" ) { //마취 기록 처방
            //마취 기록에서 띄우는 화면은 시행부서, 발행처 처리
            if ( prcpclscd != "B2" && prcpclscd != "B4" && prcpclscd != "B6" && prcpclscd != "C2" && prcpclscd != "C4" && prcpclscd != "C6" && prcpclscd != "D2" && prcpclscd != "E2" ) {
                var oproomcd = ds_operation.getColumn(0, "oproomcd");
                var dscDeptcd = ds_init_operationroominfo.lookup("hardcd", oproomcd, "hardcdnm");
                if (!utlf_isNull(dscDeptcd)) {
                    ds_main_prcplist.setColumn(i, "issdeptcd",      dscDeptcd);  //일일수술실
                    ds_main_prcplist.setColumn(i, "prcpexecdeptcd", dscDeptcd);  //일일수술실                                  
                } else {
                    if ( ds_main_prcplist.getColumn(i, "prnprcpflag" ) == "Y" ) {
                        //20080913 마정민수정: 이훈재과장의 요청으로 발행부서(issdeptcd) 마취통증의학과(2090000000)에서 회복실, 수술실마취로 수정
                        ds_main_prcplist.setColumn(i, "issdeptcd",      ds_initsrch_recovdeptcd.getColumn(0, "trgtcd"));        //회복실
                        ds_main_prcplist.setColumn(i, "prcpexecdeptcd", ds_initsrch_recovdeptcd.getColumn(0, "trgtcd"));  		//회복실        
                    } else {
                        //20100609 수술중처방 집계 관련 보완. 시행부서가 회복실, 수술실이면 그대로 두고 아니면 수술실마취로 세팅.
                        if ( ds_main_prcplist.getColumn(i, "prcpexecdeptcd") == ds_initsrch_recovdeptcd.getColumn(0, "trgtcd") || 
                            ds_main_prcplist.getColumn(i, "prcpexecdeptcd") == ds_initsrch_opdeptcd.getColumn(0, "trgtcd") ) {
                            ds_main_prcplist.setColumn(i, "issdeptcd", ds_main_prcplist.getColumn(i, "prcpexecdeptcd"));
                        } else {
                            ds_main_prcplist.setColumn(i, "issdeptcd",      ds_initsrch_opanstdeptcd.getColumn(0, "trgtcd") );  //수술실 마취
                            ds_main_prcplist.setColumn(i, "prcpexecdeptcd", ds_initsrch_opanstdeptcd.getColumn(0, "trgtcd") );  //수술실 마취       
                        }
                    }
                }
            }
        } else { //마취 기록 처방이 아닌것 
            if ( prcpkindcd == "35") { // 수술중 처방이면
                if(sysf_getUserInfo( "dutplcecd" ) == ds_initsrch_anstdeptcd.getColumn(0, "trgtcd")) { // 마취과 의사 여부
                    //20080920 마정민수정: 수술환자 리스트에서 마취과 의사가 낸 수술중 처방은 수술실 마취
                    if ( !utlf_isNull(ds_operation.getColumn(0, "oprsrvno"))) {
                        if ( prcpclscd != "B2" && prcpclscd != "B4" && prcpclscd != "B6" && prcpclscd != "C2" && prcpclscd != "C4" && prcpclscd != "C6" && prcpclscd != "D2" && prcpclscd != "E2" ) {
                            var oproomcd  = ds_operation.getColumn(0, "oproomcd");
                            var dscDeptcd = ds_init_operationroominfo.lookup("hardcd", oproomcd, "hardcdnm");
                            if (!utlf_isNull(dscDeptcd)) {   // 수술방이 일일수술실일 경우는 무조건 일일수술실로 한다. : 20110711 김영학
                                ds_main_prcplist.setColumn(i, "issdeptcd",      dscDeptcd);       //일일수술실
                                ds_main_prcplist.setColumn(i, "prcpexecdeptcd", dscDeptcd);  //일일수술실  
                            } else if ( ds_main_prcplist.getColumn(i, "prnprcpflag") == "Y" ) {
                                //20080913 마정민수정: 이훈재과장의 요청으로 발행부서(issdeptcd) 마취통증의학과(2090000000)에서 회복실, 수술실마취로 수정
                                ds_main_prcplist.setColumn(i, "issdeptcd",      ds_initsrch_recovdeptcd.getColumn(0, "trgtcd") );       //회복실
                                ds_main_prcplist.setColumn(i, "prcpexecdeptcd", ds_initsrch_recovdeptcd.getColumn(0, "trgtcd") );  		//회복실        
                            } else {
                                //20100609 수술중처방 집계 관련 보완. 시행부서가 회복실, 수술실이면 그대로 두고 아니면 수술실마취로 세팅.
                                if ( ds_main_prcplist.getColumn(i, "prcpexecdeptcd") == ds_initsrch_recovdeptcd.getColumn(0, "trgtcd") || 
                                    ds_main_prcplist.getColumn(i, "prcpexecdeptcd") == ds_initsrch_opdeptcd.getColumn(0, "trgtcd") ) {
            
                                    ds_main_prcplist.setColumn(i, "issdeptcd", ds_main_prcplist.getColumn(i, "prcpexecdeptcd"));
                                } else {
                                    ds_main_prcplist.setColumn(i, "issdeptcd",      ds_initsrch_opanstdeptcd.getColumn(0, "trgtcd"));  //수술실 마취
                                    ds_main_prcplist.setColumn(i, "prcpexecdeptcd", ds_initsrch_opanstdeptcd.getColumn(0, "trgtcd"));  //수술실 마취       
                                }
                            }
                        }
                    }
                } else { // 마취과 의사가 아닌것
                    //20080917 마정민수정: 마취과 의사가 내지 않는 수술중 처방은 모두 수술실로 처리한다.
                    if ( prcpclscd != "B2" && prcpclscd != "B4" && prcpclscd != "B6" && prcpclscd != "C2" && prcpclscd != "C4" && prcpclscd != "C6" && prcpclscd != "D2" && prcpclscd != "E2" &&  prcpclscd != "F2" && prcpclscd != "G2") {
                        var oproomcd = ds_operation.getColumn(0, "oproomcd");
                        var dscDeptcd = ds_init_operationroominfo.lookup("hardcd", oproomcd, "hardcdnm");
                        if (!utlf_isNull(dscDeptcd)) {
                            ds_main_prcplist.setColumn(i, "issdeptcd", dscDeptcd);       //일일수술실
                            ds_main_prcplist.setColumn(i, "prcpexecdeptcd", dscDeptcd);  //일일수술실                                  
                        } else {
                        	// 20131230 이정택 마취과 의사가 아닐시 집계 부서를 마취회복실로 지정하면 마취회복실로 나가도록 수정
                        	var issdeptcd   = ds_main_prcplist.getColumn(i, "issdeptcd");
                        	var recovdeptcd = ds_initsrch_recovdeptcd.getColumn(0, "trgtcd");
                        	if(issdeptcd == recovdeptcd){
                        		ds_main_prcplist.setColumn(i, "issdeptcd",      recovdeptcd);  //마취회복실
                                ds_main_prcplist.setColumn(i, "prcpexecdeptcd", recovdeptcd);  //마취회복실
                        	}else{
                        		ds_main_prcplist.setColumn(i, "issdeptcd",      ds_initsrch_opdeptcd.getColumn(0, "trgtcd"));  //수술실
                                ds_main_prcplist.setColumn(i, "prcpexecdeptcd", ds_initsrch_opdeptcd.getColumn(0, "trgtcd"));  //수술실
                        	}      
                        }
                    }
                }
            }
        }  

        //20080917 마정민수정: 수술중처방마약batch체크, 20090625 마정민 추가 이훈재과장요청으로 향정추가
        if ( prcpkindcd == "35" && ( spcldrug == "M" || spcldrug == "H" ) && ( prcpgenrflag == "I" || prcpgenrflag == "D" ) &&
            ds_main_prcplist.getColumn(i, "prcpexecdeptcd") == ds_initsrch_opanstdeptcd.getColumn(0, "trgtcd") ) { 
            drugbatchcnt++;
        }
        
        if( ds_root.getColumn(0, "cp") == "Y" ){
            ds_main_prcplist.setColumn(i, "prcpinptflag", "05");       //CP창에서 발행하는 처방은 모두 CP(05) (2008.10.14 JJE)
        }
    }

    if ( drugbatchcnt > 0 ){
        ds_init.setColumn(0, "drugbatch", "Y"); 
    }
    
    if (!utlf_isNull(sTestreqlnkno)) {
        opener.frmf_setParameter ( "SMAER00400_patholno", sTestreqlnkno );
    }

    //************************************** 퇴원후 외래처방 체크 *********************//    
    //퇴원처방발행 여부 by sonjy 2008-07-30 (중증등록암관련)
    ds_hidden.setColumn(0, "dschprcpyn", "N");
    if( prcpdschcnt > 0) ds_hidden.setColumn(0, "dschprcpyn", "Y");
    
    if ( prcpkindchk > 0  && prcpgenrflag != "O" ) {
        if( frmf_getParameter("SMMMP00800_cpsaveflag") == "T" && ds_init.getColumn(0, "prcpdd") > utlf_getCurrentDate() ){
            return true;
        }
        return fFollowUp();
    }

    return true;
}

/**@desc   : 처방화면 close, 진료대상자 CP검색, CP Main, 처방 Main 조정하기 위해 구현함
 * @return : void
 * @authur : 오지훈 2007. 9. 29
 */
function fPrcpWndClose(){
	if(!fPrcpSavePatList()){
		close();
	}
}

/**@desc   : 처방 복사시 처방상세팝업 관리
 * @return : void
 * @authur : 마정민 2007.10.01
 */
function addPrcpPop ( srchRow, usge, prcpclscd, srchRow ) {
    //model.addLog("    *************    Start Of addPrcpPop()");  
    var iFind = -1;

    if ( usge == "prcp" ) {
        var prcpessninptflag = ds_main_prcplist.getColumn(srchRow, "prcpessninptflag");
        var prnprcpflag      = ds_main_prcplist.getColumn(srchRow, "prnprcpflag");
        var selfprcpflag     = ds_main_prcplist.getColumn(srchRow, "selfprcpflag");
        var prcpcd           = ds_main_prcplist.getColumn(srchRow, "prcpcd");
        var drugmastspec     = ds_main_prcplist.getColumn(srchRow, "drugmastspec");
        var tempcol2         = ds_main_prcplist.getColumn(srchRow, "tempcol2");
        var tempcol24        = ds_main_prcplist.getColumn(srchRow, "tempcol24");

// "/root/hidden/autochoiordprcp" 이런 노드 존재 하지 않아 항상 null 임, 고로 아래 주석 로직 불필요
//         var choiordClscdautoyn = model.getValue("/root/hidden/autochoiordprcp/hardcd[hardcd = 'CLSCD' and hardcdnm ='" + tempcol2 + "']/hardcdnm");
//         var choiordPrcpcdautoyn = model.getValue("/root/hidden/autochoiordprcp/hardcd[hardcd = 'PRCPCD' and hardcdnm ='" + prcpcd + "']/hardcdnm");
//       
//         if ( tempcol24 == "Y" && ( !utlf_isNull(choiordClscdautoyn) || !utlf_isNull(choiordPrcpcdautoyn))) {      
//             lf_chgChoiDr ( "auto", srchRow );
//         }

        if ( prcpessninptflag == "1" || prcpessninptflag == "2" || prcpessninptflag == "3" || prcpessninptflag == "4" || prcpessninptflag == "5" ){
            var pid     = ds_paminfo.getColumn(0, "pid");
            var indd    = ds_paminfo.getColumn(0, "indd");
            var cretno  = ds_paminfo.getColumn(0, "cretno");
            var ordtype = ds_paminfo.getColumn(0, "ordtype");
            
            if ( ordtype == "O" || ordtype == "S" ) {
                var prcpgenrflag = "O";
            } else {
                var prcpgenrflag = "I";
            }

			ds_TRMMO00130.clearData();
			ds_TRMMO00130.addRow();
			
            ds_TRMMO00130.setColumn(0, "pid",          pid);
            ds_TRMMO00130.setColumn(0, "orddd",        indd);
            ds_TRMMO00130.setColumn(0, "cretno",       cretno);
            ds_TRMMO00130.setColumn(0, "prcpgenrflag", prcpgenrflag);
            
            var oParam = {};
				oParam.id       = "TRMMO00130";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqfGetOpansCnt";
				oParam.inds     = "req=ds_TRMMO00130";
				oParam.outds    = "ds_opansinfo=opansinfo";
				oParam.async    = false;

			tranf_submit(oParam);

            var opansCnt = ds_opansinfo.getColumn(0, "opanscnt");
            
            for (var i = 0; i < ds_main_prcplist.rowcount; i++) {  
                if ( i != srchRow && ds_main_prcplist.getColumn(i, "prcpclscd") == "H2" && 
                     (ds_main_prcplist.getColumn(i, "prcpessninptflag") == "3" || ds_main_prcplist.getColumn(i, "prcpessninptflag") == "5" )) {
                        opansCnt++; 
                }
            }
            
            if (opansCnt == 0 && ds_main_prcplist.getColumn(srchRow, "opansflagcd") == "-") {
                ds_main_prcplist.getColumn(srchRow, "opansflagcd", "4"); //주수술
            }
            
            fCpInPrcpVisible();
            fPrcpDetl( srchRow, "", "360", "auto" );
        } else if ( prcpclscd == "C2" ) { //20090120 prcpclscd == "E2" 는 존재하지 않아서 지운다.
            /*2007-12-17 마정민 수정 진료 ITC 요청에 의해 방사선 처방 임상소견 필수입력을 위한 자동 팝업
              단순방사선 검사를 제외한 나머지 영상검사라 하면, 특수방사선검사(수익분류-19), 방사선혈관조영술(20), 방사선초음파(21), 방사선CT(22), 방사선 BMD(23), 방사선HIFU(24), 방사선MRI(25), 외부영상판독CD(26) 를 말함.
            */
            var ck = ds_main_prcplist.getColumn(srchRow, "tempcol2").substring ( 0, 2 );
            if (ck=="19"||ck=="20"||ck=="21"||ck=="22"||ck=="23"||ck=="24"||ck=="25"||ck=="26" || ds_main_prcplist.getColumn(srchRow, "tempcol2") == "18|02|06") {
                fCpInPrcpVisible();
                fPrcpDetl( srchRow, "", "360", "auto" );
            }
        } else if ( prcpclscd == "C6") {
            /* 20090717 kimsj(핵의학 류형기)
            * PET CT처방 임상소견 필수입력위한 자동팝업 추가 (수익분류3 기타인 경우 제외) 
            * 핵의학(09)-감마영상검사(09)-근골격(04) 임상소견 필수입력위한 자동팝업 추가 2013.02.06 엄영만
            */
            var ck = ds_main_prcplist.getColumn(srchRow, "tempcol2").substring ( 0, 5 );
            var dk = ds_main_prcplist.getColumn(srchRow, "tempcol2").substring ( 6, 8 );
            if ( (ck == "09|02" && dk != "04") || (ck == "09|01" && dk == "04") ) {
                fCpInPrcpVisible();
                fPrcpDetl( srchRow, "", "360", "auto" );
            }
        }
                
        //CP 추가처방은 의뢰지 skip (2008.09.02 JJE)
        if( ds_root.getColumn(0, "cp") != "Y" ){
            fReqfrm ( srchRow, "copy" );
        }else{
            if( curSavePrcpFlag_SMMMO00110 != "T" ){    //CP화면에서 미래처방인 경우, 의뢰지 팝업 skip
                fReqfrm ( srchRow, "copy" );
            }
        }

        if ( prcpclscd == "B4" ) { //수혈 (혈액수혈)
            //수혈적응증 입력을 위해 수혈 상세팝업
            fPrcpDetl( srchRow, "", "360", "auto" ); // 무조건 상세팝업
            var addcnt = frmf_getParameter ( "SPMMO01500_addcnt" );
            frmf_clearParameter ( "SPMMO01500_addcnt" );  
            if ( !utlf_isNull(addcnt) && addcnt != 0 ) {
                srchRow = eval(srchRow) + eval(addcnt);
            }
        } else if ( prcpclscd == "03" ) {           // 식이일 때는 자동팝업
            var dietprcpgenrflag = ds_main_prcplist.getColumn(srchRow, "dietprcpgenrflag");
            if ( utlf_isNull(dietprcpgenrflag) || dietprcpgenrflag == "-" ) {
                fPrcpDetl( srchRow, "", "360", "auto" );
                if ( !utlf_isNull(dietcnt) && dietcnt != 0 ) {
                    srchRow = eval(srchRow) + eval(addcnt) - 1;
                }
            }
        }

        var limprcpcd = lf_getDsValue(ds_initsrch_prcpetccnts, 0, "limprcpcd");
        
        if( prcpcd.charAt(0) != "*" ){ 
            iFind = limprcpcd.indexOf( prcpcd );
        }
    } 

    if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
        var drprcpetc6    = ds_main_prcplist.getColumn(srchRow, "drprcpetc6");
        var drugmthdspccd = ds_main_prcplist.getColumn(srchRow, "drugmthdspccd");
        if ( utlf_isNull(drugmthdspccd) || drugmthdspccd == "-" ) {
            frmf_setParameter ( "SPMMO01900_srchRow", srchRow );
            lf_prcpModal ( "SPMMO01900", 280, 100 );
            frmf_clearParameter ( "SPMMO01900_srchRow" );
        }
                
        if ( !utlf_isNull(this.objects["ds_prnprcpyninfo"]) && ds_prnprcpyninfo.getColumn(0, "hardcd") == "Y" && ds_root.getColumn(0, "cp") != "Y"){
			if (prnprcpflag == "Y"){//  2009.12.31  LYJ PRN처방 여부를 가려 횟수와 사유를 입력받는다.
				var prnl = lf_getArrayData ( drugmastspec, 0, 33, "^", "|" );
				if (prnl=="N"){
					sysf_messageBox ( "PRN 처방이 불가능한 처방입니다. PRN 지정을 자동 해지합니다." , "E" );
					ds_main_prcplist.setColumn(srchRow, "prnprcpflag",  "N");
					ds_main_prcplist.setColumn(srchRow, "tempprcpflag", "N" );
					ds_main_prcplist.setColumn(srchRow, "prcpnm",       ds_main_prcplist.getColumn(srchRow, "orgprcpnm" ));
					ds_main_prcplist.setColumn(srchRow, "drprcpetc6",   "" );
				} else {
					if (drprcpetc6 == "-" || drprcpetc6 =="" ){
                        var prcpinptflag = ds_main_prcplist.getColumn(srchRow, "prcpinptflag");
                                                
                        var mon               = sysf_getCurrentMonitorNumber();
                        var objScreenInfo     = system.getScreenRect(mon);
						var resolution_width  = objScreenInfo.right - objScreenInfo.left;
						var resolution_height = objScreenInfo.bottom - objScreenInfo.top;
                        var xpt               = (resolution_width - 246) / 2;
                        var ypt               = (resolution_height - 119) / 2;

                        frmf_setParameter ( "SPMMO19200_pop", "bfprcp" );
                        frmf_setParameter ( "SPMMO19200_prcpcd", ds_main_prcplist.getColumn(srchRow, "prcpcd"));
                        frmf_setParameter ( "SPMMO19200_prcpnm", ds_main_prcplist.getColumn(srchRow, "prcpnm"));
                         
//                      var objArg = new Object();
// 						objArg.arg_ds_main_prcplist_prnresncd = ds_tmp_prnresncd;
                         
						frmf_modal("SPMMO19200", "SPMMO19200", null, false, mon, xpt, ypt, null, null, null, null, null, "M");
						// 노드 넘기는건 필요 없는 듯 추후 확인필요
						//modal("SPMMO19200",monitorNumber,xpt, ypt, "SPMMO19200", "/root/tmp/prnresncd", "/root/main/prcp/prcplist/prnresncd", "sysmenu:hidden;", false ); 

						var popPrnyn = frmf_getParameter ( "SPMMO19200_rtn1" );
						if (popPrnyn == "N") {
							ds_main_prcplist.setColumn(srchRow, "prnprcpflag",  "N" );
							ds_main_prcplist.setColumn(srchRow, "prcpnm",       ds_main_prcplist.getColumn(srchRow, "orgprcpnm"));
							ds_main_prcplist.setColumn(srchRow, "tempprcpflag", "N");
							ds_main_prcplist.setColumn(srchRow, "drprcpetc6",   "");
						}else {
							var popResncd   = frmf_getParameter("SPMMO19200_resncd");
							var prnNum      = frmf_getParameter("SPMMO19200_prnNum");
							var prncmt      = frmf_getParameter("SPMMO19200_resncmt");
							var Sprnprcpdtl = prnNum + "|" + popResncd + "|" + prncmt;
							ds_main_prcplist.setColumn(srchRow, "drprcpetc6", Sprnprcpdtl);
						}
                    }
                }
            }
        }
        
        if (prcpclscd == "A6" && selfprcpflag == "Y" ){ // 20101018 LYJ 주사제 상세용법 자동 팝업  
            var prcpClsCd = ds_main_prcplist.getColumn(srchRow, "prcpclscd" );

            var xpt = getScreenCenterPoint(0, 380);
            var ypt = getScreenCenterPoint(1, 119);
            
            var sDsNm = dsf_createDs("ds_temp_SPMMO01200");
            dsf_copyColInfo(ds_temp_SPMMO01200, ds_main_prcplist);
            ds_temp_SPMMO01200.addRow();
            ds_temp_SPMMO01200.copyRow(0, ds_main_prcplist, srchRow);
            
            var objArg = new Object();
			objArg.arg_ds_main_prcplist = ds_temp_SPMMO01200;
            
            frmf_modal("SPMMO01200", "SPMMO01200", objArg, false, null, xpt, ypt, null, null, null, null, null, "P");
            
            dsf_deleteDs(sDsNm);
            
            if ( frmf_getParameter("SPMMO01200_selfprcpflag") == "N"){
				ds_main_prcplist.deleteRow(srchRow);
                frmf_clearParameter ( "SPMMO01200_selfprcpflag" );
                return srchRow - 1;
            } else {
				fPrcpDetlApp ( prcpClsCd, "ds_prcptemp_prcplist", "ds_main_prcplist", srchRow );
            }
        }
    } else if ( prcpclscd == "B2" || prcpclscd == "B6" ) { //진단검사 검체 팝업
         fGetSpc ( srchRow );
    } 

    if ( prcpclscd == "A6" || prcpclscd == "F2" ) {
        var prcpinptflag = ds_main_prcplist.getColumn(srchRow, "prcpinptflag");
        if ( prcpinptflag == "01" || prcpinptflag == "02" ) {
            var prcpdayno = ds_main_prcplist.getColumn(srchRow, "prcpdayno");
            if ( !utlf_isNull(prcpdayno) && prcpdayno > 1 ) {
                if( prcpclscd == "A6" || ds_main_prcplist.getColumn(srchRow, "prcpcd") == "MUR0001" ){
                  // by sonjy 2008-08-07 재활(요실금제외)  약속set copy시 약속set의 일수와 다르게 copy되는 부분 막음. 조과장님 요청. 
                  ds_main_prcplist.setColumn(srchRow, "prcpdayno", "1");  
                  ds_main_prcplist.setColumn(srchRow, "contprcpspec", "-");
                }
            }
        }
    }

    //start: 영상 검사 자동팝업에서 취소를 한 경우, copy한 처방 취소 처리 (2010.02.02 JJE)
    if( frmf_getParameter("cnclCopyPrcpYN_Param") == "Y" ){
        ds_main_prcplist.deleteRow(srchRow);
        frmf_clearParameter ( "cnclCopyPrcpYN_Param" );
        return srchRow-1;
    }
    //end

    //  HLA검사 공여자 정보 등록.   
    // hardcode 170 처방 중 공여자가 등록될 시 자동 본인부담 처리 setValue는 화면단에서 2009.11.17 이윤정
    if ( ds_initsrch_pretest.getColumn(0, "trgtcd") == "Y" ) {
        if ( frmf_getParameter("SPMMO15600_srchRow") == "" ) {
            if (!utlf_isNull(ds_initsrch_hlaprcpcd.lookup("prcpcd", prcpcd, "prcpcd"))) {
                var hlaselfprcpcd = ds_initsrch_hlaprcpcd.getColumn(0, "trgtcd");
                frmf_setParameter("SPMMO15600_hlaselfprcpcd", hlaselfprcpcd);
                frmf_setParameter("SPMMO15600_srchRow", srchRow);
                frmf_modal("SPMMO15600", "SPMMO15600", null, null, null, null, null, null, null, null, null, null, "M");
                
                var dnorAddcnt = frmf_getParameter("SPMMO15600_addcnt");
                frmf_clearParameter("SPMMO15600_srchRow");
                frmf_clearParameter("SPMMO15600_addcnt");
                srchRow = dnorAddcnt ;
            }
        }
    }

    //model.addLog("    *************    End Of addPrcpPop()");  
    
    return srchRow
}

/**@desc   : 처방 복사시 처방상세팝업 관리
 * @return : void
 * @authur : 엄영만 2013.07.25
 *           서버에서 체크 하는 로직에 맞춰 신규 생성
 */
function addPrcpPop_App(srchRow, usge) {
    //model.addLog("    *************    Start Of addPrcpPop()");  
    var prcpgenrflag = "";
    var prcpclscd    = ds_main_prcplist.getColumn(srchRow, "prcpclscd");
    var sChoiOrdFlag = ds_main_prcplist.getColumn(srchRow, "choiordflag");
    var sSpecDrId    = ds_main_prcplist.getColumn(srchRow, "specdrid");
    
    //2011.11.07 엄영만 선택진료여부 및 선택진료의사 셋팅
	if("D2" != prcpclscd || "prcp" != usge){ // 처방시에 병리처방은 의뢰지 팝업후 검체코드설정되면 선택의사 설정 함.(의뢰지 작성후 팝업 되도록) 2011.11.25 엄영만.
		if(sChoiOrdFlag == "Y" && (utlf_isNull(sSpecDrId) || sSpecDrId == "-")){
		    lf_chgChoiDr ( "auto", srchRow );
	    }
	} // end if

    if ( usge == "prcp" ) {
        var prcpessninptflag = ds_main_prcplist.getColumn(srchRow, "prcpessninptflag");
        var prnprcpflag      = ds_main_prcplist.getColumn(srchRow, "prnprcpflag");
        var selfprcpflag     = ds_main_prcplist.getColumn(srchRow, "selfprcpflag");
        var drugmastspec     = ds_main_prcplist.getColumn(srchRow, "drugmastspec");
        var tempcol2         = ds_main_prcplist.getColumn(srchRow, "tempcol2");
      
        if ( prcpessninptflag == "1" || prcpessninptflag == "2" || prcpessninptflag == "3" || prcpessninptflag == "4" || prcpessninptflag == "5" ){
            var pid     = ds_paminfo.getColumn(0, "pid");
            var indd    = lf_getDsValue(ds_paminfo, 0, "indd");
            var cretno  = ds_paminfo.getColumn(0, "cretno");
            var ordtype = lf_getDsValue(ds_paminfo, 0, "ordtype");

            if ( ordtype == "O" || ordtype == "S" ) {
                prcpgenrflag = "O";
            } else {
                prcpgenrflag = "I";
            }
            
            ds_TRMMO00130.clearData();
			ds_TRMMO00130.addRow();
			
            ds_TRMMO00130.setColumn(0, "pid",          pid);
            ds_TRMMO00130.setColumn(0, "orddd",        indd);
            ds_TRMMO00130.setColumn(0, "cretno",       cretno);
            ds_TRMMO00130.setColumn(0, "prcpgenrflag", prcpgenrflag);
            
            var oParam = {};
				oParam.id       = "TRMMO00130";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqfGetOpansCnt";
				oParam.inds     = "req=ds_TRMMO00130";
				oParam.outds    = "ds_opansinfo=opansinfo";
				oParam.async    = false;

			tranf_submit(oParam);
			
            var opansCnt = ds_opansinfo.getColumn(0, "opanscnt");
            
            for (var i = 0; i < ds_main_prcplist.rowcount; i++) {  
                if ( i != srchRow && ds_main_prcplist.getColumn(i, "prcpclscd") == "H2" && 
                     (ds_main_prcplist.getColumn(i, "prcpessninptflag") == "3" || ds_main_prcplist.getColumn(i, "prcpessninptflag") == "5" )) {
                        opansCnt++; 
                }
            }
            
            if (opansCnt == 0 && ds_main_prcplist.getColumn(srchRow, "opansflagcd") == "-") {
                ds_main_prcplist.setColumn(srchRow, "opansflagcd", "4" ); //주수술
            }
            
            fCpInPrcpVisible();
            fPrcpDetl( srchRow, "", "360", "auto" );
        } else if ( prcpclscd == "C2" ) { //20090120 prcpclscd == "E2" 는 존재하지 않아서 지운다.
            // 2007-12-17 마정민 수정 진료 ITC 요청에 의해 방사선 처방 임상소견 필수입력을 위한 자동 팝업 단순방사선 검사를 제외한 나머지 영상검사라 하면, 특수방사선검사(수익분류-19), 방사선혈관조영술(20), 방사선초음파(21), 방사선CT(22), 방사선 BMD(23), 방사선HIFU(24), 방사선MRI(25), 외부영상판독CD(26) 를 말함.
            var ck = tempcol2.substring ( 0, 2 );
            if (ck=="19"||ck=="20"||ck=="21"||ck=="22"||ck=="23"||ck=="24"||ck=="25"||ck=="26" || ds_main_prcplist.getColumn(srchRow, "tempcol2") == "18|02|06") {
                fCpInPrcpVisible();
                fPrcpDetl( srchRow, "", "360", "auto" );
            }
        } else if ( prcpclscd == "C6") {
            /* 20090717 kimsj(핵의학 류형기)
            * PET CT처방 임상소견 필수입력위한 자동팝업 추가 (수익분류3 기타인 경우 제외) 
            * 핵의학(09)-감마영상검사(09)-근골격(04) 임상소견 필수입력위한 자동팝업 추가 2013.02.06 엄영만
            */
            var ck = tempcol2.substring ( 0, 5 );
            var dk = tempcol2.substring ( 6, 8 );
            if ( (ck == "09|02" && dk != "04") || (ck == "09|01" && dk == "04") ) {
                fCpInPrcpVisible();
                fPrcpDetl( srchRow, "", "360", "auto" );
            }
        }
                
        //CP 추가처방은 의뢰지 skip (2008.09.02 JJE)
        if( ds_root.getColumn(0, "cp") != "Y" ){
            fReqfrm ( srchRow, "copy" );
        }else{
            if( curSavePrcpFlag_SMMMO00110 != "T" ){    //CP화면에서 미래처방인 경우, 의뢰지 팝업 skip
                fReqfrm ( srchRow, "copy" );
            }
        }

        if ( prcpclscd == "B4" ) { //수혈 (혈액수혈)
            //수혈적응증 입력을 위해 수혈 상세팝업
            fPrcpDetl( srchRow, "", "360", "auto" ); // 무조건 상세팝업

            var addcnt = frmf_getParameter ( "SPMMO01500_addcnt" );
            frmf_clearParameter ( "SPMMO01500_addcnt" );  
            if ( addcnt != null && addcnt != 0 ) {
                srchRow = eval(srchRow) + eval(addcnt);
            }
        } else if ( prcpclscd == "03" ) {           // 식이일 때는 자동팝업
            var dietprcpgenrflag = ds_main_prcplist.getColumn(srchRow, "dietprcpgenrflag");
            if ( utlf_isNull(dietprcpgenrflag) || dietprcpgenrflag == "-" ) {
                fPrcpDetl( srchRow, "", "360", "auto" );
                if ( !utlf_isNull(dietcnt) && dietcnt != 0 ) {
                    srchRow = eval(srchRow) + eval(addcnt) -1;
                }
            }
        }
    } 

    if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
        var drprcpetc6    = ds_main_prcplist.getColumn(srchRow, "drprcpetc6");
        var drugmthdspccd = ds_main_prcplist.getColumn(srchRow, "drugmthdspccd");
        if ( utlf_isNull(drugmthdspccd) || drugmthdspccd == "-" ) {
            frmf_setParameter ( "SPMMO01900_srchRow", srchRow );
            lf_prcpModal ( "SPMMO01900", 280, 100 );
            frmf_clearParameter ( "SPMMO01900_srchRow" );
        }
        
        if ( !utlf_isNull(this.objects["ds_prnprcpyninfo"]) && ds_prnprcpyninfo.getColumn(0, "hardcd")=="Y" &&  ds_root.getColumn(0, "cp") != "Y"){
             if (prnprcpflag == "Y"){//  2009.12.31  LYJ PRN처방 여부를 가려 횟수와 사유를 입력받는다.
                 var prnl = lf_getArrayData ( drugmastspec, 0, 33, "^", "|" );
                 if (prnl=="N"){
                     sysf_messageBox ( "PRN 처방이 불가능한 처방입니다. PRN 지정을 자동 해지합니다." , "E" );
                     ds_main_prcplist.setColumn(srchRow, "prnprcpflag",  "N");
                     ds_main_prcplist.setColumn(srchRow, "tempprcpflag", "N");
                     ds_main_prcplist.setColumn(srchRow, "prcpnm",       ds_main_prcplist.getColumn(srchRow, "orgprcpnm"));
                     ds_main_prcplist.setColumn(srchRow, "drprcpetc6",   "");
                 }else {
                    if (drprcpetc6 == "-" || drprcpetc6 =="" ){
                        var prcpinptflag = ds_main_prcplist.getColumn(srchRow, "prcpinptflag");
                        
                        var mon               = sysf_getCurrentMonitorNumber();
                        var objScreenInfo     = system.getScreenRect(mon);
						var resolution_width  = objScreenInfo.right - objScreenInfo.left;
						var resolution_height = objScreenInfo.bottom - objScreenInfo.top;
                        var xpt               = (resolution_width - 246) / 2;
                        var ypt               = (resolution_height - 119) / 2;

                        frmf_setParameter ( "SPMMO19200_pop", "bfprcp" );
						frmf_setParameter ( "SPMMO19200_prcpcd", ds_main_prcplist.getColumn(srchRow, "prcpcd") );
                        frmf_setParameter ( "SPMMO19200_prcpnm", ds_main_prcplist.getColumn(srchRow, "prcpnm") );
                        
//                      var objArg = new Object();
// 						objArg.arg_ds_main_prcplist_prnresncd = ds_tmp_prnresncd;
                         
						frmf_modal("SPMMO19200", "SPMMO19200", null, false, mon, xpt, ypt, null, null, null, null, null, "P");
						// 노드 넘기는건 필요 없는 듯 추후 확인필요
						//modal("SPMMO19200",monitorNumber,xpt, ypt, "SPMMO19200", "/root/tmp/prnresncd", "/root/main/prcp/prcplist/prnresncd", "sysmenu:hidden;", false ); 

                        var popPrnyn = frmf_getParameter ( "SPMMO19200_rtn1" );
                        if (popPrnyn == "N") {
							ds_main_prcplist.setColumn(srchRow, "prnprcpflag", "N");
                            ds_main_prcplist.setColumn(srchRow, "prcpnm", ds_main_prcplist.getColumn(srchRow, "orgprcpnm"));
                            ds_main_prcplist.setColumn(srchRow, "tempprcpflag","N");
                            ds_main_prcplist.setColumn(srchRow, "drprcpetc6", "" );
                        }else {
                            var popResncd = getParameter("SPMMO19200_resncd");
                            var prnNum = getParameter("SPMMO19200_prnNum");
                            var prncmt =  getParameter("SPMMO19200_resncmt");
                            var Sprnprcpdtl = prnNum + "|" + popResncd + "|" + prncmt;
                            ds_main_prcplist.setColumn(srchRow, "drprcpetc6", Sprnprcpdtl);
                        }
                    }
                }
            }
        }
        
        if (prcpclscd == "A6" && selfprcpflag == "Y" ){ // 20101018 LYJ 주사제 상세용법 자동 팝업  
            var prcpClsCd = ds_main_prcplist.getColumn(srchRow, "prcpclscd" );
            var xpt = getScreenCenterPoint(0, 380);
            var ypt = getScreenCenterPoint(1, 119);
            
            var sDsNm = dsf_createDs("ds_temp_SPMMO01200");
            dsf_copyColInfo(ds_temp_SPMMO01200, ds_main_prcplist);
            ds_temp_SPMMO01200.addRow();
            ds_temp_SPMMO01200.copyRow(0, ds_main_prcplist, srchRow);
            
            var objArg = new Object();
			objArg.arg_ds_main_prcplist = ds_temp_SPMMO01200;
            
            frmf_modal("SPMMO01200", "SPMMO01200", objArg, false, null, xpt, ypt, null, null, null, null, null, "P");
            
            dsf_deleteDs(sDsNm);
            
            if ( frmf_getParameter("SPMMO01200_selfprcpflag") == "N"){
				ds_main_prcplist.deleteRow(srchRow);
                frmf_clearParameter ( "SPMMO01200_selfprcpflag" );
                return srchRow - 1;
            } else {
                fPrcpDetlApp ( prcpClsCd, "ds_prcptemp_prcplist", "ds_main_prcplist", srchRow );
            }
        }
    } else if ( prcpclscd == "B2" || prcpclscd == "B6" ) { //진단검사 검체 팝업
         fGetSpc ( srchRow );
    } 

    if ( prcpclscd == "A6") { // by sonjy 2008-08-07 약속set copy시 약속set의 일수와 다르게 copy되는 부분 막음. 조과장님 요청. 
        var prcpinptflag = ds_main_prcplist.getColumn(srchRow, "prcpinptflag");
        if ( prcpinptflag == "01" || prcpinptflag == "02" ) {
            var prcpdayno = ds_main_prcplist.getColumn(srchRow, "prcpdayno");
            if ( !utlf_isNull(prcpdayno) && prcpdayno > 1 ) {
                ds_main_prcplist.setColumn(srchRow, "prcpdayno", "1");  
                ds_main_prcplist.setColumn(srchRow, "contprcpspec", "-");
            }
        }
    }

    //start: 영상 검사 자동팝업에서 취소를 한 경우, copy한 처방 취소 처리 (2010.02.02 JJE)
    if( frmf_getParameter("cnclCopyPrcpYN_Param") == "Y" ){
		ds_main_prcplist.deleteRow(srchRow);
        frmf_clearParameter ( "cnclCopyPrcpYN_Param" );
        return srchRow - 1;
    }//end

    //model.addLog("    *************    End Of addPrcpPop()");  
    
    return srchRow
}

/**@desc   : 믹스번호처리
 * @return : void
 * @authur : 마정민 2007.10.09
 */
function fMixNoCnt() {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var cnt = 0;
    
    for ( var i = selectedRows.length - 1; i >= 0; i-- ){
        //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
        var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd" );
        if ( selprcpclscd == "A6" ) {
            cnt++
        } else {
			ds_main_prcplist.selectRow(selectedRows[i], false);
        }
    }
    if ( cnt <= 1 ) {
        sysf_messageBox ( "Mix할 처방이 ", "E014");
    } else {
        var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);

        //20090203 마정민수정: 항암과 TPN, 무균조제약은 서로 MIX되지 않도록 제한 기능 추가
        for ( var i = selectedRows.length - 1; i >= 0; i-- ){
            spcldrug = lf_getArrayData ( ds_main_prcplist.getColumn(selectedRows[i], "drugmastspec") + "^", 0, 23, "^", "|" );
            if (spcldrug == "B" || spcldrug == "C" || spcldrug == "D" || spcldrug == "T" || spcldrug == "Q" ) {
                for ( var j = selectedRows.length - 1; j >= 0; j-- ){
                    chkspcldrug = lf_getArrayData ( ds_main_prcplist.getColumn(selectedRows[j], "drugmastspec" ) + "^", 0, 23, "^", "|" );
                    if (chkspcldrug == "B" || chkspcldrug == "C" || chkspcldrug == "D" || chkspcldrug == "T" || chkspcldrug == "Q") {
                        if (spcldrug != chkspcldrug) {                          
                            sysf_messageBox ( "항암, TPN, 무균조제약은 서로 MIX", "E001");
                            return;
                        }
                    }
                }
            }
        }

        var prcpmixno = eval(ds_init.getColumn(0, "prcpmixno")) + 1;
        for (var i = 0; i < selectedRows.length; i++) {
			ds_main_prcplist.setColumn(selectedRows[i], "prcpmixno", prcpmixno );
            
            gGridUpdateChk("pack", i);  // 임시저장 수정 모드 
            fSetCpVal(selectedRows[i], "U");
//          if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "-" ) {
//              model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "U" );
//          }
        }
		ds_init.setColumn(0, "prcpmixno", prcpmixno );

		for (var i = 0; i < ds_main_prcplist.rowcount; i++) {        
			var chkPrcpmixno = ds_main_prcplist.getColumn(i, "prcpmixno");
            //믹스번호가 있는 것중에
            if ( chkPrcpmixno != "-" && !utlf_isNull(chkPrcpmixno)) {
                //삭제를 제외하고 값이 한개 밖에 없으면 mix를 해제해 준다.
                var srcNodeList = ds_main_prcplist.getCaseCount("prcpmixno == '" + chkPrcpmixno + "'");
                if ( srcNodeList <= 1) {
                    ds_main_prcplist.setColumn(i, "prcpmixno", "-");
//                  if ( model.getValue ( prcpNode + "[" + i + "]/status" ) == "-" ) {
//                      model.setValue ( prcpNode + "[" + i + "]/status", "U" );
//                  }
                }
            }
        }
    }
}

/**@desc   : 믹스번호취소처리
 * @return : void
 * @authur : 마정민 2007.10.16
 */
function fMixNoDel() {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var cnt = 0;
    
    for ( var i = selectedRows.length - 1; i >= 0; i-- ){
        //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
        var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd" );
        if ( selprcpclscd == "A6" ) {
            cnt++
        } else {
			ds_main_prcplist.selectRow(selectedRows[i], false);
        }
    }

    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    for (var i = 0; i < selectedRows.length; i++) {
		ds_main_prcplist.setColumn(selectedRows[i], "prcpmixno", "-");
        
        fSetCpVal(selectedRows[i], "U");
//          if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "-" ) {
//              model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "U" );
//          }
    }

     for (var i = 0; i < ds_main_prcplist.rowcount; i++) {        
        var chkPrcpmixno = ds_main_prcplist.getColumn(i, "prcpmixno" );
        //믹스번호가 있는 것중에
        if ( chkPrcpmixno != "-" && !utlf_isNull(chkPrcpmixno)) {
            //삭제를 제외하고 값이 한개 밖에 없으면 mix를 해제해 준다.
            var srcNodeList = ds_main_prcplist.getCaseCount("prcpmixno == '" + chkPrcpmixno + "'");
            if ( srcNodeList <= 1) {
                ds_main_prcplist.setColumn(i, "prcpmixno", "-" );
//                  if ( model.getValue ( prcpNode + "[" + i + "]/status" ) == "-" ) {
//                      model.setValue ( prcpNode + "[" + i + "]/status", "U" );
//                  }
            }
        }
    } 
}

/**@desc   : 특수조제믹스번호처리
 * @return : void
 * @authur : 마정민 2007.10.09
 */
function fTMixNoCnt() {
    var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
    var cnt = 0;
    for ( var i = selectedRows.length - 1; i >= 0; i-- ){
        //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
        var selprcpclscd = ds_main_prcplist.getColumn(selectedRows[i], "prcpclscd");
        if ( selprcpclscd == "A6" ) {
            cnt++
        } else {
			ds_main_prcplist.selectRow(selectedRows[i], false);
        }
    }
    if ( cnt <= 1 ) {
        sysf_messageBox ( "Mix할 처방이 ", "E014");
    } else {
        var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
        var prcpmixno = eval(ds_init.getColumn(0, "prcpmixno")) + 1;
        for (var i = 0; i < selectedRows.length; i++) {       
            ds_main_prcplist.setColumn(selectedRows[i], "prcpmixno", "T" + prcpmixno );
            
            fSetCpVal(selectedRows[i], "U");
//          if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "-" ) {
//              model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "U" );
//          }
        }
         ds_init.setColumn(0, "prcpmixno", prcpmixno);

         for (var i = 0; i < ds_main_prcplist.rowcount; i++) {        
            var chkPrcpmixno = ds_main_prcplist.getColumn(i, "prcpmixno");
            //믹스번호가 있는 것중에
            if ( chkPrcpmixno != "-" && !utlf_isNull(chkPrcpmixno)) {
                //삭제를 제외하고 값이 한개 밖에 없으면 mix를 해제해 준다.
                var srcNodeList = ds_main_prcplist.getCaseCount("prcpmixno == '" + chkPrcpmixno + "'");
                if ( srcNodeList <= 1) {
                    ds_main_prcplist.setColumn(i, "prcpmixno", "-");
//                  if ( model.getValue ( prcpNode + "[" + i + "]/status" ) == "-" ) {
//                      model.setValue ( prcpNode + "[" + i + "]/status", "U" );
//                  }
                }
            }
        }
    }
}

function fContPrcpDd() {
	lf_contPrcpDd();
}

function fFollowUp() {
    var pid    = ds_paminfo.getColumn(0, "pid");
    var indd   = ds_paminfo.getColumn(0, "indd" );
    var cretno = ds_paminfo.getColumn(0, "cretno" );
    
    ds_TRMMO00119.setColumn(0, "pid",   pid);
    ds_TRMMO00119.setColumn(0, "orddd", indd);
    
    //퇴원예고여부가 먼저 CHECK되고 퇴원후 외래예약이 CHECK되도록 수정 by sonjy 2008-07-22 
    //cond3에 cretno를 줄경우 자꾸 null이 넘어감. cond4로 수정. 제한항생제 승인신청서 취소 후 해당 현상 발생하며 오류 발생.    
    ds_TRMMO00119.setColumn(0, "instcd", "");
    ds_TRMMO00119.setColumn(0, "cretno", cretno);
 
    //기존에 해당 입원 원무키로 퇴원후 외래 예약이 있는지 체크    
    var oParam = {};
		oParam.id       = "TRMMO00119";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqGetFollowUpChk";
		oParam.inds     = "req=ds_TRMMO00119";
		oParam.outds    = "ds_followup=followup";
		oParam.async    = false;
		oParam.callback = "cf_TRMMO00119";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO00119") < 0) return false;

    if ( utlf_isNull(ds_followup.getColumn(0, "pid"))) {
        lf_prcpModal ( "SPMMO14400", 350, 200 );
        var SPMMO14400_rtnyn = frmf_getParameter ( "SPMMO14400_rtnyn" );
        frmf_clearParameter ( "SPMMO14400_rtnyn" );
        
        if ( SPMMO14400_rtnyn  == "Y" ) {                   
            var otpt_flag       = "I";
            var otpt_orddd      = frmf_getParameter ( "SPMMO14400_otpt_orddd" );
            var otpt_orddeptcd  = frmf_getParameter ( "SPMMO14400_orddeptcd" );
            var otpt_orddrid    = frmf_getParameter ( "SPMMO14400_orddrid" );
            var otpt_ordtm      = frmf_getParameter ( "SPMMO14400_ordtm" );
            var otpt_rsrvflag   = "8";
            var sess_userid     = sysf_getUserInfo ( "userid" );
            
            frmf_clearParameter ( "SPMMO14400_otpt_orddd" );
            frmf_clearParameter ( "SPMMO14400_orddeptcd" );
            frmf_clearParameter ( "SPMMO14400_orddrid" );
            frmf_clearParameter ( "SPMMO14400_ordtm" );
                                                                            
            ds_TXMMO00107.setColumn(0, "otpt_flag", otpt_flag);
            ds_TXMMO00107.setColumn(0, "otpt_orddd", ds_paminfo.getColumn(0, "dschdclrdt").substring( 0, 8 ));
            ds_TXMMO00107.setColumn(0, "otpt_orddeptcd", otpt_orddeptcd );
            ds_TXMMO00107.setColumn(0, "otpt_orddrid", otpt_orddrid );
            ds_TXMMO00107.setColumn(0, "otpt_ordtm", otpt_ordtm );
            ds_TXMMO00107.setColumn(0, "otpt_rsrvflag", otpt_rsrvflag );
            ds_TXMMO00107.setColumn(0, "sess_userid", sess_userid );
            ds_TXMMO00107.setColumn(0, "indd", indd );
            ds_TXMMO00107.setColumn(0, "cretno", cretno );
            ds_TXMMO00107.setColumn(0, "otpt_pid", pid );	//cond2는 처방저장 instance로 뒤덮어진다. 등록번호는 cond11로 2008.06.24
            
            var oParam = {};
				oParam.id       = "TXMMO00107";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeSaveFollowUp";
				oParam.inds     = "req=ds_TXMMO00107";
				oParam.outds    = "ds_followup=followup";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO00107";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO00107") > -1) {
                for ( var i = 0; i < ds_main_prcplist.rowcount; i++ ) {
                    //퇴원후 외래처방 예약일 잡고 확인누르면 퇴원후 외래처방 PRCPHOPEDD를 모두 예약일로 수정한다.
                    //입원전검사(당일/전일)도 퇴원후 외래와 같은 처리 by sonjy 2008-07-25
                    if ( ds_main_prcplist.getColumn(i, "prcpkindcd") == "70" ||
                         ds_main_prcplist.getColumn(i, "prcpkindcd") == "90" ||
                         ds_main_prcplist.getColumn(i, "prcpkindcd") == "95" ) {
                        ds_main_prcplist.setColumn(i, "prcphopedd", otpt_orddd);
                    }
                }
                return true;
            } else {
                return false;
            }
        } else {
            return false;
        }
    } else {
        return true;
    }
    return true;
}

function cf_TRMMO00119(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMMO00107(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : CP 안에 있는 처방이 팝업 및 에러로 보여져야 함
 * @
 * @return :
 * @author : 마정민
 * @---------------------------------------------------
 */
function fCpInPrcpVisible () {
	// CPGMAIN 화면 완성 후 작업해야 함, 확인필요
	if ( ds_root.getColumn(0, "cp") == "Y") {		
		if( invalYN_SMMMO00110 == "N" && prtlprcpstatus_SMMMO00110 != "U" ){
			// 다른 iviewer는 hidden / 처방 import, iviewer는 visible
			btn_action_tab.selected = true;
			ivw_outline.visible = false;
			ivw_detail.visible = false;
			imp_prcp.visible = true;
			if(btn_ivbfprcp.selected){
				ivw_prcp2.visible = false;
				ivw_prcp3.visible = true;
			}else{
				ivw_prcp2.visible = true;
				ivw_prcp3.visible = false;
			}
		}
	}
}

/**@desc   : 응급의료 관리료 수정
 * @
 * @return :
 * @author : 마정민 20087. 10. 16
 * @---------------------------------------------------
*/
function fErMgrPay() {
	var currow = ds_main_prcplist.rowposition;
    var prcpcd = ds_main_prcplist.getColumn(currow, "prcpcd" );
    var status = ds_main_prcplist.getColumn(currow, "status" );
    var trgtcd = ds_main_prcplist.lookup("trgtcd", prcpcd, "trgtcd");
    frmf_setParameter ( "SMMMO00100_cond1", "Y" );
    var erprcpyn = ds_initsrchprcp_prcpetccnts.getColumn(0, "erprcpyn");
    var erprcpcd = lf_getArrayData ( erprcpyn + "^", 0, 1, "^", "|" );
    // 응급의료 관리료 수정팝업 띄우기
    //1.수가코드가 ercalcscorcd 에 값이 있고

    if ( !utlf_isNull(trgtcd) || status == "S" ) {
        //2.erprcpyn가 Y이면 띄운다.
        frmf_setParameter ( "SMMMO06100_erprcpcd", "" );
        var erprcpyn = ds_initsrchprcp_prcpetccnts.getColumn(0, "erprcpyn");
        if (ds_initsrchprcp_prcpetccnts.getColumn(0, "erprcpyn" ) != "Y" ){
            var erprcpcd = lf_getArrayData ( erprcpyn + "^", 0, 1, "^", "|" );
            if ( erprcpcd != "-" || utlf_isNull(erprcpcd)) {
                frmf_setParameter ( "SMMMO06100_erprcpcd", erprcpcd );
            }
        }
        frmf_setParameter ( "SMMMO06100_currow", currow );
        lf_prcpModal ( "SMMMO06100", 0, 0 );
        frmf_clearParameter ( "SMMMO06100_currow" );
        frmf_clearParameter ( "SMMMO06100_erprcpcd" );
    }
}

/**@desc   : OCR 자동출력 
 * @
 * @return :
 * @author : 마정민 20087. 10. 17
 * @---------------------------------------------------
*/
function fOcrAutoPrint(calcscorcd) {
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" )  {
        var orddd = ds_paminfo.getColumn(0, "orddd");
    } else {
        var orddd = ds_paminfo.getColumn(0, "indd");
    }

    ds_hidden_ocrprint_calcscor.setColumn(0, "pid",        ds_paminfo.getColumn(0, "pid"));
    ds_hidden_ocrprint_calcscor.setColumn(0, "cretno",     ds_paminfo.getColumn(0, "cretno"));
    ds_hidden_ocrprint_calcscor.setColumn(0, "orddd",      orddd );
    ds_hidden_ocrprint_calcscor.setColumn(0, "ordtype",    prcpgenrflag);
    ds_hidden_ocrprint_calcscor.setColumn(0, "calcscorcd", calcscorcd );
        
    trace("동의서 출력 - LSH");    
    trace(ds_hidden_ocrprint_calcscor.saveXML());
    
    var mon = sysf_getCurrentMonitorNumber();
	var xpt = this.getOwnerFrame().position.x + 50;
	var ypt = this.getOwnerFrame().position.y + 50;
	
	dsf_createDs("ds_hidden_ocrprint_calcscor_clone");
	ds_hidden_ocrprint_calcscor_clone.copyData(ds_hidden_ocrprint_calcscor);
	
	var objArg = new Object();
	objArg.arg_ds_main_temp_calcscor = ds_hidden_ocrprint_calcscor_clone;
					
	frmf_modal("SPMRF04500", "SPMRF04500", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
}

/**@desc   : 검색button 초기화 setting
 * @return : void
 * @authur : 마정민 2007. 8. 20
 */
function fInitSrchBtnSet() {
    var btn_srchcnt = 0;

    for ( var i = 0; i < 16; i++ ) {
		btn_srchcnt = i + 51;
		var btncd = ds_initsrch_btnsrchenvcnts.getColumn(i, "btncd");
		var btnnm = "div_all.Div00.Tab_btns.tabpage2.button" + btn_srchcnt;
		var buttonObj = eval(btnnm);
            
        if ( i < ds_initsrch_btnsrchenvcnts.rowcount ) {            
            buttonObj.text = ds_initsrch_btnsrchenvcnts.getColumn(i, "btnnm");
            buttonObj.visible = true;
            buttonObj._value = btncd;
            buttonObj.onclick.addHandler(fBtnClick2);
        } else {
            buttonObj.visible = false;
        }
    }
}

/**@desc   : CP에서 약속set 만들때 값 setting
 * @param : 바꿔줄 상태값
 * @return :
 * @author : 2007. 10. 20
 * @---------------------------------------------------
*/
function fSetCpVal(i, flag) {
    if( ds_root.getColumn(0, "cp") == "S" ){
        if( ds_main_prcplist.getColumn(i, "status") == "-" )
            ds_main_prcplist.setColumn(i, "status", flag);
    }
}

/**@desc   : 보험정보 open
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fOpenInsuInfo(){
	var currow = ds_main_prcplist.rowposition;
	if(currow < 0){
		return;
	}
  
	//보험정보 조회시 처방코드 전달, 김민선
	//2008.07.10 오지훈 
	var prcpcd = ds_main_prcplist.getColumn(currow, "prcpcd");
  
	dsf_createDsRow("ds_arg_temp", [{col:"calcscorcd",    type:"string", size:256, val:prcpcd}]);	

	var objArg = new Object();
	objArg.arg_ds_arg_send_item3 = ds_arg_temp;

	frmf_modal("SPPIZ01600", "SPPIZ01600", objArg, null, 1, 100, 200, null, null, null, null, null, "M");
  
	/*
	var pid = model.getValue("/root/paminfo/list/pid");
	model.makeValue("/root/tmp/pid", pid);  
	modal("SPPIZ01600");  
	modal("SPPIZ01600", 1, 100, 200, "SMPMC01400", "/root/tmp/pid", "/root/hidden/source/pid");
	*/
}

/**@desc   : 검사실별 예약현황
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fOpenExamRsrvInfo(){
	var currow = ds_main_prcplist.rowposition;
	if(currow < 0){
		return;
	}
	frmf_modal("SMAEA00900", "SMAEA00900", null, null, 1, 100, 200, null, null, null, null, null, "M");
}

/**@desc   : 조영제 동의서 출력
 *         : 
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPrintfrm() {
	var currow = ds_main_prcplist.rowposition;
    if ( ds_main_prcplist.getColumn(currow, "testreqlnkno") == "DYENO" ) {

        var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" )  {
            var orddd = ds_paminfo.getColumn(0, "orddd");
        } else {
            var orddd = ds_paminfo.getColumn(0, "indd");
        }

        ds_hidden_ocrprint_calcscor.setColumn(0, "pid",          ds_paminfo.getColumn(0, "pid"));
        ds_hidden_ocrprint_calcscor.setColumn(0, "cretno",       ds_paminfo.getColumn(0, "cretno"));
        ds_hidden_ocrprint_calcscor.setColumn(0, "orddd",        orddd );
        ds_hidden_ocrprint_calcscor.setColumn(0, "ordtype",      prcpgenrflag);
        ds_hidden_ocrprint_calcscor.setColumn(0, "calcscorcd",   ds_main_prcplist.getColumn(currow, "prcpcd"));

		var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 400;
		var ypt = this.getOwnerFrame().position.y + 100;
		
		var objArg = new Object();
		objArg.arg_ds_hidden_ocrprint_calcscor = ds_hidden_ocrprint_calcscor;

		frmf_modal("SPAER01900", "SPAER01900", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");

        if ( frmf_getParameter("SPAER01900_lnkno" ) == "216" ) {
            ds_main_prcplist.setColumn(currow, "testreqlnkno", "216" );
        } else {
            ds_main_prcplist.setColumn(currow, "testreqlnkno", "DYENO" );
        }
    }
}

function fClearSaveInstance() {
	ds_send_cond3.clearData();
}

function fAppendSaveNode( desNode, srcNodeList ) {
	var ds_dest        = this.objects[desNode];
    var saveDrPrcpList = this.objects[srcNodeList];    //의사처방 저장데이터
    
    ds_dest.appendData(saveDrPrcpList, true);
}

/**@desc   : 마감후 반환 체크 및 사유 입력 ( 반환가능한 것 중에서 마감된 것은 반환사유 입력후 d/c )
 * @param  :
 * @return :
 * @author : 마정민
 * @---------------------------------------------------
 */
function fEndAftDC(){
    var srcNodeList = ds_result_saveexecprcplist
    var dclistcnt = -1;
    var ioflag = "O";
    
    dsf_createDs("ds_endaftdc");
    ds_endaftdc.addColumn("prcpdd", "string");
    ds_endaftdc.addColumn("prcpno", "string");
    ds_endaftdc.addColumn("prcphistno", "string");
    ds_endaftdc.addColumn("execprcpno", "string");
    ds_endaftdc.addColumn("instcd", "string");
    ds_endaftdc.addColumn("ioflag", "string");
    
    for ( var i = 0; i < ds_result_saveexecprcplist.rowcount; i++ ) {   
        if (ds_result_saveexecprcplist.getColumn(i, "status") == "C"
            && utlf_isNull(ds_result_saveexecprcplist.getColumn(i, "mig"))) {
            var enddd = ds_result_saveexecprcplist.getColumn(i, "enddd");
            if ( !utlf_isNull(enddd) && enddd.length >= 4 && enddd.substring( 0, 4 ) != "9999") {
				dclistcnt = ds_endaftdc.addRow();
				
				ds_endaftdc.setColumn(dclistcnt, "prcpdd",     ds_result_saveexecprcplist.getColumn(i, "prcpdd"));
                ds_endaftdc.setColumn(dclistcnt, "prcpno",     ds_result_saveexecprcplist.getColumn(i, "prcpno"));
                ds_endaftdc.setColumn(dclistcnt, "prcphistno", ds_result_saveexecprcplist.getColumn(i, "oldprcphistno"));
                ds_endaftdc.setColumn(dclistcnt, "execprcpno", ds_result_saveexecprcplist.getColumn(i, "oldexecprcpno"));
                ds_endaftdc.setColumn(dclistcnt, "instcd",     ds_result_saveexecprcplist.getColumn(i, "instcd"));          
                if ( ds_patflag.getColumn(0, "prcpgenrflag") == "O" ) ioflag = "O";
                else ioflag = "I";
                ds_endaftdc.setColumn(dclistcnt, "ioflag", ioflag);
            }
        }
    }
    if ( dclistcnt > -1 )    {
		var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 100;
		var ypt = this.getOwnerFrame().position.y + 100;
		
		var objArg = new Object();
		objArg.arg_ds_target = ds_endaftdc;

		frmf_modal("SPPAS03000", "SPPAS03000", objArg, false, mon, xpt, ypt, 400, 400, null, null, null, "M");
    }

	dsf_deleteDs("ds_endaftdc");
}

function fSubjPrcpChk() {
    var oParam = {};
		oParam.id       = "TRMMO00120";
		oParam.service  = "prcpbaseapp.PrcpClsMngt";
		oParam.method   = "reqGetSubjPrcpChk";
		oParam.inds     = "req=ds_initsrchcond";
		oParam.outds    = "ds_temp_subjprcpchk=subjprcpchk";
		oParam.async    = false;

	tranf_submit(oParam);
    
    var ioflag = ds_paminfo.getColumn(0, "ioflag");
    
    if (ds_temp_subjprcpchk.getColumn(0, "subjrgstyn") == "N"){
        sysf_messageBox("임상연구 처방은 피험자등록" , "E012");
        return -1;
    }
    
    if (ds_temp_subjprcpchk.getColumn(0, "subjinsukindyn") == "N"){        // 임상연구 유형이 없을때
        if (ioflag == "O"){
            sysf_messageBox("임상연구로 접수되지 않은 환자입니다." , "I007");
        } else {
            sysf_messageBox("보조유형에 임상연구가 없는 환자입니다." , "I007");
        }
        return -1;
    } else {        // 임상연구 유형이 있을때.
        if (ioflag == "I" || ioflag == "D" || ioflag == "E") {
			ds_init.setColumn(0, "subjsubcretno", ds_temp_subjprcpchk.getColumn(0, "subjinsukindyn")); 
        }
    }
    
    return 1;
}

/**@desc   : 항암제일때 항암제의 부서 setting , 퇴원후 외래/입원전검사 일경우 변경없이 ...
 * @param  :
 * @return :
 * @author : SONJY
 * @---------------------------------------------------
 */ 
function fDrugDeptcdChk(strDest, vRow){
    if( vRow < 0 || utlf_isNull(strDest) ) return false;
    
    var ds_dest = this.objects[strDest];
    
    var drugmastspec = ds_dest.getColumn(vRow, "drugmastspec");
    var spcldrugAnti = "";
    var spcldrug = "";
    if ( utlf_isNull(drugmastspec)) {
        spcldrugAnti = ds_dest.getColumn(vRow, "anticanflag");
        spcldrug     = ds_dest.getColumn(vRow, "spcldrug");
    } else {
        spcldrugAnti = lf_getArrayData ( drugmastspec + "^", 0, 24, "^", "|" );
        spcldrug     = lf_getArrayData ( drugmastspec + "^", 0, 23, "^", "|" );
    }
    var orgdeptcd    = ds_dest.getColumn(vRow, "prcpexecdeptcd");
    var prcpkindcd   = ds_dest.getColumn(vRow, "prcpkindcd");
    var prcpclscd    = ds_dest.getColumn(vRow, "prcpclscd");
    var testreqlnkno = ds_dest.getColumn(vRow, "testreqlnkno");

    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    
    //항암제 주사 일경우, 퇴원후 외래/입원전검사 주사 일경우 수가매핑부서로
    if((( spcldrugAnti == "1" || spcldrugAnti == "2" ) &&  prcpclscd == "A6" ) || 
         (( prcpkindcd == "70" ||  prcpkindcd == "90" || prcpkindcd == "95" ) && prcpclscd == "A6" )
      ){
        return orgdeptcd ;
    }

    //20100609 수술중처방 집계 관련 보완. 시행부서가 회복실, 수술실이면 그대로 두고 아니면 수술실마취로 세팅.    
    if ( prcpkindcd == "35" && sysf_getUserInfo( "dutplcecd" ) == ds_initsrch_anstdeptcd.getColumn(0, "trgtcd") &&
        ( ds_dest.getColumn(vRow, "prcpexecdeptcd") == ds_initsrch_recovdeptcd.getColumn(0, "trgtcd") ||
          ds_dest.getColumn(vRow, "prcpexecdeptcd") == ds_initsrch_opdeptcd.getColumn(0, "trgtcd")) ) {
        return orgdeptcd;
    }
    
    if ( "3240807000" == orgdeptcd ){ //20080828 특수조제실일 경우는 예외처리한다.
        return orgdeptcd ;
    }

    //20080825 마정민 수정 B: 소아TPN, C:무균조제, Q:완제품TPN, T:조제TPN  처방일 때 기존 부서 그대로 설정
    if ( prcpclscd == "A6" && ( spcldrug == "B" || spcldrug == "C" || spcldrug == "Q" || spcldrug == "T" )) {
        return orgdeptcd ;
    }

    if( prcpgenrflag != "O" ) {
        orgdeptcd = "3240300000"; //병동약국으로 default setting 
    }
    
    if( prcpclscd != "A6" ) return orgdeptcd ;
    
    //항암제가 아니고 mix번호가 있을 경우 해당 mix번호의 처방중 항암제가 있을 때 항암제의 부서 return
    var mixno = ds_dest.getColumn(vRow, "prcpmixno");
    var antilist = null ;
     
	if( mixno != "-" ) {
        if( ds_dest.getCaseCount("prcpmixno == '" + mixno + "'") > 0 ) {
            for( var i = 0; i < ds_dest.rowcount; i++){
				if(ds_dest.getColumn(i, "prcpmixno") == mixno) {
					if (!utlf_isNull(lf_getDsValue(ds_dest, vRow, "spcldrug"))) {
						spcldrugAnti = ds_dest.getColumn(i, "anticanflag");
						spcldrug     = ds_dest.getColumn(i, "spcldrug");
					} else {
						drugmastspec = ds_dest.getColumn(i, "drugmastspec");
						spcldrugAnti = lf_getArrayData ( drugmastspec + "^", 0, 24, "^", "|" );
						spcldrug     = lf_getArrayData ( drugmastspec + "^", 0, 23, "^", "|" );
					}
					if(  spcldrugAnti == "1" || spcldrugAnti == "2" || spcldrug == "B" || spcldrug == "C" || spcldrug == "Q" || spcldrug == "T" ) {
						orgdeptcd    = ds_dest.getColumn(i, "prcpexecdeptcd");
						break; 
					}
				}
            }
        }
    }
    
    return orgdeptcd;
}

function fOldDrugMthdPop() {
    if (!utlf_isNull(this.objects["ds_migdrugmthdlist"]) && ds_migdrugmthdlist.rowcount > 0) {
        var mon = sysf_getCurrentMonitorNumber();
		var xpt = this.getOwnerFrame().position.x + 150;
		var ypt = this.getOwnerFrame().position.y + 50;
		
		var objArg = new Object();
		objArg.arg_ds_send_migdrugmthdlist = ds_migdrugmthdlist;
					
		frmf_modal("SPMMO15900", "SPMMO15900", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
    }
}

/**@desc   : 외부 CD 재판독 의뢰 팝업 호출 여부 체크 (2010.02.19 JJE)
 * @
 * @param  : ref      - reference path
 *           rsltref  - result reference path
 *           hardcd   - 하드코드
 * @return :
 * @author : 전지은
 * @---------------------------------------------------
 */
function fChkOuterCdListPop(){
    if( !utlf_isNull(ds_initsrch_outercdtypelist.getColumn(0, "trgtcd")) ){
        if( ds_root.getColumn(0, "addprcp") != "Y" ){  //외래환자만 pop -> 입원/응급환자도 pop
			frmf_clearParameter("spmmo21200_rtnyn"); 
			frmf_clearParameter("spmmo21200_pid");
			frmf_clearParameter("spmmo21200_orddeptcd");
			frmf_clearParameter("spmmo21200_rtnprcpcd"); 
			frmf_clearParameter("spmmo21200_rtneqmtcd"); 
			frmf_clearParameter("spmmo21200_rtntrsmdd"); 
			frmf_clearParameter("spmmo21200_rtntrsmtm");
			
            var pid       = ds_paminfo.getColumn(0, "pid");
            var orddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
            
            dsf_createDsRow("ds_spmmo21200_send", [{col:"pid",       val:pid}
                                                  ,{col:"orddeptcd", val:orddeptcd}]);
            dsf_createDs("ds_spmmo21200_cdlist");
            
            var oParam = {};
				oParam.id       = "TRMMO21201";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqGetPatOuterCdList";
				oParam.inds     = "req=ds_spmmo21200_send";
				oParam.outds    = "ds_spmmo21200_cdlist=info";
				oParam.async    = false;
				oParam.callback = "cf_TRMMO21201";

			tranf_submit(oParam);	//외부 등록 CD가 있고, 판독료 처방 미발행인 경우 외부 등록 CD 리스트 조회
			
			if(arErrorCode.pop("TRMMO21201") > -1)  {
				if( ds_spmmo21200_cdlist.rowcount > 0 ){
					frmf_setParameter("spmmo21200_pid"      , pid);
					frmf_setParameter("spmmo21200_orddeptcd", orddeptcd);
					lf_prcpModal ( "SPMMO21200", 0, 0 );
				}
			}
			
			dsf_deleteDs("ds_spmmo21200_send");
			dsf_deleteDs("ds_spmmo21200_cdlist");
        }
    }
}

function cf_TRMMO21201(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : KNUH, 사전심사 대상 처방의 상태가 변경요청인 경우, 심사팀의 메세지를 보여준다.
 * @return : void
 * @authur : 전지은 2011. 03. 17
 */
function fOpenBfJudgInfoPop(){
    //var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if( ds_patflag.getColumn(0, "prcpgenrflag") == "O" ){
        
        var judgStat = appf_getPatientInfoDetail("bfjudgvalue"); //WXY (W:심사대기, X:변경요청, Y:심사완료 혹은 해당없음)
        //alert( judgStat.substr(1, 1) );
        if( judgStat.substr(1, 1) == "X" ){
            
            frmf_clearParameter("SPMMO21500_rntValue"); //parameter 초기화(2011.01.31 JJE)
            
            var mon = sysf_getCurrentMonitorNumber();
			var xpt = this.getOwnerFrame().position.x + 180;
			var ypt = this.getOwnerFrame().position.y + 50;
                        
			frmf_modal("SPMMO21500", "SPMMO21500", null, false, mon, xpt, ypt, null, null, null, null, null, "M");	//오류팝업
            
            var bfRtnValue = frmf_getParameter("SPMMO21500_rntValue");
            if (bfRtnValue == "REQ") {
                ds_result_prcperrlist.clearData();
                var findRow = ds_main_prcplist.findRowExpr("status == 'I' || status == 'D' || status == 'U'");
                
                if (findRow == -1 || utlf_isNull(ds_main_prcplist.getColumn(findRow, "prcpcd"))) { 
                    if (findRow == -1 || utlf_isNull(ds_main_prcplist.getColumn(findRow, "diagcd"))) {
                        sysf_messageBox ( "사전심사할 처방 및 진단이 없습니다.", "E" );
                        fClearSaveInstance();
                        ds_result_prcperrlist.clearData();
                        return false;
                    }
                }
            }
        } //end if( judgStat == "W" )
        
    } //end if( prcpgenrflag == "O" )
}

/**@desc   : 처방시 미비기록 유무 확인(submit)
 * @param  : void
 * @return : void
 * @author : 김소정
 * @---------------------------------------------------
 */
function fChkValidRecInfo(){    
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    
    if (prcpgenrflag != "O" && prcpgenrflag != "S"){ //외래가 아닐때 
        var pid    = ds_paminfo.getColumn(0, "pid");
        var orddd  = ds_paminfo.getColumn(0, "indd");
        var cretno = ds_paminfo.getColumn(0, "cretno");
        var dschdd = ds_paminfo.getColumn(0, "dschdd");  
//      model.alert("pid : "+pid+" |orddd : "+orddd+" | cretno : "+cretno);
        
        //1. 퇴원처방시점
        if (!utlf_isNull(ds_main_prcplist.lookup("prcpkindcd", '60', "prcpcd"))) { 
            ds_temprec_reqdata.setColumn(0, "eventflag", "DC_ORD");
            ds_temprec_reqdata.setColumn(0, "pid", pid);
            ds_temprec_reqdata.setColumn(0, "orddd", orddd);
            ds_temprec_reqdata.setColumn(0, "cretno", cretno);
            ds_temprec_reqdata.setColumn(0, "reqdd", dschdd);
        } 
        //2. 처방시점
        else {
            ds_temprec_reqdata.setColumn(0, "eventflag", "ORD");
            ds_temprec_reqdata.setColumn(0, "pid", pid);
            ds_temprec_reqdata.setColumn(0, "orddd", orddd);
            ds_temprec_reqdata.setColumn(0, "cretno", cretno);
            ds_temprec_reqdata.setColumn(0, "reqdd", "");
        }
        
        var oParam = {};
			oParam.id       = "TRMMR01303";
			oParam.service  = "medirecapp.RecIf";
			oParam.method   = "reqValidateByEvent";
			oParam.inds     = "req=ds_temprec_reqdata";
			oParam.outds    = "ds_temprec_rstdata=validrecinfo";
			oParam.async    = false;

		tranf_submit(oParam);
        
        // model.alert("DEBUG : " + model.getValue("/root/temp/valid/validrecinfo/resultCod") );
    } 
}

/**@desc   : 의료급여 정신과 차등수가제 도입관련 퇴원유형 입력 추가 [요청번호 : 8857]
 * @param  : void
 * @return : void
 * @authur : 손주연 (2010.01.14)
 * @---------------------------------------------------
 */
function fChkNPDschChk(){
    frmf_clearParameter ( "SPMMO21100_title1"); //정신과 의료급여 환자
    frmf_clearParameter ( "SPMMO21100_title2"); //정신과 의료급여 환자 
    frmf_clearParameter ( "SPMMO21100_resnflag"); //002  정신과 차등수가제도 퇴원유형
    frmf_clearParameter ( "SPMMO21100_hardcdno"); //퇴원유형사유 HARDCODE 번호 
    frmf_clearParameter ( "SPMMO21100_pid"); 
    frmf_clearParameter ( "SPMMO21100_orddd"); 
    frmf_clearParameter ( "SPMMO21100_cretno"); 
    frmf_clearParameter ( "SPMMO21100_orddeptcd"); 
    frmf_clearParameter ( "SPMMO21100_ordtype"); 

    var npdeptcd        = ds_initsrch_inhospappdeptcd.getColumn(0, "trgtcd");
    var npresnyn        = appf_getPatientInfoDetail("npresnyn");
    var prcpgenrflag    = ds_patflag.getColumn(0, "prcpgenrflag") ;
    var insukind        = ds_paminfo.getColumn(0, "insukind");
    var dschprcpyn      = ds_hidden.getColumn(0, "dschprcpyn" ); //퇴원처방 발행 여부 
    
    //로그인한 의사의 근무지부서코드가 정신과이고 의료급여 정신과 환자의 퇴원처방 존재시 입퇴원 유형 사유 입력 
    if ( ds_root.getColumn(0, "addprcp" ) != "Y" &&  
         ds_paminfo.getColumn(0, "orddeptcd" ) == npdeptcd  &&  sysf_getUserInfo("dutplcecd") == npdeptcd && 
         prcpgenrflag == "I" && ( insukind == "21" ||  insukind == "22" ) && dschprcpyn == "Y"
       ) {  
            frmf_setParameter ( "SPMMO21100_pid"         , ds_paminfo.getColumn(0, "pid")); 
            frmf_setParameter ( "SPMMO21100_orddd"       , ds_paminfo.getColumn(0, "indd")); 
            frmf_setParameter ( "SPMMO21100_cretno"      , ds_paminfo.getColumn(0, "cretno")); 
            frmf_setParameter ( "SPMMO21100_orddeptcd"   , ds_paminfo.getColumn(0, "orddeptcd")); 
            frmf_setParameter ( "SPMMO21100_ordtype"     , prcpgenrflag); 
            
            if( npresnyn != "002" && npresnyn != "003" ) {          
                frmf_setParameter ( "SPMMO21100_title1"      , "퇴원유형입력");  
                frmf_setParameter ( "SPMMO21100_title2"      , "정신과 차등수가제도 특정내역"); //정신과 의료급여 환자 
                frmf_setParameter ( "SPMMO21100_resnflag"    , "002"); //002 정신과 차등수가제도 퇴원유형
                frmf_setParameter ( "SPMMO21100_hardcdno"    , "175"); //퇴원유형사유 HARDCODE 번호 
                
                frmf_modal("SPMMO21100", "SPMMO21100", null, false, 510, 427, null, null, null, null, null, null, "P");
            }
            
            if( appf_getPatientInfoDetail("npresnyn") == "002" ){
                frmf_setParameter ( "SPMMO21100_title1"      , "퇴원후거주시입력");  
                frmf_setParameter ( "SPMMO21100_title2"      , "정신과 차등수가제도 특정내역"); //정신과 의료급여 환자 
                frmf_setParameter ( "SPMMO21100_resnflag"    , "003"); //002 정신과 차등수가제도 퇴원유형
                frmf_setParameter ( "SPMMO21100_hardcdno"    , "176"); //퇴원유형사유 HARDCODE 번호
                
                frmf_modal("SPMMO21100", "SPMMO21100", null, false, 510, 427, null, null, null, null, null, null, "P");
            }
    }
}

/**@desc   : 자가보유약 조회 (submit 발생)
 * @param  :  
 * @return :
 * @author : 이윤정
 * @---------------------------------------------------
*/  
function fSelfHldPrcpSub() {
    if (ds_initsrch_selfholdchk.getColumn(0, "trgtcd") == "Y"){
		ds_hidden_selfhld.clearData();
		ds_selfholdprcp_prcplist.clearData();
		
        var selfioflag = ds_paminfo.getColumn(0, "ioflag" );
        
        if (selfioflag == "I" || selfioflag== "E" || selfioflag== "D") {
			ds_hidden_selfhld.addRow();
			ds_hidden_selfhld.setColumn(0, "cond99",     "getSelfHldPrcpInfo");
            ds_hidden_selfhld.setColumn(0, "cond1",      ds_paminfo.getColumn(0, "pid"));
            ds_hidden_selfhld.setColumn(0, "cond2",      selfioflag);
            ds_hidden_selfhld.setColumn(0, "cond3",      ds_paminfo.getColumn(0, "indd"));
            ds_hidden_selfhld.setColumn(0, "selfopenyn", "Y");
            
			var oParam = {};
				oParam.id       = "TRMMO14903";
				oParam.service  = "prcpbaseapp.PrmsPrcpMngt";
				oParam.method   = "reqGetPrmsPrcpDetlSetList";
				oParam.inds     = "req=ds_hidden_selfhld";
				oParam.outds    = "ds_selfholdprcp_prcplist=prcplist";
				oParam.async    = false;

			tranf_submit(oParam);
			
			dsf_setDefaultVal(ds_selfholdprcp_prcplist, "prcpvol:0,prcpvolunitnm:-,prcpqty:0,prcpqtyunitnm:-,prcptims:0,prcpdayno:0,drugmthdspccdnm:-,hosinprcpresncd:00,drugmthdspccd:-,tootfact:-,clinccmtcnts:-,hsctdelivepos:0,etcprcpflag:-,druglnkno:0,dnorreqlnkno:0,subcretno:0,drgacptflag:-,tempcol1:000");
        }
    }
}

/**@desc   : 자가보유약 조회 (modal 띄우기)
 * @param  :  
 * @return :
 * @author : 이윤정
 * @---------------------------------------------------
*/  
function fSelfHldPrcpModal() {
    if (ds_initsrch_selfholdchk.getColumn(0, "trgtcd") == "Y"){		
        if (!utlf_isNull(ds_selfholdprcp_prcplist.getColumn(0, "header"))){
            var selfyn = sysf_messageBox ("자가보유약이 등록되었습니다. 확인","S001");  
            if (selfyn == "6"){
                frmf_setParameter ( "SPMMO19300_prcp", "prcp");
                frmf_setParameter ( "SPMMO19300_selfholdchk", ds_initsrch_selfholdchk.getColumn(0, "trgtcd"));
                                
                var objArg = new Object();
				objArg.arg_ds_send_selfholdprcp_prcplist = ds_selfholdprcp_prcplist;
			
                frmf_modal("SPMMO19300", "SPMMO19300", objArg, false, 510, 427, null, null, null, null, null, null, "M");
                lf_focusMain ( ds_main_prcplist.rowposition );
            }
        }
    }
}

/**@desc   : 메인의 우클릭 메뉴 하드코드 조회  
 * @
 * @param  : ref      - reference path
 *           rsltref  - result reference path
 *           hardcd   - 하드코드
 * @return :
 * @author : 박유진
 * @---------------------------------------------------
 */
function fGetRghtClickList(){
	var rMenu = [["omrigtclicklist", "ds_O_MouseR"]
	            ,["imrigtclicklist", "ds_I_MouseR"]
	            ,["emrigtclicklist", "ds_E_MouseR"]];
	
	// 현재 이 루틴으로 메뉴 구성되는 것이 아니라 미리 데이터셋에 메뉴가 저장되어 있음
	// "omrigtclicklist", "imrigtclicklist", "emrigtclicklist" 여기에는 데이터 없음
	for(var i = 0; i < 3; i++) {
		var ds_mrigtclicklist = this.objects["ds_initsrch_" + rMenu[i][0]];

		if(!utlf_isNull(ds_mrigtclicklist) && ds_mrigtclicklist.rowcount > 0){
			var ds_MouseR = this.objects[rMenu[i][1]];
			ds_MouseR.clearData();
			
			for(var j = 0 ; j < ds_mrigtclicklist.rowcount; j++){
				var hardcd   = ds_mrigtclicklist.getColumn(j, "trgtcd");
				var hardcdnm = ds_mrigtclicklist.getColumn(j, "trgtcdnm");
				
				if(hardcd=="-"|| hardcd==" ") hardcd=""; 
				if(hardcdnm=="-"|| hardcdnm==" ") hardcdnm=""; 
				
				ds_MouseR.addRow();
				ds_MouseR.setColumn(j, "func",  hardcd);
				ds_MouseR.setColumn(j, "label", hardcdnm);
			}
		}
    }
}

/**@desc   : 처방시 미비기록 유무 확인(message)
 * @param  : void
 * @return : true, false
 * @author : 김소정
 * @---------------------------------------------------
 */
function fValidRecInfoMsg(){
    var rstcod = ds_temprec_rstdata.getColumn(0, "resultCod");

    if (  !utlf_isNull(rstcod) && rstcod != "0"  ) {
        var rstmsg = ds_temprec_rstdata.getColumn(0, "resultMsg");
        sysf_messageBox (rstmsg, "E");
        return false;
    }
    
    //처방 속도개선을 위한 시간 체크 set 20101027  LYJ
    try {
        var SMMMO00100_E = new Date();
        var ordPatObj = frmf_findPopup("SMMMO04100");    
        var SMMMO04100_chk = ordPatObj.frmf_getParameter("SMMMO04100_chk");
        if(!utlf_isNull(ordPatObj) && SMMMO04100_chk  == "Y"){
            ordPatObj.frmf_setParameter("SMMMO00100_E",SMMMO00100_E.getTime());
        }
    } catch(e) {
    }

    return true; 
}

function fPrintDyeFrm(srchRow, prcpcd){
    //*************************** 조영제 출력팝업 **********************************//
    var ocrprnt = lf_getDsValue(ds_initsrch_prcpetccnts, 0, "ocrprnt");
	var iFind = ocrprnt.indexOf("DYE"+ prcpcd);
	if ( iFind >= 0) {
		if( frmf_getParameter("SPAER01900_popupYN") != "Y" ){ //조영제 부작용관리 팝업 한번만 뜨도록 요청함에 따라 팝업호출여부 체크 (2010.07.16 JJE)
			var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
			if ( prcpgenrflag == "O" || prcpgenrflag == "S" )  {
				var orddd = ds_paminfo.getColumn(0, "orddd");
			} else {
				var orddd = ds_paminfo.getColumn(0, "indd");
			}
			
			ds_hidden_ocrprint_calcscor.setColumn(0, "pid",        ds_paminfo.getColumn(0, "pid"));
			ds_hidden_ocrprint_calcscor.setColumn(0, "cretno",     ds_paminfo.getColumn(0, "cretno" ));
			ds_hidden_ocrprint_calcscor.setColumn(0, "orddd",      orddd );
			ds_hidden_ocrprint_calcscor.setColumn(0, "ordtype",    prcpgenrflag);
			ds_hidden_ocrprint_calcscor.setColumn(0, "calcscorcd", prcpcd );

			var mon = sysf_getCurrentMonitorNumber();
			var xpt = this.getOwnerFrame().position.x + 300;
			var ypt = this.getOwnerFrame().position.y + 100;
			
			var objArg = new Object();
			objArg.arg_ds_hidden_ocrprint_calcscor = ds_hidden_ocrprint_calcscor;
			
			frmf_modal("SPAER01900", "SPAER01900", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
			frmf_setParameter("SPAER01900_popupYN", "Y" );
		}
		
		if ( !utlf_isNull(frmf_getParameter("SPAER01900_prcpcd" ))) {
			var addprcpcd   = frmf_getParameter("SPAER01900_prcpcd" );
			var addprcpdd   = ds_init.getColumn(0, "prcpdd");
			var addinsukind = ds_paminfo.getColumn(0, "insukind");
			
			ds_main_prcplist.deleteRow(srchRow);
			//clearParameter("SPAER01900_prcpcd" );
			//멀티 search 가능함                
			var sRef = dsf_createDsRow("ds_send_addsetprcp", [{col:"cond1",    type:"string", size:256, val:addprcpcd},
															  {col:"cond3",    type:"string", size:256, val:addprcpdd},
															  {col:"cond4",    type:"string", size:256, val:addinsukind},
															  {col:"srchkind", type:"string", size:256, val:"ANST"}]);
			
			var oParam = {};
				oParam.id       = "TRMMO00207";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqGetPrcpMultiSrchInfo";
				oParam.inds     = "req=" + sRef;
				oParam.outds    = "ds_addsetprcp_prcplist=prcplist";
				oParam.async    = false;
				oParam.callback = "cf_TRMMO00207";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TRMMO00207") > -1)  {
				dsf_setDefaultVal(ds_addsetprcp_prcplist, "prcpvol:0,prcpvolunitnm:-,prcpqty:0,prcpqtyunitnm:-,prcptims:0,prcpdayno:0,drugmthdspccdnm:-,drugmthdspccd:-,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,drgacptflag:-");
				
				ds_addsetprcp_prcplist.setColumn(0, "testreqlnkno", "216");
				serPrcpSrchRow = lf_addPrcpDetl ( "main" , "ds_addsetprcp_prcplist" , "ds_main_prcplist" , 0, srchRow, "00" );
				if (serPrcpSrchRow == 0) srchRow = 0;
			}
			dsf_deleteDs("ds_send_addsetprcp");
		}else if ( frmf_getParameter("SPAER01900_lnkno" ) == "216" ) {
			ds_main_prcplist.setColumn(srchRow, "testreqlnkno", "216");
		} else {
			ds_main_prcplist.setColumn(srchRow, "testreqlnkno", "DYENO");
		}
	}
}

function cf_TRMMO00207(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : @@@ 중증/ 희귀난치 요율팝업 
 * @param  : void
 * @return : void
 * @author : 이윤정
 * @---------------------------------------------------
 */
function fEstmSpclFrm(){
    if ( ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmflag") == "Y"  ) {
        if ( ds_prcpetcinfo_saveestmspclcs.getColumn(0, "spclcd") == "-" ) { // 기존 적용 산정특례 취소
            ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "Y");
            sysf_messageBox(ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmmsg"), "I");
        } else { // 산정특례 적용
            if ( ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmmsg") == ""  ) {   //  msg없으면 띄우지 않고처리한다. (진료비 정액대상환자)
                ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "Y");
            } else if ( ds_prcpetcinfo_saveestmspclcs.getColumn(0, "spclcd") == 'V252' ) {
                ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "Y");
                sysf_messageBox(ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmmsg"), "I");
            } else if(ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmexistyn") != "Y") {
                ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "Y");
                ds_prcpetcinfo_saveestmspclcs.setColumn(0, "spclcd", "-"); 
                if(   ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmkind") == "11" 
                   || ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmkind") == "51" 
                   || ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmkind") == "62" ) 
                    ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmkind", "10");  // 가정간호
                else {
                    ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmkind", "00");  // 정상
                }
            } else {
                if (sysf_messageBox(ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmmsg" ), "Q" ) == "6" ) {
                    ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "Y");
                }else {
                    ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "N");
                    ds_prcpetcinfo_saveestmspclcs.setColumn(0, "spclcd", "-"); //by sonjy 추가. 아니오 선택시 산정특례기호 update되는 문제 때문. 
                    sysf_messageBox ( "이번 진료는 산정특례와 관계가 없다고 선택하셨습니다. 관련 진단명을 삭제하여 주시기 바랍니다.", "E" ); //수정중
                }
            }
        }
    } else if( ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmflag") == "F"  ) {  // 중증화상 대상이 T31.x상병이 필요한 경우에 메세지만 보여준다.
         ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmflag", "Y");
         ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "Y");
         sysf_messageBox(ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmmsg"), "I") ;
    } else if( ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmflag") == "T" ) { 
        ds_prcpetcinfo_saveestmspclcs.setColumn(0, "estmyn", "N");
        ds_prcpetcinfo_saveestmspclcs.setColumn(0, "spclcd", "-"); //by sonjy 추가. 아니오 선택시 산정특례기호 update되는 문제 때문. 
    } else if( ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmflag") == "M" ) {  // 메세지만 팝업 후 리턴함.
        sysf_messageBox(ds_prcpetcinfo_saveestmspclcs.getColumn(0, "estmmsg"), "I");
        return;
    } else { // 그외의 경우 estmflag값이 처리 할수 없는 값
        return;
    }

    var oParam = {};
		oParam.id       = "TXMMO00105";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqExeSavePrcpEtcInfo";
		oParam.inds     = "saveestmspclcs=ds_prcpetcinfo_saveestmspclcs";
		oParam.async    = false;
		oParam.callback = "cf_TXMMO00105";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TXMMO00105") < 0) {
        return false;
    }
}

function cf_TXMMO00105(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : @@@ 레진상 완전틀니 / 임플란트 관련 요율 팝업
 * @param  : void
 * @return : void
 * @author : 엄영만 2012.07.04
 * @---------------------------------------------------
 */
function fResinDentureFrm(){
    var sCheckResin = "";  // (01:노인틀니 신청서 작성, 02:노인틀니 신규 적용, 03:노인틀니 기존 적용 취소, 11:임플란트 신청서 작성, 12:임플란트 신규 적용, 13:임플란트 기존 적용 취소)
    var sEstmMsg    = "";  // 적용메세지 
    var srcNodeList = ds_prcpetcinfo_saveresindenture;
	for ( var i = 0; i < ds_prcpetcinfo_saveresindenture.rowcount; i++ ) {
        sCheckResin = ds_prcpetcinfo_saveresindenture.getColumn(i, "checkresin"); 
        sEstmMsg    = ds_prcpetcinfo_saveresindenture.getColumn(i, "estmmsg");
        
        if (sCheckResin == "01") { // 01:노인틀니 신청서 작성
            lf_prcpModal ( "SPMMO25000", 400, 100 ); 
        }else if (sCheckResin == "11") { // 01:임플란트 신청서 작성
            lf_prcpModal ( "SPMMO25100", 400, 100 ); 
        } else if(sCheckResin == "02" || sCheckResin == "03" || sCheckResin == "12" || sCheckResin == "13") { // 02:노인틀니 신규 적용, 03:노인틀니 기존 적용 취소, 12:임플란트 신규 적용, 13:임플란트 기존 적용 취소
            sysf_messageBox(sEstmMsg, "I" ); // 알림 메세지 팝업.
                
            var oParam = {};
				oParam.id       = "TXMMO00105";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqExeSavePrcpEtcInfo";
				oParam.inds     = "saveestmspclcs=ds_prcpetcinfo_saveresindenture";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO00105";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO00105") < 0) {
				return false;
			}
        } else { // 처리할수 없는 유형
            return true;
        }	    
	}
}

/**@desc   : 환자의 가야할 곳을 출력한다.
 * @return : void
 * @authur : 김영학 2011. 01. 05
 */
function fPrltPatTogoPlceList(sInstCd, sPid, sOrdDd, sCretNo, sPrintYn) {
    var sNewLogYn = lf_getHardCDList("Y", 332, 3); // 신규 가셔야 할곳 적용 여부 (비동기 방식 적용)
    var sAddPrcp  = "N"; // 시행부서 처방 여부
    var sScreenID = frmf_getScreenID();
    
    if ( sNewLogYn == "Y" && sScreenID == "SMMMO00100") { // 시행부서 처방일경우 상단정보가 없는경우도 있어서 기존 로직 사용
    	// 출력전용 팝업 화면에서 처리
    	// '처방'화면에 종속적으로 처리할 경우 - 처방화면이 닫히면 함께 닫힘.
    	//open("SPMMO00110", 1, 1, 1, "SPMMO00110", "", "", "width:1px; height:1px;", false);
    	
    	// '처방'화면에 독립적으로 처리할 경우 - 처방화면이 닫혀도 닫히지 않음.
    	var sysMsgObj = frmf_getViewer("sysMessage");
        if (!utlf_isNull(sysMsgObj)) {
// 			dsf_createDs("ds_paminfo_clone");
// 			ds_paminfo_clone.copyData(ds_paminfo);
// 			
// 			var objArg = new Object();
// 			objArg.arg_ds_paminfo = ds_paminfo_clone;      
			
			sysMsgObj.frmf_modal("SPMMO00110", "SPMMO00110", null, false, 2, null, null, null, null, null, null, null, "M");
    	} else {
    		sysf_messageBox("[가셔야할 곳] 출력화면 오픈에 문제가 발생했습니다.","E000");
    	}
    } else {   // 기존 가야할곳 출력 (시행부서 처방에서 사용)
        if(sScreenID == "SMMMO00200") { // 시행부서 처방화면
            sAddPrcp      = "Y";
            sInstCd       = ds_paminfo.getColumn(0, "instcd");
            sPid          = ds_paminfo.getColumn(0, "pid");
            sOrdDd        = ds_paminfo.getColumn(0, "orddd");
            sCretNo       = ds_paminfo.getColumn(0, "cretno");
        }
        
        dsf_createDs("ds_hidden_tempsend");
        
        ds_hidden_tempsend.addColumn("instcd",     "string");
        ds_hidden_tempsend.addColumn("pid",        "string");
        ds_hidden_tempsend.addColumn("orddd",      "string");
        ds_hidden_tempsend.addColumn("cretno",     "string");
        ds_hidden_tempsend.addColumn("userinstcd", "string");
        ds_hidden_tempsend.addColumn("sessuserid", "string");
        ds_hidden_tempsend.addColumn("sessinstcd", "string");
        ds_hidden_tempsend.addColumn("addprcp",    "string");
        
        ds_hidden_tempsend.addRow();
        
        ds_hidden_tempsend.setColumn(0, "instcd"          , sInstCd); 
    	ds_hidden_tempsend.setColumn(0, "pid"             , sPid);
    	ds_hidden_tempsend.setColumn(0, "orddd"           , sOrdDd);
    	ds_hidden_tempsend.setColumn(0, "cretno"          , sCretNo);
    	ds_hidden_tempsend.setColumn(0, "userinstcd"      , sInstCd); // 원무 무인수납 여부 체크 변수
    	ds_hidden_tempsend.setColumn(0, "sessuserid"      , getUserInfo("userid"));
    	ds_hidden_tempsend.setColumn(0, "sessinstcd"      , sInstCd);
    	ds_hidden_tempsend.setColumn(0, "addprcp"         , sAddPrcp);
        
        if(lf_getHardCDList("Y", 338, 3) == "N"){ // 수가 계산 여부 
            ds_hidden_tempsend.setColumn(0, "checkyn", "Y");     // 수가계산하지 않음. 2012.02.10 이동식 요청
        } else {
            ds_hidden_tempsend.setColumn(0, "checkyn", "N");     // 수가계산 함. 2012.02.10 이동식 요청
        }
        
        dsf_setDefaultVal(ds_hidden_tempsend, "checkyn:N,addprcp:N,gubun:Y");
        
        dsf_createDs("ds_hidden_pattoplace_patinfo");
        dsf_createDs("ds_hidden_pattoplace_togolist");
        
        var oParam = {};
			oParam.id       = "TRMMO00141";
			oParam.service  = "prcpmngtapp.EtcPrcpMngt";
			oParam.method   = "reqGetPatWhereToPlceList";
			oParam.inds     = "req=ds_hidden_tempsend";
			oParam.outds    = "ds_hidden_pattoplace_patinfo=patinfo ds_hidden_pattoplace_togolist=togolist";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO00141";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TRMMO00141") > -1) {    	// 가셔야할 곳 출력위한 리스트 조회
           	if(sPrintYn == "N") {
           	    return ds_hidden_pattoplace_patinfo.getColumn(0, "rcptpossynmsg");
            } else {
				var objDOM = rptf_createDOM();															// DOM 객체 설정	
				rptf_setNodeListToDOM(objDOM, "/root/hidden/pattoplace/patinfo",  ds_hidden_pattoplace_patinfo);	// 데이터셋 1
				rptf_setNodeListToDOM(objDOM, "/root/hidden/pattoplace/togolist", ds_hidden_pattoplace_togolist);	// 데이터셋 1
				
				var objParam = new Object();
				objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
				var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
				rptf_exeReportPreview30(["RPMMO00103"],[objParam], option);
            }
        }
    }
}

function cf_TRMMO00141(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : 부분선택진료 동의서를 출력한다.
 * @return : void
 * @authur : 김영학 2011. 01. 05
 * 2011.10.01 고시적용으로 수정함
 */
 function fPrltPartSpclDrList() {
    var sNewLogic = ds_prcpsave_rtc_codeinfo.lookup("hardcdno", '430', "trgtcd"); // 처방 저장 신규로직 적용여부
    if(sNewLogic == "Y") {
        fPrltPartSpclDrList_new();
    } else {
        fPrltPartSpclDrList_old();
    }
}

function fPrltPartSpclDrList_new() {
    if (ds_result_specconsent.rowcount > 0 ) {
        dsf_createDs("ds_hidden_specorderlist");
        
        var sFormCd = ds_result_specconsent.getColumn(0, "formcd"); // 선택진료 동의서 서식코드
        if (ds_result_specconsent.getColumn(0, "printcnt") > "0") { // 칠곡만 확인 메세지 팝업 하도록 수정. 2012.10.17 엄영만
            sysf_messageBox ("제출확인 되지 않은 선택진료신청서가 존재합니다.\n\n선택진료신청서를 출력 합니다.\n\n ☎ 원무팀(2066)", "I" );
        }
        
        ds_hidden_specorderlist.copyData(ds_result_specconsent);
        
        dsf_createDs("ds_temp_specocrinfo_ptbs");
        dsf_createDs("ds_temp_specocrinfo_specocrlist");
        
        var sCurrentDate = utlf_getCurrentDate();
        var sCurrentTm   = utlf_getCurrentTime();  
        var sOrdDrId    = ""; 
        var sOrddd   = "";
        var sIoFlag  = "";
        var sOrdtype =  ds_patflag.getColumn(0, "prcpgenrflag");
        if (sOrdtype == "O" || sOrdtype == "S") {
            sOrdDrId = ds_paminfo.getColumn(0, "orddrid"); 
            sOrddd   = ds_paminfo.getColumn(0, "orddd");  
            sIoFlag  = "O"
        } else {
            sOrdDrId = ds_paminfo.getColumn(0, "medispclid"); 
            sOrddd   = ds_paminfo.getColumn(0, "indd"); 
            sIoFlag  = "I"
        }
        var sCretno      = ds_paminfo.getColumn(0, "cretno"); 
        var sOrdDeptCd   = ds_paminfo.getColumn(0, "orddeptcd"); 
        var sDeptHngNm   = ds_paminfo.getColumn(0, "orddeptnm");
        var sOrdDrNm     = ds_paminfo.getColumn(0, "orddrnm");
        var sSpecOrdYn   = ds_paminfo.getColumn(0, "specordyn")
        var sPid         = ds_paminfo.getColumn(0, "pid");  
        var sHngNm       = ds_paminfo.getColumn(0, "hngnm");  
        var sRrgstNo     = ds_paminfo.getColumn(0, "rrgstno1") + "-" + ds_paminfo.getColumn(0, "rrgstno2") ;

		ds_hidden_specorderlist.addColumn("rrgstno"    , "string");
		ds_hidden_specorderlist.addColumn("pid"        , "string");
        ds_hidden_specorderlist.addColumn("hngnm"      , "string");
        ds_hidden_specorderlist.addColumn("orddd"      , "string");
        ds_hidden_specorderlist.addColumn("cretno"     , "string");
        ds_hidden_specorderlist.addColumn("ioflag"     , "string");
        ds_hidden_specorderlist.addColumn("ordtype"    , "string");
        ds_hidden_specorderlist.addColumn("depthngnm"  , "string");
        ds_hidden_specorderlist.addColumn("orddrid"    , "string");
        ds_hidden_specorderlist.addColumn("orddrnm"    , "string");
        ds_hidden_specorderlist.addColumn("specordyn"  , "string");
        ds_hidden_specorderlist.addColumn("formcd"     , "string");
        ds_hidden_specorderlist.addColumn("usernm"     , "string");
        ds_hidden_specorderlist.addColumn("currentdate", "string");
        ds_hidden_specorderlist.addColumn("currenttm"  , "string");
        ds_hidden_specorderlist.addColumn("appdd"      , "string");
        ds_hidden_specorderlist.addColumn("fromdd"     , "string");
        ds_hidden_specorderlist.addColumn("todd"       , "string");
        ds_hidden_specorderlist.addColumn("specdeptcd" , "string");
        ds_hidden_specorderlist.addColumn("signflag"   , "string");
        ds_hidden_specorderlist.addColumn("returnyn"   , "string");
        
        ds_hidden_specorderlist.setColumn(0, "rrgstno"    , sRrgstNo);
        ds_hidden_specorderlist.setColumn(0, "pid"        , sPid);
        ds_hidden_specorderlist.setColumn(0, "hngnm"      , sHngNm);
        ds_hidden_specorderlist.setColumn(0, "orddd"      , sOrddd);
        ds_hidden_specorderlist.setColumn(0, "cretno"     , sCretno);
        ds_hidden_specorderlist.setColumn(0, "ioflag"     , sIoFlag );
        ds_hidden_specorderlist.setColumn(0, "ordtype"    , sOrdtype );
        ds_hidden_specorderlist.setColumn(0, "depthngnm"  , sDeptHngNm);
        ds_hidden_specorderlist.setColumn(0, "orddrid"    , sOrdDrId);
        ds_hidden_specorderlist.setColumn(0, "orddrnm"    , sOrdDrNm);
        ds_hidden_specorderlist.setColumn(0, "specordyn"  , sSpecOrdYn);
        ds_hidden_specorderlist.setColumn(0, "formcd"     , sFormCd);
        ds_hidden_specorderlist.setColumn(0, "usernm"     , getUserInfo("usernm"));
        ds_hidden_specorderlist.setColumn(0, "currentdate", sCurrentDate);
        ds_hidden_specorderlist.setColumn(0, "currenttm"  , sCurrentTm);
        ds_hidden_specorderlist.setColumn(0, "appdd"      , sCurrentDate);
        ds_hidden_specorderlist.setColumn(0, "fromdd"     , sCurrentDate);
        ds_hidden_specorderlist.setColumn(0, "todd"       , "99991231");
        ds_hidden_specorderlist.setColumn(0, "specdeptcd" , "-");
        ds_hidden_specorderlist.setColumn(0, "signflag"   , "O");     // 서명구분(O:OCR, E:전자서명, B:변경신청(OCR))
        ds_hidden_specorderlist.setColumn(0, "returnyn"   , "N");
        
        var oParam = {};
			oParam.id       = "TXMMO00123";
			oParam.service  = "patinfomngtapp.SpecAppFrm";
			oParam.method   = "reqSetSpifList_ins";
			oParam.inds     = "spif=ds_hidden_specorderlist";
			oParam.outds    = "ds_temp_specocrinfo_ptbs=ptbs ds_temp_specocrinfo_specocrlist=sasm";
			oParam.async    = false;
			oParam.callback = "cf_TXMMO00123";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TXMMO00123") > -1) {
            var sSeq         = ds_temp_specocrinfo_specocrlist.getColumn(0, "ocrtag");
            var sDeptEngAbbr = ds_initsrch_dscdeptinfo.lookup("deptcd", sOrdDeptCd, "deptengabbr");
            var sMppHonTel   = ds_temp_specocrinfo_ptbs.getColumn(0, "mpphontel");
            var sHomeTel     = ds_temp_specocrinfo_ptbs.getColumn(0, "hometel");
            var sAddr        = ds_temp_specocrinfo_ptbs.getColumn(0, "zipcdaddr");
            var sRgstno1     = ds_temp_specocrinfo_ptbs.getColumn(0, "rrgstno1");
            var sRgstno2     = ds_temp_specocrinfo_ptbs.getColumn(0, "rrgstno2");
            var sRgstno      = sRgstno1 +"-"+ sRgstno2.substring(0,1) +"XXXXXX";
            
            ds_hidden_specorderlist.addColumn("seq"        , "string");
			ds_hidden_specorderlist.addColumn("deptengabbr", "string");
			ds_hidden_specorderlist.addColumn("rgstno"     , "string");
			ds_hidden_specorderlist.addColumn("mpphontel"  , "string");
			ds_hidden_specorderlist.addColumn("hometel"    , "string");
			ds_hidden_specorderlist.addColumn("addr"       , "string");
			ds_hidden_specorderlist.addColumn("userip"     , "string");
            
            ds_hidden_specorderlist.setColumn(0, "seq"        , sSeq );
            ds_hidden_specorderlist.setColumn(0, "deptengabbr", sDeptEngAbbr);
            ds_hidden_specorderlist.setColumn(0, "rgstno"     , sRgstno);
            ds_hidden_specorderlist.setColumn(0, "mpphontel"  , sMppHonTel);
            ds_hidden_specorderlist.setColumn(0, "hometel"    , sHomeTel);
            ds_hidden_specorderlist.setColumn(0, "addr"       , sAddr);
            ds_hidden_specorderlist.setColumn(0, "userip"     , sysf_getUserInfo("ipaddr"));
            
            var objDOM = rptf_createDOM();															// DOM 객체 설정	
			rptf_setNodeListToDOM(objDOM, "/root/hidden/specorderlist", ds_hidden_specorderlist);	// 데이터셋 1
			
			var objParam = new Object();
			objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
			var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
			rptf_exeReportPreview30(["RPMMO00104"],[objParam], option);
        }
    }
}

function cf_TXMMO00123(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function fPrltPartSpclDrList_old() {    
    dsf_createDs("ds_hidden_specorderlist");
    
    var specordtype = ds_paminfo.getColumn(0, "specordtype");

    //진료지원 8개 항목에 대해서 일괄위임일 경우 체크 할 필요가 없다. 
    if (specordtype != "B" ) {        
        var sInstcd  = "";
        var sDrid    = ""; 
        var sOrddd   = "";
        var sIoFlag  = "";
        var sOrdtype =  ds_patflag.getColumn(0, "prcpgenrflag");
        if (sOrdtype == "O" || sOrdtype == "S") {
            sDrid   = ds_paminfo.getColumn(0, "orddrid"); 
            sOrddd  = ds_paminfo.getColumn(0, "orddd");  
            sIoFlag = "O"
        } else {
            sDrid   = ds_paminfo.getColumn(0, "medispclid"); 
            sOrddd  =  ds_paminfo.getColumn(0, "indd"); 
            sIoFlag = "I"
        }
        sInstcd    = ds_paminfo.getColumn(0, "instcd"); 
        sCretno    = ds_paminfo.getColumn(0, "cretno"); 
        sOrddeptcd = ds_paminfo.getColumn(0, "orddeptcd"); 
        
        var sPartChoiYn="";
        var sPartChoiYn = lf_getHardCDList("Y",313,3);
        
        if (specordtype == "N" ) {
            sPartChoiYn = "Y";
        }
        
        ds_hidden_specorderlist.addColumn("drnm"      , "string");
		ds_hidden_specorderlist.addColumn("prcpnm"    , "string");
        ds_hidden_specorderlist.addColumn("specdrid"  , "string");
        ds_hidden_specorderlist.addColumn("tempcol2"  , "string");
        ds_hidden_specorderlist.addColumn("prcpclscd" , "string");
        ds_hidden_specorderlist.addColumn("pid"       , "string");
        ds_hidden_specorderlist.addColumn("ioflag"    , "string");
        ds_hidden_specorderlist.addColumn("instcd"    , "string");
        ds_hidden_specorderlist.addColumn("cretno"    , "string");
        ds_hidden_specorderlist.addColumn("orddd"     , "string");
        ds_hidden_specorderlist.addColumn("orddeptcd" , "string");
        ds_hidden_specorderlist.addColumn("orddrid"   , "string");
        ds_hidden_specorderlist.addColumn("partchoiyn", "string");
        ds_hidden_specorderlist.addColumn("specordyn" , "string");
                              
        var sRow = 0;
        for (var i = 0; i < ds_main_prcplist.rowcount; i++) {
            if (ds_main_prcplist.getColumn(i, "choiordflag") == "Y"    //선택진료 체크 된 항목들
                        && ds_main_prcplist.getColumn(i, "specdrid") != "-" && ds_main_prcplist.getColumn(i, "specdrid") != ""   // 의사가 들어 있는 처방
                        && ds_main_prcplist.getColumn(i, "status") != "D") {    // 삭제가 아닌 건들에 대해서
                sRow = ds_hidden_specorderlist.addRow();
                
                ds_hidden_specorderlist.setColumn(sRow, "drnm",       ds_main_prcplist.getColumn(i, "specdrnm"));
                ds_hidden_specorderlist.setColumn(sRow, "prcpnm",     ds_main_prcplist.getColumn(i, "prcpnm"));
                ds_hidden_specorderlist.setColumn(sRow, "specdrid",   ds_main_prcplist.getColumn(i, "specdrid"));
                // 수익분류를 기준으로 진료지원항목의 분류를 조회하기 위해서 추가 
                ds_hidden_specorderlist.setColumn(sRow, "tempcol2",   ds_main_prcplist.getColumn(i, "tempcol2"));                
                ds_hidden_specorderlist.setColumn(sRow, "prcpclscd",  ds_main_prcplist.getColumn(i, "prcpclscd"));
                ds_hidden_specorderlist.setColumn(sRow, "pid",        ds_paminfo.getColumn(0, "pid"));
                ds_hidden_specorderlist.setColumn(sRow, "ioflag",     sIoFlag);
                ds_hidden_specorderlist.setColumn(sRow, "instcd",     sInstcd);
                ds_hidden_specorderlist.setColumn(sRow, "cretno",     sCretno);
                ds_hidden_specorderlist.setColumn(sRow, "orddd",      sOrddd);
                ds_hidden_specorderlist.setColumn(sRow, "orddeptcd",  sOrddeptcd);
                ds_hidden_specorderlist.setColumn(sRow, "orddrid",    sDrid);
                ds_hidden_specorderlist.setColumn(sRow, "partchoiyn", sPartChoiYn);
                ds_hidden_specorderlist.setColumn(sRow, "specordyn",  ds_paminfo.getColumn(0, "specordyn"));
            }     
            
            // 방사선 종양학과 치료 지시처방 관련 추가  2012.10.16 엄영만
            if (   ds_main_prcplist.getColumn(i, "prcpclscd") == "09" 
                && ds_main_prcplist.getColumn(i, "tempcol2") == "05|01|00" 
                && ds_main_prcplist.getColumn(i, "status") != "D") {
                sRow = ds_hidden_specorderlist.addRow();
                
                ds_hidden_specorderlist.setColumn(sRow, "drnm",       sDrid);
                ds_hidden_specorderlist.setColumn(sRow, "prcpnm",     ds_main_prcplist.getColumn(i, "prcpnm"));
                ds_hidden_specorderlist.setColumn(sRow, "specdrid",   sDrid);
                // 수익분류를 기준으로 진료지원항목의 분류를 조회하기 위해서 추가  
                ds_hidden_specorderlist.setColumn(sRow, "tempcol2",   "08|01|00");   // 방사선치료	방사선치료	모의치료             
                ds_hidden_specorderlist.setColumn(sRow, "prcpclscd",  ds_main_prcplist.getColumn(i, "prcpclscd"));
                ds_hidden_specorderlist.setColumn(sRow, "pid",        ds_paminfo.getColumn(0, "pid"));
                ds_hidden_specorderlist.setColumn(sRow, "ioflag",     sIoFlag);
                ds_hidden_specorderlist.setColumn(sRow, "instcd",     sInstcd);
                ds_hidden_specorderlist.setColumn(sRow, "cretno",     sCretno);
                ds_hidden_specorderlist.setColumn(sRow, "orddd",      sOrddd);
                ds_hidden_specorderlist.setColumn(sRow, "orddeptcd",  sOrddeptcd);
                ds_hidden_specorderlist.setColumn(sRow, "orddrid",    sDrid);
                ds_hidden_specorderlist.setColumn(sRow, "partchoiyn", sPartChoiYn);
                ds_hidden_specorderlist.setColumn(sRow, "specordyn",  ds_paminfo.getColumn(0, "specordyn"));
            } 
        }
        
        // 내역별로 위임여부를 체크한다.         
        if (ds_hidden_specorderlist.rowcount > 0) {
			dsf_createDs("ds_hidden_specorderlist_specorderlist");
			
			var oParam = {};
				oParam.id       = "TRMMO00142";
				oParam.service  = "prcpmngtapp.EtcPrcpMngt";
				oParam.method   = "reqGetSpclDrPatSignInfo";
				oParam.inds     = "req=ds_hidden_specorderlist";
				oParam.outds    = "ds_hidden_specorderlist_specorderlist=specorderlist";
				oParam.async    = false;
				oParam.callback = "cf_TRMMO00142";

			tranf_submit(oParam);
				
			if(arErrorCode.pop("TRMMO00142") > -1) {
                if (ds_hidden_specorderlist_specorderlist.rowcount > 0 ) {
                    var rrgstno     = ds_paminfo.getColumn(0, "rrgstno1") + "-" + ds_paminfo.getColumn(0, "rrgstno2") ;
                    var pid         = ds_paminfo.getColumn(0, "pid");  
                    var hngnm       = ds_paminfo.getColumn(0, "hngnm");
                    
                    ds_hidden_specorderlist.addColumn("rrgstno"   , "string");
					ds_hidden_specorderlist.addColumn("pid"       , "string");
					ds_hidden_specorderlist.addColumn("hngnm"     , "string");
					ds_hidden_specorderlist.addColumn("orddd"     , "string");
					ds_hidden_specorderlist.addColumn("cretno"    , "string");
					ds_hidden_specorderlist.addColumn("ioflag"    , "string");
					ds_hidden_specorderlist.addColumn("ordtype"   , "string");
					ds_hidden_specorderlist.addColumn("specordyn" , "string");					
					ds_hidden_specorderlist.addColumn("formcd"    , "string");
					ds_hidden_specorderlist.addColumn("fromdd"    , "string");
					ds_hidden_specorderlist.addColumn("todd"      , "string");
					ds_hidden_specorderlist.addColumn("specdeptcd", "string");
					ds_hidden_specorderlist.addColumn("appdd"     , "string");
					ds_hidden_specorderlist.addColumn("signflag"  , "string");
					ds_hidden_specorderlist.addColumn("returnyn"  , "string");
					                    
                    ds_hidden_specorderlist.setColumn(0, "rrgstno"   , rrgstno);
                    ds_hidden_specorderlist.setColumn(0, "pid"       , pid);
                    ds_hidden_specorderlist.setColumn(0, "hngnm"     , hngnm);
                    ds_hidden_specorderlist.setColumn(0, "orddd"     , sOrddd);
                    ds_hidden_specorderlist.setColumn(0, "cretno"    , sCretno);
                    ds_hidden_specorderlist.setColumn(0, "ioflag"    , sIoFlag );
                    ds_hidden_specorderlist.setColumn(0, "ordtype"   , sOrdtype );
                    ds_hidden_specorderlist.setColumn(0, "specordyn" , ds_paminfo.getColumn(0, "specordyn") );
                    ds_hidden_specorderlist.setColumn(0, "formcd"    , lf_getHardCDList("Y", 305, 3));
                    ds_hidden_specorderlist.setColumn(0, "fromdd"    , utlf_getCurrentDate());                                       
                    ds_hidden_specorderlist.setColumn(0, "todd"      , "99991231");
                    ds_hidden_specorderlist.setColumn(0, "specdeptcd", "-");
                    ds_hidden_specorderlist.setColumn(0, "appdd"     , utlf_getCurrentDate());
                    ds_hidden_specorderlist.setColumn(0, "signflag"  , "O");
                    ds_hidden_specorderlist.setColumn(0, "returnyn"  , "N");
                    
                    dsf_createDs("ds_temp_specocrinfo_ptbs");
					dsf_createDs("ds_temp_specocrinfo_specocrlist");
					
					var oParam = {};
						oParam.id       = "TXMMO00123";
						oParam.service  = "patinfomngtapp.SpecAppFrm";
						oParam.method   = "reqSetSpifList_ins";
						oParam.inds     = "spif=ds_hidden_specorderlist";
						oParam.outds    = "ds_temp_specocrinfo_ptbs=ptbs ds_temp_specocrinfo_specocrlist=sasm";
						oParam.async    = false;
						oParam.callback = "cf_TXMMO00123";

					tranf_submit(oParam);
					
					if(arErrorCode.pop("TXMMO00123") > -1) {
                        if (sInstcd == "032" && ds_hidden_specorderlist_specorderlist.getColumn(0, "printcnt") > "0") { // 칠곡만 확인 메세지 팝업 하도록 수정. 2012.10.17 엄영만
                            sysf_messageBox ("제출확인 되지 않은 선택진료신청서가 존재합니다.\n\n선택진료신청서를 출력 합니다.\n\n ☎ 원무팀(2066)", "I" );
                        }
                        
                        var seq         = ds_temp_specocrinfo_specocrlist.getColumn(0, "ocrtag");
                        
                        var orddeptcd   = ds_temp_specocrinfo_specocrlist.getColumn(0, "orddeptcd");
                        var deptengabbr = ds_initsrch_dscdeptinfo.lookup("deptcd", orddeptcd, "deptengabbr");
                        var depthngnm   = ds_paminfo.getColumn(0, "orddeptnm");
                        
                        var rgstno1     = ds_temp_specocrinfo_ptbs.getColumn(0, "rrgstno1");
                        var rgstno2     = ds_temp_specocrinfo_ptbs.getColumn(0, "rrgstno2");
                        var rgstno      = rgstno1 +"-"+ rgstno2.substring(0,1) +"XXXXXX";
                        
                        var orddrid     = ds_temp_specocrinfo_specocrlist.getColumn(0, "orddrid");
                        
                        //var formfromdt  = model.getValue("/root/temp/specocrinfo/specocrlist[1]/formfromdt");
                        
                        var orddrid     = ds_temp_specocrinfo_specocrlist.getColumn(0, "orddrid");
                        var orddrnm     = ds_paminfo.getColumn(0, "orddrnm");
                        
                        //var orddd       = model.getValue("/root/temp/specocrinfo/specocrlist[1]/orddd");
                        
                        var mpphontel   = ds_temp_specocrinfo_ptbs.getColumn(0, "mpphontel");
                        var hometel     = ds_temp_specocrinfo_ptbs.getColumn(0, "hometel");
                        var currentdate = utlf_getCurrentDate();
                        var currenttm   = utlf_getCurrentTime();                       
                        var addr        = ds_temp_specocrinfo_ptbs.getColumn(0, "zipcdaddr");
                        var usernm      = sysf_getUserInfo("usernm");
                        
                        ds_hidden_specorderlist.addColumn("seq"        , "string");
						ds_hidden_specorderlist.addColumn("deptengabbr", "string");
						ds_hidden_specorderlist.addColumn("rgstno"     , "string");
						ds_hidden_specorderlist.addColumn("depthngnm"  , "string");
                        ds_hidden_specorderlist.addColumn("orddrid"    , "string");
                        ds_hidden_specorderlist.addColumn("orddrnm"    , "string");
						ds_hidden_specorderlist.addColumn("mpphontel"  , "string");
						ds_hidden_specorderlist.addColumn("hometel"    , "string");
						ds_hidden_specorderlist.addColumn("currentdate", "string");
                        ds_hidden_specorderlist.addColumn("currenttm"  , "string");
						ds_hidden_specorderlist.addColumn("addr"       , "string");
						ds_hidden_specorderlist.addColumn("usernm"     , "string");
                        ds_hidden_specorderlist.addColumn("specordyn"  , "string");
						ds_hidden_specorderlist.addColumn("userip"     , "string");                       
                       
                        ds_hidden_specorderlist.setColumn(0, "seq"                , seq );
                        ds_hidden_specorderlist.setColumn(0, "deptengabbr"        , deptengabbr );
                        ds_hidden_specorderlist.setColumn(0, "rgstno"             , rgstno );
                        ds_hidden_specorderlist.setColumn(0, "depthngnm"          , depthngnm );
                        ds_hidden_specorderlist.setColumn(0, "orddrid"            , orddrid );
                        //model.makeValue("/root/hidden/specorderlist/hngnm"              , hngnm );
                        //model.makeValue("/root/hidden/specorderlist/formfromdt"         , formfromdt );
                        //model.makeValue("/root/hidden/specorderlist/formcd"             , formcd );
                        ds_hidden_specorderlist.setColumn(0, "orddrnm"            , orddrnm );
                        //model.makeValue("/root/hidden/specorderlist/orddd"              , orddd );
                        ds_hidden_specorderlist.setColumn(0, "mpphontel"          , mpphontel );
                        ds_hidden_specorderlist.setColumn(0, "hometel"            , hometel );
                        ds_hidden_specorderlist.setColumn(0, "currentdate"        , currentdate );
                        ds_hidden_specorderlist.setColumn(0, "currenttm"          , currenttm );
                        ds_hidden_specorderlist.setColumn(0, "addr"               , addr );
                        ds_hidden_specorderlist.setColumn(0, "usernm"             , usernm );
                        ds_hidden_specorderlist.setColumn(0, "specordyn"          , ds_paminfo.getColumn(0, "specordyn") );
                        ds_hidden_specorderlist.setColumn(0, "userip"             , sysf_getUserInfo("ipaddr"));
                        
                        var objDOM = rptf_createDOM();															// DOM 객체 설정	
						rptf_setNodeListToDOM(objDOM, "/root/hidden/specorderlist", ds_hidden_specorderlist);	// 데이터셋 1
						
						var objParam = new Object();
						objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
						var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
						rptf_exeReportPreview30(["RPMMO00104"],[objParam], option);
                    }
                    
                    /*
                    if (submit("TRMMO00140") == true) {
                        if (sInstcd == "032" && model.getValue("/root/hidden/specorderlist/specorderlist/printcnt") > "0") { // 칠곡만 확인 메세지 팝업 하도록 수정. 2012.10.17 엄영만
                            messageBox ("제출확인 되지 않은 선택진료신청서가 존재합니다.\n\n선택진료신청서를 출력 합니다.\n\n ☎ 원무팀(2066)", "I" );
                        }
                        
                        seq         = model.getValue("/root/temp/specocrinfo/specocrlist/seq");
                        deptengabbr = model.getValue("/root/temp/specocrinfo/specocrlist/deptengabbr");
                        rgstno      = model.getValue("/root/temp/specocrinfo/specocrlist/rgstno");
                        depthngnm   = model.getValue("/root/temp/specocrinfo/specocrlist/depthngnm");
                        orddrid     = model.getValue("/root/temp/specocrinfo/specocrlist/orddrid");
                        hngnm       = model.getValue("/root/temp/specocrinfo/specocrlist/hngnm");
                        formfromdt  = model.getValue("/root/temp/specocrinfo/specocrlist/formfromdt");
                        formcd      = model.getValue("/root/temp/specocrinfo/specocrlist/formcd");
                        orddrnm     = model.getValue("/root/temp/specocrinfo/specocrlist/orddrnm");
                        orddd       = model.getValue("/root/temp/specocrinfo/specocrlist/orddd");
                        mpphontel   = model.getValue("/root/temp/specocrinfo/specocrlist/mpphontel");
                        hometel     = model.getValue("/root/temp/specocrinfo/specocrlist/hometel");
                        currentdate = model.getValue("/root/temp/specocrinfo/specocrlist/currentdate");
                        currenttm   = model.getValue("/root/temp/specocrinfo/specocrlist/currenttm");                       
                        addr        = model.getValue("/root/temp/specocrinfo/specocrlist/addr");
                        usernm      = getUserInfo("usernm");                       
                        
                        model.makeValue("/root/hidden/specorderlist/seq"                , seq );
                        model.makeValue("/root/hidden/specorderlist/deptengabbr"        , deptengabbr );
                        model.makeValue("/root/hidden/specorderlist/rgstno"             , rgstno );
                        model.makeValue("/root/hidden/specorderlist/depthngnm"          , depthngnm );
                        model.makeValue("/root/hidden/specorderlist/orddrid"            , orddrid );
                        model.makeValue("/root/hidden/specorderlist/hngnm"              , hngnm );
                        model.makeValue("/root/hidden/specorderlist/formfromdt"         , formfromdt );
                        model.makeValue("/root/hidden/specorderlist/formcd"             , formcd );
                        model.makeValue("/root/hidden/specorderlist/orddrnm"            , orddrnm );
                        model.makeValue("/root/hidden/specorderlist/orddd"              , orddd );
                        model.makeValue("/root/hidden/specorderlist/mpphontel"          , mpphontel );
                        model.makeValue("/root/hidden/specorderlist/hometel"            , hometel );
                        model.makeValue("/root/hidden/specorderlist/currentdate"        , currentdate );
                        model.makeValue("/root/hidden/specorderlist/currenttm"          , currenttm );
                        model.makeValue("/root/hidden/specorderlist/addr"               , addr );
                        model.makeValue("/root/hidden/specorderlist/usernm"             , usernm );
                        model.makeValue("/root/hidden/specorderlist/specordyn"          , model.getValue("/root/paminfo/list/specordyn") );
                        var rptid = "RPMMO00104";
                        var desNode = "/root/hidden/specorderlist";                          
                      
                        //exeReportPreview(rptid, "XMLSTR", desNode, "", "true", "", "", "", "", "true", "", "", "", "", "", "", "", "", "", "", "");
                        //화면에 출력 된후 이후 진행이 멈춤 - 심사과 윤팀장님 요청 교육서버만 반영
                        exeReportPreview(rptid, "XMLSTR", desNode, "", "true", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "");
                        
                        if(!fSaveOCRIF(seq, pid, orddd, sCretno, sOrdtype, sOrddeptcd, orddrid, formcd, formfromdt, "", "", "1")){
                            messageBox("OCR 출력중 문제가 발생했습니다.","C999");
                            return;
                        }
                        
                        for (i = 1; i <= model.instance1.selectNodes("/root/hidden/specorderlist/specorderlist").length ; i++ ) {
                            model.setValue("/root/hidden/specorderlist/specorderlist[" + i + "]/ocrtag"   , seq);
                        }
                        //선택진료 진료지원항목 데이터를 저장한다. 
                        submit("TXMMO00117");   
                    }
                    */
                }
            }
        }  
    }
}

function cf_TRMMO00142(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**@desc   : 진료과, 진료의변경
*  @param  : qestcd : 질문값
*  @return :  Answcnt ( 답안값)
*/
function fChgOrdDr() {
	var pid     = ds_paminfo.getColumn(0, "pid");
	var ordtype = ds_patflag.getColumn(0, "prcpgenrflag");
	var cretno  = ds_paminfo.getColumn(0, "cretno");

	var mon = sysf_getCurrentMonitorNumber();
	var xpt = this.getOwnerFrame().position.x + 400;
	var ypt = this.getOwnerFrame().position.y + 90;
    
	frmf_clearParameter ( "SPMMB08300_flag" );
	frmf_clearParameter ( "SPMMB08300_useyn" );
	frmf_clearParameter ( "SPMMB08300_userid" );
	frmf_clearParameter ( "SPMMB08300_orddeptcd" );
	frmf_clearParameter ( "SPMMB08300_userinfo" );

    if(!utlf_isNull(ordtype)){
		if(ordtype == "O" || ordtype == "S"){
			var orddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
			var orddrid   = ds_paminfo.getColumn(0, "orddrid");
			var indd      = ds_paminfo.getColumn(0, "orddd");   
		}else{
			var orddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
			var orddrid   = ds_paminfo.getColumn(0, "medispclid");
			var indd      = ds_paminfo.getColumn(0, "indd");
		}
		
        frmf_setParameter("SPMMB08300_orddeptcd", orddeptcd);
        frmf_setParameter("SPMMB08300_orddrid",   orddrid);
        frmf_setParameter("SPMMB08300_ioflag",    ordtype);
    }   
    
    frmf_setParameter( "SPMMB08300_flag", "chgdr" );
    
    frmf_modal("SPMMB08300", "SPMMB08300",  null, false, mon, xpt, ypt, null, null, null, null, null, "P");
    
    var useyn     = frmf_getParameter("SPMMB08300_useyn");
    var userid    = frmf_getParameter("SPMMB08300_userid");
    var orddeptcd = frmf_getParameter("SPMMB08300_orddeptcd");
    var userinfo  = frmf_getParameter("SPMMB08300_userinfo");
    if(useyn == "Y"){
        orddrid = userid;
        
        var selectedRows = grdf_getSelectedRows(div_all.grd_prcplist);
		for(var i = 0; i < selectedRows.length; i++){
			if( ds_main_prcplist.getColumn(selectedRows[i], "status") != "S"){                    
				ds_main_prcplist.setColumn(selectedRows[i], "pampkspec", pid + "|" + indd + "|" + cretno + "|" + orddeptcd + "|" + orddrid); //pampkspec : 등록번호|진료일자|생성번호|진료과|담당의 // 원무PK내역         
				ds_main_prcplist.setColumn(selectedRows[i], "tempcol20", userinfo);
			}
		}
    }
}

/**@desc   : 처방 저장시 화면에서 처장 가능 한지 체크 한다.
 * @return : void
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckBeforePrcpSave( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var sIoFlag = ds_patflag.getColumn(0, "prcpgenrflag");
    
    //인증저장 가능여부체크.
    if(!fCheckCertificatSave( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;

    //임시저장 가능여부체크.
    if(!fCheckTempSave( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;

    //기증자유형 환자여부체크.
    if(!fCheckPreWorkUp( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
    
    if( sIoFlag == "O" || sIoFlag == "S" ) { // 외래에 대한 체크
        //사전심사 관련 처방 Blocking은 임시저장 인증저장 모두 막는다. 서버에서 체크 하는것으로 이동
        //if(!fCheckBfJudg( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
        
        // 임상연구 환자 체크
        if(!fCheckClincStdy( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
    } else { // 입원, 응급, DSC 에 대한 체크
        // 퇴원예고 후 퇴원처방 날짜체크: 퇴원예고 다음날로는 처방 불가
        if(!fCheckDsch( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
        
        // 입원환자에 대해서 수술료 입력여부를 체크한다. 20110226 김영학
        if(!fCheckOpFee( prcpflag, savekindflag, saveNode, prcpchkflag, "prcp" )) return false;
        
        //필수 기록 체크(수술기록,OpstOpNote,경과기록)
        if(!fCheckEssRec( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;

        // 뇌졸증 평가 관련 기록 여부를 체크한다. 20110823 엄영만  
        if(!fCheckApoplexyRec( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
    
        // 급성심근경색 평가 관련 기록 여부를 체크한다. 20111101 엄영만  
        if(!fCheckAmiRec( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
        
        // 제왕절개 안정성 평가 관련 기록 여부를 체크한다. 20120104 엄영만  
        if(!fCheckChildbirthRec( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
        
        //응급실 체류관련 처방제한
        //if(!fCheckErStay( prcpflag, savekindflag, saveNode, prcpchkflag )) return false;
    }
    
    return true;
}

/**@desc   : 입원환자에 대해서 수술료 입력여부를 체크한다.
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
             callby: prcp : 처방 저장, dsch:퇴원예고
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckOpFee( prcpflag, savekindflag, saveNode, prcpchkflag, callby ){
    var bRtn = true;
    
    if (   prcpflag == "0"
        && savekindflag == "0"
        && ds_patflag.getColumn(0, "prcpgenrflag") == "I" 
        && ds_root.getColumn(0, "addprcp") != "Y") {
        
        var returnVal = lf_getHardCDList("Y", 280, 3); // 처방저장시 수술료 입력안되어 있으면 Blocking 여부
        var pid    = ds_paminfo.getColumn(0, "pid");
        var indd   = ds_paminfo.getColumn(0, "indd");
        var dschdd = ds_paminfo.getColumn(0, "dschdd");
        
        if(returnVal == "Y") {
            // 수술탭에서 선택시 수술료 처방이 있는지 확인한다. 
            var opFeePrcp = "N";
            var operationFlagCvs = sysf_getGlobalVariable("operation");  
            if(callby == "prcp" && !utlf_isNull(operationFlagCvs) && operationFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
                for (var i = 0; i < ds_main_prcplist.rowcount; i++ ) {
                    var sTempcol2 = ds_main_prcplist.getColumn(i, "tempcol2");
                    if ( sTempcol2.substr(0, 5) == "08|02" || sTempcol2.substr(0, 5) == "15|02" || sTempcol2.substr(0, 5) == "17|02") {
                        opFeePrcp = "Y";
                        break;
                    }
                }
            }
            
            if( opFeePrcp != "Y" ) { // 화면에서 수술료 처방이 없는 경우
				var sRef = dsf_createDsRow("ds_tempchkopfee_reqdata", [{col:"pid",    type:"string", size:256, val:pid},
                                                                       {col:"indd",   type:"string", size:256, val:indd},
                                                                       {col:"dschdd", type:"string", size:256, val:dschdd}]);
				var sRstlRef = dsf_createDs("ds_tempchkopfee_rtndata");
                
                var oParam = {};
					oParam.id       = "TRMMO00147";
					oParam.service  = "prcpmngtapp.PrcpMngt";
					oParam.method   = "reqGetChkValidOpFee";
					oParam.inds     = "req=" + sRef;
					oParam.outds    = sRstlRef + "=rtndata";
					oParam.async    = false;

				tranf_submit(oParam);
                
                var sMsg = "";
                if (!utlf_isNull(ds_tempchkopfee_rtndata.lookup("checkcode", 'ERROR', "oprsrvno"))) { // 수술 72시간 경과, 수술료 처방이 없는경우
                    if (callby == "prcp") {
                        sMsg = "72시간 이내에 수술료가 입력되지 않아 진행이 불가능 합니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    } else {
                        sMsg = "수술료가 입력되지 않아 진행이 불가능 합니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    }
                    
                    if ("6" == sysf_messageBox(sMsg , "Q")) {
                        frmf_setParameter("SPMMO21600_param", pid + "|" + indd + "|" + dschdd);
                        frmf_modal("SPMMO21600", "SPMMO21600", null, null, null, null, null, null, null, null, null, null, "M");
                        frmf_clearParameter("SPMMO21600_param");
                    }
                    
                    bRtn = false;
                } else if (!utlf_isNull(ds_tempchkopfee_rtndata.lookup("checkcode", 'ALERT', "oprsrvno"))) { // 수술료 처방이 없는경우
                    if (callby == "prcp") {
                        sMsg = "수술료가 입력되지 않았습니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    } else {
                        sMsg = "수술료가 입력되지 않아 진행이 불가능 합니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    }
                    
                    if ("6" == messageBox(sMsg, "Q")) {
                        frmf_setParameter("SPMMO21600_param", pid + "|" + indd + "|" + dschdd);
                        frmf_modal("SPMMO21600", "SPMMO21600", null, null, null, null, null, null, null, null, null, null, "M");
                        frmf_clearParameter("SPMMO21600_param");
                        bRtn = false;
                    } else {
                        if (callby == "prcp") {  // 처방입력은 메세지 팝업 후 처방 가능
                            bRtn = true;
                        } else {
                            bRtn = false;  // 퇴원예고시에는 블러킹 처리
                        }
                    }
                } else { // 수술료 처방 또는 사유가 존재 할경우
                    bRtn = true;
                }
            } else { // 수술탭에서 선택 하여 수술 처방이 있을경우
                bRtn = true;
            }
        } else { // 기존 로직
            var sOpFeeChkYn = ds_paminfo.getColumn(0, "opfeechkyn");
            if (sOpFeeChkYn == "N") {
                var opFeePrcp = "N";
                var opFeePrcpCnt = 0;
                // 수술료 처방이 있는지 확인한다.
                for (var i = 0; i < ds_main_prcplist.rowcount; i++ ) {
                    var sTempcol2 = ds_main_prcplist.getColumn(i, "tempcol2");
                    if ( sTempcol2.substr(0, 5) == "08|02" || sTempcol2.substr(0, 5) == "15|02" || sTempcol2.substr(0, 5) == "17|02") {
                        opFeePrcpCnt++ ;
                    }
                }
                if ( opFeePrcpCnt > 0 ) {
                    opFeePrcp = "Y";
                }
                // 수술료 처방이 입력되지 않았다면 경고 메시지를 띄운다. 
                if (opFeePrcp != "Y") {
                    var rtnValue = sysf_messageBox("수술료가 입력되지 않았습니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?" , "Q");
                    if (rtnValue == "6") {
                        frmf_setParameter("SPMMO21600_param", pid + "|" + indd + "|" + dschdd);
                        frmf_modal("SPMMO21600", "SPMMO21600", null, null, null, null, null, null, null, null, null, null, "M");
                        frmf_clearParameter("SPMMO21600_param");
                        bRtn = false;
                    }
                }
            }
        }
    }
    return bRtn;
}

/**@desc   : 인증저장 가능여부체크.
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckCertificatSave( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var sIoFlag = ds_patflag.getColumn(0, "prcpgenrflag");
    
    if( sIoFlag == "O" || sIoFlag == "S"){ // 외래 체크
        //20081014 by sonjy 간호확인 후에만 처방인증저장 가능. 조범준 과장님 요청  start=================================================================
        //의사처방 화면의 인증저장 버튼을 누를 때에만...
        if( prcpflag == "0" && savekindflag == "0" &&  ds_root.getColumn(0, "usge") == "prcp" && ds_root.getColumn(0, "addprcp") != "Y" ){
            if( ds_paminfo.getColumn(0, "elbulbodstat") == "0" ){
                sysf_messageBox("간호접수가 되지 않은 환자입니다. 간호접수전에는 임시저장만", "I006");
                return false ;
            }           
        }
    } else { // 입원, 응급, DSC 체크
        if ( ds_paminfo.getColumn(0, "indd") > ds_init.getColumn(0, "prcpdd")) {
            sysf_messageBox( "처방일이 입원일[" + lf_dateFormat ( ds_paminfo.getColumn(0, "indd")) + "] 전입니다. 처방일을 수정하여 주십시오.", "E");
            return false ;
        }
         
        if (sIoFlag == "D" && ds_paminfo.getColumn(0, "indd") == ds_init.getColumn(0, "prcpdd") && ds_init.getColumn(0, "prcpdd") > utlf_getCurrentDate() && savekindflag != 1 ) {
            sysf_messageBox( "DSC 환자는 수술일 이전 처방은 인증저장이 불가합니다. 임시저장만 가능합니다.", "E");
            return false ;
        } else if( sIoFlag == "E" ){
            //20091015 by JJE 응급간호에서 삭제처리한 환자 선택 시 blocking 메세지 처리 추가 (변경요청:8106)
            var pid    = ds_paminfo.getColumn(0, "pid");
            var orddd  = ds_paminfo.getColumn(0, "indd");
            var cretno = ds_paminfo.getColumn(0, "cretno");
            if(fChkInCnclYN(pid, orddd, cretno, "B") == false){
                return false;
            }
            
            //응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능  20100527 by LYJ
            if (savekindflag == "0" && prcpflag == "0" ){
                var mainObj = frmf_getMainViewer();     
                var ordPatObj = mainObj.frmf_findPopup("SMMMO04100");    
                
                if(!utlf_isNull(ordPatObj)){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
                    var callvisityn = ds_tmp.getColumn(0, "callvisityn");
                    if (callvisityn == "N")  {
                        sysf_messageBox("응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능 합니다.", "E");     
                        return false; 
                    }
                } 
            }
        }
    }

    return true;
}

/**@desc   : 응급실 체류관련 처방제한
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 *           본원 및 칠곡에서 사용 하지 않음 주석 처리 2012.10.31 엄영만
 */
function fCheckErStay( prcpflag, savekindflag, saveNode, prcpchkflag ){
    //응급실 24시간이상 체류환자 응급의학과 인턴의사가 처방시 처방제한 사용여부 체크
    lf_reqHardCodeInfo(ds_hidden_erstayblock, "219");

    //20100519 kimsj 응급의학과 소속 인턴이 응급 진료대상자리스트에서 24시간이상 체류한 환자에게 처방 발행 시 처방 블러킹
    //20100525 LYJ 임상각과의 전문의 조건 추가 
    if ( ds_hidden_erstayblock.getColumn(0, "hardcd") == "Y" && ds_patflag.getColumn(0, "prcpgenrflag") == "E" ) {
        if(((sysf_getUserInfo("dutplcecd") == "2280000000") && (sysf_getUserInfo("jobkindcd") == "0330") && (sysf_getUserInfo("jobposcd") == "1799")) || ((sysf_getUserInfo("jobkindcd") == "0330") &&  (sysf_getUserInfo("medispclno") == "") && (sysf_getUserInfo("dutplcecd") != "2280000000"))){  // 2280000000 : 응급의학과 , 0330 : 의사, 1799 : 인턴
            var pid    = ds_paminfo.getColumn(0, "pid");
            var orddd  = ds_paminfo.getColumn(0, "indd");
            var cretno = ds_paminfo.getColumn(0, "cretno");
            
            var sRef = dsf_createDsRow("ds_temp_erstay_reqdata", [{col:"pid",    type:"string", size:256, val:pid},
																  {col:"orddd",  type:"string", size:256, val:orddd},
																  {col:"cretno", type:"string", size:256, val:cretno}]);
			var sRstlRef = dsf_createDs("ds_temp_erstay_rstdata_stayinfo");
			
			var oParam = {};
				oParam.id       = "TRMMO00133";
				oParam.service  = "prcpmngtapp.EtcPrcpMngt";
				oParam.method   = "reqGetErStayInfo";
				oParam.inds     = "req=" + sRef;
				oParam.outds    = sRstlRef + "=stayinfo";
				oParam.async    = false;

			tranf_submit(oParam);
            
            if ( ds_temp_erstay_rstdata_stayinfo.rowcount > 0 && ds_temp_erstay_rstdata_stayinfo.getColumn(0, "stayyn") == "Y" ) {
                sysf_messageBox ( "응급실 체류시간 24시간 이상인 환자는 응급의학과 의사와 임상각과 전문의만 처방 가능합니다.", "E" );
                return false;
            } 
        }
    }

    return true;
}

/**@desc   : 임시저장가능 여부
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckTempSave( prcpflag, savekindflag, saveNode, prcpchkflag ){
    if ( savekindflag == "1" ) {
		var findRow_diag1 = ds_main_diagcdlist.findRowExpr("status != 'I' && status != '-' && diaghistcd == 'O'");
		var findRow_diag2 = ds_main_diagcdlist.findRowExpr("status == 'I' || status == 'D' || status == 'U'");
		var findRow_prcp  = ds_main_prcplist.findRowExpr("status == 'I' || status == 'D' || status == 'U'");
		
        if (findRow_diag1 != -1 && !utlf_isNull(ds_main_diagcdlist.getColumn(findRow_diag1, "diagcd"))) {
			sysf_messageBox ( "인증저장된 진단을 임시저장으로 수정할 수 없습니다.\n\n진단리스트에서 우클릭 '취소(삭제, 수정)' 기능을 이용하여 초기화 후 임시저장 하십시오", "E" );
			return false;
        } else if ( findRow_prcp == -1 || utlf_isNull ( ds_main_prcplist.getColumn(findRow_prcp, "prcpcd")) ) { 
            if (findRow_diag2 == -1 || utlf_isNull(ds_main_diagcdlist.getColumn(findRow_diag2, "diagcd"))) {
                sysf_messageBox ( "임시저장할 처방 및 진단이 없습니다.", "E" );
                return false;           
            }           
        }
    }

    return true;
}

/**@desc   : 처방시 미비기록 유무 확인(submit)
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckEssRec( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var bRtn = true;
    
    if (prcpchkflag == "drugdc" || ds_root.getColumn(0, "addprcp") == "Y") {
        bRtn = true;
        return bRtn;
    }
    else {
     	fChkValidRecInfo(); 
		if ( !fValidRecInfoMsg() ) { 
			bRtn = true;
		}
    }
    
    // 기록누락을 통한 처방제어 시스템:미비기록 여부를 체크한다. 20110421 엄영만  288 기록누락  관련 처방 제한 사용 여부
    var sChkValidRecYn = lf_getHardCDList("Y", 288, 3);
    if (sChkValidRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && ds_patflag.getColumn(0, "prcpgenrflag") == "I" 
        && ds_root.getColumn(0, "addprcp") != "Y") {
        
        var sCheckCode = "";
        var sCheckAlertMsg  = "";
        var sCheckErrorMsg  = "";

        var pid    = ds_paminfo.getColumn(0, "pid");
        var indd   = ds_paminfo.getColumn(0, "indd");
        var cretno = ds_paminfo.getColumn(0, "cretno");
        
        var sRef = dsf_createDsRow("ds_tempchkrec_reqdata", [{col:"pid",    type:"string", size:256, val:pid},
														  	 {col:"indd",   type:"string", size:256, val:indd},
														     {col:"cretno", type:"string", size:256, val:cretno}]);
		var sRstlRef = dsf_createDs("ds_tempchkrec_rtndata");
        
        var oParam = {};
			oParam.id       = "TRMMO00124";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetChkValidRec";
			oParam.inds     = "req=" + sRef;
			oParam.outds    = sRstlRef + "=rtndata";
			oParam.async    = false;

		tranf_submit(oParam);

        var oRstlRef = this.objects[sRstlRef];

        for ( var i = 0; i < oRstlRef.rowcount; i++ ) {
            var sCheckCode = oRstlRef.getColumn(i, "checkcode");
            if(sCheckCode == "ALERT"){
                if(utlf_isNull(sCheckAlertMsg)) {
                    sCheckAlertMsg = oRstlRef.getColumn(i, "checkmsg");
                } else {
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
                }
            } else if (sCheckCode == "ERROR"){
                if(utlf_isNull(sCheckErrorMsg)) {
                    sCheckErrorMsg = oRstlRef.getColumn(i, "checkmsg");
                } else {
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
                }
            }
        }

        if (!utlf_isNull(sCheckErrorMsg)){
            sCheckErrorMsg = sCheckErrorMsg + "\n\n" + "해당 기록 작성 후 처방 가능 합니다.";
            
            if(sysf_getUserInfo("dutplceinstcd") == "031") {
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 의무기록실(5231~3,5324)";
            } else if(sysf_getUserInfo("dutplceinstcd") == "032") {
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 의무기록실(2401, 2402)";
            }
            
            sysf_messageBox("[기록누락]" + sCheckErrorMsg, 'E000');
            bRtn = false;
            return bRtn;
        } else if (!utlf_isNull(sCheckAlertMsg)){
            sCheckAlertMsg = sCheckAlertMsg + "\n\n" + "해당 기록이 작성 되지 않으면 처방불가 합니다.";

            if(sysf_getUserInfo("dutplceinstcd") == "031") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 의무기록실(5231~3,5324)";
            } else if(sysf_getUserInfo("dutplceinstcd") == "032") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 의무기록실(2401, 2402)"
            }

            sysf_messageBox(sCheckAlertMsg, 'E000');
        } 
	}
    
    // 미비기록을 통한 처방제어 시스템:미비기록 여부를 체크한다. 20140722 이윤주 388 미비기록 관련 처방 제한 사용 여부
    var sChkValidRecYn = lf_getHardCDList("Y", 388, 3);
    if (sChkValidRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && ds_patflag.getColumn(0, "prcpgenrflag") == "I" 
        && ds_root.getColumn(0, "addprcp") != "Y") {
        
        //staffsign 미비
        var cosigncnt = 0;
        //defetcnt 퇴원미비
        var defetcnt  = 0;
        //admpatcnt 재원미비
        var admpatcnt  = 0;

        var orddeptcd = sysf_getUserInfo("dutplcecd");
        var orddrid   = sysf_getUserInfo("userid");
        
        var sRef = dsf_createDsRow("ds_tempchkrec_reqdata", [{col:"orddeptcd", type:"string", size:256, val:orddeptcd},
														  	 {col:"orddrid",   type:"string", size:256, val:orddrid},
														     {col:"chk24mibi", type:"string", size:256, val:"Y"}]);
		var sRstlRef = dsf_createDs("ds_unprepinfo_unprepcnt");
                
        var oParam = {};
			oParam.id       = "TRMMO00154";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetChkMibiRec";
			oParam.inds     = "req=" + sRef;
			oParam.outds    = sRstlRef + "=unprepcnt";
			oParam.async    = false;

		tranf_submit(oParam);
		
		var oRstlRef = this.objects[sRstlRef];
        
        cosigncnt = oRstlRef.getColumn(0, "cosigncnt");
        defetcnt  = oRstlRef.getColumn(0, "defetcnt");
        admpatcnt = oRstlRef.getColumn(0, "admpatcnt");
        
        if (cosigncnt > 0) {
        	if (6 == sysf_messageBox("[기록미비]기록사 확인 후 24시간이내 정리되지 않은 스텝sign미비가 존재하여"+"\n"+
        	"진행 불가합니다 미비리스트창을 오픈하시겠습니까?"+"\n"+
        	"문의처:의무기록실[본원(5231~3,5324),칠곡(2401~2)]","Q999")) {
        		frmf_setParameter("SMMMO04900", "Y");
				frmf_setParameter("SMMRI01800_Indschflag", "A");	//2010.01.20 이남익 추가 : 미비구분					
				frmf_setParameter("SMMRI01800_Orddrid", orddrid);
				frmf_setParameter("SMMRI01800_Orddeptcd", orddeptcd);
				frmf_setParameter("SMMRI01800_StaffYn", "Y");
				frmf_setParameter("SMMRI01800_xsignmibi", "N");
				
				frmf_open("SMMRI01800", "SMMRI01800", null, null, null, null, null, null, null, null, null, null, "M");
        	} 
        	return false;
        }
        
        if (admpatcnt > 0) {
        	if (6 == sysf_messageBox("[기록미비]기록사 확인 후 24시간이내 정리되지 않은 재원미비가 존재하여"+"\n"+
        	"진행 불가합니다 미비리스트창을 오픈하시겠습니까?"+"\n"+
        	"문의처:의무기록파트[본원(5231~3,5324),칠곡(2401~2)]","Q999")) {
        		frmf_setParameter("SMMMO04900", "Y");
				frmf_setParameter("SMMRI01800_Indschflag", "I");	
				frmf_setParameter("SMMRI01800_Orddrid", orddrid);
				frmf_setParameter("SMMRI01800_Orddeptcd", orddeptcd);
				frmf_setParameter("SMMRI01800_StaffYn", "N");
				frmf_setParameter("SMMRI01800_xsignmibi", "Y");
						
				frmf_open("SMMRI01800", "SMMRI01800", null, null, null, null, null, null, null, null, null, null, "M");
        	}
        	return false;
        }
        
        if (defetcnt > 0) {
        	if (6 == sysf_messageBox("[기록미비]기록사 확인 후 24시간이내 정리되지 않은 퇴원미비가 존재하여"+"\n"+
        	"진행 불가합니다 미비리스트창을 오픈하시겠습니까?"+"\n"+
        	"문의처:의무기록파트[본원(5231~3,5324),칠곡(2401~2)]","Q999")) {
        		frmf_setParameter("SMMMO04900", "Y");
				frmf_setParameter("SMMRI01800_Indschflag", "D");	//2010.01.20 이남익 추가 : 미비구분					
				frmf_setParameter("SMMRI01800_Orddrid", orddrid);
				frmf_setParameter("SMMRI01800_Orddeptcd", orddeptcd);
				frmf_setParameter("SMMRI01800_StaffYn", "N");
				frmf_setParameter("SMMRI01800_xsignmibi", "Y");
				
				frmf_open("SMMRI01800", "SMMRI01800", null, null, null, null, null, null, null, null, null, null, "M");
        	}
        	return false;
        }
    }
    

    //kimsj 미비기록존재시 처방Blocking (입원만 적용)
    //100610 간호반납요청에 대한 저장시에는 미비기록blocking 제외, 100706 시행부서처방 제외
//    if (prcpchkflag != "drugdc" && model.getValue ( "/root/addprcp" ) != "Y") {
//        fChkValidRecInfo(); 
//        if ( !fValidRecInfoMsg() ) bRtn = true;
//    }
    
    return bRtn;
}

/**@desc   : 뇌졸중 평가관련 기록 유무 확인(submit)
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckApoplexyRec( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var bRtn = true;
    
    // 뇌졸증 평가 관련 기록 여부를 체크한다. 20110823 엄영만  
    var sChkApoplexyRecYn = lf_getHardCDList("Y", 300, 3); // 300 뇌졸증 평가 관련 기록 체크여부 처방 제한 사용 여부
    var sOrddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
    var findRow = ds_main_diagcdlist.findRowExpr("diagkindcdflag == 'M' && (status == '-' || status == 'I' || status == 'U')");
    var sDiagCd = (findRow == -1) ? "" : ds_main_diagcdlist.getColumn(findRow, "icd10cd");
    if(sDiagCd.length > 3) {
        sDiagCd = sDiagCd.substring(0, 3);
    }

    lf_getHardCDList("N", 301, null, ds_hidden_apoplexydeptlist); // 301 뇌졸증 평가 관련 기록 체크 주진료과
    lf_getHardCDList("N", 302, null, ds_hidden_apoplexydiaglist); // 302 뇌졸증 평가 관련 기록 체크 주진단(ICD10코드)
    
    if (sChkApoplexyRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && ds_root.getColumn(0, "addprcp") != "Y"
        && (ds_patflag.getColumn(0, "prcpgenrflag") == "I" || ds_patflag.getColumn(0, "prcpgenrflag") == "E" )
        && (ds_paminfo.getColumn(0, "atdoctid") == sysf_getUserInfo("userid") || ds_paminfo.getColumn(0, "medispclid") == sysf_getUserInfo("userid") ) // 2013.04.10 주치교수도 체크 하도록 수정. 심사팀 윤순길 팀장님 요청 엄영만
        && !utlf_isNull(ds_hidden_apoplexydeptlist.lookup("hardcd", sOrddeptcd, "hardcd"))
        && !utlf_isNull(ds_hidden_apoplexydiaglist.lookup("hardcd", sDiagCd, "hardcd")) ) {

        var sCheckCode = "";
        var sCheckAlertMsg  = "";
        var sCheckErrorMsg  = "";

        var pid      = ds_paminfo.getColumn(0, "pid");
        var indd     = ds_paminfo.getColumn(0, "indd");
        var cretno   = ds_paminfo.getColumn(0, "cretno");
        var dietprcp = "N";
        
        var sStatus = "";
        var sPrcpcd = "";
        for (var i = 0; i < ds_main_prcplist.rowcount; i++ ) {
            sStatus = ds_main_prcplist.getColumn(i, "status");
            sPrcpcd = ds_main_prcplist.getColumn(i, "prcpcd");
            if ( "I" == sStatus && lf_ContainsHardCD("427", sPrcpcd) ) { // 연하장애 서식 팝업 조건 변경 - 신규입력 처방중 식사 지시처방이 있는지 확인 한다. 2013.04.09 엄영만
                dietprcp = "Y";
                break;
            }
        }
        
        var sRef = dsf_createDsRow("ds_apoplexychkrec_reqdata", [{col:"pid",      type:"string", size:256, val:pid},
													     	  	 {col:"indd",     type:"string", size:256, val:indd},
														         {col:"cretno",   type:"string", size:256, val:cretno},
														         {col:"dietprcp", type:"string", size:256, val:dietprcp}]);
		var sRstlRef = dsf_createDs("ds_apoplexychkrec_rtndata");
        
        var oParam = {};
			oParam.id       = "TRMMO00136";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetChkApoplexyRec";
			oParam.inds     = "req=" + sRef;
			oParam.outds    = sRstlRef + "=rtndata";
			oParam.async    = false;

		tranf_submit(oParam);
		
		var oRstlRef = this.objects[sRstlRef];

        for ( var i = 0; i < oRstlRef.rowcount; i++ ) {
            var sCheckCode = oRstlRef.getColumn(i, "checkcode");
            if(sCheckCode == "ALERT"){
                if(utlf_isNull(sCheckAlertMsg))
                    sCheckAlertMsg = oRstlRef.getColumn(i, "checkmsg");
                else
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
            }
            else if (sCheckCode == "ERROR"){
                if(utlf_isNull(sCheckErrorMsg))
                    sCheckErrorMsg = oRstlRef.getColumn(i, "checkmsg");
                else
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
            }
        }

        if (!utlf_isNull(sCheckErrorMsg)){
            sCheckErrorMsg = "※ 급성 뇌졸중 평가 관련 사항 ※\n\n주 진단코드가 I60-I63인 신경과, 신경외과 환자에 대해\n\n" + sCheckErrorMsg + "\n\n" + "해당 기록 작성 후 처방이 저장이 가능 합니다."
            
            if(sysf_getUserInfo("dutplceinstcd") == "031")
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 심사실(6131)"
            else if(sysf_getUserInfo("dutplceinstcd") == "032")
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 심사실(6131)"
            
            sysf_messageBox(sCheckErrorMsg, 'E000');

            var formcd = oRstlRef.getColumn(0, "checkformcd"); // 첫 행의 서식 팝업
            
            var ioflag     = ds_paminfo.getColumn(0, "ioflag");
            var orddeptcd  = ds_paminfo.getColumn(0, "orddeptcd");
            var medispclid = ds_paminfo.getColumn(0, "medispclid");
            var orddeptnm  = ds_paminfo.getColumn(0, "orddeptnm");
            var hngnm      = ds_paminfo.getColumn(0, "hngnm");
            var sa         = ds_paminfo.getColumn(0, "sex") +"/"+ ds_paminfo.getColumn(0, "age");
            var roomcd     = ds_paminfo.getColumn(0, "roomcd");
            var disparam   = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";

            frmf_setParameter("pid",         pid);
            frmf_setParameter("orddd",       indd);
            frmf_setParameter("cretno",      cretno);
            frmf_setParameter("ioflag",      ioflag);
            frmf_setParameter("orddeptcd",   orddeptcd);
            frmf_setParameter("orddrid",     medispclid);
            frmf_setParameter("disppatinfo", disparam);  //등록번호▦환자명▦성별/나이▦진료과▦병실▦
            frmf_setParameter("openmode",    "newform"); //오픈모드는 “recform”
            frmf_setParameter("formcd",      formcd);

            frmf_modal("SSMMR01100", "SSMMR01100", "", "", 1, 0, 0, "", "", "", "", "", "M");
                
            bRtn = false;
        } else if (!utlf_isNull(sCheckAlertMsg)){
            sCheckAlertMsg = "※ 급성 뇌졸중 평가 관련 사항 ※\n\n주 진단코드가 I60-I63인 신경과, 신경외과 환자에 대해\n\n"  + sCheckAlertMsg + "\n\n" + "해당 기록이 작성 되지 않으면 처방이 저장 되지 않습니다."

            if(sysf_getUserInfo("dutplceinstcd") == "031")
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(6131)"
            else if(sysf_getUserInfo("dutplceinstcd") == "032")
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(6131)"

            sysf_messageBox(sCheckAlertMsg, 'E000');
            bRtn = true;
        } else {
            bRtn = true;
        }
    }

    return bRtn;
}

/**@desc   : 급성심근경색 평가관련 기록 유무 확인(submit)
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 11. 01
 */
function fCheckAmiRec( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var bRtn = true;
    
    // 급성심근경색 평가 관련 기록 여부를 체크한다. 2011.1101 엄영만  
    var sChkAmiRecYn = lf_getHardCDList("Y", 316, 3); // 316 급성심근경색 평가 관련 기록 체크여부 처방 제한 사용 여부
    var sOrddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
    var findRow    = ds_main_diagcdlist.findRowExpr("diagkindcdflag == 'M' && (status == '-' || status == 'I' || status == 'U')");
    var sDiagCd    = (findRow == -1) ? "" : ds_main_diagcdlist.getColumn(findRow, "icd10cd");
    if(sDiagCd.length > 3) {
        sDiagCd    = sDiagCd.substring( 0,3);
    }

    lf_getHardCDList("N", 317, null, ds_hidden_amideptlist); // 317 급성심근경색 평가 관련 기록 체크 주진료과
    lf_getHardCDList("N", 318, null, ds_hidden_amidiaglist); // 318 급성심근경색 평가 관련 기록 체크 주진단(ICD10코드)
    
    if (sChkAmiRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && ds_root.getColumn(0, "addprcp") != "Y"
        && (ds_patflag.getColumn(0, "prcpgenrflag") == "I" || ds_patflag.getColumn(0, "prcpgenrflag") == "E" )
        && ds_paminfo.getColumn(0, "atdoctid") == sysf_getUserInfo("userid")
        && !utlf_isNull(ds_hidden_amideptlist.lookup("hardcd", sOrddeptcd, "hardcd"))
        && !utlf_isNull(ds_hidden_amidiaglist.lookup("hardcd", sDiagCd, "hardcd")) ) {

        var sCheckCode = "";
        var sCheckAlertMsg  = "";
        var sCheckErrorMsg  = "";

        var pid    = ds_paminfo.getColumn(0, "pid");
        var indd   = ds_paminfo.getColumn(0, "indd");
        var cretno = ds_paminfo.getColumn(0, "cretno");
        
        var sRef = dsf_createDsRow("ds_amichkrec_reqdata", [{col:"pid",      type:"string", size:256, val:pid},
													     	{col:"indd",     type:"string", size:256, val:indd},
														    {col:"cretno",   type:"string", size:256, val:cretno}]);
		var sRstlRef = dsf_createDs("ds_amichkrec_rtndata");
        
        var oParam = {};
			oParam.id       = "TRMMO00137";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetChkAmiRec";
			oParam.inds     = "req=" + sRef;
			oParam.outds    = sRstlRef + "=rtndata";
			oParam.async    = false;

		tranf_submit(oParam);
		
		var oRstlRef = this.objects[sRstlRef];

        for ( var i = 0; i < oRstlRef.rowcount; i++ ) {
            var sCheckCode = oRstlRef.getColumn(i, "checkcode" );
            if(sCheckCode == "ALERT"){
                if(utlf_isNull(sCheckAlertMsg)) {
                    sCheckAlertMsg = oRstlRef.getColumn(i, "checkmsg");
                } else {
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
                }
            }
            else if (sCheckCode == "ERROR"){
                if(utlf_isNull(sCheckErrorMsg)) {
                    sCheckErrorMsg = oRstlRef.getColumn(i, "checkmsg");
                } else {
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
                }
            }
        }

        if (!utlf_isNull(sCheckErrorMsg)){
            sCheckErrorMsg = "※ 급성 심근경색 평가 관련 사항 ※\n\n주 진단코드가 I21인 순환기내과 환자에 대해\n\n" + sCheckErrorMsg + "\n\n" + "해당 기록 작성 후 처방이 저장이 가능 합니다.";
            
            if(sysf_getUserInfo("dutplceinstcd") == "031") {
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 심사실(6131)";
            } else if(sysf_getUserInfo("dutplceinstcd") == "032") {
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 심사실(6131)";
            }
            
            sysf_messageBox(sCheckErrorMsg, 'E000');

            var formcd = oRstlRef.getColumn(0, "checkformcd"); // 첫 행의 서식 팝업
            
            var ioflag     = ds_paminfo.getColumn(0, "ioflag");
            var orddeptcd  = ds_paminfo.getColumn(0, "orddeptcd");
            var medispclid = ds_paminfo.getColumn(0, "medispclid");
            var orddeptnm  = ds_paminfo.getColumn(0, "orddeptnm");
            var hngnm      = ds_paminfo.getColumn(0, "hngnm");
            var sa         = ds_paminfo.getColumn(0, "sex") +"/"+ ds_paminfo.getColumn(0, "age");
            var roomcd     = ds_paminfo.getColumn(0, "roomcd");
            var disparam   = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";

            frmf_setParameter("pid",         pid);
            frmf_setParameter("orddd",       indd);
            frmf_setParameter("cretno",      cretno);
            frmf_setParameter("ioflag",      ioflag);
            frmf_setParameter("orddeptcd",   orddeptcd);
            frmf_setParameter("orddrid",     medispclid);
            frmf_setParameter("disppatinfo", disparam);  //등록번호▦환자명▦성별/나이▦진료과▦병실▦
            frmf_setParameter("openmode",    "newform"); //오픈모드는 “recform”
            frmf_setParameter("formcd",      formcd);

            frmf_modal("SSMMR01100", "SSMMR01100", "", "", 1, 0, 0, "", "", "", "", "", "M");
                
            bRtn = false;
        } else if (sCheckAlertMsg != ""){
            sCheckAlertMsg = "※ 급성 심근경색 평가 관련 사항 ※\n\n주 진단코드가 I21인 순환기내과 환자에 대해\n\n"  + sCheckAlertMsg + "\n\n" + "해당 기록이 작성 되지 않으면 처방이 저장 되지 않습니다.";

            if(sysf_getUserInfo("dutplceinstcd") == "031") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(6131)";
            } else if(sysf_getUserInfo("dutplceinstcd") == "032") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(6131)";
            }

            sysf_messageBox(sCheckAlertMsg, 'E000');
            bRtn = true;
        } else {
            bRtn = true;
        }
    }

    return bRtn;
}

/**@desc   : 제왕절개분만 적정성평가 위험도 보정요인 서식 기록 유무 확인(submit)
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
             심사실 김현주(6127) 요청 2012.01.05일 정규 배포 본원만 적용하고 칠곡은 적용하지 않음.
 * @return : true, false
 * @authur : 엄영만 2011. 11. 01
 */
function fCheckChildbirthRec( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var bRtn = true;
    
    // 제왕절개분만 적정성평가 관련 기록 여부를 체크한다. 2012.0103 엄영만  
    var sChkChildbirthRecYn = lf_getHardCDList("Y", 321, 3); // 321 제왕절개분만 적정성평가 관련 기록 체크여부 처방 제한 사용 여부
    var sOrddeptcd = ds_paminfo.getColumn(0, "orddeptcd");
    
    lf_getHardCDList("N", 322, null, ds_hidden_childbirthdeptlist); // 322 제왕절개분만 적정성평가 관련 기록 체크 주진료과
    
    if (sChkChildbirthRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && ds_root.getColumn(0, "addprcp") != "Y"
        && (ds_patflag.getColumn(0, "prcpgenrflag") == "I" || ds_patflag.getColumn(0, "prcpgenrflag") == "E" )
        && ds_paminfo.getColumn(0, "atdoctid") == sysf_getUserInfo("userid")
        && !utlf_isNull(ds_hidden_childbirthdeptlist.lookup("hardcd", sOrddeptcd, "hardcd" )) ) {

        var sCheckCode = "";
        var sCheckAlertMsg  = "";
        var sCheckErrorMsg  = "";
        var sCheckPrcpExist = "N";  // 제왕절개 관련 처방 존재 여부 디폴트 N 없음.
        
        var pid    = ds_paminfo.getColumn(0, "pid");
        var indd   = ds_paminfo.getColumn(0, "indd");
        var cretno = ds_paminfo.getColumn(0, "cretno");
        
        if (utlf_isNull(saveNode)) saveNode = "ds_main_prcplist";
		var ds_savePrcp     = this.objects[saveNode];
        var savePrcpCnt     = ds_savePrcp.rowcount
        var savePrcpCd      = "";
        var savePrcpStatus  = "";

        lf_getHardCDList("N", 323, null, ds_hidden_childbirthprcplist); // 323 제왕절개분만 적정성평가 관련 기록 체크 처방코드
        
        for (var i = 0;  i < savePrcpCnt; i++) {  // 저장 하는 화면에서 제왕절개분만 적정성평가 관련 처방 코드가 있는지 조회 한다.
            savePrcpCd      = ds_savePrcp.getColumn(i, "prcpcd" );
            savePrcpStatus  = ds_savePrcp.getColumn(i, "status" );
            
            if ( !utlf_isNull(ds_hidden_childbirthprcplist.lookup("hardcd", savePrcpCd, "hardcd")) 
                && savePrcpStatus != "S"  && savePrcpStatus != "-") {
                sCheckPrcpExist = "Y";
                break;
            }
        }
        
        var sRef = dsf_createDsRow("ds_childbirthchkrec_reqdata", [{col:"pid",      type:"string", size:256, val:pid},
													           	   {col:"indd",     type:"string", size:256, val:indd},
														           {col:"cretno",   type:"string", size:256, val:cretno},
														           {col:"prcpexist",   type:"string", size:256, val:sCheckPrcpExist}]);
		var sRstlRef = dsf_createDs("ds_childbirthchkrec_rtndata");
        
        var oParam = {};
			oParam.id       = "TRMMO00138";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetChkChildbirthRec";
			oParam.inds     = "req=" + sRef;
			oParam.outds    = sRstlRef + "=rtndata";
			oParam.async    = false;

		tranf_submit(oParam);
		
		var oRstlRef = this.objects[sRstlRef];

        for ( var i = 0; i < oRstlRef.rowcount; i++ ) {
            var sCheckCode = oRstlRef.getColumn(i, "checkcode" );
            if(sCheckCode == "ALERT"){
                if(utlf_isNull(sCheckAlertMsg)) {
                    sCheckAlertMsg = oRstlRef.getColumn(i, "checkmsg");
                } else {
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
                }
            }
            else if (sCheckCode == "ERROR"){
                if(utlf_isNull(sCheckErrorMsg)) {
                    sCheckErrorMsg = oRstlRef.getColumn(i, "checkmsg");
                } else {
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + oRstlRef.getColumn(i, "checkmsg");
                }
            }
        }

        if (!utlf_isNull(sCheckAlertMsg)){
            sCheckAlertMsg = "※ 제왕절개 분만 적정성 평가 관련 사항 ※\n\n분만수술 처방이 있는 산부인과 환자에 대해\n\n" 
                            + sCheckAlertMsg + "\n\n" + "해당 기록 작성 되지 않으면 퇴원 예고가 불가능 합니다.";
            
            if(sysf_getUserInfo("dutplceinstcd") == "031") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(6127)";
            } else if(sysf_getUserInfo("dutplceinstcd") == "032") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(2180)";
            }
                
            sCheckAlertMsg = sCheckAlertMsg + "\n\n지금 작성";
            var selectedval = sysf_messageBox(sCheckAlertMsg, 'S001');
            
            if(selectedval == "6") { // 지금 작성 하면 서식을 팝업으로 뛰우고 "아니오" 선택 하면 그대로 처방 저장 진행
                var formcd = oRstlRef.getColumn(0, "checkformcd"); // 첫 행의 서식 팝업
                
                var ioflag     = ds_paminfo.getColumn(0, "ioflag");
                var orddeptcd  = ds_paminfo.getColumn(0, "orddeptcd");
                var medispclid = ds_paminfo.getColumn(0, "medispclid");
                var orddeptnm  = ds_paminfo.getColumn(0, "orddeptnm");
                var hngnm      = ds_paminfo.getColumn(0, "hngnm");
                var sa         = ds_paminfo.getColumn(0, "sex") +"/"+ ds_paminfo.getColumn(0, "age");
                var roomcd     = ds_paminfo.getColumn(0, "roomcd");
                var disparam   = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";
    
                frmf_setParameter("pid",         pid);
                frmf_setParameter("orddd",       indd);
                frmf_setParameter("cretno",      cretno);
                frmf_setParameter("ioflag",      ioflag);
                frmf_setParameter("orddeptcd",   orddeptcd);
                frmf_setParameter("orddrid",     medispclid);
                frmf_setParameter("disppatinfo", disparam);  //등록번호▦환자명▦성별/나이▦진료과▦병실▦
                frmf_setParameter("openmode",    "newform"); //오픈모드는 “recform”
                frmf_setParameter("formcd",      formcd);
    
                frmf_modal("SSMMR01100", "SSMMR01100", "", "", 1, 0, 0, "", "", "", "", "", "M");
                bRtn = false;
            }else if(selectedval == "2") { // 취소 선택
                bRtn = false;
            }else { // 아니오 선택
                bRtn = true;
            }
        } else {
            bRtn = true;
        }
    }

    return bRtn;
}

/**@desc   : 임상연구 환자 체크
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckClincStdy( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    if (prcpgenrflag == 'O') {
        if(ds_paminfo.getColumn(0, "insukind") == "71") {
			var findRow = ds_main_prcplist.findRowExpr("status == 'I' && clincstdyflag != 'Y' && prcpclscd != '09'");
            if(findRow != -1 && !utlf_isNull(ds_main_prcplist.getColumn(findRow, "prcpcd"))) {
                sysf_messageBox ("임상연구 보험유형입니다. 전체 처방에 상세/일괄팝업을 통하여 '임상연구' 체크를 해주시기 바랍니다.", "I");
                return false;
            }
        } else {
			var findRow = ds_main_prcplist.findRowExpr("status == 'I' && clincstdyflag == 'Y'");
            if(findRow != -1 && !utlf_isNull(ds_main_prcplist.getColumn(findRow, "prcpcd"))) {
                sysf_messageBox ("보험유형이 임상연구가 아닙니다. 임상연구 처방을 입력 할수 없습니다.", "I");
                return false;
            }
        }
    }

    return true;
}

/**@desc   : 퇴원예고 후 퇴원처방 날짜체크: 퇴원예고 다음날로는 처방 불가
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2012. 11. 01
 */
function fCheckDsch( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var prcpgenrflag = ds_patflag.getColumn(0, "prcpgenrflag");
    
    //퇴원예고 후 퇴원처방 날짜체크: 퇴원예고 다음날로는 처방 불가
    if ( prcpgenrflag != "O"  &&  prcpgenrflag != "E" ){ //응급일 경우 퇴원예정일 check부분 제외처리 .by sonjy 2008-09-10 조범준과장님 요청.
        if ( ds_paminfo.getColumn(0, "dschdclrtyn") == "Y" 
             && !utlf_isNull(ds_main_prcplist.lookup("status", 'I', "prcpcd"))) {
            if ( lf_getDsValue(ds_paminfo, 0, "dschdclrdt").length >= 8 ) {
                var dschdclrdd = ds_paminfo.getColumn(0, "dschdclrdt").substring(0,8);
                var sIprcAddYn = ds_paminfo.getColumn(0, "iprcaddyn"); // 추가처방 발행여부(심사실 가퇴원 환자)는 처방저장 가능 체크 제외 2012.04.16
                if ( sIprcAddYn != "Y" && eval(ds_init.getColumn(0, "prcpdd")) > eval( dschdclrdd ) ) {
                    if ( ds_root.getColumn(0, "addprcp") != "Y" ) {
                        sysf_messageBox ( "퇴원예정일[" + dschdclrdd + "] 이후 날짜로는 처방을 내리실 수", "I004" );
                        return false;
                    }
                } 
            }
        }       
    }
    
    return true;
}

/**@desc   : 이식전 검사(Pre Work Up) 환자 여부 체크
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : 대상 여부(Y/N)
 * @authur : 엄영만 2012. 11. 07
 */
function fCheckPreWorkUp ( prcpflag, savekindflag, saveNode, prcpchkflag ){
    var bRtn = false;
    var sIoFlag = ds_patflag.getColumn(0, "prcpgenrflag");
    ds_save_saveflaginfo.setColumn(0, "preworkup",   "N"); // 디폴트값
    
    if(   sIoFlag == "O"
       && prcpflag == "0"
       && savekindflag == "0"
       && ds_root.getColumn(0, "addprcp" ) != "Y") { // 외래, 의사처방 일때만 체크
        ds_save_saveflaginfo.setColumn(0, "preworkup",   "N"); // 디폴트값

		var findRow  = ds_main_diagcdlist.findRowExpr("diagkindcdflag == 'M' && (status == '-' || status == 'I' || status == 'U' || status == 'T')");
        var sIcd10Cd = (findRow == -1) ? "" : ds_main_diagcdlist.getColumn(findRow, "icd10cd");
        lf_getHardCDList("N", 337, null, ds_hidden_chkworkupicd10list); // 337 장기이식 관련 체크 주상병

        if(!utlf_isNull(ds_hidden_chkworkupicd10list.lookup("hardcd", sIcd10Cd, "hardcd")) ) { // 적용가능한 진단.
            var pid    = ds_paminfo.getColumn(0, "pid");
            var orddd  = ds_paminfo.getColumn(0, "orddd");
            
            var sRef = dsf_createDsRow("ds_chkworkupreg_reqdata", [{col:"pid",    type:"string", size:256, val:pid},
                                                                   {col:"orddd",  type:"string", size:256, val:orddd}]);
            var sRstlRef = dsf_createDs("ds_chkworkupreg_rtndata");
            
            var oParam = {};
				oParam.id       = "TRMMO00139";
				oParam.service  = "prcpmngtapp.PrcpMngt";
				oParam.method   = "reqGetWorkUpRegYn";
				oParam.inds     = "req=" + sRef;
				oParam.outds    = sRstlRef + "=rtndata";
				oParam.async    = false;

			tranf_submit(oParam);
			
			var oRstlRef = this.objects[sRstlRef];

            var sWorkUpRegYn = oRstlRef.getColumn(0, "regyn");
            
            if("Y" == sWorkUpRegYn) { // 수혜자 등록 여부 체크
                bRtn = true;
            } else {
                if("6" == sysf_messageBox("주진단이 장기이식 기증자 진단으로 입력된  모든 처방은 [donor w/u]으로 적용 됩니다.\n\n계속 진행하실 경우 [Y]를 적용을 원하지 않을경우 [N] 선택 후 주진단을 변경 하십시요.", "Q")) {
                    ds_save_saveflaginfo.setColumn(0, "preworkup", "Y");
                    bRtn = true;
                } else {
                    bRtn = false;
                }
            }
        } else { // 장기기증과 관련 없는 일반적인 환자 
            var sDnorAcptYn = ds_paminfo.getColumn(0, "dnoracptyn" );
            if("Y" == sDnorAcptYn) {
                sysf_messageBox("주진단의 변경으로 장기이식 기증자 [donor w/u] 유형이 취소 됩니다.", "I999");
            }
            
            bRtn = true;
        }
    } else {
        ds_save_saveflaginfo.setColumn(0, "preworkup",   "N"); // 디폴트값
        bRtn = true;
    }
    
    return bRtn;
}

function fCompareNonPrgDiag () {
	var findRow = ds_main_diagcdlist.findRowExpr("diagkindcdflag == 'M' && (status == '-' || status == 'I' || status == 'U')");
	var findRow1 = ds_initsrch_hardcdlist.findRowExpr("hardcdno == '409' && cdseqno == '1'");
	var findRow2 = ds_initsrch_hardcdlist.findRowExpr("hardcdno == '409' && cdseqno == '2'");
	var findRow3 = ds_initsrch_hardcdlist.findRowExpr("hardcdno == '409' && cdseqno == '3'");
	var findRow4 = ds_initsrch_hardcdlist.findRowExpr("hardcdno == '409' && cdseqno == '4'");
	
	if ( findRow  < 0 ) return "N";
    if ( findRow1 < 0 ) return "N";
    if ( findRow2 < 0 ) return "N";
    if ( findRow3 < 0 ) return "N";
    if ( findRow4 < 0 ) return "N";
	
    var icd10cd = ds_main_diagcdlist.getColumn(findRow, "icd10cd");
    var hardcd1 = ds_initsrch_hardcdlist.getColumn(findRow1, "hardcd");
    var hardcd2 = ds_initsrch_hardcdlist.getColumn(findRow2, "hardcd");
    var hardcd3 = ds_initsrch_hardcdlist.getColumn(findRow3, "hardcd");
    var hardcd4 = ds_initsrch_hardcdlist.getColumn(findRow4, "hardcd");
  
    if ( icd10cd.length < 3 ) return "N";
    if ( hardcd1.length < 3 ) return "N";
    if ( hardcd2.length < 3 ) return "N";
    if ( hardcd3.length < 3 ) return "N";
    if ( hardcd4.length < 3 ) return "N";
  
    var icd10cdSub = icd10cd.substr(0, 3);
    var hardcd1Sub = hardcd1.substr(0, 3);
    var hardcd2Sub = hardcd2.substr(0, 3);
    var hardcd3Sub = hardcd3.substr(0, 3);
    var hardcd4Sub = hardcd4.substr(0, 3);
 
    if (hardcd1Sub <= icd10cdSub && icd10cdSub <= hardcd2Sub ){
        return "Y";
    } else if (hardcd3Sub <= icd10cdSub && icd10cdSub <= hardcd4Sub ){
        return "Y";
    } else {
        return "N";
    }
}

/**@-----------------------------------------------------------------------------------
 * @desc   : 스크린 중앙 포인트 조회  
 * @param  : nAxis : X축Y축구분(0:X축, 1:Y축), nPadding : 공백(px), nMonitorNumber : 모니터번호
 * @return : 센터 포인트값
 * @-----------------------------------------------------------------------------------
 */
function getScreenCenterPoint(nAxis, nPadding, nMonitorNumber) {        
    if(parseInt(nAxis) != 0 && parseInt(nAxis) != 1)
        nAxis = 0; // 디폴트 X축
 
    if(utlf_isNull(nMonitorNumber) || parseInt(nMonitorNumber) < 0 || parseInt(nMonitorNumber) >= system.monitorcount) { // 모니터값이 없거나 잘못된 값일 경우
        nMonitorNumber = sysf_getCurrentMonitorNumber(); // 화면이 로딩된 모니터 번호를 반환한다.
    }
    
    var objScreenInfo     = system.getScreenRect(nMonitorNumber);
    var resolution_width  = 1280;
	var resolution_height = 1024;	// 디폴트로 1280,1024로 한다.
        
    if(!utlf_isNull(objScreenInfo)) {
		resolution_width  = objScreenInfo.right - objScreenInfo.left;
		resolution_height = objScreenInfo.bottom - objScreenInfo.top;
    }

    var resolution_pixel = (nAxis == 0) ? resolution_width : resolution_height;
    
    if(utlf_isNull(nPadding) || nPadding < 0 || nPadding > resolution_pixel) { // 값이 없거나 음수, 화면크기보다 크면
        nPadding = 0;
    }

    return Math.round((resolution_pixel - parseInt(nPadding)) / 2);
}

function getTuningYn(){
    var sRTC = "ds_prcpsave_rtc_codeinfo";  // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로 인증저장 버튼 클릭시 신규 조회 한다. 2013.06.05 엄영만
    var ds_codeinfo = this.objects[sRTC];
    var sTuningYn = ds_codeinfo.lookup("hardcdno", '423', "trgtcd"); // 신규로직 적용여부
    
    var findRow425 = ds_codeinfo.findRowExpr("hardcdno == '425' && trgtcd == '" + sysf_getUserInfo("userid") + "'");
    
    if(sTuningYn == "Y") {
        sTuningYn = "Y";
    } else if (sTuningYn == "S" && !utlf_isNull(ds_codeinfo.getColumn(findRow425, "trgtcd"))) {
        sTuningYn = "Y";
    } else {
        sTuningYn = "N";
    }
 
    return sTuningYn; 
}]]></Script>