YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO16101_최대용량최대기간저함량처방사유입력(경북대).xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO16101" position="absolute 0 0 843 541" titletext="처방사유 입력" oninit="SPMMO16101_oninit" onload="SPMMO16101_onload">
    <Layouts>
      <Layout>
        <Static text="처방사유 입력" position="absolute 0 0 307 22" id="caption1" class="tit_2"/>
        <Static text="아래의 처방은 사유를 선택 또는 입력 하셔야 발행이 가능 합니다. 처방을 선택하면 구분에 맞는 사유가 조회 됩니다." position="absolute 130 0 843 20" id="caption4"/>
        <Static id="caption2" text="* 약물정보관련 문의(TEL." visible="false" position="absolute 0 520 265 540" style="color:#ff0000ff;"/>
        <Grid id="errlist1" taborder="1" binddataset="ds_result_prcperrlist" useinputpanel="false" position="absolute 0 21 843 291" autofittype="col" oncellclick="errlist1_oncellclick" onmousemove="errlist1_onmousemove">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="94"/>
                <Column size="80"/>
                <Column size="160"/>
                <Column size="220"/>
                <Column size="246"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="구분"/>
                <Cell col="2" text="처방코드"/>
                <Cell col="3" text="처방명"/>
                <Cell col="4" text="오류내용"/>
                <Cell col="5" text="처방사유"/>
              </Band>
              <Band id="body">
                <Cell text="bind:flag"/>
                <Cell col="1" displaytype="combo" edittype="combo" text="bind:exmkndcd"/>
                <Cell col="2" text="bind:prcpcd" combodataset="ds_combo_exmkndcd" combocodecol="value" combodatacol="label"/>
                <Cell col="3" text="bind:prcpnm"/>
                <Cell col="4" text="bind:prcperr" tooltiptype="mouse,mouseleave"/>
                <Cell col="5" text="bind:resncnt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption6" text="사유선택" class="tit_2" position="absolute 0 302 176 322"/>
        <Grid id="grd_resnlist" taborder="2" binddataset="ds_hardcd" useinputpanel="false" position="absolute 0 324 843 510" autofittype="col" oncelldblclick="grd_resnlist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="80"/>
                <Column size="751"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="코드"/>
                <Cell col="1" text="상세사유"/>
              </Band>
              <Band id="body">
                <Cell text="bind:hardcd"/>
                <Cell col="1" displaytype="text" edittype="text" text="bind:hardcdnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button2" taborder="3" text="사유적용" class="btn2" position="absolute 779 302 843 321" onclick="button2_onclick"/>
        <CheckBox id="bool_cond1" taborder="4" position="absolute 700 302 720 322"/>
        <Static id="caption3" text="일괄적용" position="absolute 720 302 780 322"/>
        <Button id="button1" taborder="5" text="계속저장" class="btn4" position="absolute 679 520 759 540" onclick="button1_onclick"/>
        <Button id="btn_cncl" taborder="6" text="처방취소" class="btn4" position="absolute 763 520 843 540" onclick="btn_cncl_onclick"/>
        <Static id="cpt_tooltip" text="처방전간 오류일시 오류내용 위에 마우스 커서를 두면 상대약품정보가 나옵니다!" visible="false" position="absolute 85 302 543 322" style="color:#ff0000ff;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_result_prcperrlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="delflag" type="STRING" size="256"/>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="errrow" type="STRING" size="256"/>
          <Column id="dcprcppkspec" type="STRING" size="256"/>
          <Column id="resncnt" type="STRING" size="256"/>
          <Column id="exmkndcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hardcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hardcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_hardcd_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="hardcd" type="STRING" size="256"/>
          <Column id="hardcdnm" type="STRING" size="256"/>
          <Column id="resncmt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_err2_prcperrlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_err1_prcperrlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_err3_prcperrlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_err4_prcperrlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_comresn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="resncd" type="STRING" size="256"/>
          <Column id="resncnt" type="STRING" size="256"/>
          <Column id="resncdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cond1" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cond1">Y</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_combo_exmkndcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">사유</Col>
          </Row>
          <Row>
            <Col id="label">처방전내병용금기</Col>
            <Col id="value">00</Col>
          </Row>
          <Row>
            <Col id="label">처방전내연령금기</Col>
            <Col id="value">01</Col>
          </Row>
          <Row>
            <Col id="label">처방전내안전성</Col>
            <Col id="value">02</Col>
          </Row>
          <Row>
            <Col id="label">처방전내최대용량</Col>
            <Col id="value">03</Col>
          </Row>
          <Row>
            <Col id="label">처방전내최대기간</Col>
            <Col id="value">04</Col>
          </Row>
          <Row>
            <Col id="label">처방전내저함량</Col>
            <Col id="value">05</Col>
          </Row>
          <Row>
            <Col id="label">처방전내임부금기</Col>
            <Col id="value">06</Col>
          </Row>
          <Row>
            <Col id="label">처방전간 병용금기</Col>
            <Col id="value">07</Col>
          </Row>
          <Row>
            <Col id="label">처방전간 성분별 중복처방</Col>
            <Col id="value">08</Col>
          </Row>
          <Row>
            <Col id="label">처방전내 치료중복</Col>
            <Col id="value">20</Col>
          </Row>
          <Row>
            <Col id="label">처방전간 치료중복</Col>
            <Col id="value">40</Col>
          </Row>
          <Row>
            <Col id="label">처방전내 2주 병용금기</Col>
            <Col id="value">21</Col>
          </Row>
          <Row>
            <Col id="label">처방전간 2주 병용금기</Col>
            <Col id="value">41</Col>
          </Row>
          <Row>
            <Col id="label">처방전내 1성분병용기간금기</Col>
            <Col id="value">22</Col>
          </Row>
          <Row>
            <Col id="label">처방전간 효능군중복</Col>
            <Col id="value">40</Col>
          </Row>
          <Row>
            <Col id="label">처방전간 1성분병용기간금기</Col>
            <Col id="value">42</Col>
          </Row>
          <Row>
            <Col id="label">처방전내 병용연령성별제한</Col>
            <Col id="value">23</Col>
          </Row>
          <Row>
            <Col id="label">처방전간 병용연령성별제한</Col>
            <Col id="value">43</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-02-16
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-02-16      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";

