YNU_JEUS/app_home/himed/xpapps/pam/ipatmngtxp/xp/SPPMI03200.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/****************************************************************************************
 * Argument			: N/A
 * Description		: 초기화 실행
 ****************************************************************************************/
function fInit() {
	ds_send_cond.clearData();
	ds_send_agmtdesc.clearData();
	ds_main_agmtlist.clearData();
	ds_main_printinfo.clearData();
	ds_main_ininfo.clearData();
	ds_main_agmtcount.clearData();
	ds_init.clearData();
	ds_hidden.clearData();
	ds_tmp.clearData();
    
    ds_send_cond.setColumn(0,"agmttype", 0);	// 구분:전체
    
    ds_send_agmtdesc.setColumn(0,"ocrtype"	, "S");	// O:OCR, S:전자서명
    ds_send_agmtdesc.setColumn(0,"agmttype"	, "1");
    ds_send_agmtdesc.setColumn(0,"fromdd"	, utlf_getCurrentDate());
    
    var todd = utlf_getNewDate();
    todd = todd.getAddDate(364, "D");
    todd = utlf_getDateTime(todd, "D");
    ds_send_agmtdesc.setColumn(0,"todd"	, todd);
    
    cmb_type.enable = true;
    combo1.enable	= true;
}

/****************************************************************************************
 * Argument			: N/A
 * Description		: OCRNO입력
 ****************************************************************************************/
function fSetBcode() {
//    setInputNodeCurText();
    frmf_setInputNodeCurPid(grp_srch.input1);
    
    var sOcrTagNo = ds_send_cond.getColumn(0,"ocrtagno");
    
    if (utlf_isNull(sOcrTagNo) || sOcrTagNo.length < 13) {
        //messageBox("OCR코드가 정상적으로 입력되지 않았습니다.", "C000");
        return false;
    }
    // 검색 실시
    fSearch();
}

/*일괄등록(마감)방식을 채택함으로 인해 자동등록은 하지 않음

function fAutoRgst() {
    
    var pid      = model.getValue("/root/main/ininfo/pid");
    var indd     = model.getValue("/root/main/ininfo/indd");
    var agmttype = model.getValue("/root/main/ininfo/agmttype");
    
    // 자동신청 확인용 메세지 - 입원결정서 있는 경우
    if (messageBox(model.getValue("/root/send/agmtdesc/hngnm")
                          + "(" + pid + ")의 "
                          + "입원일자 : " + indd + "건을 "
                          + "약정서 (" + model.getValue("/root/send/cond/ocrtagno").substr(0, 13)
                          + ")에 등록하시겠습니까?\r\n\r\n"
                          + "시작일자는 " + indd + "로 설정됩니다. "
                          , "Q000") == '6') {
        
        model.setValue("/root/send/agmtdesc/fromdd", indd);
        
        model.makeValue("/root/send/agmtdesc/updateflag", "U");
        model.makeValue("/root/send/agmtdesc/formcd", fGetFromCd(model.getValue("/root/send/agmtdesc/agmttype")));
        
        if (submit("TXPMI03202")) {
            
            // 의무기록 연동이 되어 있지 않은 경우 연동실시
            if (model.getValue("/root/send/agmtdesc/emrif") == "N") {
                
                if (fOCRSave()) {
                    
                    // 연동 성공시 자동 닫기
                    model.close();
                }
            }
        }
    }
}
 */

/****************************************************************************************
 * Argument			: pid       - 환자번호
					: orddd     - 진료일자
					: orddeptcd - 진료과
					: orddrid   - 진료의
					: agmttype  - 약정서구분(1:일반약정서, 2:기간약정서)
					: rsrvyn    - 입원결정서유무
 * Description		: 입원약정서 신규출력
 ****************************************************************************************/
