YNU_JEUS/app_home/himed/webapps/tmp/testweb/js/SMMMO99998.js

/*function list
fBaseCdInit: 처방화면 공통코드 초기화
fInitializeScreen: 처방화면 세팅 초기화
fInitializeConDone: 처방화면 초기화 ( xforms-model-construct-done )
fInitializeReady: 처방화면 초기화( xforms-ready )
fGetClinicQuickViewInf : 기초임상정보 선택화면 표시
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 prcpclscd = 2; 
var prcpKindCdCol = 3;      //처방종류 index
var prcpnmCol = 5;          //처방명 컬럼 index
var prcpVolCol = 6;         //용량 컬럼 index
var prcpQtyCol = 8;         //수량 컬럼 index
var prcpTimsCol = 10;       //횟수 컬럼 index
var prcpDayNoCol = 11;      //일수 컬럼 index
var prcpDeliveFactCol = 15; //전달사항 컬럼 index
var prcpHopeHdCol = 18;     //희망일자 컬럼 index
var ContPrcpDdRow = 6;      //지정일 instance row

var prcpNode = "/root/main/prcp/prcplist";
var diagNode = "/root/main/diaginfo/diagcdlist";

var prcpgenrflag = "";      //외래입원구분
var bfPrcpdd = "";          //처방일자를 바꾸기 전의 값을 담아둠
var diagnmCol = 4;

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

/**
 * @desc   : 처방화면 공통코드 초기화
 * @id     : model1
 * @event  : xforms-model-construct-done
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fBaseCdInit() {
    mmbfGetDeptCodeComboList("/root/temp/reqdata", "/root/issdept", "I");
    fPrcpExecDeptSrch("all");
    zbcfGetCodeList(new Array("M0003",
                              "M0005",
                              "M0011",
                              "P0034",
                              "M0029",
                              "M0046",
                              "M0007",
                              "M0545"), 
                    new Array("/root/init/prcpkindcd",
                              "/root/init/prcpclscd",
                              "/root/init/prcpstatcd",
                              "/root/init/hosinprcpresncd",
                              "/root/init/payflagcd",
                              "/root/init/rehbprcpcurepartcd",
                              "/root/init/opansflagcd",
                              "/root/init/conttestintvlflag"));

    //fGetHardCDList("N", 264, 0 , "/root/hidden/centdeptinfo");
    fGetHardCDList("N", 274, 0 , "/root/hidden/c6specdrlist");
    fGetHardCDList("N", 275, 0 , "/root/init/autosetprcplist");
    fGetHardCDList("N", 282, 0 , "/root/hidden/securelimitdeptlist");
    fGetHardCDList("N", 285, 0 , "/root/hidden/specprcpdrinfo");  // 영상의학과 선택진료 교수 자동 배정
    fGetHardCDList("N", 287, 0 , "/root/hidden/d2specdrlist");  // 병리과 의사 자동배정
    fGetHardCDList("N", 289, 0 , "/root/hidden/b2specdrlist");  // 진검 선택진료 의사 자동배정
    fGetHardCDList("N", 270, 0 , "/root/init/operationroominfo");   // 일일수술실 수술방을 조회한다. 
    
    
    //20110211 mjm 추가 선택진료의 로그인 했을 때 가져오는 것으로 수정
    var srcNodes = instance1.selectNodes("/root/initsrch/usercombo");   
    
      if ( srcNodes.length > 0 ) {              
        var specdrinfoNodes = instance1.selectNodes("/root/init/specdrinfo/usercombo");
        if ( specdrinfoNodes.length < 2 ) {
            var targetNodes = instance1.selectSingleNode("/root/init/specdrinfo");
                for(i=0; i<srcNodes.length; i++) {
                    var newNode = srcNodes.item(i).cloneNode(true);
                    targetNodes.appendChild(newNode);
                }
        }   
        } else  {
            messageBox("현재 프로그램 배포로 인해 진료에 필요한 데이터를 재조회 해야합니다. 죄송하지만 반드시 다시 로그인 해주시기 바랍니다.", "");         
        mmbfGetUserComboList("/root/send/reqdata", "/root/init/specdrinfo" , 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 = grdBaseColHidn("D");
  grdBaseColHidn(colHidnValue);  
  //처방화면 초기화
  grd_prcplist.col = prcpnmCol;
  grd_prcplist.row = grd_prcplist.rows - 1;
  
  //진단화면 초기화
  grd_diaglist.col = diagnmCol;
  grd_diaglist.row = grd_diaglist.rows - 1;
  
  // 처방 메인 refresh 단일화를 위한 셋팅 - 20081212 by Moonsh
  var refreshInfo = getGlobalVariable("OrderMainRefresh");
  if ( refreshInfo != "Y" ) {
    model.setfocus( "grd_prcplist" );    
    //btn_editcell.dispatch("DOMActivate"); //처방 인증저장 후 다른 화면 클릭 시 화면 죽는 현상을 막고자 강제 editmode 설정 막음 (서소영선생님고 협의, 2010.02.01 JJE)
    model.recalculate();        
  }  

}

function fClinicHintShow(idx, obj) {
    var dateVal = model.getValue("/root/main/clinicinf/ctime"+idx);
    if (dateVal != "") {
        obj.hint = dateVal;
    }
}

/*기초임상정보 QuickView 선택항목 표시 2010.11.09 이창우 */
/*기능 보류 2010.11.16*/
function fGetClinicQuickViewInf() {
/*
    for (var i = 1; i < 4; i++) {
        model.setValue("/root/main/clinicinf/title"+i, "");
        model.setValue("/root/main/clinicinf/ctime"+i, "");
        model.setValue("/root/main/clinicinf/value"+i, "");
    }
    model.removenode("/root/send/clinicuser");
    model.makeValue("/root/send/clinicuser/pid",    model.getValue("/root/paminfo/list/pid"));
    model.makeValue("/root/send/clinicuser/deptcd", model.getValue("/root/paminfo/list/orddeptcd"));
    submit("TRMMO00134");
    model.removenode("/root/send/clinicuser");
    var infCnt = model.getXPathValue("count(/root/tempclinic/clinicinf)");
    if (infCnt > 0) {
        var arrTemp = new Array();
        var arrTempCnt = 0;
        var itemcode = "";
        var itemsnm = "";
        var recdd = "";
        var recdata = "";
        var sourceNode;
        var selement1;
        var selement2;
        var selement3;

        var exceptCodes = new Array();
        var exceptCnt = 0;
        var isExcept = false;
        
        for (var i = 1; i <= infCnt; i++) {
            itemcode = model.getValue("/root/tempclinic/clinicinf["+i+"]/itemcode");
            
            for (var j = 0; j < exceptCnt; j++) {
                if (exceptCodes[j] == itemcode) {
                    isExcept = true;
                    break;
                }
            }
            
            if (isExcept) { continue; }
            
            itemsnm = model.getValue("/root/tempclinic/clinicinf["+i+"]/itemsnm");
            recdd = model.getValue("/root/tempclinic/clinicinf["+i+"]/recdd");
            recdata = model.getValue("/root/tempclinic/clinicinf["+i+"]/recdata");

            if (recdd != "") {
                recdd = recdd.substring(0,4)+"-"+recdd.substring(4,6)+"-"+recdd.substring(6,8);
            }

            sourceNode = model.instance1.selectNodes("/root/tempclinic/clinicinf[itemcode != '"+itemcode+"' and itemsnm='"+itemsnm+"']");
            if (sourceNode != null) {
                while( (selement1 = sourceNode.nextNode() ) != null ) {
                    selement2 = selement1.childNodes;
                    while((selement3 = selement2.nextNode()) != null) {
                        
                        if (selement3.tagName == "recdd") {
                            var tmprecdd = selement3.text
                            recdd += " / "+ tmprecdd.substring(0,4)+"-"+tmprecdd.substring(4,6)+"-"+tmprecdd.substring(6,8);
                        } else if (selement3.tagName == "recdata") {
                            recdata += " / "+selement3.text;
                        } else if (selement3.tagName == "itemcode") {
                            exceptCodes[exceptCnt++] = selement3.text;
                        }
                    }
                }
            }
            arrTemp[arrTempCnt] = new Array();
            arrTemp[arrTempCnt][0] = itemcode;
            arrTemp[arrTempCnt][1] = itemsnm;
            arrTemp[arrTempCnt][2] = recdd;
            arrTemp[arrTempCnt][3] = recdata;
            arrTempCnt++;
        }

        for (var i = 0; i < arrTempCnt; i++) {
            if (i == 3) {
                break;
            }
            model.setValue("/root/main/clinicinf/title"+(i+1), arrTemp[i][1]);
            model.setValue("/root/main/clinicinf/ctime"+(i+1), arrTemp[i][2]);
            model.setValue("/root/main/clinicinf/value"+(i+1), arrTemp[i][3]);
        }

        grp_clinicinf.refresh();
    }
*/
}

/**
 * @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 = getOpenWindow("SMMMO04100");    
         var SMMMO04100_chk = ordPatObj.javascript.getParameter("SMMMO04100_chk");
         if(ordPatObj != null && SMMMO04100_chk  == "Y"){
              ordPatObj.javascript.setParameter("SMMMO00100_S3",SMMMO00100_S.getTime());
          }
     } catch(e) {
     }
    //xforms-ready 에 썼더니 변하는게 보인다.
    
    // 2007.12.07 추가 (Cp창이 열려있다면 close)
    grd_prcplist.backcoloralternate = "transparent";
    grd_diaglist.backcoloralternate = "transparent";
    model.removeNodeSet ( prcpNode );                                      //처방화면 그리도 초기화
    appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //검색라인추가
  
    var prcpgenrflag = "";
    var patFlagCvs = getGlobalVariable("patflag");
    if(patFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
        model.removeNodeSet ( "/root/patflag/list" ); //상단화면 정보 초기화
        setCSVToNode ( "/root/patflag", patFlagCvs );
        prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    }
    
    var pamInfoCvs = getGlobalVariable("paminfo");
    var insukindcd =  getPatientInfoDetail("insukind");
    var vopt_insuinfo = "";
    if(pamInfoCvs != null){ //cvs가 null이 아닌 경우에만 처리함.
        model.removeNodeSet ( "/root/paminfo/list" ); //상단화면 정보 초기화
        setCSVToNode ( "/root/paminfo", pamInfoCvs );
        model.setValue ( "/root/init/pid", model.getValue ( "/root/paminfo/list/pid" ));
        
        var vopt_patinfo  = model.getValue ( "/root/paminfo/list/dispnm2" ) + " " + model.getValue ( "/root/paminfo/list/sex" ) + "/" + model.getValue ( "/root/paminfo/list/age" );
        if ( model.getValue ( "/root/paminfo/list/roomcd" ) != "" ){
            vopt_patinfo = vopt_patinfo + " " + model.getValue ( "/root/paminfo/list/roomcd" ) + "호";
        }
      
        if(prcpgenrflag == "O" && model.getValue ( "/root/paminfo/list/dnoracptyn" ) == "Y") {
            vopt_patinfo = vopt_patinfo + " [donor w/u]";
        }
        
        if( (prcpgenrflag == "I" || prcpgenrflag == "E" || prcpgenrflag == "D") && getPatientInfoDetail("drgyn") == "Y" ) { //DRG 환자 표시 2013.05.06 엄영만
            vopt_patinfo = vopt_patinfo + " [DRG]";
        }
        model.setValue ( "/root/init/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 =   "[" + getPatientInfo("insukind") + "]" ;
        }
      
        model.setValue ( "/root/init/insuinfo", vopt_insuinfo );
        if ( insukindcd == "31" || insukindcd =="41"){
            if (getPatientInfoDetail("ioflag") == "O"){
                model.makeValue ( "/root/paminfo/list/remark",  "자보/산재 환자입니다. \n관련 처방을 모두 [급여]로 처방하여 주시기 바랍니다.\n기왕증은 건강보험으로 재접수하여 처방해 주시기 바랍니다." );
            }else {
                model.makeValue ( "/root/paminfo/list/remark",  "자보/산재 환자입니다. \n관련 처방은 모두 [급여]로 처방하여 주시기 바랍니다. \n그 외 처방은 처방 상세팝업에서 기왕증 체크 후 처방해 주시기 바랍니다." );
            }
            group_rmk.visible = true;
        }
    }
    //PRN 적용여부를 실시간으로 가져와서 체크한다. 2010-01-02 by LYJ 
    reqHardCodeInfo("/root/hidden/prnprcpyninfo", "/root/hidden/prnprcpyninfo", "173");
    model.makeValue( "/root/save/saveflaginfo/prnprcpyninfo", model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd") );
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
        cmb_prcpkind.visible      = false; 
        cmb_prcpdd.visible        = false;
        cmb_issdept.visible       = true;
        cmb_hosinprcpresn.visible = true;
        btn_issdept.visible       = true;
        caption1.visible = true;
        button21.visible = true;       //kimsj 되의뢰버튼 
        cmb_issdept.attribute ( "left" ) = "454";
        btn_issdept.attribute ( "left" ) = "558";
        cmb_hosinprcpresn.attribute( "left" ) = "695";
        cmb_hosinprcpresn.attribute( "width" )= "240";  //298-58=240
        
        btn_prcpsave2.disabled = false;  // 진료예약 + 인증저장
        //btn_prcpsave3.disabled = false;  // 가셔야할 곳 출력 및 인증저장
        bool_patgolistprtyn.disabled = false;
        btn_prtpattogo.visible = true;
        
        grd_prcplist.colHidden(prcpKindCdCol) = true;
        
        model.setValue ( "/root/init/prcpkindcd", "20" ); //처방종류(추가)
        model.setValue ( "/root/init/prcpdd", model.getValue ( "/root/paminfo/list/orddd" ));
        
        //20110104. mjm수정. 경부의 원무 프로세스상 원무의 환자원내 사유를 가져오지 않게 주석처리      
        model.setValue ( "/root/init/hosinprcpresncd", "00");
        
        //20080927 마정민 수정. 외래환자가 암센터인경우는 발행처를 암센터로 한다.
        // 20101227 김영학 수정 외래환자가 센터로 접수한 경우는 발행처를 센터로 한다. 
        // 2010. 12. 31 특정 센터만 발행처를 센터로 한다. 칠곡병원 김진경 선생님 요청
        var patcentcd = model.getValue ( "/root/paminfo/list/centcd" );
        var chkCentcd = model.getValue("/root/hidden/centdeptinfo/hardcd[hardcd='" + model.getValue ( "/root/paminfo/list/centcd" ) + "']/hardcd");
        if ( chkCentcd != null  && chkCentcd != "") {
          model.setValue ("/root/issdept", model.getValue ( "/root/paminfo/list/centcd" ));
        } else {
          model.setValue ( "/root/issdept", model.getValue ( "/root/paminfo/list/orddeptcd" ));
        }
    } else { //입원, 응급일때           
        if (prcpgenrflag == "I") {
            model.setValue ( "/root/init/hosinprcpresncd", "00"); 
            button21.visible = false;       //kimsj 되의뢰버튼 - 입원일 경우 보이지 않도록 설정
        } else {             
            model.setValue ( "/root/init/hosinprcpresncd", model.getValue ( "/root/paminfo/list/hosoutexptresncd" ));     
            button21.visible = true;    //kimsj 되의뢰버튼
        }
        
        // 응급실 발행부서 관련 셋팅. 응급실 환자의 경우 센서스에 등록되어 있는 부서코드로 발행부서를 셋팅해준다.2012.04.24 엄영만       
        var erissdeptcd = model.getValue("/root/paminfo/list/erissdeptcd");
        if (prcpgenrflag == "E" && !isNull(erissdeptcd) && erissdeptcd != "-") {
            model.setValue (  "/root/issdept", erissdeptcd);
        } else {
            model.setValue ( "/root/issdept", model.getValue ( "/root/paminfo/list/wardcd" ));
        }
        
        if ( saveFlag != "save" || isNull(model.getValue ( "/root/init/prcpdd" ))) {
            model.setValue ( "/root/init/prcpdd", getCurrentDate());
        }
        
        cmb_hosinprcpresn.visible = false;
        cmb_prcpkind.visible      = true; 
        cmb_prcpdd.visible        = true;
        cmb_issdept.visible       = true;    
        caption1.visible          = false;
        btn_issdept.visible       = true;
        grd_prcplist.colHidden(prcpKindCdCol) = false;
        
        cmb_issdept.attribute ( "left" ) = "662";
        btn_issdept.attribute ( "left" ) = "764"; 
        
        btn_prcpsave2.disabled = true;  // 진료예약 + 인증저장
        bool_patgolistprtyn.disabled = true;
        btn_prtpattogo.visible = false;
        
        //by sonjy 20081020 입원 일때만 정규 처방 시간 check  
        // by 김영학 2010. 12. 29 정규처방 입력시간을 하드코드 테이블 활용 수정 ( 261번)
        fGetHardCDList("N", 261, 0 , "/root/hidden/nomalordertm");             
        var nomalordrendtm = model.getValue("/root/hidden/nomalordertm/hardcd[cdseqno = '1']/hardcd");
        var nomalordrstrttm = model.getValue("/root/hidden/nomalordertm/hardcd[cdseqno = '2']/hardcd");
        if ( eval (getCurrentTime().substr (0,2)) <= parseInt(nomalordrendtm)  && prcpgenrflag == "I") { //처방종류: 4시전이면 정규
            model.setValue ( "/root/init/prcpkindcd", "10" );
        } else if ( eval (getCurrentTime().substr (0,2)) >= parseInt(nomalordrstrttm)  && prcpgenrflag == "I" ) { //9시 이후면 정규, 날짜는 다음날짜
            model.setValue ( "/root/init/prcpkindcd", "10" );
            var nextDay = getCurrentDate().toDate().getAddDate(1,"D").getDateFormat(); //다음날을 찾는다.  
            model.setValue ( "/root/init/prcpdd", nextDay  );
        }  else { //추가처방
            model.setValue ( "/root/init/prcpkindcd", "20" );
        } 
        
        if ( prcpgenrflag == "E" || prcpgenrflag == "D" ) {
            cmb_hosinprcpresn.visible = true;
            model.setValue ( "/root/init/prcpkindcd", "20" );
            cmb_hosinprcpresn.attribute ( "left" )  = "786";
            cmb_hosinprcpresn.attribute ( "width" ) = "147";  //204-57=147
        }
    }

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

    //협진명을 처방화면에 표시, 2008.04.26 오지훈  
    var cnsttypenm = getPatientInfoDetail("coopteamnm");
    if(cnsttypenm == ""){
        opt_cnsttypenm.visible = false;
        btn_cnstconf.visible   = false;
    }else{
        model.setValue("/root/init/cnsttypenm", cnsttypenm);
        opt_cnsttypenm.visible = true;
        btn_cnstconf.visible   = true;
    }
    // 선택진료 위임여부를 처방화면에 표시 , 2008. 05. 29 김영학
    var specordtypenm = getPatientInfoDetail("specordtypenm");
    if (specordtypenm == "-" || isNull(specordtypenm)) {
        model.setValue("/root/init/specordtypenm", "");
        opt_specordtypenm.visible = false;
    } else {
        model.setValue("/root/init/specordtypenm", specordtypenm);
        opt_specordtypenm.visible = true;    
    }
  
    //의뢰서회신 관련 정보 처리  kimsj 20100208 수정 (회신정보 없을 경우 보이지 않도록 수정) 
    if(model.getValue("/root/paminfo/list/replyn")=="N"){      
        model.setValue("/root/init/repltypenm", model.getValue("/root/paminfo/list/repltypenm"));
    } else {
        model.setValue("/root/init/repltypenm", "");
    }
  
    //중증등록 유효기간 만료 표시 [중증등록 종료일자 기준 -1개월 ~ +18개월]  kimsj 100818
    var sdoaendchk = getPatientInfoDetail("sdoaendchk");
    if (sdoaendchk == "Y") {
        model.setValue("/root/init/sdoaendnm", "[중증등록 유효기간 만료]");
        opt_sdoaendnm.visible = true;
    } else {
        model.setValue("/root/init/sdoaendnm", "");
        opt_sdoaendnm.visible = false;    
    }
  
    //20080731 마정민 수정 수술탭에서 선택한 것은 수술후에서 수술중으로 처리
    var operationFlagCvs = getGlobalVariable("operation");  
    if(operationFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
        model.removeNodeSet ( "/root/operation/list" ); //상단화면 정보 초기화
        setCSVToNode ( "/root/operation", operationFlagCvs );
        model.setValue ( "/root/init/prcpkindcd", "35" );
    } else {
        model.removeNodeSet ( "/root/operation/list" );
    }
    
    bfPrcpdd = model.getValue ( "/root/init/prcpdd" );
    if(isNull(pamInfoCvs)){
        return;
    }   
      
    //20080818 마정민 수정. 처방 저장후 불러오는 건은 app에서 호출하는 걸로 수정.
    if ( saveFlag == "save" ){
        model.copyNode ( "/root/initsrchprcp", "/root/savertninfo" );
        //temp에 딸려온 데이터는 삭제한다.
        model.removeNodeset ( "/root/initsrchprcp/prcplist" );
        model.removeNodeset ( "/root/initsrchprcp/saveestmspclcs" );
        model.removeNodeset ( "/root/initsrchprcp/saveserdiagappfrm" );
        model.removeNodeset ( "/root/initsrchprcp/savelglydis" );
        model.removeNodeset ( "/root/initsrchprcp/saverareobst" );
    } else {
        fInitSrch();
    }

    if ( prcpgenrflag == "O" ){ //외래일때
        //20090316 마정민 수정. login 정보에서 당인선검사 사용여부 가져옴
        if ( model.getValue ( "/root/initsrch/pretest/trgtcd" ) == "Y" ) {
            b_aftrcpt.visible = true;
            txt_aftrcpt.visible = true;
        }
    } else {
        b_aftrcpt.visible = false;
        txt_aftrcpt.visible = false;
    }

    //20090428 마정민 추가. 외래수술로 추가
    if (!isNull(model.getValue ( "/root/operation/list/oprsrvno"))){
        txt_aftrcpt.visible = false;
        b_aftrcpt.visible = false;
        cmb_prcpkind.visible = true;
    } 

    if ( model.getValue ( "/root/init/setprcpyn" ) == "Y" && saveFlag != "save" ){     
        if ( model.getValue ( "/root/cp" ) != "Y" ) {
            //전처방의 로딩여부 초기화, bfprcpload를 N으로 설정해야 진료기록을 띄울 수 있음 2008.02.12 오지훈
            model.setValue("/root/init/bfprcpload", "N");           
            btn_ivbfprcp.selected = true;
            ivw_prcp3.src = "SMMMO02100_전회처방.xrw";
        }
    }
  
    //ivw_prcp3추가 관련 로직 이동 및 변경.. by sonjy  2008-08-20 start 
    if ( model.getValue("/root/init/detlivw") == "m" ) {
        if ( model.getValue ( "/root/cp" ) != "Y" ) {
            if(ivw_prcp.visible == true )ivw_prcp.window.javascript.fIvwDetlVwCom(); 
        }else{
            if(ivw_prcp2.visible == true ) ivw_prcp2.window.javascript.fIvwDetlVwCom();
        }
    } else if ( model.getValue( "/root/init/detlvw" ) == "m"  ) {
        if ( model.getValue ( "/root/cp" ) != "Y" ) {
            if(ivw_prcp.visible == true ) fDetlVw("y"); ; 
        }else{
            if(ivw_prcp2.visible == true ) fDetlVw("y"); ;
        } 
    } 
  
    if( btn_ivbfprcp.selected == true ) {
        if ( model.getValue("/root/init/detlivw") == "m" ) {
            ivw_prcp3.window.javascript.fIvwDetlVwCom("bf"); 
        } else if ( model.getValue( "/root/init/detlvw" ) == "m"  ) {
            fDetlVw("y");             
        }
        ivw_prcp3.visible = true;
        if ( model.getValue ( "/root/cp" ) != "Y" ) {
          
            ivw_prcp.visible = false;
        }else{
            ivw_prcp2.visible = false;
        } 
    }
    //ivw_prcp3추가 관련 로직 이동 및 변경.. by sonjy  2008-08-20 end
  
    if ( model.getValue ( "/root/anst/paramyn") != "Y" ) {
        if ( !isNull(model.getValue ( "/root/operation/list/oprsrvno")) && prcpgenrflag == "O") {
            cmb_prcpkind.disabled = true;
        } else {
            cmb_prcpkind.disabled = false;
        }
    } 
  
    // 외래에서 로그인 한 의사의 부서와 환자의 부서가 같지 않을 경우 인증저장 버튼 비활성 - 20081015 by Moonsh
    var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");                               // 환자의 진료과 
    var userdeptcd = getUserInfo("dutplcecd");                                                    // 로그인 사용자의 부서코드 
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );                      // 입원, 외래 정보   
    var oprsrvinfo = model.getValue ( "/root/operation/list/oprsrvno");   
    var chkDisbBtnYN = "N";  //20091015 by JJE 추가
    if ( prcpgenrflag == "O" ){
        if ( orddeptcd != userdeptcd ) {
            if ( isNull(oprsrvinfo) ) {
                btn_prcpsave.disabled = true;
                btn_prcpsave2.disabled = true;
                btn_prcpsave.hint = "선생님의 부서와 환자의 부서가 같지 않아서 인증 저장을 할 수 없습니다.";               
                btn_prcpsave2.hint = "선생님의 부서와 환자의 부서가 같지 않아서 인증 저장을 할 수 없습니다.";               
                chkDisbBtnYN = "Y";  //20091015 by JJE 추가
            }
        }
    }
  
    if ( prcpgenrflag == "E" ){
        var mainObj = getMainViewer();     
        var ordPatObj = mainObj.javascript.getOpenWindow("SMMMO04100");    
        if(ordPatObj != null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
           var callvisityn = ordPatObj.javascript.getParameter("SMMMO04100_callvisityn");
           model.makeValue("/root/tmp/callvisityn",callvisityn)
           if (callvisityn == "N")  {
              btn_prcpsave.disabled = true;
              btn_prcpsave2.disabled = true;
              btn_prcpsave.hint = "응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능 합니다.";     
              btn_prcpsave2.hint = "응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능 합니다.";     
              chkDisbBtnYN = "Y";       
           }
        } 
    }// 응급실 call visit 하지 않으면 처방 인증저장만 가능 20100527 by LYJ

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

    // 처방 메인 refresh 단일화를 위한 셋팅 - 20081212 by Moonsh
    var refreshInfo = getGlobalVariable("OrderMainRefresh");
    if ( refreshInfo != "Y" ) {
        model.refresh();
    }

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

/**
 * @desc   : 처방화면 초기화
 * @id     : model1
 * @event  : xforms-ready
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fInitializeReady(diag) {
 
    //환자 기초임상정보 조회 및 화면표시
    //2008. 08. 04
    model.setValue("/root/tmp/pid"    , model.getValue("/root/paminfo/list/pid"));    
    model.setValue("/root/tmp/useflag", "Y");
    var baseclincset = "";
    /* if(submit("TRMMO15801")){
        var node = model.instance1.selectNodes("/root/main/patbaseinfo/patbaseinfo");
        if(node.length > 0){
            for(var i = 1; i < node.length + 1;i++){
                var strset = model.getValue("/root/main/patbaseinfo/patbaseinfo[" + i + "]/testitemnm") + ":" +
                             model.getValue("/root/main/patbaseinfo/patbaseinfo[" + i + "]/testrsltcnts") +
                             model.getValue("/root/main/patbaseinfo/patbaseinfo[" + i + "]/unitnm") + " ";
                baseclincset += strset;                
            }
        }
        caption5.attribute("text") = baseclincset;
    }
    */
    //20080826 마정민 수정: initsrch에서 찾는것으로 함.
    //if ( isNull(model.getValue ( "/root/trgtcdinfo/trgtcdlist/trgtcd" ))) {
    //  prcpdd = getCurrentDate();
    //  model.makeValue("/root/send/reqdata/trgtcd", trgtcd);
    //  model.makeValue("/root/send/cond98", prcpdd);
    //  submit("TRMMO02613");
    //}

  if ( model.getValue ( "/root/paminfo/list/elbulbodstat" ) == "0") {
      //btn_prcpsave.disabled = true;
      //button101.disabled = true;
      //btn_prcpsave.hint = "간호접수 상태에서는 저장이 불가합니다.";
  } else {
      //btn_prcpsave.disabled = false;
      //button101.disabled = false;
      //btn_prcpsave.hint = "처방을 저장합니다.";
  }

  var patFlagCvs = getGlobalVariable("patflag");    

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

  //진단검색 호출
  if (isNull(diag)){
    fPatDiagSrch();
  }
  model.refresh();
  //처방 Lock 정보 호출
  //fgetPrcpLock();
  fInitializeScreen();

  //CP화면에서는 마지막에 처리
  if ( model.getValue ( "/root/cp" ) != "Y" )   {
      fDrugPrcpDc(); 
      fTempPrcp(); 
      //외래검사처방 입원전환 ( 주사연속처방, 물리치료 연속처방은 제외 )
      fSaveRsrvPrcpCvrt();
      fPainCnt();  
  } else {//기초임상정보 QuickView 항목 시작- 2010.11.02 이창우
      fGetClinicQuickViewInf();
  }
  
  // 처방 메인 refresh 단일화를 위한 셋팅 - 20081212 by Moonsh
  var refreshInfo = getGlobalVariable("OrderMainRefresh"); 
  if ( refreshInfo == "Y" ) { 
    setGlobalVariable("OrderMainRefresh", "N"); 
  } 
  grd_diaglist.refresh(); 

  model.refresh(); 

}

/**
 * @desc   : 처방 상세보기
 * @param  : 전처방, 연속처방, 처방검색 탭버튼 눌렀을 경우 원복 orgflag => Y
 * @id     : btn_detlvw
 * @event  : DOMActivate
 * @return : void
 * @authur : 마정민 2007. 3. 12
 */

function fDetlVw ( orgflag ) {
 
   var grdLeft = 383;
   var grdWidht = 811;
   var extnGrdLeft = 5;
   var extnGrdWidht = 1187;

//   var ivwLeft = 8;
//   var ivwWidth = 416;
//   var minIvwLeft = ivwLeft;
//   var minIvwWidth = 7;

   var lineX1 = grdLeft; 
   var lineX2 = grdLeft + grdWidht;
   var extnLineX1 = extnGrdLeft;
   var extnLineX2 = lineX2;

   var prcpColsize = 100;
   var deliveColsize = 150;
   var drugmthdspccdnm = 72;
   
   if ( model.getValue( "/root/init/detlvw" ) == "p" && orgflag != "y" ) {
       grd_prcplist.attribute ( "left" ) = extnGrdLeft;
       grd_prcplist.attribute ( "width" ) = extnGrdWidht;      
//     ivw_prcp.attribute ( "left" ) = minIvwLeft;
//     ivw_prcp.attribute ( "width" ) = minIvwWidth;
       ivw_prcp.visible = false;
       ivw_prcp3.visible = false; //by sonjy 처방 그리드 확대시 전처방에 가려지는 현상 수정 2008-08-20
       if ( model.getValue ( "/root/cp" ) == "Y" ) {
        ivw_prcp2.visible = false;
        ivw_prcp3.visible = false;
       }
       line5.attribute ( "x1" ) = extnLineX1;
       line5.attribute ( "x2" ) = extnLineX2;    
//     line2.attribute ( "x1" ) = extnLineX1;
//     line2.attribute ( "x2" ) = extnLineX2;          
       if ( model.getValue ( "/root/cp" ) == "Y" ) {
        ivw_prcp2.visible = false;
        ivw_prcp3.visible = false;
        line5.attribute ( "x1" ) = extnLineX1;
        line5.attribute ( "x2" ) = extnLineX2+10;   
        grd_prcplist.attribute ( "width" ) = parseInt(grd_prcplist.attribute ( "width" )) + 10;
       }
       model.setValue( "/root/init/detlvw", "m" );
       grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) = grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) - drugmthdspccdnm;
       //grd_prcplist.colWidth(prcpDeliveFactCol) = grd_prcplist.colWidth(prcpDeliveFactCol) + deliveColsize;
   } else {
       grd_prcplist.attribute ( "left" ) = grdLeft;
       grd_prcplist.attribute ( "width" ) = grdWidht;
//     ivw_prcp.attribute ( "left" ) = ivwLeft;
//     ivw_prcp.attribute ( "width" ) = ivwWidth;
         
       if( btn_ivbfprcp.selected == true )  ivw_prcp3.visible = true; // by sonjy 처방 ivw_prcp3가 숨어버리는 현상 수정  2008-08-20
       else { //son0820 
           if ( model.getValue ( "/root/cp" ) != "Y" ) {
                
                ivw_prcp.visible = true;
                        line5.attribute ( "x1" ) = lineX1;
                  line5.attribute ( "x2" ) = lineX2;      
                  //line2.attribute ( "x1" ) = lineX1;
                  //line2.attribute ( "x2" ) = lineX2;           
           }else{
                ivw_prcp2.visible = true;
                line5.attribute ( "x1" ) = lineX1;
                line5.attribute ( "x2" ) = lineX2+10;      
                grd_prcplist.attribute ( "width" ) = parseInt(grd_prcplist.attribute ( "width" )) + 10;
           }
       }
       model.setValue( "/root/init/detlvw", "p" );
       grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) = grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) + drugmthdspccdnm;
       //grd_prcplist.colWidth(prcpnmCol) = grd_prcplist.colWidth(prcpnmCol) - prcpColsize;                                                     
       //grd_prcplist.colWidth(prcpDeliveFactCol) = grd_prcplist.colWidth(prcpDeliveFactCol) - deliveColsize;
   }
}

/**
 * @desc   : 처방검색(처방 그리드에서 처방명 쓰고 엔터)
 * @id     : grd_prcplist
 * @event  : onendedit
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */

function fPrcpSrch(srchflag) {
    if( event.keyCode == 13 && event.button < 1 ) { //처방화면 down 현상으로 event.button 조건 추가 (2010.07.12 JJE)

        if ((model.getValue(prcpNode+"["+grd_prcplist.row+"]/prcpflag") == "2" && 
             model.getValue(prcpNode+"["+grd_prcplist.row+"]/drugmastspec") =="Y") ||
             model.getValue(prcpNode+"["+grd_prcplist.row+"]/status") !="S" ){
            return;
        }
        
        if ( gridprcpsrchflag == "Y" ) {
            gridprcpsrchflag = "N";
            return;
        }

        var prcpnm = model.getValue ( prcpNode + "[" + grd_prcplist.row+ "]/prcpnm" );
        prcpnm = prcpnm.getTrim();
        if ( srchflag ==  "prcpcd") {
            prcpnm = model.getValue ( prcpNode + "[" + grd_prcplist.row+ "]/prcpcd" );
        } 

        // 신규처방 수정모드일때 검색 글자수에 대한 flag 셋팅 - 20090630 by Moonsh
        var modiflag = model.getValue("/root/init/rowmodify/modiflag"); 
        
        //by sonjy 20100405  처방검색시 제한 글자수 setting 
        var srchprcpnmlimit = 3;
        var srchprcpcdlimit = 2;
        var srchhnglimit    = 3;
        var nodesrchprcplimitlist = instance1.selectNodes("/root/initsrch/srchprcplimit"); 
        if( nodesrchprcplimitlist != null && nodesrchprcplimitlist.length > 0 ){
            for( var n = 1 ; n <= nodesrchprcplimitlist.length; n++ ){ 
                if(  model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcd") == "prcpnm" && !isNull(model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm")) ){
                    srchprcpnmlimit =  model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm") ;
                } else if(  model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcd") == "prcpcd" && !isNull(model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm")) ){
                    srchprcpcdlimit =  model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm") ;
                } else if(  model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcd") == "hangul" && !isNull(model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm")) ){
                    srchhnglimit =  model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm") ;
                } 
            }
        }
        
        var isHangul = fIsHangul (prcpnm);
        //한글일때는 1글자만 넣어도 검색가능        
        if ( isNull(prcpnm)) {
            if ( modiflag == "Y" ) {
                model.setValue("/root/init/rowmodify/srchnoflag", "Y");             // 검색없는 flag 셋팅 - 20090630 by Moonsh
            }           
            messageBox ( "처방 검색어를", "C001" );
            return;
        } else if ( isHangul == "E" ){
        //영문,숫자일때는 4글자 넣어야 검색가능
        if ( srchflag ==  "prcpcd") {
            //by sonjy 20100405  처방검색시 제한 글자수 setting 
            i//f ( prcpnm.length < 2 ){
            if ( prcpnm.length < parseInt(srchprcpcdlimit) ){
                if ( modiflag == "Y" ) { 
                    model.setValue("/root/init/rowmodify/srchnoflag", "Y");         // 검색없는 flag 셋팅 - 20090630 by Moonsh
                }                           
                //messageBox ( "2글자 이상", "C001" );
                messageBox ( srchprcpcdlimit + "글자 이상", "C001" );
                return;
            }   
        } else {
            //if ( prcpnm.length < 3 ){
            if ( prcpnm.length < parseInt(srchprcpnmlimit) ){
                //messageBox ( "3글자 이상", "C001" );
                messageBox ( srchprcpnmlimit + "글자 이상", "C001" );
                return;
            }   
        }
        } else if ( isHangul == "H" ) {
            //by sonjy 20100405  처방검색시 제한 글자수 setting 
            //if ( prcpnm.length < 3 ){
            if ( prcpnm.length < parseInt(srchhnglimit) ){
                //messageBox ( "한글은 3글자 이상",  "C001" );
                messageBox ( "한글은 " + srchhnglimit + "글자 이상",  "C001" );
                return;
            }   
        }

        if (prcpnm.charAt ( 0 ) == "/"){
            
            if ( prcpnm.length == 1 ){
                messageBox ( "검색할 수술명이", "I004" );
                return;
            }
            
            var curRow =  grd_prcplist.row;
            var srchRow = grd_prcplist.rows -1;
            fPrcpModal ( "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") {
                fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "", false, "getPrcpCdOldSrchInfo", isHangul , containflag);
            } else if ( srchflag ==  "prcpnm") {
                fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "", false, "getPrcpNmSrchInfo", isHangul , containflag);
            } else {
                fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "", false, "getPrcpSrchInfo", isHangul , containflag);
            }
            
            var srchLength = model.instances(0).selectNodes( "/root/prcpsrch/prcplist" ).length;
            var curRow = grd_prcplist.row;
            var nextRow = grd_prcplist.row + 1;

            if( srchLength > 1) {
                // 처방 코드 수정 모드 관련 import 화면 관련 셋팅 - 20090630 by Moonsh
                // setValue => 타부서 프로그램(마취기록)에서 오류발생 => makeValue로 수정 by sonjy 20091009 
                model.makeValue("/root/init/rowmodify/importflag", "Y");                
                var modiflag = model.getValue("/root/init/rowmodify/modiflag"); 
                var modirow = model.getValue("/root/init/rowmodify/modirow"); 

                if ( srchLength * 23 < 323 ) {
                    grd_prcpsrchlist.attribute ( "height" ) = ( srchLength + 1 ) * 23 + 2;
                    btn_copy.attribute ( "top" ) = ( srchLength + 1 ) * 23 + 6;
                    btn_cancel.attribute ( "top" ) = ( srchLength + 1 ) * 23 + 6;
                    import1.attribute ( "height" ) = ( srchLength + 1 ) * 23 + 30
                } else {
                    grd_prcpsrchlist.attribute ( "height" ) = 323;
                    btn_copy.attribute ( "top" ) = 326;
                    btn_cancel.attribute ( "top" ) = 326;
                    import1.attribute ( "height" ) = 351;
                }

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

                if ( grd_prcplist.row <= 10) {
                    import1.attribute ( "top" ) =  194 + ( grd_prcplist.row - 1) * 23;
                } else if (  grd_prcplist.row <= 25) {
                    import1.attribute ( "top" ) =  (grd_prcplist.row - 1) * 23 + 170 - import1.attribute ( "height" );
                } else if ( grd_prcplist.row > 25 ){
                    import1.attribute ( "top" ) =  24 * 23 + 190 - import1.attribute ( "height" );
                }
                model.refresh();

                for ( var i=1; i <=srchLength ; i++ ) {
                    if (model.getValue ("/root/prcpsrch/prcplist[" + i + "]/prcpclscd")=="-") {
                        grd_prcpsrchlist.rowstyle(i, "data", "color") = "#ff0000";
                    } else {
                        grd_prcpsrchlist.rowstyle(i, "data", "color") = "#000000";
                    }
                }
                
                  //kimsj 혼동주의 글씨
                grd_prcpsrchlist.colstyle(4, "all", "color") = "#ff0000";
                grd_prcpsrchlist.rowstyle(0, "data", "color") = "#000000";
                
                
                import1.visible = true;
                model.refresh();
                model.setfocus( "grd_prcpsrchlist" );               
                grd_prcpsrchlist.select( 1, 1, 1, 1) = true;

            } else if( srchLength == 1) {
                model.refresh();
                model.setfocus( "grd_prcpsrchlist" );               
                grd_prcpsrchlist.select( 1, 1, 1, 1) = true;
                addPrcp ( "import", "/root/prcpsrch/prcplist", "/root/main/prcp",  "N", "prcpcd", model.getValue ( "/root/prcpsrch/prcplist/prcpcd"), 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 {
                messageBox ( "검색된 내용이", "I004" );
                
                // 처방 코드 수정 모드 관련 검색 내용이 없을 경우 변경 Row 초기화 후 리턴 - 20090630 by Moonsh
                var modiflag = model.getValue("/root/init/rowmodify/modiflag"); 
                if ( modiflag == "Y" ) { 
                    var grdcnt = grd_prcplist.rows; 
                    grdcnt = grdcnt - 1; 
                    model.setValue("/root/main/prcp/prcplist[" + grdcnt + "]/prcpcd", ""); 
                    
                    var modirow = model.getValue("/root/init/rowmodify/modirow"); 
                    var modiprcpcd = model.getValue("/root/init/rowmodify/modiprcpcd"); 
                    
                    model.setValue( "/root/main/prcp/prcplist[" + modirow + "]/prcpcd", modiprcpcd);                                        
                    grd_prcplist.row =  modirow;                    
                    model.resetInstanceNode ("/root/init/rowmodify"); 
                    grd_prcplist.focusColor = "#ece1ec";                // 그리드에 선택 되는 row의 색 지정 
                } else { 
                    grd_prcplist.dispatch("onentercell"); 
                }                
            }                   
        }
    }       
}

/**
 * @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 ( isNull(row)) {
        curRow = grd_prcplist.row; 
    } else {
        curRow = row;           
    }

    var status = model.getValue ( prcpNode + "[" + curRow + "]/status")

    if ( status == "I" || status == "U" || status == "-" ) {        

        if ( isNull ( vxpt )) vxpt = 395;

        var xpt = window.screenleft + vxpt;
        var ypt = 0;

        if ( isNull(vypt)) {
            if (event.screenY < 750 ) {
                ypt = event.screenY + 10;
            } else {
                ypt = event.screenY - 240;
            }
        } else {
            ypt = vypt;
        }

        var prcpClsCd = model.getValue ( prcpNode + "[ " + curRow + "]/prcpclscd" );
        var prcpinptflag = model.getValue ( prcpNode + "[ " + curRow + "]/prcpinptflag" );

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

         if ( ( prcpClsCd == "A2" || prcpClsCd == "A4" ) && prcpinptflag != "35") { //약   20100507 자가보유처방은 팝업 뜨지 않는다. by LYJ

            var prnscrID = getScreenID(); 
            // PRN 처방 프로세스의 적용범위( 처방까지 or  마스터만)에 따라 상세 팝업의 기능을 결정하기위한 파라메터 set
            // 2010-01-02 by LYJ  
            setParameter ( "SPMMO01100_prcp", prnscrID);
            setParameter ( "SPMMO01100_prndetl", model.getValue (prcpNode + "[" + curRow + "]/drprcpetc6"));
            modal ( "SPMMO01100", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
            //20090218 마정민 추가 산제불가 및 주의 약은 대체처방 팝업을 띄운다.
            clearParameter ( "SPMMB10100_chkyn" );
            if ( getParameter ( "SPMMO01100_powdaltdrug" ) == "2" ){                
                fAltDrug ( curRow, "4" );
            } else if ( getParameter ( "SPMMO01100_powdaltdrug" ) == "1" ){             
                fAltDrug ( curRow, "5" );
            }            
            //확인을 눌렀을 경우. 단 선택된 대체약이 있을 때만 SPMMB10100_chkyn = Y 처리해 준다.
            if ( getParameter ( "SPMMB10100_chkyn" ) == "Y" ) {
                fPrcpBuffer( 1, grd_prcplist.rows-2, "/root/prcpdrag", prcpNode );
//              var addrow = grd_prcplist.rows-2;
//              model.removenode ( prcpNode + "[" + addrow + "]" );
                model.removenode ( prcpNode + "[" + curRow + "]" );
                model.duplicate( "/root/main/prcp", "/root/prcpdrag/prcplist", "*[" + curRow + "]");
                model.setValue ( prcpNode + "[" +  curRow + "]/powdflag", "Y" )
                model.removeNodeset ( "/root/prcpdrag/prcplist" );
                makePrcpNm ( prcpNode, curRow );
                model.recalculate();   
                model.refresh();
                grd_prcplist.row = curRow;
            } else {
                if ( getParameter ( "SPMMO01100_powdaltdrug" ) == "1" ) {
                    model.setValue ( prcpNode + "[" +  curRow + "]/powdflag", "Y" )
                    makePrcpNm ( prcpNode, curRow );
                }
            }
            clearParameter ( "SPMMO01100_powdaltdrug" );
            clearParameter ( "SPMMB10100_chkyn" );
        } else if ( prcpClsCd == "A6" && prcpinptflag !="35" ) { //주사  20100507 자가보유처방은 팝업 뜨지 않는다. by LYJ
            var prnscrID = getScreenID();  
            // PRN 처방 프로세스의 적용범위( 처방까지 or  마스터만)에 따라 상세 팝업의 기능을 결정하기위한 파라메터 set
            // 2010-01-02 by LYJ 
            setParameter ( "SPMMO01200_prcp", prnscrID);
            setParameter ( "SPMMO01200_prndetl", model.getValue (prcpNode + "[" + curRow + "]/drprcpetc6"));
            modal ( "SPMMO01200", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
            clearParameter ( "SPMMO01200_prcp");
        } else if ( prcpClsCd == "F2" ) { //재활
            modal ( "SPMMO01800", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if ( prcpClsCd == "C2" || prcpClsCd == "C6" || prcpClsCd == "E2" ) { 
            //방사선 검사(기능검사, 내시경,천자,생검, 방사선, 핵의학영상)
            modal ( "SPMMO01300", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
            //start: 영상 검사의 자동 팝업 시 취소 할 경우 처방창에 처방이 떨어지지 않도록 (2010.02.02 JJE)
            var prcptempNode = instance1.selectSingleNode("/root/prcptemp/prcplist");
            if( prcptempNode == null && flag == "auto") setParameter("cnclCopyPrcpYN_Param", "Y");          // 자동팝업 자동팝업일 경우에만 삭제하도록 "auto" 조건추가
            //end
        } else if ( prcpClsCd == "G2" ) { //RT
            modal ( "SPMMO13300", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if ( prcpClsCd == "B2" || prcpClsCd == "B6" ) { //진단검사 (검체검사), 핵의학 체내
            modal ( "SPMMO01400", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );                                
        } else if ( prcpClsCd == "B4" ) { //수혈 (혈액수혈)
            modal ( "SPMMO01500", mon,  xpt, ypt - 80, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if ( prcpClsCd == "H2" ) {  //수술
            modal ( "SPMMO01600", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
            //치과 수술 처방(대분류:치과, 중분류:치과수술)인 경우 치식 팝업 호출 (요청번호:8731 2009.10.26 by JJE)
            if( getParameter("SPMMO01600_returnParam") == "Y" ){  //수술팝업에서 '확인'한 경우에만 치식팝업 호출(from 서소영선생님요청)
                var tempcol2 = model.getValue(prcpNode + "[ " + curRow + "]/tempcol2" );
                var tootfact = model.getValue(prcpNode + "[ " + curRow + "]/tootfact" );
                //by sonjy  20100304  수술/치식 필수입력일경우로 제한 조건 추가 및 치실필수입력 추가. (여의도 상황실 오류 ): 
                //기존은 치과 수술 처방(대분류:치과, 중분류:치과수술)경우 팝업으로 되어 있었음.
                var prcpessninptflag =  model.getValue(prcpNode + "[ " + curRow + "]/prcpessninptflag" );   
                //if(tempcol2.substr(0, 5) == "17|02" && tootfact == "-" ){
                if((  prcpessninptflag == "2" || ( prcpessninptflag == "5" && tempcol2.substr(0, 5) == "17|02" ) ) && tootfact == "-" ){
                            grd_prcplist.select(curRow,1,curRow,1)=true;
                    fDentifmla("OP");
                }
              }
              clearParameter("SPMMO01600_returnParam");
              
        } else if ( prcpClsCd == "H4" ) { //처치
            modal ( "SPMMO13100", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if ( prcpClsCd == "K2" ) { //치과
            //KNUH, 약속처방 복사 시 치식 팝업이 한번만 뜨고 다른 치과처방에 동일하게 적용되도록 함.(2011.03.28 JJE)
            if( flag == "auto" && prcpinptflag == "02" && model.instances(0).selectSingleNode("/root/main/toot_prcp/prcplist") != null ){
                model.removeNode("/root/prcptemp");
                model.makeNode("/root/prcptemp");
                model.duplicate( "/root/prcptemp", "/root/main/toot_prcp/prcplist");
                model.setValue("/root/prcptemp/prcplist/prcpcd"        , model.getValue ( prcpNode + "[ " + curRow + "]/prcpcd" ));
                model.setValue("/root/prcptemp/prcplist/prcpnm"        , model.getValue ( prcpNode + "[ " + curRow + "]/prcpnm" ));
                model.setValue("/root/prcptemp/prcplist/orgprcpnm"     , model.getValue ( prcpNode + "[ " + curRow + "]/orgprcpnm" ));
                model.setValue("/root/prcptemp/prcplist/tempcol2"      , model.getValue ( prcpNode + "[ " + curRow + "]/tempcol2" ));
                model.setValue("/root/prcptemp/prcplist/erprcpflag"    , model.getValue ( prcpNode + "[ " + curRow + "]/erprcpflag" ));
                model.setValue("/root/prcptemp/prcplist/nigtprcpflag"  , model.getValue ( prcpNode + "[ " + curRow + "]/nigtprcpflag" ));
                model.setValue("/root/prcptemp/prcplist/payflagcd"     , model.getValue ( prcpNode + "[ " + curRow + "]/payflagcd" ));
                model.setValue("/root/prcptemp/prcplist/prcpdelivefact", model.getValue ( prcpNode + "[ " + curRow + "]/prcpdelivefact" ));
                model.setValue("/root/prcptemp/prcplist/precureprcpflag", model.getValue ( prcpNode + "[ " + curRow + "]/precureprcpflag" ));
                model.setValue("/root/prcptemp/prcplist/prcpqty"        , model.getValue ( prcpNode + "[ " + curRow + "]/prcpqty" ));
                model.setValue("/root/prcptemp/prcplist/prcpvol"        , model.getValue ( prcpNode + "[ " + curRow + "]/prcpvol" ));
                model.setValue("/root/prcptemp/prcplist/prcptims"       , model.getValue ( prcpNode + "[ " + curRow + "]/prcptims" ));
                model.setValue("/root/prcptemp/prcplist/drprcpetc7"     , model.getValue ( prcpNode + "[ " + curRow + "]/drprcpetc7" ));
                model.setValue("/root/prcptemp/prcplist/drprcpetc8"     , model.getValue ( prcpNode + "[ " + curRow + "]/drprcpetc8" ));
                model.setValue("/root/prcptemp/prcplist/choiordflag"    , model.getValue ( prcpNode + "[ " + curRow + "]/choiordflag" ));
                model.setValue("/root/prcptemp/prcplist/specdrid"       , model.getValue ( prcpNode + "[ " + curRow + "]/specdrid" ));
                model.setValue("/root/prcptemp/prcplist/prcpexecdeptcd" , model.getValue ( prcpNode + "[ " + curRow + "]/prcpexecdeptcd" ));
                model.setValue("/root/prcptemp/prcplist/powdflag"       , model.getValue ( prcpNode + "[ " + curRow + "]/powdflag" ));
            }else{
                modal ( "SPMMO13200", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
                if( flag == "auto" && prcpinptflag == "02" ){
                model.makeNode("/root/main/toot_prcp");
                model.duplicate( "/root/main/toot_prcp", "/root/prcptemp/prcplist");
              }
            }
        } else if ( prcpClsCd == "03" ) { //식이                
            modal ( "SPMMO01700", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if ( prcpClsCd == "I2" || prcpClsCd == "I4" ) {  //마취
            modal ( "SPMMO02000", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if ( prcpClsCd == "C4" ) {  //angio
            modal ( "SPMMO02100", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
            //start: 영상 검사의 자동 팝업 시 취소 할 경우 처방창에 처방이 떨어지지 않도록 (2010.02.02 JJE)
            var prcptempNode = instance1.selectSingleNode("/root/prcptemp/prcplist");
            if( prcptempNode == null && flag == "auto") setParameter("cnclCopyPrcpYN_Param", "Y");          // 자동팝업 자동팝업일 경우에만 삭제하도록 "auto" 조건추가
            //end
        } else if ( prcpClsCd == "D2" ) {  //병리
            modal ( "SPMMO02200", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if ( prcpClsCd == "M2" ) {  //재료
            modal ( "SPMMO13400", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        } else if (prcpClsCd =="Z0" ) { // 기타일 경우 처치와 같은 화면으로 오픈한다. 2010. 12. 29)
            modal ( "SPMMO13100", mon,  xpt, ypt, "prcpdetl", prcpNode + "[" +  curRow + "]", prcpNode, "", false );
        }

        if ( model.instances(0).selectNodes ("/root/prcptemp/prcplist").length == 0 ) return false;
        fPrcpDetlApp ( prcpClsCd, "/root/prcptemp/prcplist", "/root/main/prcp", curRow );
        
        //M-SET 모처방인 경우, prcphopedd를 자처방에 동일하게 적용
        //2008. 07. 22 오지훈
        var prcpSetCd  = model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/prcpsetcd" );
        var inclPrcpNo = model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/inclprcpno" );
        var prcpHopeDD = model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/prcphopedd" );
        if(prcpSetCd == "-" && inclPrcpNo > 0){ //모처방인 경우, prcphopedd
            //alert(prcpSetCd + "," + inclPrcpNo + "," + prcpHopeDD);
            for(var i = 1;  i <= grd_prcplist.rows; i++){
                if(inclPrcpNo == model.getValue ("/root/main/prcp/prcplist[" + i + "]/inclprcpno")){                    
                    model.setValue("/root/main/prcp/prcplist[" + i + "]/prcphopedd", prcpHopeDD);
                }
            }
        }
        
        /* 수혈적응증 미 입력시 수혈 처방 삭제 처리 */
        if ( getParameter ( "SPMMO01500_bprcpadapt" ) == "D" ){
            fDeleteRow();
            //화면 닫은후 focus를 다시 grid로 이동시킨다.
            model.setfocus( "grd_prcplist" );           
            //더블 클릭 후 edit 모드로 가는 것을 막는다.
            event.defaultAction = "cancel";
            model.recalculate();   
            return false;
        }

        //화면 닫은후 focus를 다시 grid로 이동시킨다.
        model.setfocus( "grd_prcplist" );           
        //더블 클릭 후 edit 모드로 가는 것을 막는다.
        event.defaultAction = "cancel";
        grd_prcplist.row = curRow; 
        grd_prcplist.col = prcpnmCol;
        model.recalculate();   

        return true;

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

/**
 * @desc   : 처방상세 입력내용을 메인에 적용
 * @param  : prcpClsCd - 처방분류
 *         : strSrc - 소스노드       
 *         : strDest - 목적지노드 
 *         : row - 수정할 row
 * @authur : 마정민 2007. 3. 14
 */
function fPrcpDetlApp ( prcpClsCd, strSrc, strDest, row ) {

    var srcNodeList = model.instances(0).selectNodes( strSrc );
    var destNode = model.instances(0).selectSingleNode( strDest );
    
    var srchRow = model.instances(0).selectNodes( prcpNode ).length;
    var curRow =  row;
    
    gGridUpdateChk("det_per"); // 임시저장 수정 모드 
        
    if ( srcNodeList != null && srcNodeList.length > 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 = getParameter( "SPMMO01700_chkcnt" );
            var dietcnt = 0;
            //팝업에서 체크한 값이 1이고 처방화면의 식이처방도 1개이면 값을 없는다.
            var srcNodeListChk = model.instances(0).selectNodes ( prcpNode + "[prcpclscd='03']" );
            if ( chkcnt == "1" && srcNodeListChk.length == 1 ) {
                makePrcpNm ( strSrc, 1 );
                var srcSingleNode = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" );
                destNode.replaceChild( srcNodeList.item(0).cloneNode(true), srcSingleNode);
            } else {
                for(var i = 1; i <= srcNodeList.length; i++) {
                    makePrcpNm ( strSrc, i );
                    var dietprcpgenrflag = model.getValue ( strSrc + "[" + i + "]/dietprcpgenrflag" );
                    var srcSingleNode = instance1.selectSingleNode( prcpNode + "[prcpclscd='03' and dietprcpgenrflag='" + dietprcpgenrflag + "']" );                                                     
                    var checkFlag = model.getValue ( prcpNode + "[" + curRow + "]/dietprcpgenrflag" );
                    if ( checkFlag == "-" ) {
                        var srcNodeCur = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" );
                        destNode.replaceChild( srcNodeList.item(i-1).cloneNode(true), srcNodeCur);  
                    } else if (srcSingleNode != null) {
                        destNode.replaceChild( srcNodeList.item(i-1).cloneNode(true), srcSingleNode);
                    } else { //추가된 내용은 duplicate                      
                        model.duplicate ( strDest, strSrc + "[" + i + "]", "*[" + srchRow  + "]" );
                        dietcnt++; //식이 자동팝업 때문에 추가했다.
                        srchRow++;
                    }   
                }
            }
        } else {
           makePrcpNm ( strSrc, 1 );           
           var srcSingleNode = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" );           
           destNode.replaceChild( srcNodeList.item(0).cloneNode(true), srcSingleNode);  
        }
        
        model.removeNodeset(strSrc);
        model.setValue ( prcpNode + "[" + curRow + "]/tempcol9", "" );
        fPrcpColor();
        
        fSetCpVal( row, "U");
        
        model.refresh();
    }       
}


 /**
 * @desc   : 처방 오른쪽 마우스 팝업 처리
 * @id     : grd_prcplist
 * @event  : onmousedown
 * @return : void
 * @authur : 마정민 2007. 3. 25 
 */
function fMouseRghtBtnPopup() {

    if (event.button == 3) {
       if (grd_prcplist.mouseRow == 0) {                
           /*
           if (grd_prcplist.mouseCol == prcpVolCol || grd_prcplist.mouseCol == prcpQtyCol || grd_prcplist.mouseCol == prcpDayNoCol ) {
               app.showPopupMenu(false);
               var xpt = window.screenleft +  323 + event.x;
               var ypt = window.screenTop + 160 + event.y;
               modal ("SPMMO10400", 2,  xpt, ypt);
               //일단 일괄입력은 막았다.
           } */
        }

        if(grd_prcplist.isCell(event.target) && grd_prcplist.mouseRow >= grd_prcplist.fixedRows){
            app.showPopupMenu(true);
            var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
            if ( prcpgenrflag == "O" ) {
                setPopupMenu("grd_prcplist", false, "/root/init/omsrght/mouserght", "label", "func");   //메뉴호출방식변경 JJE
            } else if ( prcpgenrflag == "E" ) {
                setPopupMenu("grd_prcplist", false, "/root/init/emsrght/mouserght", "label", "func");   //메뉴호출방식변경 JJE
            } else {
                 setPopupMenu("grd_prcplist", false, "/root/init/imsrght/mouserght", "label", "func");  //메뉴호출방식변경 JJE
            }
        } else {
            window.setPopupMenu(false);
        }
    }
}


function fDrugInfo() {
    model.setValue ( "/root/hidden/receivedata/srchdrugcd", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpcd" ));
    //open("SMADB01900",0,0,0,"SMADB01900","약코드","/root/hidden/receivedata/srchdrugcd");
    //2008. 07. 08 오지훈
    //약품편람 조회 화면 open시 약코드 parameter기본 설정    
    open("SMADB01900", 0, 0, 0, "SMADB01900", "/root/hidden/receivedata","/root/hidden/receivedata");
}

function fPrnDrugInfo() {
    model.setValue ( "/root/hidden/receivedata/srchdrugcd", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpcd" ));
    //2011. 05. 23 엄영만
    //PRN 조회창 open시 약코드 parameter기본 설정    

    setParameter("SPMMO33800_search_code", model.getValue("/root/hidden/receivedata/srchdrugcd"));
    open("SPMMO33800", 0, 0, 0, "SPMMO33800", "","");
}

function fCdssDrugInfo(kindflag) {
    model.makeValue ( "/root/hidden/receivedata/pYakpumCd", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpcd" ));
    model.makeValue ( "/root/hidden/receivedata/pageNav", kindflag);
    modal("SMZCN00301", 0, 0, 0, "SMZCN00301", "/root/hidden/receivedata","/root/resultParam");
}

//  DUR 약품편람-부작용
function fCdssDrugInfo3() {
    fCdssDrugInfo("3");
}

//  DUR 약품편람-상호작용
function fCdssDrugInfo4() {
    fCdssDrugInfo("4");
}

//  DUR 약품편람-주의사항
function fCdssDrugInfo5() {
    fCdssDrugInfo("5");
}

/**
 * @desc   : 선택제외 삭제
 * @return : void
 * @authur : 마정민 2007. 10. 16 
 */

function fDeleteElseRow() {

    var selectedRows = grd_prcplist.selectedRows;
    
    for (var i=0; i< selectedRows; i++) {       
         model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/tempcol6", "select" );
    }
    grd_prcplist.select(1, 1, grd_prcplist.rows-2, 1) = true;
    for ( var i=1; i < grd_prcplist.rows; i++ ) {
        if ( model.getValue ( prcpNode + "[" + i + "]/tempcol6" ) == "select" ) {
            grd_prcplist.select ( i, 1 ) = false;
        } 
         model.setValue ( prcpNode + "[" + 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 node = instance1.selectSingleNode("/root/main/prcp");
    var selectedRows = grd_prcplist.selectedRows;
    if( model.getValue ( "/root/cp" ) == "Y" && model.getValue(node + "/prcplist[1]/status") == "S" ){
        selectedRows = grd_errprcplist.selectedRows;
    }
    
    var cnt=0;

    if ( flag != "noselect" ){
        if (grd_prcplist.row < 0 ){
            return;
        }
    }
    
    //SON0919 원내/원외사유 처리 관련 추가 by sonjy start 
    var hosinprcpresncd = "";
    var prcpkindcd = ""; 
    //SON0919 end 
    if ( flag != "noselect" ){
        for (i= selectedRows-1; i >= 0; i--){
            var status = 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 = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/tempcol6" );
                if ( deleteflag != "D" ) { //이미 삭제 표시된것은 제외하고
                    //종속처방 체크
                    var inclprcpno = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/inclprcpno" ); 
                    if ( !isNull(inclprcpno) && inclprcpno != "-" ) {
                        if ( eval(inclprcpno) > 0  ) { //종속처방이면
                            for ( var j = 1; j < grd_prcplist.rows; j++ ) {
                                if ( inclprcpno == model.getValue ( prcpNode + "[" + j + "]/inclprcpno" )) { // 같은 종속처방은 모두 삭제이다.
                                    model.setValue ( prcpNode + "[" + j + "]/tempcol6", "D" );
                                }
                            }
                        }
                    }
                    model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/tempcol6", "D" ); 
                }
            } else {
                // 같은 종속처방은 모두 살아난다.
                var inclprcpno = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/inclprcpno" ); 
                if ( !isNull(inclprcpno) && inclprcpno != "-" ) {
                    if ( eval(inclprcpno) > 0  ) { //종속처방이면
                        for ( var j = 1; j < grd_prcplist.rows; j++ ) {
                            if ( inclprcpno == model.getValue ( prcpNode + "[" + j + "]/inclprcpno" )) { 
                                model.setValue ( prcpNode + "[" + j + "]/status", "-" );
                            }
                        }
                    }
                }
            }
        }
    }

    var grdrows = grd_prcplist.rows;
    for (var i = grdrows -1 ; i >= 1; i-- ) {   

        if ( model.getValue ( prcpNode + "[" + i + "]/tempcol6" ) == "D" ) {
            model.setValue ( prcpNode + "[" + i + "]/tempcol6", "" ); //삭제 표시 clear
            model.setValue ( prcpNode + "[" + i + "]/prcpmixno", "-" ); //mix clear
            var status = model.getValue ( prcpNode + "[" + i + "]/status" );
            if (status == "S" ) {
                model.setValue ( prcpNode + "[" + i + "]/prcpnm", "" );
            } else if ( status =="I" || status == "" ) { 
                    //SON0919 원내/원외사유 처리 관련 추가 by sonjy start 
                    //SON1107 DSC 퇴원약도 외래에 준하여 처리. 변경개발요청서 20081013-93에 의거 => 간호준비될때까지 원복 ...
                    prcpkindcd  = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpkindcd" );
                    if( model.getValue ("/root/patflag/list/prcpgenrflag")  == "O"  ||  
                       (model.getValue ("/root/patflag/list/prcpgenrflag")  == "E" &&  model.getValue ( "/root/init/erresn" ) != "G3"  &&  prcpkindcd  == "60" ) ||   
                       (model.getValue ("/root/patflag/list/prcpgenrflag")  == "D" &&  prcpkindcd  == "60" )  ){
                        if( hosinprcpresncd == "" && ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/hosinprcpresncd " ) == "45"  ||  model.getValue ( "/root/main/prcp/prcplist[" + i + "]/hosinprcpresncd " ) == "47") ) {
                            hosinprcpresncd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/hosinprcpresncd " ) ;
                        } 
                     }
                     //SON0919 end
                 
                    fPrcpBuffer( ++cnt, i, "/root/prcpdel", prcpNode );
                    model.removeNode ( prcpNode + "[" +  i + "]" );
            } else if ( status =="-" || status =="U" ) {
                    model.setValue ( prcpNode + "[" + i + "]/status", "D" );
            } else if ( status =="D" ) {
                    model.setValue ( prcpNode + "[" + i + "]/status", "-" );
            }
        }
    }
    
    for (var i=grd_prcplist.rows -1 ; i >= 1; i-- ) {       
        var chkPrcpmixno = model.getValue ( prcpNode + "[" + i + "]/prcpmixno" );
        if ( chkPrcpmixno != "-" && !isNull(chkPrcpmixno)) {
            //믹스번호가 있고 삭제가 아닌 것중에 혼자 남아 있는 믹스번호라면 풀어준다.
            var srcNodeList = model.instances(0).selectNodes ( prcpNode + "[prcpmixno='" + chkPrcpmixno + "']" );
            if ( srcNodeList.length <= 1) {
                model.setValue ( prcpNode + "[" + i + "]/prcpmixno", "-" );
            }
        }
    } 

    // 처방 신규코드에서 수정 모드가 아닐때만 rebuild - 20090630 by Moonsh
    var modiflag = model.getValue("/root/init/rowmodify/modiflag"); 
    if ( modiflag != "Y" ){ 
        grd_prcplist.rebuild(); 
        fPrcpColor(); 
    } 
    
    //SON0919 원내원외관련 추가  by sonjy 
    if( hosinprcpresncd != "" ){ 
        fChngHosinPrcpResn () ;
    }
    //SON0919 end
    
    model.recalculate();  // e
}

/**
 * @desc   : 진단수정.
 * @       : 신규일때는 수정표시 안함.
 * @       : 삭제,D/C 상태일때는 취소후 수정.
 * @id     : grd_prcplist
 * @event  : xforms-value-changed
 * @return : void
 * @authur : 마정민 2007. 3. 27
 */
function fCnclDel() {

    var selectedRows = grd_diaglist.selectedRows;
    
    for (var i=0; i< selectedRows; i++) {       
        var status = model.getValue (diagNode + "[" + grd_diaglist.selectedrow(i) + "]/status");
        if (status == "C" || status == "D"){
            model.setValue (diagNode + "[" + grd_diaglist.selectedrow(i)+ "]/status", "-");
        }
    }
}

/**
 * @desc   : 함수 호출시 선택된 데이터를 특정 노드에 담아둔다.
 * @param1 : bufCnt: 첫번째 cnt일때 기존 노드를 삭제하기 위한 count
 * @param2 : bufRow: 노드에 담아놓을 그리드 row
 * @param4 : strDest: 목적지 주소값
 * @param3 : strSrc: 출발지 주소값
 * @return : void
 * @authur : 마정민 2007. 4. 3
*/
function fPrcpBuffer( bufCnt, bufRow, strDest, strSrc ) {

    if (bufCnt == 1) { //첫번째 데이터이면 기존 노드를 삭제한다.
      model.removeNodeset(strDest);
      //노드를 모두 삭제 했기 때문에 대상 노드를 하나 만든다.
      model.makeNode(strDest);
    }

    // 복사할 소스노드를 선택한다.
    var srcNodeList = model.instances(0).selectNodes( strSrc );

    //복사하기 위해 대상노드를 선택한다.
    var destNode = model.instances(0).selectSingleNode(strDest);
        
    //대상노드로 복사한다.
    destNode.appendChild(srcNodeList.item(bufRow-1).cloneNode(true));

}

/**
 * @desc   : 마지막 삭제시 버퍼에 담겨둔 것을 되살린다.
 * @id     : btn_undo
 * @event  : DOMActivate
 * @return : void
 * @authur : 마정민 2007. 4. 3
 */
function fDelUndo () {

    //fGetRsrvPrcp();

    // 복사할 소스노드를 선택한다.
    var srcNodeList = model.instances(0).selectNodes("/root/prcpdel/prcplist");
    //복사하기 위해 대상노드를 선택한다.    

    if ( srcNodeList.length == 0 ) {
        messageBox ( "되살릴 삭제 데이터가", "I004" );
        return;
    }
    var prcpdd = model.getValue ( "/root/init/prcpdd" );

    //삭제시 루프가 뒤에서 부터돌며 buffer instance에 저장하기 때문에 불러 올때도 뒤어서부터 불러와 삭제시 순서를 맞춘다.
    var insRow = grd_prcplist.rows - 1;
    for (i= srcNodeList.length; i >= 1; i--) {
       //대상노드로 복사한다.
        model.setValue ( "/root/prcpdel/prcplist[" + i + "]/prcppkspec", prcpdd + "|0|0|" + getUserInfo("dutplceinstcd"));
        prcphopedd = model.getValue ( "/root/prcpdel/prcplist[" + i + "]/prcphopedd" );
        if ( isNull(prcphopedd) || prcphopedd == "-" ) {
            prcphopedd = prcpdd;
        }
        if ( prcphopedd < prcpdd ) {
            model.setValue ( "/root/prcpdel/prcplist[" + i + "]/prcphopedd", prcpdd );
        }
       model.duplicate ( "/root/main/prcp", "/root/prcpdel/prcplist[" + i + "]", "*[" + insRow  + "]" );
       insRow++;
    }
    model.recalculate();
    grd_prcplist.refresh();
    fPrcpColor();
    //되살리기 한번만 해달라는 장효은 선생님 요청
    model.removeNodeset ( "/root/prcpdel/prcplist" );
}

/**
 * @desc   : drag 시 이동할 grid 인스턴스 저장
 * @id     : grd_prcplist
 * @event  : ondragstart
 * @return : void
 * @authur : 마정민 2007. 4. 04
 */
function fGridDrag() {

    var selectedRows = grd_prcplist.selectedRows;
    var cnt=0;

    for (var i=0; i< selectedRows; i++)
    {
        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status") != "S" ){ //검색은 드래그 안한다.
            //drop후 drop내용을 색칠하기 위해 버퍼로 보낼 노드에 S를 표시한다.
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcprefseq",  "S");
            fPrcpBuffer( ++cnt, grd_prcplist.selectedrow(i), "/root/prcpdrag", prcpNode )
            //버퍼에 저장은 됐다. drop후 본체를 삭제하기 위해 본체에 표시해 둔다.
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcprefseq",  "D");
        }
    }
    grd_prcplist.rebuild();
}

/**
 * @desc   : drop위치에 인스턴스 mapping, 본체 remove, 이동한 row select
 * @id     : grd_prcplist
 * @event  : ondrop
 * @return : void
 * @authur : 마정민 2007. 4. 04
 */
function fGridDrop( dropRow ) {
    if( dropRow != -1 ) { //drop할 그리드 row가 있을 때만 동작한다.
        
        //맨끝줄로 이동했을 경우는 그 위줄로 drop 되게 해놓았다. 왜냐하면 검색을 제일 아래 줄로 만들기 위해서다. 
        //아래 로직을 풀면 맨 아래로도 이동 가능하다.
        if ( dropRow == ( grd_prcplist.rows - 1)){
            dropRow = dropRow -1;

        }
        var srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist");
        var destNode = model.instances(0).selectSingleNode("/root/main/prcp");
        var row;
        var selStart;
        var selEnd;
        var cnt=0;

        //===========  drop 시작
        //중간에 끼워 넣는 것이라면 duplicate
        if (dropRow !=  (grd_prcplist.rows-1) ){
            for (var i=1; i<=srcNodeList.length; i++) {
                row = dropRow + i;
                model.duplicate("/root/main/prcp", "/root/prcpdrag/prcplist[" + i + "]", "*[" + row + "]");
            }
        } else { //마지막 줄에 붙혀 넣는것은 appendChild
            for (i= 0; i<srcNodeList.length ; i++){
                destNode.appendChild(srcNodeList.item(i).cloneNode(true));
            }
        }
        
        //복사된 본체는 삭제한다. 단 복사한 수 만큰 row가 추가되기 때문에 srcNodeList.length 만큼 추가해서 루프를 돌려 표시된 데이터를 찾는다.
        for (var i = grd_prcplist.rows + srcNodeList.length; i>=1; i--) {
            if (model.getValue ( prcpNode + "[" + i + "]/prcprefseq") == "D" ){
                model.removeNode ( prcpNode + "[" +  i + "]" );
              }
        }
        //=========== drop 끝

        grd_prcplist.rebuild(); //rebuild를 마지막에 하면 select가 풀린다.
        model.recalculate();
            
        //=========== select 시작
        for (var i = 1; i < grd_prcplist.rows; i++ ) {
          if (model.getValue ( prcpNode + "[" + i + "]/prcprefseq") == "S" ){
               if (cnt==0){ //시작점을 잡는다.
                   selStart = i;
               }
              cnt++;
              model.setValue ( prcpNode + "[" + i + "]/prcprefseq",""); //추가 drag and drop을 위해 초기화 한다.
          }
        }
        selEnd = selStart + srcNodeList.length-1;
        grd_prcplist.select(selStart, prcpnmCol, selEnd, prcpnmCol) = true;
        //=========== select 끝
    } else {
        //엉뚱한 곳에 drop 할 때 가지고 있던 값을 초기화 한다.
        for (var i = 1; i < grd_prcplist.rows; i++ ) {  
              model.setValue ( prcpNode + "[" + i + "]/prcprefseq","" );
          }
        }
}

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

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

    if ( savekindflag == "0" ) {
        srcNodeList = model.instances(0).selectNodes("/root/main/prcp/prcplist");
        for ( i=1; i <= srcNodeList.length; i++  ) {
            if (patyn == "Y") {
                if ( model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "S"  && model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "-" ){
                    prcpCnt++;
                }
            } else {
                if ( model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "S" ){
                    prcpCnt++;
                }                
            }
        }
        dcNodeList = model.instances(0).selectNodes("/root/prcpdc/prcplist");
        for ( i=1; i <= dcNodeList.length; i++  ) {
            prcpCnt++;
        }
        diagNodeList = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" );

        for ( i=1; i <= diagNodeList.length; i++  ) {
            status = model.getValue( "/root/main/diaginfo/diagcdlist[" + i + "]/status" );
            if (patyn == "Y") {
                if ( status != "S" && status != '-' && status != 'T' ){              
                    diagCnt++;
                }
            } else {
                if ( status != "S" && status != '-' ){              
                    diagCnt++;
                }                
            }
        }
    } else if ( savekindflag == "1" ) {
        srcNodeList = model.instances(0).selectNodes("/root/main/prcp/prcplist");
        for ( i=1; i <= srcNodeList.length; i++  ) {
            if ( model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "S" && model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "-" ){
                tempPrcpCnt++;
            }
        }
        dcNodeList = model.instances(0).selectNodes("/root/prcpdc/prcplist");
        for ( i=1; i <= dcNodeList.length; i++  ) {
            tempDcPrcpCnt++;
        }

        if ( tempDcPrcpCnt > 0 ) {
            return 5;
        }

        diagNodeList = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" );

        for ( i=1; i <= diagNodeList.length; i++  ) {
            status = model.getValue( "/root/main/diaginfo/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 sRTC = "/root/temp/rtc";  // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로
    var sNewLogic = "";
    
    model.setValue ( "/root/send/cond1", model.getValue ( "/root/paminfo/list/instcd" ));
    model.setValue ( "/root/send/cond2", model.getValue ( "/root/paminfo/list/ioflag" ));
    model.setValue ( "/root/send/cond3", model.getValue ( "/root/paminfo/list/pid" )); 
    model.setValue ( "/root/send/cond4", model.getValue ( "/root/paminfo/list/orddd" ));
    model.setValue ( "/root/send/cond5", model.getValue ( "/root/paminfo/list/cretno" ));
    model.setValue ( "/root/send/cond6", getUserInfo("userid") );
    model.setValue ( "/root/send/cond7", getUserInfo("dutplcecd") );
    
    submit ( "TRMMO00148", false ); // 처방저장 실시간 체크(RealTimeCheck)변수 설정
    
    try {
        sNewLogic = model.getValue(sRTC + "/codeinfo[hardcdno='430']/trgtcd"); // 신규로직 적용여부
        
        if(sNewLogic == "Y") {
            fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag );
        } else if (sNewLogic == "S" && !isNull(model.getValue(sRTC + "/codeinfo[hardcdno='431' and trgtcd='"+getUserInfo("userid")+"']/trgtcd")) ) {
            fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag );
        } else {
            fPrcpSave_old( prcpflag, savekindflag, saveNode, prcpchkflag );
        }
    } catch(err) {
        messageBox ( "fPrcpSave() 실행 중 오류가 발생 하였습니다. 전산실(6598)로 연락 부탁드립니다.", "E" );
    } finally {
        model.removeNodeset(sRTC);
    }
}

function fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag ) {
    //model.addlog("SPEED CHECK START OF fPrcpSave()");
    //model.addlog("  SPEED CHECK START OF 처방가능체크(화면)");
    
    var sRTC = "/root/temp/rtc";  // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로
    
    //처방 시간을 계산하기 위해 변수 추가 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 xpt = window.screenleft + 200;
    var ypt = window.screenTop + 100;                   
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];

    var curCpObj = getOpenWindow("SPMMO00600"); //활성화된 CP Main 화면 object loading
    var nodelistRecNode = "";
    
    if(curCpObj != null) curCpObj.javascript.fClose();
    if ( isNull(prcpflag)) prcpflag = "0";          
    if ( isNull(savekindflag)) savekindflag = "0";          
    if ( isNull(saveNode)) saveNode = "/root/main/prcp/prcplist";

    //20091208 HJS DUR적용여부를 임시적으로 실시간으로 가져와서 체크한다.
    reqHardCodeInfo("/root/hidden/durappinfo", "/root/hidden/durappinfo", "119");
    model.makeValue( "/root/initsrch/durappyn/trgtcd", model.getValue("/root/hidden/durappinfo/hardcd/hardcd") )
    
    //PRN 적용여부를 실시간으로 가져와서 체크한다. 2010-01-02 by LYJ 
    reqHardCodeInfo("/root/hidden/prnprcpyninfo", "/root/hidden/prnprcpyninfo", "173");
    model.makeValue( "/root/save/saveflaginfo/prnprcpyninfo", model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd") );
    
    var tuningyn = getTuningYn(); //튜닝 적용여부를 실시간으로 가져와서 체크한다. 2013-03-12 by 박황백 
    if (tuningyn == "Y") {
	    model.makeValue( "/root/save/saveflaginfo/savekindflag", savekindflag );
    }

    var aftdcyn = "N"; //청구후 d/c처방 여부 by sonjy 20081027
    
    //전처방 탭이 아닌 탭에 포커싱 될 때 인증저장 시 DC처방 저장되지 않음. "btn_ivbfprcp.selected &&" 조건 삭제 (JJE)
    if ( model.getValue ( "/root/cp") != "Y" ) {
        if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) {
            ivw_prcp3.window.javascript.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 = ivw_prcp3.instance1.selectSingleNode("/root/prcpsrch/prcplist[chkcol=D]");                     // DC처방           
            if( dcNode != null && model.getValue ( "/root/init/setprcpyn") == "Y" ){
                ivw_prcp3.window.javascript.fAppendDC();
            }
            model.makeValue ( "/root/save/saveflaginfo/prtlflag", prtlFlag_SMMMO00110 ); //MMPHPTCP의 prtlflag(프로토콜구분)이 '-'이거나 '01'이면 CP (DC저장을 위함)
        }
    }

    var savedataflag = fSaveExistCheck( savekindflag );
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );

    if ( savedataflag == -1 ) {
        if ( prcpgenrflag == "O" ) { 
            savedataflag = 3;
        } else {
            messageBox ( "저장할", "E013" );
            return false;
        }
    } else if ( savedataflag == 5 ) {
        messageBox ( "처방DC는 임시저장", "E001" );
        return false;
    } 
    
    // 처방 저장시 화면에서 처장 가능 한지 체크 한다.
    var sIprcAddYn = model.getValue("root/paminfo/list/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 (model.getValue ( "/root/initsrchprcp/prcpetccnts/admiprcpyn" ) == "Y" ) { //admission 처방이 없는데
            if ( !isNull(model.getValue ( "/root/main/prcp/prcplist[prcpkindcd='10']/prcpcd"))) { //정규처방이 존재하면
                if ( "7" == messageBox ( "입원당일 Admission 처방이 존재하지 않습니다. 그래도 정규처방을", "Q002" )) return false;
                else saveok = "Y"; //질문을 한번만 하려고 수정
            }
        }
        
        if ( saveok == "N" ) {
            if ( savedataflag == 6 ) {
                if( messageBox ( "", "Q002" ) == "6"  ) {
                    saveok = "Y";
                } else {
                    saveok = "N";
                }
            } else {
                if( messageBox ( "", "Q002" ) == "6"  ) saveok = "Y";
            }
        }
    } else {
        saveok = "Y"
    }
    
    if( saveok != "Y"  ) { return false; }

    if (savekindflag != 1) { // 처방 저장전 체크 해야 할 것들           
        if (!fPrcpSaveChkBf(prcpchkflag)) return false; 
    }
    
    model.removeNodeSet ( "/root/send/cond2" );
    model.makeNode ( "/root/send/cond2" );
    
    //저장등록정보(saveRgstInfo)
    if ("I" == prcpgenrflag || "E" == prcpgenrflag || "D" == prcpgenrflag) {
        model.setValue ( "/root/paminfo/list/dethdt", model.getValue(sRTC + "/patinfo/dethdt")); // 인증저장데이터 생성위치 변경에 따라 사망일자를 실시간 조회 하여 설정 2013.06.05 엄영만
    }
    var saveRgstInfo = model.instances(0).selectNodes( "/root/paminfo/list" );
    model.setValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); 
    
    //저장처방정보(savePrcpInfo)
    var savePrcpInfo = model.instances(0).selectNodes( saveNode );
      
    // 미완성 처방 저장 시, '-' 까지 함께 저장하려 하기때문에 I 만 저장하도록 분기 (2008.10.15 JJE) (s)
    if( model.getValue("/root/cp") != "Y" ){
        model.copyNode ( "/root/send/cond3", "/root/main/prcp" ); 
    }else{
        fClearSaveInstance();
        fAppendSaveNode( "/root/send/cond3", saveNode );
    }
    
    fAppendSaveNode( "/root/send/cond3", "/root/prcper/prcplist" );
    fAppendSaveNode( "/root/send/cond3", "/root/prcpdc/prcplist" );
    nPrcpCnt = model.instances(0).selectNodes("/root/send/cond3/prcplist" ).length - 1;
    //청구후 d/c처방 여부 setting by sonjy 20081027 => 청구후 d/c일 경우 산정특례 및 법정전염병등의 처방저장 후 로직을 탈필요가 없음.
    var aftdclist = model.instances(0).selectNodes( "/root/prcpdc/prcplist[tempcol21='C']" ); 
    if( aftdclist != null ){
        if( aftdclist.length > 0 ) aftdcyn = "Y";
    }   
    
    if ( prcpchkflag == "drugdc" ) { //약/주사 D/C 요청 중에 반납요청된 것은 D/C 처리한다.( 저장로직에서 사용 )
        model.setValue ( "/root/send/cond14", getNodeListCSV (model.instances(0).selectNodes( "/root/prcpdc/prcplist" ))); 
    }

    //setValue 후에 prcpdc 에 옮겨 놓은 prcplist를 클리어 한다.
    model.removeNodeset ( "/root/prcpdc/prcplist" ); 

    //저장진단정보(saveDiagInfo)
    var saveDiagInfo = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" );
    nDiagCnt = saveDiagInfo.length - 1;
    model.setValue ( "/root/send/cond4", getNodeListCSV(saveDiagInfo));         

    if ( savekindflag != 1 && signyn == "Y" ) {
        var sSignBfPrcpConts = getSignBfConts("1", "/root/paminfo/list", "/root/send/cond3/prcplist");      // 암호화전 인증저장 처방 데이터
        var sSignBfDiagConts = getSignBfConts("2", "/root/paminfo/list", "/root/main/diaginfo/diagcdlist"); // 암호화전 인증저장 진단 데이터
        var sSignAfPrcpConts = "";  // 암호화후 인증저장 처방 데이터
        var sSignAfDiagConts = "";  // 암호화후 인증저장 진단 데이터
        
        var signid = getUserInfo ("userid");
        var signopt = false;
        
        // 응급실환자중 하드코드에 등록되어 있는 과 의사가 로그인 후 처방을 낼 경우에는 인증저장을 한번만 하게 함.(외래와 동일하게 처리)
        var sPD = model.getValue("/root/hidden/securelimitdeptlist/hardcd[hardcd = '" + getUserInfo("dutplcecd") + "']/hardcd");;
        if ( prcpgenrflag != "O" && !(prcpgenrflag == "E" && sPD != "") ) {
            signopt = true;
        }              

        // 입원 또는 응급일 경우                    // 20111201 knuh 최원돈
        // 기록/처방 직전 인증저장이 정해진 시간(분 단위, 하드코드 401) 이내이면 인증서를 띄우지 않음(1/2)
        // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js
        // 띄우지 않는 로직
        var ls_emrinptsavetime = fGetHardCDList("Y", 401, 3);
        var ll_emrinptsavetime = ls_emrinptsavetime == "" ? 0 : parseInt(ls_emrinptsavetime) * -1; 
        if (   (   prcpgenrflag == "I"
                || prcpgenrflag == "E")
            && ll_emrinptsavetime < 0
            && getGlobalVariable("emrinptsavetime") >= getCurrentDateTime().toDate("YYYYMMDD hhmmss").getAddDate(ll_emrinptsavetime, "m").getDateFormat("YYYYMMDD hhmmss"))
        {
            signopt = false;
        }        
        
        if(!isNull(sSignBfPrcpConts)) {
            sSignAfPrcpConts = fSaveSign ( sSignBfPrcpConts, signid, signopt); //처방인증
            if ( sSignAfPrcpConts != "N" ) {
                if (isNull( sSignAfPrcpConts )) { return false; }
                signopt = false; //진단에서 또 안띄우기 위해서 false로 수정
            }
        }

        if(!isNull(sSignBfDiagConts)) {
            sSignAfDiagConts = fSaveSign ( sSignBfDiagConts, signid, signopt); //진단인증
            if ( sSignAfDiagConts != "N") {
                if (isNull(sSignAfDiagConts)) { return false; }
            }
        }
    }    

    // 저장구분정보(saveFlagInfo)
    model.setValue  ( "/root/save/saveflaginfo/savedataflag",       savedataflag );                                       // 저장자료구분 0:진단 및 처방, 1:진단, 2:처방, 4:처방임시저장, 6:진단 및 처방 임시저장, 7:진단임시저장
    model.setValue  ( "/root/save/saveflaginfo/saveflag",           prcpgenrflag);                                        // 저장구분 O:외래, I:입원, E:응급, S:건진
    model.setValue  ( "/root/save/saveflaginfo/prcpflag",           prcpflag );                                           // 처방구분 0:의사처방, 2:간호, 3:지원부서, 5:Admission, 6:CP, 7:항암프로토콜, 8:임시처방
    model.setValue  ( "/root/save/saveflaginfo/inptflag",           "0" );                                                // 입력구분 0:의사, 1:간호사(간호에서 사용), 3:지원부서
    model.setValue  ( "/root/save/saveflaginfo/deptcd",             getUserInfo("dutplcecd"));                            // 부서코드
    model.setValue  ( "/root/save/saveflaginfo/deptnm",             getUserInfo("dutplcenm"));                            // 부서명
    model.setValue  ( "/root/save/saveflaginfo/userid",             getUserInfo("userid"));                               // 사용자ID
    model.setValue  ( "/root/save/saveflaginfo/usernm",             getUserInfo("usernm"));                               // 사용자명
    model.setValue  ( "/root/save/saveflaginfo/prcpdd",             model.getValue("/root/init/prcpdd"));    
    model.setValue  ( "/root/save/saveflaginfo/divyn",              prcpchkflag );                                        // 용량분할 할건지
    model.makeValue ( "/root/save/saveflaginfo/durappyn",           model.getValue( "/root/initsrch/durappyn/trgtcd" ) ); // 2010.11.24 이선경 수정 : 경북대용 DUR flag값을 던져줘야 함
    model.makeValue ( "/root/save/saveflaginfo/nonprgflag",         fCompareNonPrgDiag());
    model.makeValue ( "/root/save/saveflaginfo/signbfprcpconts",    sSignBfPrcpConts); // 인증저장 암호화 전 처방 데이터
    model.makeValue ( "/root/save/saveflaginfo/signbfdiagconts",    sSignBfDiagConts); // 인증저장 암호화 전 진단 데이터
    model.makeValue ( "/root/save/saveflaginfo/signafprcpconts",    sSignAfPrcpConts); // 인증저장 암호화 전 처방 데이터
    model.makeValue ( "/root/save/saveflaginfo/signafdiagconts",    sSignAfDiagConts); // 인증저장 암호화 전 진단 데이터
    
    if ( savekindflag == 1 ) { 
        model.setValue( "/root/save/saveflaginfo/signyn", "N" );  // 임시저장
    } else {
        model.setValue( "/root/save/saveflaginfo/signyn", signyn); // 인증저장       
    }
    
    if ( model.getValue ( "/root/addprcp" ) == "Y" ) {
        model.setValue ( "/root/save/saveflaginfo/pseuacptflag", model.getValue ( "/root/formerkey/pseuacptflag" ));
        model.setValue ( "/root/save/saveflaginfo/admininfo",    model.getValue ( "/root/admininfo" ));
    } else {
        model.setValue ( "/root/save/saveflaginfo/pseuacptflag", "N");
        model.setValue ( "/root/save/saveflaginfo/admininfo",    "NNNNNNNNNNNNNNNNNNNN");
    }
    
    var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" );     
    model.setValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 
    
    
    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
        if ( !submit ( "TXMMO00121", false )) {
            if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) {    //조건추가(2008.09.01 JJE)
                model.resetInstanceNode ( "/root/send" );
            }
            fClearSaveInstance();
            model.refresh();
            return false;
        }
    } else {
        if ( !submit ( "TXMMO00122", false )){
            if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) {    //조건추가(2008.09.01 JJE)
                model.resetInstanceNode ( "/root/send" );
            }
            fClearSaveInstance();
            model.refresh();
            return false;
        }
    }
    
    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(model.getValue("/root/result/saveetcchklist/dschyn") == "Y"){
        messageBox ("퇴원예고를 해야만 퇴원 및 퇴원후외래,입원전검사(전일/당일) 처방을 저장할 수 있습니다." , "E" );
        preDsch();
        return false;
    }
    
    //DUR-S, 2009-10-01 차현철        
    // 저함량 용량분할의 경우 기존 것을 사용함으로 DUR을 뒤에 수행
    // 경북대용 DUR 적용시에는 저함량 용량분할 체크 후 DUR 로직체크 함
    // durappyn : "A-전체 DUR", "Y-저함량제외 DUR", "나머지-DUR 사용안함"  , "K:경북대용 DUR"
    if (model.getValue("/root/initsrch/durappyn/trgtcd") != "A" ) {         
        if ( model.getValue ( "/root/result/divinfo/divchkflag" ) == "N" ) {
            var divPrcpInfo = model.instances(0).selectNodes( "/root/result/prcplist" );
             
             if ( divPrcpInfo.length > 0 ) { // 용량분할, 저함량
                if ( !isNull(model.getValue ( "/root/result/prcplist/prcpcd"))){
                    xpt = window.screenleft + 100;
                    ypt = window.screenTop + 50;                    
                    coord = getRelativeCoordinate ( xpt, ypt );
                    mon = coord[0];
                    xpt = coord[1];
                    ypt = coord[2];
                    //by sonjy 20090714 변경요청서 처리 :  저함량 용량분할창 닫기버튼 삭제처리 
                    modal ( "SPADB62400", mon,  xpt, ypt, "SPADB62400", "/root/result", "/root/main/prcp", "sysmenu:hidden;", false );  
                    model.refresh();
                    model.recalculate();        
                    fClearSaveInstance();
                } 
                model.refresh();
                fPrcpSave_new( prcpflag, savekindflag, "", "N"  ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
                return false;
            }
        } else if (model.getValue ( "/root/result/divinfo/divchkflag" ) == "A") {
            //20090420 마정민 수정 항암용량분할은 기존에는 서버에서 불할되어 바로 저장체크로직으로 갔지만 보험제한규정에 걸려서
            //다시저장할때 분할된 내용이 화면이 표시가 되지 않아 용량분할이 되지 않음.
            //항암용량분할도 화면에 표시하게 수정
            model.removeNodeSet ( "/root/main/prcp/prcplist" );
            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 (i = 1; i <= getNodesetCount("/root/result/prcplist"); i++) {
                if(model.getValue("/root/result/prcplist["+i+"]/status") == "S") {
                    model.setValue("/root/result/prcplist["+i+"]/prcpvol", "");
                    model.setValue("/root/result/prcplist["+i+"]/prcpqty", "");
                    model.setValue("/root/result/prcplist["+i+"]/prcptims", "");
                    model.setValue("/root/result/prcplist["+i+ "]/prcpdayno", ""); 
                    break;    
                }   
            }          
        
            for ( i=0; i < srcNodeList.length; i++ ){
                destNode.appendChild(srcNodeList.item(i).cloneNode(true));
            }
            model.refresh();
            fPrcpSave_new( prcpflag, savekindflag, "", "N"  ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
            return false;
        } 
    }
    
    var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist" );     
    if ( prcpErrList.length > 0 ) {
        if ( !isNull(model.getValue ( "/root/result/prcperrlist/prcpcd"))){
            
            //20080928 마정민 수정 병용금기, 연령금기만 있을 경우에는 사유입력하면 처방 낼수 있도록 처리
            var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist");
            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=1; i <= srcNodeList.length; i++ ) {
                flag = model.getValue ( "/root/result/prcperrlist[" + i + "]/flag" );
                if ( flag == "1" ) {
                    errorCnt++;
                } else if (flag == "9") { // 사전심사에 관련한 에러내용은 따로 처리한다.  2010. 10. 08  김영학
                    if ( prcpgenrflag == "O" ) {
                        //외래 사전심사인 경우 사전심사 팝업을 띄우고
                        bfJudgErrorCnt++;
                    }else{
                        //입원 사전심사인 경우 바로 비급여로 변경 (2010.12.30 JJE, 경북대 이은정선생님 요청)
                        errPrcpCd = model.getValue ( "/root/result/prcperrlist[" + i + "]/prcpcd" );
                        errRowNum = model.getValue ( "/root/result/prcperrlist[" + i + "]/errrow" );
                        var ChngInsuKindList = model.instances(0).selectNodes( "/root/result/savedrprcplist[prcpcd='"+errPrcpCd+"']" );
                        if( ChngInsuKindList.length > 0 ){
                            for(var bfRow=0; bfRow < ChngInsuKindList.length; bfRow++ ) {
                                var bfNode = ChngInsuKindList.item(bfRow);
                                var bfPayFlagCdNode  = bfNode.selectSingleNode("payflagcd");
                                var chngPayFlagCd = "";
                                if( errRowNum == "2" ) chngPayFlagCd = errRowNum; //일반
                                else chngPayFlagCd = "1";                         //비급여
                                model.setValue(bfPayFlagCdNode, chngPayFlagCd);
                                //var bfDrPrcpEtc9Node = bfNode.selectSingleNode("drprcpetc9");
                                //model.setValue(bfDrPrcpEtc9Node, "Y");
                            }
                        }
                    }
                } 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 = window.screenleft + 180;
            ypt = window.screenTop + 50;                    
            coord = getRelativeCoordinate ( xpt, ypt );
            mon = coord[0];
            xpt = coord[1];
            ypt = coord[2];

            if ( errorCnt > 0 ) {
                open ( "SPMMO00600", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //오류팝업
            } else {
                // 사전심사 요구창 팝업
                if ( bfJudgErrorCnt > 0) {
                    clearParameter("SPMMO21500_rntValue"); //parameter 초기화(2011.01.31 JJE)
                    modal ( "SPMMO21500", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //오류팝업
                }
            }

            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=1; i<=prcpErrList.length; i++ ) {
                    if (model.getValue ("/root/result/prcperrlist[" + i + "]/flag") == "1") {
                        errrow = model.getValue ("/root/result/prcperrlist[" + i + "]/errrow");
                        
                        //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                        dcprcppkspec = model.getValue ("/root/result/prcperrlist[" + i + "]/dcprcppkspec");
                        //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30
                        if ( !isNull(errrow) && errrow > 0 && errrow < grd_prcplist.rows -1 ) {
                            model.setValue ("/root/main/prcp/prcplist[" + errrow + "]/tempcol9", "#ff6600");

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

                //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                if( iDcRow > 0 ){ 
                    if( btn_ivbfprcp.selected == true
                       && model.getValue("/root/bfinityn") ==  "Y" ){ 
                        if ( model.getValue ( "/root/cp") != "Y" ) { 
                            ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray);
                        }else{
                            ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray);
                        }
                    }
                }
                //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30

                fClearSaveInstance();
                model.removeNodeset("/root/result/prcperrlist");
                return false;
            }  

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

                var bfRtnValue = getParameter("SPMMO21500_rntValue");
                if (bfRtnValue == "REQ") {
                    model.removeNodeset("/root/result/prcperrlist");
                    if ( isNull ( model.getValue ( "/root/main/prcp/prcplist[status='I' or status='D' or status='U']/prcpcd" ))) {
                        if (isNull(model.getValue ( "/root/main/diaginfo/diagcdlist[status='I' or status='D' or status='U']/diagcd" ))) {
                            messageBox ( "사전심사할 처방 및 진단이 없습니다.", "E" );
                            fClearSaveInstance();
                            model.removeNodeset("/root/result/prcperrlist");
                            return false;
                        }
                    }
                    if ( !fPrcpSave_new("0", "1")) {
                        model.removeNodeset ( "/root/prcpdc/prcplist" );
                    }
                    fClearSaveInstance();
                    return false;

                } else if (bfRtnValue == "chgPayFlag") {
                    model.removeNodeset("/root/result/prcperrlist");
                    var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length;
                    var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length;
                    if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                        //fPrcpSave_new( "", "", "", "N"  );
                        fPrcpSave_new( prcpflag, savekindflag, "", "N"  );
                    }
                    return false;
                } else {
                    fClearSaveInstance();
                    model.removeNodeset("/root/result/prcperrlist");
                    return false;
                }
            }
        }               
    }         
    
    //kimsj 수혈동의서 메세지
    if ( model.getValue ("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn") == "Y" ) {
        var ocryndaymsg = model.getValue ( "/root/hidden/ocrbldyn/ocrbldyn/ocrynday" );
        messageBox("첫 수혈이거나 마지막 수혈시행일로부터 " + ocryndaymsg + "일 이상이 경과하였으니 \n  수혈동의서를 작성해주시기 바랍니다.", "E"); 
        model.removenode("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn");
    }

    if (savekindflag != 1) { //임시저장이 아닐때
        var antibioreq = model.instances(0).selectNodes( "/root/result/antibioreq" ); // 제한항생제 신청정보
        if ( antibioreq.length > 0 ) {
            for ( var i=1; i <= antibioreq.length; i++ ) {
                var sMsg = model.getValue ( "/root/result/antibioreq[" + i + "]/antibioreq_msg");
                if ( sMsg != "" &&  messageBox ( sMsg, "Q" ) != "6") {
                    fClearSaveInstance();
                    model.removeNodeset("/root/result/antibioreq");
                    return false;
                }
            }
        }

        var qestflagcnt = 0;
        var limprcplist = model.instances(0).selectNodes( "/root/result/limprcplist" ); // 보험제한처방
        if ( limprcplist.length > 0 ) {
            for ( var i=1; i <= limprcplist.length; i++ ) {
                if ( model.getValue ( "/root/result/limprcplist[" + i + "]/qestflag") != "M" ) {
                    qestflagcnt++;
                }
            }
            if ( qestflagcnt == 0 && getRegistryPrcp ( "limprcp|"+getCurrentDate()) == "Y" ) {
            } else {
                if ( !isNull(model.getValue ( "/root/result/limprcplist/calcscorcd"))) {
                    xpt = window.screenleft + 100;
                    ypt = window.screenTop + 50;                    
                    coord = getRelativeCoordinate ( xpt, ypt );
                    mon = coord[0];
                    xpt = coord[1];
                    ypt = coord[2];
                    var rowid = 0
                    for ( var k=1; k <= limprcplist.length; k++ ){
                        rowid = eval(model.getValue ( "/root/result/limprcplist[" + k + "]/rowid" ));
                        var displayprcpnm = rowid + ". " + model.getValue ( "/root/result/limprcplist[" + k + "]/calcscorcd" ) +  "\n" + "[" + model.getValue ( "/root/result/limprcplist[" + k + "]/prcpnm") + "]";
                        model.setValue ( "/root/result/limprcplist[" + k + "]/displayprcpnm", displayprcpnm );
                    }               
                    modal ( "SPMMO00900", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false );
                    model.removeNodeset("/root/result/limprcplist");
                    if ( getParameter ( "SPMMO00900_rtnyn" ) == "Y" ) {
                        clearParameter ( "SPMMO00900_rtnyn" );
                        var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length;
                        var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length;
                        if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                            //fPrcpSave_new( "", "", "", "N"  );
                            fPrcpSave_new( prcpflag, savekindflag, "", "N"  );
                        }
                        return false;
                    } else if ( getParameter ( "SPMMO00900_rtnyn" ) == "C" ) {
                        //msg만 있는 것이라면 그냥 진행함
                    } else {
                        return false;
                    }
                } 
            }
            
        } // 보험제한처방끝    

        var duplprcplist = model.instances(0).selectNodes( "/root/result/duplprcplist" ); //처방중복체크
        if ( duplprcplist.length > 0 ) {
            if ( !isNull(model.getValue ( "/root/result/duplprcplist/prcpnm"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO14100_rtn1" )
                modal ( "SPMMO14100", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO14100_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/duplprcplist");
                    return false;
                } 
            } 
        } 
        
        var warnprcplist = model.instances(0).selectNodes( "/root/result/warnprcplist" ); //주의요망 처방체크
        if ( warnprcplist.length > 0 ) {
            if ( !isNull(model.getValue ( "/root/result/warnprcplist/prcpnm"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO14101_rtn1" )
                modal ( "SPMMO14101", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO14101_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/warnprcplist");
                    return false;
                } 
            } 
        } 

        //DUR - E   
        //향정신성 의약품 30일 이상 처방일 경우 처방 사유를 입력받도록 수정
        var spclhdrugprcplist = model.instances(0).selectNodes( "/root/result/spclhdrugprcplist" ); //처방중복체크(성분)
        if ( spclhdrugprcplist.length > 0 ) {
            if ( !isNull(model.getValue ( "/root/result/spclhdrugprcplist/prcpnm"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO21800_rtn1" );
                modal ( "SPMMO21800", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO21800_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/spclhdrugprcplist");
                    return false;
                } 
            } 
        }
        
        //처방 사유 입력창 팝업 여부 (2011.12.28 엄영만)
        var checkprcpresn = model.instances(0).selectNodes( "/root/result/checkprcpresn" ); 
        if ( checkprcpresn.length > 0 ) { // 처방사유 입력항목이 있을경우 팝업
            if ( !isNull(model.getValue ( "/root/result/checkprcpresn/prcpcd"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO50100_rtn1" );
                modal ( "SPMMO50100", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO50100_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/checkprcpresn");
                    return false;
                } 
            } 
        }

        //급성심근경색 퇴원약 아스피린 및 베타차단체 처방 여부 (2011.09.16 엄영만)
        var amidschprcpinfo = model.instances(0).selectNodes( "/root/result/amidschprcpinfo" ); //아스피린 및 베타차단체 처방 여부
        if ( amidschprcpinfo.length > 0 ) {
            //급성심근경색 퇴원약 아스피린 미처방사유
            if (model.getValue ( "/root/result/amidschprcpinfo/asprinyn") == "N"){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                
                clearParameter ( "SPMMO21900_rtn1" );
                clearParameter ( "SPMMO21900_hardcdno" );
                clearParameter ( "SPMMO21900_title" );
                clearParameter ( "SPMMO21900_resncode" );
                clearParameter ( "SPMMO21900_resncmt" );
                
                setParameter("SPMMO21900_hardcdno", "311"); // 하드코드 311 급성심근경색 퇴원약 아스피린 미처방사유
                setParameter("SPMMO21900_title", "급성심근경색 퇴원약 아스피린 미처방사유");

                modal ( "SPMMO21900", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/amidschprcpinfo");
                    return false;
                }
                
                var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid"       , model.getValue( "/root/initsrchcond/pid"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd"     , model.getValue( "/root/initsrchcond/orddd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno"    , model.getValue( "/root/initsrchcond/cretno"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype"   , model.getValue( "/root/initsrchcond/ioflag"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno"    , "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag"  , "005"); 
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd"    , getParameter("SPMMO21900_resncode"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts"  , getParameter("SPMMO21900_resncmt"));
            }
            
            //급성심근경색 퇴원약 베타차단제 미처방사유
            if (model.getValue ( "/root/result/amidschprcpinfo/antibetayn") == "N"){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                
                clearParameter ( "SPMMO21900_rtn1" );
                clearParameter ( "SPMMO21900_hardcdno" );
                clearParameter ( "SPMMO21900_title" );
                clearParameter ( "SPMMO21900_resncode" );
                clearParameter ( "SPMMO21900_resncmt" );
                
                setParameter("SPMMO21900_hardcdno", "312"); // 하드코드 312 급성심근경색 퇴원약 베타차단제 미처방사유
                setParameter("SPMMO21900_title", "급성심근경색 퇴원약 베타차단제 미처방사유");

                modal ( "SPMMO21900", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/amidschprcpinfo");
                    return false;
                }

                var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid"       , model.getValue( "/root/initsrchcond/pid"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd"     , model.getValue( "/root/initsrchcond/orddd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno"    , model.getValue( "/root/initsrchcond/cretno"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype"   , model.getValue( "/root/initsrchcond/ioflag"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno"    , "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag"  , "006");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd"    , getParameter("SPMMO21900_resncode"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts"  , getParameter("SPMMO21900_resncmt"));
            }
        }

        if ( !isNull(model.getValue ( "/root/result/savetnmlist/pid" )) || !isNull(model.getValue ( "/root/result/savecncrlist/pid" ))) { //병기분류
                xpt = window.screenleft + 300;
                ypt = window.screenTop;                 
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];     
                clearParameter ( "SPMMO08400_rtn1" )
                modal ( "SPMMO08400", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/tempresult", "", false );
                if ( getParameter ( "SPMMO08400_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;

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

            if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                for (var i=1; i<=srcNodeList.length; i++) {
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
                }
                return false;
            } else {
                if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                    fPrcpSave_new( prcpflag, savekindflag, "", "N"  );                          
                    return false;
                }
            }
        }
        
        //2010-11-29 이선경 추가 : 경북대용 DUR 임부금기 체크중 falg값이 4인 경우 경고메시지 띄우고 처방저장 가능
        if( kimbuCnt > 0 ) {
            var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist");
            var flag      = "";
            var prcpcd    = "";
            var prcpnm    = "";
            var prcperr   = "";
            var sAlertMsg = "";

            for(var j =1; j <= srcNodeList.length; j++ ) {
                flag = model.getValue ( "/root/result/prcperrlist[" + j + "]/flag" );
                if(flag == "4") {
                    prcpcd = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcpcd" );
                    prcpnm = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcpnm" );
                    prcperr = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcperr" );
                    
                    if(sAlertMsg == "") {
                        sAlertMsg = "[의약품 처방지원 서비스(DUR) 정보]\n  아래의 처방은 한번 더 확인 하시기 바랍니다.!";
                    }
                    
                    sAlertMsg = sAlertMsg + "\n\n" + prcpnm + "[" + prcpcd + "]" + "은(는) " + prcperr;
                    
                    var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                    for (var i=1; i<=srcNodeList.length; i++) {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
                    }
                }
            }
            
            if (sAlertMsg != "") {
                messageBox(sAlertMsg, "I999");
            }
        }
    }
    
    //model.addlog("      SPEED CHECK END OF DUR처리(처방전내)");
    //model.addlog("      SPEED CHECK START OF 동의서출력");
    
    if ( savekindflag != 1 && signyn == "Y" ) {
        var signbfcnts = model.getValue ( "/root/result/signprcplist/signprcp_signbfcnts" );
        if (!isNull( signbfcnts )) {
            fAppendSaveNode( "/root/send/cond2", "/root/result/signprcplist" ); //의사처방데이터
        }
        
        signbfcnts = model.getValue ( "/root/result/signdiaglist/signdiag_signbfcnts" );
        if (!isNull( signbfcnts )) {
            fAppendSaveNode( "/root/send/cond2", "/root/result/signdiaglist" ); //진단인증
        }
    }
    
    if (savekindflag != 1) {
        //JJE (CP는 당일+미래 모든처방 저장 종료 후 한꺼번에 출력) //CP 임시처방 저장시 수행하도록 수정(2008.10.20 JJE)
        if ( model.getValue ( "/root/cp") != "Y" ) {
            if (!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");
                }
            }
        }

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

    //2011. 01. 09 인증저장전 환자의 진료예약여부를 확인한다. 
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
        // 외래 예약 창을 팝업 한다. 
        if (savekindflag == "0"  && model.getValue ( "/root/addprcp" ) != "Y"  ){
            var returnVal = fGetHardCDList("Y", 269, 3);
            var prcpsavebtnflag = model.getValue("/root/init/prcpsavebtnflag");
            if ((returnVal == "N" || prcpsavebtnflag == "2") && model.getValue("/root/paminfo/list/ordtype") == "O" ) {
                var maxdayno = 0;
                for (rowno = 0 ; rowno < grd_prcplist.rows; rowno++ ) {
                    var chkmaxdayno = model.getValue ( "/root/main/prcp/prcplist[" + rowno + "]/maxdayno" );
                    if (chkmaxdayno <=  maxdayno ) {
                        maxdayno = maxdayno ;
                    } else {
                        maxdayno = chkmaxdayno
                    }
                }
                var todd = (getCurrentDate().toDate()).getAddDate(maxdayno);
                
                setParameter("SMPMO00300_PARM1", model.getValue ( "/root/paminfo/list/orddeptcd" )); //진료과코드
                setParameter("SMPMO00300_PARM2", orddrid); //진료의사코드
                setParameter("SMPMO00300_PARM3", model.getValue ( "/root/paminfo/list/pid" )); //환자번호   
                setParameter("SMPMO00300_PARM4", todd); // 예약일자
                            
                fPrcpModal ("SMPMO00300", 0, 80);
                clearParameter("SMPMO00300_PARM1");
                clearParameter("SMPMO00300_PARM2");
                clearParameter("SMPMO00300_PARM3");
                clearParameter("SMPMO00300_PARM4");
            }
        }
    }                                

    fAppendSaveNode( "/root/send/cond2", "/root/result/savedrprcplist" );   //의사처방데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/saveexecprcplist" ); //실시처방 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savediaglist" );     //진단저장 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savepamlist" );      //원무정보 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savematrprcplist" ); //재료처방정보 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savesujinresn" );    //수진별 처방사유 데이터 (2011.09.15 엄영만) 급성심근경색 환자 퇴원약(베타차단제,아스피린) 미발행 사유 입력을 위해 생성
    fAppendSaveNode( "/root/send/cond2", "/root/result/bfjudgeprcplist" );  //외래 사전심사 중 누적관련 처방 데이터 (2010.12.27 JJE)
    
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchklist" );      //DUR 점검일반 전문(20120101 고시시행 11/11/24cys)
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkinfo" );      //DUR 점검약품 전문
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" );      //DUR 점검결과 전문
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" );       //DUR 취소전문
    
    if ( prcpgenrflag != "O" && prcpgenrflag != "S" ) {
        //퇴원후 외래처방 저장 setting
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschflaginfo" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschpamlist" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschdrprcplist" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschexecprcplist" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschmatrprcplist" );
        
        //제한항생제 관련
        fAppendSaveNode( "/root/send/cond2", "/root/result/antibioreq" );       //제한항생제 신청정보 (2013.01.10 엄영만)
        fAppendSaveNode( "/root/send/cond2", "/root/result/antibioprcp" );      //제한항생제 처방정보 (2013.01.10 엄영만)
    }
    
    //20080909 시행부서처방
    if ( model.getValue ( "/root/formerkey/pseuacptflag" ) == "Y" ) {
        var saveFormerkey = model.instances(0).selectNodes( "/root/formerkey" );     
        model.setValue ( "/root/send/cond15", getNodeListCSV(saveFormerkey));               
    }
    
    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 (tuningyn == "Y") { // Tuning 1
    	fInstenceSetAgft_New(aftdcyn , prcpsaveyn , prcpflag); //  저장후 인스턴스 셋팅
    }
    
    if ( model.getValue ( "/root/cp") == "Y" && savekindflag != 1 ) {
            //openLoadingBar("저장중입니다.");  //로딩메세지 open (미래처방 오류리스트 팝업처리로 인해 막음)
        if ( prcpgenrflag == "O" ) {
            SubmitTF_SMMMO00110 = submit ( "TXMMP00804", false );
            if ( !SubmitTF_SMMMO00110 ) {           //TXMMO00101
                model.removeNodeSet ( "/root/result");
                return false;
            }
        }else {
            SubmitTF_SMMMO00110 = submit ( "TXMMP00803", false );
            if ( !SubmitTF_SMMMO00110 ) {           //TXMMO00103
                model.removeNodeSet ( "/root/result");
                return false;
            }
        }
    } else {
     // 20100412 퇴원처방 저장/DC 시 입퇴원요약지 기록 인터페이스 태우도록  by LYJ 
        if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) {
            nodelistRecNode = model.instances(0).selectNodes("/root/result/savedrprcplist[prcpkindcd = 60]");
        }
        
             
        model.removeNodeset("/root/result1");
        model.removeNodeset("/root/savertninfo");
        
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
        	if (tuningyn == "Y") { // Tuning 3
        		if ( !submit ( "TXMMO00501", false )) {
                    model.removeNodeSet ( "/root/result");
                    model.resetInstanceNode ( "/root/send" );
                    model.refresh();
                    return false;
                }
        		model.makeNode("/root/savertninfo");
        		copyNodesetType("/root/savertninfo","/root/result1","replace");
        		model.removeNodeSet ( "/root/diaginfo/diagcdlist");
       		    model.makeNode ( "/root/diaginfo/diagcdlist");
       		    copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
        	} else {
	            if ( !submit ( "TXMMO00101", false )) {
	                model.removeNodeSet ( "/root/result");
	                model.resetInstanceNode ( "/root/send" );
	                model.refresh();
	                return false;
	            }
        	}

            //심평원 처방전간 사유가 있으면 입력 20120101 고시          
            if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) {

                //사유팝업
                if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) {
                    model.makeNode("/root/result/kdurchkrslt");
                }

                model.removeNodeset("/root/result/kdurchkrslt");
                model.makeNode("/root/result/kdurchkrslt");

                 for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) {
                   copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+  i +"]", "before");
                  }

                 model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]");

                //DUR 점검결과 전문
                if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) {
                    model.makeNode("/root/result/prcperrlist");
                }
                model.removeNodeset("/root/result/prcperrlist");
                model.makeNode("/root/result/prcperrlist");

               for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) {
                  copyNodesetType("/root/result/prcperrlist" ,"/root/result1/prcperrlist["+  i +"]", "before");
                 }

                 model.removeNode("/root/result/prcperrlist[flag = null]");

                clearParameter ( "SPMMO16101_rtn1" );
                clearParameter ( "SPMMO16101_rtn2" );
                modal ( "SPMMO16101", mon,  xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false );
    
                if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                    var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                    for (var i=1; i<=srcNodeList.length; i++) {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
                    }
                    return false;
                } else {
                    if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                        fPrcpSave_new( prcpflag, savekindflag, "", "N"  );                          
                        return false;
                    }
                }
                model.removeNodeset("/root/result1");
                model.removeNodeset("/root/send/cond2/kdurchkrslt");
                model.removeNodeset("/root/send/cond2/prcperrlist");

                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" );      //DUR 점검결과 전문
                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" );       //DUR 취소전문

                if (tuningyn == "Y") { // Tuning 4
                	if ( !submit ( "TXMMO00503", false )) {
                        model.removeNodeSet ( "/root/result");
                        model.resetInstanceNode ( "/root/send" );
                        model.refresh();
                        return false;
                    }
                	model.removeNodeset("/root/savertninfo");
                    model.makeNode("/root/savertninfo");
                	copyNodesetType("/root/savertninfo","/root/result1","replace"); 
                	model.removeNodeSet ( "/root/diaginfo/diagcdlist");
           		    model.makeNode ( "/root/diaginfo/diagcdlist");
           		    copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
                } else {
	                if ( !submit ( "TXMMO00118", false )) {
	                    model.removeNodeSet ( "/root/result");
	                    model.resetInstanceNode ( "/root/send" );
	                    model.refresh();
	                    return false;
	                }
                }
            }
        } else {
        	 if (tuningyn == "Y") { // Tuning 5
        	 	 if ( !submit ( "TXMMO00502", false )) {
                     model.removeNodeSet ( "/root/result");
                     model.resetInstanceNode ( "/root/send" );
                     model.refresh();
                     return false;
                 }
        		 model.makeNode("/root/savertninfo");
        		 copyNodesetType("/root/savertninfo","/root/result1","replace"); 
        		 model.removeNodeSet ( "/root/diaginfo/diagcdlist");
        		 model.makeNode ( "/root/diaginfo/diagcdlist");
        		 copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
        	 } else {
	            if ( !submit ( "TXMMO00103", false )) {
	                model.removeNodeSet ( "/root/result");
	                model.resetInstanceNode ( "/root/send" );
	                model.refresh();
	                return false;
	            }
        	 }
            //model.addlog("      SPEED CHECK START OF DUR처리(처방전간)");
        
            //심평원 처방전간 사유가 있으면 입력 20120101 고시          
            if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) {
    
                //사유팝업
                if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) {
                    model.makeNode("/root/result/kdurchkrslt");
                }
    
                model.removeNodeset("/root/result/kdurchkrslt");
                model.makeNode("/root/result/kdurchkrslt");
    
                 for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) {
                    copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+  i +"]", "before");
                 }
    
                 model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]");
    
                //DUR 점검결과 전문
                if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) {
                    model.makeNode("/root/result/prcperrlist");
                }
                model.removeNodeset("/root/result/prcperrlist");
                model.makeNode("/root/result/prcperrlist");
    
                 for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) {
                    copyNodesetType("/root/result/prcperrlist" , "/root/result1/prcperrlist["+  i +"]", "before");
                 }
    
                 model.removeNode("/root/result/prcperrlist[flag = null]");
    
                clearParameter ( "SPMMO16101_rtn1" );
                clearParameter ( "SPMMO16101_rtn2" );
                modal ( "SPMMO16101", mon,  xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false );
    
                if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                    var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                    for (var i=1; i<=srcNodeList.length; i++) {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
                    }
                    return false;
                } else {
                    if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                        fPrcpSave_new( prcpflag, savekindflag, "", "N"  );                          
                        return false;
                    }
                }
                model.removeNodeset("/root/result1");
                model.removeNodeset("/root/send/cond2/kdurchkrslt");
                model.removeNodeset("/root/send/cond2/prcperrlist");
    
                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" );      //DUR 점검결과 전문
                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" );       //DUR 취소전문
                
                if (tuningyn == "Y") {// Tuning 6
                	if ( !submit ( "TXMMO00504", false )) {
                        model.removeNodeSet ( "/root/result");
                        model.resetInstanceNode ( "/root/send" );
                        model.refresh();
                        return false;
                    }
                	model.removeNodeset("/root/savertninfo");
                    model.makeNode("/root/savertninfo");
                	copyNodesetType("/root/savertninfo","/root/result1","replace"); 
                	model.removeNodeSet ( "/root/diaginfo/diagcdlist");
           		    model.makeNode ( "/root/diaginfo/diagcdlist");
           		    copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
                } else {
	                if ( !submit ( "TXMMO00119", false )) {
	                    model.removeNodeSet ( "/root/result");
	                    model.resetInstanceNode ( "/root/send" );
	                    model.refresh();
	                    return false;
	                }
                }
            }
            //model.addlog("      SPEED CHECK END OF DUR처리(처방전간)");
        }
        setPatientInfoDetailByKey("prcpsaveyn", pid+ "|" + model.getValue("/root/init/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 = fGetHardCDList("Y", 315, 3); // 315 퇴원약 처방시 복약상담의뢰 자동팝업 사용 여부
    var pop_MedicineConsult = "N"; // 복약상담의뢰 창 팝업 여부 2011.10.24 엄영만 (칠곡 약제부 이석미 요청)
    if (    sChkMedicineConsultYn == "Y" && prcpflag == '0' && savekindflag == '0'
         && !isNull(model.getValue ( "/root/main/prcp/prcplist[(prcpgenrflag='I' or prcpgenrflag='E') and (prcpkindcd='60') and (prcpclscd='A2' or prcpclscd='A4' or prcpclscd='A6')]/prcpcd"))){
        pop_MedicineConsult = "Y";
    }

    if ( model.instances(0).selectNodes( "/root/result/savedrprcplist" ).length > 0 ) {
        prcpsaveyn = "Y";
        
        //JJE 2008.09.08
        if(model.getValue("/root/cp") == "Y") prcpsaveyn_SMMMO00110 = "Y";
    }
    
    //DUR-S
    //by sonjy 20091216 처방 인증저장 성공후  이전 difguid초기화 
    // durappyn : "A:DUR전체사용", "Y:DUR중 저함량제외", "나머지:DUR 사용안함" , "K:경북대용 DUR"
    if ( model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "A" || model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "Y") { 
        if( prcpchkflag != "N" && saveok == "Y" && savekindflag == "0" && prcpsaveyn == "Y" ){ 
            model.makeValue("/root/init/bf_difguid", "");
        }
    }
    //DUR-E 
    
    //20080910 마정민 수정. 시행부서처방은 산정특례 체크 안한다.
    if( model.getValue("/root/cp") == "Y" && model.getValue ( "/root/addprcp" ) != "Y"  ){
        //JJE 조건추가 2008.09.08
        //인증저장인 경우, M-GPS의 적용 버튼 이벤트에서 (당일+미래처방 저장 처리가 모두 끝난 후) fGetPrcpSaveAftInfo()를 직접 호출하므로, 임시저장 때에만 여기에서 수행함.
        if( savekindflag == 1 ){
        	if(tuningyn == "Y") { // tuning 7
        		fGetPrcpSaveAftInfo_New ( prcpsaveyn ,"Y"); 
        	} else {
        		fGetPrcpSaveAftInfo ( prcpsaveyn ,"Y");
        	}
        }
        
    }else{
        if( savekindflag == 1 ) { 
            aftdcyn = "Y"; //임시저장일 경우 산정특례 및 법정전염병 타지 않도록....by sonjy 20081123
        }
        if(tuningyn == "Y") { // tuning 8
    		fGetPrcpSaveAftInfo_New ( prcpsaveyn ,aftdcyn); //청구후 d/c가 아닐 경우만 타도록 parameter 추가 . by sonjy 20081027 
    	} else {
        	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"  && model.getValue ( "/root/addprcp" ) != "Y"  && model.getValue ( "/root/cp") != "Y" 
        && (prcpgenrflag == "O" || prcpgenrflag == "S")){
        var returnVal = fGetHardCDList("Y", 268, 3);
        var patgolistprtyn = model.getValue("/root/init/patgolistprtyn");
        if ((returnVal == "N" || patgolistprtyn == "Y") && model.getValue("/root/paminfo/list/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(tuningyn != "Y") { // tuning 8 저장 시 로직으로 합침
            //수술중처방 마약집계호출
	        if ( model.getValue ( "/root/init/drugbatch" ) == "Y" ) {
	            submit ( "TXMMO00106", false );
	        }
	
	        if ( prcpgenrflag == "E" ) { //응급일 때 진료지원 예약모듈 호출
	            submit ( "TXMMO00110", false );
	        }
        }
    }
    
    model.removeNodeSet ( "/root/main/prcp/prcplist");
    appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" );
    model.removeNodeSet ( "/root/result");
    model.removeNodeSet ( "/root/result1");
    model.removeNodeSet ( "/root/send/cond2" );
    model.makeNode ( "/root/send/cond2" );
    model.resetInstanceNode ( "/root/send" );

    //추가처방화면이면
    if ( model.getValue ( "/root/addprcp" ) == "Y" ) {
        fAddPrcpInitConDone( "", "", "", "", "", "Y" , "" );
    } 

    //ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
    //외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
    var operation = getGlobalVariable("operation"); //수술예약정보 set
    var ioflag = model.getValue ( "/root/paminfo/list/ioflag" );
    if ( ioflag == "O" || ioflag == "S" )    {
        var pid = model.getValue ( "/root/paminfo/list/pid" );
        var orddd = model.getValue ( "/root/paminfo/list/orddd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );
        var acptseqno = model.getValue ( "/root/paminfo/list/acptseqno" );
        var orgorddd = model.getValue ( "/root/paminfo/list/orgorddd" );                    
        setParameter("condparam", 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 = model.getValue ( "/root/paminfo/list/pid" );
        var indd = model.getValue ( "/root/paminfo/list/indd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );                
        var prcpdd = model.getValue ( "/root/init/prcpdd" );
        //청구 후 D/C관련 추가 처리...prcpdd를 퇴원환자일 경우 퇴원일을 넘겨 준다. by sonjy 20081027 
        //그렇지 않을 경우 상단 정보 오류남.
        if(  model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && 
             model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" &&
             !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){
             prcpdd = model.getValue ( "/root/paminfo/list/dschdd" );
        }
        setParameter("condparam", ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd);
        
    } else if(ioflag == "E"){ //입원(E응급)
        var ioflag = "E";
        //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
        //외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
        var pid = model.getValue ( "/root/paminfo/list/pid" );
        var indd = model.getValue ( "/root/paminfo/list/indd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );                
        var prcpdd = model.getValue ( "/root/init/prcpdd" );
        
        //청구 후 D/C관련 추가 처리...prcpdd를 퇴원환자일 경우 퇴원일을 넘겨 준다. by sonjy 20081027 
        //그렇지 않을 경우 상단 정보 오류남.
        if(  model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && 
             model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" &&
             !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){
             prcpdd = model.getValue ( "/root/paminfo/list/dschdd" );
        }
        setParameter("condparam", ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd);
    }
    
    var xpt = window.screenleft + 0;
    var ypt = window.screenTop + 0;                 
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];

    if ( model.getValue ( "/root/addprcp" ) != "Y"  ){//&& prcpchkflag != "clickpatlist"  진료대상자리스트에서 선택되었을때는 메세지 띄우지 않는다. 20100317 LYJ
        modal("SPMMO08900", mon,  xpt, ypt, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
    }
    
    //기존의 수술예약번호가 있는 경우에는 reset처리
    if( operation != "" ){
        setGlobalVariable("operation", operation);
    }
    
    var useyn = getParameter("SPMMO08900_rtn_useyn");
    if(useyn == "Y"){

        setParameter("SPMMO08900_rtn_useyn", "");

        if ( savedataflag != "2" ) {
        	if(tuningyn == "Y" ) {
        		fPatDiagSrch_New();
        	} else {
        		fPatDiagSrch();
        	}
        }
        
        //JJE CP일 경우, 당일+미래처방 모두 저장 후 맨 마지막에 진료대상자를 조회한다 (2008.09.11)
        if ( model.getValue ( "/root/cp" ) == "Y" && savekindflag != 1 ){
            return true;
        }               
        
        fInitializeConDone("save");   
            
        fTempPrcp("save");
        
        //20080818 마정민 수정: 전처방 조회 저장후 바로 가져오는 걸로 수정
        //ivw_prcp3.window.javascript.fInitialize("init");
        if ( model.getValue ( "/root/cp" ) != "Y" && !btn_ivbfprcp.selected) {
            btn_ivbfprcp.selected = true;
            ivw_prcp3.visible = true;
            ivw_prcp.visible = false;
            //ivw_prcp.src = "SMMMO02100_전회처방.xrw";
        }else if ( !btn_ivbfprcp.selected ) {
            btn_ivbfprcp.selected = true;
            ivw_prcp3.visible = true;
            ivw_prcp2.visible = false;
            //ivw_prcp2.src = "SMMMO02100_전회처방.xrw";
        }
        
        //20090327 마정민수정: 차상위 로직추가
        if ( model.getValue ( "/root/paminfo/list/scndyn" ) == "Y" && prcpgenrflag == "O" && savekindflag != 1 ) {
            fScndChk();
        }

        fInitializeScreen();
        
        //종속처방번호, 믹스번호, hsctlnkno 초기화
        model.setValue ( "/root/init/inclprcpno", 0 );
        model.setValue ( "/root/init/hsctlnkno", 0 );
        model.setValue ( "/root/init/prcpmixno", 0 );

        var ordPatObj = getOpenWindow("SMMMO04100");
        if(ordPatObj != null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함                 
           ordPatObj.javascript.fPrcpCallPatList();
        }
        var ordMiniPatObj = getOpenWindow("SPMMO04200");
        if(ordMiniPatObj != null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함                 
           ordMiniPatObj.javascript.fChkGetData();
        }
    }            
    // 20100412 퇴원처방 저장시 입퇴원요약지 기록 인터페이스 태우도록  by LYJ  20101102 위치변경
    if ( model.getValue ( "/root/initsrch/getoutprcpsave/trgtcd" ) == "Y" ) {
        if ( model.getValue ( "/root/paminfo/list/ioflag" ) == "I") {
            if( nodelistRecNode.length > 0 &&  model.getValue ( "/root/init/setprcpyn") == "Y" ) {
                var pid    = model.getValue("/root/paminfo/list/pid");
                var orddd  = model.getValue("/root/paminfo/list/indd");
                var cretno = model.getValue("/root/paminfo/list/cretno"); 
                var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
                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 ) {
        setGlobalVariable("emrinptsavetime", getCurrentDateTime());
    }

    if(pop_MedicineConsult == "Y") {
        modal("SPADC62100", "", 200, 200);
    }
    
    // DRG 정보화면 팝업. 2013.06.24
    /*
    if ((prcpgenrflag == "I" || prcpgenrflag == "E" || prcpgenrflag == "D") && savekindflag == "0" ) {
    	var pid    = model.getValue("/root/paminfo/list/pid");
		var indd   = model.getValue("/root/paminfo/list/indd");
		var cretno = model.getValue("/root/paminfo/list/cretno"); 
	
		setParameter("pid",    pid);
		setParameter("indd",   indd);
		setParameter("cretno", cretno);
		
		modal("SPPIJ03201", "", 200, 200);
	} */
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step5Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 저장후 처리 소요 시간

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

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 xpt = window.screenleft + 200;
    var ypt = window.screenTop + 100;                   
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];

    var curCpObj = getOpenWindow("SPMMO00600"); //활성화된 CP Main 화면 object loading
    var nodelistRecNode = "";
    
    if(curCpObj != null) curCpObj.javascript.fClose();
    if ( isNull(prcpflag)) prcpflag = "0";          
    if ( isNull(savekindflag)) savekindflag = "0";          
    if ( isNull(saveNode)) saveNode = "/root/main/prcp/prcplist";

    //20091208 HJS DUR적용여부를 임시적으로 실시간으로 가져와서 체크한다.
    reqHardCodeInfo("/root/hidden/durappinfo", "/root/hidden/durappinfo", "119");
    model.makeValue( "/root/initsrch/durappyn/trgtcd", model.getValue("/root/hidden/durappinfo/hardcd/hardcd") )
    
    //PRN 적용여부를 실시간으로 가져와서 체크한다. 2010-01-02 by LYJ 
    reqHardCodeInfo("/root/hidden/prnprcpyninfo", "/root/hidden/prnprcpyninfo", "173");
    model.makeValue( "/root/save/saveflaginfo/prnprcpyninfo", model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd") );
    
    var tuningyn = getTuningYn(); //튜닝 적용여부를 실시간으로 가져와서 체크한다. 2013-03-12 by 박황백 
    if (tuningyn == "Y") {
	    model.makeValue( "/root/save/saveflaginfo/savekindflag", savekindflag );
    }

    //청구후 d/c처방 여부 by sonjy 20081027
    var aftdcyn = "N";
    
    //전처방 탭이 아닌 탭에 포커싱 될 때 인증저장 시 DC처방 저장되지 않음. "btn_ivbfprcp.selected &&" 조건 삭제 (JJE)
    if ( model.getValue ( "/root/cp") != "Y" ) {
        if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) {
            ivw_prcp3.window.javascript.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 = ivw_prcp3.instance1.selectSingleNode("/root/prcpsrch/prcplist[chkcol=D]");                     // DC처방           
            if( dcNode != null && model.getValue ( "/root/init/setprcpyn") == "Y" ){
                ivw_prcp3.window.javascript.fAppendDC();
            }
            model.makeValue ( "/root/save/saveflaginfo/prtlflag", prtlFlag_SMMMO00110 ); //MMPHPTCP의 prtlflag(프로토콜구분)이 '-'이거나 '01'이면 CP (DC저장을 위함)
        }
    }

    var savedataflag = fSaveExistCheck( savekindflag );
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );

    if ( savedataflag == -1 ) {
        if ( prcpgenrflag == "O" ) { 
            savedataflag = 3;
        } else {
            messageBox ( "저장할", "E013" );
            return false;
        }
    } else if ( savedataflag == 5 ) {
        messageBox ( "처방DC는 임시저장", "E001" );
        return false;
    } 
    
    // 처방 저장시 화면에서 처장 가능 한지 체크 한다.
    var sIprcAddYn = model.getValue("root/paminfo/list/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 (model.getValue ( "/root/initsrchprcp/prcpetccnts/admiprcpyn" ) == "Y" ) { //admission 처방이 없는데
            if ( !isNull(model.getValue ( "/root/main/prcp/prcplist[prcpkindcd='10']/prcpcd"))) { //정규처방이 존재하면
                if ( "7" == messageBox ( "입원당일 Admission 처방이 존재하지 않습니다. 그래도 정규처방을", "Q002" )) return false;
                else saveok = "Y"; //질문을 한번만 하려고 수정
            }
        }
        
        if ( saveok == "N" ) {
            if ( savedataflag == 6 ) {
                if( messageBox ( "", "Q002" ) == "6"  ) {
                    saveok = "Y";
                } else {
                    saveok = "N";
                }
            } else {
                if( 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; 
    }
    
    model.removeNodeSet ( "/root/send/cond2" );
    model.makeNode ( "/root/send/cond2" );
    // 저장구분정보(saveFlagInfo)
    model.setValue ( "/root/save/saveflaginfo/savedataflag", savedataflag );                                       // 저장자료구분 0:진단 및 처방, 1:진단, 2:처방, 4:처방임시저장, 6:진단 및 처방 임시저장, 7:진단임시저장
    model.setValue ( "/root/save/saveflaginfo/saveflag",     prcpgenrflag);                                        // 저장구분 O:외래, I:입원, E:응급, S:건진
    model.setValue ( "/root/save/saveflaginfo/prcpflag",     prcpflag );                                           // 처방구분 0:의사처방, 2:간호, 3:지원부서, 5:Admission, 6:CP, 7:항암프로토콜, 8:임시처방
    model.setValue ( "/root/save/saveflaginfo/inptflag",     "0" );                                                // 입력구분 0:의사, 1:간호사(간호에서 사용), 3:지원부서
    model.setValue ( "/root/save/saveflaginfo/deptcd",       getUserInfo("dutplcecd"));                            // 부서코드
    model.setValue ( "/root/save/saveflaginfo/deptnm",       getUserInfo("dutplcenm"));                            // 부서명
    model.setValue ( "/root/save/saveflaginfo/userid",       getUserInfo("userid"));                               // 사용자ID
    model.setValue ( "/root/save/saveflaginfo/usernm",       getUserInfo("usernm"));                               // 사용자명
    model.setValue ( "/root/save/saveflaginfo/prcpdd",       model.getValue("/root/init/prcpdd"));    
    model.setValue ( "/root/save/saveflaginfo/divyn",        prcpchkflag );                                        // 용량분할 할건지
    model.makeValue ( "/root/save/saveflaginfo/durappyn",    model.getValue( "/root/initsrch/durappyn/trgtcd" ) ); // 2010.11.24 이선경 수정 : 경북대용 DUR flag값을 던져줘야 함
    model.makeValue ( "/root/save/saveflaginfo/nonprgflag",  fCompareNonPrgDiag());
    
    if ( savekindflag == 1 ) {
        model.setValue( "/root/save/saveflaginfo/signyn", "N" );  // 임시저장
    } else {
        model.setValue( "/root/save/saveflaginfo/signyn", signyn);        
    }
    
    if ( model.getValue ( "/root/addprcp" ) == "Y" ) {
        model.setValue ( "/root/save/saveflaginfo/pseuacptflag", model.getValue ( "/root/formerkey/pseuacptflag" ));
        model.setValue ( "/root/save/saveflaginfo/admininfo",    model.getValue ( "/root/admininfo" ));
    } else {
        model.setValue ( "/root/save/saveflaginfo/pseuacptflag", "N");
        model.setValue ( "/root/save/saveflaginfo/admininfo",    "NNNNNNNNNNNNNNNNNNNN");
    }
    
    var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" );     
    model.setValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 

    //저장등록정보(saveRgstInfo)
    var saveRgstInfo = model.instances(0).selectNodes( "/root/paminfo/list" );
    model.setValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); 
    
    //저장처방정보(savePrcpInfo)
    var savePrcpInfo = model.instances(0).selectNodes( saveNode );
      
    // 미완성 처방 저장 시, '-' 까지 함께 저장하려 하기때문에 I 만 저장하도록 분기 (2008.10.15 JJE) (s)
    if( model.getValue("/root/cp") != "Y" ){
        model.copyNode ( "/root/send/cond3", "/root/main/prcp" ); 
    }else{
        fClearSaveInstance();
        fAppendSaveNode( "/root/send/cond3", saveNode );
    }
    
    fAppendSaveNode( "/root/send/cond3", "/root/prcper/prcplist" );
    fAppendSaveNode( "/root/send/cond3", "/root/prcpdc/prcplist" );
    nPrcpCnt = model.instances(0).selectNodes("/root/send/cond3/prcplist" ).length - 1;
    //청구후 d/c처방 여부 setting by sonjy 20081027 => 청구후 d/c일 경우 산정특례 및 법정전염병등의 처방저장 후 로직을 탈필요가 없음.
    var aftdclist = model.instances(0).selectNodes( "/root/prcpdc/prcplist[tempcol21='C']" ); 
    if( aftdclist != null ){
        if( aftdclist.length > 0 ) aftdcyn = "Y";
    }   
    
    if ( prcpchkflag == "drugdc" ) { //약/주사 D/C 요청 중에 반납요청된 것은 D/C 처리한다.( 저장로직에서 사용 )
        model.setValue ( "/root/send/cond14", getNodeListCSV (model.instances(0).selectNodes( "/root/prcpdc/prcplist" ))); 
    }

    //setValue 후에 prcpdc 에 옮겨 놓은 prcplist를 클리어 한다.
    model.removeNodeset ( "/root/prcpdc/prcplist" ); 

    //저장진단정보(saveDiagInfo)
    var saveDiagInfo = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" );
    nDiagCnt = saveDiagInfo.length - 1;
    model.setValue ( "/root/send/cond4", getNodeListCSV(saveDiagInfo));         

    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
        if ( !submit ( "TRMMO00103", false )) {
            if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) {    //조건추가(2008.09.01 JJE)
                model.resetInstanceNode ( "/root/send" );
            }
            fClearSaveInstance();
            model.refresh();
            return false;
        }
    } else {
        if ( !submit ( "TRMMO00104", false )){
            if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) {    //조건추가(2008.09.01 JJE)
                model.resetInstanceNode ( "/root/send" );
            }
            fClearSaveInstance();
            model.refresh();
            return false;
        }
    }
    
    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(model.getValue("/root/result/saveetcchklist/dschyn") == "Y"){
        messageBox ("퇴원예고를 해야만 퇴원 및 퇴원후외래,입원전검사(전일/당일) 처방을 저장할 수 있습니다." , "E" );
        preDsch();
        return false;
    }
    
    //DUR-S, 2009-10-01 차현철        
    // 저함량 용량분할의 경우 기존 것을 사용함으로 DUR을 뒤에 수행
    // 경북대용 DUR 적용시에는 저함량 용량분할 체크 후 DUR 로직체크 함
    // durappyn : "A-전체 DUR", "Y-저함량제외 DUR", "나머지-DUR 사용안함"  , "K:경북대용 DUR"
    if (model.getValue("/root/initsrch/durappyn/trgtcd") != "A" ) {         
        if ( model.getValue ( "/root/result/divinfo/divchkflag" ) == "N" ) {
            var divPrcpInfo = model.instances(0).selectNodes( "/root/result/prcplist" );
             
             if ( divPrcpInfo.length > 0 ) { // 용량분할, 저함량
                if ( !isNull(model.getValue ( "/root/result/prcplist/prcpcd"))){
                    xpt = window.screenleft + 100;
                    ypt = window.screenTop + 50;                    
                    coord = getRelativeCoordinate ( xpt, ypt );
                    mon = coord[0];
                    xpt = coord[1];
                    ypt = coord[2];
                    //by sonjy 20090714 변경요청서 처리 :  저함량 용량분할창 닫기버튼 삭제처리 
                    modal ( "SPADB62400", mon,  xpt, ypt, "SPADB62400", "/root/result", "/root/main/prcp", "sysmenu:hidden;", false );  
                    model.refresh();
                    model.recalculate();        
                    fClearSaveInstance();
                } 
                model.refresh();
                fPrcpSave_old( prcpflag, savekindflag, "", "N"  ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
                return false;
            }
        } else if (model.getValue ( "/root/result/divinfo/divchkflag" ) == "A") {
            //20090420 마정민 수정 항암용량분할은 기존에는 서버에서 불할되어 바로 저장체크로직으로 갔지만 보험제한규정에 걸려서
            //다시저장할때 분할된 내용이 화면이 표시가 되지 않아 용량분할이 되지 않음.
            //항암용량분할도 화면에 표시하게 수정
            model.removeNodeSet ( "/root/main/prcp/prcplist" );
            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 (i = 1; i <= getNodesetCount("/root/result/prcplist"); i++) {
                if(model.getValue("/root/result/prcplist["+i+"]/status") == "S") {
                    model.setValue("/root/result/prcplist["+i+"]/prcpvol", "");
                    model.setValue("/root/result/prcplist["+i+"]/prcpqty", "");
                    model.setValue("/root/result/prcplist["+i+"]/prcptims", "");
                    model.setValue("/root/result/prcplist["+i+ "]/prcpdayno", ""); 
                    break;    
                }   
            }          
        
            for ( i=0; i < srcNodeList.length; i++ ){
                destNode.appendChild(srcNodeList.item(i).cloneNode(true));
            }
            model.refresh();
            fPrcpSave_old( prcpflag, savekindflag, "", "N"  ); // by sonjy 20100303 수정 임시처방저장시 인증저장으로 가는 오류 수정.
            return false;
        } 
    }
    
    var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist" );     
    if ( prcpErrList.length > 0 ) {
        if ( !isNull(model.getValue ( "/root/result/prcperrlist/prcpcd"))){
            
            //20080928 마정민 수정 병용금기, 연령금기만 있을 경우에는 사유입력하면 처방 낼수 있도록 처리
            var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist");
            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=1; i <= srcNodeList.length; i++ ) {
                flag = model.getValue ( "/root/result/prcperrlist[" + i + "]/flag" );
                if ( flag == "1" ) {
                    errorCnt++;
                } else if (flag == "9") { // 사전심사에 관련한 에러내용은 따로 처리한다.  2010. 10. 08  김영학
                    if ( prcpgenrflag == "O" ) {
                        //외래 사전심사인 경우 사전심사 팝업을 띄우고
                        bfJudgErrorCnt++;
                    }else{
                        //입원 사전심사인 경우 바로 비급여로 변경 (2010.12.30 JJE, 경북대 이은정선생님 요청)
                        errPrcpCd = model.getValue ( "/root/result/prcperrlist[" + i + "]/prcpcd" );
                        errRowNum = model.getValue ( "/root/result/prcperrlist[" + i + "]/errrow" );
                        var ChngInsuKindList = model.instances(0).selectNodes( "/root/result/savedrprcplist[prcpcd='"+errPrcpCd+"']" );
                        if( ChngInsuKindList.length > 0 ){
                            for(var bfRow=0; bfRow < ChngInsuKindList.length; bfRow++ ) {
                                var bfNode = ChngInsuKindList.item(bfRow);
                                var bfPayFlagCdNode  = bfNode.selectSingleNode("payflagcd");
                                var chngPayFlagCd = "";
                                if( errRowNum == "2" ) chngPayFlagCd = errRowNum; //일반
                                else chngPayFlagCd = "1";                         //비급여
                                model.setValue(bfPayFlagCdNode, chngPayFlagCd);
                                //var bfDrPrcpEtc9Node = bfNode.selectSingleNode("drprcpetc9");
                                //model.setValue(bfDrPrcpEtc9Node, "Y");
                            }
                        }
                    }
                } 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 = window.screenleft + 180;
            ypt = window.screenTop + 50;                    
            coord = getRelativeCoordinate ( xpt, ypt );
            mon = coord[0];
            xpt = coord[1];
            ypt = coord[2];

            if ( errorCnt > 0 ) {
                open ( "SPMMO00600", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //오류팝업
            } else {
                // 사전심사 요구창 팝업
                if ( bfJudgErrorCnt > 0) {
                    clearParameter("SPMMO21500_rntValue"); //parameter 초기화(2011.01.31 JJE)
                    modal ( "SPMMO21500", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //오류팝업
                }
            }

            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=1; i<=prcpErrList.length; i++ ) {
                    if (model.getValue ("/root/result/prcperrlist[" + i + "]/flag") == "1") {
                        errrow = model.getValue ("/root/result/prcperrlist[" + i + "]/errrow");
                        
                        //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                        dcprcppkspec = model.getValue ("/root/result/prcperrlist[" + i + "]/dcprcppkspec");
                        //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30
                        if ( !isNull(errrow) && errrow > 0 && errrow < grd_prcplist.rows -1 ) {
                            model.setValue ("/root/main/prcp/prcplist[" + errrow + "]/tempcol9", "#ff6600");

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

                //dc처방 색변경을 위한 수정 시작 by 손주연 2008-06-30
                if( iDcRow > 0 ){ 
                    if( btn_ivbfprcp.selected == true
                       && model.getValue("/root/bfinityn") ==  "Y" ){ 
                        if ( model.getValue ( "/root/cp") != "Y" ) { 
                            ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray);
                        }else{
                            ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray);
                        }
                    }
                }
                //dc처방 색변경을 위한 수정 종료 by 손주연 2008-06-30

                fClearSaveInstance();
                model.removeNodeset("/root/result/prcperrlist");
                return false;
            }  

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

                var bfRtnValue = getParameter("SPMMO21500_rntValue");
                if (bfRtnValue == "REQ") {
                    model.removeNodeset("/root/result/prcperrlist");
                    if ( isNull ( model.getValue ( "/root/main/prcp/prcplist[status='I' or status='D' or status='U']/prcpcd" ))) {
                        if (isNull(model.getValue ( "/root/main/diaginfo/diagcdlist[status='I' or status='D' or status='U']/diagcd" ))) {
                            messageBox ( "사전심사할 처방 및 진단이 없습니다.", "E" );
                            fClearSaveInstance();
                            model.removeNodeset("/root/result/prcperrlist");
                            return false;
                        }
                    }
                    if ( !fPrcpSave_old("0", "1")) {
                        model.removeNodeset ( "/root/prcpdc/prcplist" );
                    }
                    fClearSaveInstance();
                    return false;

                } else if (bfRtnValue == "chgPayFlag") {
                    model.removeNodeset("/root/result/prcperrlist");
                    var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length;
                    var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length;
                    if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                        //fPrcpSave_old( "", "", "", "N"  );
                        fPrcpSave_old( prcpflag, savekindflag, "", "N"  );
                    }
                    return false;
                } else {
                    fClearSaveInstance();
                    model.removeNodeset("/root/result/prcperrlist");
                    return false;
                }
            }
        }               
    }         
    
    //kimsj 수혈동의서 메세지
    if ( model.getValue ("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn") == "Y" ) {
        var ocryndaymsg = model.getValue ( "/root/hidden/ocrbldyn/ocrbldyn/ocrynday" );
        messageBox("첫 수혈이거나 마지막 수혈시행일로부터 " + ocryndaymsg + "일 이상이 경과하였으니 \n  수혈동의서를 작성해주시기 바랍니다.", "E"); 
        model.removenode("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn");
    }

    if (savekindflag != 1) { //임시저장이 아닐때
        var antibioreq = model.instances(0).selectNodes( "/root/result/antibioreq" ); // 제한항생제 신청정보
        if ( antibioreq.length > 0 ) {
            for ( var i=1; i <= antibioreq.length; i++ ) {
                var sMsg = model.getValue ( "/root/result/antibioreq[" + i + "]/antibioreq_msg");
                if ( sMsg != "" &&  messageBox ( sMsg, "Q" ) != "6") {
                    fClearSaveInstance();
                    model.removeNodeset("/root/result/antibioreq");
                    return false;
                }
            }
        }

        var qestflagcnt = 0;
        var limprcplist = model.instances(0).selectNodes( "/root/result/limprcplist" ); // 보험제한처방
        if ( limprcplist.length > 0 ) {
            for ( var i=1; i <= limprcplist.length; i++ ) {
                if ( model.getValue ( "/root/result/limprcplist[" + i + "]/qestflag") != "M" ) {
                    qestflagcnt++;
                }
            }
            if ( qestflagcnt == 0 && getRegistryPrcp ( "limprcp|"+getCurrentDate()) == "Y" ) {
            } else {
                if ( !isNull(model.getValue ( "/root/result/limprcplist/calcscorcd"))) {
                    xpt = window.screenleft + 100;
                    ypt = window.screenTop + 50;                    
                    coord = getRelativeCoordinate ( xpt, ypt );
                    mon = coord[0];
                    xpt = coord[1];
                    ypt = coord[2];
                    var rowid = 0
                    for ( var k=1; k <= limprcplist.length; k++ ){
                        rowid = eval(model.getValue ( "/root/result/limprcplist[" + k + "]/rowid" ));
                        var displayprcpnm = rowid + ". " + model.getValue ( "/root/result/limprcplist[" + k + "]/calcscorcd" ) +  "\n" + "[" + model.getValue ( "/root/result/limprcplist[" + k + "]/prcpnm") + "]";
                        model.setValue ( "/root/result/limprcplist[" + k + "]/displayprcpnm", displayprcpnm );
                    }               
                    modal ( "SPMMO00900", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false );
                    model.removeNodeset("/root/result/limprcplist");
                    if ( getParameter ( "SPMMO00900_rtnyn" ) == "Y" ) {
                        clearParameter ( "SPMMO00900_rtnyn" );
                        var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length;
                        var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length;
                        if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                            //fPrcpSave_old( "", "", "", "N"  );
                            fPrcpSave_old( prcpflag, savekindflag, "", "N"  );
                        }
                        return false;
                    } else if ( getParameter ( "SPMMO00900_rtnyn" ) == "C" ) {
                        //msg만 있는 것이라면 그냥 진행함
                    } else {
                        return false;
                    }
                } 
            }
            
        } // 보험제한처방끝    

        var duplprcplist = model.instances(0).selectNodes( "/root/result/duplprcplist" ); //처방중복체크
        if ( duplprcplist.length > 0 ) {
            if ( !isNull(model.getValue ( "/root/result/duplprcplist/prcpnm"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO14100_rtn1" )
                modal ( "SPMMO14100", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO14100_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/duplprcplist");
                    return false;
                } 
            } 
        } 
        
        var warnprcplist = model.instances(0).selectNodes( "/root/result/warnprcplist" ); //주의요망 처방체크
        if ( warnprcplist.length > 0 ) {
            if ( !isNull(model.getValue ( "/root/result/warnprcplist/prcpnm"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO14101_rtn1" )
                modal ( "SPMMO14101", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO14101_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/warnprcplist");
                    return false;
                } 
            } 
        }         

        //DUR - E   
        //향정신성 의약품 30일 이상 처방일 경우 처방 사유를 입력받도록 수정
        var spclhdrugprcplist = model.instances(0).selectNodes( "/root/result/spclhdrugprcplist" ); //처방중복체크(성분)
        if ( spclhdrugprcplist.length > 0 ) {
            if ( !isNull(model.getValue ( "/root/result/spclhdrugprcplist/prcpnm"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO21800_rtn1" );
                modal ( "SPMMO21800", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO21800_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/spclhdrugprcplist");
                    return false;
                } 
            } 
        }
        
        //처방 사유 입력창 팝업 여부 (2011.12.28 엄영만)
        var checkprcpresn = model.instances(0).selectNodes( "/root/result/checkprcpresn" ); 
        if ( checkprcpresn.length > 0 ) { // 처방사유 입력항목이 있을경우 팝업
            if ( !isNull(model.getValue ( "/root/result/checkprcpresn/prcpcd"))){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                clearParameter ( "SPMMO50100_rtn1" );
                modal ( "SPMMO50100", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO50100_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/checkprcpresn");
                    return false;
                } 
            } 
        }

        //급성심근경색 퇴원약 아스피린 및 베타차단체 처방 여부 (2011.09.16 엄영만)
        var amidschprcpinfo = model.instances(0).selectNodes( "/root/result/amidschprcpinfo" ); //아스피린 및 베타차단체 처방 여부
        if ( amidschprcpinfo.length > 0 ) {
            //급성심근경색 퇴원약 아스피린 미처방사유
            if (model.getValue ( "/root/result/amidschprcpinfo/asprinyn") == "N"){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                
                clearParameter ( "SPMMO21900_rtn1" );
                clearParameter ( "SPMMO21900_hardcdno" );
                clearParameter ( "SPMMO21900_title" );
                clearParameter ( "SPMMO21900_resncode" );
                clearParameter ( "SPMMO21900_resncmt" );
                
                setParameter("SPMMO21900_hardcdno", "311"); // 하드코드 311 급성심근경색 퇴원약 아스피린 미처방사유
                setParameter("SPMMO21900_title", "급성심근경색 퇴원약 아스피린 미처방사유");

                modal ( "SPMMO21900", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/amidschprcpinfo");
                    return false;
                }
                
                var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid"       , model.getValue( "/root/initsrchcond/pid"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd"     , model.getValue( "/root/initsrchcond/orddd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno"    , model.getValue( "/root/initsrchcond/cretno"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype"   , model.getValue( "/root/initsrchcond/ioflag"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno"    , "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag"  , "005"); 
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd"    , getParameter("SPMMO21900_resncode"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts"  , getParameter("SPMMO21900_resncmt"));
            }
            
            //급성심근경색 퇴원약 베타차단제 미처방사유
            if (model.getValue ( "/root/result/amidschprcpinfo/antibetayn") == "N"){
                xpt = window.screenleft + 100;
                ypt = window.screenTop + 50;                    
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                
                clearParameter ( "SPMMO21900_rtn1" );
                clearParameter ( "SPMMO21900_hardcdno" );
                clearParameter ( "SPMMO21900_title" );
                clearParameter ( "SPMMO21900_resncode" );
                clearParameter ( "SPMMO21900_resncmt" );
                
                setParameter("SPMMO21900_hardcdno", "312"); // 하드코드 312 급성심근경색 퇴원약 베타차단제 미처방사유
                setParameter("SPMMO21900_title", "급성심근경색 퇴원약 베타차단제 미처방사유");

                modal ( "SPMMO21900", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); 
                if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) {
                    model.removeNodeset("/root/result/amidschprcpinfo");
                    return false;
                }

                var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid"       , model.getValue( "/root/initsrchcond/pid"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd"     , model.getValue( "/root/initsrchcond/orddd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno"    , model.getValue( "/root/initsrchcond/cretno"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype"   , model.getValue( "/root/initsrchcond/ioflag"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd"    , model.getValue( "/root/initsrchcond/prcpdd"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno"    , "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag"  , "006");
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd"    , getParameter("SPMMO21900_resncode"));
                model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts"  , getParameter("SPMMO21900_resncmt"));
            }
        }

        if ( !isNull(model.getValue ( "/root/result/savetnmlist/pid" )) || !isNull(model.getValue ( "/root/result/savecncrlist/pid" ))) { //병기분류
                xpt = window.screenleft + 300;
                ypt = window.screenTop;                 
                coord = getRelativeCoordinate ( xpt, ypt );
                mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];     
                clearParameter ( "SPMMO08400_rtn1" )
                modal ( "SPMMO08400", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/tempresult", "", false );
                if ( getParameter ( "SPMMO08400_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;

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

            if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                for (var i=1; i<=srcNodeList.length; i++) {
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
                }
                return false;
            } else {
                if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                    fPrcpSave_old( prcpflag, savekindflag, "", "N"  );                          
                    return false;
                }
            }
        }
        
        //2010-11-29 이선경 추가 : 경북대용 DUR 임부금기 체크중 falg값이 4인 경우 경고메시지 띄우고 처방저장 가능
        if( kimbuCnt > 0 ) {
            var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist");
            var flag      = "";
            var prcpcd    = "";
            var prcpnm    = "";
            var prcperr   = "";
            var sAlertMsg = "";

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

        // 입원 또는 응급일 경우                    // 20111201 knuh 최원돈
        // 기록/처방 직전 인증저장이 정해진 시간(분 단위, 하드코드 401) 이내이면 인증서를 띄우지 않음(1/2)
        // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js
        // 띄우지 않는 로직
        var ls_emrinptsavetime = fGetHardCDList("Y", 401, 3);
        var ll_emrinptsavetime = ls_emrinptsavetime == "" ? 0 : parseInt(ls_emrinptsavetime) * -1; 
        if (   (   prcpgenrflag == "I"
                || prcpgenrflag == "E")
            && ll_emrinptsavetime < 0
            && getGlobalVariable("emrinptsavetime") >= getCurrentDateTime().toDate("YYYYMMDD hhmmss").getAddDate(ll_emrinptsavetime, "m").getDateFormat("YYYYMMDD hhmmss"))
        {
            signopt = false;
        }        
        
        //처방인증
        var v_stext = fSaveSign ( signbfcnts, signid, signopt, setnode );
        if ( v_stext != "N" ) {
            if (isNull( v_stext )) {
                return false;
            }

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

        signbfcnts = model.getValue ( "/root/result/signdiaglist/signdiag_signbfcnts" );
        setnode = "/root/result/signdiaglist/signdiag_signaftcnts";

        //진단인증
        v_stext = fSaveSign ( signbfcnts, signid, signopt, setnode );
        if ( v_stext != "N") {
            if (isNull(v_stext)) {
                return false;
            }
            fAppendSaveNode( "/root/send/cond2", "/root/result/signdiaglist" ); //의사처방데이터
        }
    }
    
    if (savekindflag != 1) {
        //JJE (CP는 당일+미래 모든처방 저장 종료 후 한꺼번에 출력) //CP 임시처방 저장시 수행하도록 수정(2008.10.20 JJE)
        if ( model.getValue ( "/root/cp") != "Y" ) {
            if (!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");
                }
            }
        }

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

    //2011. 01. 09 인증저장전 환자의 진료예약여부를 확인한다. 
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
        // 외래 예약 창을 팝업 한다. 
        if (savekindflag == "0"  && model.getValue ( "/root/addprcp" ) != "Y"  ){
            var returnVal = fGetHardCDList("Y", 269, 3);
            var prcpsavebtnflag = model.getValue("/root/init/prcpsavebtnflag");
            if ((returnVal == "N" || prcpsavebtnflag == "2") && model.getValue("/root/paminfo/list/ordtype") == "O" ) {
                var maxdayno = 0;
                for (rowno = 0 ; rowno < grd_prcplist.rows; rowno++ ) {
                    var chkmaxdayno = model.getValue ( "/root/main/prcp/prcplist[" + rowno + "]/maxdayno" );
                    if (chkmaxdayno <=  maxdayno ) {
                        maxdayno = maxdayno ;
                    } else {
                        maxdayno = chkmaxdayno
                    }
                }
                var todd = (getCurrentDate().toDate()).getAddDate(maxdayno);
                
                setParameter("SMPMO00300_PARM1", model.getValue ( "/root/paminfo/list/orddeptcd" )); //진료과코드
                setParameter("SMPMO00300_PARM2", orddrid); //진료의사코드
                setParameter("SMPMO00300_PARM3", model.getValue ( "/root/paminfo/list/pid" )); //환자번호   
                setParameter("SMPMO00300_PARM4", todd); // 예약일자
                            
                fPrcpModal ("SMPMO00300", 0, 80);
                clearParameter("SMPMO00300_PARM1");
                clearParameter("SMPMO00300_PARM2");
                clearParameter("SMPMO00300_PARM3");
                clearParameter("SMPMO00300_PARM4");
            }
        }
    }                                

    fAppendSaveNode( "/root/send/cond2", "/root/result/savedrprcplist" );   //의사처방데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/saveexecprcplist" ); //실시처방 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savediaglist" );     //진단저장 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savepamlist" );      //원무정보 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savematrprcplist" ); //재료처방정보 저장데이터
    fAppendSaveNode( "/root/send/cond2", "/root/result/savesujinresn" );    //수진별 처방사유 데이터 (2011.09.15 엄영만) 급성심근경색 환자 퇴원약(베타차단제,아스피린) 미발행 사유 입력을 위해 생성
    fAppendSaveNode( "/root/send/cond2", "/root/result/bfjudgeprcplist" );  //외래 사전심사 중 누적관련 처방 데이터 (2010.12.27 JJE)
    
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchklist" );      //DUR 점검일반 전문(20120101 고시시행 11/11/24cys)
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkinfo" );      //DUR 점검약품 전문
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" );      //DUR 점검결과 전문
    fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" );       //DUR 취소전문
    
    if ( prcpgenrflag != "O" && prcpgenrflag != "S" ) {
        //퇴원후 외래처방 저장 setting
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschflaginfo" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschpamlist" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschdrprcplist" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschexecprcplist" );
        fAppendSaveNode( "/root/send/cond2", "/root/result/dschmatrprcplist" );
        
        //제한항생제 관련
        fAppendSaveNode( "/root/send/cond2", "/root/result/antibioreq" );       //제한항생제 신청정보 (2013.01.10 엄영만)
        fAppendSaveNode( "/root/send/cond2", "/root/result/antibioprcp" );      //제한항생제 처방정보 (2013.01.10 엄영만)
    }
    
    //20080909 시행부서처방
    if ( model.getValue ( "/root/formerkey/pseuacptflag" ) == "Y" ) {
        var saveFormerkey = model.instances(0).selectNodes( "/root/formerkey" );     
        model.setValue ( "/root/send/cond15", getNodeListCSV(saveFormerkey));               
    }
    
    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 (tuningyn == "Y") { // Tuning 1
    	fInstenceSetAgft_New(aftdcyn , prcpsaveyn , prcpflag); //  저장후 인스턴스 셋팅
    }
    
    if ( model.getValue ( "/root/cp") == "Y" && savekindflag != 1 ) {
            //openLoadingBar("저장중입니다.");  //로딩메세지 open (미래처방 오류리스트 팝업처리로 인해 막음)
        if ( prcpgenrflag == "O" ) {
            SubmitTF_SMMMO00110 = submit ( "TXMMP00804", false );
            if ( !SubmitTF_SMMMO00110 ) {           //TXMMO00101
                model.removeNodeSet ( "/root/result");
                return false;
            }
        }else {
            SubmitTF_SMMMO00110 = submit ( "TXMMP00803", false );
            if ( !SubmitTF_SMMMO00110 ) {           //TXMMO00103
                model.removeNodeSet ( "/root/result");
                return false;
            }
        }
    } else {
     // 20100412 퇴원처방 저장/DC 시 입퇴원요약지 기록 인터페이스 태우도록  by LYJ 
        if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) {
            nodelistRecNode = model.instances(0).selectNodes("/root/result/savedrprcplist[prcpkindcd = 60]");
        }
        
             
        model.removeNodeset("/root/result1");
        model.removeNodeset("/root/savertninfo");
        
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
        	if (tuningyn == "Y") { // Tuning 3
        		if ( !submit ( "TXMMO00501", false )) {
                    model.removeNodeSet ( "/root/result");
                    model.resetInstanceNode ( "/root/send" );
                    model.refresh();
                    return false;
                }
        		model.makeNode("/root/savertninfo");
        		copyNodesetType("/root/savertninfo","/root/result1","replace");
        		model.removeNodeSet ( "/root/diaginfo/diagcdlist");
       		    model.makeNode ( "/root/diaginfo/diagcdlist");
       		    copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
        	} else {
	            if ( !submit ( "TXMMO00101", false )) {
	                model.removeNodeSet ( "/root/result");
	                model.resetInstanceNode ( "/root/send" );
	                model.refresh();
	                return false;
	            }
        	}

            //심평원 처방전간 사유가 있으면 입력 20120101 고시          
            if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) {

                //사유팝업
                if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) {
                    model.makeNode("/root/result/kdurchkrslt");
                }

                model.removeNodeset("/root/result/kdurchkrslt");
                model.makeNode("/root/result/kdurchkrslt");

                 for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) {
                   copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+  i +"]", "before");
                  }

                 model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]");

                //DUR 점검결과 전문
                if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) {
                    model.makeNode("/root/result/prcperrlist");
                }
                model.removeNodeset("/root/result/prcperrlist");
                model.makeNode("/root/result/prcperrlist");

               for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) {
                  copyNodesetType("/root/result/prcperrlist" ,"/root/result1/prcperrlist["+  i +"]", "before");
                 }

                 model.removeNode("/root/result/prcperrlist[flag = null]");

                clearParameter ( "SPMMO16101_rtn1" );
                clearParameter ( "SPMMO16101_rtn2" );
                modal ( "SPMMO16101", mon,  xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false );
    
                if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                    var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                    for (var i=1; i<=srcNodeList.length; i++) {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
                    }
                    return false;
                } else {
                    if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                        fPrcpSave_old( prcpflag, savekindflag, "", "N"  );                          
                        return false;
                    }
                }
                model.removeNodeset("/root/result1");
                model.removeNodeset("/root/send/cond2/kdurchkrslt");
                model.removeNodeset("/root/send/cond2/prcperrlist");

                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" );      //DUR 점검결과 전문
                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" );       //DUR 취소전문

                if (tuningyn == "Y") { // Tuning 4
                	if ( !submit ( "TXMMO00503", false )) {
                        model.removeNodeSet ( "/root/result");
                        model.resetInstanceNode ( "/root/send" );
                        model.refresh();
                        return false;
                    }
                	model.removeNodeset("/root/savertninfo");
                    model.makeNode("/root/savertninfo");
                	copyNodesetType("/root/savertninfo","/root/result1","replace"); 
                	model.removeNodeSet ( "/root/diaginfo/diagcdlist");
           		    model.makeNode ( "/root/diaginfo/diagcdlist");
           		    copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
                } else {
	                if ( !submit ( "TXMMO00118", false )) {
	                    model.removeNodeSet ( "/root/result");
	                    model.resetInstanceNode ( "/root/send" );
	                    model.refresh();
	                    return false;
	                }
                }
            }
        } else {
        	 if (tuningyn == "Y") { // Tuning 5
        	 	 if ( !submit ( "TXMMO00502", false )) {
                     model.removeNodeSet ( "/root/result");
                     model.resetInstanceNode ( "/root/send" );
                     model.refresh();
                     return false;
                 }
        		 model.makeNode("/root/savertninfo");
        		 copyNodesetType("/root/savertninfo","/root/result1","replace"); 
        		 model.removeNodeSet ( "/root/diaginfo/diagcdlist");
        		 model.makeNode ( "/root/diaginfo/diagcdlist");
        		 copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
        	 } else {
	            if ( !submit ( "TXMMO00103", false )) {
	                model.removeNodeSet ( "/root/result");
	                model.resetInstanceNode ( "/root/send" );
	                model.refresh();
	                return false;
	            }
        	 }
            //model.addlog("      SPEED CHECK START OF DUR처리(처방전간)");
        
            //심평원 처방전간 사유가 있으면 입력 20120101 고시          
            if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) {
    
                //사유팝업
                if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) {
                    model.makeNode("/root/result/kdurchkrslt");
                }
    
                model.removeNodeset("/root/result/kdurchkrslt");
                model.makeNode("/root/result/kdurchkrslt");
    
                 for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) {
                    copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+  i +"]", "before");
                 }
    
                 model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]");
    
                //DUR 점검결과 전문
                if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) {
                    model.makeNode("/root/result/prcperrlist");
                }
                model.removeNodeset("/root/result/prcperrlist");
                model.makeNode("/root/result/prcperrlist");
    
                 for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) {
                    copyNodesetType("/root/result/prcperrlist" , "/root/result1/prcperrlist["+  i +"]", "before");
                 }
    
                 model.removeNode("/root/result/prcperrlist[flag = null]");
    
                clearParameter ( "SPMMO16101_rtn1" );
                clearParameter ( "SPMMO16101_rtn2" );
                modal ( "SPMMO16101", mon,  xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false );
    
                if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) {
                    var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                    for (var i=1; i<=srcNodeList.length; i++) {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
                    }
                    return false;
                } else {
                    if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){
                        fPrcpSave_old( prcpflag, savekindflag, "", "N"  );                          
                        return false;
                    }
                }
                model.removeNodeset("/root/result1");
                model.removeNodeset("/root/send/cond2/kdurchkrslt");
                model.removeNodeset("/root/send/cond2/prcperrlist");
    
                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" );      //DUR 점검결과 전문
                fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" );       //DUR 취소전문
                
                if (tuningyn == "Y") {// Tuning 6
                	if ( !submit ( "TXMMO00504", false )) {
                        model.removeNodeSet ( "/root/result");
                        model.resetInstanceNode ( "/root/send" );
                        model.refresh();
                        return false;
                    }
                	model.removeNodeset("/root/savertninfo");
                    model.makeNode("/root/savertninfo");
                	copyNodesetType("/root/savertninfo","/root/result1","replace"); 
                	model.removeNodeSet ( "/root/diaginfo/diagcdlist");
           		    model.makeNode ( "/root/diaginfo/diagcdlist");
           		    copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace");
                } else {
	                if ( !submit ( "TXMMO00119", false )) {
	                    model.removeNodeSet ( "/root/result");
	                    model.resetInstanceNode ( "/root/send" );
	                    model.refresh();
	                    return false;
	                }
                }
            }
            //model.addlog("      SPEED CHECK END OF DUR처리(처방전간)");
        }
        setPatientInfoDetailByKey("prcpsaveyn", pid+ "|" + model.getValue("/root/init/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 = fGetHardCDList("Y", 315, 3); // 315 퇴원약 처방시 복약상담의뢰 자동팝업 사용 여부
    var pop_MedicineConsult = "N"; // 복약상담의뢰 창 팝업 여부 2011.10.24 엄영만 (칠곡 약제부 이석미 요청)
    if (    sChkMedicineConsultYn == "Y" && prcpflag == '0' && savekindflag == '0'
         && !isNull(model.getValue ( "/root/main/prcp/prcplist[(prcpgenrflag='I' or prcpgenrflag='E') and (prcpkindcd='60') and (prcpclscd='A2' or prcpclscd='A4' or prcpclscd='A6')]/prcpcd"))){
        pop_MedicineConsult = "Y";
    }

    if ( model.instances(0).selectNodes( "/root/result/savedrprcplist" ).length > 0 ) {
        prcpsaveyn = "Y";
        
        //JJE 2008.09.08
        if(model.getValue("/root/cp") == "Y") prcpsaveyn_SMMMO00110 = "Y";
    }
    
    //DUR-S
    //by sonjy 20091216 처방 인증저장 성공후  이전 difguid초기화 
    // durappyn : "A:DUR전체사용", "Y:DUR중 저함량제외", "나머지:DUR 사용안함" , "K:경북대용 DUR"
    if ( model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "A" || model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "Y") { 
        if( prcpchkflag != "N" && saveok == "Y" && savekindflag == "0" && prcpsaveyn == "Y" ){ 
            model.makeValue("/root/init/bf_difguid", "");
        }
    }
    //DUR-E 
    
    //20080910 마정민 수정. 시행부서처방은 산정특례 체크 안한다.
    if( model.getValue("/root/cp") == "Y" && model.getValue ( "/root/addprcp" ) != "Y"  ){
        //JJE 조건추가 2008.09.08
        //인증저장인 경우, M-GPS의 적용 버튼 이벤트에서 (당일+미래처방 저장 처리가 모두 끝난 후) fGetPrcpSaveAftInfo()를 직접 호출하므로, 임시저장 때에만 여기에서 수행함.
        if( savekindflag == 1 ){
        	if(tuningyn == "Y") { // tuning 7
        		fGetPrcpSaveAftInfo_New ( prcpsaveyn ,"Y"); 
        	} else {
        		fGetPrcpSaveAftInfo ( prcpsaveyn ,"Y");
        	}
        }
        
    }else{
        if( savekindflag == 1 ) { 
            aftdcyn = "Y"; //임시저장일 경우 산정특례 및 법정전염병 타지 않도록....by sonjy 20081123
        }
        if(tuningyn == "Y") { // tuning 8
    		fGetPrcpSaveAftInfo_New ( prcpsaveyn ,aftdcyn); //청구후 d/c가 아닐 경우만 타도록 parameter 추가 . by sonjy 20081027 
    	} else {
        	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"  && model.getValue ( "/root/addprcp" ) != "Y"  && model.getValue ( "/root/cp") != "Y" 
        && (prcpgenrflag == "O" || prcpgenrflag == "S")){
        var returnVal = fGetHardCDList("Y", 268, 3);
        var patgolistprtyn = model.getValue("/root/init/patgolistprtyn");
        if ((returnVal == "N" || patgolistprtyn == "Y") && model.getValue("/root/paminfo/list/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(tuningyn != "Y") { // tuning 8 저장 시 로직으로 합침
            //수술중처방 마약집계호출
	        if ( model.getValue ( "/root/init/drugbatch" ) == "Y" ) {
	            submit ( "TXMMO00106", false );
	        }
	
	        if ( prcpgenrflag == "E" ) { //응급일 때 진료지원 예약모듈 호출
	            submit ( "TXMMO00110", false );
	        }
        }
    }
    
    model.removeNodeSet ( "/root/main/prcp/prcplist");
    appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" );
    model.removeNodeSet ( "/root/result");
    model.removeNodeSet ( "/root/result1");
    model.removeNodeSet ( "/root/send/cond2" );
    model.makeNode ( "/root/send/cond2" );
    model.resetInstanceNode ( "/root/send" );

    //추가처방화면이면
    if ( model.getValue ( "/root/addprcp" ) == "Y" ) {
        fAddPrcpInitConDone( "", "", "", "", "", "Y" , "" );
    } 

    //ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
    //외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
    var operation = getGlobalVariable("operation"); //수술예약정보 set
    var ioflag = model.getValue ( "/root/paminfo/list/ioflag" );
    if ( ioflag == "O" || ioflag == "S" )    {
        var pid = model.getValue ( "/root/paminfo/list/pid" );
        var orddd = model.getValue ( "/root/paminfo/list/orddd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );
        var acptseqno = model.getValue ( "/root/paminfo/list/acptseqno" );
        var orgorddd = model.getValue ( "/root/paminfo/list/orgorddd" );                    
        setParameter("condparam", 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 = model.getValue ( "/root/paminfo/list/pid" );
        var indd = model.getValue ( "/root/paminfo/list/indd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );                
        var prcpdd = model.getValue ( "/root/init/prcpdd" );
        //청구 후 D/C관련 추가 처리...prcpdd를 퇴원환자일 경우 퇴원일을 넘겨 준다. by sonjy 20081027 
        //그렇지 않을 경우 상단 정보 오류남.
        if(  model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && 
             model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" &&
             !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){
             prcpdd = model.getValue ( "/root/paminfo/list/dschdd" );
        }
        setParameter("condparam", ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd);
        
    } else if(ioflag == "E"){ //입원(E응급)
        var ioflag = "E";
        //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
        //외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
        var pid = model.getValue ( "/root/paminfo/list/pid" );
        var indd = model.getValue ( "/root/paminfo/list/indd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );                
        var prcpdd = model.getValue ( "/root/init/prcpdd" );
        
        //청구 후 D/C관련 추가 처리...prcpdd를 퇴원환자일 경우 퇴원일을 넘겨 준다. by sonjy 20081027 
        //그렇지 않을 경우 상단 정보 오류남.
        if(  model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && 
             model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" &&
             !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){
             prcpdd = model.getValue ( "/root/paminfo/list/dschdd" );
        }
        setParameter("condparam", ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd);
    }
    
    var xpt = window.screenleft + 0;
    var ypt = window.screenTop + 0;                 
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];

    if ( model.getValue ( "/root/addprcp" ) != "Y"  ){//&& prcpchkflag != "clickpatlist"  진료대상자리스트에서 선택되었을때는 메세지 띄우지 않는다. 20100317 LYJ
        modal("SPMMO08900", mon,  xpt, ypt, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
    }
    
    //기존의 수술예약번호가 있는 경우에는 reset처리
    if( operation != "" ){
        setGlobalVariable("operation", operation);
    }
    
    var useyn = getParameter("SPMMO08900_rtn_useyn");
    if(useyn == "Y"){

        setParameter("SPMMO08900_rtn_useyn", "");

        if ( savedataflag != "2" ) {
        	if(tuningyn == "Y" ) {
        		fPatDiagSrch_New();
        	} else {
        		fPatDiagSrch();
        	}
        }
        
        //JJE CP일 경우, 당일+미래처방 모두 저장 후 맨 마지막에 진료대상자를 조회한다 (2008.09.11)
        if ( model.getValue ( "/root/cp" ) == "Y" && savekindflag != 1 ){
            return true;
        }               
        
        fInitializeConDone("save");   
            
        fTempPrcp("save");
        
        //20080818 마정민 수정: 전처방 조회 저장후 바로 가져오는 걸로 수정
        //ivw_prcp3.window.javascript.fInitialize("init");
        if ( model.getValue ( "/root/cp" ) != "Y" && !btn_ivbfprcp.selected) {
            btn_ivbfprcp.selected = true;
            ivw_prcp3.visible = true;
            ivw_prcp.visible = false;
            //ivw_prcp.src = "SMMMO02100_전회처방.xrw";
        }else if ( !btn_ivbfprcp.selected ) {
            btn_ivbfprcp.selected = true;
            ivw_prcp3.visible = true;
            ivw_prcp2.visible = false;
            //ivw_prcp2.src = "SMMMO02100_전회처방.xrw";
        }
        
        //20090327 마정민수정: 차상위 로직추가
        if ( model.getValue ( "/root/paminfo/list/scndyn" ) == "Y" && prcpgenrflag == "O" && savekindflag != 1 ) {
            fScndChk();
        }

        fInitializeScreen();
        
        //종속처방번호, 믹스번호, hsctlnkno 초기화
        model.setValue ( "/root/init/inclprcpno", 0 );
        model.setValue ( "/root/init/hsctlnkno", 0 );
        model.setValue ( "/root/init/prcpmixno", 0 );

        var ordPatObj = getOpenWindow("SMMMO04100");
        if(ordPatObj != null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함                 
           ordPatObj.javascript.fPrcpCallPatList();
        }
        var ordMiniPatObj = getOpenWindow("SPMMO04200");
        if(ordMiniPatObj != null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함                 
           ordMiniPatObj.javascript.fChkGetData();
        }
    }            
    // 20100412 퇴원처방 저장시 입퇴원요약지 기록 인터페이스 태우도록  by LYJ  20101102 위치변경
    if ( model.getValue ( "/root/initsrch/getoutprcpsave/trgtcd" ) == "Y" ) {
        if ( model.getValue ( "/root/paminfo/list/ioflag" ) == "I") {
            if( nodelistRecNode.length > 0 &&  model.getValue ( "/root/init/setprcpyn") == "Y" ) {
                var pid    = model.getValue("/root/paminfo/list/pid");
                var orddd  = model.getValue("/root/paminfo/list/indd");
                var cretno = model.getValue("/root/paminfo/list/cretno"); 
                var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
                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 ) {
        setGlobalVariable("emrinptsavetime", getCurrentDateTime());
    }

    if(pop_MedicineConsult == "Y") {
        modal("SPADC62100", "", 200, 200);
    }
    
    endStepDate   = new Date(); // 각 업부 종료후 시간
    step5Elapsed  = endStepDate.getTime() - startStepDate.getTime(); // 화면 저장후 처리 소요 시간

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

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

    var orddd = ""; 
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
        orddd = model.getValue ( "/root/paminfo/list/orddd" );
        orddrid = model.getValue ( "/root/paminfo/list/orddrid" );
    } else {
        orddd = model.getValue ( "/root/paminfo/list/indd" );
        orddrid = model.getValue ( "/root/paminfo/list/medispclid" );
    }
    //처방에 대한 중증진료, 산정특례, 법정전염병 처리
    model.setValue ( "/root/send/cond1", prcpgenrflag );                                    //외래,입원구분
    model.setValue ( "/root/send/cond17", model.getValue("/root/paminfo/list/pid"));        //환자번호
    model.setValue ( "/root/send/cond3", orddd );                                           //진료일
    model.setValue ( "/root/send/cond4", model.getValue("/root/paminfo/list/cretno"));      //cretno
    model.setValue ( "/root/send/cond5", model.getValue("/root/paminfo/list/instcd"));      //기관코드
    model.setValue ( "/root/send/cond6", model.getValue("/root/paminfo/list/orddeptcd"));   //진료과
    model.setValue ( "/root/send/cond7", orddrid );                                         //진료의id
    model.setValue ( "/root/send/cond8", model.getValue("/root/init/prcpdd"));              //처방일
    model.setValue ( "/root/send/cond9", model.getValue("/root/paminfo/list/age"));         //나이
    model.setValue ( "/root/send/cond10", model.getValue( "/root/hidden/dschprcpyn"));      //퇴원오더 여부
    model.setValue ( "/root/send/cond11", model.getValue( "/root/paminfo/list/suppkind"));  //보조유형
    model.setValue ( "/root/send/cond12", model.getValue( "/root/init/prcpauthflag"));      //권한구분
    model.setValue ( "/root/send/cond13", model.getValue("/root/paminfo/list/insukind"));   //보험유형
    model.setValue ( "/root/send/cond14", getUserInfo("dutplcecd"));                        //부서코드
    model.setValue ( "/root/send/cond15", getUserInfo ("userid"));                          //사용자ID
    model.setValue ( "/root/send/cond16", prcpsaveyn );                                     //처방저장여부  
    model.setValue ( "/root/send/cond18", model.getValue ("/root/formerkey/pseuacptflag")); //시행부서처방가접수여부
    model.makeValue ( "/root/send/cond19", aftdcyn);    //청구 후 d/c처방 여부 by sonjy 20081027 추가 
    
    //by sonjy 20091120 전처방 개인별 조회 option 추가  
    var bfprcpviewnode =  instance1.selectSingleNode("/root/initsrch/envinfo[qestcd='018']/answcnt");
    var bfprcpviewflag = ""; 
    if( bfprcpviewnode != null ) bfprcpviewflag = bfprcpviewnode.text ;
    model.makeValue ( "/root/send/bfprcpviewflag", bfprcpviewflag);   

    //submit("TRMMO00122") => if( submit("TRMMO00122") == true ) 로 변경 (2008.09.28 JJE)
    if( submit ( "TRMMO00122", false ) ){
    
        if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
            rtnVal = false; //return false;
        }
        
        if(prcpgenrflag != "O" && prcpgenrflag != "S"){
            var nDschOutCnt = model.instances(0).selectNodes ( prcpNode + "[status ='I' and prcpkindcd = '70']" ).length;
            if(nDschOutCnt > 0) {
                model.removeNodeSet ( "/root/send/cond2" );
                model.makeNode ( "/root/send/cond2" );
                
                model.setValue ( "/root/send/cond1", model.getValue("/root/paminfo/list/pid") );  //환자번호
                model.setValue ( "/root/send/cond2", model.getValue("/root/paminfo/list/indd") ); //진료일
                model.setValue ( "/root/send/cond3", model.getValue("/root/paminfo/list/instcd"));  //cretno
                model.setValue ( "/root/send/cond4", model.getValue("/root/paminfo/list/cretno"));  //cretno
                 
                if (  submit ( "TRMMO00119", false )) {
                    //처방에 대한 중증진료, 산정특례, 법정전염병 처리
                    model.setValue ( "/root/send/cond1", "O" );                                 //외래,입원구분
                    model.setValue ( "/root/send/cond17", model.getValue("/root/paminfo/list/pid"));        //환자번호
                    model.setValue ( "/root/send/cond3", model.getValue("/root/followup/followup/otpt_orddd") );                                            //진료일
                    model.setValue ( "/root/send/cond4", model.getValue("/root/followup/followup/otpt_cretno"));        //cretno
                    model.setValue ( "/root/send/cond5", model.getValue("/root/paminfo/list/instcd"));      //기관코드
                    model.setValue ( "/root/send/cond6", model.getValue("/root/paminfo/list/orddeptcd"));   //진료과
                    model.setValue ( "/root/send/cond7", orddrid );                                         //진료의id
                    model.setValue ( "/root/send/cond8", model.getValue("/root/init/prcpdd"));              //처방일
                    model.setValue ( "/root/send/cond9", model.getValue("/root/paminfo/list/age"));         //나이
                    model.setValue ( "/root/send/cond10", model.getValue( "/root/hidden/dschprcpyn"));      //퇴원오더 여부
                    model.setValue ( "/root/send/cond11", model.getValue( "/root/paminfo/list/suppkind"));  //보조유형
                    model.setValue ( "/root/send/cond12", model.getValue( "/root/init/prcpauthflag"));      //권한구분
                    model.setValue ( "/root/send/cond13", model.getValue("/root/paminfo/list/insukind"));   //보험유형
                    model.setValue ( "/root/send/cond14", getUserInfo("dutplcecd"));                        //부서코드
                    model.setValue ( "/root/send/cond15", getUserInfo ("userid"));                          //사용자ID
                    model.setValue ( "/root/send/cond16", prcpsaveyn );                                     //처방저장여부  
                    model.setValue ( "/root/send/cond18", model.getValue ("/root/formerkey/pseuacptflag")); //시행부서처방가접수여부
                    model.makeValue ( "/root/send/cond19", aftdcyn);    //청구 후 d/c처방 여부 by sonjy 20081027 추가 
                    
                    if( submit ( "TRMMO00122", false ) ){
                        if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
                            rtnVal = false; //return false;
                        }
                    }
                }
            }
            
        }
    
    //by sonjy 간호반납의뢰 처방 저장 후 호출 시에는...아직 화면이 그려지지 않은 상태임. 
    //son0820 
        if( model.getValue("/root/bfinityn") ==  "Y" ){ 
            //JJE 처방일이 미래일자로 변경되어 있을경우, 오늘날짜로 다시 설정 (2008.09.11) 
            if( model.getValue("/root/cp") == "Y" ){        //&& model.getValue("/root/init/prcpdd") != getCurrentDate() 
                model.setValue("/root/init/prcpdd", getCurrentDate());
                cmb_prcpdd.refresh();
            }
            
            ivw_prcp3.window.javascript.fInitialize("save");
    //      2011.09.01 아래 로직 삭제 
    //      if ( model.instances(0).selectNodes ("root/savertninfo/prcplist").length > 0 ){
    //          ivw_prcp3.window.javascript.fInitialize("save");
    //      } else {
    //          ivw_prcp3.window.javascript.fInitialize("init");
    //      }
        }
  }
  
  //start: 외부 CD 재판독 의뢰 정보 update (2010.02.19 JJE)
  if( getParameter("spmmo21200_rtnyn") == "Y" ){
    var saveYN     = "N";
    var prcpPkSpec = "";
    var savePrcpDD = "";
    var savePrcpCd = "";
    var saveEqmtCd = "";
    var saveTrsmDD = "";
    var saveTrsmTM = "";
    //var saveOcdSeq = "";
    var prcpcdList = getParameter("spmmo21200_rtnprcpcd").split("^"); //prcpCd
    var eqmtcdList = getParameter("spmmo21200_rtneqmtcd").split("^"); //cdType
    var trsmddList = getParameter("spmmo21200_rtntrsmdd").split("^"); //trsmDD
    var trsmtmList = getParameter("spmmo21200_rtntrsmtm").split("^"); //trsmTM
    //var ocdseqList = getParameter("spmmo21200_rtnocdseq").split("^"); //oCdSeq
    var iRow = 0;
    
    model.makeNode ("/root/spmmo21200/send");
    for( var i=0; i<prcpcdList.length; i++ ){
        prcpPkSpec = instance1.selectSingleNode("root/savertninfo/prcplist[prcpcd='" + prcpcdList[i] + "']/prcppkspec");
        if( prcpPkSpec != null ){  //익일 처방 있고, 당일처방 추가로 낸 경우.. 값 있는지?
            savePrcpDD = prcpPkSpec.text.substr(0, 8);
            savePrcpCd = prcpcdList[i];
            saveEqmtCd = eqmtcdList[i];
            saveTrsmDD = trsmddList[i];
            saveTrsmTM = trsmtmList[i];
            //saveOcdSeq = ocdseqList[i];
            saveYN     = "Y";
            iRow++;
            //break;  //우선은 1건만 prcpcd mapping
            
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/pid"      , getParameter("spmmo21200_pid"));
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/orddeptcd", getParameter("spmmo21200_orddeptcd"));
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/prcpdd"   , savePrcpDD);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/prcpcd"   , savePrcpCd);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/eqmtcd"   , saveEqmtCd);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/trsmdd"   , saveTrsmDD);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/trsmtm"   , saveTrsmTM);
            //model.makeValue("/root/spmmo21200/send/info/ocdseq"   , saveOcdSeq);
        }
    }
    if( saveYN == "Y" ){
        if( !submit("TXMMO21201", false) ){
            rtnVal = false;
        }
    }
    model.removenode("/root/spmmo21200");
    clearParameter("spmmo21200_rtnyn"); 
    clearParameter("spmmo21200_pid");
    clearParameter("spmmo21200_orddeptcd");
    clearParameter("spmmo21200_rtnprcpcd"); 
    clearParameter("spmmo21200_rtneqmtcd"); 
    clearParameter("spmmo21200_rtntrsmdd"); 
    clearParameter("spmmo21200_rtntrsmtm"); 
    }
    //end
  
  //true 리턴 추가(2008.09.29 JJE)
  return rtnVal; //return true;
}

function fGetPrcpEtcInfo(flag) {
        
    var orddd = ""; 
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );

    //20090415 마정민추가 chronicdiseaseyn 초기화
    model.setValue ( "/root/init/chronicdiseaseyn", "N" );
    
    if ( flag == "save" ) {
        //20080818 마정민 수정. 처방 저장후 불러오는 건은 app에서 호출하는 걸로 수정.
        model.copyNode ( "/root/prcpetcinfo", "/root/savertninfo" );
        //temp에 딸려온 데이터는 삭제한다.
        model.removeNodeset ( "/root/prcpetcinfo/prcpetccnts" );
        model.removeNodeset ( "/root/prcpetcinfo/rsrvcvrtprcp" );
        model.removeNodeset ( "/root/prcpetcinfo/prcplist" );
    } else {
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
            orddd = model.getValue ( "/root/paminfo/list/orddd" );
        } else {
            orddd = model.getValue ( "/root/paminfo/list/indd" );
        }
        //처방에 대한 중증진료, 산정특례, 법정전염병 처리
        model.setValue ( "/root/send/cond1", prcpgenrflag ); //ioflag
        model.setValue ( "/root/send/cond2", "1" ); //dataflag 자료구분(1:처방화면, 2:진단화면)
        model.setValue ( "/root/send/cond3", model.getValue ( "/root/paminfo/list/pid" )); //pid
        model.setValue ( "/root/send/cond4", orddd ); //orddd
        model.setValue ( "/root/send/cond5", model.getValue ( "/root/paminfo/list/cretno" )); //cretno
        model.setValue ( "/root/send/cond6", model.getValue ( "/root/paminfo/list/instcd" )); //instcd
        model.setValue ( "/root/send/cond7", model.getValue ( "/root/init/prcpdd" )); //prcpdd
        model.setValue ( "/root/send/cond8", getUserInfo("dutplcecd")); //deptcd
        model.setValue ( "/root/send/cond9", getUserInfo ("userid")); //userid
        model.setValue ( "/root/send/cond10", model.getValue ( "/root/paminfo/list/age" )); //나이
        model.setValue ( "/root/send/cond11", model.getValue ( "/root/hidden/dschprcpyn" )); //퇴원오더여부 by sonjy 2008-07-30
        model.setValue ( "/root/send/cond12", model.getValue ( "/root/paminfo/list/orddeptcd"));    //진료과 (만성B형간염 - kimsj 100217)
        
        //submit("TRMMO00108") => if( !submit("TRMMO00108") ) 로 변경 (2008.09.29 JJE)
        if( !submit ( "TRMMO00108", false ) ){
            return false;
        }
    }
    
    var frmflag = "Y"; // 재등록 체크를 위한 변수
    var saveSerFrmNodes = model.instances(0).selectNodes( "/root/prcpetcinfo/saveserdiagappfrm" );

    if (model.getValue("/root/prcpetcinfo/saveestmspclcs/newlogicyn") == "Y") {  // 신규로직 적용여부 (신규 신청서 작성 하지 않은경우에서 산정 특례 적용 되는것 수정 관련) 추후에 삭제 필요. 엄영만 2012.02.29
    
        //20090415 마정민수정: 유정란대리 요청
        model.setValue ( "/root/init/chronicdiseaseyn", model.getValue ( "/root/prcpetcinfo/saveestmspclcs/chronicdiseaseyn" ));
        
        if ( model.getValue ( "/root/addprcp" ) != "Y") { // 추가처방에서는 신청서만 뜨지 않도록 ...
            var sRgstKindCd = "";  // 산정특례 종류 00:중증, 01:희귀난치, 02:중증화상, 03:경증
            for (var i = 1; i <= saveSerFrmNodes.length; i++) {
                frmflag     = "Y";
                sRgstKindCd = model.getValue ("/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/rgstkindcd" );
                
                if (model.getValue ("/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/reregyn" ) == "Y" ) {// 재등록 일경우
                    var msgData = messageBox(model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/reregmsg" ), "S007", "추후 재등록 하시려면|재등록이 필요없는 환자분이라면" );
                    if (msgData == "6" ) {  // 재등록 한다.
                        if(sRgstKindCd == "00") { // 중증 
                            frmflag = "Y";
                        } else if (sRgstKindCd == "02") { // 중증화상
                            frmflag = "R";
                            setParameter("SMMMR02900_formcd", "1200012640");
                            modal("SMMMR02900");
                            clearParameter("SMMMR02900_formcd");
                        }
                    } else if ( msgData == "7" ) { // 나중에 한다.
                        frmflag = "-";
                    } else {    // 재등록 하지 않겠습니다. 
                        frmflag = "N";
                    }
                    
                    model.setValue ( "/root/send/cond1", model.getValue("/root/paminfo/list/pid") );
                    model.setValue ( "/root/send/cond2", model.getValue("/root/paminfo/list/instcd") );
                    model.setValue ( "/root/send/cond3", "" );
                    model.setValue ( "/root/send/cond4", "" );
                    model.setValue ( "/root/send/cond5", "" );
                    model.setValue ( "/root/send/cond6", frmflag );
                    model.setValue ( "/root/send/cond7", "" );
                    model.setValue ( "/root/send/cond8", sRgstKindCd );
            
                    if( !submit ( "TXMMO00116", false ) ){
                        return false;
                    }
                }
                
                // 신규 등록 또는 중증 재등록 체크 "예" 선택시 에만 중증 신청서 팝업 되어야 함.
                if (frmflag == "Y"  && sRgstKindCd == "00" ) { // 중증 신청서는 
                    setParameter("SPMMO11500_pid",             model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/pid" ));
                    setParameter("SPMMO11500_pathngnm",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/hngnm" ));
                    setParameter("SPMMO11500_insukind",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukind" ));
                    setParameter("SPMMO11500_anohosprgstflag", model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/anohosprgstflag" ));
                    setParameter("SPMMO11500_genrflagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrflagcd" ));
                    setParameter("SPMMO11500_cncrdiagcnfmdd",  model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/cncrdiagcnfmdd" ));
                    setParameter("SPMMO11500_orddeptcd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddeptcd" ));
                    setParameter("SPMMO11500_orddrid",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddrid" ));
                    setParameter("SPMMO11500_genrorddd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrorddd" ));
                    setParameter("SPMMO11500_genrcretno",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrcretno" ));
                    setParameter("SPMMO11500_maindiagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/maindiagcd" ));
                    setParameter("SPMMO11500_insukindnm",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukindnm" ));
                    setParameter("SPMMO11500_mthdstr", "-");
                    setParameter("SPMMO11500_mthd5txt", "-");
                    setParameter("SPMMO11500_rgstbasic", "-");
                    
                    clearParameter("SPMMO11500_save");
                    fPrcpModal ( "SPMMO11500", 400, 100 );
                    
                    if(getParameter("SPMMO11500_save")== "Y") {
                        model.setValue("/root/prcpetcinfo/saveestmspclcs/estmexistyn", "Y"); // 기존 신청서가 없고 신규로 신청서 작성시 등록 정보 여부를 셋팅 함.(아래쪽에서 요율 팝업 창 뛰울때 체크함.) 2012.02.29 엄영만
                    } else {
                        messageBox ( "중증 신청서가 작성되지 않았습니다.", "I" );
                    }
                    
                } else if ( frmflag == "Y" && ( sRgstKindCd == "01" || sRgstKindCd == "02" ))  { // 희귀난치/중증화상
                    setParameter("SPMMO20000_pid",             model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/pid" ));
                    setParameter("SPMMO20000_pathngnm",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/hngnm" ));
                    setParameter("SPMMO20000_insukind",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukind" ));
                    setParameter("SPMMO20000_anohosprgstflag", model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/anohosprgstflag" ));
                    setParameter("SPMMO20000_genrflagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrflagcd" ));
                    setParameter("SPMMO20000_cncrdiagcnfmdd",  model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/cncrdiagcnfmdd" ));
                    setParameter("SPMMO20000_orddeptcd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddeptcd" ));
                    setParameter("SPMMO20000_orddrid",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddrid" ));
                    setParameter("SPMMO20000_genrorddd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrorddd" ));
                    setParameter("SPMMO20000_genrcretno",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrcretno" ));
                    setParameter("SPMMO20000_maindiagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/maindiagcd" ));
                    setParameter("SPMMO20000_insukindnm",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukindnm" ));
                    setParameter("SPMMO20000_mthdstr",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/mthdstr" ));
                    setParameter("SPMMO20000_mthd5txt",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/mthd5txt" ));
                    setParameter("SPMMO20000_rgstbasic",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/rgstbasic" ));
                    setParameter("SPMMO20000_rgstkindcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/rgstkindcd") );   // 20100706 중증화상인지 산정특례인지 구분을 위해서.
                    setParameter("SPMMO20000_burnicd10desc",   model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/burnicd10desc") );   // 20100706 중증화상의 Icd10cd를 가져오기 위해서.
                    setParameter("SPMMO20000_icd10cd",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/icd10cd") );   // 20100706 중증화상의 Icd10cd를 가져오기 위해서.
    
                    clearParameter("SPMMO20000_save");
                    fPrcpModal ( "SPMMO20000", 400, 100 );
                    
                    if(getParameter("SPMMO20000_save")== "Y") {
                        model.setValue("/root/prcpetcinfo/saveestmspclcs/estmexistyn", "Y"); // 기존 신청서가 없고 신규로 신청서 작성시 등록 정보 여부를 셋팅 함.(아래쪽에서 요율 팝업 창 뛰울때 체크함.) 2012.02.29 엄영만
                    } else {
                        messageBox ( "희귀난치/중증화상 신청서가 작성되지 않았습니다.", "I" );
                    }
                }
            }
        }
        
        fEstmSpclFrm(); // 요율팝업 
        
    } else {   // 신규로직 적용여부 이전로직  (신규 신청서 작성 하지 않은경우에서 산정 특례 적용 되는것 수정 관련) 추후에 삭제 필요. 엄영만 2012.02.29
       if (model.getValue("/root/prcpetcinfo/saveserdiagcont/contchkyn") != "Y"  ) { // 중증 등록 재등록이 아닐때는 기존대로 요율팝업 진행  20100811 LYJ
            fEstmSpclFrm();
        } else if (   model.getValue("/root/prcpetcinfo/saveestmspclcs/estmflag") == "Y" && isNull(model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm/pid" ))) {     // 중증 종료후 희귀난치 적용된 환자의 경우 
            fEstmSpclFrm();
        }
        //20090415 마정민수정: 유정란대리 요청
        model.setValue ( "/root/init/chronicdiseaseyn", model.getValue ( "/root/prcpetcinfo/saveestmspclcs/chronicdiseaseyn" ));
            
        // 100805 kimsj 중증 재등록 체크
        //model.alert("체크1 : " + model.getValue("/root/prcpetcinfo/saveserdiagcont/contchkyn"));
        if (   model.getValue("/root/prcpetcinfo/saveserdiagcont/contchkyn") == "Y" 
            && model.getValue ( "/root/addprcp" ) != "Y"
            && !isNull(model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm/pid" )) ) {
            
            var msgData = messageBox(model.getValue ( "/root/prcpetcinfo/saveserdiagcont/contmsg" ), "S007", "추후 재등록 하시려면|재등록이 필요없는 환자분이라면" );
            if (msgData == "6" ) {  //중증등록이 종료됩니다. \n종료일 이후에는 본인부담이 60%로 변경됩니다. \n재등록하시겠습니까?
                frmflag = "Y";
            } else if ( msgData == "7" ) {
                frmflag = "-";
            } else {    // 재등록 하지 않겠습니다. 
                frmflag = "N";
                // 신청서 종료일 이후 재발행 팝업 '아니오' 선택 시 suppkind = 00 , spclcd = '-' 로 업데이트  20100812 LYJ
                if (model.getValue("/root/prcpetcinfo/saveserdiagcont/serdiagtodd") < getCurrentDate()){
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmkind", "00" ); 
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd", "-" ); 
                    
                     var saveestmspclcs = model.instances(0).selectNodes( "/root/prcpetcinfo/saveestmspclcs" );
                     model.setValue ( "/root/send/cond1", getNodeListCSV(saveestmspclcs));
                     if( !submit ( "TXMMO00105", false ) ){
                        return false;
                    }
                }
            }
            model.setValue ( "/root/send/cond1", model.getValue("/root/paminfo/list/pid") );
            model.setValue ( "/root/send/cond2", model.getValue("/root/paminfo/list/instcd") );
            model.setValue ( "/root/send/cond3", model.getValue("/root/prcpetcinfo/saveserdiagcont/genrdd") );
            model.setValue ( "/root/send/cond4", model.getValue("/root/prcpetcinfo/saveserdiagcont/genrno") );
            model.setValue ( "/root/send/cond5", model.getValue("/root/prcpetcinfo/saveserdiagcont/histno") );
            model.setValue ( "/root/send/cond6", frmflag );
            model.setValue ( "/root/send/cond7", model.getValue("/root/prcpetcinfo/saveserdiagcont/serdiagtodd") );
    
            if( !submit ( "TXMMO00116", false ) ){
                return false;
            }
        }
            
         if ( model.getValue ( "/root/addprcp" ) != "Y") { // 추가처방에서는 신청서만 뜨지 않도록 ...
            for (var i = 1; i <= saveSerFrmNodes.length; i++) {
                //20090620 한재상수정: 희귀난치 고시관련.
                if ( frmflag == "Y"   // 신규 등록 또는 중증 재등록 체크 "예" 선택시 에만 중증 신청서 팝업 되어야 함.
                    && model.getValue ("/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/frmsuppkind" ) == "06" ) { // 중증 신청서는 
                    setParameter("SPMMO11500_pid",             model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/pid" ));
                    setParameter("SPMMO11500_pathngnm",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/hngnm" ));
                    setParameter("SPMMO11500_insukind",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukind" ));
                    setParameter("SPMMO11500_anohosprgstflag", model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/anohosprgstflag" ));
                    setParameter("SPMMO11500_genrflagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrflagcd" ));
                    setParameter("SPMMO11500_cncrdiagcnfmdd",  model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/cncrdiagcnfmdd" ));
                    setParameter("SPMMO11500_orddeptcd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddeptcd" ));
                    setParameter("SPMMO11500_orddrid",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddrid" ));
                    setParameter("SPMMO11500_genrorddd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrorddd" ));
                    setParameter("SPMMO11500_genrcretno",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrcretno" ));
                    setParameter("SPMMO11500_maindiagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/maindiagcd" ));
                    setParameter("SPMMO11500_insukindnm",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukindnm" ));
                    setParameter("SPMMO11500_mthdstr", "-");
                    setParameter("SPMMO11500_mthd5txt", "-");
                    setParameter("SPMMO11500_rgstbasic", "-");
                    
                    fPrcpModal ( "SPMMO11500", 400, 100 );
                    
                } else if ( model.getValue ("/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/suppkind" ) != "00" 
                         && model.getValue ("/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/frmsuppkind") == "07" )  {
                    setParameter("SPMMO20000_pid",             model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/pid" ));
                    setParameter("SPMMO20000_pathngnm",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/hngnm" ));
                    setParameter("SPMMO20000_insukind",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukind" ));
                    setParameter("SPMMO20000_anohosprgstflag", model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/anohosprgstflag" ));
                    setParameter("SPMMO20000_genrflagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrflagcd" ));
                    setParameter("SPMMO20000_cncrdiagcnfmdd",  model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/cncrdiagcnfmdd" ));
                    setParameter("SPMMO20000_orddeptcd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddeptcd" ));
                    setParameter("SPMMO20000_orddrid",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/orddrid" ));
                    setParameter("SPMMO20000_genrorddd",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrorddd" ));
                    setParameter("SPMMO20000_genrcretno",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/genrcretno" ));
                    setParameter("SPMMO20000_maindiagcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/maindiagcd" ));
                    setParameter("SPMMO20000_insukindnm",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/insukindnm" ));
                    setParameter("SPMMO20000_mthdstr",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/mthdstr" ));
                    setParameter("SPMMO20000_mthd5txt",        model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/mthd5txt" ));
                    setParameter("SPMMO20000_rgstbasic",       model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/rgstbasic" ));
                    setParameter("SPMMO20000_rgstkindcd",      model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/rgstkindcd") );   // 20100706 중증화상인지 산정특례인지 구분을 위해서.
                    setParameter("SPMMO20000_burnicd10desc",   model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/burnicd10desc") );   // 20100706 중증화상의 Icd10cd를 가져오기 위해서.
                    setParameter("SPMMO20000_icd10cd",         model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm[" + i + "]/icd10cd") );   // 20100706 중증화상의 Icd10cd를 가져오기 위해서.
    
                    fPrcpModal ( "SPMMO20000", 400, 100 );
                }
            }
        }        
            
        // 중증  재등록 && 중증 기간 만료 이전 ||
        // 중증  재등록 && 중증 기간 만료 && 중증 신청서 저장 완료  
        // 중증  재등록 && 중증 기간 만료 && 재발행 팝업 뜰때
        // 일때 요율 팝업 적용    20100811 LYJ  
        if ((model.getValue("/root/prcpetcinfo/saveserdiagcont/contchkyn")== "Y" && !isNull(model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm/pid" )) && model.getValue("/root/prcpetcinfo/saveserdiagcont/serdiagtodd") >= getCurrentDate() ) || 
            (model.getValue("/root/prcpetcinfo/saveserdiagcont/contchkyn")== "Y" && !isNull(model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm/pid" )) && model.getValue("/root/prcpetcinfo/saveserdiagcont/serdiagtodd") < getCurrentDate() && getParameter( "SPMMO11500_save" )== "Y" ) ||
            (model.getValue("/root/prcpetcinfo/saveserdiagcont/contchkyn")== "Y" && !isNull(model.getValue ( "/root/prcpetcinfo/saveserdiagappfrm/pid" )) && model.getValue("/root/prcpetcinfo/saveserdiagcont/serdiagtodd") < getCurrentDate() && model.getValue("/root/prcpetcinfo/saveserdiagcont/contflag")== "Y") ) {
            fEstmSpclFrm();
        }
    }

    //법정전염병 신고서
    var reptcnt = 0;
    //기존 결핵신고자에게 결핵약 발행 시 결핵신고서 또 호출되는 문제 => 서버단에서 신고건까지 모두 return, client는 chkyn컬럼으로 체크 (20090710 JJE)
    var savelglydisNodes = instance1.selectNodes("/root/prcpetcinfo/savelglydis[chkyn!='Y']");                  // (20090710 JJE)
    if( savelglydisNodes.length > 0 ) {  //if ( !isNull(model.getValue ( "/root/prcpetcinfo/savelglydis/reptnm" ))) {
        var xpt = window.screenleft + 400;
        var ypt = window.screenTop + 100;
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        //var srcNodeList = model.instances(0).selectNodes("/root/prcpetcinfo/savelglydis");                            // 법정전염병 체크 전 이미 선언했으므로 삭제 (20090710 JJE)
        for ( var i= 0; i<savelglydisNodes.length ; i++){                                                                    // srcNodeList -> savelglydisNodes (20090710 JJE)
            var node = savelglydisNodes.item(i);                                                                                // (20090710 JJE)
            var reptnmNode = node.selectSingleNode("reptnm");                                                                   // (20090710 JJE)
            var icd10cdNode = node.selectSingleNode("icd10cd");  // 법정전염병 , 성병 신고서 상병체크를 위한 파라메터
              if( reptnmNode.text == "SPASI01800" ) {  //if (model.getValue ( "/root/prcpetcinfo/savelglydis[" + i + "]/reptnm" ) == "SPASI01800" ) {  // 조건 변경 (20090710 JJE)
                reptcnt++;
            }
            //20100113 pyj 처방에서 신고서 호출시 파라메터를 넘겨준다.
            setParameter("PrcpLglyDis","PrcpLglyDis");
            setParameter("PrcpLglyDisCd",icd10cdNode.text);
            modal ( reptnmNode.text, mon,  xpt, ypt, "prcpdetl", "/root/main/diaginfo", "/root/diaginfo", "", false );      
            clearParameter("PrcpLglyDis");      
            clearParameter("PrcpLglyDisCd");    
        }
    } 
    
    //희귀질환대상자 by sonjy 2008-07-28 
    if ( model.getValue ( "/root/prcpetcinfo/saverareobst/estmflag" ) == "Y"  ) {
//            if (messageBox(model.getValue ( "/root/prcpetcinfo/saverareobst/estmmsg" ), "Q" ) == "6" ) {
        messageBox("희귀난치 대상자이나 관련 상병이 누락되어 있습니다. 희귀난치 진료이면 관련 상병을 주상병으로 입력해 주십시오.", "I");
//            } else {
        //희귀난치 대상 상병으로 진료를 본 것이 아니라고 할 경우 
        model.setValue ( "/root/prcpetcinfo/saverareobst/estmyn", "H" ); 
        //messageBox("접수정보에서 희귀난치를 I(일반)로 변경처리", "I");
        var saverareobst = model.instances(0).selectNodes( "/root/prcpetcinfo/saverareobst" );
        model.setValue ( "/root/send/cond1", getNodeListCSV(saverareobst));
        
        //submit("TXMMO00105") => if( !submit("TXMMO00105") ) 로 변경 (2008.09.29 JJE)
        if( !submit ( "TXMMO00105", false ) ){
            return false;
        }
        
    //}
        
    } else if ( model.getValue ( "/root/prcpetcinfo/saverareobst/estmflag" ) == "U"  ) {
        //희귀난치 대상이고 진단값이 있는데 otpt에 H값이 없으면 Update 처리 해준다.
        model.setValue ( "/root/prcpetcinfo/saverareobst/estmyn", "U" ); 
        //messageBox("접수정보에서 희귀난치를 I(일반)로 변경처리", "I");
        var saverareobst = model.instances(0).selectNodes( "/root/prcpetcinfo/saverareobst" );
        model.setValue ( "/root/send/cond1", getNodeListCSV(saverareobst));
        
        //submit("TXMMO00105") => if( !submit("TXMMO00105") ) 로 변경 (2008.09.29 JJE)
        if( !submit ( "TXMMO00105", false ) ){
            return false;
        }
    }

    //return;       //리턴이 이 위치에 있었음 (2008.09.29 JJE)
//alert( "lglydisprcpyn="+lglydisprcpyn);
    //DW-CY250(W-CY), DPTA125(T1321), DMBT400(MBT), DINH100(INH), DPZ500(PZ) 법정전염병 신고서를 써야하는 처방(결핵)이 있고
    //체크된 신고서가 SPASI01800 가 아닐경우 ( 같은것을 중복으로 띄울필요는 없으니까 ) 띄운다.
    //기존 결핵신고자에게 결핵약만 단독으로 발행 시 결핵신고서가 또 호출되는 문제 조치->실제 작성여부로 판단한다. (20090710 JJE)
    var savelglydisNodes2 = instance1.selectNodes("/root/prcpetcinfo/savelglydis[reptflag='02' and reptyn='Y']");
//        alert( "lglydisprcpyn="+lglydisprcpyn + " , savelglydisNodes2="+savelglydisNodes2.length);
    if ( lglydisprcpyn == "Y" && savelglydisNodes2.length < 1 && reptcnt == 0 ) {  //reptcnt == 0 -> savelglydisNodes.length < 1 (20090710 JJE)
          var xpt = window.screenleft + 400;
        var ypt = window.screenTop + 100;
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        modal ( "SPASI01800", mon,  xpt, ypt, "prcpdetl", "/root/main/diaginfo", "/root/diaginfo", "", false );
    }
    
    // 레진상 완전틀린 관련 처리 2012.07.04 엄영만
    var sResinDuntureNodes = instance1.selectNodes("/root/prcpetcinfo/saveresindenture");
    if(sResinDuntureNodes.length > 0){
        fResinDentureFrm();
    }

    model.resetInstanceNode ( "/root/prcpetcinfo" );
    
    return true;    //리턴 위치 바꿈, true 값 리턴 (2008.09.29 JJE)
}

/**
 * @desc   : 진료대상자 리스트에서 환자 호출시 저장할 데이터가 있을 시 저장한다.
 * @return : true, false
 * @authur : 마정민 2007. 4. 04
 */
function fPrcpSavePatList() {
    //20081014 간호확인 후에만 처방인증저장 가능.   start  
    var usge = model.getValue ( "/root/usge" ); 
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if( prcpgenrflag == "O" || prcpgenrflag == "S" ){ 
      if( model.getValue("/root/paminfo/list/elbulbodstat") == "0" &&  usge == "prcp" && model.getValue ( "/root/addprcp" ) != "Y" ){
        return false;
      }
    }/* else  
    if ( prcpgenrflag == "I" ){
      var careinrmdd = model.getValue("/root/paminfo/list/careinrmdd"); 
      if( ( isNull(careinrmdd) || careinrmdd == "-" || careinrmdd == "00000000") &&  usge == "prcp"  && model.getValue ( "/root/addprcp" ) != "Y"  ){
        return false;
      }
    }*/
    //20081014 간호확인 후에만 처방인증저장 가능.   end 
    //20081215 마정민수정: 변경요청서 512에 따라 진료대상자 리스트에서 환자 바꿀때 진단정보만 있으면 저장메시지 띄우지 않음
    if ( fSaveExistCheck(null, "Y") != -1 && fSaveExistCheck(null, "Y") != 1  ){     
        if(messageBox ( "", "Q002" ) == "6"){

            fPrcpSave("","","","N");  // 진료대상자리스트에서 환자 선택할 때는 저장여부 메세지 한번만 띄우고 새로 선택한 환자가 상단으로 올라간다. 20100317 LYJ
            return true;
        } else {
            return false;
        }
    }
}

/**
 * @desc   : 처방정렬
 * @authur : 마정민 2007. 4. 16
 */

function fPrcpSort() {
    grd_prcplist.sort(1, prcpclscd, grd_prcplist.rows-2, prcpclscd) = "asc";
    grd_prcplist.sort(1, prcpclscd, grd_prcplist.rows-2, prcpnmCol) = "asc";
}

/**
 * @desc   : 용량, 수량, 횟수의 수정전 값을 instance에 넣어둔다.
 * @param  : flag : 용량, 수량, 횟수 변경 구분
           : curRow : 수정할 현재 row
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function bfDrugCalc ( flag, curRow ) {
    
    if ( flag == "prcpvol" ) { 
        var PrcpVol = model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/prcpvol" );
        model.setValue ( "/root/drugcalc/prcpvol", PrcpVol );       

    } else if ( flag == "prcpqty" ) {
        var PrcpQty = model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/prcpqty" );
        model.setValue ( "/root/drugcalc/prcpqty", PrcpQty );       

    }  else if ( flag == "prcptims" ) {
        var PrcpTims = model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/prcptims" );
        model.setValue ( "/root/drugcalc/prcptims", PrcpTims );     
    }  else if ( flag == "drprcpetc7" ) {
        var drprcpetc7 = model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drprcpetc7" );
        model.setValue ( "/root/drugcalc/drprcpetc7", drprcpetc7 );     
    }  else if ( flag == "drprcpetc8" ) {
        var drprcpetc8 = model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drprcpetc8" );
        model.setValue ( "/root/drugcalc/drprcpetc8", drprcpetc8 );     
    }
    
}
 
/**
 * @desc   : 용량, 수량, 횟수를 수정했을 때 값계산
 * @param  : flag : 용량, 수량, 횟수 변경 구분
           : curRow : 수정할 현재 row
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function DrugCalc ( flag, curRow ) {
    var PrcpNm = "";

    var PrcpVol = model.getValue ( prcpNode + "[" + curRow + "]/prcpvol" );
    if ( isNull(PrcpVol) || PrcpVol == 0 ) {    
        PrcpVol = "1"; 
        if ( flag == "prcpvol") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1일용량값이 없거나 0입니다.\n1일용량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", PrcpVol );   //1일
        }
    }

    var PrcpQty = model.getValue ( prcpNode + "[" + curRow + "]/prcpqty" );
    if ( isNull(PrcpQty) || PrcpQty == 0 ){ 
        PrcpQty = "1"; 
        if ( flag == "prcpqty") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1일수량값이 없거나 0입니다.\n1일수량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty", PrcpQty );      
        }
    }

    var PrcpTims = model.getValue (prcpNode + "[" + curRow + "]/prcptims" );
    if ( isNull(PrcpTims) || PrcpTims == 0 ) {  
        PrcpTims = "1"; 
        if ( flag == "prcptims") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 횟수값이 없거나 0입니다.\n횟수을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/prcptims", PrcpTims);
        }
    }

    var drprcpetc7 = model.getValue (prcpNode + "[" + curRow + "]/drprcpetc7" );
    if ( isNull(drprcpetc7) || drprcpetc7 == 0 || drprcpetc7 == "-") {  
        drprcpetc7 = "1"; 
        if ( flag == "drprcpetc7") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1회용량값이 없거나 0입니다.\n1회용량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", drprcpetc7 );      //1회
        }
    }

    var drprcpetc8 = model.getValue (prcpNode + "[" + curRow + "]/drprcpetc8" );
    if ( isNull(drprcpetc8) || drprcpetc8 == 0 || drprcpetc8 == "-") {  
        drprcpetc8 = "1"; 
        if ( flag == "drprcpetc8") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1회수량값이 없거나 0입니다.\n1회수량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", drprcpetc8 ); //1회 
        }        
    }
        
    var bfPrcpVol = model.getValue ( "/root/drugcalc/prcpvol" );
    if ( isNull(bfPrcpVol) || bfPrcpVol == 0 ) {    
        bfPrcpVol = "1"; 
    }
    var bfPrcpQty = model.getValue ( "/root/drugcalc/prcpqty" ); 
    if ( isNull(bfPrcpQty) || bfPrcpQty == 0 ) {    
        bfPrcpQty = "1"; 
    }
    var bfprcpTims = model.getValue ( "/root/drugcalc/prcptims" ); 
    if ( isNull(bfprcpTims) || bfprcpTims == 0 ) {  
        bfprcpTims = "1"; 
    }
    var bfdrprcpetc7 = model.getValue ( "/root/drugcalc/drprcpetc7" ); 
    if ( isNull(bfdrprcpetc7) || bfdrprcpetc7 == 0 ) {  
        bfdrprcpetc7 = "1"; 
    }
    var bfdrprcpetc8 = model.getValue ( "/root/drugcalc/drprcpetc8" ); 
    if ( isNull(bfdrprcpetc8) || bfdrprcpetc8 == 0 ) {  
        bfdrprcpetc8 = "1"; 
    }
            
    var calcPrcpVol = 0;
    var calcPrcpQty = 0;
    var calcPrcpTimeVol = 0;
    var calcPrcpTimeQty = 0;
    
    //20090820 마정민 수정. 약인 경우는 최초의 용량 수량 비율로 계산하는 것으로 수정
    var baseQty = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 31 , "^", "|" );
    var baseVol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 32 , "^", "|" );

    var drugcntsvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 1 , "^", "|" );
    var drugstndvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 3 , "^", "|" );
    var drugpackvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 5 , "^", "|" );
    var drugbasevol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 7 , "^", "|" );

    var baseTimeVol = drugcntsvol * drugbasevol / drugpackvol;
    var baseTimeQty = drugbasevol;
    
    //alert( "baseTimeQty=" + drugbasevol + ", baseVol=" + baseVol + ", baseQty="+ baseQty );
    var calcmthdcd = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) , 0, 26, "^", "|" ); 
    var colHidnValue = grdBaseColHidn("D");
    
    if (model.getValue ( prcpNode + "[" + curRow + "]/prcpclscd" ).substring ( 0, 1 ) == "A" && !isNull(baseQty) && !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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );
                            
        } else if ( flag == "prcpqty" && bfPrcpQty != PrcpQty ) { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = model.getValue ( prcpNode + "[" + 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;
            }*/

            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );   //1일
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); //1회
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); //1회
            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")) && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4" )>0){
                    model.setValue ( prcpNode + "[" + 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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end 
            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );     //1일
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );     //1일
            model.setValue ( prcpNode + "[" + 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;
            }

            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );  
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );                                  
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );  
            
            var prcpclscd = model.getValue ( prcpNode + "[" + curRow + "]/prcpclscd" );
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")) && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4" )>0){
                    model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc4", PrcpQty );      
                }
            }
        } else if (flag =="prcptims"){     // 횟수가 변경될 경우 일회용량에 횟수를 곱해서 일일 총용량과 수량을 계산해서 넣어준다.
            //계산구분에 따라 횟수를 곱해주는 처리를 함 (경북대 2010.01.02 전지은)
            if(calcmthdcd == "1" && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){
                model.setValue ( prcpNode + "[" + curRow + "]/prcpvol" , drprcpetc7 * PrcpTims);
                model.setValue ( prcpNode + "[" + 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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );      
            
        } else if ( flag == "prcpqty" ) { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = model.getValue ( prcpNode + "[" + 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;
            }*/
                            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );  
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );  
                            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")) && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4" )>0){
                    model.setValue ( prcpNode + "[" + 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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );      
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );      
            model.setValue ( prcpNode + "[" + 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;
            }

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

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

    var PrcpVol = model.getValue ( prcpNode + "[" + curRow + "]/prcpvol" );
    if ( isNull(PrcpVol) || PrcpVol == 0 ) {    
        PrcpVol = "1"; 
        if ( flag == "prcpvol") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1일용량값이 없거나 0입니다.\n1일용량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    PrcpVol );      
        }
    }

    var PrcpQty = model.getValue ( prcpNode + "[" + curRow + "]/prcpqty" );
    if ( isNull(PrcpQty) || PrcpQty == 0 ){ 
        PrcpQty = "1"; 
        if ( flag == "prcpqty") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1일수량값이 없거나 0입니다.\n1일수량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    PrcpQty );      
        }
    }

    var PrcpTims = model.getValue (prcpNode + "[" + curRow + "]/prcptims" );
    if ( isNull(PrcpTims) || PrcpTims == 0 ) {  
        PrcpTims = "1"; 
        if ( flag == "prcptims") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 횟수값이 없거나 0입니다.\n횟수을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/prcptims", PrcpTims);
        }
    }

    var drprcpetc7 = model.getValue (prcpNode + "[" + curRow + "]/drprcpetc7" );
    if ( isNull(drprcpetc7) || drprcpetc7 == 0 || drprcpetc7 == "-") {  
        drprcpetc7 = "1"; 
        if ( flag == "drprcpetc7") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1회용량값이 없거나 0입니다.\n1회용량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", drprcpetc7 );               
        }
    }

    var drprcpetc8 = model.getValue (prcpNode + "[" + curRow + "]/drprcpetc8" );
    if ( isNull(drprcpetc8) || drprcpetc8 == 0 || drprcpetc8 == "-") {  
        drprcpetc8 = "1"; 
        if ( flag == "drprcpetc8") {
            PrcpNm = model.getValue ( prcpNode + "[" + curRow + "]/prcpnm" );
            messageBox ( PrcpNm + " 처방의 1회수량값이 없거나 0입니다.\n1회수량을 1로 초기화 합니다.", "I999" );
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", drprcpetc8 ); 
        }
    }
        
    var bfPrcpVol = model.getValue ( "/root/drugcalc/prcpvol" );
    if ( isNull(bfPrcpVol) || bfPrcpVol == 0 ) {    
        bfPrcpVol = "1"; 
    }
    var bfPrcpQty = model.getValue ( "/root/drugcalc/prcpqty" ); 
    if ( isNull(bfPrcpQty) || bfPrcpQty == 0 ) {    
        bfPrcpQty = "1"; 
    }
    var bfprcpTims = model.getValue ( "/root/drugcalc/prcptims" ); 
    if ( isNull(bfprcpTims) || bfprcpTims == 0 ) {  
        bfprcpTims = "1"; 
    }
    var bfdrprcpetc7 = model.getValue ( "/root/drugcalc/drprcpetc7" ); 
    if ( isNull(bfdrprcpetc7) || bfdrprcpetc7 == 0 ) {  
        bfdrprcpetc7 = "1"; 
    }
    var bfdrprcpetc8 = model.getValue ( "/root/drugcalc/drprcpetc8" ); 
    if ( isNull(bfdrprcpetc8) || bfdrprcpetc8 == 0 ) {  
        bfdrprcpetc8 = "1"; 
    }
            
    var calcPrcpVol = 0;
    var calcPrcpQty = 0;
    var calcPrcpTimeVol = 0;
    var calcPrcpTimeQty = 0;
    
    //20090820 마정민 수정. 약인 경우는 최초의 용량 수량 비율로 계산하는 것으로 수정
    var baseQty = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 31 , "^", "|" );
    var baseVol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 32 , "^", "|" );

    var drugcntsvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 1 , "^", "|" );
    var drugstndvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 3 , "^", "|" );
    var drugpackvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 5 , "^", "|" );
    var drugbasevol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 7 , "^", "|" );

    var baseTimeVol = drugcntsvol * drugbasevol / drugpackvol;
    var baseTimeQty = drugbasevol;
    
    var calcmthdcd = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) , 0, 26, "^", "|" ); 
    var colHidnValue = grdBaseColHidn("D");
    
    if (model.getValue ( prcpNode + "[" + curRow + "]/prcpclscd" ).substring ( 0, 1 ) == "A" && !isNull(baseQty) && !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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );               
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );
                            
        } else if ( flag == "prcpqty") { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = model.getValue ( prcpNode + "[" + 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;
            }*/

            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );  
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );               
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );
            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")) && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4" )>0){
                    model.setValue ( prcpNode + "[" + 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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end             
            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty ); 
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol ); 
            model.setValue ( prcpNode + "[" + 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;
            }

            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );  
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );                                  
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );  
            
            var prcpclscd = model.getValue ( prcpNode + "[" + curRow + "]/prcpclscd" );
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")) && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4" )>0){
                    model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc4", PrcpQty );      
                }
            }
        } else if (flag =="prcptims"){   
            var colHidnValue = grdBaseColHidn("D");
            if (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H" ) {  // 일회용량과 관련된내용일 경우
                model.setValue ( prcpNode + "[" + curRow + "]/prcpvol" , drprcpetc7 * PrcpTims);
                model.setValue ( prcpNode + "[" + 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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );      
            
        } else if ( flag == "prcpqty" ) { // 수량을 수정했을 때: 용량 자동계산      
            var prcpclscd = model.getValue ( prcpNode + "[" + 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;
            }*/
                            
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );  
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );      
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );  
                            
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")) && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4" )>0){
                    model.setValue ( prcpNode + "[" + 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  = model.getValue(prcpNode + "[" + curRow + "]/prcpcd");
            var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
            if(model.getValue(prcpNode + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
                messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
                //model.setValue ( prcpNode + "[" + curRow + "]/prcpvol", bfPrcpVol );
                //return;
            } //end
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );      
            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );      
            model.setValue ( prcpNode + "[" + 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;
            }

            model.setValue ( prcpNode + "[" + curRow + "]/prcpvol",    calcPrcpVol );  
            model.setValue ( prcpNode + "[" + curRow + "]/prcpqty",    calcPrcpQty );                                  
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );  
            model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc8", drprcpetc8 );
            
            var prcpclscd = model.getValue ( prcpNode + "[" + curRow + "]/prcpclscd" );
            if ( prcpclscd == "M2" ) {
                //20090330 마정민수정. 귀가유치용 물품처방은 의사처방 수량을 수정하면 귀가유치용물품수량컬럼에 같이 반영한다.
                if (!isNull(model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")) && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( prcpNode + "[" + curRow + "]/drprcpetc4" )>0){
                    model.setValue ( prcpNode + "[" + curRow + "]/drprcpetc4", PrcpQty );      
                }
            }
        } else if (flag =="prcptims"){   
            var colHidnValue = grdBaseColHidn("D");
            if (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H" ) {  // 일회용량과 관련된내용일 경우
                model.setValue ( prcpNode + "[" + curRow + "]/prcpvol" , drprcpetc7 * PrcpTims);
                model.setValue ( prcpNode + "[" + curRow + "]/prcpqty" , drprcpetc8 * PrcpTims);                    
            }               
        }   
    }    
}
 
/**
 * @desc   : PreWorkUp 처리 오른쪽 마우스 클릭
 * @return : void
 * @authur : 마정민 2007. 4. 30
 */
function fPreWorkUp () {

    var selectedRows = grd_prcplist.selectedRows;   

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

        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/trnptbftestflag" ) == "Y" ) {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/trnptbftestflag", "N" )
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/trnptbftestflag", "Y" )
        }

        makePrcpNm( prcpNode, grd_prcplist.selectedrow(i) );
        
        fSetCpVal(grd_prcplist.selectedrow(i), "U");
    }
}


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

    var selectedRows = grd_prcplist.selectedRows;   

    for (var i=0; i< selectedRows; i++) {
        
        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" )=="S") continue;
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd" ) == "90" ) {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd", "20" )
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd", "90" )
        }

        makePrcpNm( prcpNode, grd_prcplist.selectedrow(i) );
        
        fSetCpVal(grd_prcplist.selectedrow(i), "U");
    }
}

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

    var selectedRows = grd_prcplist.selectedRows;   

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

        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" )=="S") continue;
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd" ) == "95" ) {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd", "20" )
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd", "95" )
        }

        makePrcpNm( prcpNode, grd_prcplist.selectedrow(i) );
        
        fSetCpVal(grd_prcplist.selectedrow(i), "U");
    }
}

/**
 * @desc   : 특수주사실(항암주사실) 처방을 구분 체크
 * @return : void
 * @authur : 문세희 2008. 10. 27
 */
function fSpecShot() {   
    
    var selectedRows = grd_prcplist.selectedRows;   

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

        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" )=="S") continue;
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drprcpetc2" ) == "Y" ){
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drprcpetc2", "" )
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drprcpetc2", "Y" )
        }   

        makePrcpNm( prcpNode, grd_prcplist.selectedrow(i) );
        
        fSetCpVal(grd_prcplist.selectedrow(i), "U");
    }
}

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

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

        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" )=="S") continue;
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drprcpetc2" ) == "B" ){
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drprcpetc2", "" )
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drprcpetc2", "B" )
        }   

        makePrcpNm( prcpNode, grd_prcplist.selectedrow(i) );
        
        fSetCpVal(grd_prcplist.selectedrow(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 ( model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "A" || model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "Y") {
        model.makeValue("/root/init/bf_difguid", "");
    }
    //DUR-E
    
    var cnt = 0;

    if ( grd_prcplist.rows > 2 )    {
        var rtnmsg = messageBox( "날짜를 수정하시면 " + fDateFormat ( model.getValue ( "/root/init/prcpdd" )) + "일 처방으로 변경됩니다.\n희망일자도 같이 변경", "S001")
        if ( rtnmsg == "6" || rtnmsg == "7" ) {
            bfPrcpdd = model.getValue ( "/root/init/prcpdd" );

            var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
            for (var i = srcNodeList.length; i >= 1; i--) {
                if ( model.getValue ( prcpNode + "[" + i + "]/status" ) == "I" ){
                    fPrcpBuffer( ++cnt, i, "/root/prcpdrag", prcpNode );
                }
            }
            model.removeNodeset ( "/root/main/prcp/prcplist" );
            appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //검색라인추가 
        } else {
            model.setValue ( "/root/init/prcpdd", bfPrcpdd );
            model.refresh();
            return;
        }
    } else {
        bfPrcpdd = model.getValue ( "/root/init/prcpdd" );
        model.removeNodeset ( "/root/main/prcp/prcplist" );
        appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //검색라인추가       
    }

    if ( model.getValue ( "/root/init/prcpkindcd") == "80" ) return;

    fPrcpColor();

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

    model.refresh();
    fInitSrch();
    fTempPrcp(); //임시처방 호출
    if ( cnt > 0 ) {
        fPrcpPaste( rtnmsg );
    }
    model.setfocus( "grd_prcplist" );
    grd_prcplist.row = grd_prcplist.rows-1;
}

/**
 * @desc   : 임시처방처리
 * @return : void
 * @param  : flag : 저장하고 호출하는 건지 check
 * @authur : 마정민 2007. 5. 10
*/
function fTempPrcp (flag) {

    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if ( model.getValue ( "/root/initsrchprcp/prcpetccnts/temprsrvprcpyn" ) != "N") {
        var orddd = "";
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
            orddd = model.getValue ( "/root/paminfo/list/orddd" );
        } else {
            orddd = model.getValue ( "/root/paminfo/list/indd" );
        }
        var cnt = 0;        
        var prcpdd = model.getValue ( "/root/init/prcpdd" );
        if ( isNull(prcpdd)) prcpdd = getCurrentDate(); 

        model.setValue ( "/root/send/cond1", model.getValue ( "/root/paminfo/list/pid" ));     //환자ID
        model.setValue ( "/root/send/cond2", orddd );                                          //외래:진료일, 입원:입원일
        model.setValue ( "/root/send/cond4", prcpdd);                                          //임시처방구분
        model.setValue ( "/root/send/cond5", "rsrv" );                                         //전처방구분:예약처방 
        model.setValue ( "/root/send/cond6", "" );                                         //전처방구분:예약처방 

        model.setValue ( "/root/send/cond9", prcpgenrflag );                                            
        model.setValue ( "/root/send/cond11", model.getValue ( "/root/paminfo/list/cretno" ));  //생성번호
        model.setValue ( "/root/send/cond14", model.getValue ( "/root/init/prcpdd" ));  //생성번호
        model.setValue ( "/root/send/cond99", "getBfPrcpSrchInfo"); //검색구분
        
        submit ( "TRMMO00100", false );   
        if ( flag == "save" ) {
            //저장하고 나서는 임시저장된 데이터가 있으면 화면에 보여준다.
            if ( model.getValue ( "/root/prcpsrch/prcplist/prcphistcd" ) == "T" ) {
                model.copyNode ( "/root/main/prcp", "/root/prcpsrch" );
                appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //검색라인추가 
                //btn_tempsave.disabled = true;
                model.refresh();
                model.recalculate();     
            } else {
                //btn_tempsave.disabled = false;
            }
        } else {
            if ( model.getValue ( "/root/prcpsrch/prcplist/prcphistcd" ) == "T" ) {
                model.copyNode ( "/root/main/prcp", "/root/prcpsrch" );
                appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //검색라인추가 
                //btn_tempsave.disabled = true;
                model.recalculate();     
                model.refresh();
            } else if ( model.getValue ( "/root/prcpsrch/prcplist/prcphistcd" ) == "X" ) {
                //btn_tempsave.disabled = false;
                var xpt = window.screenleft + 100;
                var ypt = window.screenTop + 100;

                var coord = getRelativeCoordinate ( xpt, ypt );
                var mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                    modal ( "SPMMO00700", mon,  xpt, ypt, "prcpdetl", "/root/prcpsrch", "/root/main/prcp", "", false );
                  
            } else {
                //btn_tempsave.disabled = false;
            }
        }
    }

    if (model.getValue ( "/root/initsrchprcp/prcpetccnts/erprcpyn" ) == "Y" ){
        setParameter ( "SMMMO00100_cond1", "Y" );
        fPrcpModal ( "SMMMO06100", 0, 0 );
        grd_prcplist.rebuild();
        model.recalculate();
        model.setfocus( "grd_prcplist" );
    }
    model.removeNodeSet ( "/root/prcpsrch/prcplist" );
}

/**
 * @desc   : 진단검색
 * @param  : flag : 진단명검색, 코드검색
 * @return : void
 * @authur : 마정민 2007. 5. 10
*/
function fDiagSrch ( flag ) {

    if(event.keyCode == "13" && flag != "addprcp" ) {
        var diagnm = "";
        if ( flag == "diagnm" ) {
            model.setValue ( diagNode + "[" + grd_diaglist.row+ "]/icd10cd", "" );
            diagnm = model.getValue ( diagNode + "[" + grd_diaglist.row+ "]/diagengnm" );
            srchflag = "2";
            model.setValue ( "/root/init/diagsrchcond1", "2" ); //단어검색으로 수정
        } else if ( flag == "icd10cd" ) {
            model.setValue ( diagNode + "[" + grd_diaglist.row+ "]/diagengnm", "" );
            diagnm = model.getValue ( diagNode + "[" + grd_diaglist.row+ "]/icd10cd" );
            srchflag = "1";
            model.setValue ( "/root/init/diagsrchcond1", "1" );
        }
        
        var isHangul = fIsHangul (diagnm);
        //한글일때는 1글자만 넣어도 검색가능        
        if ( isNull(diagnm)) {
            messageBox ( "진단 검색어를", "C001" );
            return;
        } else if ( isHangul == "E" ){
        //영문,숫자일때는 3글자 넣어야 검색가능
            if ( diagnm.length < 2 ){
                messageBox ( "2글자 이상", "C001" );
                return;
            }   
        }

        setParameter ( "SPMMO00800_cond1", srchflag );
        setParameter ( "SPMMO00800_cond2", model.getValue ( "/root/init/diagsrchcond1" ));
        setParameter ( "SPMMO00800_cond3", isHangul );
        setParameter ( "SPMMO00800_cond4", model.getValue ( "/root/init/prcpdd" ));
        setParameter ( "SPMMO00800_cond5", diagnm );
        setParameter ( "SPMMO00800_srchmode", "P" );

        var xpt = window.screenleft + 200;
        var ypt = window.screenTop + 110;
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

        modal ( "SPMMO00800", mon, xpt, ypt, "diagsrch", "", "", "", false );   
        if ( getParameter( "SPMMO00800_rtn_useyn" ) == "Y" ) {
            addDiagSetValue (getParameter( "SPMMO00800_rtn" ));
            setParameter( "SPMMO00800_rtn_useyn", "" );
        }
      model.recalculate();    
      
      // 처방 메인화면에서 진단코드나 진단명 입력 후 다음 셀에 edit 상태 생성 - 20081124 by MoonSH 
      grd_diaglist.refresh(); 
      if ( flag == "diagnm" ) { 
          grd_diaglist.col = grd_diaglist.colref("diagnm"); 
          grd_diaglist.editCell(); 
      } else if ( flag == "icd10cd" ) { 
          grd_diaglist.col = grd_diaglist.colref("icd10cd"); 
          grd_diaglist.editCell(); 
      } 
      
    } else if ( flag == "addprcp" ){
        appendChildPrcp ( "/root/reset/diagcdlist", "/root/main/diaginfo", "main" );
        model.refresh();
        setParameter ( "SPMMO00800_cond1", "1" );
        setParameter ( "SPMMO00800_cond2", "1");
        setParameter ( "SPMMO00800_cond3", "E" );
        setParameter ( "SPMMO00800_cond4", model.getValue ( "/root/init/prcpdd" ));
        setParameter ( "SPMMO00800_cond5", model.getValue ( "/root/initsrch/prcpetccnts/pamdiagcd" ));

        var xpt = window.screenleft + 200;
        var ypt = window.screenTop + 110;
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

        modal ( "SPMMO00800", mon, xpt, ypt, "diagsrch", "", "", "", false );
        
        if ( getParameter( "SPMMO00800_rtn_useyn" ) == "Y" ) {
            addDiagSetValue (getParameter( "SPMMO00800_rtn" ));
            setParameter( "SPMMO00800_rtn_useyn", "" );
            model.refresh();
            var srcNodeList = model.instances(0).selectNodes("/root/main/diaginfo/diagcdlist");
            for ( var i= 1; i<=srcNodeList.length ; i++){       
                if ( model.getValue ( "/root/main/diaginfo/diagcdlist["+i+"]/status" ) == "S" ) {
                    model.removeNode ( "/root/main/diaginfo/diagcdlist["+i+"]" );
                }
            }
        }   
      model.recalculate();  
    }
}

/**
 * @desc   : 진단 오른쪽 마우스 팝업 처리
 * @id     : grd_prcplist
 * @event  : onmousedown
 * @return : void
 * @authur : 마정민 2007. 5. 15 
 */
function fDaigMouseRghtBtnPopup() {

    if (event.button == 3) {
        if(grd_diaglist.isCell(event.target) && grd_diaglist.mouseRow >= grd_diaglist.fixedRows) {
            setPopupMenu("grd_diaglist", false, "/root/init/diagmsrght/mouserght", "label", "func");    //메뉴호출방식변경 JJE
        }
    }
}

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

    var selectedRows = grd_diaglist.selectedRows;
    var chkcnt = 0;

    for (i= selectedRows-1; i >= 0; i--){
        var icd10cd = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/icd10cd" );
        var diagkindcdflag = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagkindcdflag" );

        if ( model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "O" && chkcnt == 0) {
            if ( !isNull(model.getValue ( "/root/initsrch/diagautocnts/trgtcd" ))) {

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

        var status = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/status" );

        if ( status=="-" || status=="U" || status=="T" ) {
            //수정한 데이터를 원복시킨다.
            var diagdd = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagdd" );
            var diagno = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagno" );
            var diaghistno = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diaghistno" );

            var destNode = instance1.selectSingleNode("/root/main/diaginfo");
            var destNodeList = instance1.selectNodes("/root/main/diaginfo/diagcdlist");

            var srcSingleNode = instance1.selectSingleNode("/root/diagorg/diagcdlist[diagdd='" + diagdd + "' and diagno='" + diagno + "' and diaghistno='" + diaghistno + "']")                                                        
            destNode.replaceChild( srcSingleNode.cloneNode(true), destNodeList.item(grd_diaglist.selectedrow(i)-1)); 
            model.setValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/status", "-" );

            model.setValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/status", "D" );
        } else if ( status =="I" ){
            model.removeNode ( diagNode + "[" +  grd_diaglist.selectedrow(i) + "]" );
        } else if ( status=="S" ) {
            model.setValue ( diagNode + "[" + grd_diaglist.selectedrow(i)+ "]/diagengnm", "" );
        }   
    }
    model.recalculate();
    model.refresh();
}

function fDiagCnclRow() {

    var selectedRows = grd_diaglist.selectedRows;

    for (i= selectedRows-1; i >= 0; i--){
        var status = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/status" );
        if ( status =="D" ) {
            //수정한 데이터를 원복시킨다.
            var diagdd = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagdd" );
            var diagno = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagno" );
            var diaghistno = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diaghistno" );

            var destNode = instance1.selectSingleNode("/root/main/diaginfo");
            var destNodeList = instance1.selectNodes("/root/main/diaginfo/diagcdlist");

            var srcSingleNode = instance1.selectSingleNode("/root/diagorg/diagcdlist[diagdd='" + diagdd + "' and diagno='" + diagno + "' and diaghistno='" + diaghistno + "']")                                                        
            destNode.replaceChild( srcSingleNode.cloneNode(true), destNodeList.item(grd_diaglist.selectedrow(i)-1)); 
            //model.setValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/status", "-" );
        } else if ( status=="U" ) {
            //수정한 데이터를 원복시킨다.
            var diagdd = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagdd" );
            var diagno = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagno" );
            var diaghistno = model.getValue ( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diaghistno" );

            var destNode = instance1.selectSingleNode("/root/main/diaginfo");
            var destNodeList = instance1.selectNodes("/root/main/diaginfo/diagcdlist");

            var srcSingleNode = instance1.selectSingleNode("/root/diagorg/diagcdlist[diagdd='" + diagdd + "' and diagno='" + diagno + "' and diaghistno='" + diaghistno + "']")                                                        
            destNode.replaceChild( srcSingleNode.cloneNode(true), destNodeList.item(grd_diaglist.selectedrow(i)-1));    
        }
    }
    model.recalculate();
    model.refresh();
}

/**
 * @desc   : 진단 수정
 * @       : 신규일때는 수정표시 안함.
 * @event  : xforms-value-changed
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fDiagUpdate() {

    var status = model.getValue ( diagNode + "[" + grd_diaglist.row+ "]/status" );
    if ( status=="-" || status=="T" ) {
        model.setValue ( diagNode + "[" + grd_diaglist.row+ "]/status", "U" );
    }

}

/**
 * @desc   : 진단 조회
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fPatDiagSrch(prcpflag) {
    
    //model.addlog("          SPEED CHECK START OF fPatDiagSrch()");

    var orddd = "";
    var orddrid = "";
    var pseuacptflag = model.getValue ( "/root/formerkey/pseuacptflag" );  //시행부서처방가접수
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );  
    var cretno = ""; 
    if ( isNull(prcpflag)){
        prcpflag = "prcp"
    }
    
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
        orddd = model.getValue ( "/root/paminfo/list/orddd" );
        orddrid = model.getValue ( "/root/paminfo/list/orddrid" );
        cretno = model.getValue ( "/root/paminfo/list/cretno" );
    } else {
        orddd   = model.getValue ( "/root/paminfo/list/indd" );
        orddrid = model.getValue ( "/root/paminfo/list/medispclid" );
        cretno = model.getValue ( "/root/paminfo/list/cretno" );
    }
    if ( pseuacptflag == "Y" ) {
        orddd = model.getValue ( "/root/formerkey/orddd_old" );
        cretno = model.getValue ( "/root/formerkey/cretno_old" );
    }  

    model.setValue ( "/root/send/cond1", model.getValue ( "/root/paminfo/list/pid" ));
    model.setValue ( "/root/send/cond2", orddd);
    model.setValue ( "/root/send/cond3", cretno);
    model.setValue ( "/root/send/cond4", model.getValue ( "/root/paminfo/list/orddeptcd" )); 
    model.setValue ( "/root/send/cond5", prcpgenrflag);
    model.setValue ( "/root/send/cond6", orddrid );
    model.setValue ( "/root/send/cond7", prcpflag ); //처방구분

    if (submit( "TRMMO00105", false )) {
        var srcNodeListLen = model.instances(0).selectNodes ( diagNode ).length;
        /********** 외래일 경우 원내처방 사유가 있는 진단인지 체크한다. **********/
        for ( var i=1; i <= srcNodeListLen; i++ ) { 
            var icd10cd = model.getValue ( diagNode + "[" + i + "]/icd10cd" ); 
            var diagkindcdflag = model.getValue ( diagNode + "[" + i + "]/diagkindcdflag" ); 
            fCheckDiagHosinpPcp( icd10cd, prcpgenrflag, diagkindcdflag ); 
        } 
        
        if ( prcpflag == "prcp") { 
            appendChildPrcp ( "/root/reset/diagcdlist", "/root/main/diaginfo", "main" ); 
            
            // 처방 메인 refresh 단일화를 위한 셋팅 - 20081212 by Moonsh
            var refreshInfo = getGlobalVariable("OrderMainRefresh"); 
            if ( refreshInfo != "Y" ) { 
                model.refresh(); 
            } 
            if ( grd_diaglist.rows > 1) {
                model.copyNode ( "/root/diagorg", "/root/main/diaginfo");
            }
        }
    }
    fDispPatMainDiag();
    model.recalculate();
    
    //model.addlog("          SPEED CHECK END OF fPatDiagSrch()");
}

/**
 * @desc   : 투약일수 조회
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fMediDayNo() {
    var xpt = window.screenleft + 395;
    var ypt = window.screenTop + grd_prcplist.row * 23 + 177;           
    modal ( "SPMMO02300", 1,  xpt, ypt, "medidayno");
}

/**
 * @desc   : 진단상세보기
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fDiagDetlVw() {

   if( grd_diaglist.isCell(event.target) && grd_diaglist.row == 0 ){

       if ( model.getValue( "/root/init/diagdetlvw" ) == "p" ) {        
           if ( grd_diaglist.rows > 4 ) {
               grd_diaglist.attribute ( "height" ) = 94 +  ( grd_diaglist.rows -4 ) * 23;
           }

           model.setValue( "/root/init/diagdetlvw", "m" );
       } else {
           grd_diaglist.attribute ( "height" ) = "94";
           model.setValue( "/root/init/diagdetlvw", "p" );
       }
   } else if( grd_diaglist.isCell(event.target) && grd_diaglist.row >= grd_diaglist.fixedRows ){
        if (grd_diaglist.col == grd_diaglist.colref("diagremfact")){
            var xpt = 530;
            var ypt = 115;
            
            if ( model.getValue ( diagNode + "[" + grd_diaglist.row + "]/status" ) != "S"  ) {
                setParameter ( "prcpdelivefac", model.getValue ( diagNode + "[" + grd_diaglist.row + "]/diagremfact"));
                fPrcpModal ( "SPMMO10800", xpt, ypt );
                model.setValue ( diagNode + "[" + grd_diaglist.row + "]/diagremfact", getParameter ( "rtn_prcpdelivefac" ));
            }
        }
   }
}

/**
 * @desc   : 치식
 * @return : void
 * @authur : 마정민 2007. 5. 30
 */
function fDentifmla (flag) {

    //처방 치식 setting 시작
    var selectedRows = grd_prcplist.selectedRows;   
    var prcpNm = "";
    var tootFact = "";

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

    for ( var i=selectedRows-1; i >= 0; i-- ) {
            var iRow = grd_prcplist.selectedrow(i);
            
        var prcpessninptflag = model.getValue (prcpNode + "["+ iRow + "]/prcpessninptflag")
        var chkprcpstatus = model.getValue (prcpNode + "["+ iRow + "]/status")
        var tempcol2    =  model.getValue(prcpNode + "["+ 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 = model.getValue( prcpNode + "["+iRow + "]/prcpcd") + "▦▦";
            tootFact = model.getValue( prcpNode + "[" + iRow + "]/tootfact") + "▦" + iRow +"▩";
            sPrcpStr = sPrcpStr + prcpNm + tootFact;
            setParameter("param_prcplist", sPrcpStr);
            cnt++;
        } else {
            grd_prcplist.select( iRow, 1, iRow, 1) = false;
        }
    } //처방 치식 setting 끝

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

    for ( var i=selectedDiagRows-1; i >= 0; i-- ) {
        var chkdiagstatus = model.getValue (diagNode + "["+ grd_diaglist.selectedrow(i) + "]/status")
        if ( chkdiagstatus != "S" ) {
            diagNm = model.getValue( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/diagcd") + "▦▦";
            tootFact = model.getValue( diagNode + "[" + grd_diaglist.selectedrow(i) + "]/tootfact") + "▦" + grd_diaglist.selectedrow(i) +"▩";
            sDiagStr = sDiagStr + diagNm + tootFact;
            setParameter("param_diaglist", sDiagStr);
            cnt++;
        } else {
            grd_diaglist.select( grd_diaglist.selectedrow(i), 1, grd_diaglist.selectedrow(i), 1) = false;
        }
    }

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

    modal ("SPMMO10500"); 

    if ( getParameter("rtn_useyn") == "Y" ) {
        
        var prow = 0;
        var ptootfact = "";
        var drow = 0;
        var dtootfact = "";
        
        var desPrcpNode = prcpNode;
        if(flag == "OP"){ //처방화면에서 직접 호출한 경우, desPath가 다르므로 치환한다 (2009.10.27 JJE)
            desPrcpNode = "/root/prcptemp/prcplist";
        }
        
        var prcplen = getParameter("rtn_prcptootfact").split("▩").length;
        for ( var i=1; i < prcplen-1; i++ ) {
            prow = getArrayData ( getParameter("rtn_prcptootfact"), i, 3, "▩", "▦" ); //치식이 입력될 row
            ptootfact = getArrayData (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"){
                model.setValue ( desPrcpNode + "/tootfact", ptootfact);  
                var prcpstatus = model.getValue ( desPrcpNode + "/status" );
            }else{
                model.setValue ( desPrcpNode + "[" + prow + "]/tootfact", ptootfact);  
                var prcpstatus = model.getValue ( desPrcpNode + "[" + prow + "]/status" );
            }
            
            //if (prcpstatus=="-") {
            //  model.setValue ( desPrcpNode + "[" + prow + "]/status", "U" );
            //}
        }
        
        var diaglen = getParameter("rtn_diagtootfact").split("▩").length;
        for ( var i=1; i < diaglen-1; i++ ) {
            drow = getArrayData (getParameter("rtn_diagtootfact"), i, 3, "▩", "▦" );
            dtootfact = getArrayData (getParameter("rtn_diagtootfact"), i, 2, "▩", "▦" );
            model.setValue ( diagNode + "[" + drow + "]/tootfact", dtootfact);  
            var diagstatus = model.getValue ( diagNode + "[" + drow + "]/status" );
            if (diagstatus=="-") {
              model.setValue ( diagNode + "[" + drow + "]/status", "U" );
            }
        }
    }

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

/**
 * @desc   : 전달사항 일괄입력
 * @param  : flag: M double click 인지 일괄입력인지 구분자
 * @return : void
 * @authur : 마정민 2007. 5. 30
 */
function fPrcpdelivefact( flag ) {

    var xpt = 395;
    var ypt = grd_prcplist.row * 23 + 177;

    if ( flag == "M" ) {
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/status" ) != "S"  ) {
            setParameter ( "prcpdelivefac", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpdelivefact"));
            fPrcpModal ( "SPMMO10800", xpt, ypt );
            model.setValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpdelivefact", getParameter ( "rtn_prcpdelivefac" )); 
        }
    } else {
        var selectedRows = grd_prcplist.selectedRows;   
        if ( selectedRows > 0 ) {
            fPrcpModal ( "SPMMO10800", xpt, ypt );
        }
        for ( var i=0; i < selectedRows; i++ ){
            if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) != "S"  ) {
                model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpdelivefact", 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 = grd_prcplist.selectedRows;   
    var prcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(0) + "]/prcpclscd" );
    var prnscrID = getScreenID(); 
    
    //fPrcpModal ( "SPMMO   10400", xpt, ypt ); //일괄입력 공통
    if ( prcpclscd == "A2" || prcpclscd == "A4" ) { //약
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(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) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            setParameter ( "SPMMO12100_prnchk", prnscrID); 
            fPrcpModal ( "SPMMO12100", xpt, ypt );
        }

    } else if ( prcpclscd == "A6" ) { //주사
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            setParameter ( "SPMMO12200_prnchk", prnscrID); 
            fPrcpModal ( "SPMMO12200", xpt, ypt );
        }
    } else if ( prcpclscd == "F2" ) {  //재활
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO11200", xpt, ypt );
        }
    } else if ( prcpclscd == "C2" || prcpclscd == "C6" || prcpclscd == "E2" ) { 
        //방사선 검사(기능검사, 내시경,천자,생검, 방사선, 핵의학영상, 방사선치료)
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(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) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            setParameter ( "SPMMO12300_prcpclscd", prcpclscd );
            fPrcpModal ( "SPMMO12300", xpt, ypt );
            setParameter ( "SPMMO12300_prcpclscd", "" );
        }
    } else if ( prcpclscd == "B2" || prcpclscd == "B6" ) { //진단검사 (검체검사), 핵의학 체내
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(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) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            setParameter ( "SPMMO12400_prcpclscd", prcpclscd );
            fPrcpModal ( "SPMMO12400", xpt, ypt );
            setParameter ( "SPMMO12400_prcpclscd", "" );
        }
    } else if ( prcpclscd == "H2" ) {  //수술, 처치, 치과
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(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) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12600", xpt, ypt );
        }
    } else if ( prcpclscd == "K2" ) { 
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != "K2" ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13500", xpt, ypt );
        }
    } else if ( prcpclscd == "03" ) {  //식이                
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12700", xpt, ypt );
        }
    } else if ( prcpclscd == "I2" || prcpclscd == "I4" ) {  //마취
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(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) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12800", xpt, ypt );
        }
    } else if ( prcpclscd == "C4" ) {  //angio
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12900", xpt, ypt );
        }
    } else if ( prcpclscd == "D2" ) {  //병리
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13000", xpt, ypt );
        }
    } else if ( prcpclscd == "M2" ) {  //재료
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13600", xpt, ypt );
        }
    } else if ( prcpclscd == "G2" ) { //RT

        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13700", xpt, ypt );  
        }
    } else if ( prcpclscd == "H4" ) { //처치
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13800", xpt, ypt );
        }
    } else if ( prcpclscd == "B4" ) { //수혈 (혈액수혈)
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12500", xpt, ypt );
        }
    } else if ( fSubcretnoSet("3", null) == 0 ) {   //kimsj 091230 임상시험환자이면서 문진처방의 경우 일괄입력 팝업      
        for ( var i=selectedRows-1; i >= 0; i-- ){
            if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpcd" ) == "ACD0002" ) {
                fPrcpModal ( "SPMMO10400", xpt, ypt );
                break;
            }
        }
    }

    fBatIpt ( "batipt_rtn1_useyn", "batipt_rtn1" );
}

/**
 * @desc   : 처방상세 일괄입력 공통
 * @param  : 
 * @return : void
 * @authur : 마정민 2007. 6. 30
 */

function fBatIpt ( useyn, rtn ) {
    var rtn_useyn = 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 = getParameter ( rtn );

        var rtn_Array = rtn_value.split("^");
        var prcplen = rtn_Array[0].split("|").length;
        var selectedRows = grd_prcplist.selectedRows;   
        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; j++ ){
            skipSubCretno = "N"; // 변수초기화
            
            for ( var i=0; i < prcplen; i++ ) {
                header = getArrayData ( rtn_value, 0, i, "^", "|" );
                useyn = getArrayData ( rtn_value, 1, i, "^", "|" );
                value = getArrayData ( rtn_value, 2, i, "^", "|" );

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

                        //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
                        var prcpcdTxt    = model.getValue(prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpcd");
                        var prcpcdEndTxt = prcpcdTxt.substring(prcpcdTxt.length-1, prcpcdTxt.length);
                        if(model.getValue(prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && parseFloat(value) < 1){
                            cnclInptCnt++;
                            cnclInptTxt = cnclInptTxt + model.getValue(prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpcd") + ", ";
                            //continue;
                        } //end
                        // 경북대 1회 용량 관련 내용 수정 2010. 12. 20 - 김영학 @@@@@
                        var colHidnValue = 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;
                            }  
                        } 
                        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpvol", calcprcpvol );
                        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/drprcpetc7", calcdrprcpetc7 );                            
                        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(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 = getParameter ( "SPMMO12100_drugrateqty" );
                    } else if ( header == "contprcpspec" ) {
                        value = getParameter ( "SPMMO12200_contprcpspec" );
                    } else if ( header == "prcptims" ) {
                        //응급일때는 횟수와 용법을 자동으로 바꿔주는데 응급이 제일먼저 setting 함으로 continue 한다.
                        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/erprcpflag" ) == "Y" ) continue;
                        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prnprcpflag" ) == "Y" ) continue;
                        if ( getParameter ( "SPMMO12100_chgmthd" ) == "Y" ) { 
                            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcptims", value); // 기본용법을 가져 오기 위해 예외적으로 미리 값을 셋팅 한다.
                            fBaseMthd(grd_prcplist.selectedrow(j));
                        }
                        
                        if(calcmthdcd == "1"){
                            // 경북대 1회 용량 관련 내용 수정 2010. 12. 20 - 김영학
                            bfprcpvol = eval( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpvol" )); 
                            bfprcpqty = eval( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpqty" ));
                            prcptims = eval( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcptims" ));                
                            bfdrprcpetc7 = eval( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/drprcpetc7" ));
                            bfdrprcpetc8 = eval( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/drprcpetc8" ));                       
                            var colHidnValue = 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;
                            }
                            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpvol", calcprcpvol );
                            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpqty", calcprcpqty );
                            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/drprcpetc7", calcdrprcpetc7 );                            
                            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(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 = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcptims" );
    
                                    if ( prcptims != "1" ) {
                                        //1이 아닌 경우는 1로 바꿔주고 경구약인 경우는 용법도 바꿔준다.
                                        var prcpqty = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpqty" );
                                        var prcpvol = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpvol" );
                                                            
                                        if ( prcptims != "0" &&  ( prcpclscd == "A2" || prcpclscd == "A6" )) {
                                            prcpqty = (eval(prcpqty)*1000/eval(prcptims));
                                            prcpvol = (eval(prcpvol)*1000/eval(prcptims));
                                            model.setValue (  prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpqty", Math.round ( prcpqty ) / 1000);
                                            model.setValue (  prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpvol", Math.round ( prcpvol ) / 1000);
                                        }
    
                                        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcptims", "1" );    
                                    } 
    
                                    if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpclscd" ) == "A2"  ) {                           
                                        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/erprcpflag", "Y"); // 응급용법을 가져 오기 위해 예외적으로 미리 값을 셋팅 한다.
                                        fBaseMthd(grd_prcplist.selectedrow(j));                         
                                    }
                                } else if( prcpclscd == "M2" && getUserInfo("dutplceinstcd") == "031") { // 재료 처방 응급
                                    continue;
                                }
                            } else if (value == "N" && ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" )) {
                                model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/erprcpflag", "N"); // 응급용법을 가져 오기 위해 예외적으로 미리 값을 셋팅 한다.
                            }

                            if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpclscd" ) == "A2"  ) {
                                fBaseMthd(grd_prcplist.selectedrow(j));                         
                            }
                        }
                    } else if ( header == "prnprcpflag" ) {
                        if ( value == "Y" && ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" )) {
                            var prcptims = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcptims" );

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

                                model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcptims", "1" );    
                                if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpclscd" ) == "A2"  ) {                           
                                    fBaseMthd(grd_prcplist.selectedrow(j));                         
                                }
                            } 
                        }
                        
                        if (value == "Y") {
                             model.setValue (  prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/tempprcpflag", "Y");   
                        }else if (value == "N"){
                            model.setValue (  prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/tempprcpflag", "N");    
                        }
                    } else if ( header == "drugmthdspccd" ) {
                        if (prcpclscd == "A2" ){ //응급 용법자동바뀜은 A2만 함
                            //응급을 제일먼저 setting 함으로 체크 조건에 넣어도 상관없다.
                            if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/erprcpflag" ) == "Y" ) continue;
                        }
                    } else if ( header == "prcphopedd" ) {                        
                        //M-SET 자처방의 경우 처방희망일자는 일괄변경 변경처리 하지 않음
                        //2008. 07. 22 오지훈
                        var prcpsetcd  = model.getValue( prcpNode + "[" + grd_prcplist.selectedRow(j) + "]/prcpsetcd");
                        var inclprcpno = model.getValue( prcpNode + "[" + grd_prcplist.selectedRow(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; k++ ){
                            if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(k) + "]/prcpclscd" ) == "A6"){
                                model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(k) + "]/contprcpspec", "-" ); 
                            } 
                        } 
                    } else if ( header == "hosinhosoutflag"  ){     //by sonjy 20080912 추가 원내 변경시 원내사유 우선순위를 따르도록 수정. start  
                        fHosinPrcpResncdSed ( "",  "/root/main/prcp/prcplist", grd_prcplist.selectedrow(j)  );
                        continue ; 
                    } else if ( header == "hosinprcpresncd" ){      //by sonjy 20081003 원외전용 처방시 환자사유가 들어오는 경우가 있음. 
                        fHosinPrcpResncdSed ( "",  "/root/main/prcp/prcplist", grd_prcplist.selectedrow(j), value);
                        continue ;                                  //by sonjy 20080912 추가 원내 변경시 원내사유 우선순위를 따르도록 수정. end 
                    } else if ( header == "rsrvflag" ) { 
                        header = "prcphopedd" ; 
                    } else if ( header == "prcpdayno" ) {
                        //by sonjy 20091019 수가계산법 4일 경우 처방일수는 1로 고정 
                        var drugmastspec = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/drugmastspec"); 
                        var calcmthdcd = getArrayData ( drugmastspec , 0, 26, "^", "|" ); 
                        if( (prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) && calcmthdcd == "4" ){
                             model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpdayno", "1" );
                             continue ;
                        }
                    } else if ( header == "anamneflag" ) {  // 기왕증 변경시 기존 처방이 임상연구가 체크 되어 있으면 skip, 원무부유형(subcretno)도 skip (2012.05.08 엄영만)
                        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/clincstdyflag" ) == "Y" ) {
                            messageBox ( "처방코드["+prcpcd+"]는 임상연구 처방이므로 기왕증을 적용 할 수", "I004" );
                            skipSubCretno = "Y";
                            continue;
                        }
                    } else if ( header == "clincstdyflag" ) {  // 임상연구 변경시 기존 처방이 기완증이 체크 되어 있으면 skip, 원무부유형(subcretno)도 skip (2012.05.08 엄영만)
                        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/anamneflag" ) == "Y" ) {
                            messageBox ( "처방코드["+prcpcd+"]는 기왕증 처방이므로 임상연구을 적용 할 수", "I004" );
                            skipSubCretno = "Y";
                            continue;
                        }
                    } else if ( header == "subcretno" ) {  // 원무부유형(subcretno) (2012.05.08 엄영만)
                        if (skipSubCretno == "Y" ) {
                            continue;
                        }
                    } 

                    gGridUpdateChk("det_pack", j);  // 임시저장 수정 모드 
                    
                    model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/" + header, value );                     
                    makePrcpNm( "/root/main/prcp/prcplist", grd_prcplist.selectedrow(j));
                }
            }
            
            fSetCpVal(grd_prcplist.selectedrow(j), "U");
        }
        
        //start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
        if( cnclInptCnt > 0 ){
            cnclInptTxt = cnclInptTxt.substr(0, cnclInptTxt.length-2);
            messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
        } //end

        model.refresh();
    }    
    
    //M-SET 모처방의 희망일자 변경인 경우, 선택되지 않은 자처방 포함하여 희망일자를 모두 변경
    if(mSetFlag == "Y"){
        for(var i = 1;  i <= grd_prcplist.rows; i++){
            if(cmpInclPrcpNo == model.getValue ("/root/main/prcp/prcplist[" + i + "]/inclprcpno")){
                model.setValue("/root/main/prcp/prcplist[" + i + "]/prcphopedd", cmpPrcpHopeDD);
            }
        }
    }
    
    setParameter( "batipt_rtn1_useyn", "");
}

/**
 * @desc   : 그리드에서 멀티 select후 일괄입력
 * @param  : 
 * @return : void
 * @authur : 마정민 2007. 7. 24
 */

function fGridfBatIpt( flag ) {
    var selectedRows = grd_prcplist.selectedRows;   
    var cnt = 0;
    for ( var j=0; j < selectedRows; j++ ){
        if ( grd_prcplist.row == grd_prcplist.selectedrow(j) ) {
            cnt++;
            break;
        }
    }
    if ( cnt < 1) {
        return;
    }
    

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

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

                var prcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcpclscd" );
                var drugmastspec = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/drugmastspec" );
                var selfls = getArrayData ( drugmastspec, 0, 34, "^", "|" );
                //외래, 외출외박, 퇴원은 HOME 자동체크
                if ( prcpkindcd == "50" || prcpkindcd == "60" ) {
                    if ( prcpclscd == "A6" && getArrayData (drugmastspec, 0, 20, "^", "|" ) == "Y" ) {
                          model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/selfprcpflag", "Y" );
                     
                        if (selfls == "Y" ){ // 20101018 LYJ 주사제 상세용법 자동 팝업 . 상세용법입력이 필수인 home 처방은 상세팝업을 자동 호출하며 용법이 입력되지 않을 시 삭제처리한다. 
                            var prcpClsCd = model.getValue ( prcpNode + "[ " + grd_prcplist.selectedrow(j) + "]/prcpclscd" );
                            //var monitorResolutions = app.monitorResolution;
                            //var monitorResolutionsArr = monitorResolutions.split('|');
                            //var resolution = monitorResolutionsArr[monitorNumber-1];
                            //var resolution_width = resolution.split(',')[0];
                            //var resolution_height = resolution.split(',')[1];
                            //var xpt = (resolution_width - 380) / 2; 
                            //var ypt = (resolution_height - 119) / 2;

                            var xpt = getScreenCenterPoint(0, 380);
                            var ypt = getScreenCenterPoint(1, 119);

                            modal ( "SPMMO01200", null,  xpt, ypt, "prcpdetl", prcpNode + "[" +  grd_prcplist.selectedrow(j) + "]", prcpNode, "sysmenu:hidden", false );
                            
                            if ( getParameter("SPMMO01200_selfprcpflag") == "N"){
                                model.removeNode ( prcpNode + "[" +  grd_prcplist.selectedrow(j) + "]" );
                                model.recalculate();
                                grd_prcplist.refresh();
                                clearParameter ( "SPMMO01200_selfprcpflag" );
                                return false;
                            } else {
                                fPrcpDetlApp ( prcpClsCd, "/root/prcptemp/prcplist", "/root/main/prcp", grd_prcplist.selectedrow(j)); 
                            }
                                    
                        }
                    }
                } else {
                    if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/selfprcpflag" ) == "Y" ) {
                        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/selfprcpflag", "N" );
                        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/diagtestconttestcdspec", "-" );
                    }
                }
                //20080729 마정민 수정. 수혈이고 외래가 아니면 퇴원후외래, 입원전검사를 외래처리해준다.
                if ( prcpclscd == "B4" && model.getValue ( "/root/patflag/list/prcpgenrflag" ) != "O" ) { 

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

        for ( var j=0; j < selectedRows; j++ ){ 
            var statuschk = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/status" );
            if (  statuschk != "S" || statuschk != "D"  ) { 
                model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(j) + "]/prcphopedd", prcphopedd ); 
            }
            
            gGridUpdateChk("pack", j);  // 임시저장 수정 모드 
            fSetCpVal(grd_prcplist.selectedrow(j), "U");
        }
    }
        
    grd_prcplist.rebuild(); 
}

/**
 * @desc   : 병리의뢰지 호출하기
 * @param  : curRow: 호출 row
           : flag: 처방복사시 호출하면 refresh 시켜주면서 어느 row의 팝업인지 알게함
 * @return : void
 * @authur : 마정민 2007. 5. 9
 */
function fReqfrm ( curRow, flag, srcNode ) {  
    var newFlag = "Y";
    var xpt = window.screenleft + 100;
    var ypt = window.screenTop + 100;
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    var scrID = getScreenID(); 
    var pid = 0
    
    xpt = coord[1];
    ypt = coord[2];
    
    if( isNull(srcNode) ){
        if ( scrID == "SMMMO02100") {                    // 전회처방 화면
            srcNode = "/root/prcpsrch/prcplist";  
            curRow = grd_bfprcplist.row;
            pid = opener.model.getValue ( "/root/paminfo/list/pid" );
        } else {                                                    // 기타 화면
            srcNode = "/root/main/prcp/prcplist";          //파라메터 추가함(2008.03.11)
            if( isNull(curRow) ){                                                       //조건추가(2008.08.05 JJE)
                curRow = grd_prcplist.row;
            }
            pid = model.getValue ( "/root/paminfo/list/pid" );
        }        
        newFlag = "N";                                          //오른쪽 마우스 클릭은 새로나오는 처방은 아님.
    }
    
    var prcpclscd = model.getValue ( srcNode + "[" + curRow + "]/prcpclscd" );
    var prcpflag = model.getValue ( srcNode + "[" + curRow + "]/prcpflag" );
    var drugmastspec = model.getValue ( srcNode + "[" + curRow + "]/drugmastspec" ) + "^";
    var drugmthdspccd = model.getValue ( srcNode + "[" + curRow + "]/drugmthdspccd" );

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

        model.setValue ( "/root/hidden/reqfrminfo/pid", pid );
        model.setValue ( "/root/hidden/reqfrminfo/prcpcd", model.getValue ( srcNode + "[" + curRow + "]/prcpcd" ));
        model.setValue ( "/root/hidden/reqfrminfo/prcpnm", model.getValue ( srcNode + "[" + curRow + "]/orgprcpnm" ));
        model.setValue ( "/root/hidden/reqfrminfo/prcpstatcd", model.getValue ( srcNode + "[" + curRow + "]/prcpstatcd"));

        if ( model.getValue ( srcNode + "[" + curRow + "]/optermcd" ) != "-" ) {
            model.setValue ( "/root/hidden/reqfrminfo/opnm", model.getValue ( srcNode + "[" + curRow + "]/prcpnm" ));                                   
        }
        model.setValue ( "/root/hidden/reqfrminfo/spccd", model.getValue ( srcNode + "[" + curRow + "]/drugmthdspccd"));
        model.setValue ( "/root/hidden/reqfrminfo/spcnm", model.getValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm"));
        if ( newFlag == "N" ) {
            if ( scrID == "SMMMO02100") { //전처방 화면에서만 의뢰시 번호 셋팅.
                model.setValue ( "/root/hidden/reqfrminfo/reqno", model.getValue ( srcNode + "[" + curRow + "]/testreqlnkno"));
            } else {
                model.setValue ( "/root/hidden/reqfrminfo/reqno", "0");
            }
        }
        model.setValue ( "/root/hidden/reqfrminfo/scrnno", "10");
        model.setValue ( "/root/hidden/reqfrminfo/patnm", model.getValue ( "/root/paminfo/list/hngnm" ));
        
        if( srcNode == "/root/main/prcp/prcplist" ){            //2008.03.11 수정(CP 추가)
            model.copyNode ( "/root/hidden/reqfrminfo/prcp", "/root/main/prcp" );
        }else{
            model.makeNode("/root/hidden/reqfrminfo/prcp/prcplist");
            model.copyNode ( "/root/hidden/reqfrminfo/prcp/prcplist", srcNode );
            var iNode = instance1.selectSingleNode("/root/hidden/reqfrminfo/prcp/saveinvaliprcplist");
            if( iNode != null ){        //cp 미완성처방일 경우 prcplist 노드 대신 saveinvaliprcplist가 copy 되므로
                iNode.nodeName = "prcplist";
            }
        }

        var popwndflagcd = getArrayData (drugmastspec, 0, 4, "^", "|" );
        if ( popwndflagcd == "1" )  { // 당일저장된 것이 있으면 자동으로 끌고온다.
             fCpInPrcpVisible();
             if ( flag == "copy" ) model.refresh();
             model.makeValue("/root/hidden/reqfrminfo/instcd", getUserInfo("dutplceinstcd"));
             model.makeValue("/root/hidden/reqfrminfo/tday", model.getValue ( "/root/init/prcpdd"));
             var xpt = window.screenleft + 0;
             var ypt = window.screenTop + 0;                    
             var coord = getRelativeCoordinate ( xpt, ypt );
             var mon = coord[0];
             xpt = coord[1];
             ypt = coord[2];
             modal("SPLPJ01900", mon,  xpt, ypt, "SPLPJ01900", "/root/hidden/reqfrminfo", "/root/hidden/reqfrminfo", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;", false);
        } else {
            reqfrmflagcd = getArrayData (drugmastspec, 0, 3, "^", "|" );
            if ( reqfrmflagcd == "01" || reqfrmflagcd == "02" || reqfrmflagcd == "03" || reqfrmflagcd == "05" || reqfrmflagcd == "08") {
                 fCpInPrcpVisible();
                if ( flag == "copy" ) model.refresh();
            }
            var xpt = window.screenleft + 10;
            var ypt = window.screenTop + 10;
            var coord = getRelativeCoordinate ( xpt, ypt );
            var mon = coord[0];
            xpt = coord[1];
            ypt = coord[2];
            switch ( reqfrmflagcd ) {       // 의뢰지 구분코드에 따라 호출화면을 선택
                case "01" : // 조직의뢰지
                    modal("SPLPJ01500",mon, xpt, ypt,"SPLPJ01500","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                    break;
                
                case "02" : // 부인과의뢰지
                    modal("SPLPJ01400",mon, xpt, ypt,"SPLPJ01400","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                    break;
                
                case "03" : // 비부인과의뢰지
                    modal("SPLPJ01300",mon, xpt, ypt,"SPLPJ01300","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                    break;
                
                //case "04" : // 세침흡인 의뢰지(개발중)
                //  modal("SPLPJ01400",mon, xpt, ypt,"SPLPJ01400","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo");
                //  break;
                
                case "05" : // 분자병리의뢰지
                    modal("SPLPJ01200",mon, xpt, ypt,"SPLPJ01200","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                    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" : // 원본대출의뢰지
                    modal("SPLPJ02000",mon, xpt, ypt,"SPLPJ02000","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                    break;
            }
        }

        if ( !isNull(model.getValue ( "/root/hidden/reqfrminfo/reqno" ))){
            model.setValue ( srcNode + "[" + curRow + "]/testreqlnkno", model.getValue ( "/root/hidden/reqfrminfo/reqno" ));
            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccd", model.getValue ( "/root/hidden/reqfrminfo/spccd" ));
            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm", model.getValue ( "/root/hidden/reqfrminfo/spcnm" ));

            if ( scrID != "SMMMO02100") { // 처방발행 화면일경우(전회처방이 아닐경우)
                var prcpInptFlag = model.getValue ( srcNode + "[" + curRow + "]/prcpinptflag" );
                fSetPrcpSpecValue( 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:병리과 접수화면) 
        */
        model.resetInstanceNode ( "/root/hidden/reqfrminfo" );
        if( isNull(srcNode) ){
            srcNode = "/root/main/prcp/prcplist";       //파라메터 추가함(2008.03.06)
          }
        model.setValue ( "/root/hidden/reqfrminfo/pid", pid );
        model.setValue ( "/root/hidden/reqfrminfo/prcpcd", model.getValue ( srcNode + "[" + curRow + "]/prcpcd" ));
        model.setValue ( "/root/hidden/reqfrminfo/prcpnm", model.getValue ( srcNode + "[" + curRow + "]/orgprcpnm" ));
        model.setValue ( "/root/hidden/reqfrminfo/prcpstatcd", model.getValue ( srcNode + "[" + curRow + "]/prcpstatcd"));

        if ( model.getValue ( srcNode + "[" + curRow + "]/optermcd" ) != "-" ) {
            model.setValue ( "/root/hidden/reqfrminfo/opnm", model.getValue ( srcNode + "[" + curRow + "]/prcpnm" ));   
        }
        model.setValue ( "/root/hidden/reqfrminfo/spccd", model.getValue ( srcNode + "[" + curRow + "]/drugmthdspccd"));
        model.setValue ( "/root/hidden/reqfrminfo/spcnm", model.getValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm"));
        if ( newFlag == "N" ) {
            model.setValue ( "/root/hidden/reqfrminfo/reqno", model.getValue ( srcNode + "[" + curRow + "]/testreqlnkno"));
        }
        model.setValue ( "/root/hidden/reqfrminfo/scrnno", "10");           
        model.setValue ( "/root/hidden/reqfrminfo/patnm", model.getValue ( "/root/paminfo/list/hngnm" ));

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

        if ( reqfrmflagcd == "01" || reqfrmflagcd == "02" || reqfrmflagcd == "03" || reqfrmflagcd == "04" || reqfrmflagcd == "05" || reqfrmflagcd == "06" || reqfrmflagcd == "07") {
            fCpInPrcpVisible();
            if ( flag == "copy" ) model.refresh();
        }

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

            case "05" : // 장기이식의뢰서등록
                modal("SPLRR90500",mon, xpt, ypt, "SPLRR90500" ,"/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;

            case "06" : // TDM의뢰서등록
                modal("SPLRR90600",mon, xpt, ypt,"SPLRR90600","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;

            case "07" : // 산전검사의뢰서등록(핵의학)
                modal("SPLRR91000",mon, xpt, ypt,"SPLRR91000","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;

            case "09" : // 염색체검사의뢰서등록
                modal("SPLRR91300",mon, xpt, ypt,"SPLRR91000","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;

            case "10" : // 말초혈액 의뢰서 및 결과지
                modal("SPLRR91400",mon, xpt, ypt,"SPLRR91000","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;

            case "08" : // ICG의뢰서 
                modal("SPLRR91100",mon, xpt, ypt,"SPLRR91100","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;

            case "11" : // AMH검사의뢰서
                modal("SPLRR91900",mon, xpt, ypt,"SPLRR91900","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;
                          
            case "12" : // 서울대학유전자검사의뢰서
                modal("SPLRR92200",mon, xpt, ypt,"SPLRR92200","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;
                          
            case "13" : // 아산병원유전자검사의뢰서
                modal("SPLRR92100",mon, xpt, ypt,"SPLRR92100","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;
                          
            case "14" : // 삼성서울병원유전자검사의뢰서
                modal("SPLRR92000",mon, xpt, ypt,"SPLRR92000","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;
            
            case "15" : // 기생충항체검사의뢰지
                modal("SPLRR91800",mon, xpt, ypt,"SPLRR91800","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;
            
            case "16" : // 약물검사의뢰서
                modal("SPLRR92300",mon, xpt, ypt,"SPLRR92300","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;
            
            case "17" : // 말라리아 검사의뢰서
                modal("SPLRR92400",mon, xpt, ypt,"SPLRR92400","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
                break;                          
        }
        if ( !isNull(model.getValue ( "/root/hidden/reqfrminfo/reqno" ))) {
            model.setValue ( srcNode + "[" + curRow + "]/testreqlnkno", model.getValue ( "/root/hidden/reqfrminfo/reqno" ));
            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccd", model.getValue ( "/root/hidden/reqfrminfo/spccd" ));
            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm", model.getValue ( "/root/hidden/reqfrminfo/spcnm" ));
        }
    
    } else if ( prcpflag == "2" ) { //지서처방 의뢰서 팝업
        if ( !isNull(drugmthdspccd) && drugmthdspccd != "-" ) {

            model.resetInstanceNode ( "/root/hidden/reqfrminfo" );
            if( isNull(srcNode) ){
            srcNode = "/root/main/prcp/prcplist";       //파라메터 추가함(2008.03.06)
          }

            model.setValue ( "/root/hidden/reqfrminfo/pid", pid );
            model.setValue ( "/root/hidden/reqfrminfo/prcpcd", model.getValue ( srcNode + "[" + curRow + "]/prcpcd" ));
            model.setValue ( "/root/hidden/reqfrminfo/prcpnm", model.getValue ( srcNode + "[" + curRow + "]/orgprcpnm" ));

            if ( newFlag == "N" ) {
                model.setValue ( "/root/hidden/reqfrminfo/reqno", model.getValue ( srcNode + "[" + curRow + "]/testreqlnkno"));
            }

            model.setValue ( "/root/hidden/reqfrminfo/patnm", model.getValue ( "/root/paminfo/list/hngnm" ));
            fCpInPrcpVisible();
            if ( flag == "copy" ) model.refresh();
            
            //방사선종양 지시 처방 의뢰서 팝업
            //drugmthdspccd: SPAOB00700, SPAOB00800
            model.makeNode("/root/hidden/reqfrminfo/diaginfo");
            model.copyNode("/root/hidden/reqfrminfo/diaginfo", "/root/main/diaginfo");
            modal(drugmthdspccd, mon, xpt, ypt, drugmthdspccd,"/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);

            if ( !isNull(model.getValue ( "/root/hidden/reqfrminfo/reqno" ))) {
                model.setValue ( srcNode + "[" + curRow + "]/testreqlnkno", model.getValue ( "/root/hidden/reqfrminfo/reqno" ));
            }
        }
    } else if ( prcpclscd == "A6" ){ //TPN 팝업
       drugmastspec = model.getValue ( srcNode + "[" + curRow + "]/drugmastspec" );
        var tpnflag = getArrayData ( drugmastspec + "^", 0, 14, "^", "|" ); //TDM은 15번째이다.

        if ( tpnflag == "Y" ) {
            //20080930 김숙희과장의 요청 및 SPADB62300은 TDM 팝업임으로 주석으로 처리한다. 
            var tpnreqlnkno = model.getValue ( "/root/initsrchprcp/prcpetccnts/tpnreqlnkno" );  
            if ( !isNull(tpnreqlnkno) && tpnreqlnkno != 0 ) {
                model.setValue ( srcNode + "[" + curRow + "]/testreqlnkno", tpnreqlnkno);
            }
        }
    } 
    
    //by sonjy 20081031 tdm/tpn의뢰 popup추가 (재원환자에 한함. 시행부서 처방 제외 )
    if( model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "I" && model.getValue ( "/root/usge" )=="prcp"  && model.getValue ( "/root/addprcp" ) != "Y" ){
        fDrugTpnTdmChk( srcNode , curRow , mon, xpt, ypt );
    }
}

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

    fCpInPrcpVisible(); 

    var srcNode = "/root/main/prcp/prcplist";
    if ( flag == "group" ) {
        srcNode = "/root/prcpsrch/prcplist";
    } else if ( flag == "oldprcp" ) {
        srcNode = "/root/oldprcpchngsrch/prcplist";
    }
    //20080723 마정민 수정. 같은 계열의 처방은 검체를 한번만 넣도록 한다. 
    //단 그룹검체는 검체가 틀렸을 경우 조회가 안될수 있음으로 쓰지 않는다.
    if (isNull(flag) && clickFlag != "Y" ){
        var tempcol2 = model.getValue ( srcNode + "[" + curRow + "]/tempcol2" );    
        if (objFlag == "child") {
            var srcNodeListSpc = opener.model.instances(0).selectNodes ( "/root/initsrch/trgtcdlist[prcpclscd='" + tempcol2 + "']" );
            for (var i = 1; i <= srcNodeListSpc.length; i++) {
                if (srcNodeListSpc.item(i-1)==null) continue;
                var srchprcpcd = srcNodeListSpc.item(i-1).selectSingleNode("trgtcd").text;
                if (!isNull(opener.model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/prcpcd" ))) {
                    
                    var drugmastspec = opener.model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/drugmastspec" ) + "^";
                    var drugmthdspccd = getArrayData (drugmastspec, 0, 0, "^", "|" );

                    if (drugmthdspccd == "999" && drugmthdspccd == "998") {
                            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccd", opener.model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/drugmthdspccd"));
                            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm", opener.model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/drugmthdspccdnm"));           
                            return "mainspccd";
                    }
                }
            }
        } else {
            var srcNodeListSpc = model.instances(0).selectNodes ( "/root/initsrch/trgtcdlist[prcpclscd='" + tempcol2 + "']" );
            for (var i = 1; i <= srcNodeListSpc.length; i++) {
                if (srcNodeListSpc.item(i-1)==null) continue;
                var srchprcpcd = srcNodeListSpc.item(i-1).selectSingleNode("trgtcd").text;
                if (!isNull(model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/prcpcd" ))) {
                    
                    var drugmastspec = model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/drugmastspec" ) + "^";
                    var drugmthdspccd = getArrayData (drugmastspec, 0, 0, "^", "|" );

                    if (drugmthdspccd == "999" && drugmthdspccd == "998") {
                            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccd", model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/drugmthdspccd"));
                            model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm", model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + srchprcpcd + "']/drugmthdspccdnm"));          
                            return "mainspccd";
                    }
                }
            }
        }
    }

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

    var prcpcd = model.getValue ( srcNode + "[" + curRow + "]/prcpcd" );
    var prcpnm = model.getValue ( srcNode + "[" + curRow + "]/prcpnm" );
    if ( drugmthdspccd == "998" ) {              //검체코드가 998일때 띄운다.

        //검사대분류유형(testlrgkind) M:미생물, B:혈액은행, G: 분자/세포 유전, N:핵의학-체외
//      if ( getArrayData (drugmastspec, 0, 3, "^", "|" ) == "M" ) {
        setParameter ( "SPMMO03500_param_tclscd", prcpcd );
        setParameter ( "SPMMO03500_param_tclsnm", prcpnm );
        model.refresh();
        fPrcpModal ( "SPMMO03500", 200, 100 );
        if ( isNull(flag)) {
            if ( getParameter ("SPMMO03500_rtn_useyn") == "Y" ) {
                model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccd", getParameter( "SPMMO03500_rtn_spccd" ));
                model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm", getParameter ("SPMMO03500_rtn_spcscrnnm" ));
            }
        }
    } else if ( drugmthdspccd == "999" ) {
        setParameter ( "SPMMO03400_param_tclscd", prcpcd );
        setParameter ( "SPMMO03400_param_tclsnm", prcpnm );
        model.refresh();
        fPrcpModal ( "SPMMO03400", 200, 100 );
        if ( isNull(flag)) {
            if ( getParameter ("SPMMO03400_rtn_useyn") == "Y" ) {
                model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccd", getParameter( "SPMMO03400_rtn_spccd" ));
                model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm", getParameter ("SPMMO03400_rtn_spcscrnnm" ));
            }
        }
    } else {

        if ( clickFlag == "Y" ) {
            setParameter ( "SPMMO03400_param_tclscd", prcpcd );
            setParameter ( "SPMMO03400_param_tclsnm", prcpnm );
            model.refresh();
            fPrcpModal ( "SPMMO03400", 200, 100 );
            if ( isNull(flag)) {
                if ( getParameter ("SPMMO03400_rtn_useyn") == "Y" ) {
                    model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccd", getParameter( "SPMMO03400_rtn_spccd" ));
                    model.setValue ( srcNode + "[" + curRow + "]/drugmthdspccdnm", getParameter ("SPMMO03400_rtn_spcscrnnm" ));
                }
            }
        }
    }
    
    if ( isNull(flag)) {
    if ( getParameter ("SPMMO03500_rtn_useyn") == "Y" || getParameter ("SPMMO03400_rtn_useyn") == "Y") {
        fSetCpVal(curRow, "U");
    }
  }
    
}


/**
 * @desc   : 약속처방등록
 * @return : void
 * @authur : 마정민 2007. 6. 6
 */
function fPrmsPrcp() {
    if (btn_prmsprcp.selected) {        
        model.setValue("/root/init/prmsautoflag", "N");
        if( model.getValue ( "/root/cp" ) != "Y" ){
            ivw_prcp.window.javascript.fPrmsSave();
        }else{
            ivw_prcp2.window.javascript.fPrmsSave();        //2007.11.26 수정
        }
    } else {
        btn_prmsprcp.dispatch ( "DOMActivate" );
        btn_prmsprcp.selected = true;
        
        // 약속처방 폴더선택이 없는 경우 자동등록 처리
        // 2008. 07. 25 오지훈
        model.setValue("/root/init/prmsautoflag", "Y");
        if( model.getValue ( "/root/cp" ) != "Y" ){
            ivw_prcp.window.javascript.fPrmsSave();
        }else{
            ivw_prcp2.window.javascript.fPrmsSave();
        }
    }    
}

/**
 * @desc   : 경구약 기본용법 조회
 * @return : void
 * @authur : 마정민 2007. 6. 6
 */

function fBaseMthd(currow) {
    if ( isNull(currow)) {
        currow = grd_prcplist.row;
    } else if ( currow == "oldprcp" ) {
        currow = 1;
        prcpNode = "/root/oldprcpchngsrch/prcplist";
    }

     //횟수 수정시 경구약의 기본용법을 가져온다.
    var prcpclscd     = model.getValue ( prcpNode + "[" + currow + "]/prcpclscd");
    var prcptims      = model.getValue ( prcpNode + "[" + currow + "]/prcptims");
    var drugmthdspccd = model.getValue ( prcpNode + "[" + currow + "]/drugmthdspccd" );
    var prcpcd        = model.getValue ( prcpNode + "[" + currow + "]/prcpcd" );
    var prcpdd        = model.getValue ( "/root/init/prcpdd" );
    if (prcpdd == ""){
        prcpdd = getCurrentDate();
    }

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

    if ( prcpclscd == "F2" ) {
        makePrcpNm( prcpNode, currow);
        return;
    } else if ( prcpclscd != "A2" ) {
        return;
    } else { // 경구약이면
        mthdKind = "N";
        // 응급약이면
        if ( model.getValue ( prcpNode + "[" + currow + "]/erprcpflag") == "Y" ) { 
            if (prcptims == "1") { //2011.07.07 엄영만 경구약, 응급, 횟수 1 이면 용법 [지금복용] 으로 변경
                //mthdcd = "A10D1"; // 지금 복용 용법 코드
            } else { // 응급약은 1회만 가능
                messageBox ( "응급약은 1회만", "I006" );
                model.setValue ( prcpNode + "[" + currow + "]/prcptims", 1 );
                model.refresh();
                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 );
                }
            }
        }

        model.resetInstanceNode ( "/root/send" );
        model.setValue( "/root/send/cond1", mthdKind );
        model.setValue( "/root/send/cond2", prcptims );  //횟수
        model.setValue( "/root/send/cond3", "base" );  //기본정보값만 가져오는지 표시한다.
        model.setValue( "/root/send/cond4", mthdcd );  //기본정보값만 가져오는지 표시한다.

        // 응급약이 아니면 약품의 기본 횟수가 변경된 횟수이면 약품의 기본 용법을 가져온다. (응급약은 지금복용으로)
        //if ( model.getValue ( prcpNode + "[" + currow + "]/erprcpflag") != "Y" ) { 
            model.setValue( "/root/send/cond5", prcpcd );  
            model.setValue( "/root/send/cond6", prcpdd );  
        //}

        if (submit ( "TRMMO01901", false )) {
            var mthdcd   = model.getValue ( "/root/tmedmthd/tmedmthdlist/mthdcd" );
            var mthdcnts = model.getValue ( "/root/tmedmthd/tmedmthdlist/abbrnm" );
            if ( ! isNull(mthdcd)) {
                model.setValue ( prcpNode + "[" + currow + "]/drugmthdspccd", mthdcd );
                model.setValue ( prcpNode + "[" + currow + "]/drugmthdspccdnm", mthdcnts );
            } else {
                model.setValue ( prcpNode + "[" + currow + "]/drugmthdspccd", "-");
                model.setValue ( prcpNode + "[" + currow + "]/drugmthdspccdnm", "-" );
            }
        }
        model.refresh();
    }
}

/**
 * @desc   : 처방화면 컬럼 초기화
 * @return : void
 * @authur : 마정민 2007. 6. 20
 */
function fScrnInitialize(){
   model.makeValue("/root/send/reqdata/scrnid", "SMMMO00100");
   submit("TRMMB01103");
   var node = instance1.selectSingleNode("/root/hidden/userscrnenvinfo/gridseq");
   if(node){
      var compscnts = model.getValue("/root/hidden/userscrnenvinfo/gridseq/compscnts");
      var compsrefcnts = model.getValue("/root/hidden/userscrnenvinfo/gridseq/compsrefcnts");
      var compssizecnts = model.getValue("/root/hidden/userscrnenvinfo/gridseq/compssizecnts");
      setScrnEnvEstb(grd_prcplist, compscnts, compsrefcnts, compssizecnts);
      model.recalculate();    
      //변수선언
      /*
      var prcpclscd = grd_prcplist.colref("prcpclscd");     //처방분류 index
      var prcpKindCdCol = grd_prcplist.colref("prcpclscd"); //처방종류 index
      var prcpnmCol = grd_prcplist.colref("prcpnm");        //처방명 컬럼 index
      var prcpVolCol = grd_prcplist.colref("prcpvol");      //용량 컬럼 index
      var prcpQtyCol = grd_prcplist.colref("prcpqty");      //수량 컬럼 index
      var prcpTimsCol = grd_prcplist.colref("prcptims");    //횟수 컬럼 index
      var prcpDayNoCol = grd_prcplist.colref("prcpdayno");  //일수 컬럼 index
      var prcpDeliveFactCol = grd_prcplist.colref("prcpdelivefact"); //전달사항 컬럼 index
      var prcpHopeHdCol = grd_prcplist.colref("prcphopehd");     //희망일자 컬럼 index
      */
   }
}

/**
 * @desc   : 처방화면 오른쪽 마우스 클릭 처방복사
 * @return : void
 * @authur : 마정민 2007. 6. 21
 */
function fPrcpCopy() {

    for (var i = grd_prcplist.selectedRows-1; i >= 0; i--) {
        var inclprcpno = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/inclprcpno" ); 
        if ( !isNull(inclprcpno) && inclprcpno != "-" ) {
            if ( eval(inclprcpno) > 0  ) {
                messageBox ( "M-SET은 복사하기 하실 수 없습니다.", "I" );
                return;
            }
       }
    }
    
    if ( model.getValue ("/root/init/cropflag") == "Y" ) {
        if (messageBox ( "잘라낸 데이터가 이미 있습니다. 복사하시겠습니까?", "Q" ) != "6" ) {
            return;
        }
    }
    var selectedRows = grd_prcplist.selectedRows;
    var cnt=0;
    //by sonjy 20091121 임시처방 복사 시 복사대상이 신규모드로 바뀜. => 복사후 붙여넣기시 처방이 두개씩 생김.
    //복사대상의 원상태는 돌려놓는 로직 추가. 
    var orgstatus = "";
    var orgprcphistcd = "";
    
    for (var i = selectedRows-1; i >= 0; i--) {
        orgstatus = "";
        orgprcphistcd = "";
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) != "S" ){ //검색은 드래그 안한다.
            if( model.getValue("/root/cp") != "S" ){
            
                //by sonjy 20091121임시처방 ( 수정포함 )일 경우 원상태값을 저장
                if( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "-" || 
                    model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "U"  ){
                    orgstatus = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" );
                    orgprcphistcd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcphistcd" );  
                    //by sonjy 20091124 임시처방 복사 후 인증저장시 오류발생 수정 
                    model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcphistcd", "O" );
                }
                  
                model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "I" )
            }
            fPrcpBuffer( ++cnt, grd_prcplist.selectedrow(i), "/root/prcpdrag", prcpNode );
            
            //원상태값으로 돌려놓는다.
            if( !isNull(orgstatus) ) model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", orgstatus ); 
            orgstatus = "";
            if( !isNull(orgprcphistcd) ) model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(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() {

    for (var i = grd_prcplist.selectedRows-1; i >= 0; i--) {
        var inclprcpno = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/inclprcpno" ); 
        if ( !isNull(inclprcpno) && inclprcpno != "-" ) {
            if ( eval(inclprcpno) > 0  ) {
                messageBox ( "M-SET은 잘라내기 하실 수 없습니다.", "I" );
                return;
            }
       }
    }

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

    for (var i = selectedRows-1; i >= 0; i--) {
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status") != "S" ){ //검색은 드래그 안한다.
            fPrcpBuffer( ++cnt, grd_prcplist.selectedrow(i), "/root/prcpdrag", prcpNode );
            model.removenode ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]" );
        }
        model.setValue ( "/root/init/cropflag", "Y" );
    }

    fPrcpColor();
    model.refresh();
}

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

    model.setValue ( "/root/init/cropflag", "N" );
    srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist");

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

    var destNode = model.instances(0).selectSingleNode("/root/main/prcp");
    var dropRow = grd_prcplist.row;

    if ( dropRow == -1 ){
        dropRow = grd_prcplist.rows -1;
    }
    var endRow = grd_prcplist.rows -1;
    var prcphopedd = "";

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

    var row = 0;
    var cnt = 1;
    
    for (i= srcNodeList.length; i >= 1; i--) {    
        row = dropRow + cnt++;
        
        //by sonjy 오류 수정 20091121 임시처방의 경우 잘라내기, 붙여넣기 후 임시저장시 오류 발생 => 임시저장은 이미 저장된 처방임. prcppkspec초기화시 오류 발생 
        //임시처방 수정 혹은 임시처방 모드일 경우 처리 추가. 
        //model.setValue ( "/root/prcpdrag/prcplist[" + i + "]/prcppkspec", prcpdd + "|0|0|" + getUserInfo("dutplceinstcd"));
        if( model.getValue ( "/root/prcpdrag/prcplist[" + i + "]/status") == "-"  ||  model.getValue ( "/root/prcpdrag/prcplist[" + i + "]/status") == "U" ){ 
            if( model.getValue ( "/root/prcpdrag/prcplist[" + i + "]/status") == "-") model.setValue ( "/root/prcpdrag/prcplist[" + i + "]/status", "U" );
            
        }else {
            model.setValue ( "/root/prcpdrag/prcplist[" + i + "]/prcppkspec", prcpdd + "|0|0|" + getUserInfo("dutplceinstcd"));
        }
        prcphopedd = model.getValue ( "/root/prcpdrag/prcplist[" + i + "]/prcphopedd" );
        if ( isNull(prcphopedd) || prcphopedd == "-" ) {
            prcphopedd = prcpdd;
        }
        if ( prcphopedd < prcpdd || prcphopeddflag == "6" ) {
            model.setValue ( "/root/prcpdrag/prcplist[" + i + "]/prcphopedd", prcpdd );
        }
        model.duplicate( "/root/main/prcp", "/root/prcpdrag/prcplist[" + i + "]", "*[" + row + "]");
        fSetCpVal( row, "I");
    }
    model.removeNodeset ( "/root/prcpdrag/prcplist" );
    model.recalculate();   
    fPrcpColor();
    model.refresh();
}

/**
 * @desc   : 처방용법복사
 * @return : void
 * @authur : 마정민 2007. 10. 17
 */
function fMthdCopy() {
    var prcpclscd = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row + "]/prcpclscd" );

    if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {

        var prcptims = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row + "]/prcptims" ); 
        var drugmthdspccd = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row + "]/drugmthdspccd" );
        var drugmthdspccdnm = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row + "]/drugmthdspccdnm" );  

        model.setValue ( "/root/init/mthdcopy/prcpclscd", prcpclscd );
        model.setValue ( "/root/init/mthdcopy/prcptims", prcptims );
        model.setValue ( "/root/init/mthdcopy/drugmthdspccd", drugmthdspccd );
        model.setValue ( "/root/init/mthdcopy/drugmthdspccdnm", drugmthdspccdnm );
    } else {
        messageBox ( "약주사만 용법복사가", "I006" );
    }
}

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

    var selectedRows = grd_prcplist.selectedRows;

    for ( var i=selectedRows-1; i >= 0; i-- ){  
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" ) == model.getValue ( "/root/init/mthdcopy/prcpclscd")){
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcptims", model.getValue ( "/root/init/mthdcopy/prcptims"));
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drugmthdspccd", model.getValue ( "/root/init/mthdcopy/drugmthdspccd"));
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/drugmthdspccdnm", model.getValue ( "/root/init/mthdcopy/drugmthdspccdnm"));
            
            fSetCpVal(grd_prcplist.selectedrow(i), "U");
        } else {
            grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
        }
    }
    model.resetInstanceNode ( "/root/init/mthdcopy" );
}

/**
 * @desc   : 우측상단 진단화면에서 개인진단 즐겨찾기 추가
 * @return : void
 * @authur : 오지훈 2007. 7. 2
 */
function fAddEnjoyPrivate(){
   var header = "settypecd▦setkindcd▦setclscd▦settrgtcd▦detlsetcd▩";
   var totRow = grd_diaglist.rows;
   for(var i = 0; i < totRow ; i++){
      if(grd_diaglist.isselected(i) == true){
         var diagcd = model.getValue("/root/main/diaginfo/diagcdlist[" + i + "]/diagcd");
         var settrgtcd = getUserInfo("userid");
         header += "E▦P▦D▦" + settrgtcd + "▦" + diagcd + "▩";
      }
   }
   model.makeValue("/root/send/savedata", header);   
   submit("TXMMB00604");
}

/**
 * @desc   : 우측상단 진단화면에서 과진단 즐겨찾기 추가
 * @return : void
 * @authur : 오지훈 2007. 7. 2
 */
function fAddEnjoyDept(){
   var header = "settypecd▦setkindcd▦setclscd▦settrgtcd▦detlsetcd▩";
   var totRow = grd_diaglist.rows;
   for(var i = 0; i < totRow ; i++){
      if(grd_diaglist.isselected(i) == true){
         var diagcd = model.getValue("/root/main/diaginfo/diagcdlist[" + i + "]/diagcd");
         var settrgtcd = getUserInfo("dutplcecd");
         header += "E▦D▦D▦" + settrgtcd + "▦" + diagcd + "▩";
      }
   }
   model.makeValue("/root/send/savedata", header);   
   submit("TXMMB00604");
}

/**
 * @desc   : 즐겨찾기SET Open
 * @return : void
 * @authur : 오지훈 2007. 7. 4
 */
function fOpenEnjoySet(){
   modal ("SPMMO03700");
   if ( getParameter( "SPMMO03700_rtn_useyn" ) == "Y" ) {
        addDiagSetValue (getParameter( "SPMMO03700_rtn" ));
        setParameter( "SPMMO03700_rtn_useyn", "" );
   }
   model.recalculate();   
}

/**
 * @desc   : 처방Lock 정보호출
 * @return : void
 * @authur : 마정민 2007. 7. 6
 */
function fgetPrcpLock() {
    var seqno = "";
    var orddd = "";

    if ( model.getValue ( "/root/paminfo/list/ioflag" ) == "O" ) {
        seqno = model.getValue ( "/root/paminfo/list/acptseqno" );
        orddd = model.getValue ( "/root/paminfo/list/orddd" );
    } else {
        seqno = model.getValue ( "/root/paminfo/list/seqno" );
        orddd = model.getValue ( "/root/paminfo/list/indd" );
    }
    
    model.setValue ( "/root/prcplockcond/ioflag", model.getValue ( "/root/paminfo/list/ioflag" ));
    model.setValue ( "/root/prcplockcond/pid", model.getValue ( "/root/paminfo/list/pid" ));
    model.setValue ( "/root/prcplockcond/orddd",  orddd );
    model.setValue ( "/root/prcplockcond/cretno", model.getValue ( "/root/paminfo/list/cretno" ));

    model.setValue ( "/root/prcplockcond/acptseqno", seqno );
    model.setValue ( "/root/prcplockcond/userid", getUserInfo("userid"));
    model.setValue ( "/root/prcplockcond/usernm", getUserInfo("usernm"));

    var prcpLockNodeList = model.instances(0).selectNodes(  "/root/prcplockcond" );
    model.setValue ( "/root/send/cond1", getNodeListCSV(prcpLockNodeList)); 

    if (!submit ( "TRMMO00107" )) {

    } else {
        if ( model.getValue ( "/root/prcplock/prcplocklist/flag") == "N" )  {
            var msg = model.getValue ( "/root/prcplock/prcplocklist/msg");
            messageBox ( msg, "E" );
            //btn_prcpsave.disabled = true;
        } else if ( model.getValue ( "/root/prcplock/prcplocklist/flag") == "E" ) {
            var msg = model.getValue ( "/root/prcplock/prcplocklist/msg");
            messageBox ( msg, "E" );
            window.close();
        }
    }   
}

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

/**
 * @desc   : 퇴원예고등록 또는 수정처리를 위한 Initialize
 * 
 * @param  :
 * @id     : 
 * @event  : 
 * @return : void
 * @authur : 오지훈 2007. 7. 24
 * @---------------------------------------------------
 */
function fDschNotiInit(){
//ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
//외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
   var ioflag = model.getValue ( "/root/paminfo/list/ioflag" );
   
   if ( ioflag == "O" ) {
      var pid = model.getValue ( "/root/paminfo/list/pid" );
      var orddd = model.getValue ( "/root/paminfo/list/orddd" );
      var cretno = model.getValue ( "/root/paminfo/list/cretno" );
      var instcd = model.getValue ( "/root/paminfo/list/instcd" );
      var acptseqno = model.getValue ( "/root/paminfo/list/acptseqno" );
      var orgorddd = model.getValue ( "/root/paminfo/list/orgorddd" );                  
      setParameter("condparam", ioflag + "▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + acptseqno + "▦" + orgorddd );
   } else {
      //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
      //외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
      var pid = model.getValue ( "/root/paminfo/list/pid" );
      var indd = model.getValue ( "/root/paminfo/list/indd" );
      var cretno = model.getValue ( "/root/paminfo/list/cretno" );
      var instcd = model.getValue ( "/root/paminfo/list/instcd" );
      var seqno = model.getValue ( "/root/paminfo/list/seqno" );                    
      if(ioflag == "D"){ ioflag = "I";}
      
      setParameter("condparam", ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd );
   }
    var xpt = window.screenleft + 0;
    var ypt = window.screenTop + 0;                 
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];
   modal("SPMMO08900", mon,  xpt, ypt, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
}

/**
 * @desc   : window close 시 lock 정보 해제
 * 
 * @param  :
 * @id     : 
 * @event  : 
 * @return : void
 * @authur : 마정민 2007. 7. 31
 * @---------------------------------------------------
 */
function fCloseRemvLock() {
    var childrenLength = window.children.length - 1;
    for( var i = childrenLength; i >= 0; i-- ) {
        window.children.item(i).model.dispatch("xforms-close");
    } 
    
    if ( model.getValue ( "/root/paminfo/list/elbulbodstat" ) != "0") {             
        model.setValue ( "/root/prcplockcond/userid", "-"); 
        var prcpLockNodeList = model.instances(0).selectNodes(  "/root/prcplockcond" );
        model.setValue ( "/root/send/cond1", getNodeListCSV(prcpLockNodeList)); 
        submit ( "TXMMO00104", false );
    }

}

/**
 * @desc   : LOCK 버튼 클릭시 락정보 해제
 * 
 * @param  :
 * @id     : 
 * @event  : 
 * @return : void
 * @authur : 마정민 2007. 7. 31
 * @---------------------------------------------------
 */
function fRemvLock() {
    if ( model.getValue ( "/root/paminfo/list/elbulbodstat" ) == "0") {
        messageBox ( "간호접수 상태에서는 LOCK 해제", "E001" );
        return;
    }               
    model.setValue ( "/root/prcplockcond/userid", "-"); 
    var prcpLockNodeList = model.instances(0).selectNodes(  "/root/prcplockcond" );
    model.setValue ( "/root/send/cond1", getNodeListCSV(prcpLockNodeList)); 
    if (submit ( "TXMMO00104" )) {
        //btn_prcpsave.disabled = false;
    }
}


/**
 * @desc   : 추가처방화면 초기화
 * @id     : model1
 * @event  : xforms-model-construct-done
 * @return : void
 * @authur : 마정민 2007. 3. 14
 */
function fAddPrcpInitConDone( pid, orddd, cretno, instcd, ioflag, saveflag , dschdd, srchdd ) {

    model.removeNodeSet ( prcpNode );                                      //처방화면 그리도 초기화
    appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" );
    
    if ( !isNull(pid)){
        model.makeValue ( "/root/send/init_pid" , pid);
        model.makeValue ( "/root/send/init_orddd", orddd);
        model.makeValue ( "/root/send/init_cretno", cretno);
        model.makeValue ( "/root/send/init_instcd", instcd);
        model.makeValue ( "/root/send/init_ioflag", ioflag);

        if ( !isNull(dschdd) && dschdd != "99991231" && dschdd != "-" ){
            model.makeValue ( "/root/send/srchdd", dschdd);
        } else {
            if (srchdd == "" || srchdd == null) {
                model.makeValue ( "/root/send/srchdd", "");
            } else {
               model.makeValue ( "/root/send/srchdd", srchdd);    
            }
            
        }

        if ( ioflag == "O" || ioflag == "S" )   {
            model.setValue ( "/root/send/init_ioflag", "O" );
            model.makeValue ( "/root/send/init_pseuacptflag", model.getValue("/root/formerkey/pseuacptflag"));
            if (submit("TRMMO04208",false)){
                model.makeNode ( "/root/paminfo/list" );
                model.makeNode ( "/root/patflag/list" );
                model.copyNode ( "/root/paminfo/list", "/root/topinfo/outpatpaminfo" );
                model.copyNode ( "/root/patflag/list", "/root/topinfo/outpatflaginfo" );
            } else {
                return;
            }

        } else {
            if (ioflag == "D"){
                model.makeValue("/root/send/init_ioflag", "I");
            }
            if (submit ("TRMMO04308",false)){
                model.makeNode ( "/root/paminfo/list" );
                model.makeNode ( "/root/patflag/list" );
                model.copyNode ( "/root/paminfo/list", "/root/topinfo/inpatpaminfo" );
                model.copyNode ( "/root/patflag/list", "/root/topinfo/inpatflaginfo" );
            } else {
                return;
            }
        }
    }   

     if ( saveflag != "Y" ) {
          prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
          if ( ioflag == "O" || ioflag == "S" )   {
            model.setValue ( "/root/init/orddd" , model.getValue ( "/root/paminfo/list/orddd" ));     
          } else {
            model.setValue ( "/root/init/orddd" , model.getValue ( "/root/paminfo/list/indd" ));     
          }

          if ( !isNull(prcpgenrflag)) {
              model.setValue ( "/root/init/rrgstno1",  model.getValue ( "/root/paminfo/list/rrgstno1"));
              model.setValue ( "/root/init/rrgstno2",  model.getValue ( "/root/paminfo/list/rrgstno2"));
              model.setValue ( "/root/init/orddeptnm", model.getValue("/root/paminfo/list/orddeptnm"));
              model.setValue ( "/root/init/srchcond2", pid);
              model.setValue ( "/root/init/srchcond3", model.getValue("/root/paminfo/list/hngnm"));
              model.setValue ( "/root/init/srchcond4", model.getValue("/root/patflag/list/prcpgenrflag"));
              model.setValue ("/root/init/sex", model.getValue("/root/paminfo/list/sex"));
              model.setValue ("/root/init/age", model.getValue("/root/paminfo/list/age"));
              model.setValue ("/root/init/wardcd", model.getValue("/root/paminfo/list/wardcd"));          
          }
              cmb_issdept.visible = true;

          if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
              cmb_prcpkind.visible = false; 
              cmb_prcpdd.visible = false;
              cmb_issdept.attribute ( "left" ) = 454;
              btn_issdept.attribute ( "left" ) = 558;
              cmb_hosinprcpresn.visible = true;
              caption14.visible = true;
              cmb_hosinprcpresn.attribute ( "left" ) = 760;
              grd_prcplist.colHidden(prcpKindCdCol) = true;
              model.setValue ( "/root/init/hosinprcpresncd", model.getValue ( "/root/paminfo/list/hosoutexptresncd" ));   
              model.setValue ( "/root/init/prcpkindcd", "20" ); //처방종류(추가)
              model.setValue ( "/root/init/prcpdd", model.getValue ( "/root/paminfo/list/orddd" ));                 

          } else { 
              model.setValue ( "/root/init/wardcd" , model.getValue ( "/root/paminfo/list/roomcd" ) + "호" );
              model.setValue ( "/root/init/orddd" , model.getValue ( "/root/paminfo/list/indd" ));          
              //입원, 응급일때           
              model.setValue ( "/root/init/hosinprcpresncd", "00");     
              
              // 가퇴원 누락처방 날자셋팅 - 20081221 by MoonSH             
              var chkMissPrcp = getGlobalVariable("SPMMO16800_rtn1"); 
              if (chkMissPrcp == "Y"){ 
                 setParameter ( "SPMMO16800_rtn1", "" ); 
                 var missPrcpdd = model.getValue("/root/prcpresn/prcpdd"); 
                 model.setValue ( "/root/init/prcpdd", missPrcpdd); 
                 cmb_prcpdd.visible = false; 
              } else { 
                 model.setValue ( "/root/init/prcpdd", getCurrentDate()); 
                 cmb_prcpdd.visible = true; 
              } 
               
              cmb_issdept.attribute ( "left" ) = 662;
              btn_issdept.attribute ( "left" ) = 764;
              cmb_hosinprcpresn.visible = false;
              cmb_prcpkind.visible = true; 
              //cmb_prcpdd.visible = true;
              caption14.visible = false;
              model.setValue ( "/root/init/prcpkindcd", "20" ); //처방종류(추가)
              if ( prcpgenrflag == "E" || prcpgenrflag == "D" ) {
                 cmb_hosinprcpresn.visible = true;
                 cmb_hosinprcpresn.attribute ( "left" ) = "766";
                 cmb_hosinprcpresn.attribute ( "width" ) = "224";
              }
          }        
        }

        fInitSrch();
        //진단호출
        if ( !isNull(pid) || saveflag == "Y" ){
            fPatDiagSrch("addprcp");
            var srcNodeList = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" );
            if (srcNodeList.length < 1 ){
                //원무에서 화면을 호출할 경우 저장된 진단이 없으면 기초정보에 등록된 진단코드로 검색한다.
                if (getScreenMenuParameter() == "PAM") {
                    fDiagSrch("addprcp");
                }
            }           
        }

        if (window.model.getValue("/root/init/detlivw") == "m" ) {
            if(ivw_prcp.visible == true ) ivw_prcp.window.javascript.fIvwDetlVwCom();
            if(ivw_prcp3.visible == true ) ivw_prcp3.window.javascript.fIvwDetlVwCom();
        }   else if ( model.getValue( "/root/init/detlvw" ) == "m"  ) {
            fDetlVw("y");               
        }

        bfPrcpdd = model.getValue ( "/root/init/prcpdd" );
        var sDutPlceCd = getUserInfo("dutplcecd");
        if ( saveflag != "Y" && sDutPlceCd != "4072000000" && sDutPlceCd != "4070700000" ) { // 심사팀은 전처방 화면이 먼저 열리도록 처리 2012.09.18 엄영만
            ivw_prcp3.src = "SMMMO02100_전회처방.xrw";
            btn_prmsprcp.selected = true;
            ivw_prcp3.visible = false;
            ivw_prcp.visible = true;
            if(model.getValue ( "/root/cp" ) != "Y"){
                ivw_prcp.src = "SMMMO02300_약속처방.xrw";
            }else{
                ivw_prcp2.src = "SMMMO02300_약속처방.xrw";
            }
        } else {
            if (!btn_ivbfprcp.selected) {
                btn_ivbfprcp.selected = true;
                ivw_prcp3.visible = true;
                ivw_prcp.visible = false;
                //ivw_prcp.src = "SMMMO02100_전회처방.xrw";
            }
            ivw_prcp3.src = "SMMMO02100_전회처방.xrw";
        }
        model.setValue ( "/root/init/prcpinptflag", "28" ); //시행부서처방
        //btn_prcpsave.disabled = false;
        model.refresh();
}

/**
 * @desc   : 외래에서 입원전환된 환자인지 check
 * @return : void
 * @authur : 마정민 2007. 8. 6
 */
function fTranInddChk() {
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    var usge = model.getValue ( "/root/usge" );
    if ( prcpgenrflag == "O" && usge == "prcp" ) {
        var tranflag = model.getValue ( "/root/paminfo/list/tranflag" );    
        //20081024 마정민수정 tranindd 에서 tranflag 로 수정
        if ( tranflag == "Y" ) {
            messageBox ( "현재 재원중인", "I005" );
        }
    }
}


/**
 * @desc   : 추가처방 authflag check
 * @return : void
 * @authur : 마정민 2007. 8. 9
 */
function fAuthFlagChk() {

    /*
    세션의 직종구분을 가지고 hadrd code 테블의 직종값과 비교하여 prcpauthflag 를 setting 한다.  
    처방권한구분    2   간호사처방       ( 간호사 직종 추가처방 )
    처방권한구분    3   지원부서의사처방 ( 의사ID 직종 추가처방 )
    처방권한구분    4   기타처방         ( 나머지 )

    //권한 구분 값도 인자값으로 
    if ( !isNull( prcpauthflag)) {
        if ( prcpauthflag != "2" && prcpauthflag != "3" && prcpauthflag != "4" ) {
            model.alert ( "처방권한 구분자가 맞지 않습니다. 세션 직종구분 정보로 처리하겠습니다." );
            prcpauthflag = "";
        } else {
            model.setValue ( "/root/init/prcpauthflag", prcpauthflag );
        }
    }
    */
    //if ( isNull( prcpauthflag )) {
        model.setValue ( "/root/send/cond1", "8" );
        model.setValue ( "/root/send/cond2", "" );
        // hardcodelist 에서 직종코드를 가져온다.
        if (submit ( "TRMMO00204", false )) {
            var cnt = 0;
            var jobkindcd = getUserInfo("jobkindcd");
            var srcNodeList = model.instances(0).selectNodes( "/root/hardcode/hardcodelist" );
            for ( var i=1; i <= srcNodeList.length ; i++ ) {
                var trgtcdnm = model.getValue ( "/root/hardcode/hardcodelist[" + i + "]/trgtcdnm" ) + "^";
                var prcplen = trgtcdnm.split("|").length;
                for ( var j=1; j < prcplen-1; j++ ) {
                    trgtcdnmsplit = getArrayData ( trgtcdnm, 0, j, "^", "|" ); //치식이 입력될 row
                    if (trgtcdnmsplit == jobkindcd) {
                        //직종코드의 구분값을 가져온다.
                        var trgtcd = model.getValue ( "/root/hardcode/hardcodelist[" + i + "]/trgtcd" );
                        //의사의 직종코드에서 값이 있으면 3번으로 setting
                        if ( trgtcd == "DR" ) { 
                            cnt++;
                            model.setValue ( "/root/init/prcpauthflag", "3" );
                        } else if ( trgtcd == "NR" ) {
                            cnt++;
                            model.setValue ( "/root/init/prcpauthflag", "2" );
                        } 
                        break;
                    }
                }
            }
            if ( cnt == 0) {
                model.setValue ( "/root/init/prcpauthflag", "4" );
            }
        } else {
            model.setValue ( "/root/init/prcpauthflag", "4" );
        }
    //}
}

/**
 * @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 ( model.getValue ( "/root/usge" ) == "prcp" ) {

        var orddd = "";
        if (model.getValue ( "/root/paminfo/list/ioflag" ) == "O" || model.getValue ( "/root/paminfo/list/ioflag" ) == "S") {
            orddd = model.getValue ( "/root/paminfo/list/orddd" );
        } else {
            orddd = model.getValue ( "/root/paminfo/list/indd" );
        }

        model.setValue ( "/root/initsrchcond/ioflag", model.getValue ( "/root/paminfo/list/ioflag" ));
        model.setValue ( "/root/initsrchcond/pid", model.getValue ( "/root/paminfo/list/pid" ));
        model.setValue ( "/root/initsrchcond/orddd", orddd);
        model.setValue ( "/root/initsrchcond/cretno", model.getValue ( "/root/paminfo/list/cretno" ));
        model.setValue ( "/root/initsrchcond/instcd", getUserInfo("dutplceinstcd"));
        model.setValue ( "/root/initsrchcond/prcpdd", model.getValue ( "/root/init/prcpdd"));
        model.setValue ( "/root/initsrchcond/deptcd", getUserInfo ( "dutplcecd" )); 
        model.setValue ( "/root/initsrchcond/userid", getUserInfo ( "userid" )); 
        model.setValue ( "/root/initsrchcond/scrnkindcd", "00");
        model.setValue ( "/root/initsrchcond/scrnid", "SMMMO00100" );
        model.setValue ( "/root/initsrchcond/suppkind", model.getValue ( "/root/paminfo/list/suppkind" ));
        model.setValue ( "/root/initsrchcond/orddeptcd", model.getValue ( "/root/paminfo/list/orddeptcd" ));
        
        if (model.getValue ( "/root/addprcp" ) == "Y") {
            model.setValue ( "/root/initsrchcond/prcpkind", "addprcp" );
        } else {
            model.setValue ( "/root/initsrchcond/prcpkind", "prcp" );
        }

        submit ( "TRMMO00206", false ); 

        if ( model.getValue ( "/root/usge" ) == "prcp" ) {
            if ( model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "E" ) {
                var erprcpyn = model.getValue ( "/root/initsrchprcp/prcpetccnts/erprcpyn" );
                var erresn = getArrayData ( erprcpyn + "^", 0, 0, "^", "|" );
                if (!isNull(erresn) &&  erresn != "-" &&  erresn != "Y" ) {
                    model.setValue ( "/root/init/erresn", erresn );
                    //응급의료 관리료가 G3인경우 응급환자
                    if ( erresn == "G3" ) {
                        model.setValue ( "/root/init/hosinprcpresncd", "11" );
                    } 
                } else {
                    model.setValue ( "/root/init/erresn", "" );
                }
            } else {
                    model.setValue ( "/root/init/erresn", "" );
            }
        }

        if ( model.getValue ( "/root/initsrchprcp/prcpetccnts/serdiagyn" ) == "Y" ){
            if ( model.getValue ( "/root/addprcp" ) != "Y" && isNull(model.getValue ( "/root/cp" )) ) {  // !"Y" -> isNull로 조건 변경(2009.05.12 JJE)
                output1.attribute ("color") ="#ff0000";
            }
        } else {
            if ( model.getValue ( "/root/addprcp" ) != "Y" && isNull(model.getValue ( "/root/cp" )) ) {  // !"Y" -> isNull로 조건 변경(2009.05.12 JJE)
                output1.attribute ("color") ="#000000";
            }
        }

        //입원당일 admission 처방이 없으면 변경해 준다.
        if (model.getValue ( "/root/initsrchprcp/prcpetccnts/admiprcpyn" ) == "Y" && isNull(model.getValue ( "/root/operation/list/oprsrvno"))){
            model.setValue ( "/root/init/prcpkindcd", "00" );
        }
    }
   
    // 처방 메인 refresh 단일화를 위한 셋팅 - 20081212 by Moonsh
    var refreshInfo = getGlobalVariable("OrderMainRefresh");
    if ( refreshInfo != "Y" ) {
        model.refresh(); 
    }
    
    //model.addlog("          SPEED CHECK END OF fInitSrchPrcp()");
}

/**
 * @desc   : 처방화면에서 환자초기검색 값을 가져옴
 * @return : void
 * @authur : 마정민 2007.01.26
 */
function fInitSrchLogin() { 
    if (!getOrderBasicInfo("/root/initsrch")) {
        model.setValue ( "/root/initsrchcond/instcd", getUserInfo("dutplceinstcd"));
        model.setValue ( "/root/initsrchcond/prcpdd", model.getValue ( "/root/init/prcpdd"));
        submit ( "TRMMO00205", false ); 
    }
}

/**
 * @desc   : 처방화면에서 button 초기화 setting
 * @return : void
 * @authur : 마정민 2007. 8. 9
 */

function fInitBtnSet() {
    var srcNodeList = model.instances(0).selectNodes( "/root/initsrch/btnenvcnts" );

    for ( var i=1; i <= 19; i++ ) {
        if ( i <= srcNodeList.length) {
            var btncd = model.getValue ( "/root/initsrch/btnenvcnts[" + i + "]/btncd" );
            var btnnm = "button" + i;
            var buttonObj = document.controls(btnnm);
            buttonObj.text = model.getValue ( "/root/initsrch/btnenvcnts[" + i + "]/btnnm");
            buttonObj.visible = true;
            buttonObj.attribute("_value") = btncd;
        } else {
            var btnnm = "button" + i;
            var buttonObj = document.controls(btnnm);
            buttonObj.visible = false;
        }
    }
    fInitSrchBtnSet();
//  if (btn_prcpsrch.selected) {
//      ivw_prcp.window.javascript.fInitSrchBtnSet();
//  }   
}

/**
 * @desc   : 처방화면에서 버튼값 설정
 * @return : void
 * @authur : 마정민 2007. 8. 9
 */
function fBtnClick() {
    var buttonObj = document.controls(event.target);
    var buttonValue = buttonObj.attribute("_value");
    
    var sOrdDd   = "";
    var sOrddrId = "";   
    var sPrcpGenrFlag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    var sOrdDeptCd = model.getValue("/root/paminfo/list/orddeptcd");
    var sPid       = model.getValue ("/root/paminfo/list/pid");
    var sCretno    = model.getValue ("/root/paminfo/list/cretno");

    if ( sPrcpGenrFlag == "O" || sPrcpGenrFlag == "S" ) {
        sOrdDd   = model.getValue ("/root/paminfo/list/orddd");
        sOrddrId = model.getValue ("/root/paminfo/list/orddrid");
    } else {
        sOrdDd   = model.getValue ("/root/paminfo/list/indd");
        sOrddrId = model.getValue ("/root/paminfo/list/medispclid");
    }

    if ( buttonValue == "01") { //대상자
        var patListObj = getMainViewer();
        patListObj.javascript.open("SPMMO04200");
    } else if ( buttonValue == "02") { //항암처방
        model.setValue ( "/root/hidden/receivedata/orddeptcd", sOrdDeptCd);
        model.setValue ( "/root/hidden/receivedata/ioflag",    sPrcpGenrFlag );
        model.setValue ( "/root/hidden/receivedata/pid",       sPid);
        model.setValue ( "/root/hidden/receivedata/age",       model.getValue ( "/root/paminfo/list/age" ));
        model.setValue ( "/root/hidden/receivedata/sex",       model.getValue ( "/root/paminfo/list/sex" ));
        model.setValue ( "/root/hidden/receivedata/cretno",    sCretno);
        model.setValue ( "/root/hidden/receivedata/orddd",     sOrdDd );

        var xpt = window.screenleft;
        var ypt = window.screenTop + 10;

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        modal ( "SMADB01000" , mon, xpt, ypt, "SMADB01000","/root/hidden/receivedata","/root/send/srchdata/receivedata", "", false );
        
        fPatDiagSrch();
        //항암프로토콜을 저장시 지시처방을 항암프로토콜명으로 만들어준다.
        if (getParameter("SMADB01000_saveyn") =="Y") {
            
            var insrow = 1;
            
            if ( grd_prcplist.row == grd_prcplist.rows-1 ) {
                insrow = grd_prcplist.rows - 1;
            } else {
                insrow = grd_prcplist.row+1;                            
            }
            model.copyNode ( "/root/prcpsrch", "/root/directprcp" );
            var srchRow = addPrcpDetl ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , insrow, "00" );                  
            //model.duplicate( model.instances(0).selectSingleNode( "/root/main/prcp" ), "/root/directprcp/prcplist", "*[" + insrow + "]"); 
            model.setValue("/root/main/prcp/prcplist[" + insrow + "]/prcpnm", getParameter("SMADB01000_prcpnm"));
            clearParameter("SMADB01000_saveyn");
            clearParameter("SMADB01000_prcpnm");
            model.recalculate();
            grd_prcplist.refresh();

            grd_prcplist.row =  insrow;
            grd_prcplist.col = grd_prcplist.colRef ( "prcpnm" );                        

            model.setfocus( "grd_prcplist" );                       
            
            grd_prcplist.editCell();                    
        }

    } else if ( buttonValue == "03") { //재활예약
        setParameter("SMAEA01900_Param_doctorYn", "Y");
        fPrcpModal ("SMAEA01900", 0, 40);
        clearParameter("SMAEA01900_Param_doctorYn");
    } else if ( buttonValue == "04") { //입원결정
        setParameter("SPMMO00100_param", param);
        fPrcpModal ("SPMMO00100", 100, 40);
    } else if ( buttonValue == "05") { //임상연구
        submit("TRMMO00120", false);        
        
        if (model.getValue("/root/temp/subjrgstyn") == "N" ){
            messageBox("임상연구 처방은 피험자등록" , "E012");
            return -1;
        }
        
        var clincstdyno   = model.getValue ( "/root/temp/clincstdyno" );
        
        if (sPrcpGenrFlag == "I" || sPrcpGenrFlag == "D" || sPrcpGenrFlag == "E") {
            model.setValue ( "/root/send/cond1", sPid );
            model.setValue ( "/root/send/cond2", sOrdDd );
            model.setValue ( "/root/send/cond3", sCretno );

            if (!submit ( "TXMMO00113", false )) {
                messageBox("임상접수를 생성하는데 ", "E009");
            } else {
                messageBox("임상접수 생성이  ", "I002");
            }
            model.resetInstanceNode ( "/root/send" );

        } else if (sPrcpGenrFlag == "O" ) {
            var centcd      = model.getValue ( "/root/paminfo/list/centcd" );
            var subdeptcd   = model.getValue ( "/root/paminfo/list/subdeptcd" );

            model.setValue ( "/root/send/cond1",  "I" );                            //otpt_flag
            model.setValue ( "/root/send/cond2",  sPid );                           //otpt_pid
            model.setValue ( "/root/send/cond3",  sOrdDd );                         //otpt_orddd
            model.setValue ( "/root/send/cond4",  sOrdDeptCd );                     //otpt_orddeptcd
            model.setValue ( "/root/send/cond5",  sOrddrId );                       //otpt_orddrid
            model.setValue ( "/root/send/cond6",  getCurrentTime().substr(0,4) );   //otpt_ordtm
            model.setValue ( "/root/send/cond7",  "-" );                            //otpt_rsrvflag
            model.setValue ( "/root/send/cond8",  "-" );                            //otpt_etcordflag
            model.setValue ( "/root/send/cond9",  getUserInfo("dutplceinstcd"));    //otpt_instcd
            model.setValue ( "/root/send/cond10", getUserInfo("userid"));           //sess_userid
            model.setValue ( "/root/send/cond11", "N" );                            //otpt_medamtestmyn
            model.setValue ( "/root/send/cond12", "09" );                           //otpt_medamtfreeresn
            model.setValue ( "/root/send/cond13", centcd );                         //otpt_centcd
            model.setValue ( "/root/send/cond14", subdeptcd );                      //otpt_subdeptcd
            model.setValue ( "/root/send/cond15", clincstdyno );                    //otpt_clincstdyno

            if (!submit ( "TXMMO00112", false )) {
                messageBox("임상접수를 생성하는데 ", "E009");
            } else {
                var errmsg = model.getValue("/root/temp/rtnstdyotpt/errmsg");
                if (errmsg.getTrim() == "" ) {
                    messageBox("임상접수 생성이  ", "I002");
                } else {
                    messageBox(errmsg, "E");
                }
            }
            model.resetInstanceNode ( "/root/send" );
        } else {
            messageBox ( "외래, 입원, 응급, DSC만 가능합니다.", "E" );
        }

    } else if ( buttonValue == "06") { //cp처방
        if ( model.getValue ( "/root/cp" ) != "Y" ) {
            var mainObj = getMainViewer();
            mainObj.window.javascript.open("SPMMP01200", "2","0","20");
        }
        
    } else if ( buttonValue == "07") { //tpn처방
        var prcpdd = model.getValue ( "/root/init/prcpdd" );
        
        model.makeValue ( "/root/temp/patdata/pid",       sPid);
        model.makeValue ( "/root/temp/patdata/ioflag",    sPrcpGenrFlag );
        model.makeValue ( "/root/temp/patdata/orddeptcd", sOrdDeptCd);
        model.makeValue ( "/root/temp/patdata/orddd",     sOrdDd );
        model.makeValue ( "/root/temp/patdata/orddrid",   sOrddrId );
        model.makeValue ( "/root/temp/patdata/prcpdd",    prcpdd );
                                                                                
        var xpt = window.screenleft;
        var ypt = window.screenTop + 10;

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

        modal ( "SMADB01100" , mon, xpt, ypt, "SMADB01000","/root/temp/patdata","/root/temp/patdata", "", false );
    } else if ( buttonValue == "08") { //퇴원예고
        if (fContainsHardCD("341", "Y") && checkRtnDrug()) { // 간호 반납약 체크, 하드코드 341 체크
            return;
        } 
        
        if (fContainsHardCD("280", "Y") && !fCheckOpFee( "0", "0", "/root/main/prcp/prcplist", "N", "dsch" )) { // 수술료 처방 체크 블러킹
            return;
        } 
        preDsch(); // 퇴원예고
    } else if ( buttonValue == "09") { //통합예약
        fPrcpModal ( "SMAEA02000", 0, 60 );
    } else if ( buttonValue == "10") { //Medical Reference
        fPrcpModal ( "SMMMD05200", 0, 60 );
    } else if ( buttonValue == "11") { //수술예약
        fPrcpModal ("SPMMO00200", 0, 80);
    } else if ( buttonValue == "12") { //외래예약   
    
        setParameter("SMPMO00300_PARM1", sOrdDeptCd); //진료과코드
        setParameter("SMPMO00300_PARM2", sOrddrId);   //진료의사코드
        setParameter("SMPMO00300_PARM3", sPid);       //환자번호   

                    
        fPrcpModal ("SMPMO00300", 0, 80);
    } else if ( buttonValue == "13") { //환자정보
        
        fPrcpModal ( "SMMMO02500", 0, 60 );

    } else if ( buttonValue == "14") { //외출외박
        if ( sPrcpGenrFlag != "O" ) {
            model.setValue ( "/root/hidden/target/pid"  ,  sPid );
            model.setValue ( "/root/hidden/target/indd" ,  sOrdDd );
            model.setValue ( "/root/hidden/target/cretno", sCretno );
            model.setValue ( "/root/hidden/target/hngnm" , model.getValue ( "/root/paminfo/list/hngnm") );

            var xpt = window.screenleft + 10;
            var ypt = window.screenTop + 10;

            var coord = getRelativeCoordinate ( xpt, ypt );
            var mon = coord[0];
            xpt = coord[1];
            ypt = coord[2];

            modal ( "../../../pam/inordamtmngtweb/xrw/SPPMI01100",mon,xpt,ypt, "SPPMI01100", "/root/hidden/target", "/root/hidden/target", "", false );
        } else {
            messageBox ( "외래환자에는 사용", "E001" );
        }

    } else if ( buttonValue == "15") { //전과신청
        if ( sPrcpGenrFlag != "O" && sPrcpGenrFlag != "S" ) {
            if (fContainsHardCD("341", "Y") && checkRtnDrug()) { // 간호 반납약 체크, 하드코드 341 체크
                return;
            } 
            
            model.setValue ( "/root/hidden/target/pid",    sPid);
            model.setValue ( "/root/hidden/target/indd",   sOrdDd );
            model.setValue ( "/root/hidden/target/cretno", sCretno);
            model.setValue ( "/root/hidden/target/hngnm",  model.getValue ( "/root/paminfo/list/hngnm" ));

            var xpt = window.screenleft + 10;
            var ypt = window.screenTop + 10;

            var coord = getRelativeCoordinate ( xpt, ypt );
            var mon = coord[0];
            xpt = coord[1];
            ypt = coord[2];

            modal ( "../../../pam/inordamtmngtweb/xrw/SPPMI02700",mon,xpt,ypt, "SPPMI02700", "/root/hidden/target", "/root/hidden/target", "", false );
        } else {
            messageBox ( "외래환자에는 사용", "E001" );
        }
    } else if ( buttonValue == "16") { //항생제 
        fPrcpModal("SPMMD01600", 20, 50);               
    } else if ( buttonValue == "17") { //수술장부
        var hngnm    = model.getValue("/root/paminfo/list/hngnm");
        var sex      = model.getValue("/root/paminfo/list/sex");
        var age      = model.getValue("/root/paminfo/list/age");
        var insukind = model.getValue("/root/paminfo/list/insukind");
        var suppkind = model.getValue("/root/paminfo/list/suppkind");
        
        var param    = sPid       + "▦" + 
                       hngnm      + "▦" + 
                       sex        + "▦" + 
                       age        + "▦" + 
                       insukind   + "▦" + 
                       suppkind   + "▦" + 
                       sOrdDd     + "▦" + 
                       sOrdDeptCd + "▦" +
                       sPrcpGenrFlag;
        setParameter("SMMMO05700_param", param);
        modal("SMMMO05700");
    } else if ( buttonValue == "18") { //통합결과조회
        var xpt = window.screenleft + 10;
        var ypt = window.screenTop + 10;

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        open("SMAER00800", mon, xpt, ypt, "SMAER00800", "/root/source/pid", "/root/paminfo/list/pid");
    } else if ( buttonValue == "19") { //self 처방 조회 버튼 추가 20100520 by LYJ
        var xpt = window.screenleft + 10;
        var ypt = window.screenTop + 10;

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        setParameter ( "SPMMO19300_prcp", "prcpbtn");
        modal("SPMMO19300", mon, xpt, ypt, "SPMMO19300", "/root/paminfo/list", "/root/paminfo/list/pid");
        focusMain ( grd_prcplist.row );
    }
}

/**
* 간호반납 요청 처방 체크
*/
function checkRtnDrug(){
    var bRtn = false;
    var sPrcpGenrFlag = model.getValue ("/root/patflag/list/prcpgenrflag");
    
    if (sPrcpGenrFlag == "I") {
        var sPid       = model.getValue("/root/paminfo/list/pid");
        var sOrdDd     = model.getValue("/root/paminfo/list/indd");
        var sCretno    = model.getValue("/root/paminfo/list/cretno"); 
        var sOrdDeptCd = model.getValue("/root/paminfo/list/orddeptcd");    
        
        model.makeValue("/root/checkrtndrug/reqdata/pid",       sPid);
        model.makeValue("/root/checkrtndrug/reqdata/orddd",     sOrdDd);
        model.makeValue("/root/checkrtndrug/reqdata/cretno",    sCretno);
        model.makeValue("/root/checkrtndrug/reqdata/orddeptcd", sOrdDeptCd);
        
        submit("TRMMO00146", false);
        
        if( model.getValue ( "/root/checkrtndrug/rtndata/rtnyn" ) == "Y") { // 반환요청 처방이 존재 하면
            bRtn = true;
            if ("6" == messageBox ( "확인 되지 않은 간호반납 요청 처방이 존재하여 진행 할수 없습니다.\n\n반납 요청 처방을 확인 하시겠습니까?", "Q999" )) {
                fDrugPrcpDc();
            }
        }
    }
    
    return bRtn
}

/**
*퇴원예고창 
*/
function preDsch(){
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if ( prcpgenrflag == "O" ) {
        messageBox ( "외래환자에는 사용", "E001" );
        return;
    } else {
        fPrcpModal ( "SPMMO00400", 55, 60 );                           
    }
     
    var useyn = getParameter("SPMMO00400_rtn_useyn");
     
    if(useyn == "Y"){
        setParameter("SPMMO00400_rtn_useyn", "");

        //상단올리기
        fDschNotiInit();
        var pamInfoCvs = getGlobalVariable("paminfo");  
        var insukindcd = getPatientInfoDetail("insukind");
        var vopt_insuinfo = "";
        if(pamInfoCvs != null){ //cvs가 null이 아닌 경우에만 처리함.
            model.removeNodeSet ( "/root/paminfo/list" ); //상단화면 정보 초기화
            setCSVToNode ( "/root/paminfo", pamInfoCvs );
            model.setValue ( "/root/init/pid", model.getValue ( "/root/paminfo/list/pid" ));
             
            var vopt_patinfo  = model.getValue ( "/root/paminfo/list/dispnm2" ) + " " + model.getValue ( "/root/paminfo/list/sex" ) + "/" + model.getValue ( "/root/paminfo/list/age" );
            if ( model.getValue ( "/root/paminfo/list/roomcd" ) != "" ){
                vopt_patinfo = vopt_patinfo + " " + model.getValue ( "/root/paminfo/list/roomcd" ) + "호";
            }
            if (insukindcd == "21"){
               vopt_insuinfo = "[의료급여1]";
            } else if (insukindcd == "22"){
               vopt_insuinfo = "[의료급여2]";
            } else if (insukindcd == "81"){
               vopt_insuinfo = "[장기요양]";
            } else {
               vopt_insuinfo =   "[" + getPatientInfo("insukind") + "]" ;
            }
            model.setValue ( "/root/init/insuinfo", vopt_insuinfo );
            
            if ( insukindcd == "31" || insukindcd =="41"){
               if (getPatientInfoDetail("ioflag") == "O"){
                   messageBox ( "자보/산재 환자입니다. \n관련 처방을 모두 [급여]로 처방하여 주시기 바랍니다.\n기왕증은 건강보험으로 재접수하여 처방해 주시기 바랍니다.", "I" );
               } else {
                   messageBox ( "자보/산재 환자입니다. \n관련 처방은 모두 [급여]로 처방하여 주시기 바랍니다. \n그 외 처방은 처방 상세팝업에서 기왕증 체크 후 처방해 주시기 바랍니다.", "I" );
               }
            }
            model.setValue ( "/root/init/patinfo", vopt_patinfo );
        }
        
        var patFlagCvs = getGlobalVariable("patflag");
        if(patFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
            model.removeNodeSet ( "/root/patflag/list" ); //상단화면 정보 초기화
            setCSVToNode ( "/root/patflag", patFlagCvs );
            prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
        }
         
        
         //환자리스트 불러오기
        var mainObj = getMainViewer();
        var ordPatObj = mainObj.javascript.getOpenWindow("SMMMO04100");   //현재 활성화된 진료대상자 화면 객체                
        if(ordPatObj == null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
            mainObj.javascript.open("SMMMO04100",1, 200, 100);
        } else {
            ordPatObj.javascript.fPrcpCallPatList();
        }
         
        if( model.getValue("/root/cp") == "Y" ){
            if( model.getValue("/root/temp1/getdata/appstat") == "50" ){
                fOpenPrcpWindow();
                return;
            } else {
                if( model.getValue("/root/temp1/getdata/prtlflagcd") != "02" ){  //CP면 퇴원처방 자동발행
                    btn_cpbatch.dispatch("DOMActivate");
                } else {
                    btn_inqr.dispatch("DOMActivate"); //CPG면 문진팝업 호출 (2010.04.16 JJE)
                }
            }
        }
    }
}


/**
 * @desc   : 전처방에서 급비변경후 환자정보 다시 SETTING
 * @return : void
 * @authur : 마정민 2007. 9. 10
 */

function fInitPaminfo() {

    //ioflag▦pid▦orddd▦cretno▦instcd▦acptseqno▦orgorddd▦
    //외래/입원구분▦등록번호▦진료일자▦생성번호▦기관코드▦등록일련번호▦원진료일자▦
    var ioflag = model.getValue ( "/root/paminfo/list/ioflag" );

    if ( ioflag == "O" || ioflag == "S" )    {
        var pid = model.getValue ( "/root/paminfo/list/pid" );
        var orddd = model.getValue ( "/root/paminfo/list/orddd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );
        var acptseqno = model.getValue ( "/root/paminfo/list/acptseqno" );
        var orgorddd = model.getValue ( "/root/paminfo/list/orgorddd" );                    
        setParameter("condparam", ioflag + "▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + acptseqno + "▦" + orgorddd );
    } else {
        //ioflag▦pid▦indd▦cretno▦seqno▦instcd▦
        //외래/입원구분▦등록번호▦입원일자▦생성번호▦일련번호▦기관코드
        var pid = model.getValue ( "/root/paminfo/list/pid" );
        var indd = model.getValue ( "/root/paminfo/list/indd" );
        var cretno = model.getValue ( "/root/paminfo/list/cretno" );
        var instcd = model.getValue ( "/root/paminfo/list/instcd" );
        var seqno = model.getValue ( "/root/paminfo/list/seqno" );
        var prcpdd = model.getValue ( "/root/init/prcpdd" );
        setParameter("condparam", ioflag + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + prcpdd);
    }

    modal("SPMMO08900");

    var useyn = getParameter("SPMMO08900_rtn_useyn");
    if(useyn == "Y"){
        setParameter("SPMMO08900_rtn_useyn", "");

      var pamInfoCvs = getGlobalVariable("paminfo");  
      
      if(pamInfoCvs != null){ //cvs가 null이 아닌 경우에만 처리함.
          model.removeNodeSet ( "/root/paminfo/list" ); //상단화면 정보 초기화
          setCSVToNode ( "/root/paminfo", pamInfoCvs );
      }

      var patFlagCvs = getGlobalVariable("patflag");      
      
      if(patFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
          model.removeNodeSet ( "/root/patflag/list" ); //상단화면 정보 초기화
          setCSVToNode ( "/root/patflag", patFlagCvs );
      } 
      

      var operationFlagCvs = getGlobalVariable("operation");  
      if(operationFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
          model.removeNodeSet ( "/root/operation/list" ); //상단화면 정보 초기화
          setCSVToNode ( "/root/operation", operationFlagCvs );
      } 
    }

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

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

        var orddd = "";
        if (model.getValue ( "/root/paminfo/list/ioflag" ) == "O" || model.getValue ( "/root/paminfo/list/ioflag" ) == "S") {
            orddd = model.getValue ( "/root/paminfo/list/orddd" );
        } else {
            orddd = model.getValue ( "/root/paminfo/list/indd" );
        }

        model.setValue ( "/root/send/cond1",  model.getValue ( "/root/paminfo/list/pid" ));
        model.setValue ( "/root/send/cond2",  orddd);
        model.setValue ( "/root/send/cond3",  model.getValue ( "/root/paminfo/list/cretno" ));
        model.setValue ( "/root/send/cond4",  model.getValue ( "/root/paminfo/list/instcd" ));
        model.setValue ( "/root/send/cond5",  "drugdcprcp");
        model.setValue ( "/root/send/cond6",  "");
        model.setValue ( "/root/send/cond9",  "DC");
        model.setValue ( "/root/send/cond99",  "getBfPrcpSrchInfo");
        submit ( "TRMMO00100", false );

        var xpt = window.screenleft + 100;
        var ypt = window.screenTop + 100;

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

        var srcNodeList = model.instances(0).selectNodes( "/root/prcpsrch/prcplist" );
        if ( srcNodeList.length > 0 ) {
            fCpInPrcpVisible();
            setParameter ( "SPMMO00700_rtn1", "drugdc" );
            modal ( "SPMMO00700", mon,  xpt, ypt, "prcpdetl", "/root/prcpsrch", "/root/main/prcp", "", false );
            setParameter ( "SPMMO00700_rtn1", "" );
        }
    }
}

/**
 * @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.javascript.getParameter ( "SMMMR03700_paramyn" ) == "Y" ) {
        model.setValue ( "/root/anst/paramyn", "Y" );
        model.setValue ( "/root/anst/opansflagcd", opener.javascript.getParameter ( "SMMMR03700_opansflagcd" ));
        model.setValue ( "/root/anst/ansttm", opener.javascript.getParameter ( "SMMMR03700_ansttm" ));
        model.setValue ( "/root/anst/anstfromdt", opener.javascript.getParameter ( "SMMMR03700_anstfromdt" ));
        model.setValue ( "/root/anst/ansttodt", opener.javascript.getParameter ( "SMMMR03700_ansttodt" ));
        model.setValue ( "/root/init/prcpkindcd", "35" );  //수술 중 처방으로 setting
        model.setValue ( "/root/init/prcpinptflag", "27" ); //마취기록에서 호출한 처방
        //마취의, 특진의여부 추가 by sonjy 20080925  start
        model.makeValue ( "/root/anst/anst_drid"        , opener.javascript.getParameter ( "SMMMR03700_anstdrid" ));  //마취의 1 setting 
        model.makeValue ( "/root/anst/anst_specordflag" , opener.javascript.getParameter ( "SMMMR03700_refseq" )); //마취의 1 특진의 여부  
        //마취의, 특진의여부 추가 by sonjy 20080925  end
        cmb_prcpkind.disabled = true;
        cmb_prcpkind.refresh();
    }

    var SMMMR03700_prcp = opener.javascript.getParameter ( "SMMMR03700_prcp" );
    opener.javascript.setParameter ( "SMMMR03700_prcp", "" );
    if ( !isNull(SMMMR03700_prcp) && !isNull(model.getValue ( "/root/paminfo/list/pid" ))) {
        var prcpcd = "";
        var prcpvol = "";
        var drugmthdcd = "";
        var mthdcnts = "";
        var prcplen = SMMMR03700_prcp.split("▩").length;

        for ( var i=1; i < prcplen-1; i++ ) {
            appendChildPrcp ( "/root/reset/anstprcplist", "/root/anstprcp", "main" ); //검색라인추가 
            prcpcd = getArrayData ( SMMMR03700_prcp, i, 0, "▩", "▦" );
            prcpvol = getArrayData ( SMMMR03700_prcp, i, 1, "▩", "▦" );
            drugmthdcd = getArrayData ( SMMMR03700_prcp, i, 2, "▩", "▦" );
            mthdcnts = getArrayData ( SMMMR03700_prcp, i, 3, "▩", "▦" );
            model.setValue ( "/root/anstprcp/anstprcplist[" + i + "]/prcpcd", prcpcd );
            model.setValue ( "/root/anstprcp/anstprcplist[" + i + "]/prcpvol", prcpvol );
            model.setValue ( "/root/anstprcp/anstprcplist[" + i + "]/drugmthdcd", drugmthdcd );
            model.setValue ( "/root/anstprcp/anstprcplist[" + i + "]/mthdcnts", mthdcnts );

            model.setValue ( "/root/anstprcp/anstprcplist[" + i + "]/prcpdd",  model.getValue ( "/root/init/prcpdd" ));
            model.setValue ( "/root/anstprcp/anstprcplist[" + i + "]/insukind", model.getValue ( "/root/paminfo/list/insukind"));
        }

        var saveInfo = model.instances(0).selectNodes( "/root/anstprcp/anstprcplist" );
        model.setValue ( "/root/send/cond1", getNodeListCSV (saveInfo)); 
        submit ( "TRMMO00115", false ); 
        var srcNodeList = model.instances(0).selectNodes( "/root/prcpsrch/prcplist" );
        for (var i=1; i<=srcNodeList.length; i++) {
            model.setValue ( "/root/prcpsrch/prcplist[" + i + "]/prcpexecdeptcd", model.getValue("/root/initsrch/opanstdeptcd/trgtcd")  );
        }
        //prcpinptflag 27 마취기록
        addPrcp ( "import", "/root/prcpsrch/prcplist", "/root/main/prcp",  "Y", "status", "", grd_prcpsrchlist, "N", "27");
    }
}
    
function fPrcpSaveChkBf( prcpchkflag ) {

    var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
    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 restantimicyn = "";
    var restantimicyncnt = 0;  
    var sTestreqlnkno = ""; 
    var drugbatchcnt = "";
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    var savecnt = 0;    
    var prcpdschcnt = 0; //by sonjy 2008-07-30 중증등록암 관련 추가 퇴원처방 여부.    
    var antideptcd = ""; //by sonjy 2008-08-12 항암제 및 퇴원후 외래/입원전검사처방시 수행부서setting.
    
    ocrcalcscorcd = "";
    lglydisprcpyn = "N";

    model.setValue ( "/root/init/restantimicyn", "N" );
    model.setValue ( "/root/init/drugbatch", "N" );
    model.setValue ( "/root/init/prgtbooprcpyn", "N" );
    model.makeValue( "/root/save/saveflaginfo/judgtrgtchkyn", "N" );  //정밀 심사대상 약제(뇌대사개선제, 뇌혈류개선제, 뇌증상개선제) 체크 (2010.01.28 JJE)
    model.makeValue( "/root/save/saveflaginfo/idementiachk", "" );      //by sonjy 20100420 / 치매약제(dementia drug) 복용 시 FF621601 검사 처방 ALERT 팝업 메시지 요청(외래, 신경과인 경우만 체크)
    model.makeValue( "/root/save/saveflaginfo/idementiachkcode", "" );  //by sonjy 20100420 / 치매약제(dementia drug) 복용 시 FF621601 검사 처방 ALERT 팝업 메시지 요청(외래, 신경과인 경우만 체크)
    
    model.removeNodeset ( "/root/prcper/prcplist" );
    
    //kimsj 수혈동의서 동의서 유무, 마지막 수혈일 체크
    var bldFind         = "N";
    var ocrbldexists    = "";  // 수혈동의서 존재 여부
    var ocrbldprnt      = model.getValue ( "/root/initsrchprcp/prcpetccnts/ocrbldprnt" );    
    var ocrbldprntArray = ocrbldprnt.split("|");
    var ocrbldynhrcd    = "N"; // 수혈동의서 확인메시지 사용여부[병원별]
    reqHardCodeInfo("/root/hidden/ocrbldynhrcd", "/root/hidden/ocrbldynhrcd", "198");
    ocrbldynhrcd = model.getValue("/root/hidden/ocrbldynhrcd/hardcd/hardcd");
    
    for (var i=1; i<=srcNodeList.length; i++) {

        if (model.getValue ( "/root/main/prcp/prcplist[" + i + "]/status" ) == "S" ) continue;
        if (model.getValue ( "/root/main/prcp/prcplist[" + i + "]/status" ) == "D" ) continue;
        savecnt++;
        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol5", i );
        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol3", "" );
        prcpclscd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpclscd" );
        prcpsetcd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpsetcd" );
        drugmastspec = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/drugmastspec" );
        prcpkindcd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpkindcd" );
        prcpcd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpcd" );
        prcpexecdeptcd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd" );
        spcldrug = getArrayData ( drugmastspec + "^", 0, 23, "^", "|" ); 

        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpauthflag", model.getValue ( "/root/init/prcpauthflag" ));
        
        fPrintDyeFrm(i, prcpclscd, prcpcd); //@@@ 조영제 출력팝업 한번만 호출하도록 수정 (2010.07.22 JJE)
        if (model.getValue ( prcpNode + "[" + i + "]/testreqlnkno") == "DYENO" ) { // 처방취소 버튼 시 저장 중지 및  다시 저장 시 재 팝업 되도록 수정  20100818 LYJ
           setParameter("SPAER01900_popupYN", "N" );
           return false;
        }

        //처방검색 용량보정
        if( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
            var calcmthdcd   = getArrayData ( drugmastspec + "^", 0, 26, "^", "|" ); 
            var prcpinptflag = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpinptflag" );
           
            if ( calcmthdcd == 1 ) {
                var drprcpetc7 = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/drprcpetc7" );
                var drprcpetc8 = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/drprcpetc8" );
                var prcpvol = Math.floor( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpvol" )*100 );
                var prcpqty = Math.floor( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpqty" )*100 );
                var prcptims = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcptims" );
                var totqty = Math.floor( drprcpetc8*prcptims*100 );
                var totvol = Math.floor( drprcpetc7*prcptims*100 );
                
                if ( prcpqty != totqty ) {
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpvol", drprcpetc7 * prcptims  );
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpqty", drprcpetc8 * prcptims );
                }
                if ( prcpvol != totvol ) {
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpvol", drprcpetc7 * prcptims  );
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpqty", drprcpetc8 * prcptims );
                }                                                       
            } else {
                var drprcpetc7 = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/drprcpetc7" );
                var drprcpetc8 = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/drprcpetc8" );
                var prcpvol = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpvol" );
                var prcpqty = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpqty" );                     
               
                if ( prcpqty != drprcpetc8 ) {                          
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpvol", drprcpetc7   );
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpqty", drprcpetc8   );
                }
                if ( prcpvol != drprcpetc7 ) {
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpvol", drprcpetc7    );
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpqty", drprcpetc8   );
                }               
            } 
        }
                
        //********************************* 단독처방 불가약 메시지처리 ***********************************//
        var addprcpcd = model.getValue ( "/root/initsrch/independprcpimpsi[prcpcd='" + prcpcd + "']/addprcpcd" );
        if ( !isNull(addprcpcd)) {
            //같이 내야할 처방이 없으면 메시지 처리
            if (isNull (model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + addprcpcd + "']/prcpcd" ))) {
                var prcpmsg = model.getValue ( "/root/initsrch/independprcpimpsi[prcpcd='" + prcpcd + "']/prcpmsg" );
                messageBox ( prcpmsg, "E" );
                model.removeNode ( "/root/initsrch/independprcpimpsi[prcpcd='" + prcpcd + "']" );
            } 
        }
        
        //*************************** OCR 자동출력할 처방이 있는지 체크 **********************************//
        if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol13" ) == "Y" ) {
            // kimsj 수혈동의서 자동출력 
            if ( ocrbldynhrcd == "Y" ) {
                bldFind = "N";
                for( m=0; m < ocrbldprntArray.length; m++ ){ 
                    if( prcpcd == ocrbldprntArray[m]) { 
                        bldFind = "Y";
                        break;
                    } 
                }
                if ( bldFind == "Y" ) { // 수혈동의서일 경우
                    
                    if(isNull(ocrbldexists)) { // 수혈 동의서 존재 여부 한번만 체크 하도록
                        if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
                            var orddd = model.getValue ( "/root/paminfo/list/orddd" );
                        } else {
                            var orddd = model.getValue ( "/root/init/prcpdd" );               
                        }
                        
                        model.makeValue("/root/send/reqdata/ocrbld_pid"    , model.getValue("/root/paminfo/list/pid"));
                        model.makeValue("/root/send/reqdata/ocrbld_orddd"  , orddd);
                        model.makeValue("/root/send/reqdata/ocrbld_ioflag" , prcpgenrflag);
                        model.makeNode("/root/hidden/ocrbldyn"); 
                        submit("TRMMO00132");
                        
                        model.removenode("/root/send/reqdata/ocrbld_pid");
                        model.removenode("/root/send/reqdata/ocrbld_orddd");
                        model.removenode("/root/send/reqdata/ocrbld_ioflag");
                        
                        ocrbldexists = model.getValue ( "/root/hidden/ocrbldyn/ocrbldyn/ocryn" );
                    }
                    
                    if ( ocrbldexists == "D" || ocrbldexists == "N") { // 동의서가 없거나 불출일 60일(입원55일) 경과
                        model.makeValue ( "/root/hidden/ocrbldyn/ocrbldyn/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( model.getValue("/root/cp") == "Y" && model.getValue("/root/main/prcp/prcplist[" + i + "]/status") == "-" ){
                if( model.getValue("/root/main/prcp/prcplist[" + i + "]/prcphistcd") == "T" ) {
                    prcpkindchk++;
                }
            }else{
                prcpkindchk++;
            }
        } else if ( prcpkindcd == "60" ) {
            prcpdschcnt++; // by sonjy 2008-07-30 중증등록암관련...퇴원처방 여부.
        }

        if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
            //제한항생제체크
            /*
            restantimicyn = getArrayData ( drugmastspec + "^", 0, 16, "^", "|" );
            if ( restantimicyn == "Y" ){
                restantimicyncnt++;
            } else if (restantimicyn == "N" && prcpgenrflag != "O" && spcldrug == "P") {
                restantimicyncnt++;
            }
            */
            
            //법정전염병체크
            if ( prcpcd == "DW-CY250" || prcpcd == "DPTA125" || prcpcd == "DMBT400" || prcpcd == "DINH100" || prcpcd == "DPZ500" ) {
                lglydisprcpyn = "Y";
            }

            //************************* 약시행부서 setting ***********************//
            //입원일 경우 시행부서 병동약국
            if ( prcpgenrflag != "O" && model.getValue ( "/root/main/prcp/prcplist[" + i + "]/inclprcpno") == "0" ) {
                //2008-01-24 김지연 선생님요청에 의해 수정 원일일 때는 
                
                //항암제 및 항암제와 mix인 경우는 항암제의 시행부서로. by sonjy 2008-08-12 김은희 약사 요청.
                //퇴원후 외래 및 입원전검사의 경우 외래이므로 바꾸지 않는다. by sonjy 2008-08-12 서소영 mit 요청
                antideptcd = fDrugDeptcdChk( "/root/main/prcp", i) ; 
                model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", antideptcd);
            }

            //복막투석액(spcldrug=K) 일 경우 인공신장실 복막투석가로 SETTING   
            if ( spcldrug  == "K" && model.getValue ( "/root/main/prcp/prcplist[" + i + "]/precureprcpflag" ) == "Y" ) {
                model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", "2010702030" ); 
            }
            //************************* 약시행부서 setting 끝 *********************//
            
            //20081212 by sonjy 윤영옥 선생님 요청사항 상기도 감염시 항생제처방 제한
            if(prcpgenrflag == "O"  ){
                if( !fChkInfecLimAntiDrug( "/root/main/prcp/prcplist" , i  ) ) return false ;
            }
        } else if ( model.getValue ( "/root/addprcp" ) == "Y" && prcpclscd == "D2" && opener.window.javascript.getScreenID() == "SMAER00400" ) { //20080923 벙리처방의뢰지 번호
            if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/testreqlnkno" ) != 0 ){
                sTestreqlnkno = sTestreqlnkno + model.getValue ( "/root/main/prcp/prcplist[" + i + "]/testreqlnkno" ) + ",";
            }
        }
            
        //********************************* 선처치, 재료 시행부서 - 일 때 처리 *************************//
        if ( prcpexecdeptcd == "-" || isNull(prcpexecdeptcd)) {
            precureprcpflag = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/precureprcpflag" );
            if ( precureprcpflag == "Y" || prcpclscd == "M2" ) { //선처치, 재료일때 시행부서가 - 일 경우는 발행처를 시행부서로 넣어준다.
                model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", model.getValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd" ));
            }
        }
                       
        //마취 기록에서 띄우는 화면은 시행부서, 발행처 처리
        if ( model.getValue ( "/root/anst/paramyn") == "Y" ) {
            if ( prcpclscd != "B2" && prcpclscd != "B4" && prcpclscd != "B6" && prcpclscd != "C2" &&
                prcpclscd != "C4" && prcpclscd != "C6" && prcpclscd != "D2" && prcpclscd != "E2" ) {
                var oproomcd = model.getValue("/root/operation/list/oproomcd");
                var dscDeptcd = model.getValue("/root/init/operationroominfo/hardcd[hardcd = '" + oproomcd + "']/hardcdnm");
                if (dscDeptcd != "") {
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", dscDeptcd);       //일일수술실
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", dscDeptcd);  //일일수술실                                  
                } else {
                    if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prnprcpflag" ) == "Y" ) {
                        //20080913 마정민수정: 이훈재과장의 요청으로 발행부서(issdeptcd) 마취통증의학과(2090000000)에서 회복실, 수술실마취로 수정
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", model.getValue("/root/initsrch/recovdeptcd/trgtcd") );       //회복실
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", model.getValue("/root/initsrch/recovdeptcd/trgtcd") );  //회복실        
                    } else {
                        //20100609 수술중처방 집계 관련 보완. 시행부서가 회복실, 수술실이면 그대로 두고 아니면 수술실마취로 세팅.
                        if ( model.getValue("/root/main/prcp/prcplist["+i+"]/prcpexecdeptcd") == model.getValue("/root/initsrch/recovdeptcd/trgtcd") || 
                            model.getValue("/root/main/prcp/prcplist["+i+"]/prcpexecdeptcd") == model.getValue("/root/initsrch/opdeptcd/trgtcd") ) {
                            model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", model.getValue("/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd") );
                        } else {
                            model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", model.getValue("/root/initsrch/opanstdeptcd/trgtcd") );       //수술실 마취
                            model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", model.getValue("/root/initsrch/opanstdeptcd/trgtcd") );  //수술실 마취       
                        }
                    }
                }
            }
        }  
                 
        //20080917 마정민수정: 마취과 의사가 내지 않는 수술중 처방은 모두 수술실로 처리한다.
        if ( prcpkindcd == "35" && getUserInfo( "dutplcecd" ) != model.getValue("/root/initsrch/anstdeptcd/trgtcd") && model.getValue ( "/root/anst/paramyn") != "Y" ) {
            if ( prcpclscd != "B2" && prcpclscd != "B4" && prcpclscd != "B6" && prcpclscd != "C2" &&
                prcpclscd != "C4" && prcpclscd != "C6" && prcpclscd != "D2" && prcpclscd != "E2" && 
                prcpclscd != "F2" && prcpclscd != "G2") {
                    var oproomcd = model.getValue("/root/operation/list/oproomcd");
                    var dscDeptcd = model.getValue("/root/init/operationroominfo/hardcd[hardcd = '" + oproomcd + "']/hardcdnm");
                    if (dscDeptcd != "") {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", dscDeptcd);       //일일수술실
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", dscDeptcd);  //일일수술실                                  
                    } else {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", model.getValue("/root/initsrch/opdeptcd/trgtcd"));       //수술실
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", model.getValue("/root/initsrch/opdeptcd/trgtcd"));  //수술실      
                    }
            }
        }

        //20080920 마정민수정: 수술환자 리스트에서 마취과 의사가 낸 수술중 처방은 수술실 마취
        if ( !isNull(model.getValue ( "/root/operation/list/oprsrvno")) &&
              prcpkindcd == "35" && 
              getUserInfo( "dutplcecd" ) == model.getValue("/root/initsrch/anstdeptcd/trgtcd") && 
              model.getValue ( "/root/anst/paramyn") != "Y" ) {
            if ( prcpclscd != "B2" && prcpclscd != "B4" && prcpclscd != "B6" && prcpclscd != "C2" &&
                prcpclscd != "C4" && prcpclscd != "C6" && prcpclscd != "D2" && prcpclscd != "E2" ) {
                    
                var oproomcd = model.getValue("/root/operation/list/oproomcd");
                var dscDeptcd = model.getValue("/root/init/operationroominfo/hardcd[hardcd = '" + oproomcd + "']/hardcdnm");
                if (dscDeptcd != "") {   // 수술방이 일일수술실일 경우는 무조건 일일수술실로 한다. : 20110711 김영학
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", dscDeptcd);       //일일수술실
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", dscDeptcd);  //일일수술실  
                                                    
                } else if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prnprcpflag" ) == "Y" ) {
                    //20080913 마정민수정: 이훈재과장의 요청으로 발행부서(issdeptcd) 마취통증의학과(2090000000)에서 회복실, 수술실마취로 수정
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", model.getValue("/root/initsrch/recovdeptcd/trgtcd") );       //회복실
                    model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", model.getValue("/root/initsrch/recovdeptcd/trgtcd") );  //회복실        
                } else {
                    //20100609 수술중처방 집계 관련 보완. 시행부서가 회복실, 수술실이면 그대로 두고 아니면 수술실마취로 세팅.
                    if ( model.getValue("/root/main/prcp/prcplist["+i+"]/prcpexecdeptcd") == model.getValue("/root/initsrch/recovdeptcd/trgtcd") || 
                        model.getValue("/root/main/prcp/prcplist["+i+"]/prcpexecdeptcd") == model.getValue("/root/initsrch/opdeptcd/trgtcd") ) {

                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", model.getValue("/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd") );
                    } else {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/issdeptcd", model.getValue("/root/initsrch/opanstdeptcd/trgtcd") );       //수술실 마취
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcpexecdeptcd", model.getValue("/root/initsrch/opanstdeptcd/trgtcd") );  //수술실 마취       
                    }
                }
            }
        }

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

    if ( restantimicyncnt > 0 ) {
        model.setValue ( "/root/init/restantimicyn", "Y" ); 
    }
    if ( drugbatchcnt > 0 ){
        model.setValue ( "/root/init/drugbatch", "Y" ); 
        var tuningyn = getTuningYn(); //튜닝 적용여부를 실시간으로 가져와서 체크한다. 2013-03-12 by 박황백 
        if(tuningyn == "Y"){
        	 model.makeValue( "/root/save/saveflaginfo/drugbatch", "Y" );
        }
    }
    
    if (!isNull(sTestreqlnkno)) {
        opener.javascript.setParameter ( "SMAER00400_patholno", sTestreqlnkno );
    }

    //************************************** 퇴원후 외래처방 체크 *********************//    
    //퇴원처방발행 여부 by sonjy 2008-07-30 (중증등록암관련)
    model.makeValue ( "/root/hidden/dschprcpyn", "N" ); 
    if( prcpdschcnt > 0) model.makeValue ( "/root/hidden/dschprcpyn", "Y" ); 
    
    if ( prcpkindchk > 0  && prcpgenrflag != "O" ) {
        if( getParameter("SMMMP00800_cpsaveflag") == "T" && model.getValue("/root/init/prcpdd") > getCurrentDate() ){
            return true;
        }
        return fFollowUp();
    }

    return true;
}

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

/**
 * @desc   : 그룹 all size prcp popup
 * @return : void 11
 * @authur : 마정민 2007.10.02     
 */
 function fGroupAllSizePrcpPop (srchRow) {

    if ( isNull(srchRow)) {
        srchRow = grd_prcplist.row;
    }
    //그룹처방일 때는 그 안에 all size 재료 처방이 있는지 찾는다.
    if ( model.getValue( "/root/main/prcp/prcplist[" + srchRow + "]/grupsnglflag" ) == "G" ) {

        model.setValue ( "/root/send/cond1", model.getValue( "/root/main/prcp/prcplist[" + srchRow + "]/prcpcd" ));
        model.setValue ( "/root/send/cond2", model.getValue ( "/root/init/prcpdd" ));
        model.setValue ( "/root/send/cond3", getUserInfo("dutplceinstcd"));
        submit ( "TRMMO00118", false );

        if ( !isNull(model.getValue ( "/root/allsizegrupprcp/allsizegrupprcplist/prcpcd"))){
            var xpt = window.screenleft + 100;
            var ypt = window.screenTop + 50;                    
            var coord = getRelativeCoordinate ( xpt, ypt );
            var mon = coord[0];
            xpt = coord[1];
            ypt = coord[2];
            if ( model.getValue ( "/root/main/prcp/prcplist[" + srchRow + "]/matrsetprcpspec") != "-" ) {
                setParameter ( "SPMMO14200_param1", model.getValue ( "/root/main/prcp/prcplist[" + srchRow + "]/matrsetprcpspec"));
            }
            model.refresh();
            modal ( "SPMMO14200", mon,  xpt, ypt, "SPMMO14200", "/root/allsizegrupprcp", "/root/allsizegrupprcp", "", false );
            clearParameter (  "SPMMO14200_param1" );
            if ( !isNull(getParameter ( "SPMMO14200_matrsetprcpspec" ))) {
                model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/matrsetprcpspec", getParameter ( "SPMMO14200_matrsetprcpspec" ));
                fPrcpUpdate();
                clearParameter ( "SPMMO14200_matrsetprcpspec" );
            }
        }
    }
}

/**
 * @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 = model.getValue ( prcpNode + "[" + srchRow + "]/prcpessninptflag");
        var prnprcpflag = model.getValue ( prcpNode + "[" + srchRow + "]/prnprcpflag");
        var selfprcpflag = model.getValue ( prcpNode + "[" + srchRow + "]/selfprcpflag");
        var prcpcd = model.getValue ( prcpNode + "[" + srchRow + "]/prcpcd");
        var drugmastspec = model.getValue ( prcpNode + "[" + srchRow + "]/drugmastspec");
        var tempcol2 = model.getValue ( prcpNode + "[" + srchRow + "]/tempcol2");
        var tempcol24 = model.getValue ( prcpNode + "[" + srchRow + "]/tempcol24");
      
        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" && ( !isNull(choiordClscdautoyn) || !isNull(choiordPrcpcdautoyn))) {      
            fChgChoiDr ( "auto", srchRow );
        }

        if ( prcpessninptflag == "1" || prcpessninptflag == "2" || prcpessninptflag == "3" || prcpessninptflag == "4" || prcpessninptflag == "5" ){
            var pid = model.getValue ( "/root/paminfo/list/pid" );
            var indd = model.getValue ( "/root/paminfo/list/indd" );
            var cretno = model.getValue ( "/root/paminfo/list/cretno" );
            var ordtype  = model.getValue ( "/root/paminfo/list/ordtype" );
            
            if ( ordtype == "O" || ordtype == "S" ) {
                var prcpgenrflag = "O";
            } else {
                var prcpgenrflag = "I";
            }

            model.setValue ( "/root/send/cond1", pid );
            model.setValue ( "/root/send/cond2",  indd );
            model.setValue ( "/root/send/cond11",  cretno );
            model.setValue ( "/root/send/cond9",  prcpgenrflag );
            
            submit("TRMMO00130");
            var opansCnt = model.getValue ("/root/opanssrch/opansinfo/opanscnt");
            
            for (var i=1; i < grd_prcplist.rows; i++) {  
                if ( i != srchRow && model.getValue ( prcpNode + "[" + i + "]/prcpclscd") == "H2" && 
                     (model.getValue ( prcpNode + "[" + i + "]/prcpessninptflag") == "3" || model.getValue ( prcpNode + "[" + i + "]/prcpessninptflag") == "5" )) {
                        opansCnt++; 
                }
            }
            
            if (opansCnt == 0 && model.getValue ( prcpNode + "[" + srchRow + "]/opansflagcd") == "-") {
                model.setValue ( prcpNode + "[" + srchRow + "]/opansflagcd", "4" ); //주수술
            }
            
            fCpInPrcpVisible();
            model.refresh();
            fPrcpDetl( srchRow, "", "480", "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 = model.getValue ( prcpNode + "[" + srchRow + "]/tempcol2").substring ( 0, 2 );
            if (ck=="19"||ck=="20"||ck=="21"||ck=="22"||ck=="23"||ck=="24"||ck=="25"||ck=="26" || model.getValue ( prcpNode + "[" + srchRow + "]/tempcol2") == "18|02|06") {
                fCpInPrcpVisible();
                model.refresh();
                fPrcpDetl( srchRow, "", "480", "auto" );
            }
        } else if ( prcpclscd == "C6") {
            /* 20090717 kimsj(핵의학 류형기)
            * PET CT처방 임상소견 필수입력위한 자동팝업 추가 (수익분류3 기타인 경우 제외) 
            * 핵의학(09)-감마영상검사(09)-근골격(04) 임상소견 필수입력위한 자동팝업 추가 2013.02.06 엄영만
            */
            var ck = model.getValue ( prcpNode + "[" + srchRow + "]/tempcol2").substring ( 0, 5 );
            var dk = model.getValue ( prcpNode + "[" + srchRow + "]/tempcol2").substring ( 6, 8 );
            if ( (ck == "09|02" && dk != "04") || (ck == "09|01" && dk == "04") ) {
                fCpInPrcpVisible();
                model.refresh();
                fPrcpDetl( srchRow, "", "480", "auto" );
            }
        }
                
        //CP 추가처방은 의뢰지 skip (2008.09.02 JJE)
        if( model.getValue("/root/cp") != "Y" ){
            fReqfrm ( srchRow, "copy" );
        }else{
            if( curSavePrcpFlag_SMMMO00110 != "T" ){    //CP화면에서 미래처방인 경우, 의뢰지 팝업 skip
                fReqfrm ( srchRow, "copy" );
            }
        }

        if ( prcpclscd == "B4" ) { //수혈 (혈액수혈)
            //수혈적응증 입력을 위해 수혈 상세팝업
            fPrcpDetl( srchRow, "", "480", "auto" ); // 무조건 상세팝업
            var addcnt = getParameter ( "SPMMO01500_addcnt" );
            clearParameter ( "SPMMO01500_addcnt" );  
            if ( addcnt != null && addcnt != 0 ) {
                srchRow = eval(srchRow) + eval(addcnt);
            }
        } else if ( prcpclscd == "03" ) {           // 식이일 때는 자동팝업
            var dietprcpgenrflag = model.getValue ( prcpNode + "[" + srchRow + "]/dietprcpgenrflag");
            if ( isNull(dietprcpgenrflag) || dietprcpgenrflag == "-" ) {
                fPrcpDetl( srchRow, "", "480", "auto" );
                if ( dietcnt != null && dietcnt != 0 ) {
                    srchRow = eval(srchRow) + eval(addcnt) -1;
                }
            }
        }

        var limprcpcd = model.getValue ( "/root/initsrch/prcpetccnts/limprcpcd" );
        if( prcpcd.charAt(0) != "*" ){ 
            iFind = limprcpcd.search( prcpcd );
        }
    } 

    if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
        var drprcpetc6 = model.getValue ( prcpNode + "[" + srchRow + "]/drprcpetc6");
        var drugmthdspccd = model.getValue ( prcpNode + "[" + srchRow + "]/drugmthdspccd");
        if ( isNull(drugmthdspccd) || drugmthdspccd == "-" ) {
            setParameter ( "SPMMO01900_srchRow", srchRow );
            fPrcpModal ( "SPMMO01900", 280, 100 );
            clearParameter ( "SPMMO01900_srchRow" );
        }
        if ( model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd")=="Y" &&  model.getValue ( "/root/cp" ) != "Y"){
             if (prnprcpflag == "Y"){//  2009.12.31  LYJ PRN처방 여부를 가려 횟수와 사유를 입력받는다.
                 var prnl = getArrayData ( drugmastspec, 0, 33, "^", "|" );
                 if (prnl=="N"){
                     messageBox ( "PRN 처방이 불가능한 처방입니다. PRN 지정을 자동 해지합니다." , "E" );
                     model.setValue ( prcpNode + "[" + srchRow + "]/prnprcpflag", "N" );
                     model.setValue ( prcpNode + "[" + srchRow + "]/tempprcpflag", "N" );
                     model.setValue ( prcpNode + "[" + srchRow + "]/prcpnm",model.getValue(prcpNode + "[" + srchRow + "]/orgprcpnm" ));
                     model.setValue ( prcpNode + "[" + srchRow + "]/drprcpetc6", "" );
                 }else {
                    if (drprcpetc6 == "-" || drprcpetc6 =="" ){
                        var prcpinptflag = model.getValue ( prcpNode + "[" + srchRow + "]/prcpinptflag");
                        var monitorNumber = app.monitorNumber;
                        var monitorResolutions = app.monitorResolution;
                        var monitorResolutionsArr = monitorResolutions.split('|');
                        var resolution = monitorResolutionsArr[monitorNumber-1];
                        var resolution_width = resolution.split(',')[0];
                        var resolution_height = resolution.split(',')[1];
                        var xpt = (resolution_width - 246) / 2;
                        var ypt = (resolution_height - 119) / 2;

                         setParameter ( "SPMMO19200_pop", "bfprcp" );
                         setParameter ( "SPMMO19200_prcpcd", model.getValue(prcpNode + "[" + srchRow + "]/prcpcd" ) );
                         setParameter ( "SPMMO19200_prcpnm", model.getValue(prcpNode + "[" + srchRow + "]/prcpnm" ) );
                         
                         modal("SPMMO19200",monitorNumber,xpt, ypt, "SPMMO19200", "/root/tmp/prnresncd", "/root/main/prcp/prcplist/prnresncd", "sysmenu:hidden;", false ); 

                         var popPrnyn = getParameter ( "SPMMO19200_rtn1" );
                         if (popPrnyn == "N") {
                             model.setValue ( prcpNode + "[" + srchRow + "]/prnprcpflag", "N" );
                             model.setValue ( prcpNode + "[" + srchRow + "]/prcpnm",model.getValue(prcpNode + "[" + srchRow + "]/orgprcpnm" ));
                             model.setValue ( prcpNode + "[" + srchRow + "]/tempprcpflag","N");
                             model.setValue ( prcpNode + "[" + srchRow + "]/drprcpetc6", "" );
                         }else {
                             var popResncd = getParameter("SPMMO19200_resncd");
                             var prnNum = getParameter("SPMMO19200_prnNum");
                             var prncmt =  getParameter("SPMMO19200_resncmt");
                             var Sprnprcpdtl = prnNum + "|" + popResncd + "|" + prncmt;
                             model.setValue ( prcpNode + "[" + srchRow + "]/drprcpetc6",Sprnprcpdtl );
                        }
                    }
                }
            }
        }
        
        if (prcpclscd == "A6" && selfprcpflag == "Y" ){ // 20101018 LYJ 주사제 상세용법 자동 팝업  
            var prcpClsCd = model.getValue ( prcpNode + "[ " + srchRow + "]/prcpclscd" );
            //var monitorResolutions = app.monitorResolution;
            //var monitorResolutionsArr = monitorResolutions.split('|');
            //var resolution = monitorResolutionsArr[monitorNumber-1];
            //var resolution_width = resolution.split(',')[0];
            //var resolution_height = resolution.split(',')[1];
            //var xpt = (resolution_width - 380) / 2; 
            //var ypt = (resolution_height - 119) / 2;

            var xpt = getScreenCenterPoint(0, 380);
            var ypt = getScreenCenterPoint(1, 119);
            
            modal ( "SPMMO01200", null,  xpt, ypt, "prcpdetl", prcpNode + "[" +  srchRow + "]", prcpNode, "sysmenu:hidden", false );
            
            if ( getParameter("SPMMO01200_selfprcpflag") == "N"){
                model.removeNode ( prcpNode + "[" +  srchRow + "]" );
                model.recalculate();
                grd_prcplist.refresh();
                clearParameter ( "SPMMO01200_selfprcpflag" );
                return srchRow-1;
            } else {
                fPrcpDetlApp ( prcpClsCd, "/root/prcptemp/prcplist", "/root/main/prcp", srchRow ); 
            }
        }
    } else if ( prcpclscd == "B2" || prcpclscd == "B6" ) { //진단검사 검체 팝업
         fGetSpc ( srchRow );
    } 

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

    //start: 영상 검사 자동팝업에서 취소를 한 경우, copy한 처방 취소 처리 (2010.02.02 JJE)
    if( getParameter("cnclCopyPrcpYN_Param") == "Y" ){
        model.removeNode ( prcpNode + "[" +  srchRow + "]" );
        model.recalculate();
        grd_prcplist.refresh();
        clearParameter ( "cnclCopyPrcpYN_Param" );
        return srchRow-1;
    }
    //end

    //  HLA검사 공여자 정보 등록.   
    // hardcode 170 처방 중 공여자가 등록될 시 자동 본인부담 처리 setValue는 화면단에서 2009.11.17 이윤정
    if ( model.getValue ( "/root/initsrch/pretest/trgtcd" ) == "Y" ) {
        if ( getParameter("SPMMO15600_srchRow") == "" ) {
            if ( !isNull(model.getValue ( "/root/initsrch/hlaprcpcd[prcpcd='" + prcpcd + "']/prcpcd" ))) {
                var hlaselfprcpcd = model.getValue("/root/initsrch/hlaselfprcpcd/trgtcd");
                setParameter("SPMMO15600_hlaselfprcpcd", hlaselfprcpcd);
                setParameter("SPMMO15600_srchRow", srchRow);
                modal ( "SPMMO15600" );
                
                var dnorAddcnt = getParameter("SPMMO15600_addcnt");
                clearParameter("SPMMO15600_srchRow");
                clearParameter("SPMMO15600_addcnt");
                srchRow = dnorAddcnt ;
            }
        }
    }

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

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

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

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

         for (var i=1; i < grd_prcplist.rows; i++) {        
            var chkPrcpmixno = model.getValue ( prcpNode + "[" + i + "]/prcpmixno" );
            //믹스번호가 있는 것중에
            if ( chkPrcpmixno != "-" && !isNull(chkPrcpmixno)) {
                //삭제를 제외하고 값이 한개 밖에 없으면 mix를 해제해 준다.
                var srcNodeList = model.instances(0).selectNodes ( prcpNode + "[prcpmixno='" + chkPrcpmixno + "']" );
                if ( srcNodeList.length <= 1) {
                    model.setValue ( prcpNode + "[" + 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 = grd_prcplist.selectedRows;
    var cnt = 0;
    for ( var i=selectedRows-1; i >= 0; i-- ){
        //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
        var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
        if ( selprcpclscd == "A6" ) {
            cnt++
        } else {
            grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;           
        }
    }

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

     for (var i=1; i < grd_prcplist.rows; i++) {        
        var chkPrcpmixno = model.getValue ( prcpNode + "[" + i + "]/prcpmixno" );
        //믹스번호가 있는 것중에
        if ( chkPrcpmixno != "-" && !isNull(chkPrcpmixno)) {
            //삭제를 제외하고 값이 한개 밖에 없으면 mix를 해제해 준다.
            var srcNodeList = model.instances(0).selectNodes ( prcpNode + "[prcpmixno='" + chkPrcpmixno + "']" );
            if ( srcNodeList.length <= 1) {
                model.setValue ( prcpNode + "[" + 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 = grd_prcplist.selectedRows;
    var cnt = 0;
    for ( var i=selectedRows-1; i >= 0; i-- ){
        //첫번째 SELECT 된 것을 기준으로 다른 것은 SELECT를 해제한다.
        var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
        if ( selprcpclscd == "A6" ) {
            cnt++
        } else {
            grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;           
        }
    }
    if ( cnt <= 1 ) {
        messageBox ( "Mix할 처방이 ", "E014");
    } else {
        var selectedRows = grd_prcplist.selectedRows;
        var prcpmixno = eval(model.getValue ( "/root/init/prcpmixno" )) + 1;
        for (var i=0; i< selectedRows; i++) {       
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpmixno", "T" + prcpmixno );
            
            fSetCpVal(grd_prcplist.selectedrow(i), "U");
//          if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "-" ) {
//              model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "U" );
//          }
        }
         model.setValue ( "/root/init/prcpmixno", prcpmixno );

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

    }
}

function fFollowUp() {

    var pid = model.getValue ( "/root/paminfo/list/pid" );
    var indd = model.getValue ( "/root/paminfo/list/indd" );
    var cretno = model.getValue ( "/root/paminfo/list/cretno" );
    model.setValue ( "/root/send/cond1", pid );
    model.setValue ( "/root/send/cond2",  indd );
    //model.setValue ( "/root/send/cond3",  cretno ); 
    
    //퇴원예고여부가 먼저 CHECK되고 퇴원후 외래예약이 CHECK되도록 수정 by sonjy 2008-07-22 
    //cond3에 cretno를 줄경우 자꾸 null이 넘어감. cond4로 수정. 제한항생제 승인신청서 취소 후 해당 현상 발생하며 오류 발생.
    model.setValue ( "/root/send/cond3",  "" ); 
    model.setValue ( "/root/send/cond4",  cretno );  
 
    //기존에 해당 입원 원무키로 퇴원후 외래 예약이 있는지 체크
    if (  submit ( "TRMMO00119", false ) == false )   return false;  
 
    //submit ( "TRMMO00119", false );

    if ( isNull(model.getValue ( "/root/followup/followup/otpt_pid" ))) {
        fPrcpModal ( "SPMMO14400", 350, 200 );
        var SPMMO14400_rtnyn = getParameter ( "SPMMO14400_rtnyn" );
        clearParameter ( "SPMMO14400_rtnyn" );
        
        if ( SPMMO14400_rtnyn  == "Y" ) {                   
            var otpt_flag = "I";
            var otpt_orddd = getParameter ( "SPMMO14400_otpt_orddd" );
            var otpt_orddeptcd = getParameter ( "SPMMO14400_orddeptcd" );
            var otpt_orddrid = getParameter ( "SPMMO14400_orddrid" );
            var otpt_ordtm = getParameter ( "SPMMO14400_ordtm" );
            var otpt_rsrvflag = "8";
            var sess_userid = getUserInfo ( "userid" );
            
            clearParameter ( "SPMMO14400_otpt_orddd" );
            clearParameter ( "SPMMO14400_orddeptcd" );
            clearParameter ( "SPMMO14400_orddrid" );
            clearParameter ( "SPMMO14400_ordtm" );
                                                                            
            model.setValue ( "/root/send/cond1", otpt_flag );
            //model.setValue ( "/root/send/cond2", pid );
            model.setValue ( "/root/send/cond3", model.getValue ( "/root/paminfo/list/dschdclrdt" ).substring( 0, 8 ));
            model.setValue ( "/root/send/cond4", otpt_orddeptcd );
            model.setValue ( "/root/send/cond5", otpt_orddrid );                                                               
            model.setValue ( "/root/send/cond6", otpt_ordtm );                                                             
            model.setValue ( "/root/send/cond7", otpt_rsrvflag );                                                                              
            model.setValue ( "/root/send/cond8", sess_userid );                                                                                
            model.setValue ( "/root/send/cond9",  indd );
            model.setValue ( "/root/send/cond10", cretno );
            model.makeValue("/root/send/cond11", pid);  //cond2는 처방저장 instance로 뒤덮어진다. 등록번호는 cond11로 2008.06.24
            if (submit ( "TXMMO00107", false )){
                for ( var i=1; i <= grd_prcplist.rows; i++ ) {
                    //퇴원후 외래처방 예약일 잡고 확인누르면 퇴원후 외래처방 PRCPHOPEDD를 모두 예약일로 수정한다.
                    //입원전검사(당일/전일)도 퇴원후 외래와 같은 처리 by sonjy 2008-07-25
                    if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpkindcd" ) == "70" ||
                         model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpkindcd" ) == "90" ||
                         model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpkindcd" ) == "95" ) {
                        model.setValue ( "/root/main/prcp/prcplist[" + i + "]/prcphopedd", otpt_orddd );
                    }
                }
                return true;
            } else {
                return false;
            }
        } else {
            return false;
        }
    } else {
        return true;
    }
    return true;
}

/**
 * @desc   : CP 안에 있는 처방이 팝업 및 에러로 보여져야 함
 * @
 * @return :
 * @author : 마정민
 * @---------------------------------------------------
 */
function fCpInPrcpVisible () {
        if ( model.getValue ( "/root/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   : 처방 화면 close
 * @
 * @return :
 * @author : 오지훈 20087. 10. 14
 * @---------------------------------------------------
 */
function fClose_SMMMO00100(){
  model.close();
}

/**
 * @desc   : 원무정보 재구성
 * @
 * @return :
 * @author : 오지훈 20087. 10. 14
 * @---------------------------------------------------
 */
function fReConPamInfo(){
  fPatDiagSrch();
  
  var pamInfoCvs = getGlobalVariable("paminfo");  
  var insukindcd = getPatientInfoDetail("insukind");
  var vopt_insuinfo = "";
  if(pamInfoCvs != null){ //cvs가 null이 아닌 경우에만 처리함.
      model.removeNodeSet ( "/root/paminfo/list" ); //상단화면 정보 초기화
      setCSVToNode ( "/root/paminfo", pamInfoCvs );
      model.setValue ( "/root/init/pid", model.getValue ( "/root/paminfo/list/pid" ));
      var vopt_patinfo  = model.getValue ( "/root/paminfo/list/dispnm2" ) + " " + model.getValue ( "/root/paminfo/list/sex" ) + "/" + model.getValue ( "/root/paminfo/list/age" );
      if ( model.getValue ( "/root/paminfo/list/roomcd" ) != "" ){
          vopt_patinfo = vopt_patinfo + " " + model.getValue ( "/root/paminfo/list/roomcd" ) + "호";
      }
     
      if (insukindcd == "21"){
        vopt_insuinfo = "[의료급여1]";
      }else if (insukindcd == "22"){
        vopt_insuinfo = "[의료급여2]";
      }else if (insukindcd == "81"){
        vopt_insuinfo = "[장기요양]";
      }else{
        vopt_insuinfo =   "[" + getPatientInfo("insukind") + "]" ;
        }
        model.setValue ( "/root/init/insuinfo", vopt_insuinfo );
     if ( insukindcd == "31" || insukindcd =="41"){
        if (getPatientInfoDetail("ioflag") == "O"){
        messageBox ( "자보/산재 환자입니다. \n관련 처방을 모두 [급여]로 처방하여 주시기 바랍니다.\n기왕증은 건강보험으로 재접수하여 처방해 주시기 바랍니다.", "I" );
        }else
         messageBox ( "자보/산재 환자입니다. \n관련 처방은 모두 [급여]로 처방하여 주시기 바랍니다. \n그 외 처방은 처방 상세팝업에서 기왕증 체크 후 처방해 주시기 바랍니다.", "I" );
        }
     model.setValue ( "/root/init/patinfo", vopt_patinfo );
     
  }

  var patFlagCvs = getGlobalVariable("patflag");    

  if(patFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
      model.removeNodeSet ( "/root/patflag/list" ); //상단화면 정보 초기화
      setCSVToNode ( "/root/patflag", patFlagCvs );
      prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
  } 
  

  var operationFlagCvs = getGlobalVariable("operation");  

  if(operationFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
      model.removeNodeSet ( "/root/operation/list" ); //상단화면 정보 초기화
      setCSVToNode ( "/root/operation", operationFlagCvs );
  }
}

/**
 * @desc   : 응급의료 관리료 수정
 * @
 * @return :
 * @author : 마정민 20087. 10. 16
 * @---------------------------------------------------
*/

function fErMgrPay() {
    var prcpcd = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row + "]/prcpcd" );
    var status = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row + "]/status" );
    var trgtcd = model.getValue ( "/root/initsrch/ercalcscorcd[trgtcd='" + prcpcd + "']/trgtcd" );
    setParameter ( "SMMMO00100_cond1", "Y" );
    var erprcpyn = model.getValue ( "/root/initsrchprcp/prcpetccnts/erprcpyn" );
    var erprcpcd = getArrayData ( erprcpyn + "^", 0, 1, "^", "|" );
    // 응급의료 관리료 수정팝업 띄우기
    //1.수가코드가 ercalcscorcd 에 값이 있고

    if ( !isNull(trgtcd) || status == "S" ) {
        //2.erprcpyn가 Y이면 띄운다.
        setParameter ( "SMMMO06100_erprcpcd", "" );
        var erprcpyn = model.getValue ( "/root/initsrchprcp/prcpetccnts/erprcpyn" );
        if (model.getValue ( "/root/initsrchprcp/prcpetccnts/erprcpyn" ) != "Y" ){
            var erprcpcd = getArrayData ( erprcpyn + "^", 0, 1, "^", "|" );
            if ( erprcpcd != "-" || isNull(erprcpcd)) {
                setParameter ( "SMMMO06100_erprcpcd", erprcpcd );
            }
        }
        setParameter ( "SMMMO06100_currow", grd_prcplist.row );
        fPrcpModal ( "SMMMO06100", 0, 0 );
        clearParameter ( "SMMMO06100_currow" );
        clearParameter ( "SMMMO06100_erprcpcd" );
    }
}

/**
 * @desc   : OCR 자동출력 
 * @
 * @return :
 * @author : 마정민 20087. 10. 17
 * @---------------------------------------------------
*/
function fOcrAutoPrint(calcscorcd) {

    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if ( prcpgenrflag == "O" || prcpgenrflag == "S" )  {
        var orddd = model.getValue ( "/root/paminfo/list/orddd" );
    } else {
        var orddd = model.getValue ( "/root/paminfo/list/indd" );               
    }

    model.setValue ( "/root/hidden/ocrprint/calcscor/pid", model.getValue ( "/root/paminfo/list/pid" ));
    model.setValue ( "/root/hidden/ocrprint/calcscor/cretno", model.getValue ( "/root/paminfo/list/cretno" ));
    model.setValue ( "/root/hidden/ocrprint/calcscor/orddd", orddd );
    model.setValue ( "/root/hidden/ocrprint/calcscor/ordtype", prcpgenrflag);
    model.setValue ( "/root/hidden/ocrprint/calcscor/calcscorcd", calcscorcd );
    
    var xpt = window.screenleft + 50;
    var ypt = window.screenTop + 50;                    
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];
    
    model.addLog("동의서 출력 - LSH");    
    model.addLog(model.instances(0).selectNodesXml("/root/hidden/ocrprint/calcscor"));        

    modal ( "SPMRF04500", mon,  xpt, ypt, "SSMRF03800", "/root/hidden/ocrprint/calcscor","/root/main/temp/calcscor", "", false );
}

/**
 * @desc   : 검색button 초기화 setting
 * @return : void
 * @authur : 마정민 2007. 8. 20
 */

function fInitSrchBtnSet() {
    var srcNodeList = model.instances(0).selectNodes( "/root/initsrch/btnsrchenvcnts" );
    var btn_srchcnt = 0;


    for ( var i=1; i <= 16; i++ ) {
        if ( i <= srcNodeList.length ) {
            btn_srchcnt = i + 50;
            var btncd =model.getValue ( "/root/initsrch/btnsrchenvcnts[" + i + "]/btncd" );
            var btnnm = "button" + btn_srchcnt;
            var buttonObj = document.controls(btnnm);
            buttonObj.text = model.getValue ( "/root/initsrch/btnsrchenvcnts[" + i + "]/btnnm");
            buttonObj.visible = true;
            buttonObj.attribute("_value") = btncd;
        } else {
            btn_srchcnt = i + 50;
            var btnnm = "button" + btn_srchcnt;
            var buttonObj = document.controls(btnnm);
            buttonObj.visible = false;
        }
    }
}

/**
 * @desc   : CP에서 약속set 만들때 값 setting
 * @param : 바꿔줄 상태값
 * @return :
 * @author : 2007. 10. 20
 * @---------------------------------------------------
*/
function fSetCpVal(i, flag) {
    if( model.getValue("/root/cp") == "S" ){
        var selectedRows = grd_prcplist.selectedRows;   
        
        if( model.getValue("/root/main/prcp/prcplist[" + i + "]/status") == "-" ){
            model.setValue("/root/main/prcp/prcplist[" + i + "]/status", flag);
        }
    }
}

/**
 * @desc   : 외래검사처방 입원전환 ( 주사연속처방, 물리치료 연속처방은 제외 )
 * @return :
 * @author : 2007. 11. 29
 * @---------------------------------------------------
*/

function fSaveRsrvPrcpCvrt() {
    //kimsj 100311 환자입원과, 의사진료과 동일할 경우에만 팝업창 보여줌
    var userdept = getUserInfo ( "dutplcecd" );
    var pamdept = model.getValue ( "/root/paminfo/list/orddeptcd" );
    if ( model.getValue ( "/root/initsrchprcp/prcpetccnts/rsrvprcpyn" ) == "Y" && ( userdept == pamdept ) ){
        var xpt = window.screenleft + 200;
        var ypt = window.screenTop + 100;
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        modal ( "SPMMO01000", mon,  xpt, ypt, "SPMMO01000", "/root/initsrchprcp", "/root/initsrch", "", false );
        if ( getParameter ( "SPMMO01000_rtnyn" ) == "Y" ) {
            btn_ivbfprcp.selected = true;
            ivw_prcp3.src = "SMMMO02100_전회처방.xrw";
        }
    }
}

/**
 * @desc   : 수가조회 open
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fOpenCalscorCD(){
  var currow = grd_prcplist.row;
  if(currow < 1){
    return;
  }
  var prcpcd = model.getValue(prcpNode + "[" + currow + "]/prcpcd");
  model.makeValue("/root/tmp/temp", prcpcd);
  modal("SMPIC00200", 1, 100, 200, "SMPIC00200", "/root/tmp/temp", "/root/temp");
}

/**
 * @desc   : 보험정보 open
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fOpenInsuInfo(){
  var currow = grd_prcplist.row;
  if(currow < 1){
    return;
  }
  
  //보험정보 조회시 처방코드 전달, 김민선
  //2008.07.10 오지훈 
  var prcpcd = model.getValue(prcpNode + "[" + currow + "]/prcpcd");
  model.removeNode("/root/tmp/prcpcd");
  model.makeValue("/root/tmp/prcpcd", prcpcd);
  modal("SPPIZ01600", 1, 100, 200, "SPPIZ01600", "/root/tmp/prcpcd", "/root/send/item3/calcscorcd");
  
  /*
  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 = grd_prcplist.row;
  if(currow < 1){
    return;
  }
  modal("SMAEA00900", 1, 100, 200);
}

/**
 * @desc   : 진료기록화면 Open 
 *         : 메인화면에 기록지가 없는 경우, 새 기록지 open 
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fOpenOrdRecMainWnd(){
   var mainObj = getMainViewer();
   var scrnID = mainObj.javascript.getScreenID();
   if(scrnID == "SMMMR00100"){
      mainObj.javascript.fInitPamInfo();         //원무기본정보 초기화처리
   }else{
      mainObj.javascript.navigate("SMMMR00100");
   }
}

/**
 * @desc   : 조영제 동의서 출력
 *         : 
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fPrintfrm() {  
    
    if ( model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/testreqlnkno") == "DYENO" ) {

        var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
        if ( prcpgenrflag == "O" || prcpgenrflag == "S" )  {
            var orddd = model.getValue ( "/root/paminfo/list/orddd" );
        } else {
            var orddd = model.getValue ( "/root/paminfo/list/indd" );               
        }

        model.setValue ( "/root/hidden/ocrprint/calcscor/pid", model.getValue ( "/root/paminfo/list/pid" ));
        model.setValue ( "/root/hidden/ocrprint/calcscor/cretno", model.getValue ( "/root/paminfo/list/cretno" ));
        model.setValue ( "/root/hidden/ocrprint/calcscor/orddd", orddd );
        model.setValue ( "/root/hidden/ocrprint/calcscor/ordtype", prcpgenrflag);
        model.setValue ( "/root/hidden/ocrprint/calcscor/calcscorcd", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpcd"));

        var xpt = window.screenleft + 400;
        var ypt = window.screenTop + 100;
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        modal ( "SPAER01900", mon,  xpt, ypt, "prcpdetl", "/root/hidden/ocrprint/calcscor", "/root/hidden/ocrprint/calcscor", "", false );

        if ( getParameter("SPAER01900_lnkno" ) == "216" ) {
            model.setValue ( prcpNode + "[" + grd_prcplist.row + "]/testreqlnkno", "216" );
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.row + "]/testreqlnkno", "DYENO" );
        }
    }
}

function fClearSaveInstance() {
    model.removeNodeset ( "/root/send/cond3/prcplist" );
}

function fAppendSaveNode( desNode, srcNodeList ) {
    var saveDrPrcpList = model.instances(0).selectNodes( srcNodeList );    //의사처방 저장데이터
    for(var i = 0; i < saveDrPrcpList.length; i++) {
        var destNode = model.instances(0).selectSingleNode( desNode );
        destNode.appendChild(saveDrPrcpList.item(i).cloneNode(true));
    }
}

/**
 * @desc   : 약속수술 등록 
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fPrmsOp(){
    if(btn_prmsop.selected == true) {
        if(model.getValue("/root/cp") != "Y"){
            ivw_prcp.window.javascript.fPrmsOp();
        }else{
            ivw_prcp2.window.javascript.fPrmsOp();
        }

    }else{
        btn_prmsop.dispatch("DOMActivate");
        btn_prmsop.selected = true;
        messageBox("수술SET 폴더를 선택하세요.", "E");
    }
}

/**
 * @desc   : 마감후 반환 체크 및 사유 입력 ( 반환가능한 것 중에서 마감된 것은 반환사유 입력후 d/c )
 * @param  :
 * @return :
 * @author : 마정민
 * @---------------------------------------------------
 */
function fEndAftDC(){
    var srcNodeList = model.instances(0).selectNodes( "/root/result/saveexecprcplist" );
    var dclistcnt = 0;
    var ioflag = "O";
    for ( var i=1; i<=srcNodeList.length; i++ ) {   
        if (model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_status") == "C"
            && isNull(model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_mig" ))) {
            var enddd = model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_enddd");
            if ( !isNull(enddd) &&  enddd.length >= 4 && enddd.substring( 0, 4 ) != "9999") {                        
                dclistcnt++;
                model.makeValue("/root/endaftdc/list[" + dclistcnt + "]/prcpdd", model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_prcpdd") );
                model.makeValue("/root/endaftdc/list[" + dclistcnt + "]/prcpno", model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_prcpno"));
                model.makeValue("/root/endaftdc/list[" + dclistcnt + "]/prcphistno", model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_oldprcphistno"));
                model.makeValue("/root/endaftdc/list[" + dclistcnt + "]/execprcpno", model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_oldexecprcpno"));
                model.makeValue("/root/endaftdc/list[" + dclistcnt + "]/instcd", model.getValue ("/root/result/saveexecprcplist[" + i + "]/exec_instcd"));          
                if ( model.getValue ( "/root/patflag/list/prcpgenrflag") == "O" ) ioflag = "O";
                else ioflag = "I";
                model.makeValue("/root/endaftdc/list[" + dclistcnt + "]/ioflag", ioflag);
            }
        }
    }
    if ( dclistcnt > 0 )    {
        var xpt = window.screenleft + eval(100);
        var ypt = window.screenTop + eval(100);

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];
        modal("SPPAS03000", mon, xpt, ypt, "SPPAS03000", "root/endaftdc", "root/target", "left:100; top:100; width:400; height:400; sysmenu:hidden; min:visible; max:hidden; :hidden; resize:true; caption:visible;", false);
        model.removeNodeSet ( "/root/endaftdc" )        
    }

}

function fSubjPrcpChk() {

    submit("TRMMO00120", false);
    
    var ioflag = model.getValue ( "/root/paminfo/list/ioflag" );
    
    if (model.getValue("/root/temp/subjrgstyn") == "N" ){
        messageBox("임상연구 처방은 피험자등록" , "E012");
        return -1;
    }
    
    if (model.getValue("/root/temp/subjinsukindyn") == "N" ){        // 임상연구 유형이 없을때
        if (ioflag == "O"){
            messageBox("임상연구로 접수되지 않은 환자입니다." , "I007");
        } else {
            messageBox("보조유형에 임상연구가 없는 환자입니다." , "I007");
        }
        return -1;
    } else {        // 임상연구 유형이 있을때.
        if (ioflag == "I" || ioflag == "D" || ioflag == "E") {
            model.setValue("/root/init/subjsubcretno", model.getValue("/root/temp/subjinsukindyn") ); 
        }
    }
    
    return 1;
}

/**
 * 환자 주진단 색깔표시
 * @param 
 * grdobj : grid
 * color  : 표시색깔
 */
function fDispPatMainDiag(){
   for(var i = 1; i < grd_diaglist.rows; i++){
        var diagkindcdflag = model.getValue("/root/main/diaginfo/diagcdlist[" + i + "]/diagkindcdflag");
        if(diagkindcdflag == "M"){
            grd_diaglist.RowStyle(i, "data", "background-color") = "#ccffff";
        }else{
            grd_diaglist.RowStyle(i, "data", "background-color") = "#ffffff";
        }       
   }
   // 처방 메인 refresh 단일화를 위한 셋팅 - 20081212 by Moonsh 
   var refreshInfo = getGlobalVariable("OrderMainRefresh"); 
   if ( refreshInfo != "Y" ) { 
      grd_diaglist.refresh(); 
   }   

}

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

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

    //20100609 수술중처방 집계 관련 보완. 시행부서가 회복실, 수술실이면 그대로 두고 아니면 수술실마취로 세팅.
    if ( prcpkindcd == "35" && getUserInfo( "dutplcecd" ) == model.getValue("/root/initsrch/anstdeptcd/trgtcd") &&
        ( model.getValue(strDest + "/prcplist[" + vRow + "]/prcpexecdeptcd") == model.getValue("/root/initsrch/recovdeptcd/trgtcd") ||
        model.getValue(strDest + "/prcplist[" + vRow + "]/prcpexecdeptcd") == model.getValue("/root/initsrch/opdeptcd/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 = model.getValue ( strDest + "/prcplist[" + vRow + "]/prcpmixno");
    var antilist = null ;
     
    if( mixno != "-" ) {
         
        antilist = model.instance1.selectNodes( strDest + "/prcplist[prcpmixno='" + mixno + "']" );
        if( antilist != null ) {
            for( var i = 0 ; i < antilist.length  ; i++){       
                if (!isNull(model.getValue ( strDest + "/prcplist[" + vRow + "]/spcldrug"))) {
                    spcldrugAnti = antilist.item(i).anticanflag.text ;
                    spcldrug = antilist.item(i).spcldrug.text ;
                } else {
                    drugmastspec = antilist.item(i).drugmastspec.text ;
                    spcldrugAnti = getArrayData ( drugmastspec + "^", 0, 24, "^", "|" );
                    spcldrug = getArrayData ( drugmastspec + "^", 0, 23, "^", "|" );
                }
                if(  spcldrugAnti == "1" || spcldrugAnti == "2" || spcldrug == "B" || spcldrug == "C" || spcldrug == "Q" || spcldrug == "T" ) {
                    orgdeptcd =  antilist.item(i).prcpexecdeptcd.text ;
                    break; 
                }
            }
        }
    }
    
    
    
    return orgdeptcd;
}

function fOldDrugMthdPop() {
    if (model.instance1.selectNodes("/root/migdrugmthd/migdrugmthdlist").length>0) {

        var xpt = window.screenleft + eval(150);
        var ypt = window.screenTop + eval(50);

        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

        modal ("SPMMO15900", mon,  xpt, ypt, "SPMMO15900", "/root/migdrugmthd", "/root/migdrugmthd", "", false);
    }
}

/**
 * @desc   : 외래, 주사(A6)인 경우, 일수 변경시 달력화면을 띄움, 연속처방 적용 
 * @param  :
 * @return :
 * @author : EMR MSH
 * @---------------------------------------------------
 */
function fDayValChnged() {
    //prcpdd를 선언하지 않고 아래에서 사용하고 있음. 오류수정 by sonjy 20091021
    var prcpdd = model.getValue ( "/root/init/prcpdd");
    
    var selectedRows = grd_prcplist.selectedRows;   
    var chngRow = grd_prcplist.row;
    
    for ( var j=0; j < selectedRows; j++ ){   
        var curRow = grd_prcplist.selectedrow(j);   // 현재 row 
        var strtRow = grd_prcplist.selectedrow(0);  // 시작 row 
        if( chngRow < 0 ) chngRow = strtRow;
        
        var prcpclscd = model.getValue("/root/main/prcp/prcplist[" + curRow + "]/prcpclscd");
        var selfprcpflag = model.getValue("/root/main/prcp/prcplist[" + curRow + "]/selfprcpflag");
        var prcpgenrflag = model.getValue("/root/patflag/list/prcpgenrflag");
        var prcpcd = model.getValue("/root/main/prcp/prcplist[" + curRow + "]/prcpcd");
        
        //by sonjy 20091019 수가계산방법 4일경우 외래/입원 관계없이 일수는 1로 고정 (요청번호 : 3667 ) 
        var drugmastspec = model.getValue("/root/main/prcp/prcplist[" + curRow + "]/drugmastspec");
        var calcmthdcd = getArrayData ( drugmastspec , 0, 26, "^", "|" ); 
        if( (prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" )  && calcmthdcd == "4" ) {
            model.setValue("/root/main/prcp/prcplist[" + 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 =   model.getValue ("/root/main/prcp/prcplist[" + chngRow + "]/prcpdayno");
                
                var contprcpspec = model.getValue("/root/main/prcp/prcplist[" + curRow+ "]/contprcpspec");
                if(contprcpspec != "-"){
                    var contprcpsplit = contprcpspec.split("^");
                    var contprcprslt  = contprcpsplit[1].split("|");
                    var startdd = contprcprslt[1];
                    
                }else{
                    var startdd = model.getValue("/root/paminfo/list/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);
                setParameter("paramcalflag", "multi");
                setParameter("defaultday"  , startdd);
                setParameter("reqparam"    , reqparam);
                setParameter("prcpdayno"   , prcpdayno);

                fPrcpModal("SPMMO10600", 20, 50);

                //달력에서 선택된 일자만큼 처방상세정보 생성 및 처방 정보 설정
                if ( !isNull(getParameter("rtn"))) { //20080703 마정민 수정 값이 있을 때문 처리
                    var actordddArray = 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){
                        model.setValue("/root/main/prcp/prcplist[" + curRow + "]/contprcpspec", "-");
                    }else{
                        model.setValue("/root/main/prcp/prcplist[" + curRow + "]/contprcpspec", contprcpspec);
                    }
                    model.setValue("/root/main/prcp/prcplist[" + curRow + "]/prcpdayno", actordddArray.length);
                }
            }
        }   
    }   
}

/**
 * @desc   : 영상학과에서 OCR 확인을 위한 코드별 테그 셋팅
 * @param  :
 * @return :
 * @author : EMR MoonSH
 * @---------------------------------------------------
 */
function fSetOcrTagNum() { 
    var srcNodeList = model.instances(0).selectNodes( "/root/result/savedrprcplist" ); 
    var taglist = model.getValue("/root/properties/parameters/SPMRF04500_OCRTAG/SPMRF04500_OCRTAGvalue"); 
    
    if( !isNull(taglist) ){
        model.setValue("/root/properties/parameters/SPMRF04500_OCRTAG/SPMRF04500_OCRTAGvalue", ""); 
        
        var septag = taglist.split("▦"); 
        var tagcode = ""; 
        
        for (var i=0; i<=srcNodeList.length; i++) {
            var prcpcd = model.getValue ( "/root/result/savedrprcplist[" + i + "]/prcpcd" );        
            var prcpkindcd = model.getValue ( "/root/result/savedrprcplist[" + i + "]/prcpkindcd"  );
            for ( var j=0; j<septag.length-1; j++) {
                if ( septag[j]==prcpcd ) { 
                
                        tagcode = septag[j+1] ;                 
                        if ( prcpkindcd == "70" && model.getValue ( "/root/result/dschdrprcplist[dschdr_prcpcd ='" + prcpcd + "']/dschdr_drprcpetc3" ) == "" ){
                        model.setValue ( "/root/result/dschdrprcplist[dschdr_prcpcd ='" + prcpcd + "']/dschdr_drprcpetc3", tagcode);
                        // 퇴원후 외래 처방은 ORC 태그 정보 박히지 않는 오류 수정 . 20100607 by LYJ
                        }else {
                         model.setValue ( "/root/result/savedrprcplist[" + i + "]/drprcpetc3", tagcode ); 
                        }
                }
            }
        }
    }   
}

/**
 * @desc   : TPN, TDM 의뢰서 입력창 띄우기. by sonjy 20081030 
             TPN : 약품정보 마스터에 '관리항목' 중  'TPN'에 체크되어 있는 약품   1환자 1입원기간 1약품코드 당 의뢰창 1번.
             TDM : 약제 프로그램의 TDM 기준자료 관리에 등록되어 있는 검사코드.   1환자 1입원기간 1약품코드 당 의뢰창 1번  
             처방  key가 필요하므로 prcpsavechk후 저장 직전에 호출 하도록 한다. 
 * @param  :  
 * @return :
 * @author : 손주연 2008-10-31
 */
function fDrugTpnTdmChk( vSrcNode , sendRow , mon, xpt, ypt ){ 
    
    //TPN CHECK 
    var vMsg = "";
    var prcpcd       = "";
    var prcpclscd    = "";
    var drugmastspec = "";
    var prcpgenrflag = "";  
     
    prcpcd       = model.getValue(vSrcNode + "[" + sendRow + "]/prcpcd");
    drugmastspec = model.getValue(vSrcNode + "[" + sendRow + "]/drugmastspec");
    prcpclscd    = model.getValue(vSrcNode + "[" + sendRow + "]/prcpclscd");
    prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); 
    model.makeValue("/root/tdmtpncnstinfo/tdminfo/tdm_pid"      , model.getValue( "/root/paminfo/list/pid" ));
    model.makeValue("/root/tdmtpncnstinfo/tdminfo/tdm_indd"     , model.getValue( "/root/paminfo/list/indd") );
    model.makeValue("/root/tdmtpncnstinfo/tdminfo/tdm_prcpcd"   , prcpcd );
    model.makeValue("/root/tdmtpncnstinfo/tdmtpncnstlist/cnstyn" , ""); 
    model.makeValue ( "/root/hidden/reqfrminfo/reqno" , "") ; //초기화 
     
    //TPN 
    if( prcpclscd == "A6"  && getArrayData ( drugmastspec + "^", 0, 14 , "^", "|" ) == "Y") {
        model.makeValue("/root/tdmtpncnstinfo/tdminfo/tdm_cnstkind", "4"); //의뢰종류  3-TDM  4-NST
        if( submit("TRMMO00123", false ) == true ){
            if(  model.getValue("/root/tdmtpncnstinfo/tdmtpncnstlist/cnstyn") != "N") return ; 
            //vMsg =  "본 약제는 영양지원팀(NST)에서 관리하는 영양수액으로 더 합리적인 환자관리를 위해 자문의뢰 및 NST의 영양평가가 필요합니다. 보험급여 심사시 필수첨부사항이니 자문을 의뢰하시거나 직접 열량요구량을 계산하셔야 합니다. 자문을 의뢰";
            //if( messageBox(vMsg,"Q014") == 6 ){  
                modal ( "SPADB62300", mon,  xpt, ypt, "", vSrcNode+ "[" + sendRow + "]" , "/root/temp/cnstinfo"   , "", false ); 
            //}
        } 
    }
    /*  TDM 2011.04.27 엄영만 처방시 TDM 자문의뢰창 팝업 되지 않게 수정  임상시험센터 윤영란,성숙진(6358) 요청 약국 김민겸(5190) 확인 
    else {
        var tdmlist =  model.instance1.selectNodes("/root/initsrch/tdmcdlist[tdmprcpcd='" + prcpcd + "']");  
        
        if( tdmlist != null ){ 
            if( tdmlist.length  < 1 ) return ; 
            model.makeValue("/root/tdmtpncnstinfo/tdminfo/tdm_cnstkind", "3"); //의뢰종류  3-TDM  4-NST
            //if( submit("TRMMO00123", false ) == true ){
            //  if(  model.getValue("/root/tdmtpncnstinfo/tdmtpncnstlist/cnstyn") != "N") return ; 
                
                //vMsg = "DrugMonitoring 검사와 함께 '약동학 자문'을 의뢰";
                //if( messageBox(vMsg,"Q014") == 6 ){  
                    modal ( "SPADC62000", mon,  xpt, ypt, "", vSrcNode+ "[" + sendRow + "]" , "/root/temp/cnstinfo"   , "", false ); //root/temp/cnstinfo => /root/paminfo/list 로 변경 김숙희 과장 요구 20081101 
                //}
            //}
        }
    } */ 
    
    if ( !isNull(model.getValue ( "/root/hidden/reqfrminfo/reqno" )) ) {
        model.setValue ( vSrcNode + "[" + sendRow + "]/drprcpetc3", model.getValue ( "/root/hidden/reqfrminfo/reqno" )); 
    } 
}

/**
 * @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.개별수정
        if (obj == "child"){ 
            if ( grow == "" ) { 
                grow = opener.grd_prcplist.row ; 
            } 
            var chkstatus = opener.model.getValue ( "/root/main/prcp/prcplist[" + grow + "]/status" ); 
            if ( chkstatus == "-" ) { 
                opener.model.setValue ( "/root/main/prcp/prcplist[" + grow + "]/status", "U" ); 
            } 
            //return ; 
        } else { 
            var chkstatus = model.getValue ( "/root/main/prcp/prcplist[" + grow + "]/status" ); 
            if ( chkstatus == "-" ) { 
                model.setValue ( "/root/main/prcp/prcplist[" + grow + "]/status", "U" ); 
            } 
        } 
    } else if ( pos == "pack" ) {   // 2.일괄수정 
        var chkstatus = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(grow) + "]/status" ); 
        if ( chkstatus == "-" ) { 
            model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(grow) + "]/status", "U" ); 
        }       
    } else if ( pos == "det_per" ) { // 3.상세 팝업에서 개별 수정 
        // 1. popup 노드 get 
        // 2. main 그리드 row 노드 get 
        // 3. for 문을 이용 팝업과 메인의 노드 비교 
        
        var tarrow = grd_prcplist.row; 
        if ( model.getValue ( "/root/main/prcp/prcplist[" + tarrow + "]/status" ) != "-" ) return;

        var tarNodeList = model.instances(0).selectNodes( "/root/prcptemp/prcplist" ); 

        if ( tarNodeList.length > 0  ) {
            var tarChildNode = tarNodeList.item(0).childNodes; 
        } else {
            return ;    
        }
        
        var tarChildCnt = tarChildNode.length; 
        if( tarChildCnt == 0 ) return; 
        
        var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist[" + tarrow + "]" );  // changed node list 
        if ( srcNodeList.length > 0  ) {
            var srcChildNode = srcNodeList.item(0).childNodes; 
        } else {
            return ;    
        }
        
        var srcChildCnt = srcChildNode.length; 
        if( srcChildCnt == 0 ) return; 
        
        if ( tarChildCnt != srcChildCnt ) return ;      // popup 노드와 main 노드 갯수가 틀리면 노드 매핑 오류로 리턴 
        
        var i; 
        for( i = 0; i < srcChildCnt ; i++) { 
            tNodeName = tarChildNode.item(i).nodeName ; 
            tNodeText = tarChildNode.item(i).text ; 
            
            sNodeName = srcChildNode.item(i).nodeName ; 
            sNodeText = srcChildNode.item(i).text ; 
            
            if ( tNodeName == sNodeName ) { 
                if ( tNodeText != sNodeText ) { 
                    var chkstatus = model.getValue ( "/root/prcptemp/prcplist/status" ); 
                    if ( chkstatus == "-" ) { 
                        model.setValue ( "/root/prcptemp/prcplist/status", "U" ); 
                    } 
                    return ; 
                } 
            } else { 
                return ;                    // 소스 노드와 대상 노드의 노드가 틀릴 경우는 리턴 
            } 
        } 
    } else if ( pos == "det_pack" ) {   // 4. 일괄 상세팝업
        var chkstatus = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(grow) + "]/status" ); 
        if ( chkstatus == "-" ) {
            model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(grow) + "]/status", "U" ); 
        }
    }   
    
}

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

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


/**
 * @group  :
 * @ver    : 2008.12.09
 * @by     : 마정민
 * @modify: 
 * @---------------------------------------------------
 * @type   : 
 * @access : public
 * @desc   : 보험제한규정창이 메시지만 있을경우 창을 더이상 띄우지 않기 위해 레지스트리에 등록
 * @param  : regnm : 레지스트리 명
 * @param  : regval : 레지스트리 값
 * @return :
 * @---------------------------------------------------
 */ 
function setRegistryPrcp(regnm, regval)
{
    model.registry("HKEY_LOCAL_MACHINE", "SOFTWARE\\HIS\\Config\\" + getUserId(), regnm, "STRING") = regval;
}

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

/**
 * @desc   : 과거처방 사유입력창 팝업 
 * @
 * @param  : strSrc : 입력할 과거처방의 node 
 * @return :
 * @author : 손주연 2008-09-26 
 * @---------------------------------------------------
*/ 
function fChkLastPrcpResn(  strSrc ){
    var prcpdd = "";
    var resnrtn= "N";
    var admininfo  = "";
    admininfo = model.getValue ( "/root/admininfo" ) ;
    prcpdd = model.getValue ( "/root/init/prcpdd" ); //처방일 
    if( isNull(prcpdd) ) return true ; 
 
     
    if( eval(prcpdd) < eval( getCurrentDate().substr(0,8) ) ) { 
        
        setParameter ("SPMMO016500_resnflag" , "B" );               //과거처방사유구분 
        setParameter ("SPMMO016500_prcpinfo" , strSrc );            //처방LIST
        setParameter ("SPMMO016500_paminfo"  , "/root/paminfo/list");//원무정보 PID, INDD/ORDDD, CRETNO,INSTCD, ORDTYPE...
        setParameter ("SPMMO016500_rtn1"     , "N" );                   //입력여부 
        setParameter ("SPMMO016500_endrowdelyn" , "N" );            //처방LIST 최종ROW삭제여부 
        
        var xpt = window.screenleft + eval(300);
        var ypt = window.screenTop + eval(200);
    
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

        modal ("SPMMO16500", mon,  xpt, ypt, "SPMMO16500", "", "", "sysmenu:hidden; min:visible; max:visible; icon:visible", false);    //사유입력창 
          
        resnrtn =  getParameter ("SPMMO16500_rtn1" );    
        
        if( resnrtn != "Y" ) return false ;
    }
        
    return true  ; 
        
}

/**
* @desc   : 급성 상기도감염에 항생제 처방 제한  
            일수 촉박으로 인해 hardcoding 추후 login정보에 담을 예정  
 * @param  :  
 * @return :
 * @author : 손주연 20081212 
 * @---------------------------------------------------
*/  
function fChkInfecLimAntiDrug(  strSrc , sendRow  ){
    var mainDiag10cd = "";
    var diaglst = null;
    diaglst= model.instances(0).selectNodes("/root/main/diaginfo/diagcdlist[diagkindcdflag='M']") ; 
    if( diaglst != null && diaglst.length > 0) {
        mainDiag10cd = diaglst.item(0).icd10cd.text ;
    }
    
    if( 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 {
        diaglst= model.instances(0).selectNodes("/root/main/diaginfo/diagcdlist") ; 
        if( diaglst != null) {
            for( var i= 0 ; i < diaglst.length ; i++ ){
                mainDiag10cd = diaglst.item(i).icd10cd.text ; 
                icd10Chck   = mainDiag10cd.substring( 0, 3 );
                if ( icd10Chck >= "M130" && icd10Chck <= "M179"  ){
                    chkFlag = "2" ;
                    break;
                }
                if ( icd10Chck >= "M190" && icd10Chck <= "M199"  ){
                    chkFlag = "3" ;
                    break;
                }
            }
        }
    }
    
    if( isNull(chkFlag) )  return true ;
    
    var prcpclscd       = "";
    var drugmastspec    = "";
    var tempcol2        = "";
    var rtnFlag         = "";
    var srcNodeList = null;
     
    prcpclscd   =  model.getValue(strSrc + "[" + sendRow + "]/prcpclscd" );
    drugmastspec=  model.getValue(strSrc + "[" + sendRow + "]/drugmastspec" );
    tempcol2    =  model.getValue(strSrc + "[" + sendRow + "]/tempcol2" );
    if(prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
        if( chkFlag == "1"  && getArrayData ( drugmastspec + "^", 0, 23, "^", "|" ) == "P" ) {
            rtnFlag = "1" ;
        } else if ( ( chkFlag == "2" || chkFlag == "3" ) && !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" ) {
        messageBox(sMsg, "I" );
        if ( model.getValue ( "/root/initsrch/hrcdinfo1/trgtcd") != "N" ) {
            return false ;
        } else {
            if ( messageBox ( "계속 저장하시겠습니까?","Q") != "6" ) {
                return false ;
            }
        }
    } else if ( rtnFlag == "2" || rtnFlag == "3" ) {
        messageBox(sMsg, "I" );
        //return false ;
        //by sonjy 20090803 골관절염상병 병원별 blocking 적용 변경요청서 선진행 사항. HARDCDNO 122
        if ( model.getValue ( "/root/initsrch/steroidlimyn/trgtcd") != "N" ) {
            return false ;
        } else {
            if ( messageBox ( "계속 저장하시겠습니까?","Q") != "6" ) {
                return false ;
            }
        }
    }

    return true ; 
}    

/**
 * @desc   : 당일결과 체크하면 체크값을 원무테이블에 입력해준다.
 * @param  :  
 * @return :
 * @author : 김영학 : 20090304
 * @---------------------------------------------------
*/  
function fSaveDayAftRcpt() {
    model.resetInstanceNode("/root/send");
    model.setValue ( "/root/send/cond1", model.getValue ( "/root/paminfo/list/pid" ));
    model.setValue ( "/root/send/cond2", model.getValue ( "/root/paminfo/list/orddd" ));
    model.setValue ( "/root/send/cond3", model.getValue ( "/root/paminfo/list/cretno" ));
    model.setValue ( "/root/send/cond4", model.getValue ( "/root/paminfo/list/prcptdayaftrcptyn" ));
    //model.setValue ( "/root/send/cond5", "1");
    submit("TXMMO00114", false);
    var ordPatObj = getOpenWindow("SMMMO04100");
    if (ordPatObj != null ) {
        ordPatObj.javascript.fPrcpCallPatList();    
    }
}

/**
 * @desc   : 처방창 초기화 (상태에 따라 처방창이 처음 열리는 경우와 열려 있는 경우 초기화시켜주는 함수가 달라짐)
 * @param  :  
 * @return :
 * @author : 김영학 : 20090306
 * @---------------------------------------------------
*/  
function fInitPrcpWnd(status){
    if (status == "init") {
        //btn_init.visible    = false;
        //btn_reinit.visible  = false;
        
        //fInitializeConDone();
        //fBaseCdInit();                
        //fInitBtnSet();
    //              fTranInddChk();
        
        button107.attribute ( "background-color" ) = "#7cbbdd"; 
        //fScrnInitialize();
        zesfInitSign();     
        
        fInitializeReady(); 
        fAnstPrcp();            
        //fCpInit();                
          //임시처방 호출       
            model.setValue ( "/root/init/setprcpyn", "Y" );                                               
        if ( model.getValue ( "/root/initsrch/prcpetccnts/erprcpyn" ) == "Y" ) {
            setParameter ( "SMMMO00100_cond1", "Y" );
            fPrcpModal ( "SMMMO06100", 0, 0 );      
            grd_prcplist.rebuild();
            model.recalculate();
            model.setfocus( "grd_prcplist" );
        }
        
        fChkOuterCdListPop();  //외부등록CD 재판독 의뢰할 처방 있다면 popup 호출 (2010.02.24 JJE)
        
        model.setValue("/root/init/bfprcpload", "N");
        btn_ivbfprcp.selected = true;
        ivw_prcp3.visible= true;    
       
        ivw_prcp3.src = "SMMMO02100_전회처방.xrw";
          
        model.removeNode ( "/root/init/prcpkindcd/M0003[cdid=80]" );
        group2.visible = true;  
        
        ivw_prcp3.window.javascript.fBtnInit("C");   
    } else {
        
        fInitializeConDone();

        // 20091130 HJS - 수진키 다를때 블러킹.
        if ( ! fPrcpPaminfoChk() )
            return;

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

        var BfPrcpObj = getOpenWindow("SMMMO02100") ;
        if (ivw_prcp3.src != "SMMMO02100_전회처방.xrw") {
            ivw_prcp3.src = "SMMMO02100_전회처방.xrw";
            model.removeNode ( "/root/init/prcpkindcd/M0003[cdid=80]" );
        }
        ivw_prcp3.window.javascript.fBtnInit("C"); 
        
        fInitializeReady("diag");
        
        fPatDiagSrch();                  

    }

    //20090515 마정민 상병 특례체크로직 추가. 의정부성모병원요청사항.
    //기존 의정부 성모병원은 부상병으로도 산정특례가 적용되어서 의사사 주,부 유형을 적확히 입력하지 않음
    //그래서 처방화면 로딩시 기존수진진단을 가져올때 마이그레이션 데이터이고 산정특례로 된 주진단이 없을 경우 메시지 처리
    var srcNodeListLen = model.instances(0).selectNodes ( diagNode ).length;
    for ( var i=1; i <= srcNodeListLen; i++ ) {
        var status = model.getValue("/root/main/diaginfo/diagcdlist[" + i + "]/status");
        var diagremfact = model.getValue("/root/main/diaginfo/diagcdlist[" + i + "]/diagremfact");
        if ( status == "I" && diagremfact == "Y" ) { //마이그레이션
            model.setValue("/root/main/diaginfo/diagcdlist[" + i + "]/diagremfact", "");
            var spclinfo = model.getValue("/root/main/diaginfo/diagcdlist[" + i + "]/spclinfo");
            if ( spclinfo == "Y" ) { //산전특례
                //산정특례 처방이면 산전특례이면서 주상병이 있는지 찾는다.
                var spcmdiagcd = model.getValue ( "/root/main/diaginfo/diagcdlist[diagkindcdflag='M' and spclinfo='Y' and status='I']/diagcd" ); 
                if (isNull(spcmdiagcd)) { //값이 없으면 주상병으로 할 건지 물어본다.
                    var icd10cd = model.getValue("/root/main/diaginfo/diagcdlist[" + i + "]/icd10cd");
                    if ( messageBox ( "[" + icd10cd + "] 상병은 특례상병입니다. 주상병으로 하시겠습니까?","Q") == "6" ) {
                        //하겠다고 하면 주상병으로 고침
                        var srcNodeList = model.instances(0).selectNodes ( "/root/main/diaginfo/diagcdlist" );
                        for ( var j=1; j <= srcNodeList.length; j++ ) {
                            if (i == j) {
                                model.setValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/diagkindcdflag", "M" );
                            } else {
                                if (model.getValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/diagkindcdflag" )=="M") {
                                    model.setValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/diagkindcdflag", "S" );
                                    if (model.getValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/status" ) == "-" ) { 
                                        //진단상태가 - 이면 U로 수정함
                                        model.setValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/status", "U" );
                                    }
                                }
                            }
                        }
                        fDispPatMainDiag();
                        model.recalculate();
                        //break; 20090629 diagremfact '-' 처리하는것 때문에 주석처리
                    }
                }
            }
        }
   }   
    
    // 전처방 복사 로직 위치 이동 2011.11.16 엄영만
    // 환경설정(전처방 자동 copy 기능 설정)에 따른 전처방 copy 추가 (요청번호:8586, 2009.11.02 JJE)
    var prcpgenrflag     = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    var addprcpflag      = model.getValue("/root/init/addprcpflag");
    var copyPrcpInfoNode = instance1.selectSingleNode("/root/initsrch/envinfo[qestcd='016' and answcnt!='003']/answcnt"); //001:약만COPY, 002:전체COPY, 003:설정안함
    if( prcpgenrflag == "O" && addprcpflag != "Y" && copyPrcpInfoNode != null ){
        if (typeof(ivw_prcp3) == "object"){
            ivw_prcp3.window.javascript.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 = getOpenWindow("SMMMO04100");    
        var SMMMO04100_chk = ordPatObj.javascript.getParameter("SMMMO04100_chk");
        if(ordPatObj != null && SMMMO04100_chk  == "Y"){
          ordPatObj.javascript.setParameter("SMMMO00100_S",SMMMO00100_S.getTime());
        }
    } catch(e) {
    }
    //group2.visible = true;
    //btn_reinit.visible = false; 
    var ordPatObj = getOpenWindow("SMMMO04100");
    
    // 신규처방 수정 모드을 위한 bind셋팅 - 20090630 by Moonsh 
    var AnswData = fGetIntefeAnsw("013"); 
    if( AnswData == "Y" ) { 
        bind14.attribute( "readonly" ) = ""; 
        bind2.attribute( "readonly" ) = ""; 
        model.setValue("/root/init/enviflag", "Y"); 
    } else {
        model.setValue("/root/init/enviflag", ""); 
    }

    fGetHardCDList("N", 264, 0 , "/root/hidden/centdeptinfo");

    if (ordPatObj != null) {
        var answcnt = ordPatObj.javascript.getParameter("SMMMO04100_ANSWCNT");
        if (answcnt =="001" || answcnt =="003") {
            fInitializeConDone();

            // 20091130 HJS - 수진키 다를때 블러킹.
            if ( ! fPrcpPaminfoChk() )
                return;

            btn_init.visible = true;    
            group2.visible = true;

            fBaseCdInit();              
            fInitBtnSet();          

        } else {
            fInitializeConDone();

            // 20091130 HJS - 수진키 다를때 블러킹.
            if ( ! fPrcpPaminfoChk() )
                return;

            fBaseCdInit();              
            fInitBtnSet();  
            fInitPrcpWnd("init");
        }
    } else {
        fInitializeConDone();

        // 20091130 HJS - 수진키 다를때 블러킹.
        if ( ! fPrcpPaminfoChk() )
            return;

        fBaseCdInit();              
        fInitBtnSet();
        fInitPrcpWnd("init");
    }

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

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

    btn_reinit.visible = false;    
    group_rmk.visible = false;                                             //처방 화면 참고사항 안보이게
    var ordPatObj = getOpenWindow("SMMMO04100");
    var csltMngObj = getOpenWindow("SMMMO04100");
    if (ordPatObj != null || consulyn=="T") {
        if(consulyn != "T") {
            var answcnt = ordPatObj.javascript.getParameter("SMMMO04100_ANSWCNT");
        }
        if (answcnt =="001" || answcnt =="003") {
            btn_reinit.visible = true;
            btn_init.visible = false;
            var BfPrcpObj = getOpenWindow("SMMMO02100") ;
            if (ivw_prcp3.src != "SMMMO02100_전회처방.xrw") {
                ivw_prcp3.src = "SMMMO02100_전회처방.xrw";
                model.removeNode ( "/root/init/prcpkindcd/M0003[cdid=80]" );
            }
            ivw_prcp3.window.javascript.fBtnInit("B");              
        } else {
            fInitPrcpWnd();
        }
    }
    
    fSelfHldPrcpSub(); //자가보유처방 조회 20100127 by LYJ 
    fChkValidRecInfo(); //kimsj 처방시 미비기록 유무 확인(submit) -- SMMMO04100.js에서 message 실행
}

/**
 * @desc   : 차상위 추가 체크
 * @param  :  
 * @return :
 * @author : 20090327 마정민추가
 * @---------------------------------------------------
*/ 
function fScndChk() {
    model.setValue ( "/root/send/cond3", model.getValue ( "/root/paminfo/list/pid" )); 
    model.setValue ( "/root/send/cond4", model.getValue ( "/root/paminfo/list/orddd" ));
    model.setValue ( "/root/send/cond5", model.getValue ( "/root/paminfo/list/cretno" ));
    model.setValue ( "/root/send/cond6", model.getValue ( "/root/paminfo/list/instcd" ));
    model.setValue ( "/root/send/cond7", model.getValue ( "/root/paminfo/list/insukind" ));
    model.setValue ( "/root/send/cond8", model.getValue ( "/root/paminfo/list/suppkind" ));
    model.setValue ( "/root/send/cond9", model.getValue ( "/root/paminfo/list/rrgstno1" ));
    model.setValue ( "/root/send/cond10", model.getValue ( "/root/paminfo/list/rrgstno2" ));
    model.setValue ( "/root/send/cond11", getUserInfo ("userid") );
    model.setValue ( "/root/send/cond12", "Y" );
    model.setValue ( "/root/send/cond14", model.getValue ( "/root/init/chronicdiseaseyn" ));
    
    //by sonjy 20090803 가정간호 특례체크 관련 추가 
    //model.setValue ( "/root/send/cond15", model.getValue ( "/root/paminfo/list/etcordflag" ));
    submit ( "TRMMO00127", false );
    
    //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 = grd_prcplist.selectedRows;   
    
    //kimsj 외래간호 선처치 마스터에 등록된 처방을 예약처방으로 지정하는 경우 처방 저장 시 [선처치] 자동으로 해제
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    var precureprcp = model.getValue ( "/root/initsrchprcp/prcpetccnts/precureprcpcd" );
    var sFrtStage = "", sSndStage = "", sPreMasterYn = "";
    
    for (var i=0; i< selectedRows; i++) {
        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(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 ( model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i) + "]/prcpcd" ) == sSndStage[0] ) {  //처방코드, 선처치 마스터 코드(코드|선처치|부서)
                    //model.alert("선처치 처리부분으로 들어왔습니다! prcpcd : " + sSndStage[0]);
                    sPreMasterYn = "Y";
                    break;
                }
            }
        }
        
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd" ) == "80" ) {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd", "20" );
            if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prnprcpflag" ) == "Y" ) {
                model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prnprcpflag", "N" );
            }
            if (sPreMasterYn == "Y")    model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/precureprcpflag", "Y" ); //선처치
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpkindcd", "80" );
            if (sPreMasterYn == "Y")    model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/precureprcpflag", "N" ); //선처치
        }

        makePrcpNm( prcpNode, grd_prcplist.selectedrow(i) );
        
        fSetCpVal(grd_prcplist.selectedrow(i), "U");
    }
}

function fGetRsrvPrcp() {    

    model.setValue ( "/root/send/cond1", model.getValue("/root/paminfo/list/pid")); //환자번호
    model.setValue ( "/root/send/cond2", getUserInfo("dutplceinstcd"));
    model.setValue ( "/root/send/cond3", getCurrentDate());
    
    submit ( "TRMMO00129", false );

    var srcNodeList = model.instances(0).selectNodes ("/root/result/prcplist"); 

    if ( srcNodeList.length > 0 ) {
        setParameter ( "SPMMO18200_pid", "1139716" );
        setParameter ( "SPMMO18200_orddd", "20090629");
        setParameter ( "SPMMO18200_cretno", "2");
        setParameter ( "SPMMO18200_prcpdd", getCurrentDate());
        setParameter ( "SPMMO18200_prcpinptflag", "33");
        setParameter ( "SPMMO18200_ioflag", "I");
        setParameter ( "SPMMO18200_prcpkindcd", "00");      
//      setParameter ( "SPMMO18200_prcpsignflag", "0");   //필요시 적용
        setParameter ( "SPMMO18200_prcpsignflag", "1");   //후인증
        setParameter ( "SPMMO18200_aftcertflag", "12");   //예약처방
        setParameter ( "SPMMO18200_aftcertdrid", "85015179");    //필요시 적용
        setParameter ( "SPMMO18200_prcperrflag", "Y");    //필요시 적용
        setParameter ( "SPMMO18200_title", "환자번호:21299741");    //필요시 적용
        //setParameter ( "SPMMO18200_prcpstatcd", "000"); //필요시 적용
        //setParameter ( "SPMMO18200_oprsrvno", "0");     //필요시 적용
        //setParameter ( "SPMMO18200_prcpauthflag", "0"); //필요시 적용
        

        var xpt = window.screenleft + 200;
        var ypt = window.screenTop + 100;
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2];

        modal ( "SPMMO18200", mon,  xpt, ypt, "SPMMO01000", "/root/result", "/root/result", "", false );

        clearParameter ( "SPMMO18200_pid" );
        clearParameter ( "SPMMO18200_orddd" );
        clearParameter ( "SPMMO18200_cretno" );
        clearParameter ( "SPMMO18200_prcpdd" );
        clearParameter ( "SPMMO18200_prcpinptflag" );
        clearParameter ( "SPMMO18200_ioflag" );
        clearParameter ( "SPMMO18200_prcpkindcd" );
        clearParameter ( "SPMMO18200_prcpsignflag" );
        clearParameter ( "SPMMO18200_aftcertflag" );
        clearParameter ( "SPMMO18200_aftcertdrid" );
        clearParameter ( "SPMMO18200_prcperrflag"); 
        clearParameter ( "SPMMO18200_title"); 
    }

}

/** 
 * @desc   : 신규처방 수정모드 초기화 
 * @param  : 
 * @return : 
 * @author : 20090630 by Moonsh
 * @---------------------------------------------------
*/ 
function fCodeModifyInit() {        
    
    if ( event.keyCode == "13" ) {  
        var grdcnt = grd_prcplist.rows; 
        var modirow = grd_prcplist.row; 
        grdcnt = grdcnt - 1; 
        
        if ( grdcnt != modirow ) { 
            model.setValue("/root/init/rowmodify/modiinit", "Y"); 
            model.setValue("/root/init/rowmodify/modiflag", "Y"); 
            model.setValue("/root/init/rowmodify/modirow", modirow); 
            
            var bacprcpcd = model.getValue("/root/main/prcp/prcplist[" + modirow + "]/prcpcd"); 
            // 상태가 검색은 삭제가 안되므로, 검색에서 신규로 상태 변경 후 삭제 
            model.setValue( "/root/main/prcp/prcplist[" + modirow + "]/status", "I");           
            var grdcnt = grd_prcplist.rows; 

            grdcnt = grdcnt - 1; 
            model.setValue("/root/init/rowmodify/lastrow", grdcnt); 
            model.setValue("/root/main/prcp/prcplist[" + grdcnt + "]/prcpcd", bacprcpcd); 

            grd_prcplist.row = grdcnt; 
            grd_prcplist.focusColor = "#ffffff"; 
            prcpcd = bacprcpcd ; 
        } 
    } 
} 

/**
 * @desc   : 신규처방 수정되는 열 추가 
 * @param  :  
 * @return :
 * @author : 20090630 by Moonsh
 * @---------------------------------------------------
*/ 
function fCodeModifyAdd() { 
    // Import여부 조회 
    var importflag = model.getValue("/root/init/rowmodify/importflag"); 
    
    // 검색 단어 수가 맞지 않을 경우 조회 전 값 셋팅 후 리턴 
    var srchnoflag = model.getValue("/root/init/rowmodify/srchnoflag"); 
    if ( srchnoflag == "Y" ) { 
        var modirow = model.getValue("/root/init/rowmodify/modirow"); 
        var prcpcd = model.getValue( "/root/main/prcp/prcplist[" + modirow + "]/prcpcd"); 
        var modiprcpcd = model.getValue("/root/init/rowmodify/modiprcpcd"); 
        var lastrow = grd_prcplist.rows ; 
        lastrow = lastrow - 1; 
        
        var lastprcpcd = model.getValue( "/root/main/prcp/prcplist[" + lastrow + "]/prcpcd"); 
        
        model.setValue( "/root/main/prcp/prcplist[" + modirow + "]/prcpcd", modiprcpcd); 
        model.setValue( "/root/main/prcp/prcplist[" + lastrow + "]/prcpcd", ""); 
        
        // 초기화 
        model.setValue("/root/init/rowmodify/modiflag", ""); 
        model.setValue("/root/init/rowmodify/enterflag", ""); 
        model.setValue("/root/init/rowmodify/srchnoflag", ""); 
        grd_prcplist.focusColor = "#ece1ec"; 
        
        grd_prcplist.row = modirow; 
        model.refresh();        
        return ; 
    } 
    
    // edit cell 상황에서 enter 칠때만 변경 코드 조회 적용 
    if ( event.keyCode == "13" || importflag == "Y") { 
        var tarrow = model.getValue("/root/init/rowmodify/modirow"); 
        var lastrow = model.getValue("/root/init/rowmodify/lastrow"); 

        grd_prcplist.row = tarrow; 
        // 해당 row 삭제 처리 
        fDeleteRow(); 
        
        var mstPrcpPath = "root/main/prcp/"; 
        var svcNode = instance1.selectNodes(mstPrcpPath + "prcplist"); 
        var mstNode = instance1.selectSingleNode(mstPrcpPath + "prcplist"); 
        
        var nodeLen = svcNode.length; 
        
        // 1. 검색 했으나 조회 조건이 없을 경우, 2. 그룹코드를 수정할 경우 
        if ( lastrow > nodeLen ) { 
            var srchcond = "N"; 
        } 

        // 1. 수정 후 코드 조회 건이 1건일 경우(대부분이 여기에 해당),  2. 검색했으나 조회 조건이 없을때... 
        if ( lastrow == nodeLen || srchcond == "N" ) { 
            // 위치 선정 
            tarrow = tarrow - 1; 
            lastrow = lastrow - 2; 
            
            var refChild = instance1.selectSingleNode(mstPrcpPath + "prcplist["+tarrow+"]");            
            if (srchcond != "N") { 
                var cloneNode = svcNode.item(lastrow).cloneNode(true); 
            } else { 
                nodeLen = nodeLen - 2; 
                var cloneNode = svcNode.item(nodeLen).cloneNode(true); 
            } 

            if ( tarrow != "0" ) { 
                mstNode.insertAfter(cloneNode ,refChild); 
            } 
            
            lastrow = lastrow + 2;                              // 한줄 추가된 것과 -1된거까지 합해서 +2를 해줘야 삭제될 row 

            // 조회 조건이 있을때만 노드 삭제 
            if ( srchcond != "N" ) { 
                model.removeNodeset (mstPrcpPath + "prcplist["+lastrow+"]"); 
            } else {                
                nodeLen = nodeLen + 2 ; 
                model.removeNodeset (mstPrcpPath + "prcplist["+nodeLen+"]"); 
            } 
            
            tarrow++ ;                                          // 대상 row 다음 row에 추가 되므로 선택될 row는 추가된 row 
            grd_prcplist.row = tarrow; 
        } else {                                                // 수정 후 코드 조회건이 1건 이상일 경우 
            tarrow = tarrow - 1; 
            lastrow = lastrow - 2; 
            var roop = nodeLen - lastrow; 
            for ( i=1; i < roop; i++ ) { 
                var refChild = instance1.selectSingleNode(mstPrcpPath + "prcplist["+tarrow+"]"); 
                tarrow++; 
                
                var cloneNode = svcNode.item(lastrow).cloneNode(true); 
                lastrow++; 
                
                mstNode.insertAfter(cloneNode ,refChild); 
            } 
            
            lastrow ++ ; 
            // for 문 돌면서 삭제 처리 
            for ( i=1; i < roop; i++ ) { 
                model.removeNodeset (mstPrcpPath + "prcplist["+lastrow+"]"); 
            } 
            
            var tarrow2 = model.getValue("/root/init/rowmodify/modirow"); 
            grd_prcplist.row = tarrow2; 
        }
        model.resetInstanceNode ("/root/init/rowmodify"); 
        grd_prcplist.focusColor = "#ece1ec"; 
        
        model.refresh();        
        fPrcpColor() ; 
    }           
}

/**
 * @desc   : 약처방 용량,수량 검증
 * @return : true, false
 * @authur : 마정민 2009. 8. 12
 */

function fDrugCheck() {
    
    var srcNodeList = model.instances(0).selectNodes("/root/main/prcp/prcplist");
    for (var i=1; i<=srcNodeList.length; i++) {
        if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpclscd" ).substring (0,1) == 'A' &&
            model.getValue ( "/root/main/prcp/prcplist[" + i + "]/status" ) == "I"
            ) {
            var orgprcpqty = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/drugmastspec" ) + "^", 0, 32 , "^", "|" );
            var orgprcpvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/drugmastspec" ) + "^", 0, 33 , "^", "|" );
            var prcpqty = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpqty" );
            var prcpvol = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpvol" );

            if ( !isNull(orgprcpqty) && !isNull(orgprcpvol) && Math.round ( prcpvol/orgprcpvol * orgprcpqty * 1000 ) != prcpqty * 1000 ){
                alert ( "값이틀립니다." + model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpcd" ));
                //return false;
            } else {
                alert ( "값이맞습니다."  + model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpcd" ));
            }
        }
    }
    return true;
}

/**
 * @desc   : 통증관리 화면.
 * @return : true, false
 * @authur : 한재상 2009. 9. 9
 */
function fPainCnt() {
    var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );

    var paincntyn = model.getValue("/root/initsrch/paincntyn/trgtcd");
    var srcNodeList = model.instances(0).selectNodes ("/root/initsrch/paincntdept[trgtcd='" + orddeptcd + "']" );

    if ( prcpgenrflag == "I" && paincntyn == "Y" && srcNodeList.length != 0 ) {
        var pid = model.getValue("/root/paminfo/list/pid");
        var indd = model.getValue("/root/paminfo/list/indd");
        var cretno = model.getValue("/root/paminfo/list/cretno");

        fConfirmPainAdmin(pid, indd, cretno, "dr", "/root/main/searchinfo/paincount");
    }
}


/**
 * @desc   :병리처방 과거 블록 지정 => 변경 요청번호 7322 
 * @return : true, false
 * @authur : 손주연 2009.09.27
 */

function fSetPlgyPastBlock() {
    var selcnt = grd_prcplist.selectedrows;
    var i   = 0; 
    var tempcol2 = "";
    var chkcnt = 0;
    
    for (var j= 0; j < selcnt; j++) {
        i = grd_prcplist.selectedrow(j);
        tempcol2 = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol2" );
        
        //earncls1 : 07  earncls2 : 01, 02(조직, 세포) 신규 팝업 화면이 뜨지 않아야 함. 
        if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpclscd" )  != 'D2' || 
             tempcol2.substring(0,5) == "07|01" || tempcol2.substring(0,5) == "07|02" ) { 
             messageBox (model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpnm" ) + "는 병리번호지정 가능한 처방이 아닙니다.", "I" );
             return false;
        } else {
            chkcnt++;
        } 
    }
    
    if( chkcnt < 1 ) return false;
    
    var xpt = window.screenleft + 100;
    var ypt = window.screenTop + 100;
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];  
    
    xpt = coord[1];
    ypt = coord[2];
    
    var pid = model.getValue ( "/root/paminfo/list/pid" );
    model.resetInstanceNode ( "/root/hidden/reqfrminfo" );
    model.setValue ( "/root/hidden/reqfrminfo/pid", pid );
    
    modal("SPLPJ02600",mon, xpt, ypt,"SPLPJ02600","/root/hidden/reqfrminfo","/root/hidden/reqfrminfo", "", false);
    var reqno = model.getValue ( "/root/hidden/reqfrminfo/reqno" );
    
    if ( !isNull(reqno)){
        for( var j = 0 ; j < selcnt ; j++){
            i = grd_prcplist.selectedrow(j);
            tempcol2 = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol2" );
            
            if( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpclscd" )  == 'D2' &&
             tempcol2.substring(0,5) != "07|01" && tempcol2.substring(0,5) != "07|02"  ){
                model.setValue ( "/root/main/prcp/prcplist[" + i + "]/testreqlnkno", model.getValue ( "/root/hidden/reqfrminfo/reqno" ));
                model.setValue ( "/root/main/prcp/prcplist[" + i + "]/drugmthdspccd", model.getValue ( "/root/hidden/reqfrminfo/spccd" ));
                model.setValue ( "/root/main/prcp/prcplist[" + i + "]/drugmthdspccdnm", model.getValue ( "/root/hidden/reqfrminfo/spcnm" ));
            }
         }
    }
    return true;
}

/**
 * @desc   : 처방 화면의 처방코드 컬럼 SORTING
 * @param  : 
 * @return : 
 * @author : 전지은
 * @---------------------------------------------------
 */
function fGrdOnBeForeSort(){
    //2009.10.15 처방 화면의 처방코드 컬럼 SORTING 기능 추가 요청 - 검색라인이 맨위로 올라가는 것을 방지
    grd_prcplist.removeRow(false);
    
    //2009.10.29 mset 존재하면 copy&delete 해두었다가 정렬 후 추가해준다
    model.makeNode("/root/temp/tempsortprcp");
    copyNodeListType ( "/root/temp/tempsortprcp", "/root/main/prcp/prcplist[inclprcpno>'0' and prcpsetcd!='-']" , "replace", model, model); 
    for(var i=grd_prcplist.rows; i>=1; i--){
        if(model.getValue("/root/main/prcp/prcplist["+i+"]/inclprcpno") > "0" && model.getValue("/root/main/prcp/prcplist["+i+"]/prcpsetcd") != "-"){
            grd_prcplist.deleteRow(i, false);
        }
    }
}

/**
 * @desc   : 처방 화면의 처방코드 컬럼 SORTING
 * @param  : 
 * @return : 
 * @author : 전지은
 * @---------------------------------------------------
 */
function fGrdOnAfterSort(){
    //2009.10.15 처방 화면의 처방코드 컬럼 SORTING 기능 추가 요청 - 정렬 후 검색라인 맨 밑에 추가
    grd_prcplist.gridToInstance();
    
    appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //검색라인추가 
    
    //2009.10.29 mset처방의 자코드가 따로 그룹핑되도록 처리
    if(instance1.selectSingleNode("/root/temp/tempsortprcp/prcplist") != null){
        var msetCnt = instance1.selectNodes("/root/main/prcp/prcplist[inclprcpno>'0' and prcpsetcd='-']");
        //mset 개수만큼
        for( var m=0; m< msetCnt.length; m++ ){
            var mNode = msetCnt.item(m);
            var mInclprcpno = mNode.selectSingleNode("inclprcpno").text;
            var rowNum = instance1.selectNodes("/root/main/prcp/prcplist").length;
            var tempCnt = instance1.selectNodes("/root/temp/tempsortprcp/prcplist").length;
            //처방 수만큼 check
            for( var i=1; i<=rowNum; i++ ){
                var iInclprcpno = model.getValue("/root/main/prcp/prcplist["+i+"]/inclprcpno");
                var iPrcpsetcd = model.getValue("/root/main/prcp/prcplist["+i+"]/prcpsetcd");
                if(mInclprcpno == iInclprcpno && iInclprcpno > "0" && iPrcpsetcd == "-"){
                    //복사해둔 자코드들을 copy
                    for(var t=tempCnt; t>=1; t--){
                        var tInclprcpno = model.getValue("/root/temp/tempsortprcp/prcplist["+t+"]/inclprcpno");
                        if(iInclprcpno == tInclprcpno){
                            model.duplicate( "/root/main/prcp", "/root/temp/tempsortprcp/prcplist[" + t + "]", "*[" + (i+1) + "]");
                        }
                    }
                    break;
                }
            }
        }
        model.removenode("/root/temp/tempsortprcp");
    }
    
    grd_prcplist.rebuild();
    model.recalculate(); 
    grd_prcplist.refresh();
    fPrcpColor();
}

/**
 * @desc   : 처방 이동 (위로 or 아래로 버튼을 통한 이동)
 * @param  : btnFlag 버튼구분(top or bottom)
 * @return : void
 * @authur : 전지은 2009.11.18
 * @---------------------------------------------------
 */
function fMovePrcpList ( btnFlag ) {
    var selectedRows = grd_prcplist.selectedRows;
    var frstRow   = 0;
    if( btnFlag == "top" )         frstRow = grd_prcplist.selectedRow(0);
    else if( btnFlag == "bottom" ) frstRow = grd_prcplist.selectedRow(selectedRows - 1);
    var allRows   = grd_prcplist.rows - 2; //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 > 0) ) return;
    
    model.makeNode("/root/tmp_moveprcp");
    
    for(var i=selectedRows-1; i>=0; i--){
        if(model.getValue("/root/main/prcp/prcplist["+ grd_prcplist.selectedrow(i) +"]/inclprcpno") > "0" && model.getValue("/root/main/prcp/prcplist["+ grd_prcplist.selectedrow(i) +"]/prcpsetcd") == "-")
            inclprcpnoCVS = inclprcpnoCVS + model.getValue("/root/main/prcp/prcplist["+ grd_prcplist.selectedrow(i) +"]/inclprcpno") + "|";
    }
    inclprcpnoItem = inclprcpnoCVS.split("|");
    
    //전체 row를 보면서 rowSeq를 설정해 줌 , rowseq순으로 /root/tmp_moveprcp => /root/main/prcp 로 이동
    if( btnFlag == "top" ){
        
        for( var i=grd_prcplist.rows-1; i>0; i-- ){
            
            iRow = i;
            chkNum = 0;
            chngYN = 0;
            addNum = 0;
            //pmFlag = 0;
            
            if( iRow > 1 ){
                
                chkInclprcpno = model.getValue("/root/main/prcp/prcplist["+ 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 && grd_prcplist.isselected(iRow) == true && chkInclprcpno == "0" ) chngYN = 1;
                
                if( chngYN == 1 ){  //선택된 row이면(선택된모코드의 자코드도 포함)
                    addChkRow = iRow - 1;
                    selInclprcpno = "";
                    
                    if( addChkRow > 0 && addChkRow < grd_prcplist.rows ){
                        
                        for(var j=addChkRow; j>=1; j--){
                            addYN = "N";
                            chkInclprcpno = model.getValue("/root/main/prcp/prcplist["+ 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" && grd_prcplist.isselected(j) == true && chkInclprcpno == "0" ){
                                //addNum++;
                                addYN = "Y";
                            }
                            
                            if( addYN != "Y" ){
                                if( chkInclprcpno != "0" ){  // && chkInclprcpno != inclprcpnoItem[k]
                                    if( isNull(selInclprcpno) ) selInclprcpno = model.getValue("/root/main/prcp/prcplist["+ j +"]/inclprcpno");
                                    if( !isNull(selInclprcpno) && selInclprcpno == chkInclprcpno && isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                    chkNum++;
                                }
                                else{
                                    if( printRow.length <= 0 ){
                                        if( isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                        chkNum++;
                                    }
                                    break;
                                }
                            }
                            
                        }
                    }
                }
                
            }
            
            if( chngYN > 0 ){
                rowNum = i - printRow.length;
                moveCnt++;
                selRows[selRows.length] = rowNum;
                
                //임시처방은 순서변경 시 수정모드로 상태를 세팅해줌
                if( model.getValue ( prcpNode + "[" + i + "]/status") == "-") model.setValue ( prcpNode + "[" + 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( model.getValue(prcpNode + "["+ i +"]/status") == "S" ) rowNum = i;
            
            model.makeValue(prcpNode + "[" + i + "]/rowseq", rowNum);
            printRow2[i-1] = rowNum;
        }
        
    }
    
    else{
        
        for( var i=1; i<grd_prcplist.rows; i++ ){
            
            iRow = i;
            chkNum = 0;
            chngYN = 0;
            addNum = 0;
            //pmFlag = 0;
            
            if( iRow < grd_prcplist.rows ){
                
                chkInclprcpno = model.getValue("/root/main/prcp/prcplist["+ 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 && grd_prcplist.isselected(iRow) == true && chkInclprcpno == "0" ) chngYN = 1;
                
                if( chngYN == 1 ){  //선택된 row이면(선택된모코드의 자코드도 포함)
                    addChkRow = iRow + 1;
                    selInclprcpno = "";
                    
                    if( addChkRow > 0 && addChkRow < grd_prcplist.rows ){
                        
                        for(var j=addChkRow; j<=allRows; j++){
                            addYN = "N";
                            chkInclprcpno = model.getValue("/root/main/prcp/prcplist["+ 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" && grd_prcplist.isselected(j) == true && chkInclprcpno == "0" ){
                                //addNum++;
                                addYN = "Y";
                            }
                            
                            if( addYN != "Y" ){
                                if( chkInclprcpno != "0" ){  // && chkInclprcpno != inclprcpnoItem[k]
                                    if( isNull(selInclprcpno) ) selInclprcpno = model.getValue("/root/main/prcp/prcplist["+ j +"]/inclprcpno");
                                    if( !isNull(selInclprcpno) && selInclprcpno == chkInclprcpno && isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                    chkNum++;
                                }
                                else{
                                    if( printRow.length <= 0 ){
                                        if( isNull(printRow[chkNum]) ) printRow[printRow.length] = j;
                                        chkNum++;
                                    }
                                    break;
                                }
                            }
                            
                        }
                    }
                }
                
            }
            
            if( chngYN > 0 ){
                rowNum = i + printRow.length;
                moveCnt++;
                selRows[selRows.length] = rowNum;
                
                //임시처방은 순서변경 시 수정모드로 상태를 세팅해줌
                if( model.getValue(prcpNode + "[" + i + "]/status") == "-") model.setValue ( prcpNode + "[" + 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( model.getValue(prcpNode + "["+ i +"]/status") == "S" ) rowNum = i;
            
            model.makeValue(prcpNode + "[" + i + "]/rowseq", rowNum);
            printRow2[i-1] = rowNum;
        }

    }
    
    //alert( printRow2 );
    
    copyNodeListType ( "/root/tmp_moveprcp", "/root/main/prcp/prcplist" , "replace", model, model); 
    
    //처방 인스턴스로 이동 후 refresh
    model.removeNodeset(prcpNode);
    
    for( var i=1; i<grd_prcplist.rows; i++ ){
        copyNodeListType ( "/root/main/prcp", "/root/tmp_moveprcp/prcplist[rowseq='" + i + "']" , "after", model, model); 
        model.removenode(prcpNode + "[" + i + "]/rowseq");
    }
    
    model.removeNodeset("/root/tmp_moveprcp/prcplist");
    
    grd_prcplist.rebuild();
    //grd_prcplist.refresh();
    model.recalculate();
    fPrcpColor();
    
    //이동된 row를 select 처리함
    if( selRows.length > 0 ){
        for(var i=0; i<selRows.length; i++){
            grd_prcplist.AddListSelect(selRows[i]);
        }
    }
    
}

/**
 * @desc   : 상단화면과 진료대상자의 원무키가 다를때 블러킹.
 * @param  : void
 * @return : void
 * @authur : 한재상(HJS) 2009.12.01
 * @---------------------------------------------------
 */
function fPrcpPaminfoChk() {
    return true;
    var ordPatObj = getOpenWindow("SMMMO04100");

    if (model.getValue("/root/paminfo/list/pid") != "" && ordPatObj.javascript.getParameter("SMMMR00100_PATINFO_PID") != "") {
        var param_pid = parseInt(ordPatObj.javascript.getParameter("SMMMR00100_PATINFO_PID"));
        var param_orddd = parseInt(ordPatObj.javascript.getParameter("SMMMR00100_PATINFO_ORDDD"));
        var param_cretno = parseInt(ordPatObj.javascript.getParameter("SMMMR00100_PATINFO_CRETNO"));
        var paminfo_pid = parseInt(model.getValue("/root/paminfo/list/pid"));

        if (model.getValue("/root/paminfo/list/orddd") != "") {
            var paminfo_orddd = parseInt(model.getValue("/root/paminfo/list/orddd"));
        } else {
            var paminfo_orddd = parseInt(model.getValue("/root/paminfo/list/indd"));
        }
        var paminfo_cretno = parseInt(model.getValue("/root/paminfo/list/cretno"));

        if (param_pid != paminfo_pid || param_orddd != paminfo_orddd || param_cretno != paminfo_cretno ) {
            btn_reinit.visible = true;
            btn_init.visible = false;
            btn_reinit.attribute("text") = "상단정보와 처방화면의 환자정보가 다릅니다. 환자를 다시 선택해주십시요.\n"
                +"\npid:"+param_pid+"|"+paminfo_pid
                +"\norddd:"+param_orddd+"|"+paminfo_orddd
                +"\ncretno:"+param_cretno+"|"+paminfo_cretno;
            model.setValue("/root/init/paminfochkyn", "N");
            ivw_prcp.visible = false;
            ivw_prcp3.visible = false;

            return false;
        } else {
            btn_reinit.visible = false;
            btn_reinit.attribute("text") = "이곳을 클릭하시면 처방창이 활성화 됩니다.";
            model.setValue("/root/init/paminfochkyn", "Y");
            ivw_prcp.visible = true;
            ivw_prcp3.visible = true;

            return true;
        }
    } else {
        return true;
    }
        
}

// 20100108 한재상 - 유전자검사 동의서 출력방식 변경 (OCR -> REX)
function fSaveOCRIF(ocrtag, pid, orddd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, diaghngnm, ophngnm, pagecnt){
    model.addlog("fSaveOCRIF: " + ocrtag + "," + pid + "," + orddd + "," + cretno + "," + ordtype + "," + orddeptcd + "," + orddrid + "," + formcd + "," + formfromdt + "," + diaghngnm + "," + ophngnm + "," + pagecnt);
    var savepath = "/root/hidden/atadocrdata/row/";
    model.makeValue(savepath + "ocrtag", ocrtag);
    model.makeValue(savepath + "pid", pid);
    model.makeValue(savepath + "ordtype", ordtype);
    model.makeValue(savepath + "orddd", orddd);
    model.makeValue(savepath + "cretno", cretno);
    model.makeValue(savepath + "orddrid", orddrid);
    model.makeValue(savepath + "orddeptcd", orddeptcd);
    model.makeValue(savepath + "formcd", formcd);
    model.makeValue(savepath + "formfromdt", formfromdt);
    model.makeValue(savepath + "fstprntdt", getCurrentDate()+getCurrentTime());
    model.makeValue(savepath + "fstprntdeptcd", getUserInfo("dutplcecd"));
    model.makeValue(savepath + "fstprntid", getUserInfo("userid"));
    model.makeValue(savepath + "updtdt", getCurrentDate()+getCurrentTime());
    model.makeValue(savepath + "updtdeptcd", getUserInfo("dutplcecd"));
    model.makeValue(savepath + "updtuserid", getUserInfo("userid"));
    model.makeValue(savepath + "diagnm", diaghngnm);
    model.makeValue(savepath + "opnm", ophngnm);
    model.makeValue(savepath + "pagecnt", pagecnt);

    if(submit("TXMRF03805")){
        model.removeNodeset("/root/hidden/atadocrdata");
        return true;
    } else {
        model.removeNodeset("/root/hidden/atadocrdata");
        return false;
    }
}

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

    var npdeptcd        = model.getValue ( "/root/initsrch/inhospappdeptcd/trgtcd" );
    var npresnyn        = getPatientInfoDetail("npresnyn");
    var prcpgenrflag    = model.getValue ( "/root/patflag/list/prcpgenrflag" ) ;
    var insukind        = model.getValue ( "/root/paminfo/list/insukind" );
    var dschprcpyn      = model.getValue ( "/root/hidden/dschprcpyn" ); //퇴원처방 발행 여부 
    
    //로그인한 의사의 근무지부서코드가 정신과이고 의료급여 정신과 환자의 퇴원처방 존재시 입퇴원 유형 사유 입력 
    if ( model.getValue ( "/root/addprcp" ) != "Y" &&  
         model.getValue ( "/root/paminfo/list/orddeptcd" ) == npdeptcd  &&  getUserInfo("dutplcecd") == npdeptcd && 
         prcpgenrflag == "I" && ( insukind == "21" ||  insukind == "22" ) && dschprcpyn == "Y"
       ) {  
            setParameter ( "SPMMO21100_pid"         , model.getValue("/root/paminfo/list/pid")); 
            setParameter ( "SPMMO21100_orddd"       , model.getValue("/root/paminfo/list/indd")); 
            setParameter ( "SPMMO21100_cretno"      , model.getValue("/root/paminfo/list/cretno")); 
            setParameter ( "SPMMO21100_orddeptcd"   , model.getValue("/root/paminfo/list/orddeptcd")); 
            setParameter ( "SPMMO21100_ordtype"     , prcpgenrflag); 
            
            if( npresnyn != "002" && npresnyn != "003" ) {          
                setParameter ( "SPMMO21100_title1"      , "퇴원유형입력");  
                setParameter ( "SPMMO21100_title2"      , "정신과 차등수가제도 특정내역"); //정신과 의료급여 환자 
                setParameter ( "SPMMO21100_resnflag"    , "002"); //002 정신과 차등수가제도 퇴원유형
                setParameter ( "SPMMO21100_hardcdno"    , "175"); //퇴원유형사유 HARDCODE 번호 
                modal("SPMMO21100", "", "510px", "427px", "SPMMO21100", "", "", "sysmenu:hidden; min:visible; max:visible; icon:visible", false); 
            }
            
            if( getPatientInfoDetail("npresnyn") == "002" ){
                setParameter ( "SPMMO21100_title1"      , "퇴원후거주시입력");  
                setParameter ( "SPMMO21100_title2"      , "정신과 차등수가제도 특정내역"); //정신과 의료급여 환자 
                setParameter ( "SPMMO21100_resnflag"    , "003"); //002 정신과 차등수가제도 퇴원유형
                setParameter ( "SPMMO21100_hardcdno"    , "176"); //퇴원유형사유 HARDCODE 번호 
                modal("SPMMO21100", "", "510px", "427px", "SPMMO21100", "", "", "sysmenu:hidden; min:visible; max:visible; icon:visible", false); 
            }
    }
}



/**
 * @desc   : 자가보유약 조회 (submit 발생)
 * @param  :  
 * @return :
 * @author : 이윤정
 * @---------------------------------------------------
*/  
function fSelfHldPrcpSub() {

   if (model.getValue("/root/initsrch/selfholdchk/trgtcd") == "Y"){
       model.removeNodeSet ( "/root/hidden/selfhld" ); 
       model.removeNodeSet ( "/root/selfholdprcp" ); 
       var getSelfHldPrcpInfo = "getSelfHldPrcpInfo"
       var selfioflag = model.getValue ( "/root/paminfo/list/ioflag" );
       var selfyn = ""
    
        if (selfioflag =="I" || selfioflag=="E" || selfioflag=="D"){
              model.makeValue("/root/hidden/selfhld/cond99",getSelfHldPrcpInfo);
              model.makeValue("/root/hidden/selfhld/cond1",model.getValue ( "/root/paminfo/list/pid") );
              model.makeValue("/root/hidden/selfhld/cond2",selfioflag);
               if (selfioflag =="I" || selfioflag=="E" || selfioflag=="D"){
                   model.makeValue("/root/hidden/selfhld/cond3",model.getValue ( "/root/paminfo/list/indd" ));
              }else  model.makeValue("/root/hidden/selfhld/cond3",model.getValue ( "/root/paminfo/list/orddd" ));
                        model.makeValue("/root/hidden/selfhld/selfopenyn","Y");
                        var rere = submit( "TRMMO14903", false );   
        /*         if (model.getValue("/root/selfholdprcp/prcplist/header") !=""){
                         selfyn = messageBox ("자가보유약이 등록되었습니다. 확인","S001");  
                         if (selfyn == "6"){
                            modal("SPMMO19300", "", "510px", "427px", "",  "/root/selfholdprcp", "/root/prcpsrch","sysmenu:hidden; min:visible; max:visible; icon:visible", false);
                       }
                
                   }*/
       }
    }
}


/**
 * @desc   : 자가보유약 조회 (modal 띄우기)
 * @param  :  
 * @return :
 * @author : 이윤정
 * @---------------------------------------------------
*/  

function fSelfHldPrcpModal() {
   if (model.getValue("/root/initsrch/selfholdchk/trgtcd") == "Y"){
               if (model.getValue("/root/selfholdprcp/prcplist/header") !=""){
                         selfyn = messageBox ("자가보유약이 등록되었습니다. 확인","S001");  
                         if (selfyn == "6"){
                            setParameter ( "SPMMO19300_prcp", "prcp");
                            setParameter ( "SPMMO19300_selfholdchk", model.getValue("/root/initsrch/selfholdchk/trgtcd"));
                            modal("SPMMO19300", "", "510px", "427px", "",  "/root/selfholdprcp", "/root/selfholdprcp","sysmenu:hidden; min:visible; max:visible; icon:visible", false);
                            focusMain ( grd_prcplist.row );
                         }
               }
   }

}



/**
 * @desc   : 메인의 우클릭 메뉴 하드코드 조회  
 * @
 * @param  : ref      - reference path
 *           rsltref  - result reference path
 *           hardcd   - 하드코드
 * @return :
 * @author : 박유진
 * @---------------------------------------------------
 */
function fGetRghtClickList(){
    
        var a = instance1.selectNodes("/root/initsrch/omrigtclicklist");
        if(a.length>0){
            model.removenode("/root/init/omsrght");
            model.makeNode("/root/init/omsrght");
            for(var i = 1 ; i <= a.length ; i ++){
                var hardcd = model.getValue("/root/initsrch/omrigtclicklist["+i+"]/trgtcd");
                var hardcdnm = model.getValue("/root/initsrch/omrigtclicklist["+i+"]/trgtcdnm");
                if(hardcd=="-"|| hardcd==" ") hardcd=""; 
                if(hardcdnm=="-"|| hardcdnm==" ") hardcdnm=""; 
                model.makeValue("/root/init/omsrght/mouserght["+i+"]/func",hardcd);
                model.makeValue("/root/init/omsrght/mouserght["+i+"]/label",hardcdnm);
            }
        }
        var b = instance1.selectNodes("/root/initsrch/imrigtclicklist");
        if(b.length>0){
            model.removenode("/root/init/imsrght");
            model.makeNode("/root/init/imsrght");
            for(var i = 1 ; i <= b.length ; i ++){
                var hardcd = model.getValue("/root/initsrch/imrigtclicklist["+i+"]/trgtcd");
                var hardcdnm = model.getValue("/root/initsrch/imrigtclicklist["+i+"]/trgtcdnm");
                if(hardcd=="-"|| hardcd==" ") hardcd=""; 
                if(hardcdnm=="-"|| hardcdnm==" ") hardcdnm=""; 
                model.makeValue("/root/init/imsrght/mouserght["+i+"]/func",hardcd);
                model.makeValue("/root/init/imsrght/mouserght["+i+"]/label",hardcdnm);
            }
        }
        var c = instance1.selectNodes("/root/initsrch/emrigtclicklist");
        if(c.length>0){
            model.removenode("/root/init/emsrght");
            model.makeNode("/root/init/emsrght");
            for(var i = 1 ; i <= c.length ; i ++){
                var hardcd = model.getValue("/root/initsrch/emrigtclicklist["+i+"]/trgtcd");
                var hardcdnm = model.getValue("/root/initsrch/emrigtclicklist["+i+"]/trgtcdnm");
                if(hardcd=="-"|| hardcd==" ") hardcd=""; 
                if(hardcdnm=="-"|| hardcdnm==" ") hardcdnm=""; 
                model.makeValue("/root/init/emsrght/mouserght["+i+"]/func",hardcd);
                model.makeValue("/root/init/emsrght/mouserght["+i+"]/label",hardcdnm);
            }
        }

    model.refresh();

}

/**
 * @desc   : 외부 CD 재판독 의뢰 팝업 호출 여부 체크 (2010.02.19 JJE)
 * @
 * @param  : ref      - reference path
 *           rsltref  - result reference path
 *           hardcd   - 하드코드
 * @return :
 * @author : 전지은
 * @---------------------------------------------------
 */
function fChkOuterCdListPop(){
    if( instance1.selectSingleNode("/root/initsrch/outercdtypelist/trgtcd") != null ){
        if( model.getValue ( "/root/addprcp" ) != "Y" ){  //외래환자만 pop -> 입원/응급환자도 pop
        clearParameter("spmmo21200_rtnyn"); 
        clearParameter("spmmo21200_pid");
        clearParameter("spmmo21200_orddeptcd");
        clearParameter("spmmo21200_rtnprcpcd"); 
        clearParameter("spmmo21200_rtneqmtcd"); 
        clearParameter("spmmo21200_rtntrsmdd"); 
        clearParameter("spmmo21200_rtntrsmtm"); 
            var pid       = model.getValue("/root/paminfo/list/pid");
            var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
            model.makeValue("/root/spmmo21200/send/pid"      , pid);
            model.makeValue("/root/spmmo21200/send/orddeptcd", orddeptcd);
            model.makeNode ("/root/spmmo21200/cdlist");
            if( submit("TRMMO21201", false) ){ //외부 등록 CD가 있고, 판독료 처방 미발행인 경우 외부 등록 CD 리스트 조회
                if( instance1.selectSingleNode("/root/spmmo21200/cdlist/info") != null ){
                    setParameter("spmmo21200_pid"      , pid);
                    setParameter("spmmo21200_orddeptcd", orddeptcd);
                fPrcpModal ( "SPMMO21200", 0, 0 );
            }
            }
            model.removenode("/root/spmmo21200");
        }
    }
}


/**
 * @desc   : 처방시 미비기록 유무 확인(submit)
 * @param  : void
 * @return : void
 * @author : 김소정
 * @---------------------------------------------------
 */
function fChkValidRecInfo(){
    
    var prcpgenrflag = model.getValue("/root/patflag/list/prcpgenrflag");
    model.removeNodeset("/root/temprec/valid");
    
    if (prcpgenrflag != "O" && prcpgenrflag != "S"){ //외래가 아닐때 
        var pid = model.getValue ("/root/paminfo/list/pid");
        var orddd = model.getValue ("/root/paminfo/list/indd");
        var cretno = model.getValue ("/root/paminfo/list/cretno");
        var dschdd = model.getValue ("/root/paminfo/list/dschdd");  
//      model.alert("pid : "+pid+" |orddd : "+orddd+" | cretno : "+cretno);
        
        //1. 퇴원처방시점
        if (!isNull(model.getValue ("/root/main/prcp/prcplist[prcpkindcd='60']/prcpcd"))) { 
            model.makeValue("/root/temprec/valid/reqdata/eventflag", "DC_ORD");
            model.makeValue("/root/temprec/valid/reqdata/pid", pid);
            model.makeValue("/root/temprec/valid/reqdata/orddd", orddd);
            model.makeValue("/root/temprec/valid/reqdata/cretno", cretno);
            model.makeValue("/root/temprec/valid/reqdata/reqdd", dschdd);
        } 
        //2. 처방시점
        else {
            model.makeValue("/root/temprec/valid/reqdata/eventflag", "ORD");
            model.makeValue("/root/temprec/valid/reqdata/pid", pid);
            model.makeValue("/root/temprec/valid/reqdata/orddd", orddd);
            model.makeValue("/root/temprec/valid/reqdata/cretno", cretno);
            model.makeValue("/root/temprec/valid/reqdata/reqdd", "");
        }
        
        submit("TRMMR01303", false);
        
        // model.alert("DEBUG : " + model.getValue("/root/temp/valid/validrecinfo/resultCod") );
    } 
}

/**
 * @desc   : 처방시 미비기록 유무 확인(message)
 * @param  : void
 * @return : true, false
 * @author : 김소정
 * @---------------------------------------------------
 */
function fValidRecInfoMsg(){

    var rstcod = model.getValue("/root/temprec/valid/validrecinfo/resultCod");

    if (  rstcod != "" && rstcod != null && rstcod != "0"  ) {
        var rstmsg = model.getValue("/root/temprec/valid/validrecinfo/resultMsg");
        messageBox (rstmsg, "E");
        return false;
    }
    
    //처방 속도개선을 위한 시간 체크 set 20101027  LYJ
    try {
        var SMMMO00100_E = new Date();
        var ordPatObj = getOpenWindow("SMMMO04100");    
        var SMMMO04100_chk = ordPatObj.javascript.getParameter("SMMMO04100_chk");
        if(ordPatObj != null && SMMMO04100_chk  == "Y"){
            ordPatObj.javascript.setParameter("SMMMO00100_E",SMMMO00100_E.getTime());
        }
    } catch(e) {
    }

    return true; 
}


function fPrintDyeFrm(srchRow, prcpclscd, prcpcd){
    //*************************** 조영제 출력팝업 **********************************//
    if ( prcpclscd == "C2" || prcpclscd == "C4" ) {
        iFind = model.getValue ( "/root/initsrch/prcpetccnts/ocrprnt" ).search( "DYE"+ prcpcd );
        if ( iFind >= 0) {
            if( getParameter("SPAER01900_popupYN" ) != "Y" ){ //조영제 부작용관리 팝업 한번만 뜨도록 요청함에 따라 팝업호출여부 체크 (2010.07.16 JJE)
                var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
                if ( prcpgenrflag == "O" || prcpgenrflag == "S" )  {
                    var orddd = model.getValue ( "/root/paminfo/list/orddd" );
                } else {
                    var orddd = model.getValue ( "/root/paminfo/list/indd" );
                }
                
                model.setValue ( "/root/hidden/ocrprint/calcscor/pid", model.getValue ( "/root/paminfo/list/pid" ));
                model.setValue ( "/root/hidden/ocrprint/calcscor/cretno", model.getValue ( "/root/paminfo/list/cretno" ));
                model.setValue ( "/root/hidden/ocrprint/calcscor/orddd", orddd );
                model.setValue ( "/root/hidden/ocrprint/calcscor/ordtype", prcpgenrflag);
                model.setValue ( "/root/hidden/ocrprint/calcscor/calcscorcd", prcpcd );
    
                var xpt = window.screenleft + 300;
                var ypt = window.screenTop + 100;
                var coord = getRelativeCoordinate ( xpt, ypt );
                var mon = coord[0];
                xpt = coord[1];
                ypt = coord[2];
                modal ( "SPAER01900", mon,  xpt, ypt, "prcpdetl", "/root/hidden/ocrprint/calcscor", "/root/hidden/ocrprint/calcscor", "", false );
                setParameter("SPAER01900_popupYN", "Y" );
            }
            
            if ( !isNull(getParameter("SPAER01900_prcpcd" ))) {
                var addprcpcd   = getParameter("SPAER01900_prcpcd" );
                var addprcpdd   = model.getValue ( "/root/init/prcpdd" );
                var addinsukind = model.getValue ( "/root/paminfo/list/insukind");
                
                model.removeNode ( prcpNode + "[" + srchRow + "]" );
                //clearParameter("SPAER01900_prcpcd" );
                //멀티 search 가능함
                model.makeValue("/root/send/addsetprcp/prcpcd",addprcpcd);
                model.makeValue("/root/send/addsetprcp/prcpdd",addprcpdd);
                model.makeValue("/root/send/addsetprcp/insukind",addinsukind);
                
                if ( submit("TRMMO00207",false)) {
                    model.setValue ( "root/addsetprcp/prcplist/testreqlnkno", "216" );
                    serPrcpSrchRow = addPrcpDetl ( "main" , "/root/addsetprcp/prcplist" , "/root/main/prcp" , 1 , srchRow, "00" );
                    if (serPrcpSrchRow == 0 ) srchRow = 0;
                }
                model.removeNodeset("/root/send/addsetprcp");
            }else if ( getParameter("SPAER01900_lnkno" ) == "216" ) {
                model.setValue ( prcpNode + "[" + srchRow + "]/testreqlnkno", "216" );
            } else {
                model.setValue ( prcpNode + "[" + srchRow + "]/testreqlnkno", "DYENO" );
            }
        }
    }
}


/**
 * @desc   : @@@ 중증/ 희귀난치 요율팝업 
 * @param  : void
 * @return : void
 * @author : 이윤정
 * @---------------------------------------------------
 */
function fEstmSpclFrm(){
    // 신규로직 적용여부 (신규 신청서 작성 하지 않은경우에서 산정 특례 적용 되는것 수정 관련) 추후에 삭제 필요. 엄영만 2012.02.29
    if(model.getValue("/root/prcpetcinfo/saveestmspclcs/newlogicyn") == "Y") { 
        if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "Y"  ) {
            if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd" ) == "-" ) { // 기존 적용 산정특례 취소
                model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "I" );
            } else { // 산정특례 적용
                if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ) == ""  ) {   //  msg없으면 띄우지 않고처리한다. (진료비 정액대상환자)
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                } else if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd" ) == 'V252' ) {
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                    messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "I" );
                } else if(model.getValue("/root/prcpetcinfo/saveestmspclcs/estmexistyn") != "Y") {
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd", "-" ); 
                    if(   model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmkind") == "11" 
                       || model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmkind") == "51" 
                       || model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmkind") == "62" ) 
                        model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmkind", "10" );  // 가정간호
                    else {
                        model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmkind", "00" );  // 정상
                    }
                } else {
                    if (messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "Q" ) == "6" ) {
                        model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                    }else {
                        model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "N" );
                        model.setValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd", "-" ); //by sonjy 추가. 아니오 선택시 산정특례기호 update되는 문제 때문. 
                        messageBox ( "이번 진료는 산정특례와 관계가 없다고 선택하셨습니다. 관련 진단명을 삭제하여 주시기 바랍니다.", "E" ); //수정중
                    }
                }
            }
        } else if( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "F"  ) {       // 중증화상 대상이 T31.x상병이 필요한 경우에 메세지만 보여준다.
             model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag", "Y" );
             model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
             messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "I" ) ;
        } else if( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "T"  ) { 
            model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "N" );
            model.setValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd", "-" ); //by sonjy 추가. 아니오 선택시 산정특례기호 update되는 문제 때문. 
        } else if( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "M"  ) {  // 메세지만 팝업 후 리턴함.
            messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "I" );
            return;
        } else { // 그외의 경우 estmflag값이 처리 할수 없는 값
            return;
        }
    
        var saveestmspclcs = model.instances(0).selectNodes( "/root/prcpetcinfo/saveestmspclcs" );
        model.setValue ( "/root/send/cond1", getNodeListCSV(saveestmspclcs));
            
            //submit("TXMMO00105") => if( !submit("TXMMO00105") ) 로 변경 (2008.09.29 JJE)
        if( !submit ( "TXMMO00105", false ) ){
            return false;
        }
    } else {
        if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "Y"  ) {
            if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ) == ""  ) {   //  msg없으면 띄우지 않고처리한다. (진료비 정액대상환자)
                model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
            } else {
                  if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd" ) == 'V252' ) {
                      model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                      messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "I" );
                } else if (messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "Q" ) == "6" ) {
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
                } else {
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "N" );
                    //산정특례 상병인데 적용안한다고 선택할 경우
                    if ( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd" ) != "-" ) {
                        messageBox ( "이번 진료는 산정특례와 관계가 없다고 선택하셨습니다. 관련 진단명을 삭제하여 주시기 바랍니다.", "E" ); //수정중
                    } 
                    model.setValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd", "-" ); //by sonjy 추가. 아니오 선택시 산정특례기호 update되는 문제 때문. 
                }
            }
            var saveestmspclcs = model.instances(0).selectNodes( "/root/prcpetcinfo/saveestmspclcs" );
            model.setValue ( "/root/send/cond1", getNodeListCSV(saveestmspclcs));
            
            //submit("TXMMO00105") => if( !submit("TXMMO00105") ) 로 변경 (2008.09.29 JJE)
            if( !submit ( "TXMMO00105", false ) ){
                return false;
            }
        }
        //중증등록번호를 가진 환자의 응급실  진료 후 퇴원오더 시 암상병여부 check  by sonjy 2008-07-28 
        else if( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "C"  ) { 
             //messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "I" ) ;
        } else if( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "F"  ) {       // 중증화상 대상이 T31.x상병이 필요한 경우에 메세지만 보여준다.
             model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag", "Y" );
             model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "Y" );
             messageBox(model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmmsg" ), "I" ) ;
    
             var saveestmspclcs = model.instances(0).selectNodes( "/root/prcpetcinfo/saveestmspclcs" );
             model.setValue ( "/root/send/cond1", getNodeListCSV(saveestmspclcs));
        
             if( !submit ( "TXMMO00105", false ) ){
                return false;
             }
        }
        else if( model.getValue ( "/root/prcpetcinfo/saveestmspclcs/estmflag" ) == "T"  ) { 
            model.setValue ( "/root/prcpetcinfo/saveestmspclcs/estmyn", "N" );
            model.setValue ( "/root/prcpetcinfo/saveestmspclcs/spclcd", "-" ); //by sonjy 추가. 아니오 선택시 산정특례기호 update되는 문제 때문. 
    
            var saveestmspclcs = model.instances(0).selectNodes( "/root/prcpetcinfo/saveestmspclcs" );
            model.setValue ( "/root/send/cond1", getNodeListCSV(saveestmspclcs));
            
            if( !submit ( "TXMMO00105", false ) ){
                return false;
            }        
        }
    }
}

/**
 * @desc   : @@@ 레진상 완전틀니관련 요율 팝업
 * @param  : void
 * @return : void
 * @author : 엄영만 2012.07.04
 * @---------------------------------------------------
 */
function fResinDentureFrm(){
    // checkresin (01:신청서 작성, 02:신규 적용, 03:기존 적용 취소)
    var sCheckResin = model.getValue("/root/prcpetcinfo/saveresindenture/checkresin");
    var sEstmMsg    = model.getValue("/root/prcpetcinfo/saveresindenture/estmmsg");
    
    if (sCheckResin == "01") { // 01:신청서 작성
        fPrcpModal ( "SPMMO25000", 400, 100 ); 
    } else if(sCheckResin == "02" || sCheckResin == "03") { // 02:신규 적용,  03:기존 적용 취소
        messageBox(sEstmMsg, "I" ); // 알림 메세지 팝업.
         
        var saveresindenture = model.instances(0).selectNodes( "/root/prcpetcinfo/saveresindenture" );
        model.setValue ( "/root/send/cond1", getNodeListCSV(saveresindenture));
            
        if( !submit ( "TXMMO00105", false ) ){
            return false;
        }
    } else {
        messageBox ( "처리 할수 없는 레진상 완전틀니 체크 유형입니다.\n전산실로 연락 바랍니다.(엄영만 6598)", "E" ); 
    }
}


/**
 * @desc   : @@@ 우클릭시 검사정보안내 화면 호출
 * @param  : void
 * @return : void
 * @author : 이윤정
 * @---------------------------------------------------
 */
function fReqInfoPop(){
    //병리 -> D2  진검 -> B2
    if (model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpclscd" ) == "B2"){
        modal("SMLLF90100" ,"","","","", prcpNode + "[" + grd_prcplist.row + "]/prcpcd" , "/root/hidden/tclscd");
    }else if (model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpclscd" ) == "D2"){
        modal("SMLPC02000" ,"","","","", prcpNode + "[" + grd_prcplist.row + "]/prcpcd" , "/root/hidden/tclscd");
    }
}

/**
 * @desc   : 환자의 가야할 곳을 출력한다.
 * @return : void
 * @authur : 김영학 2011. 01. 05
 */
function fPrltPatTogoPlceList() {
    
    var sNewLogYn = fGetHardCDList("Y", 332, 3); // 신규 가셔야 할곳 적용 여부 (비동기 방식 적용)
    
    if ( sNewLogYn == "Y") {
    	// 출력전용 팝업 화면에서 처리
    	// '처방'화면에 종속적으로 처리할 경우 - 처방화면이 닫히면 함께 닫힘.
    	//open("SPMMO00110", 1, 1, 1, "SPMMO00110", "", "", "width:1px; height:1px;", false);
    	
    	// '처방'화면에 독립적으로 처리할 경우 - 처방화면이 닫혀도 닫히지 않음.
    	var sysMsgObj = getViewer("sysMessage");
        if (sysMsgObj != null) {
    		sysMsgObj.window.javascript.open("SPMMO00110", 2, null, null, "SPMMO00110", "", "", "", false);
    	} else {
    		messageBox("[가셔야할 곳] 출력화면 오픈에 문제가 발생했습니다.","E000");
    	}
    } else {   // 기존 가야할곳 출력
        model.makeValue("/root/hidden/tempsend/pid"             , model.getValue("/root/paminfo/list/pid"));
    	model.makeValue("/root/hidden/tempsend/orddd"           , model.getValue("/root/paminfo/list/orddd"));
    	model.makeValue("/root/hidden/tempsend/cretno"          , model.getValue("/root/paminfo/list/cretno"));
    	model.makeValue("/root/hidden/tempsend/userinstcd"      , model.getValue("/root/paminfo/list/instcd"));
    	
    	model.makeValue("/root/hidden/tempsend/sessuserid"      , getUserInfo("userid"));
    	model.makeValue("/root/hidden/tempsend/sessinstcd"      , model.getValue("/root/paminfo/list/instcd"));
    	
        if(fGetHardCDList("Y", 338, 3) == "N"){ // 수가 계산 여부 
            model.makeValue("/root/hidden/tempsend/checkyn"         , "Y");     // 수가계산하지 않음. 2012.02.10 이동식 요청
        } else {
            model.makeValue("/root/hidden/tempsend/checkyn"         , "N");     // 수가계산 함. 2012.02.10 이동식 요청
        }
        
    	var p0029_msg  = "";
        var medamtpostyn = model.getValue("/root/paminfo/list/medamtpostyn");
        if (medamtpostyn == "V") {  // open card 관련 VIP 고객이면 무조건 무인수납 불가 처리 2012.06.05 엄영만
            p0029_msg = "* 무인수납불가 *" ;
        } else {
            if (submit("TXPAO99906") == true) {
            	if(model.getValue("/root/hidden/rsv/h_opmi/opmi/error")!= "")  {
            	    p0029_msg = "* 무인수납불가 *" ;
            	} else {
            	    p0029_msg = "* 무인수납가능 *";
            	}
            } else {
                 p0029_msg = "* 무인수납불가 *" ;
            }
        }
    	
    	if (submit("TRMMO00141") == true) {    	// 가셔야할 곳 출력위한 리스트 조회
        	model.makeValue("/root/hidden/hidden/patinfo/rcptpossynmsg", p0029_msg);	
        	//if (model.getValue("/root/hidden/pattoplace/togolist/deptnm") != "" && model.getValue("/root/hidden/pattoplace/togolist/deptnm") != null && model.getValue("/root/hidden/pattoplace/togolist/deptnm") != "undefined") {
        	exeReportPreview("RPMMO00103", "XMLSTR", "/root/hidden/pattoplace", "", "true", "", "", "", "", "true", "", "", "", "", "", "", "", "", "", "", "");
        	//}
        }
    }
}

/**
 * @desc   : 부분선택진료 동의서를 출력한다.
 * @return : void
 * @authur : 김영학 2011. 01. 05
 * 2011.10.01 고시적용으로 수정함
 */
function fPrltPartSpclDrList() {
    model.resetInstanceNode("/root/hidden/specorderlist")
    var specordtype = model.getValue("/root/paminfo/list/specordtype");

    //진료지원 8개 항목에 대해서 일괄위임일 경우 체크 할 필요가 없다. 
    if (specordtype != "B" ) {        
        var sInstcd  = "";
        var sDrid    = ""; 
        var sOrddd   = "";
        var sIoFlag  = "";
        var sOrdtype =  model.getValue ( "/root/patflag/list/prcpgenrflag" );
        if (sOrdtype == "O" || sOrdtype == "S") {
            sDrid  = model.getValue("/root/paminfo/list/orddrid"); 
            sOrddd = model.getValue("/root/paminfo/list/orddd");  
            sIoFlag = "O"
        } else {
            sDrid = model.getValue("/root/paminfo/list/medispclid"); 
            sOrddd =  model.getValue("/root/paminfo/list/indd"); 
            sIoFlag = "I"
        }
        sInstcd    = model.getValue("/root/paminfo/list/instcd"); 
        sCretno    = model.getValue("/root/paminfo/list/cretno"); 
        sOrddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); 
        
        var sPartChoiYn="";
        var sPartChoiYn = fGetHardCDList("Y",313,3);
        
        if (specordtype == "N" ) {
            sPartChoiYn = "Y";
        }
                      
        sRow = 1;
        for (i = 1; i < grd_prcplist.rows; i++) {
            if (model.getValue ( prcpNode + "[" + i + "]/choiordflag") == "Y"    //선택진료 체크 된 항목들
                        && model.getValue(prcpNode +"[" + i + "]/specdrid") != "-" && model.getValue(prcpNode +"[" + i + "]/specdrid") != ""   // 의사가 들어 있는 처방
                        && model.getValue(prcpNode +"[" + i + "]/status") != "D") {    // 삭제가 아닌 건들에 대해서 
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/drnm",       grd_prcplist.labelMatrix(i, grd_prcplist.colRef("specdrid")));
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/prcpnm",     model.getValue ( prcpNode + "[" + i + "]/prcpnm"));
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/specdrid",   grd_prcplist.valueMatrix(i, grd_prcplist.colRef("specdrid")));
                // 수익분류를 기준으로 진료지원항목의 분류를 조회하기 위해서 추가 
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/tempcol2",   model.getValue(prcpNode +"[" + i + "]/tempcol2"));                
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/prcpclscd",  model.getValue(prcpNode +"[" + i + "]/prcpclscd"));
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/pid",        model.getValue("/root/paminfo/list/pid"));
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/ioflag",     sIoFlag);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/instcd",     sInstcd);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/cretno",     sCretno);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/orddd",      sOrddd);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/orddeptcd",  sOrddeptcd);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/orddrid",    sDrid);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/partchoiyn", sPartChoiYn);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/specordyn",  model.getValue("/root/paminfo/list/specordyn"));
                sRow++
            }     
            
            // 방사선 종양학과 치료 지시처방 관련 추가  2012.10.16 엄영만
            if (   model.getValue(prcpNode +"[" + i + "]/prcpclscd") == "09" 
                && model.getValue(prcpNode +"[" + i + "]/tempcol2") == "05|01|00" 
                && model.getValue(prcpNode +"[" + i + "]/status") != "D") {
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/drnm",       sDrid);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/prcpnm",     model.getValue ( prcpNode + "[" + i + "]/prcpnm"));
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/specdrid",   sDrid);
                // 수익분류를 기준으로 진료지원항목의 분류를 조회하기 위해서 추가  
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/tempcol2",   "08|01|00");   // 방사선치료	방사선치료	모의치료             
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/prcpclscd",  model.getValue(prcpNode +"[" + i + "]/prcpclscd"));
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/pid",        model.getValue("/root/paminfo/list/pid"));
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/ioflag",     sIoFlag);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/instcd",     sInstcd);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/cretno",     sCretno);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/orddd",      sOrddd);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/orddeptcd",  sOrddeptcd);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/orddrid",    sDrid);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/partchoiyn", sPartChoiYn);
                model.makeValue("/root/hidden/specorderlist/specprcplist[" + sRow + "]/specordyn",  model.getValue("/root/paminfo/list/specordyn"));
                sRow++                    
            } 
        }
        
        // 내역별로 위임여부를 체크한다.         
        if (model.instance1.selectNodes("/root/hidden/specorderlist/specprcplist").length > 0) {
            if (submit("TRMMO00142") ) {
                if (model.instance1.selectNodes("/root/hidden/specorderlist/specorderlist").length > 0 ) {
                    var rrgstno     = model.getValue("/root/paminfo/list/rrgstno1") + "-" + model.getValue("/root/paminfo/list/rrgstno2") ;
                    var pid         = model.getValue("/root/paminfo/list/pid");  
                    var hngnm       = model.getValue("/root/paminfo/list/hngnm");  
                    
                    model.makeValue("/root/hidden/specorderlist/rrgstno"    , rrgstno);
                    model.makeValue("/root/hidden/specorderlist/pid"        , pid);
                    model.makeValue("/root/hidden/specorderlist/hngnm"      , hngnm);
                    model.makeValue("/root/hidden/specorderlist/orddd"      , sOrddd);
                    model.makeValue("/root/hidden/specorderlist/cretno"     , sCretno);
                    model.makeValue("/root/hidden/specorderlist/ioflag"     , sIoFlag );
                    model.makeValue("/root/hidden/specorderlist/ordtype"    , sOrdtype );
                    model.makeValue("/root/hidden/specorderlist/specordyn"  , model.getValue("/root/paminfo/list/specordyn") );
                    var specOrdFormCd = fGetHardCDList("Y", 305, 3);
                    model.makeValue("/root/hidden/specorderlist/formcd"     , specOrdFormCd);
                    model.makeValue("/root/hidden/specorderlist/fromdd"     , getCurrentDate());
                    model.makeNode("/root/temp/specocrinfo");
                    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");   
                    }
                }
            }
        }  
    }
}

/**
* @desc   : 진료과, 진료의변경
* @param  : qestcd : 질문값
* @return :  Answcnt ( 답안값)
*/
function fChgOrdDr() {

    var pid    = model.getValue ( "/root/paminfo/list/pid" );
  var ordtype =  model.getValue ( "/root/patflag/list/prcpgenrflag" );
  var cretno =  model.getValue ( "/root/paminfo/list/cretno" );       

    var xpt = window.screenLeft + 400;
    var ypt = window.screenTop + 60;
    var coord = getRelativeCoordinate(xpt, ypt);
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];                 
    
    clearParameter ( "SPMMB08300_flag");
  clearParameter ( "SPMMB08300_useyn" );
  clearParameter ( "SPMMB08300_userid" );
  clearParameter ( "SPMMB08300_orddeptcd" );
  clearParameter ( "SPMMB08300_userinfo" );
            
    if(ordtype != ""){
            if(ordtype == "O" || ordtype == "S"){
                var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
                var orddrid = model.getValue("/root/paminfo/list/orddrid");
                var indd = model.getValue ( "/root/paminfo/list/orddd" );   
            }else{
                var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
                var orddrid = model.getValue("/root/paminfo/list/medispclid");
                var indd = model.getValue ( "/root/paminfo/list/indd" );
            }
        setParameter("SPMMB08300_orddeptcd", orddeptcd);
        setParameter("SPMMB08300_orddrid", orddrid);
        setParameter("SPMMB08300_ioflag", ordtype);
    }   
    
  grd_prcplist.select( 1, 1, grd_prcplist.rows-2, 1) = true;
    
    setParameter( "SPMMB08300_flag", "chgdr" );
    
    modal("SPMMB08300", mon, xpt, ypt, null, null, null, null, false);
    
    var useyn = getParameter("SPMMB08300_useyn");
    var userid = getParameter("SPMMB08300_userid");
    var orddeptcd = getParameter("SPMMB08300_orddeptcd");
    var userinfo = getParameter("SPMMB08300_userinfo");
    if(useyn == "Y"){
        orddrid = userid;
        var selectedRows = grd_prcplist.selectedRows;
      for(var i = 0;  i < selectedRows; i++){
          if( model.getValue ("/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i) + "]/status") != "S"){                    
              model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i) + "]/pampkspec", pid + "|" + indd + "|" + cretno + "|" + orddeptcd + "|" + orddrid ); //pampkspec : 등록번호|진료일자|생성번호|진료과|담당의 // 원무PK내역         
              model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i) + "]/tempcol20", userinfo );
          }
      }             
    }
    model.refresh();                
       
}

/**
 * @desc   : KNUH, 사전심사 대상 처방의 상태가 변경요청인 경우, 심사팀의 메세지를 보여준다.
 * @return : void
 * @authur : 전지은 2011. 03. 17
 */
function fOpenBfJudgInfoPop(){
    //var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if( model.getValue("/root/patflag/list/prcpgenrflag") == "O" ){
        
        var judgStat = getPatientInfoDetail("bfjudgvalue"); //WXY (W:심사대기, X:변경요청, Y:심사완료 혹은 해당없음)
        //alert( judgStat.substr(1, 1) );
        if( judgStat.substr(1, 1) == "X" ){
            
            clearParameter("SPMMO21500_rntValue"); //parameter 초기화(2011.01.31 JJE)
            
            var xpt = window.screenleft + 180;
            var ypt = window.screenTop + 50;                    
            var coord = getRelativeCoordinate ( xpt, ypt );
            var mon = coord[0];
            var xpt = coord[1];
            var ypt = coord[2];
            modal ( "SPMMO21500", mon,  xpt, ypt, "prcpdetl", "", "", "", false ); //오류팝업
            
            var bfRtnValue = getParameter("SPMMO21500_rntValue");
            if (bfRtnValue == "REQ") {
                model.removeNodeset("/root/result/prcperrlist");
                if ( isNull ( model.getValue ( "/root/main/prcp/prcplist[status='I' or status='D' or status='U']/prcpcd" ))) { 
                    if (isNull(model.getValue ( "/root/main/diaginfo/diagcdlist[status='I' or status='D' or status='U']/diagcd" ))) {
                        messageBox ( "사전심사할 처방 및 진단이 없습니다.", "E" );
                        fClearSaveInstance();
                        model.removeNodeset("/root/result/prcperrlist");
                        return false;
                    }
                }
            }
        } //end if( judgStat == "W" )
        
    } //end if( prcpgenrflag == "O" )
}

/**
 * @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 = model.getValue ( "/root/patflag/list/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"
        && model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "I" 
        && model.getValue ( "/root/addprcp" ) != "Y") {
        
        var returnVal = fGetHardCDList("Y", 280, 3); // 처방저장시 수술료 입력안되어 있으면 Blocking 여부
        var pid    = model.getValue("/root/paminfo/list/pid");
        var indd   = model.getValue("/root/paminfo/list/indd");
        var dschdd = model.getValue("/root/paminfo/list/dschdd");
        
        if(returnVal == "Y") {

            // 수술탭에서 선택시 수술료 처방이 있는지 확인한다. 
            var opFeePrcp = "N";
            var operationFlagCvs = getGlobalVariable("operation");  
            if(callby == "prcp" && operationFlagCvs.length != 0 ){ //cvs가 null이 아닌 경우에만 처리함.
                var sPrcpNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                for (i = 0; i < sPrcpNodeList.length; i++ ) {
                    var sTempcol2 = model.getValue ( "/root/main/prcp/prcplist[" + 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") { // 화면에서 수술료 처방이 없는 경우
                model.makeValue("/root/tempchkopfee/reqdata/pid",    pid);
                model.makeValue("/root/tempchkopfee/reqdata/indd",   indd);
                model.makeValue("/root/tempchkopfee/reqdata/dschdd", dschdd);
                
                submit("TRMMO00147", false);
                
                var sMsg = "";
                if (!isNull(model.getValue ( "/root/tempchkopfee/rtndata[checkcode ='ERROR']/oprsrvno" ))) { // 수술 72시간 경과, 수술료 처방이 없는경우
                    if (callby == "prcp") {
                        sMsg = "72시간 이내에 수술료가 입력되지 않아 진행이 불가능 합니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    } else {
                        sMsg = "수술료가 입력되지 않아 진행이 불가능 합니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    }
                    
                    if ("6" == messageBox(sMsg , "Q")) {
                        setParameter("SPMMO21600_param", pid + "|" + indd + "|" + dschdd);
                        modal("SPMMO21600");
                        clearParameter("SPMMO21600_param");
                    }
                    
                    bRtn = false;
                } else if (!isNull(model.getValue ( "/root/tempchkopfee/rtndata[checkcode ='ALERT']/oprsrvno" ))) { // 수술료 처방이 없는경우
                    if (callby == "prcp") {
                        sMsg = "수술료가 입력되지 않았습니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    } else {
                        sMsg = "수술료가 입력되지 않아 진행이 불가능 합니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?";
                    }
                    
                    if ("6" == messageBox(sMsg, "Q")) {
                        setParameter("SPMMO21600_param", pid + "|" + indd + "|" + dschdd);
                        modal("SPMMO21600");
                        clearParameter("SPMMO21600_param");
                        bRtn = false;
                    } else {
                        if (callby == "prcp") {  // 처방입력은 메세지 팝업 후 처방 가능
                            bRtn = true;
                        } else {
                            bRtn = false;  // 퇴원예고시에는 블러킹 처리
                        }
                    }
                } else { // 수술료 처방 또는 사유가 존재 할경우
                    bRtn = true;
                }
            } else { // 수술탭에서 선택 하여 수술 처방이 있을경우
                bRtn = true;
            }
        } else { // 기존 로직
            var sOpFeeChkYn = model.getValue("/root/paminfo/list/opfeechkyn");
            if (sOpFeeChkYn == "N") {
                var opFeePrcp = "N";
                var opFeePrcpCnt = 0;
                // 수술료 처방이 있는지 확인한다. 
                var sPrcpNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
                for (i = 0; i < sPrcpNodeList.length; i++ ) {
                    var sTempcol2 = model.getValue ( "/root/main/prcp/prcplist[" + 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 = messageBox("수술료가 입력되지 않았습니다.\n수술료는 수술탭에서 내셔야 합니다. \n 확인하시겠습니까?" , "Q");
                    if (rtnValue == "6") {
                        setParameter("SPMMO21600_param", pid + "|" + indd + "|" + dschdd);
                        modal("SPMMO21600");
                        clearParameter("SPMMO21600_param");
                        bRtn = false;
                    }
                }
            }
        }
    }
    return bRtn;
}

/**
 * @desc   : 사전심사 관련 처방 Blocking은 임시저장 인증저장 모두 막는다.
 * @param  : prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
             savekindflag: 0:인증저장, 1:임시저장
             saveNode: 저장노드
 * @return : true, false
 * @authur : 엄영만 2011. 10. 21
 */
function fCheckBfJudg( prcpflag, savekindflag, saveNode, prcpchkflag ){
    // 사전심사 관련 처방 Blocking은 임시저장 인증저장 모두 막는다.
    if( (prcpflag == "0" || prcpflag == "undefined" || prcpflag == "" || prcpflag == null) &&  model.getValue ( "/root/usge" ) == "prcp" && model.getValue ( "/root/addprcp" ) != "Y" ){
        if( model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "O" || model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "S"){    
            var judgStat = getPatientInfoDetail("bfjudgvalue");
            if( !isNull(judgStat) && judgStat.substr(0, 1) == "W" ){
                messageBox("심사요구 처방이 심사대기상태이므로 임시저장/인증저장이 불가합니다.\n심사실(본원.T5076, 칠곡.T2182)로 문의 바랍니다.\n심사 완료된 환자는 진료대상자에서 환자를 다시 선택해주시기 바랍니다.", "I");
                return false ;
            }
       }
    }
    return true;
}

/**
 * @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 = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    
    if( sIoFlag == "O" || sIoFlag == "S"){ // 외래 체크
        //20081014 by sonjy 간호확인 후에만 처방인증저장 가능. 조범준 과장님 요청  start=================================================================
        //의사처방 화면의 인증저장 버튼을 누를 때에만...
        if( prcpflag == "0" && savekindflag == "0" &&  model.getValue ( "/root/usge" ) == "prcp" && model.getValue ( "/root/addprcp" ) != "Y" ){
            if( model.getValue("/root/paminfo/list/elbulbodstat") == "0" ){
                messageBox("간호접수가 되지 않은 환자입니다. 간호접수전에는 임시저장만", "I006");
                return false ;
            }           
        }
    } else { // 입원, 응급, DSC 체크
        if ( model.getValue ( "/root/paminfo/list/indd" ) > model.getValue("/root/init/prcpdd")) {
            messageBox( "처방일이 입원일[" + fDateFormat ( model.getValue ( "/root/paminfo/list/indd" )) + "] 전입니다. 처방일을 수정하여 주십시오.", "E");
            return false ;
        }
         
        if (sIoFlag == "D" && model.getValue ( "/root/paminfo/list/indd" ) == model.getValue("/root/init/prcpdd") && model.getValue("/root/init/prcpdd") > getCurrentDate() && savekindflag != 1 ) {
            messageBox( "DSC 환자는 수술일 이전 처방은 인증저장이 불가합니다. 임시저장만 가능합니다.", "E");
            return false ;
        } else if( sIoFlag == "E" ){
            //20091015 by JJE 응급간호에서 삭제처리한 환자 선택 시 blocking 메세지 처리 추가 (변경요청:8106)
            var pid    = model.getValue("/root/paminfo/list/pid");
            var orddd  = model.getValue("/root/paminfo/list/indd");
            var cretno = model.getValue("/root/paminfo/list/cretno");
            if(fChkInCnclYN(pid, orddd, cretno, "B")==false){
                return false;
            }
            
            //응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능  20100527 by LYJ
            if (savekindflag == "0" && prcpflag == "0" ){
                var mainObj = getMainViewer();     
                var ordPatObj = mainObj.javascript.getOpenWindow("SMMMO04100");    
                
                if(ordPatObj != null){ //두 객체값이 다른 경우 새로운 진료대상자 화면을 open함
                    var callvisityn = model.getValue("/root/tmp/callvisityn");
                    if (callvisityn == "N")  {
                        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시간이상 체류환자 응급의학과 인턴의사가 처방시 처방제한 사용여부 체크
    reqHardCodeInfo("/root/hidden/erstayblock", "/root/hidden/erstayblock", "219");
    model.makeValue("/root/temp/erstay/erstayhardcd", model.getValue("/root/hidden/erstayblock/hardcd/hardcd") );

    //20100519 kimsj 응급의학과 소속 인턴이 응급 진료대상자리스트에서 24시간이상 체류한 환자에게 처방 발행 시 처방 블러킹
    //20100525 LYJ 임상각과의 전문의 조건 추가 
    if ( model.getValue("/root/temp/erstay/erstayhardcd") == "Y" && model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "E" ) {
        if(((getUserInfo("dutplcecd") == "2280000000") && (getUserInfo("jobkindcd") == "0330") && (getUserInfo("jobposcd") == "1799")) || ((getUserInfo("jobkindcd") == "0330") &&  (getUserInfo("medispclno") == "") && (getUserInfo("dutplcecd") != "2280000000"))){  // 2280000000 : 응급의학과 , 0330 : 의사, 1799 : 인턴
            model.removeNodeset("/root/temp/erstay");
            model.makeValue( "/root/temp/erstay/reqdata/pid", model.getValue ( "/root/paminfo/list/pid" ) );
            model.makeValue( "/root/temp/erstay/reqdata/orddd", model.getValue ( "/root/paminfo/list/indd" ));
            model.makeValue( "/root/temp/erstay/reqdata/cretno", model.getValue ( "/root/paminfo/list/cretno" ));
            model.makeValue( "/root/temp/erstay/reqdata/cretno", model.getValue ( "/root/paminfo/list/cretno" ));
            submit("TRMMO00133");
            
            if ( model.getValue("/root/temp/erstay/stayinfo/stayinfo/stayyn") == "Y" ) {
                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" ) {
        if (!isNull(model.getValue ( "/root/main/diaginfo/diagcdlist[status !='I' and status !='-' and diaghistcd='O']/diagcd" ))) {
                messageBox ( "인증저장된 진단을 임시저장으로 수정할 수 없습니다.\n\n진단리스트에서 우클릭 '취소(삭제, 수정)' 기능을 이용하여 초기화 후 임시저장 하십시오", "E" );
                return false;           
        } else if ( isNull ( model.getValue ( "/root/main/prcp/prcplist[status='I' or status='D' or status='U']/prcpcd" ))) { 
            if (isNull(model.getValue ( "/root/main/diaginfo/diagcdlist[status='I' or status='D' or status='U']/diagcd" ))) {
                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;
    
    // 미비기록 여부를 체크한다. 20110421 엄영만  288 기록 관련 처방 제한 사용 여부
    var sChkValidRecYn = fGetHardCDList("Y", 288, 3);
    if (sChkValidRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "I" 
        && model.getValue ( "/root/addprcp" ) != "Y") {
        
        var sCheckCode = "";
        var sCheckAlertMsg  = "";
        var sCheckErrorMsg  = "";

        var pid    = model.getValue ("/root/paminfo/list/pid");
        var indd   = model.getValue ("/root/paminfo/list/indd");
        var cretno = model.getValue ("/root/paminfo/list/cretno");
        
        model.makeValue("/root/tempchkrec/reqdata/pid",    pid);
        model.makeValue("/root/tempchkrec/reqdata/indd",   indd);
        model.makeValue("/root/tempchkrec/reqdata/cretno", cretno);
        
        submit("TRMMO00124", false);

        var sChkRecList = model.instances(0).selectNodes( "/root/tempchkrec/rtndata" );

        for ( var i=1; i <= sChkRecList.length; i++ ) {
            var sCheckCode = model.getValue ( "/root/tempchkrec/rtndata[" + i + "]/checkcode" );
            if(sCheckCode == "ALERT"){
                if(sCheckAlertMsg == "") {
                    sCheckAlertMsg = model.getValue ( "/root/tempchkrec/rtndata[" + i + "]/checkmsg");
                } else {
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + model.getValue ( "/root/tempchkrec/rtndata[" + i + "]/checkmsg");
                }
            } else if (sCheckCode == "ERROR"){
                if(sCheckErrorMsg == "") {
                    sCheckErrorMsg = model.getValue ( "/root/tempchkrec/rtndata[" + i + "]/checkmsg");
                } else {
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + model.getValue ( "/root/tempchkrec/rtndata[" + i + "]/checkmsg");
                }
            }
        }

        if (sCheckErrorMsg != ""){
            sCheckErrorMsg = sCheckErrorMsg + "\n\n" + "해당 기록 작성 후 처방이 저장이 가능 합니다.";
            
            if(getUserInfo("dutplceinstcd") == "031") {
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 의무기록실(5231), 의료질관리팀(5942)";
            } else if(getUserInfo("dutplceinstcd") == "032") {
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 의무기록실(2401, 2402)";
            }
            
            messageBox(sCheckErrorMsg, 'E000');
            bRtn = false;
        } else if (sCheckAlertMsg != ""){
            sCheckAlertMsg = sCheckAlertMsg + "\n\n" + "해당 기록이 작성 되지 않으면 처방이 저장 되지 않습니다.";

            if(getUserInfo("dutplceinstcd") == "031") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 의무기록실(5231), 의료질관리팀(5942)";
            } else if(getUserInfo("dutplceinstcd") == "032") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 의무기록실(2401, 2402)"
            }

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

    //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 = fGetHardCDList("Y", 300, 3); // 300 뇌졸증 평가 관련 기록 체크여부 처방 제한 사용 여부
    var sOrddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
    var sDiagCd    = model.getValue("/root/main/diaginfo/diagcdlist[diagkindcdflag='M' and (status='-' or status='I' or status='U')]/icd10cd" );
    if(sDiagCd.length > 3) {
        sDiagCd        = sDiagCd.substring( 0,3);
    }

    fGetHardCDList("N", 301, 0 , "/root/hidden/apoplexydeptlist"); // 301 뇌졸증 평가 관련 기록 체크 주진료과
    fGetHardCDList("N", 302, 0 , "/root/hidden/apoplexydiaglist"); // 302 뇌졸증 평가 관련 기록 체크 주진단(ICD10코드)
    
    if (sChkApoplexyRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && model.getValue ("/root/addprcp" ) != "Y"
        && (model.getValue("/root/patflag/list/prcpgenrflag" ) == "I" || model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "E" )
        && (model.getValue("/root/paminfo/list/atdoctid" ) == getUserInfo("userid") || model.getValue("/root/paminfo/list/medispclid" ) == getUserInfo("userid") ) // 2013.04.10 주치교수도 체크 하도록 수정. 심사팀 윤순길 팀장님 요청 엄영만
        && !isNull(model.getValue("/root/hidden/apoplexydeptlist/hardcd[hardcd='"+sOrddeptcd+"']/hardcd" ))
        && !isNull(model.getValue("/root/hidden/apoplexydiaglist/hardcd[hardcd='"+sDiagCd+"']/hardcd" )) ) {

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

        var pid      = model.getValue ("/root/paminfo/list/pid");
        var indd     = model.getValue ("/root/paminfo/list/indd");
        var cretno   = model.getValue ("/root/paminfo/list/cretno");
        var dietprcp = "N";
        
        var sPrcpNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
        var sStatus = "";
        var sPrcpcd = "";
        for (i = 0; i < sPrcpNodeList.length; i++ ) {
            sStatus = model.getValue("/root/main/prcp/prcplist[" + i + "]/status");
            sPrcpcd = model.getValue("/root/main/prcp/prcplist[" + i + "]/prcpcd");
            if ( "I" == sStatus && fContainsHardCD("427", sPrcpcd) ) { // 연하장애 서식 팝업 조건 변경 - 신규입력 처방중 식사 지시처방이 있는지 확인 한다. 2013.04.09 엄영만
                dietprcp = "Y";
                break;
            }
        }
        
        model.makeValue("/root/apoplexychkrec/reqdata/pid",      pid);
        model.makeValue("/root/apoplexychkrec/reqdata/indd",     indd);
        model.makeValue("/root/apoplexychkrec/reqdata/cretno",   cretno);
        model.makeValue("/root/apoplexychkrec/reqdata/dietprcp", dietprcp);
        
        model.makeValue("/root/apoplexychkrec/reqdata/pid", pid);
        model.makeValue("/root/apoplexychkrec/reqdata/indd", indd);
        model.makeValue("/root/apoplexychkrec/reqdata/cretno", cretno);
        
        submit("TRMMO00136", false);

        var sChkRecList = model.instances(0).selectNodes( "/root/apoplexychkrec/rtndata" );

        for ( var i=1; i <= sChkRecList.length; i++ ) {
            var sCheckCode = model.getValue ( "/root/apoplexychkrec/rtndata[" + i + "]/checkcode" );
            if(sCheckCode == "ALERT"){
                if(sCheckAlertMsg == "")
                    sCheckAlertMsg = model.getValue ( "/root/apoplexychkrec/rtndata[" + i + "]/checkmsg");
                else
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + model.getValue ( "/root/apoplexychkrec/rtndata[" + i + "]/checkmsg");
            }
            else if (sCheckCode == "ERROR"){
                if(sCheckErrorMsg == "")
                    sCheckErrorMsg = model.getValue ( "/root/apoplexychkrec/rtndata[" + i + "]/checkmsg");
                else
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + model.getValue ( "/root/apoplexychkrec/rtndata[" + i + "]/checkmsg");
            }
        }

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

            var formcd = model.getValue("/root/apoplexychkrec/rtndata[1]/checkformcd"); // 첫 행의 서식 팝업
            
            var ioflag     = model.getValue("/root/paminfo/list/ioflag");
            var orddeptcd  = model.getValue ("/root/paminfo/list/orddeptcd");
            var medispclid = model.getValue ("/root/paminfo/list/medispclid");
            var orddeptnm  = model.getValue ("/root/paminfo/list/orddeptnm");
            var hngnm      = model.getValue ("/root/paminfo/list/hngnm");
            var sa         = model.getValue ("/root/paminfo/list/sex") +"/"+ model.getValue ("/root/paminfo/list/age");
            var roomcd     = model.getValue ("/root/paminfo/list/roomcd");
            var disparam = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";

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

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

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

            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 = fGetHardCDList("Y", 316, 3); // 316 급성심근경색 평가 관련 기록 체크여부 처방 제한 사용 여부
    var sOrddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
    var sDiagCd    = model.getValue("/root/main/diaginfo/diagcdlist[diagkindcdflag='M' and (status='-' or status='I' or status='U')]/icd10cd" );
    if(sDiagCd.length > 3) {
        sDiagCd        = sDiagCd.substring( 0,3);
    }

    fGetHardCDList("N", 317, 0 , "/root/hidden/amideptlist"); // 317 급성심근경색 평가 관련 기록 체크 주진료과
    fGetHardCDList("N", 318, 0 , "/root/hidden/amidiaglist"); // 318 급성심근경색 평가 관련 기록 체크 주진단(ICD10코드)
    
    if (sChkAmiRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && model.getValue ("/root/addprcp" ) != "Y"
        && (model.getValue("/root/patflag/list/prcpgenrflag" ) == "I" || model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "E" )
        && model.getValue("/root/paminfo/list/atdoctid" ) == getUserInfo("userid")
        && !isNull(model.getValue("/root/hidden/amideptlist/hardcd[hardcd='"+sOrddeptcd+"']/hardcd" ))
        && !isNull(model.getValue("/root/hidden/amidiaglist/hardcd[hardcd='"+sDiagCd+"']/hardcd" )) ) {

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

        var pid    = model.getValue ("/root/paminfo/list/pid");
        var indd   = model.getValue ("/root/paminfo/list/indd");
        var cretno = model.getValue ("/root/paminfo/list/cretno");
        
        model.makeValue("/root/amichkrec/reqdata/pid", pid);
        model.makeValue("/root/amichkrec/reqdata/indd", indd);
        model.makeValue("/root/amichkrec/reqdata/cretno", cretno);
        
        submit("TRMMO00137", false);

        var sChkRecList = model.instances(0).selectNodes( "/root/amichkrec/rtndata" );

        for ( var i=1; i <= sChkRecList.length; i++ ) {
            var sCheckCode = model.getValue ( "/root/amichkrec/rtndata[" + i + "]/checkcode" );
            if(sCheckCode == "ALERT"){
                if(sCheckAlertMsg == "") {
                    sCheckAlertMsg = model.getValue ( "/root/amichkrec/rtndata[" + i + "]/checkmsg");
                } else {
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + model.getValue ( "/root/amichkrec/rtndata[" + i + "]/checkmsg");
                }
            }
            else if (sCheckCode == "ERROR"){
                if(sCheckErrorMsg == "") {
                    sCheckErrorMsg = model.getValue ( "/root/amichkrec/rtndata[" + i + "]/checkmsg");
                } else {
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + model.getValue ( "/root/amichkrec/rtndata[" + i + "]/checkmsg");
                }
            }
        }

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

            var formcd = model.getValue("/root/amichkrec/rtndata[1]/checkformcd"); // 첫 행의 서식 팝업
            
            var ioflag     = model.getValue("/root/paminfo/list/ioflag");
            var orddeptcd  = model.getValue ("/root/paminfo/list/orddeptcd");
            var medispclid = model.getValue ("/root/paminfo/list/medispclid");
            var orddeptnm  = model.getValue ("/root/paminfo/list/orddeptnm");
            var hngnm      = model.getValue ("/root/paminfo/list/hngnm");
            var sa         = model.getValue ("/root/paminfo/list/sex") +"/"+ model.getValue ("/root/paminfo/list/age");
            var roomcd     = model.getValue ("/root/paminfo/list/roomcd");
            var disparam = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";

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

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

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

            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 = fGetHardCDList("Y", 321, 3); // 321 제왕절개분만 적정성평가 관련 기록 체크여부 처방 제한 사용 여부
    var sOrddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
    
    fGetHardCDList("N", 322, 0 , "/root/hidden/childbirthdeptlist"); // 322 제왕절개분만 적정성평가 관련 기록 체크 주진료과
    
    if (sChkChildbirthRecYn == "Y" 
        && prcpflag == "0"
        && savekindflag == "0"
        && model.getValue ("/root/addprcp" ) != "Y"
        && (model.getValue("/root/patflag/list/prcpgenrflag" ) == "I" || model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "E" )
        && model.getValue("/root/paminfo/list/atdoctid" ) == getUserInfo("userid")
        && !isNull(model.getValue("/root/hidden/childbirthdeptlist/hardcd[hardcd='"+sOrddeptcd+"']/hardcd" )) ) {

        var sCheckCode = "";
        var sCheckAlertMsg  = "";
        var sCheckErrorMsg  = "";
        var sCheckPrcpExist = "N";  // 제왕절개 관련 처방 존재 여부 디폴트 N 없음.
        
        var pid    = model.getValue ("/root/paminfo/list/pid");
        var indd   = model.getValue ("/root/paminfo/list/indd");
        var cretno = model.getValue ("/root/paminfo/list/cretno");
        
        if (isNull(saveNode)) saveNode = "/root/main/prcp/prcplist";
        var savePrcpCnt     = model.instances(0).selectNodes( saveNode ).length;
        var savePrcpCd      = "";
        var savePrcpStatus  = "";

        fGetHardCDList("N", 323, 0 , "/root/hidden/childbirthprcplist"); // 323 제왕절개분만 적정성평가 관련 기록 체크 처방코드
        
        for (var i = 1;  i <= savePrcpCnt; i++) {  // 저장 하는 화면에서 제왕절개분만 적정성평가 관련 처방 코드가 있는지 조회 한다.
            savePrcpCd      = model.getValue (saveNode +"["+ i + "]/prcpcd" );
            savePrcpStatus  = model.getValue (saveNode +"["+ i + "]/status" );
            
            if (   !isNull(model.getValue("/root/hidden/childbirthprcplist/hardcd[hardcd='"+savePrcpCd+"']/hardcd" )) 
                && savePrcpStatus != "S"  && savePrcpStatus != "-") {
                sCheckPrcpExist = "Y";
                break;
            }
        }
        
        model.makeValue("/root/childbirthchkrec/reqdata/pid", pid);
        model.makeValue("/root/childbirthchkrec/reqdata/indd", indd);
        model.makeValue("/root/childbirthchkrec/reqdata/cretno", cretno);
        model.makeValue("/root/childbirthchkrec/reqdata/prcpexist", sCheckPrcpExist);
        
        submit("TRMMO00138", false);

        var sChkRecList = model.instances(0).selectNodes( "/root/childbirthchkrec/rtndata" );

        for ( var i=1; i <= sChkRecList.length; i++ ) {
            var sCheckCode = model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkcode" );
            if(sCheckCode == "ALERT"){
                if(sCheckAlertMsg == "") {
                    sCheckAlertMsg = model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
                } else {
                    sCheckAlertMsg = sCheckAlertMsg + "\n" + model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
                }
            }
            else if (sCheckCode == "ERROR"){
                if(sCheckErrorMsg == "") {
                    sCheckErrorMsg = model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
                } else {
                    sCheckErrorMsg = sCheckErrorMsg + "\n" + model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
                }
            }
        }

        if (sCheckAlertMsg != ""){
            sCheckAlertMsg = "※ 제왕절개 분만 적정성 평가 관련 사항 ※\n\n분만수술 처방이 있는 산부인과 환자에 대해\n\n" 
                            + sCheckAlertMsg + "\n\n" + "해당 기록 작성 되지 않으면 퇴원 예고가 불가능 합니다.";
            
            if(getUserInfo("dutplceinstcd") == "031") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(6127)";
            } else if(getUserInfo("dutplceinstcd") == "032") {
                sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(2180)";
            }
                
            sCheckAlertMsg = sCheckAlertMsg + "\n\n지금 작성";
            var selectedval = messageBox(sCheckAlertMsg, 'S001');
            
            if(selectedval == "6") { // 지금 작성 하면 서식을 팝업으로 뛰우고 "아니오" 선택 하면 그대로 처방 저장 진행
                var formcd = model.getValue("/root/childbirthchkrec/rtndata[1]/checkformcd"); // 첫 행의 서식 팝업
                
                var ioflag     = model.getValue("/root/paminfo/list/ioflag");
                var orddeptcd  = model.getValue ("/root/paminfo/list/orddeptcd");
                var medispclid = model.getValue ("/root/paminfo/list/medispclid");
                var orddeptnm  = model.getValue ("/root/paminfo/list/orddeptnm");
                var hngnm      = model.getValue ("/root/paminfo/list/hngnm");
                var sa         = model.getValue ("/root/paminfo/list/sex") +"/"+ model.getValue ("/root/paminfo/list/age");
                var roomcd     = model.getValue ("/root/paminfo/list/roomcd");
                var disparam = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";
    
                setParameter("pid",         pid);
                setParameter("orddd",       indd);
                setParameter("cretno",      cretno);
                setParameter("ioflag",      ioflag);
                setParameter("orddeptcd",   orddeptcd);
                setParameter("orddrid",     medispclid);
                setParameter("disppatinfo", disparam);  //등록번호▦환자명▦성별/나이▦진료과▦병실▦
                setParameter("openmode",    "newform"); //오픈모드는 “recform”
                setParameter("formcd",      formcd);
    
                modal("SSMMR01100", 1, 0, 0 ,"", "", "");   
                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 = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    if (prcpgenrflag == 'O') {
        if(model.getValue("/root/paminfo/list/insukind") == "71") {
            if(!isNull(model.getValue ( "/root/main/prcp/prcplist[status='I' and clincstdyflag!='Y']/prcpcd" ))) {
                messageBox ( "임상연구 보험유형입니다. 전체 처방에 상세/일괄팝업을 통하여 '임상연구' 체크를 해주시기 바랍니다.", "I");
                return false;
            }
        } else {
            if(!isNull(model.getValue ( "/root/main/prcp/prcplist[status='I' and clincstdyflag='Y']/prcpcd" ))) {
                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 = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    
    //퇴원예고 후 퇴원처방 날짜체크: 퇴원예고 다음날로는 처방 불가
    if ( prcpgenrflag != "O"  &&  prcpgenrflag != "E" ){ //응급일 경우 퇴원예정일 check부분 제외처리 .by sonjy 2008-09-10 조범준과장님 요청.
        if (    model.getValue ( "/root/paminfo/list/dschdclrtyn" ) == "Y" 
             && !isNull(model.getValue ( "/root/main/prcp/prcplist[status='I']/prcpcd" ))) {
            if ( model.getValue ( "/root/paminfo/list/dschdclrdt" ).length >= 8 ) {
                var dschdclrdd = model.getValue ( "/root/paminfo/list/dschdclrdt" ).substring(0,8);
                var sIprcAddYn = model.getValue ( "/root/paminfo/list/iprcaddyn" ); // 추가처방 발행여부(심사실 가퇴원 환자)는 처방저장 가능 체크 제외 2012.04.16
                if ( sIprcAddYn != "Y" && eval(model.getValue ( "/root/init/prcpdd" )) > eval( dschdclrdd ) ) {
                    if ( model.getValue ( "/root/addprcp" ) != "Y" ) {
                        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     = model.getValue( "/root/patflag/list/prcpgenrflag" );
    model.makeValue ( "/root/save/saveflaginfo/preworkup",   "N"); // 디폴트값
    
    if(   sIoFlag == "O"
       && prcpflag == "0"
       && savekindflag == "0"
       && model.getValue ("/root/addprcp" ) != "Y") { // 외래, 의사처방 일때만 체크
        model.setValue ( "/root/save/saveflaginfo/preworkup",   "N"); // 디폴트값
        
        var sIcd10Cd    = model.getValue("/root/main/diaginfo/diagcdlist[diagkindcdflag='M' and (status='-' or status='I' or status='U' or status='T')]/icd10cd" );
        fGetHardCDList("N", 337, 0 , "/root/hidden/chkworkupicd10list"); // 337 장기이식 관련 체크 주상병

        if(!isNull(model.getValue("/root/hidden/chkworkupicd10list/hardcd[hardcd='"+sIcd10Cd+"']/hardcd" )) ) { // 적용가능한 진단.
            var pid    = model.getValue ("/root/paminfo/list/pid");
            var orddd  = model.getValue ("/root/paminfo/list/orddd");
            
            model.makeValue("/root/chkworkupreg/reqdata/pid",   pid);
            model.makeValue("/root/chkworkupreg/reqdata/orddd", orddd);
            
            submit("TRMMO00139", false);

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

function fCompareNonPrgDiag () {
    var icd10cd = model.getValue("/root/main/diaginfo/diagcdlist[diagkindcdflag='M' and (status='-' or status='I' or status='U')]/icd10cd" );
    var hardcd1 = model.getValue ( "/root/initsrch/hardcdlist/hardcd[hardcdno='409' and cdseqno ='1']/hardcd");
    var hardcd2 = model.getValue ( "/root/initsrch/hardcdlist/hardcd[hardcdno='409' and cdseqno ='2']/hardcd");
    var hardcd3 = model.getValue ( "/root/initsrch/hardcdlist/hardcd[hardcdno='409' and cdseqno ='3']/hardcd");
    var hardcd4 = model.getValue ( "/root/initsrch/hardcdlist/hardcd[hardcdno='409' and cdseqno ='4']/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) {
    var nRtn = 0;

    var monitorResolutions;
    var monitorResolutionsArr;
    var resolution;
    var resolution_pixel;
    
    if(parseInt(nAxis) != 0 && parseInt(nAxis) != 1){
        nAxis = 0; // 디폴트 X축
    }

    if(isNull(nMonitorNumber) || parseInt(nMonitorNumber) < 0 || parseInt(nMonitorNumber) > app.monitorNumber) { // 모니터값이 없거나 잘못된 값일 경우
        nMonitorNumber = getCurrentMonitorNumber(); // 화면이 로딩된 모니터 번호를 반환한다.
    }
    
    monitorResolutions = app.monitorResolution;
    monitorResolutionsArr = monitorResolutions.split('|');
    resolution = monitorResolutionsArr[nMonitorNumber-1];
    
    if(isNull(resolution)) {
        resolution = "1280,1024";   // 디폴트로 1280,1024로 한다.
    }

    resolution_pixel = parseInt(resolution.split(',')[nAxis]);
    if(isNull(nPadding) || nPadding < 0 || nPadding > resolution_pixel) { // 값이 없거나 음수, 화면크기보다 크면
        nPadding = 0;
    }

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

function fGetPrcpSaveAftInfo_New( prcpsaveyn ,aftdcyn ) {
    var rtnVal = true;  //return value(true/false) 선언 추가 (2010.02.20 JJE)
    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
    
    var orddd = ""; 
	if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
		orddd = model.getValue ( "/root/paminfo/list/orddd" );
        orddrid = model.getValue ( "/root/paminfo/list/orddrid" );
	} else {
		orddd = model.getValue ( "/root/paminfo/list/indd" );
        orddrid = model.getValue ( "/root/paminfo/list/medispclid" );
	}
  
	    if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
		    rtnVal = false; //return false;
		}
        if(prcpgenrflag != "O" && prcpgenrflag != "S"){
            var nDschOutCnt = model.instances(0).selectNodes ( prcpNode + "[status ='I' and prcpkindcd = '70']" ).length;
            if(nDschOutCnt > 0) {
                model.removeNodeSet ( "/root/send/cond2" );
                model.makeNode ( "/root/send/cond2" );
                
                model.setValue ( "/root/send/cond1", model.getValue("/root/paminfo/list/pid") );  //환자번호
                model.setValue ( "/root/send/cond2", model.getValue("/root/paminfo/list/indd") ); //진료일
                model.setValue ( "/root/send/cond3", model.getValue("/root/paminfo/list/instcd"));  //cretno
                model.setValue ( "/root/send/cond4", model.getValue("/root/paminfo/list/cretno"));  //cretno
                 
                if (  submit ( "TRMMO00119", false )) {
                    //처방에 대한 중증진료, 산정특례, 법정전염병 처리
                    model.setValue ( "/root/send/cond1", "O" );                                 //외래,입원구분
                    model.setValue ( "/root/send/cond17", model.getValue("/root/paminfo/list/pid"));        //환자번호
                    model.setValue ( "/root/send/cond3", model.getValue("/root/followup/followup/otpt_orddd") );                                            //진료일
                    model.setValue ( "/root/send/cond4", model.getValue("/root/followup/followup/otpt_cretno"));        //cretno
                    model.setValue ( "/root/send/cond5", model.getValue("/root/paminfo/list/instcd"));      //기관코드
                    model.setValue ( "/root/send/cond6", model.getValue("/root/paminfo/list/orddeptcd"));   //진료과
                    model.setValue ( "/root/send/cond7", orddrid );                                         //진료의id
                    model.setValue ( "/root/send/cond8", model.getValue("/root/init/prcpdd"));              //처방일
                    model.setValue ( "/root/send/cond9", model.getValue("/root/paminfo/list/age"));         //나이
                    model.setValue ( "/root/send/cond10", model.getValue( "/root/hidden/dschprcpyn"));      //퇴원오더 여부
                    model.setValue ( "/root/send/cond11", model.getValue( "/root/paminfo/list/suppkind"));  //보조유형
                    model.setValue ( "/root/send/cond12", model.getValue( "/root/init/prcpauthflag"));      //권한구분
                    model.setValue ( "/root/send/cond13", model.getValue("/root/paminfo/list/insukind"));   //보험유형
                    model.setValue ( "/root/send/cond14", getUserInfo("dutplcecd"));                        //부서코드
                    model.setValue ( "/root/send/cond15", getUserInfo ("userid"));                          //사용자ID
                    model.setValue ( "/root/send/cond16", prcpsaveyn );                                     //처방저장여부  
                    model.setValue ( "/root/send/cond18", model.getValue ("/root/formerkey/pseuacptflag")); //시행부서처방가접수여부
                    model.makeValue ( "/root/send/cond19", aftdcyn);    //청구 후 d/c처방 여부 by sonjy 20081027 추가 
                    
                    if( submit ( "TRMMO00122", false ) ){
                        if( fGetPrcpEtcInfo("save") == false ){ //처방에 대한 중증진료, 산정특례, 법정전염병 처리 ( 추가처방에서는 처리 안함 )
                            rtnVal = false; //return false;
                        }
                        model.makeNode ( "/root/savertninfo/diagcdlist");
                        copyNodesetType("/root/savertninfo/diagcdlist","/root/result1/diagcdlist","replace");
                        
                    }
                }
            }
        }
    
    //by sonjy 간호반납의뢰 처방 저장 후 호출 시에는...아직 화면이 그려지지 않은 상태임. 
    //son0820 
        if( model.getValue("/root/bfinityn") ==  "Y" ){ 
            //JJE 처방일이 미래일자로 변경되어 있을경우, 오늘날짜로 다시 설정 (2008.09.11) 
            if( model.getValue("/root/cp") == "Y" ){        //&& model.getValue("/root/init/prcpdd") != getCurrentDate() 
                model.setValue("/root/init/prcpdd", getCurrentDate());
                cmb_prcpdd.refresh();
            }
            
            ivw_prcp3.window.javascript.fInitialize("save");
    //      2011.09.01 아래 로직 삭제 
    //      if ( model.instances(0).selectNodes ("root/savertninfo/prcplist").length > 0 ){
    //          ivw_prcp3.window.javascript.fInitialize("save");
    //      } else {
    //          ivw_prcp3.window.javascript.fInitialize("init");
    //      }
    //    }
  }

	

  //start: 외부 CD 재판독 의뢰 정보 update (2010.02.19 JJE)
  if( getParameter("spmmo21200_rtnyn") == "Y" ){
    var saveYN     = "N";
    var prcpPkSpec = "";
    var savePrcpDD = "";
    var savePrcpCd = "";
    var saveEqmtCd = "";
    var saveTrsmDD = "";
    var saveTrsmTM = "";
    //var saveOcdSeq = "";
    var prcpcdList = getParameter("spmmo21200_rtnprcpcd").split("^"); //prcpCd
    var eqmtcdList = getParameter("spmmo21200_rtneqmtcd").split("^"); //cdType
    var trsmddList = getParameter("spmmo21200_rtntrsmdd").split("^"); //trsmDD
    var trsmtmList = getParameter("spmmo21200_rtntrsmtm").split("^"); //trsmTM
    //var ocdseqList = getParameter("spmmo21200_rtnocdseq").split("^"); //oCdSeq
    var iRow = 0;
    
    model.makeNode ("/root/spmmo21200/send");
    for( var i=0; i<prcpcdList.length; i++ ){
        prcpPkSpec = instance1.selectSingleNode("root/savertninfo/prcplist[prcpcd='" + prcpcdList[i] + "']/prcppkspec");
        if( prcpPkSpec != null ){  //익일 처방 있고, 당일처방 추가로 낸 경우.. 값 있는지?
            savePrcpDD = prcpPkSpec.text.substr(0, 8);
            savePrcpCd = prcpcdList[i];
            saveEqmtCd = eqmtcdList[i];
            saveTrsmDD = trsmddList[i];
            saveTrsmTM = trsmtmList[i];
            //saveOcdSeq = ocdseqList[i];
            saveYN     = "Y";
            iRow++;
            //break;  //우선은 1건만 prcpcd mapping
            
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/pid"      , getParameter("spmmo21200_pid"));
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/orddeptcd", getParameter("spmmo21200_orddeptcd"));
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/prcpdd"   , savePrcpDD);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/prcpcd"   , savePrcpCd);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/eqmtcd"   , saveEqmtCd);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/trsmdd"   , saveTrsmDD);
            model.makeValue("/root/spmmo21200/send/info["+iRow+"]/trsmtm"   , saveTrsmTM);
            //model.makeValue("/root/spmmo21200/send/info/ocdseq"   , saveOcdSeq);
        }
    }
    if( saveYN == "Y" ){
        if( !submit("TXMMO21201", false) ){
            rtnVal = false;
        }
    }
    model.removenode("/root/spmmo21200");
    clearParameter("spmmo21200_rtnyn"); 
    clearParameter("spmmo21200_pid");
    clearParameter("spmmo21200_orddeptcd");
    clearParameter("spmmo21200_rtnprcpcd"); 
    clearParameter("spmmo21200_rtneqmtcd"); 
    clearParameter("spmmo21200_rtntrsmdd"); 
    clearParameter("spmmo21200_rtntrsmtm"); 
    }
    //end
  
  //true 리턴 추가(2008.09.29 JJE)
  return rtnVal; //return true;
}


function fInstenceSetAgft_New(aftdcyn,prcpsaveyn , prcpflag){



	   //********************submit TRMMO00122 -> TXMMO00501 로의 통합을 위한 인스턴스 셋팅 ***************************
	   
		var rtnVal = true;  //return value(true/false) 선언 추가 (2010.02.20 JJE)
		
		//청구 후 d/c관련 추가 by sonjy 20081027 
		//청구 후 d/c시 법정전염병 및 산정특례를 체크하지 않도록 한다.
		if( aftdcyn == null || isNull(aftdcyn) ) aftdcyn = ""; 
		
		//정신과 의료급여 환자 입퇴원 유형 체크 
	  	fChkNPDschChk();

		var orddd = ""; 
		var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
		if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //외래일때
			orddd = model.getValue ( "/root/paminfo/list/orddd" );
	        orddrid = model.getValue ( "/root/paminfo/list/orddrid" );
		} else {
			orddd = model.getValue ( "/root/paminfo/list/indd" );
	        orddrid = model.getValue ( "/root/paminfo/list/medispclid" );
		}
		//처방에 대한 중증진료, 산정특례, 법정전염병 처리
		model.makeValue ( "/root/send/aft_cond1", prcpgenrflag );									//외래,입원구분
		model.makeValue ( "/root/send/aft_cond17", model.getValue("/root/paminfo/list/pid"));		//환자번호
		model.makeValue ( "/root/send/aft_cond3", orddd );											//진료일
		model.makeValue ( "/root/send/aft_cond4", model.getValue("/root/paminfo/list/cretno"));		//cretno
		model.makeValue ( "/root/send/aft_cond5", model.getValue("/root/paminfo/list/instcd"));		//기관코드
		model.makeValue ( "/root/send/aft_cond6", model.getValue("/root/paminfo/list/orddeptcd"));	//진료과
		model.makeValue ( "/root/send/aft_cond7", orddrid );											//진료의id
		model.makeValue ( "/root/send/aft_cond8", model.getValue("/root/init/prcpdd"));				//처방일
		model.makeValue ( "/root/send/aft_cond9", model.getValue("/root/paminfo/list/age"));			//나이
		model.makeValue ( "/root/send/aft_cond10", model.getValue( "/root/hidden/dschprcpyn"));		//퇴원오더 여부
		model.makeValue ( "/root/send/aft_cond11", model.getvalue( "/root/paminfo/list/suppkind"));  //보조유형
		model.makeValue ( "/root/send/aft_cond12", model.getValue( "/root/init/prcpauthflag"));		//권한구분
		model.makeValue ( "/root/send/aft_cond13", model.getValue("/root/paminfo/list/insukind"));	//보험유형
		model.makeValue ( "/root/send/aft_cond14", getUserInfo("dutplcecd"));						//부서코드
		model.makeValue ( "/root/send/aft_cond15", getUserInfo ("userid"));							//사용자ID
		model.makeValue ( "/root/send/aft_cond16", prcpsaveyn );										//처방저장여부	
		model.makeValue ( "/root/send/aft_cond18", model.getValue ("/root/formerkey/pseuacptflag"));	//시행부서처방가접수여부
		model.makeValue ( "/root/send/aft_cond19", aftdcyn);	//청구 후 d/c처방 여부 by sonjy 20081027 추가 
		
		//by sonjy 20091120 전처방 개인별 조회 option 추가  
		var bfprcpviewnode =  instance1.selectSingleNode("/root/initsrch/envinfo[qestcd='018']/answcnt");
		var bfprcpviewflag = ""; 
		if( bfprcpviewnode != null ) bfprcpviewflag = bfprcpviewnode.text ;
		model.makeValue ( "/root/send/aft_bfprcpviewflag", bfprcpviewflag);	  
		
		
		//********************submit TRMMO00105 -> TXMMO00501 로의 통합을 위한 인스턴스 셋팅 ***************************
		var orddd = "";
	    var orddrid = "";
	    var pseuacptflag = model.getValue ( "/root/formerkey/pseuacptflag" );  //시행부서처방가접수
	    var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );  
		var cretno = ""; 
		var dschdd = "";
		var dschyn = "";
	    if ( isNull(prcpflag)){
	        prcpflag = "prcp"
	    }
		
		if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) {
	        orddd = model.getValue ( "/root/paminfo/list/orddd" );
	        orddrid = model.getValue ( "/root/paminfo/list/orddrid" );
			cretno = model.getValue ( "/root/paminfo/list/cretno" );
			prcpgenrflag ="O";
	    } else {
	        orddd   = model.getValue ( "/root/paminfo/list/indd" );
	        orddrid = model.getValue ( "/root/paminfo/list/medispclid" );
	        dschdd = model.getValue ( "/root/paminfo/list/dschdd" );
			cretno = model.getValue ( "/root/paminfo/list/cretno" );
			prcpgenrflag ="I";
	    }
		if ( pseuacptflag == "Y" ) {
			orddd = model.getValue ( "/root/formerkey/orddd_old" );
			cretno = model.getValue ( "/root/formerkey/cretno_old" );
		}  

	    model.makeValue ( "/root/send/diag_cond1", model.getValue ( "/root/paminfo/list/pid" ));
	    model.makeValue ( "/root/send/diag_cond2", orddd);
	    model.makeValue ( "/root/send/diag_cond3", cretno);
	    model.makeValue ( "/root/send/diag_cond4", model.getValue ( "/root/paminfo/list/orddeptcd" )); 
	    model.makeValue ( "/root/send/diag_cond5", prcpgenrflag);
	    model.makeValue ( "/root/send/diag_cond6", orddrid );
	    model.makeValue ( "/root/send/diag_cond7", prcpflag ); //처방구분
	    model.makeValue ( "/root/send/diag_cond8", dschdd ); //퇴원구분
	   

			
}
/**
 * @desc   : 진단 조회
 * @return : void
 * @authur : 마정민 2007. 5. 16
 */
function fPatDiagSrch_New(prcpflag) {
    
    //model.addlog("          SPEED CHECK START OF fPatDiagSrch()");

    if ( isNull(prcpflag)){
        prcpflag = "prcp"
    }

    model.removenode(diagNode);
	
    var diagNodeTuning = "/root/savertninfo/diagcdlist" ;
    var srcNodeListLenTuning = model.instances(0).selectNodes (diagNodeTuning ).length;

  //  if (submit( "TRMMO00105", false )) {

        /********** 외래일 경우 원내처방 사유가 있는 진단인지 체크한다. **********/
        for ( var i=1; i <= srcNodeListLenTuning; i++ ) { 
            var icd10cd = model.getValue ( diagNode + "[" + i + "]/icd10cd" ); 
            var diagkindcdflag = model.getValue ( diagNode + "[" + i + "]/diagkindcdflag" ); 
            fCheckDiagHosinpPcp( icd10cd, prcpgenrflag, diagkindcdflag ); 
        } 
        
        if ( prcpflag == "prcp") { 
            appendChildPrcp ( "/root/reset/diagcdlist", "/root/main/diaginfo", "main" ); 
            
            // 처방 메인 refresh 단일화를 위한 셋팅 - 20081212 by Moonsh
            var refreshInfo = getGlobalVariable("OrderMainRefresh"); 
            if ( refreshInfo != "Y" ) { 
                model.refresh(); 
            } 
            if ( grd_diaglist.rows > 1) {
            //	model.resetInstanceNode("/root/main/diaginfo/diagcdlist");
            //    model.copyNode ("/root/main/diaginfo/diagcdlist[*]",diagNodeTuning);
            	copyNodesetType("/root/diagorg/diagcdlist", diagNodeTuning,"replace");
            	copyNodesetType("/root/main/diaginfo/diagcdlist",diagNodeTuning,"replace");
            	copyNodesetType("/root/main/diaginfo/diagcdlist","/root/reset/diagcdlist","after");
                  
            }
        }
  //  }
    fDispPatMainDiag();
    model.recalculate();
    
    //model.addlog("          SPEED CHECK END OF fPatDiagSrch()");
}

function getTuningYn(){
    var sRTC = "/root/temp/rtc";  // 처방저장 실시간 체크(RealTimeCheck)변수 노드 경로 인증저장 버튼 클릭시 신규 조회 한다. 2013.06.05 엄영만
    var sTuningYn = model.getValue(sRTC + "/codeinfo[hardcdno='423']/trgtcd"); // 신규로직 적용여부
    if(sTuningYn == "Y") {
        sTuningYn = "Y";
    } else if (sTuningYn == "S" && !isNull(model.getValue(sRTC + "/codeinfo[hardcdno='425' and trgtcd='"+getUserInfo("userid")+"']/trgtcd")) ) {
        sTuningYn = "Y";
    } else {
        sTuningYn = "N";
    }
 
    return sTuningYn; 
}