var cRow = "";

function SPMMO16101_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);  // 초기화
	
	
	ds_result_prcperrlist.copyData(arg_ds_result_prcperrlist);
	
	caption2.text = caption2.text + opener.ds_initsrch_callnoinfo.lookup("trgtcd", "pharmacy", "trgtcdnm");
}

function SPMMO16101_onload(obj:Form, e:LoadEventInfo)
{
	var flag = "";
	var exmkndcd = "";				
	var currow = 0;
	var cnt1 = 0;
	var cnt2 = 0;
	var cnt3 = 0;
	var listcnt = ds_err4_prcperrlist.rowcount;
	
	ds_err4_prcperrlist.addColumn("resncnt", "string");
	ds_err4_prcperrlist.addColumn("resncntcd", "string");
	
	dsf_copyColInfo(ds_err4_prcperrlist, ds_result_prcperrlist);
			
	for ( var i=0; i < ds_result_prcperrlist.rowcount; i++ ) {					
		currow = i + 1;
		flag = ds_result_prcperrlist.getColumn(i, "flag");
		if ( flag == "5" || flag == "6" || flag == "7"  || flag == "51" || flag == "52") {	
			var row = ds_err4_prcperrlist.addRow();
			ds_err4_prcperrlist.copyRow(row, ds_result_prcperrlist, i);
			
			cnt2++;
			listcnt++;
		}
		
		if ( flag == "4") {
			exmkndcd = ds_result_prcperrlist.getColumn(currow, "exmkndcd");
			
			if (exmkndcd == "08" || exmkndcd == "40") { // 처방전간 병용금기, 처방전간 효능군 중복
				var row = ds_err4_prcperrlist.addRow();
				ds_err4_prcperrlist.copyRow(row, ds_result_prcperrlist, i);	
				
				ds_err4_prcperrlist.setColumn(listcnt, "resncntcd", "X");
				ds_err4_prcperrlist.setColumn(listcnt, "resncnt", "정보제공(사유입력 불필요)");
				
				cnt2++;
				listcnt++;
			}
		}
	}	

	var srchLength1 = ds_err2_prcperrlist.rowcount;
	var srcNodeListMainLength = opener.ds_main_prcplist.rowcount;	
	var chkNewPrcp = 0;
	if ( srchLength1 > 0 ) {					
		for ( var i = 0; i < srchLength1; i++  ) {
			var prcpcd = ds_err4_prcperrlist.getColumn(i, "prcpcd");
			chkNewPrcp = 0;
			for ( var j=0; j < srcNodeListMainLength; j++ ) {
				if ( prcpcd == opener.ds_main_prcplist.getColumn (i, "prcpcd") ) {	
					chkNewPrcp++;
					break;
				}
			}
			if ( chkNewPrcp == 0  ) {
				ds_err4_prcperrlist.setColumn(i, "errrow", "X");
			}
		}
	}
	
	//CP 미래처방 저장 시, 취소 불가능하도록 처리
	var mainObj = frmf_getMainViewer();
	var curCpObj     = mainObj.frmf_findPopup("SMMMP00800"); //활성화된 CP Main 화면 object loading
	var cpSaveFlag = opener.frmf_getParameter("SMMMP00800_cpsaveflag");
		
	if( curCpObj != null && cpSaveFlag == "T" ){
		btn_cncl.enable = false;
	}
	
	//var dp_cnt = getNodesetCount("/root/result/prcperrlist[dphospdrnm !='']");
	var temp_cnt = ds_result_prcperrlist.rowcount;
	var dp_cnt = 0;
	for( var i = 0; i < temp_cnt; i++ ) {
		if( ds_result_prcperrlist.getColumn(i, "dphospdrnm") != '' ) {
			dp_cnt++;
		}
	}
	if(dp_cnt > 0) {cpt_tooltip.visible = true;}

}