function fPrintAgmt(pid, orddd, orddeptcd, orddrid, agmttype, rsrvyn, roomnm, roomcnt, insukind, todd, cretno) {
	dsf_createDsRow("ds_send_printcond" ,[{col: "pid"		, type:"string", size:256, val:pid}
										, {col: "orddd"		, type:"string", size:256, val:orddd}
                                        , {col: "formcd"     , type:"string", size:256, val:''}
										, {col: "orddeptcd"	, type:"string", size:256, val:orddeptcd}
										, {col: "orddrid"	, type:"string", size:256, val:orddrid}
										, {col: "agmttype"	, type:"string", size:256, val:agmttype}
										, {col: "rsrvyn"	, type:"string", size:256, val:rsrvyn}
										, {col: "ocrtype"	, type:"string", size:256, val:"O"}]);		// 서식종류(O:OCR, S:전자서명)
    ds_send_agmtdesc.setColumn(0,"ocrtype","O"); 	// 자동연동 시 디폴트 처리(O:OCR, S:전자서명)


    // 입원약정서 저장 및 OCR출력정보 취득
	var oParam = {};
		oParam.id          = "TXPMI03203";
		oParam.service     = "ipatmngtapp.InRgst";
		oParam.method      = "reqSetInAgmtPrint";
		oParam.inds        = "req=ds_send_printcond";
		oParam.outds       = "ds_main_printinfo=resultlist";
		oParam.async       = false;
		oParam.callback    = "cf_TXPMI03203";

	tranf_submit(oParam);

    if (arErrorCode.pop("TXPMI03203") > -1) {
    
        var usernm   = sysf_getUserName();
        var curdate  = utlf_getCurrentDate();
        var curtm    = utlf_getCurrentTime();
        
        dsf_makeValue(ds_main_printinfo,"usernm"	,"string", usernm);
        dsf_makeValue(ds_main_printinfo,"curdate"	,"string", curdate);
        dsf_makeValue(ds_main_printinfo,"curtm"		,"string", curtm);
        
        dsf_makeValue(ds_main_printinfo,"roomnm"	,"string", roomnm);
        dsf_makeValue(ds_main_printinfo,"roomcnt"	,"string", roomcnt);
        dsf_makeValue(ds_main_printinfo,"insukind"	,"string", insukind);
        dsf_makeValue(ds_main_printinfo,"orddd"		,"string", orddd);
        dsf_makeValue(ds_main_printinfo,"fromdd"	,"string", orddd);
        dsf_makeValue(ds_main_printinfo,"todd"		,"string", todd);
        dsf_makeValue(ds_main_printinfo,"rsrvyn"	,"string", rsrvyn);
        
        // 2019/08/21 동의서 마스터를 생성 후 종이 출력되도록 수정처리(이정택)
        if (rsrvyn == "N") {
            // 연동기능 구현을 위한 파라미터 설정
            ds_send_agmtdesc.setColumn(0,"pid",         pid);
            ds_send_agmtdesc.setColumn(0,"ocrtagno",    ds_main_printinfo.getColumn(0,"ocrtagno"));
            ds_send_agmtdesc.setColumn(0,"agmttype",    agmttype);
            ds_send_agmtdesc.setColumn(0,"indd",        orddd);
            
            dsf_makeValue(ds_send_agmtdesc,"emrif",     "string","N");
            dsf_makeValue(ds_send_agmtdesc,"cretno",    "string",cretno);
            dsf_makeValue(ds_send_agmtdesc,"orddeptcd", "string",orddeptcd);
            dsf_makeValue(ds_send_agmtdesc,"medispclid","string",orddrid);
            dsf_makeValue(ds_send_agmtdesc,"ocrtype",   "string","O"); // 원무 출력 시 자동연동 처리용 ocrtype
            trace("OCR MASTER 정보 인서트 처리 시작");
            if(fOCRSave()){ //  정상적으로 emr.mrfmocrprnt에 인서트하였을시
            trace("OCR MASTER 정보 인서트 처리 종료");
				// 일반약정서
				if (agmttype == "1") {
		//			exeReportPreview("RPPMI03401","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
					var objDOM = rptf_createDOM();	// DOM 객체 설정
					rptf_setNodeListToDOM(objDOM, "root/main/printinfo"	, ds_main_printinfo);		// 데이터셋 1
					var objParam = new Object();
					objParam.xml_data_XML1 	= objDOM.documentElement.source;			// 최상위노드 XML 스트링 추출
					var option 				= "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=1;";
					rptf_exeReportPreview30(["RPPMI03401"],[objParam], option);		
					trace("일반 약정서 출력완료");
				// 기간약정서
				} else {
		//			exeReportPreview("RPPMI03402","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
					var objDOM = rptf_createDOM();	// DOM 객체 설정
					rptf_setNodeListToDOM(objDOM, "root/main/printinfo"	, ds_main_printinfo);		// 데이터셋 1
					var objParam = new Object();
					objParam.xml_data_XML1 	= objDOM.documentElement.source;			// 최상위노드 XML 스트링 추출
					var option 				= "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=1;";
					rptf_exeReportPreview30(["RPPMI03402"],[objParam], option,"","true");		
					trace("기간 약정서 출력완료");
				}            
            }
        }
        // 2019/08/21 동의서 마스터를 생성 후 종이 출력되도록 수정처리(이정택)
	/*
        // 일반약정서
        if (agmttype == "1") {
//			exeReportPreview("RPPMI03401","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
			var objDOM = rptf_createDOM();	// DOM 객체 설정
			rptf_setNodeListToDOM(objDOM, "root/main/printinfo"	, ds_main_printinfo);		// 데이터셋 1
			var objParam = new Object();
			objParam.xml_data_XML1 	= objDOM.documentElement.source;			// 최상위노드 XML 스트링 추출
			var option 				= "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=1;";
			rptf_exeReportPreview30(["RPPMI03401"],[objParam], option);		
        // 기간약정서
        } else {
//			exeReportPreview("RPPMI03402","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
			var objDOM = rptf_createDOM();	// DOM 객체 설정
			rptf_setNodeListToDOM(objDOM, "root/main/printinfo"	, ds_main_printinfo);		// 데이터셋 1
			var objParam = new Object();
			objParam.xml_data_XML1 	= objDOM.documentElement.source;			// 최상위노드 XML 스트링 추출
			var option 				= "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=1;";
			rptf_exeReportPreview30(["RPPMI03402"],[objParam], option,"","true");		
        }
   */
        
        // 원무에서 출력하는 경우, 자동연동기능 추가(입원결정시에는 제외)
        // 2019/08/21 동의서 마스터를 생성 후 종이 출력되도록 수정처리(이정택)
        /*
        if (rsrvyn == "N") {
            // 연동기능 구현을 위한 파라미터 설정
            ds_send_agmtdesc.setColumn(0,"pid",         pid);
            ds_send_agmtdesc.setColumn(0,"ocrtagno",    ds_main_printinfo.getColumn(0,"ocrtagno"));
            ds_send_agmtdesc.setColumn(0,"agmttype",    agmttype);
            ds_send_agmtdesc.setColumn(0,"indd",        orddd);
            
            dsf_makeValue(ds_send_agmtdesc,"emrif",     "string","N");
            dsf_makeValue(ds_send_agmtdesc,"cretno",    "string",cretno);
            dsf_makeValue(ds_send_agmtdesc,"orddeptcd", "string",orddeptcd);
            dsf_makeValue(ds_send_agmtdesc,"medispclid","string",orddrid);
            dsf_makeValue(ds_send_agmtdesc,"ocrtype",   "string","O"); // 원무 출력 시 자동연동 처리용 ocrtype
            
            fOCRSave();
        }
        */
        // 2019/08/21 동의서 마스터를 생성 후 종이 출력되도록 수정처리(이정택)
    }
}

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

