/*
  - ▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩

    환자기본정보설정 ( SPMMO08900_환자기본정보설정.xrw - JScript )

  - ▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩

*/

var sPATMAINTOPINFO = "/root/hidden/topinfo/patmaintopinfo";

/**
 * @desc   : 초기화 및 환자 기본정보 조회 및 상단정보 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
var sMsgYn = "Y"; // 상단정보 설정 실패시 안내 메세지 팝업 여부
function fInitialize_SPMMO08900(){
    condparam = opener.javascript.getParameter("condparam");
    condarray = condparam.split("▦");

    if (fContainsHardCD("505", getUserInfo("dutplcecd"))) { // 안내 메세지 제외 부서 2015.06.23 심사팀 제외 이은정 선생님 요청
        sMsgYn = "N";
    }

    if(condarray[0] == "O"){ //외래
        if(fReqOutPatTopInfo()==false){
            opener.javascript.setParameter("SPMMO08900_rtn_useyn", "N");
            if(sMsgYn == "Y") { messageBox("외래환자 상단정보를 로딩", "E001"); }
            window.close();
            return;
        }
    }else if(condarray[0] == "I"){ //입원
        if(fReqInPatTopInfo()==false){
            opener.javascript.setParameter("SPMMO08900_rtn_useyn", "N");
            if(sMsgYn == "Y") { messageBox("입원환자 상단정보를 로딩", "E001"); }
            window.close();
            return;
        }
    }else if(condarray[0] == "S"){ //지원부서
        if(fReqSupDeptTopInfo()==false){
            opener.javascript.setParameter("SPMMO08900_rtn_useyn", "N");
            if(sMsgYn == "Y") { messageBox("환자 상단정보를 로딩", "E001"); }
            window.close();
            return;
        }
    }else if(condarray[0] == "T"){ //수술
        if(fReqOPPatTopInfo()==false){
            opener.javascript.setParameter("SPMMO08900_rtn_useyn", "N");
            if(sMsgYn == "Y") { messageBox("수술환자 상단정보를 로딩", "E001"); }
            window.close();
            return;
        }
    }else if(condarray[0] == "E"){ //응급
        if(fReqERPatTopInfo()==false){
            opener.javascript.setParameter("SPMMO08900_rtn_useyn", "N");
            if(sMsgYn == "Y") { messageBox("응급환자 상단정보를 로딩", "E001"); }
            window.close();
            return;
        }
    }else if(condarray[0] == "C"){ //의뢰(consult)
        if(fReqCnstPatList()==false){
            opener.javascript.setParameter("SPMMO08900_rtn_useyn", "N");
            if(sMsgYn == "Y") { messageBox("의뢰환자 상단정보를 로딩", "E001"); }
            window.close();
            return;
        }
    }else{
        messageBox("상단정보 parameter값이 잘못 설정", "I001");
        opener.javascript.setParameter("SPMMO08900_rtn_useyn", "N");
        window.close();
        return;
    }
    
    // XP에서 TF열었을 때 TF에서 XP 상단정보 셋팅 하는 함수    
    var sysMessageobj = getViewer("sysMessage");
    if(sysMessageobj != null && sysMessageobj.window.javascript.fPatientInfoLoadingToXP != undefined) {
    	sysMessageobj.window.javascript.setParameter("PatientInfoXP", condparam);
    	sysMessageobj.window.javascript.fPatientInfoLoadingToXP(true);
    	sysMessageobj.window.javascript.clearParameter("PatientInfoXP");
    }
  
    opener.javascript.setParameter("SPMMO08900_rtn_useyn", "Y");
    window.close();
}

/**
 * @desc   : 외래환자 원무, 환자구분, 상단정보 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReqOutPatTopInfo(){
    model.makeValue("/root/send/reqdata/pid"      , condarray[1]); //등록번호
    model.makeValue("/root/send/reqdata/orddd"    , condarray[2]); //진료일자
    model.makeValue("/root/send/reqdata/cretno"   , condarray[3]); //생성번호
    model.makeValue("/root/send/reqdata/instcd"   , condarray[4]); //기관코드
    model.makeValue("/root/send/reqdata/ioflag"   , "O");
    var errflag   = opener.javascript.getParameter("errflag");
    if(errflag == "Y"){
        setErrorOff();
    }

    if(submit("TRMMO04202")){
        var paminfonode = model.instance1.selectNodes("/root/hidden/topinfo/outpatpaminfo");
        var patflagnode = model.instance1.selectNodes("/root/hidden/topinfo/outpatflaginfo");
        var maintopnode = model.instance1.selectNodes("/root/hidden/topinfo/patmaintopinfo");

        if(paminfonode.length < 1){
           if(sMsgYn == "Y") { messageBox("외래환자 원무 정보가", "I004"); }
           return false;
        }

        if(patflagnode.length < 1){
           if(sMsgYn == "Y") { messageBox("외래환자 환자구분 정보가", "I004"); }
           return false;
        }

        if(maintopnode.length < 1){
           if(sMsgYn == "Y") { messageBox("외래환자 상단기본 정보가", "I004"); }
           return false;
        }

        if(fSetMainTopInfo()) {
            setPatientFlag(model.getValue("/root/hidden/topinfo/outpatflaginfo/prcpgenrflag"));
    	    setPatientInfoDetail("/root/hidden/topinfo/outpatpaminfo");     
	    } else { 
	        return false;
        } 
        return true;
    } else {
        return false;
    }
}

/**
 * @desc   : 입원환자 원무, 환자구분, 상단정보 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReqInPatTopInfo(){
    model.makeValue("/root/send/reqdata/pid"      , condarray[1]); //등록번호
    model.makeValue("/root/send/reqdata/orddd"    , condarray[2]); //입원일자
    model.makeValue("/root/send/reqdata/cretno"   , condarray[3]); //생성번호
    model.makeValue("/root/send/reqdata/instcd"   , condarray[4]); //기관코드
    if(condarray.length > 5){
        model.makeValue("/root/send/reqdata/srchdd"   , condarray[5]); //조회일자
    }
    model.makeValue("/root/send/reqdata/ioflag"   , "I");
   
    var errflag   = opener.javascript.getParameter("errflag");
    if(errflag == "Y"){
        setErrorOff();
    }
    if(submit("TRMMO04302", false)){
        var paminfonode = model.instance1.selectNodes("/root/hidden/topinfo/inpatpaminfo");
        var patflagnode = model.instance1.selectNodes("/root/hidden/topinfo/inpatflaginfo");
        var maintopnode = model.instance1.selectNodes("/root/hidden/topinfo/patmaintopinfo");

        if(paminfonode.length < 1){
           if(sMsgYn == "Y") { messageBox("입원환자 원무 정보가", "I004"); }
           return false;
        }

        if(patflagnode.length < 1){
            if(sMsgYn == "Y") { messageBox("입원환자 환자구분 정보가", "I004"); }
            return false;
        }

        if(maintopnode.length < 1){
            if(sMsgYn == "Y") { messageBox("입원환자 상단기본 정보가", "I004"); }
            return false;
        }

        if(fSetMainTopInfo()) { //화면 상단정보 설정
            setPatientFlag(model.getValue("/root/hidden/topinfo/inpatflaginfo/prcpgenrflag"));
            setPatientInfoDetail("/root/hidden/topinfo/inpatpaminfo");
        } else { 
	        return false;
        } 
        return true;
    } else {
        return false;
    }
}

/**
 * @desc   : 지원부서 원무, 환자구분, 상단정보 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReqSupDeptTopInfo(){
    model.makeValue("/root/send/reqdata/ioflag"        , condarray[0]); //외래입원구분
    model.makeValue("/root/send/reqdata/prcpdd"        , condarray[1]); //처방일자
    model.makeValue("/root/send/reqdata/execprcpuniqno", condarray[2]); //실시부서유일번호
    model.makeValue("/root/send/reqdata/instcd"        , condarray[3]); //기관코드
    if(condarray.length > 5){
        model.makeValue("/root/send/reqdata/srchdd"     , condarray[4]); //기준일자
    }
    var errflag   = opener.javascript.getParameter("errflag");
    if(errflag == "Y"){
        setErrorOff();
    }
    if(submit("TRMMO04102")){
        var paminfonode = model.instance1.selectNodes("/root/hidden/topinfo/etcpatpaminfo");
        var patflagnode = model.instance1.selectNodes("/root/hidden/topinfo/etcpatflaginfo");
        var maintopnode = model.instance1.selectNodes("/root/hidden/topinfo/patmaintopinfo");

        if(paminfonode.length < 1){
            if(sMsgYn == "Y") { messageBox("지원부서 환자 원무 정보가", "I004"); }
            return false;
        }

        if(patflagnode.length < 1){
            if(sMsgYn == "Y") { messageBox("지원부서 환자 환자구분 정보가", "I004"); }
            return false;
        }

        if(maintopnode.length < 1){
            if(sMsgYn == "Y") { messageBox("지원부서 환자 상단기본 정보가", "I004"); }
            return false;
        }

        if(fSetMainTopInfo()) { //화면 상단정보 설정
            setPatientFlag(model.getValue("/root/hidden/topinfo/etcpatflaginfo/prcpgenrflag"));
            setPatientInfoDetail("/root/hidden/topinfo/etcpatpaminfo");
        } else { 
	        return false;
        }
        return true;
    } else {
        return false;
    }
}

/**
 * @desc   : 수술환자 원무, 환자구분, 상단정보 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReqOPPatTopInfo(){
    model.makeValue("/root/send/reqdata/pid"      , condarray[1]); //등록번호
    model.makeValue("/root/send/reqdata/orddd"    , condarray[2]); //수술일자
    model.makeValue("/root/send/reqdata/cretno"   , condarray[3]); //생성번호
    model.makeValue("/root/send/reqdata/instcd"   , condarray[4]); //기관코드
    model.makeValue("/root/send/reqdata/ioflag"   , condarray[0]); //외래입원구분
    model.makeValue("/root/send/reqdata/orddeptcd", condarray[5]); //집도과
    model.makeValue("/root/send/reqdata/orddrid"  , condarray[6]); //집도의
    model.makeValue("/root/send/reqdata/patflag"  , condarray[7]); //환자구분 - dao sql에서 query구분자 설정
    model.makeValue("/root/send/reqdata/procflag" , condarray[8]); //처리구분(F:최초 조회, R:재조회)
    model.makeValue("/root/send/reqdata/oprsrvno" , condarray[9]); //수술예약번호
    model.makeValue("/root/send/reqdata/ophistno" , condarray[10]);//수술이력번호
    model.makeValue("/root/send/reqdata/srchdd"   , condarray[11]);//조회일자
   
    var errflag   = opener.javascript.getParameter("errflag");
    if(errflag == "Y"){
        setErrorOff();
    }
    if(submit("TRMMO04502")==true){
        var paminfonode = model.instance1.selectNodes("/root/hidden/topinfo/etcpatpaminfo");
        var patflagnode = model.instance1.selectNodes("/root/hidden/topinfo/etcpatflaginfo");
        var maintopnode = model.instance1.selectNodes("/root/hidden/topinfo/patmaintopinfo");
        var oppatnode   = model.instance1.selectNodes("/root/hidden/topinfo/oppatopscheinfo");

        if(paminfonode.length < 1){
            if(sMsgYn == "Y") { messageBox("수술환자 원무 정보가", "I004"); }
            return false;
        }

        if(patflagnode.length < 1){
            if(sMsgYn == "Y") { messageBox("수술환자 환자구분 정보가", "I004"); }
            return false;
        }

        if(maintopnode.length < 1){
            if(sMsgYn == "Y") { messageBox("수술환자 상단기본 정보가", "I004"); }
            return false;
        }

        if(oppatnode.length < 1){
            if(sMsgYn == "Y") { messageBox("수술환자 예약 정보가", "I004"); }
            return false;
        }

        if(fSetMainTopInfo()) { //화면 상단정보 설정
            setPatientFlag(model.getValue("/root/hidden/topinfo/etcpatflaginfo/prcpgenrflag"));
            setPatientInfoDetail("/root/hidden/topinfo/etcpatpaminfo");
            setOperationInfo("/root/hidden/topinfo/oppatopscheinfo");
        } else { 
	        return false;
        }
        return true;
    } else {
        return false;
    }
}

/**
 * @desc   : 응급환자 상단정보 조회조건 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReqERPatTopInfo(){
    model.makeValue("/root/send/reqdata/pid"      , condarray[1]); //등록번호
    model.makeValue("/root/send/reqdata/orddd"    , condarray[2]); //입원일자
    model.makeValue("/root/send/reqdata/cretno"   , condarray[3]); //생성번호
    model.makeValue("/root/send/reqdata/instcd"   , condarray[4]); //기관코드
    if(condarray.length > 5){
        model.makeValue("/root/send/reqdata/srchdd", condarray[5]); //조회일자
    }
    if(condarray.length > 6){
        model.makeValue("/root/send/reqdata/callvisityn", condarray[6]); //콜비짓 유무
    }
    model.makeValue("/root/send/reqdata/ioflag"   , "E");
   
    var errflag   = opener.javascript.getParameter("errflag");
    if(errflag == "Y"){
        setErrorOff();
    }
    if(submit("TRMMO04302", false)){
        var paminfonode = model.instance1.selectNodes("/root/hidden/topinfo/inpatpaminfo");
        var patflagnode = model.instance1.selectNodes("/root/hidden/topinfo/inpatflaginfo");
        var maintopnode = model.instance1.selectNodes("/root/hidden/topinfo/patmaintopinfo");

        if(paminfonode.length < 1){
            if(sMsgYn == "Y") { messageBox("응급환자 원무 정보가", "I004"); }
            return false;
        }

        if(patflagnode.length < 1){
            if(sMsgYn == "Y") { messageBox("응급환자 환자구분 정보가", "I004"); }
            return false;
        }

        if(maintopnode.length < 1){
            if(sMsgYn == "Y") { messageBox("응급환자 상단기본 정보가", "I004"); }
            return false;
        }

        if(fSetMainTopInfo()) { //화면 상단정보 설정
            setPatientFlag(model.getValue("/root/hidden/topinfo/inpatflaginfo/prcpgenrflag"));
            setPatientInfoDetail("/root/hidden/topinfo/inpatpaminfo");     
        } else { 
	        return false;
        }
        
        return true;
    } else {
        return false;
    }
}

/**
 * @desc   : 의뢰(consult)환자 상단정보 조회조건 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReqCnstPatList(){
    model.makeValue("/root/send/reqdata/ioflag"    , condarray[0]);
    model.makeValue("/root/send/reqdata/chosflag"  , condarray[1]);
    model.makeValue("/root/send/reqdata/pid"       , condarray[2]); //등록번호
    model.makeValue("/root/send/reqdata/orddd"     , condarray[3]); //입원일자
    model.makeValue("/root/send/reqdata/cretno"    , condarray[4]); //생성번호
    model.makeValue("/root/send/reqdata/instcd"    , condarray[5]); //기관코드
    model.makeValue("/root/send/reqdata/formrecseq", condarray[6]); //서식번호
   
    var errflag   = opener.javascript.getParameter("errflag");
    if(errflag == "Y"){
        setErrorOff();
    }
    if(submit("TRMMO04802")){     
        var paminfonode = model.instance1.selectNodes("/root/hidden/topinfo/etcpatpaminfo");
        var patflagnode = model.instance1.selectNodes("/root/hidden/topinfo/etcpatflaginfo");
        var maintopnode = model.instance1.selectNodes("/root/hidden/topinfo/patmaintopinfo");
        var cnstpatnode = model.instance1.selectNodes("/root/hidden/topinfo/cnstpattopinfo");

        if(paminfonode.length < 1){
            if(sMsgYn == "Y") { messageBox("의뢰환자 원무 정보가", "I004"); }
            return false;
        }

        if(patflagnode.length < 1){
            if(sMsgYn == "Y") { messageBox("의뢰환자 환자구분 정보가", "I004"); }
            return false;
        }

        if(maintopnode.length < 1){
            if(sMsgYn == "Y") { messageBox("의뢰환자 상단기본 정보가", "I004"); }
            return false;
        }

        if(cnstpatnode.length < 1){
            messageBox("의뢰환자 정보가", "I004");
            return false;
        }

        if(fSetMainTopInfo()) {
            setPatientFlag(model.getValue("/root/hidden/topinfo/etcpatflaginfo/prcpgenrflag"));
            setPatientInfoDetail("/root/hidden/topinfo/etcpatpaminfo");
            setConsultInfo("/root/hidden/topinfo/cnstpattopinfo");
        } else { 
	        return false;
        }
     
        return true;
    } else {
        return false;
    }
}

/**
 * @desc   : 상단정보 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSetMainTopInfo(){
    
    var bRtn = true;
    var pid          = model.getValue(sPATMAINTOPINFO + "/pid");         //등록번호
    var hngnm        = model.getValue(sPATMAINTOPINFO + "/hngnm");       //환자명
    var hngnm2       = model.getValue(sPATMAINTOPINFO + "/hngnm2");      //환자명2
    var dispnm1      = model.getValue(sPATMAINTOPINFO + "/dispnm1");     //표시명1
    var dispnm2      = model.getValue(sPATMAINTOPINFO + "/dispnm2");     //표시명2
    var age          = model.getValue(sPATMAINTOPINFO + "/sa");          //나이/성별
    var rrgstno      = model.getValue(sPATMAINTOPINFO + "/rrgstno");     //주민번호
    var addr         = model.getValue(sPATMAINTOPINFO + "/addr");        //주소
    var insukind     = model.getValue(sPATMAINTOPINFO + "/insukind");    //보험유형코드
    var suppkind     = model.getValue(sPATMAINTOPINFO + "/suppkind");    //보조유형코드
    var insuyn       = model.getValue(sPATMAINTOPINFO + "/insuyn");      //보험유형코드
    var ininfo       = model.getValue(sPATMAINTOPINFO + "/ininfo");      //입원정보
    var body         = model.getValue(sPATMAINTOPINFO + "/body");        //보험유형코드
    var orddept      = model.getValue(sPATMAINTOPINFO + "/orddept");     //부서명
    var apntdr       = model.getValue(sPATMAINTOPINFO + "/apntdr");      //지정의
    var attndr       = model.getValue(sPATMAINTOPINFO + "/attndr");      //주치의
    var btype        = model.getValue(sPATMAINTOPINFO + "/btype");       //RH혈액형
    var diagnosis    = model.getValue(sPATMAINTOPINFO + "/diagnosis");   //진단
    var operation    = model.getValue(sPATMAINTOPINFO + "/operation");   //수술
    var allergy      = model.getValue(sPATMAINTOPINFO + "/allergy");     //알러지
    var infection    = model.getValue(sPATMAINTOPINFO + "/infection");   //감염
    var intcare      = model.getValue(sPATMAINTOPINFO + "/intcare");     //감염
    var cp           = model.getValue(sPATMAINTOPINFO + "/cp");          //CP
    var drgyn        = model.getValue(sPATMAINTOPINFO + "/drgyn");       //DRGYN
    var regstno      = model.getValue(sPATMAINTOPINFO + "/regstno");     //주민번호 뒷자리
    var detladdr     = model.getValue(sPATMAINTOPINFO + "/detladdr");    //상세주소
    var zipcd        = model.getValue(sPATMAINTOPINFO + "/zipcd");       //우편번호
    var phontel      = model.getValue(sPATMAINTOPINFO + "/phontel");     //전화번호
    var cnsttypenm   = model.getValue(sPATMAINTOPINFO + "/cnsttypenm");  //협진명
    var healexam     = model.getValue(sPATMAINTOPINFO + "/healexam");    //건진
    var vip          = model.getValue(sPATMAINTOPINFO + "/vip");         //VIP
    var coop         = model.getValue(sPATMAINTOPINFO + "/coop");        //onestop
    var recovwardnm  = model.getValue(sPATMAINTOPINFO + "/recovwardnm"); //회복병실코드
    
    var stgediagnm   = model.getValue(sPATMAINTOPINFO + "/stgediagnm");  //VIP
    var stgediagcd   = model.getValue(sPATMAINTOPINFO + "/stgediagcd");  //VIP
    var stgecd       = model.getValue(sPATMAINTOPINFO + "/stagecd");     //VIP
    var tnmcd1       = model.getValue(sPATMAINTOPINFO + "/tnmcd1");      //onestop
    var tnmcd2       = model.getValue(sPATMAINTOPINFO + "/tnmcd2");      //onestop
    var tnmcd3       = model.getValue(sPATMAINTOPINFO + "/tnmcd3");      //회복병실코드 
    
    var organ        = model.getValue(sPATMAINTOPINFO + "/organ");      //이식
    var dinfo        = model.getValue(sPATMAINTOPINFO + "/dinfo");      //낙상
    var binfo        = model.getValue(sPATMAINTOPINFO + "/binfo");      //욕창
    var pinfo        = model.getValue(sPATMAINTOPINFO + "/pinfo");      //사생활
    var nutinfo      = model.getValue(sPATMAINTOPINFO + "/nutinfo");    //영양고위험
      
    var recmerinfo   = model.getValue(sPATMAINTOPINFO + "/recmerinfo"); //지인정보
    var recmer       = model.getValue(sPATMAINTOPINFO + "/recmer");     //지인여부
    var schoolflag   = model.getValue(sPATMAINTOPINFO + "/schoolflag"); //교직원 flag
    var drginfo      = model.getValue(sPATMAINTOPINFO + "/drginfo");    //DRG 정보
    var pregnant     = model.getValue(sPATMAINTOPINFO + "/pregnant");   //임신부 정보
    
    // 상단에 알러지 표시 깜빡거리는 기능 2008.07.17 오지훈
    var newallergy = model.getValue(sPATMAINTOPINFO + "/newallergy");   //뉴알러지
    
    // 상단 Allergy나 ADR 중 하나면 'Y'라도 둘다 'Y'로 변경
    // Allergy/ADR의 구분이 모호하다는 배성미 선생님 요청으로 변경 2008.07.16 정연우
    var sAYNArray   = allergy.split("^");
    var callvisityn = model.getValue(sPATMAINTOPINFO + "/callvisityn");  //콜비짓
    
    // 주의요망환자 상단 불가 처리 2015.06.18 엄영만
    var errwarnmsg  = model.getValue(sPATMAINTOPINFO + "/errwarnmsg");  //주의요망 상단불가 처리
    if(!isNull(errwarnmsg)) {
        messageBox(" ◆ 주의요망 환자관리 ◆\n\n" + errwarnmsg, "E999");
        return false;
    }
    
    // 메르스 환자 관련 체크 추가 원무 인터페이스 호출 (PAM.js) 2015.06.17 엄영만
    /* Start of 메르스 메세지 체크 삭제 2016.02.01 엄영만
    try {
        if(!isNull(pid)) {
           if(pid == "3292911") { // 메르스 확정환자
               if (!fContainsHardCD("5703", getUserInfo("userid"))) {
                   messageBox("환자번호 : " + pid + "\n개인정보보호 관리대상 환자로 접근권한을 제한 합니다.\n\n진료지원실장 양동헌", "E999");
                   return false;
               }
           }
   
           fMersPatChk("EMR", pid); // 메르스 안내 메세지 팝업
        }
    } catch(e) {
    }
    End of 메르스 메세지 체크 삭제 2016.02.01 엄영만
    */
    
    // 이윤주 추가(20160907) 
    
    
    var instcd = getUserInfo("dutplceinstcd");
    var jobkindcd = getUserInfo("jobkindcd");
    
    var openerID = opener.window.javascript.getScreenID()
    
    //진료대상자창에서만 제어
    if ( openerID == "SMMMO04700" || openerID == "SMMMO04500" || openerID == "SMMMO04400" || openerID == "SMMMO04300" || openerID == "SMMMO04200") {
	    if ( instcd == "031" && jobkindcd.substr(0,2) == "03") {
	        model.makeValue("/root/send/reqdata/pid",       pid);
		    model.makeValue("/root/send/reqdata/instcd",    instcd);
		    model.makeValue("/root/send/reqdata/flag",      "TOP");
		   	 
		    submit("TRMRI03007");
		    
		    var active = model.getValue("root/activeyn/activeyn");
		    var activeyn = active.substr(0,1);
		      
		    if (activeyn == "N") {
		    	//modal("SPMRI03110", 1,10, 10, "SPMRI03110","/root/hidden/topinfo","/root/temp","sysmenu:hidden;" );
		    	modal("SPMRI03110", 1,10, 10, "SPMRI03110","/root/hidden/topinfo","/root/temp");
		    	var confirmyn = getParameter("SPMRI03110_param_confirmyn");
		    	if (confirmyn != "Y") {
		    		return false ;
		    	}
			}
		}
	}
    
    if(sAYNArray[0] == "Y" || sAYNArray[1] == "Y"){ allergy = "Y^Y";}
    setPatientInfo("pid"         , pid);                     //등록번호
    setPatientInfo("pname"       , pid + "|" + hngnm);       //환자명
    setPatientInfo("pname2"      , pid + "|" + hngnm2);      //환자명2
    setPatientInfo("dispnm1"     , pid + "|" + dispnm1);     //표시명1
    setPatientInfo("dispnm2"     , pid + "|" + dispnm2);     //표시명2
    setPatientInfo("age"         , pid + "|" + age);         //나이/성별
    setPatientInfo("rrgstno"     , pid + "|" + rrgstno);     //주민번호
    setPatientInfo("addr"        , pid + "|" + detladdr);    //주소
    setPatientInfo("insukind"    , pid + "|" + insukind);    //보험유형코드
    setPatientInfo("suppkind"    , pid + "|" + suppkind);    //보조유형코드
    setPatientInfo("insuyn"      , pid + "|" + insuyn);      //보험유형에 따른 플래그
    setPatientInfo("ininfo"      , pid + "|" + ininfo);      //입원정보
    setPatientInfo("body"        , pid + "|" + body);        //보험유형코드
    setPatientInfo("orddept"     , pid + "|" + orddept);     //부서명
    setPatientInfo("apntdr"      , pid + "|" + apntdr);      //지정의
    setPatientInfo("attndr"      , pid + "|" + attndr);      //주치의
    setPatientInfo("btype"       , pid + "|" + btype);       //RH혈액형
    setPatientInfo("diagnosis"   , pid + "|" + diagnosis);   //진단
    setPatientInfo("operation"   , pid + "|" + operation);   //수술
    setPatientInfo("allergy"     , pid + "|" + allergy);     //알러지
    setPatientInfo("infection"   , pid + "|" + infection);   //감염
    setPatientInfo("intncare"    , pid + "|" + intcare);     //특례
    setPatientInfo("cp"          , pid + "|" + cp);          //CP
    setPatientInfo("drgyn"       , pid + "|" + drgyn);       //DRGYN
    setPatientInfo("regstno"     , pid + "|" + regstno);     //주민번호
    setPatientInfo("addrdetl"    , pid + "|" + detladdr);    //상세주소
    setPatientInfo("zipcd"       , pid + "|" + zipcd);       //우편번호
    setPatientInfo("telno"       , pid + "|" + phontel);     //전화번호
    setPatientInfo("cnsttypenm"  , pid + "|" + cnsttypenm);  //협진명
    
    // 상단에 알러지 표시 깜빡거리는 기능 2008.07.17 오지훈 
    setPatientInfo("newallergy"  , pid + "|" + newallergy);    //뉴알러지
    
    setPatientInfo("healexam"     , pid + "|" + healexam);    //건진
    setPatientInfo("vip"          , pid + "|" + vip);         //vip
    setPatientInfo("coop"         , pid + "|" + coop);        //onestop
    setPatientInfo("recovwardnm"  , pid + "|" + recovwardnm); //onestop
    setPatientInfo("stgediagnm"   , pid + "|" + stgediagnm);  //병기진단명
    setPatientInfo("stgediagcd"   , pid + "|" + stgediagcd);  //병기진단코드
    setPatientInfo("stgecd"       , pid + "|" + stgecd);      //병기 stage
    setPatientInfo("tnmcd1"       , pid + "|" + tnmcd1);      //tnmcd1
    setPatientInfo("tnmcd2"       , pid + "|" + tnmcd2);      //tnmcd2
    setPatientInfo("tnmcd3"       , pid + "|" + tnmcd3);      //tnmcd3
    setPatientInfo("organ"        , pid + "|" + organ);       //organ
    setPatientInfo("dinfo"        , pid + "|" + dinfo);       //dinfo
    setPatientInfo("binfo"        , pid + "|" + binfo);       //binfo
    setPatientInfo("pinfo"        , pid + "|" + pinfo);       //pinfo
    setPatientInfo("nutinfo"      , pid + "|" + nutinfo);     //nutinfo
    setPatientInfo("callvisityn"  , pid + "|" + callvisityn); //callvisityn
    setPatientInfo("recmerinfo"   , pid + "|" + recmerinfo); //recmerinfo
    setPatientInfo("recmer"       , pid + "|" + recmer);     //recmer
    setPatientInfo("schoolflag"   , pid + "|" + schoolflag); //경대교직원
    setPatientInfo("drginfo"      , pid + "|" + drginfo);    //DRG정보
    setPatientInfo("pregnant"     , pid + "|" + pregnant);   //임신부정보
    
    return bRtn;
}