function fSelectResn(idx) {
				
	var currow = ds_result_prcperrlist.rowposition;
	for ( var i = 0; i < grd_resnlist.rowcount; i++ ) {
		if ( i != currow ) {
			ds_hardcd.setColumn(i, "status", "N" );
		} else {
			ds_hardcd.setColumn(i, "status", "Y" );
		}
	}								
	
	var resncnts 	= "instcd|pid|orddd|cretno|ordtype|orddeptcd|prcpdd|prcpno|prcphistno|resnflag|resncd|resncnts^" ;
	var pid				= opener.ds_paminfo.getColumn(0, "pid");
	var prcpgenrflag	= opener.ds_paminfo.getColumn(0, "prcpgenrflag");
	
	var orddd = "";
	if ( prcpgenrflag == "O" ) {
		orddd = opener.ds_paminfo.getColumn(0, "orddd");
	} else {
		orddd = opener.ds_paminfo.getColumn(0, "indd");
		
	}
	var cretno		= opener.ds_paminfo.getColumn(0, "cretno");
	var orddeptcd		= opener.ds_paminfo.getColumn(0, "orddeptcd");
	
	var chkresncnts = "-";
	var chkresnflag = "";
	
	var flag = ds_err4_prcperrlist.getColumn(idx, "flag");
	
	if( flag == "5") { //최대용량
		chkresnflag = "K";	
	}else if(flag == "6"){	//최대기간							
		chkresnflag = "L";
	}else if(flag == "7"){ //저함량
		chkresnflag = "H";
	}
	
	var chkresncd = ds_err4_prcperrlist.getColumn(idx, "resncntcd");
	var chkresncnt = ds_err4_prcperrlist.getColumn(idx, "resncnt");

	var instcd 		= sysf_getUserInfo("dutplceinstcd") ;
	resncnts =  resncnts +  instcd + "|"  + pid + "|" + orddd + "|" + cretno + "|" +  prcpgenrflag +  "|" + orddeptcd  + "|-|0|0|"+chkresnflag+"|" + chkresncd + "|" + chkresncnt + "^" ;

	ds_comresn.setColumn(0, "resncd", chkresncd);
	ds_comresn.setColumn(0, "resncnt", resncnts);
	ds_comresn.setColumn(0, "resncdnm", chkresncnt);	
	
}