/****************************************************************************************
 * Argument			: N/A
 * Description		: 약정서 출력후 연동정보 저장
 ****************************************************************************************/
function fOCRSave() {
    
    // 연동대상검증 : 대상이 선택되지 않았거나, 이미 연동이 완료된 데이터는 제외시킴
    if (utlf_isNull(ds_send_agmtdesc.getColumn(0,"pid"))) {
        sysf_messageBox("대상이 선택되지 않았습니다.", "C000");
        return;
    } 
    
    if (ds_send_agmtdesc.getColumn(0,"emrif") == "Y") {
        sysf_messageBox("이미 연동이 완료된 데이터입니다.", "C000");
        return;
    }
    
    // 연동은 OCR 서식만 가능(전자서명 불가)
    if (ds_send_agmtdesc.getColumn(0,"ocrtype") != "O") {
        sysf_messageBox("전사서명서식은 연동 불가능합니다. (자동연동)", "C000");
        return ;
    }
    
    // formcd 설정
    dsf_makeValue(ds_send_agmtdesc,"formcd","string",fGetFromCd(ds_send_agmtdesc.getColumn(0,"agmttype")));
    
    dsf_createDsRow("ds_TRPMI03205" ,[
        {col: "pid", type: 'string', size: 256, val: '' },
        {col: "ocrtagno", type: 'string', size: 256, val: '' },
        {col: "agmttype", type: 'string', size: 256, val: '' },
        {col: "fromdd", type: 'string', size: 256, val: '' },
        {col: "seqno", type: 'string', size: 256, val: '' },
        {col: "todd", type: 'string', size: 256, val: '' },
        {col: "rmk", type: 'string', size: 256, val: '' },
        {col: "updateflag", type: 'string', size: 256, val: '' },
        {col: "emrif", type: 'string', size: 256, val: '' },
        {col: "indd", type: 'string', size: 256, val: '' },
        {col: "cretno", type: 'string', size: 256, val: '' },
        {col: "orddeptcd", type: 'string', size: 256, val: '' },
        {col: "medispclid", type: 'string', size: 256, val: '' },
        {col: "formcd", type: 'string', size: 256, val: '' }
    ]);

    ds_TRPMI03205.copyRow(0, ds_send_agmtdesc, 0);

	var oParam = {};
		oParam.id          = "TRPMI03205";
		oParam.service     = "ipatmngtapp.InRgst";
		oParam.method      = "reqGetOcrInfo";
		oParam.inds        = "req=ds_TRPMI03205";
		oParam.outds       = "ds_main_ocrinfo=ocrinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPMI03205";
		
	tranf_submit(oParam);
    
    // 파라미터 세팅
    var ocrtagno   = ds_main_ocrinfo.getColumn(0,"ocrtagno"); 
    var pid        = ds_main_ocrinfo.getColumn(0,"pid");
    var orddd      = ds_main_ocrinfo.getColumn(0,"orddd");
    var cretno     = ds_main_ocrinfo.getColumn(0,"cretno");
    var ordtype    = ds_main_ocrinfo.getColumn(0,"ordtype"); 
    var orddeptcd  = ds_main_ocrinfo.getColumn(0,"orddeptcd");
    var orddrid    = ds_main_ocrinfo.getColumn(0,"orddrid");
    var formcd     = ds_main_ocrinfo.getColumn(0,"formcd");
    var formfromdt = ds_main_ocrinfo.getColumn(0,"formfromdt");
    var pagecnt    = ds_main_ocrinfo.getColumn(0,"pagecnt");
    
    if(!fSaveOCRIF(ocrtagno, pid, orddd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, "", "", pagecnt)){
        sysf_messageBox("통합기록 연동중 오류가 발생하였습니다. ","C999");
        return false;
    } else {
        // 입원약정서 관리화면에서 호출한 경우만 재조회(입원등록 IF에서는 호출 제외)
        if (utlf_isNull(cretno)) {
            sysf_messageBox("정상적으로 등록되었습니다. ","I000");
            
            fSearch();
            
            // 다음데이터 입력을 위한 포커스 이동
            ipt_ocrtagnoif.setFocus();
        }
        return true;
    }
}

/****************************************************************************************
 * Argument			: agmttype	- 약정서 타입
 * Description		: 의무기록 formcd GET!
 ****************************************************************************************/
function fGetFromCd(agmttype) {
    var formcd;
    var nodeCnt = ds_init_prncd.rowcount;
    
    // 구분에 맞춰 폼코드 처리(1:일반약정서 / 2:기간약정서 / 3:개인정보이용동의서)
    for (i = 0; i < nodeCnt; i++) {
        if (agmttype == ds_init_prncd.getColumn(i,"cdseqno")) {
            formcd = ds_init_prncd.getColumn(i,"hardcd");
            break;
        }
    }
    return formcd;
}

/****************************************************************************************
 * Argument			: N/A
 * Description		: 검색
 ****************************************************************************************/
function fSearch() {
    // 조회
	var oParam = {};
		oParam.id          = "TRPMI03201";
		oParam.service     = "ipatmngtapp.InRgst";
		oParam.method      = "reqGetInAgmtList";
		oParam.inds        = "req=ds_send_cond";
		oParam.outds       = "ds_main_agmtlist=resultlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPMI03201";

	tranf_submit(oParam);
	
    if (arErrorCode.pop("TRPMI03201") > -1) {
        ds_send_agmtdesc.clearData();
    }
}

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