function fClick_resnlist() {
	
	if(utlf_isNull(cRow)){
		sysf_messageBox ( "선택 된 사유가 없습니다.\n\n처방을 클릭 하면 아래에 사유 항목이 조회 됩니다." , "I" );
		return;
	}
	
	var resncntcd = ds_hardcd.getColumn(ds_hardcd.rowposition, "hardcd");
	var resncntnm = ds_hardcd.getColumn(ds_hardcd.rowposition, "hardcdnm");
	var resnrow   = ds_hardcd.rowposition;
	
	if(resncntcd == "E") {
		ds_err4_prcperrlist.getColumn(cRow, "resncntcd", resncntcd);
		errlist1.setCellPos( errlist1.getBindCellIndex("body", "resncnt") );
		errlist1.setCellProperty('body', errlist1.getBindCellIndex("body", "resncnt"), 'edittype', 'text');
		//errlist1.colDisabled(errlist1.colRef("resncnt")) =  false;
	} else {
		if(ds_init.getColumn(0, "cond1") == "Y") { // 일괄 적용이면
			var checkLength     	= ds_err4_prcperrlist.rowcount;
			var selectFlag  		= ds_err4_prcperrlist.getColumn(cRow, "flag");    // 처방사유구분
			var selectKind  		= ds_err4_prcperrlist.getColumn(cRow, "exmkndcd");	//체크항목구분
			var checkFlag  		= "";
			var checkKind  		= "";
			
			for ( var i= 0; i<checkLength; i++ ) {
				checkFlag = ds_err4_prcperrlist.getColumn(i, "flag");	
 				checkKind = ds_err4_prcperrlist.getColumn(i, "exmkndcd");	

				if (checkFlag == "4") { // 정보제공 사유 입력 불필요
					continue;
				} else if(checkFlag == "5") {
					if(selectFlag == checkFlag && selectKind == checkKind) {
						ds_err4_prcperrlist.setColumn(i, "resncntcd", resncntcd);
						ds_err4_prcperrlist.setColumn(i, "resncnt", resncntnm);
						fSelectResn(resnrow);
					}
				} else {
					if(selectFlag == checkFlag) {
						ds_err4_prcperrlist.setColumn(i, "resncntcd", resncntcd);
						ds_err4_prcperrlist.setColumn(i, "resncnt", resncntnm);
						fSelectResn(resnrow);
					}
				}
			}
		} else {
			ds_err4_prcperrlist.setColumn(cRow, "resncntcd", resncntcd);
						ds_err4_prcperrlist.setColumn(cRow, "resncnt", resncntnm);
	
			fSelectResn(resnrow);
		}		
	}
}

function errlist1_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if (e.row > -1) {
		cRow = ds_err1_prcperrlist.rowposition;
		var flag = ds_err4_prcperrlist.getColumn(ds_err1_prcperrlist.rowposition, "flag");
		
		if( flag == "5") {
			var exmkndcd = ds_err4_prcperrlist.getColumn(ds_err1_prcperrlist.rowposition, "exmkndcd"); 
			if (exmkndcd == "00" ) {
				ds_send.setColumn(0,"hardcd", "411");	//처방전간 DUR 병용금기 사유항목
			} else if (exmkndcd == "01" ) {
				ds_send.setColumn(0,"hardcd", "412");	//처방전간 DUR 연령금기 사유항목 
			} else if (exmkndcd == "05" ) {
				ds_send.setColumn(0,"hardcd", "413");	//처방전간 DUR 저함량 사유항목
			} else if (exmkndcd == "06" ) {
				ds_send.setColumn(0,"hardcd", "414");	//처방전간 DUR 임부금기 사유항목
			} else {
				ds_send.setColumn(0,"hardcd", "405");	// 처방전간 DUR 기본 사유항목
			}	
		}else if(flag == "6"){								
			ds_send.setColumn(0,"hardcd", "405");		//최대기간 사유항목	
		}else if(flag == "7"){
			ds_send.setColumn(0,"hardcd", "405"); 		//저함량 사유항목
		}else if(flag == "51"){
			ds_send.setColumn(0,"hardcd", "406"); 		//처방전간 병용금기 사유항목		
		}else if(flag == "52"){
			ds_send.setColumn(0,"hardcd", "407"); 		//처방전간 중복성분 사유항목	
		} else {
			return;
		}
		
		var oParam = {};
		oParam.id          = "TRMMB16401";
		oParam.service     = "prcpbaseapp.EnvInfoMngt";
		oParam.method      = "reqGetHardCodeCD";
		oParam.inds        = "req=ds_send"
		oParam.outds       = "ds_hardcd=hardcd";
		oParam.async       = false;

		tranf_submit(oParam);
		
}

function grd_resnlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if (e.row > -1 ) {
		fClick_resnlist();
	}
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if(cRow != -1 && grd_resnlist.row != -1) {
		fClick_resnlist();
	}else{
		sysf_messageBox ( "선택된 사유가 없습니다." , "I" );
	}
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var srchLength1 = ds_err4_prcperrlist.rowcount;
	var delcnt = 0;
	var resncnt = 0;

	if ( srchLength1 > 0 ) {					
		for ( var i = 0; i < srchLength1; i++  ) {
			if ( ds_err4_prcperrlist.getColumn(i, "delflag") == "Y" ) {
				delcnt++;
			}
	
			if ( ds_err4_prcperrlist.getColumn(i, "delflag") != "Y" && ds_err4_prcperrlist.getColumn(i, "resncnt") == "" ) {
				resncnt++;
			}
			
			if ( ds_err4_prcperrlist.getColumn(i, "delflag") != "Y"  && ds_err4_prcperrlist.getColumn(i, "resncnt") == "-" ) {
				resncnt++;
			}
			
			if ( ds_err4_prcperrlist.getColumn(i, "delflag") != "Y"  && ds_err4_prcperrlist.getColumn(i, "resncnt") == "(이곳에 사유입력을 하세요)" ) {
				resncnt++;
			}						
		}						

		if ( srchLength1 != delcnt  && resncnt > 0) {					
			sysf_messageBox ( "처방사유를", "C001" );
			return;
		}					
	}	

	var srcNodeListMainLength = opener.ds_main_prcplist.rowcount;

	var prcpcd = "";				
	for (var i = 0; i < srcNodeListMainLength; i++) {
		prcpcd = opener.ds_main_prcplist.getColumn(i, "prcpcd"); 
		for (var j = 0; j < srchLength1; j++) {
			if ( prcpcd == ds_err4_prcperrlist.getColumn(j, "prcpcd")) {
				if ( ds_err4_prcperrlist.getColumn(j, "delflag") == "Y" ) {
					opener.ds_main_prcplist.setColumn(i, "tempcol6", "D");
					delcnt++;
				} else {						
					fSelectResn(j);
					opener.ds_main_prcplist(i, "tempcol19", ds_comresn.getColumn(0, "resncnt"));
					opener.ds_result_savedrprcplist(i, "tempcol19", ds_comresn.getColumn(0, "resncnt"));		
				}
			}
		}
	}	
	//심평원 DUR 적용 20120101 오류팝업 사유를 심평원 DUR파라미터인 결과전문에 셋팅
	var rsrt_cnt = opener.ds_result_kdurchkrslt.rowcount;

	var err_cnt =  ds_err4_prcperrlist.rowcount;
	if (rsrt_cnt > 0 && err_cnt > 0) {		

		for (var a = 0; a < rsrt_cnt; a++) {
			
			var rslt_prcpcd         = opener.ds_result_kdurchkrslt.getColumn(a, "rslt_prcpcd"); 
			var rslt_exm_knd_cd = opener.ds_result_kdurchkrslt.getColumn(a, "rslt_exm_knd_cd"); 
			for (var b = 0; b < err_cnt; b++) {
				
				var err_prcpcd      = ds_err4_prcperrlist.getColumn(b, "prcpcd"); 
				var err_exmkndcd = ds_err4_prcperrlist.getColumn(b, "exmkndcd"); 
				
				if(rslt_prcpcd == err_prcpcd && rslt_exm_knd_cd == err_exmkndcd) {
					opener.ds_result_kdurchkrslt.setColumn(a, "rslt_rs_cd", ds_err4_prcperrlist.getColumn(b, "resncntcd"));
					opener.ds_result_kdurchkrslt.setColumn(a, "rslt_rs_txt", ds_err4_prcperrlist.getColumn(b, "resncnt"));						
				}
			}
		}
	}

	if ( delcnt > 0  ) {					
		opener.fDeleteRow ( "noselect" );	
		opener.frmf_setParameter ( "SPMMO16101_rtn2", "D" );
	}	
	opener.frmf_setParameter ( "SPMMO16101_rtn1", "Y" );
	close(); 
}