/****************************************************************************************
 * Argument			: pid       - 환자번호
					: indd      - 입원일자
					: agmttype  - 약정서 타입
 * Description		: ivr용 - 입원일자에 유효한 입원약정서 유무 조회(자동출력의 기준으로 사용)
 ****************************************************************************************/
function fReqGetInAgmtCount(pid, indd, agmttype) {
    ds_send_cond.setColumn(0,"pid"		, pid);
    ds_send_cond.setColumn(0,"fromdd"	, indd);
    ds_send_cond.setColumn(0,"agmttype"	, agmttype);
    
    // 조회
	var oParam = {};
		oParam.id          = "TRPMI03204";
		oParam.service     = "ipatmngtapp.InRgst";
		oParam.method      = "reqGetInAgmtCount";
		oParam.inds        = "req=ds_send_cond";
		oParam.outds       = "ds_main_agmtcount=resultlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPMI03204";

	tranf_submit(oParam);
	
    if (arErrorCode.pop("TRPMI03204") > -1) {
        if (parseInt(ds_main_agmtcount.getColumn(0,"cnt")) > 0) {
            return true;
        } else {
            return false;
        }
    }
}

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

/****************************************************************************************
 * Argument			: N/A
 * Description		: 약정서재출력
 ****************************************************************************************/