function btn_cncl_onclick(obj:Button,  e:ClickEventInfo)
{	
	opener.frmf_setParameter("SPMMO16101_rtn1", "N");
	close();
}


function errlist1_onmousemove(obj:Grid, e:GridMouseEventInfo)
{	
	var temp_cnt = ds_result_prcperrlist.rowcount;
	var dp_cnt = 0;
	for( var i = 0; i < temp_cnt; i++ ) {
		if( ds_result_prcperrlist.getColumn(i, "dphospdrnm") != '' ) {
			dp_cnt++;
		}
	}
		
	if(dp_cnt > 0){
		if (e.col == 4) {

			var tip_dphospnm    	= ds_result_prcperrlist.getColumn(e.row, "dphospnm");
			var tip_dphosptel     	= ds_result_prcperrlist.getColumn(e.row, "dphosptel");
			var tip_dphospdrnm 		= ds_result_prcperrlist.getColumn(e.row, "dphospdrnm"); 

			var tip_dpprmcnm    	= ds_result_prcperrlist.getColumn(e.row, "dpprmcnm"); 
			var tip_dpprmctel     	= ds_result_prcperrlist.getColumn(e.row, "dpprmctel"); 
			var tip_dpprmcpnm  		= ds_result_prcperrlist.getColumn(e.row, "dpprmcpnm");  
			
			var tip_dphospdd        = ds_result_prcperrlist.getColumn(e.row, "dphospdd"); 
			var tip_dphospprcpnm    = ds_result_prcperrlist.getColumn(e.row, "dphospprcpnm");
			var tip_dphospqty       = ds_result_prcperrlist.getColumn(e.row, "dphospqty");  
			
			errlist1.tooltiptext = "■ 다른 처방전 정보 ■\n" 
									+ tip_dphospnm + " " + tip_dphosptel + " " + tip_dphospdrnm + '\n'
									+ tip_dpprmcnm + " " + tip_dpprmctel + " " + tip_dpprmcpnm + '\n'
									+ tip_dphospdd + " " + tip_dphospprcpnm + " " + tip_dphospqty;
							
		}
	}
}]]></Script>
  </Form>
</FDL>