function fRePrintOcr() {
    if (utlf_isNull(ds_send_agmtdesc.getColumn(0,"ocrtagno"))) {
        sysf_messageBox("약정서 정보를 선택해주십시요.", "C000");
        return;
    }
    
    if (ds_send_agmtdesc.getColumn(0,"scanyn") != "Y") {
		dsf_createDsRow("ds_main_printinfo" ,[{col: "instcd"	,val:ds_send_agmtdesc.getColumn(0,"instcd")}
											, {col: "ocrtagno"	,val:ds_send_agmtdesc.getColumn(0,"ocrtagno")}
											, {col: "pid"		,val:ds_send_agmtdesc.getColumn(0,"pid")}
											, {col: "hngnm"		,val:ds_send_agmtdesc.getColumn(0,"hngnm")}
											, {col: "rrgstno1"	,val:ds_send_agmtdesc.getColumn(0,"rrgstno").substr(0,6)}
											, {col: "rrgstno2"	,val:ds_send_agmtdesc.getColumn(0,"rrgstno").substr(6,13)}
											, {col: "address"	,val:ds_send_agmtdesc.getColumn(0,"address")}
											, {col: "hometel"	,val:ds_send_agmtdesc.getColumn(0,"hometel")}
											, {col: "mpphontel"	,val:ds_send_agmtdesc.getColumn(0,"mpphontel")}
											, {col: "hospnm"	,val:ds_send_agmtdesc.getColumn(0,"hospnm")}
											, {col: "ordcentnm"	,val:ds_send_agmtdesc.getColumn(0,"ordcentnm")}
											, {col: "orddeptnm"	,val:ds_send_agmtdesc.getColumn(0,"orddeptnm")}
											, {col: "usernm"	,val:sysf_getUserName()}
											, {col: "curdate"	,val:utlf_getCurrentDate()}
											, {col: "curtm"		,val:utlf_getCurrentTime()}
											, {col: "roomnm"	,val:ds_send_agmtdesc.getColumn(0,"roomnm")}
											, {col: "roomcnt"	,val:""}
											, {col: "insukind"	,val:ds_send_agmtdesc.getColumn(0,"insukind")}
											, {col: "orddd"		,val:ds_send_agmtdesc.getColumn(0,"indd")}
											, {col: "fromdd"	,val:ds_send_agmtdesc.getColumn(0,"fromdd")}
											, {col: "todd"		,val:ds_send_agmtdesc.getColumn(0,"todd")}]);

        // 일반약정서
        if (ds_send_agmtdesc.getColumn(0,"agmttype") == "1") {
//            exeReportPreview("RPPMI03401","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
			var objDOM = rptf_createDOM();	// DOM 객체 설정
			rptf_setNodeListToDOM(objDOM, "root/main/printinfo"	, ds_main_printinfo);		// 데이터셋 1
			var objParam = new Object();
			objParam.xml_data_XML1 	= objDOM.documentElement.source;			// 최상위노드 XML 스트링 추출
			var option 				= "open=1;save=1;directprint=1;print=1;zoom=1;show=1";
			rptf_exeReportPreview30(["RPPMI03401"],[objParam], option);		
        // 기간약정서
        } else {
//            exeReportPreview("RPPMI03402","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
			var objDOM = rptf_createDOM();	// DOM 객체 설정
			rptf_setNodeListToDOM(objDOM, "root/main/printinfo"	, ds_main_printinfo);		// 데이터셋 1
			var objParam = new Object();
			objParam.xml_data_XML1 	= objDOM.documentElement.source;			// 최상위노드 XML 스트링 추출
			var option 				= "open=1;save=1;directprint=1;print=1;zoom=1;show=1";
			rptf_exeReportPreview30(["RPPMI03402"],[objParam], option);		
        }
    } else {
        sysf_messageBox("스캔이 완료되었습니다. 재출력은 OCR반납화면에서 하시기 바랍니다.", "C000");
        return;
        /*
        // 혹시 의무기록 스캔 이후의 약정서를 출력해야 할 경우 아래의 처리 태우면 됨
        model.resetInstanceNode("/root/send/iemr");
        model.makeValue("/root/send/iemr/ocrcode", model.getValue("/root/send/agmtdesc/ocrtagno"));
        
        if((window.children.item("imgemrviewer") == null)
                && (model.getValue("/root/send/iemr/ocrcode") != "")) {
            window.load("../../../emr/imgemrweb/xrw/SSMRC03100.xrw", "modeless", "imgemrviewer", "", "/root/send/iemr", "/root/hidden/temp");
            window.children.item("imgemrviewer").document.title = "Image EMR Viewer";
        }
        */
    }
}

// 입원약정서 재출력 - 입원등록화면에서 재출력할 경우 사용
// function rePrintAgmtPid(pid, indd) {
//     
//     // 초기화
//     fInit();
//     
//     model.setValue("/root/send/cond/pid",       pid);
//     model.setValue("/root/send/cond/indd",      indd);
//     model.setValue("/root/send/cond/agmttype",  "1"); // 일반약정서
//     
//     // 약정서 조회
//     submit("TRPMI03201");
//     
//     // 약정서 데이터 설정
//     model.copyNode("/root/send/agmtdesc", "/root/main/agmtlist[1]");
//     
//     // 약정서가 없는 경우 관리화면으로 유도
//     if (isNull(model.getValue("/root/send/agmtdesc/ocrtagno"))) {
//         
//         messageBox("입원약정서가 재출력에 문제가 발생했습니다. 입원약정서관리화면에서 확인하세요.", "C000");
//         return;
//     } 
//     
//     // 일반약정서 출력용
//     model.setValue("/root/send/agmtdesc/agmttype", "1");
//     
//     // 약정서 재출력
//     fRePrintOcr();
// }

///////////////////////////////// SPPMI03200.xjs ////////////////////////////////////////]]></Script>