YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO09100_환자수진정보조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO09100" position="absolute 0 0 796 208" titletext="환자진료정보" oninit="SPMMO09100_oninit" onload="SPMMO09100_onload">
    <Layouts>
      <Layout>
        <Grid position="absolute 0 0 796 182" id="datagrid1" oncelldblclick="datagrid1_oncelldblclick" binddataset="ds_patordinfolist" cellsizingtype="col" anchor="all" autofittype="col" selecttype="multirow">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="75"/>
                <Column size="80"/>
                <Column size="60"/>
                <Column size="74"/>
                <Column size="31"/>
                <Column size="30"/>
                <Column size="0"/>
                <Column size="92"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="71"/>
                <Column size="0"/>
                <Column size="57"/>
                <Column size="0"/>
                <Column size="64"/>
                <Column size="67"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="환자번호"/>
                <Cell col="1" text="이름"/>
                <Cell col="2" text="진료구분"/>
                <Cell col="3" text="내원일"/>
                <Cell col="4" colspan="2" text="성별/나이"/>
                <Cell col="6" text="orddeptcd"/>
                <Cell col="7" text="진료과"/>
                <Cell col="8" text="instcd"/>
                <Cell col="9" text="cretno"/>
                <Cell col="10" text="insukind"/>
                <Cell col="11" text="suppkind"/>
                <Cell col="12" text="orddrid"/>
                <Cell col="13" text="담당교수"/>
                <Cell col="14" text="병실"/>
                <Cell col="15" text="caption1"/>
                <Cell col="16" text="퇴원구분"/>
                <Cell col="17" text="보험유형코드"/>
                <Cell col="18" text="보험유형"/>
                <Cell col="19" text="예약구분"/>
                <Cell col="20" text="퇴직유무"/>
                <Cell col="21" text="특진유무"/>
              </Band>
              <Band id="body">
                <Cell style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:pid"/>
                <Cell col="1" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:hngnm"/>
                <Cell col="2" displaytype="combo" edittype="none" style="align:center middle;background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:ioflag" combodataset="ds_ioflag" combocodecol="value" combodatacol="label"/>
                <Cell col="3" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:orddd" mask="####-##-##"/>
                <Cell col="4" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:sex"/>
                <Cell col="5" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:age"/>
                <Cell col="6" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:orddeptcd"/>
                <Cell col="7" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:orddeptnm"/>
                <Cell col="8" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:instcd"/>
                <Cell col="9" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:cretno"/>
                <Cell col="10" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:insukind"/>
                <Cell col="11" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:suppkind"/>
                <Cell col="12" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:orddrid"/>
                <Cell col="13" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="expr:expr:bind:orddrnm + ((drvalidyn == &quot;N&quot;) ? &quot;(퇴직)&quot; : ((drvalidyn == &quot;H&quot;) ? &quot;(휴진)&quot; : &quot;&quot;))"/>
                <Cell col="14" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:roomcd"/>
                <Cell col="15" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:dschdd"/>
                <Cell col="16" displaytype="combo" edittype="none" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:indschacptstat" combodataset="ds_P0019" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="17" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:insukindcd"/>
                <Cell col="18" displaytype="text" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:insukind"/>
                <Cell col="19" displaytype="combo" edittype="none" style="align:center middle;background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:rsrvflag" combodataset="ds_P0341" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="20" displaytype="combo" edittype="none" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:drvalidyn" combodataset="ds_drvalid" combocodecol="value" combodatacol="label"/>
                <Cell col="21" displaytype="combo" edittype="none" style="background:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));background2:EXPR(fCellColor(indschacptstat, drvalidyn, orddrnm));" text="bind:specordyn" combodataset="ds_specord" combocodecol="value" combodatacol="label"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <CheckBox position="absolute 510 187 555 207" id="checkbox1" text="전체" onchanged="checkbox1_onchanged" anchor="right bottom"/>
        <Button position="absolute 566 186 670 208" id="button3" class="btn4" text="과거처방D/C" onclick="button3_onclick" anchor="right bottom"/>
        <Button position="absolute 673 186 729 208" id="button1" class="btn4" text="확인" onclick="button1_onclick" anchor="right bottom"/>
        <Button position="absolute 733 186 789 208" id="button2" class="btn4" text="취소" onclick="button2_onclick" anchor="right bottom"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_patordinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="ioflag" type="STRING"/>
          <Column id="orddd" type="STRING"/>
          <Column id="sex" type="STRING"/>
          <Column id="age" type="STRING"/>
          <Column id="orddeptcd" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="instcd" type="STRING"/>
          <Column id="cretno" type="STRING"/>
          <Column id="insukind" type="STRING"/>
          <Column id="suppkind" type="STRING"/>
          <Column id="orddrid" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="roomcd" type="STRING"/>
          <Column id="dschdd" type="STRING"/>
          <Column id="indschacptstat" type="STRING"/>
          <Column id="insukindcd" type="STRING"/>
          <Column id="insukind" type="STRING"/>
          <Column id="rsrvflag" type="STRING"/>
          <Column id="drvalidyn" type="STRING"/>
          <Column id="specordyn" type="STRING"/>
          <Column id="holiinfo" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cond" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_ioflag" 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>
            <Col id="value">I</Col>
          </Row>
          <Row>
            <Col id="label">외래</Col>
            <Col id="value">O</Col>
          </Row>
          <Row>
            <Col id="label">응급</Col>
            <Col id="value">E</Col>
          </Row>
          <Row>
            <Col id="label">건강검진</Col>
            <Col id="value">S</Col>
          </Row>
          <Row>
            <Col id="label">DSC</Col>
            <Col id="value">D</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_drvalid" 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>
            <Col id="value">N</Col>
          </Row>
          <Row>
            <Col id="label">근무</Col>
            <Col id="value">Y</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_specord" 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>
            <Col id="value">Y</Col>
          </Row>
          <Row>
            <Col id="label">일반진료</Col>
            <Col id="value">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_patordinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_subpatordinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="checkbox1" propid="value" datasetid="ds_cond" columnid="cond"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-08-29
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-08-29      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs"

function SPMMO09100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	
	ds_patordinfolist.copyData(arg_ds_patordinfolist);	// opener에서 넘긴 arg	
}

function SPMMO09100_onload(obj:Form, e:LoadEventInfo)
{
	// 2008.11.20 
	ds_temp_patordinfo.copyData(ds_patordinfolist); //전체 
	//ds_temp_patordinfo.filter("orddeptcd == '" + sysf_getUserInfo("dutplcecd")+"'");
	ds_temp_subpatordinfo.copyData(ds_temp_patordinfo, true); //로그인과
	ds_temp_patordinfo.filter("");
	ds_patordinfolist.copyData(ds_temp_subpatordinfo);
	
	appf_getCodeList([{dsNm: "ds_P0019", cdGrpId: "P0019"},
					  {dsNm: "ds_P0341", cdGrpId: "P0341"}], true);	

	ds_patordinfolist.keystring.current = "S:-orddd";
	ds_patordinfolist.rowposition = -1;
	datagrid1.vscrollbar.pos = -1;
}

function datagrid1_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0){
		return;
	}				
	fSelPatInfo() ;
}

function checkbox1_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	var row = ds_patordinfolist.rowposition;
	
	var cond = ds_cond.getColumn(0, "cond");
	if(cond == "T") {
		ds_patordinfolist.copyData(ds_temp_patordinfo);		
	} else {
		ds_patordinfolist.copyData(ds_temp_subpatordinfo);		
	}
	ds_patordinfolist.keystring.current = "S:-orddd";
	ds_patordinfolist.rowposition = row;
}

function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	var currow = ds_patordinfolist.rowposition;
	
	if(currow < 0){
		return;
	}
	
	var indschacptstat = ds_patordinfolist.getColumn(currow, "indschacptstat"); 
	if ( indschacptstat == "T"  ) { 
		var sDutPlceCd = sysf_getUserInfo("dutplcecd");
		if (sDutPlceCd == "4072000000" || sDutPlceCd == "4070700000" ) { // 심사실에서 가퇴원 환자 과거처방DC 사용 불가 처리  2012.12.17 엄영만
			sysf_messageBox("가퇴원 이력은 과거처방 D/C 불가합니다.\n확인버튼을 이용하여 누락처방 사유를 반드시 입력 후 진행 하십시오.", "E999");
			return
		} 
	}
	
	//fSetTopPatInfo(); // 상단정보 셋팅 2014.06.09 시행부서 처방화면에서 처리 하는것으로 변경

	opener.frmf_setParameter ( "SPMMO09100_rtnyn", 			"Y");
	opener.frmf_setParameter ( "SPMMO09100_pid",          	ds_patordinfolist.getColumn(currow, "pid"));
	opener.frmf_setParameter ( "SPMMO09100_orddd", 			ds_patordinfolist.getColumn(currow, "orddd"));
	opener.frmf_setParameter ( "SPMMO09100_cretno", 		ds_patordinfolist.getColumn(currow, "cretno"));
	opener.frmf_setParameter ( "SPMMO09100_instcd", 		ds_patordinfolist.getColumn(currow, "instcd"));
	opener.frmf_setParameter ( "SPMMO09100_ioflag", 		ds_patordinfolist.getColumn(currow, "ioflag"));
	opener.frmf_setParameter ( "SPMMO09100_indschacptstat", ds_patordinfolist.getColumn(currow, "indschacptstat"));					
	opener.frmf_setParameter ( "SPMMO09100_orddeptcd", 		ds_patordinfolist.getColumn(currow, "orddeptcd"));	
	opener.frmf_setParameter ( "SPMMO09100_orddrid", 		ds_patordinfolist.getColumn(currow, "orddrid"));	
	opener.frmf_setParameter ( "SPMMO09100_dschdd", 		ds_patordinfolist.getColumn(currow, "dschdd"));									
	opener.frmf_setParameter ( "SPMMO09100_srchdd", 		ds_patordinfolist.getColumn(currow, "orddd"));
	opener.frmf_setParameter ( "SPMMO09100_drvalidyn", 		ds_patordinfolist.getColumn(currow, "drvalidyn"));
	opener.frmf_setParameter ( "SPMMO09100_dc", 			"DC");	

	var rtnparam = dsf_getDsCSV(ds_patordinfolist, currow);
	opener.frmf_setParameter("SPMMO09100_rtn_param", rtnparam);					
	close();
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_patordinfolist.rowposition < 0){
		alert("선택된 리스트가 없습니다. 리스트 선택 후 진행해주세요.");
		return;
	}
	fSelPatInfo();
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	// 구 인스턴스 초기화
	//model.resetInstanceNode("/root/formerkey"); // 의미 없는듯 한데
	close(); 
}

function fCellColor(indschacptstat, drvalidyn, orddrnm) {
	var color = "default";
	
	if(indschacptstat == "A" || indschacptstat == "T"){ 
		// cccfff - 연한녹색 , ff0000 - 빨간
		color = "#ccffff";
	} 
	
	if (drvalidyn == "N") { // 퇴사
		color = "#ff0000";						
	} else if (drvalidyn == "H") { // 휴직
		color = "#ffbb00";						
	}
	
	return color;
}

function fSelPatInfo() {
	var currow    = ds_patordinfolist.rowposition;
	var paminfoyn = opener.frmf_getParameter ( "SPMMO09100_paminfoyn");	
	var admininfo = "";
	try {
		admininfo = opener.ds_root.getColumn(0, "admininfo");
	} catch(E) {
	}
	var drvalidyn = ds_patordinfolist.getColumn(currow, "drvalidyn");
	
	// 2014.06.09 시행부서 처방화면에서 설정 하도록 수정. 엄영만
	//if (paminfoyn=="Y"){
	//	fSetTopPatInfo();
	//}else if ( paminfoyn==""){
	//	var sDutPlceCd = getUserInfo("dutplcecd");
	//	if (sDutPlceCd != "4072000000" && sDutPlceCd != "4070700000" ) { // 심사실에서 가퇴원 환자 선택시 상단 정보 삭제 되지 않도록 처리  2013.09.25 엄영만
	//		delPatientInfos(); 
	//	}
	//}
	
	if (admininfo.substring(0, 6) != "YYYYYY") {
		// 진료의가 퇴직한 경우, 대진의사 지정 모달창 처리. 2010-07-21 추가.
		if ( drvalidyn == "N" ) {			// 테스트 후 "N" 으로 변경적용 해야함.				
			// 퇴직의사선택 알림창 처리
			var rtrnVar = sysf_messageBox("퇴직의사의 수진으로 시행부서 처방 발행이 불가합니다. 새로운 접수이력을", "Q014");
			if ( rtrnVar == "6" ) {
				// 호출함수에서 대진의사를 선택하게 하고, 선택된 대진의사ID를 설정한다.
				if(!fchoseNewDr(currow)) {
					return;
				}
			} else {
				return;
			}
		} else if (drvalidyn == "H") { // 휴진의사
			var holiinfo = ds_patordinfolist.getColumn(currow, "holiinfo"); 
			var rtrnVar = sysf_messageBox("선택된 예약의 담당교수는 현재 휴진으로 등록되어 있습니다.\n\n휴진정보\n"+ holiinfo +"\n\n다른 의사로 접수를 등록 하시려면 예(Y), \n현재 의사로 계속 진행하시려면 아니오(N)을 선택하세요.", "Q999");
			if ( rtrnVar == "6" ) {
				if(!fchoseNewDr(currow)) {
					return;
				}
			}
		}
	} 
	
	var indschacptstat = ds_patordinfolist.getColumn(currow, "indschacptstat"); 
	if ( indschacptstat == "T"  ) { 
		var jobkindcd = sysf_getUserInfo("jobkindcd"); 
		
		// jobkindcd가 0330, 0332인 경우 의사 
		if ( jobkindcd == "0330" || jobkindcd == "0332") { 
			admininfo = "YYYYYYNNNNNNNNNNNNNN"; 
			//opener.ds_root.setColumn(0, "admininfo", admininfo);
		} 

		var adminflag = admininfo.substring(0,6);
		
		if (adminflag != "YYYYYY"){
			alert(" 누락처방 입력은 Admin 권한자만 가능합니다. Admin 권한으로 재시도 해주세요."); 
		} else {
			var mon = sysf_getCurrentMonitorNumber();
			var xpt = this.getOwnerFrame().position.x + 100;
			var ypt = this.getOwnerFrame().position.y + 50;
			
			frmf_clearParameter ( "SPMMO16400_rtn1" ); 
			frmf_clearParameter ( "SPMMO16800_rtn1" );
			
			var objArg = new Object();
			//objArg.arg_ds_result = ds_result;	// 의미 없는듯
			
			frmf_modal("SPMMO16800", "SPMMO16800", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
			
			var SPMMO16800_rtn1 = sysf_getGlobalVariable("SPMMO16800_rtn1"); 
			if ( SPMMO16800_rtn1 == "N" ){ 
				return ; 
			} 
		} 
	} 
	
	opener.frmf_setParameter ( "SPMMO09100_rtnyn", 					"Y");
	opener.frmf_setParameter ( "SPMMO09100_pid", 			ds_patordinfolist.getColumn(currow, "pid"));
	opener.frmf_setParameter ( "SPMMO09100_orddd", 			ds_patordinfolist.getColumn(currow, "orddd"));
	opener.frmf_setParameter ( "SPMMO09100_cretno", 		ds_patordinfolist.getColumn(currow, "cretno"));
	opener.frmf_setParameter ( "SPMMO09100_instcd", 		ds_patordinfolist.getColumn(currow, "instcd"));
	opener.frmf_setParameter ( "SPMMO09100_ioflag", 		ds_patordinfolist.getColumn(currow, "ioflag"));
	opener.frmf_setParameter ( "SPMMO09100_indschacptstat", ds_patordinfolist.getColumn(currow, "indschacptstat"));					
	opener.frmf_setParameter ( "SPMMO09100_orddeptcd", 		ds_patordinfolist.getColumn(currow, "orddeptcd"));	
	opener.frmf_setParameter ( "SPMMO09100_orddrid", 		ds_patordinfolist.getColumn(currow, "orddrid"));	
	opener.frmf_setParameter ( "SPMMO09100_dschdd", 		ds_patordinfolist.getColumn(currow, "dschdd"));									
	opener.frmf_setParameter ( "SPMMO09100_insukind", 		ds_patordinfolist.getColumn(currow, "insukindcd"));									
	opener.frmf_setParameter ( "SPMMO09100_suppkind", 		ds_patordinfolist.getColumn(currow, "suppkind"));									
	opener.frmf_setParameter ( "SPMMO09100_srchdd", 		ds_patordinfolist.getColumn(currow, "orddd"));									
	opener.frmf_setParameter ( "SPMMO09100_drvalidyn", 		ds_patordinfolist.getColumn(currow, "drvalidyn"));
	
	var rtnparam = dsf_getDsCSV(ds_patordinfolist, currow);
	opener.frmf_setParameter("SPMMO09100_rtn_param", rtnparam);
	
	close(); 
}

// 2010-07-21. 대진의사선택 모달창 ( SMMMO00200.js 쪽으로 이동시켜야 함 )
function fchoseNewDr(curRow) {
	bRtn = false;
	
	frmf_clearParameter("SPMMB04200_orddeptcd");
	frmf_clearParameter("SPMMB04200_orddrid");
	frmf_clearParameter("SPMMB04200_specordyn");
	frmf_clearParameter("SPMMB04200_rtrnyn");
	
	var orddeptcd = ds_patordinfolist.getColumn(curRow, "orddeptcd");
	var specordyn = ds_patordinfolist.getColumn(curRow, "specordyn");		// 특진의사 유무
	frmf_setParameter("SPMMB04200_orddeptcd", orddeptcd);
	frmf_setParameter("SPMMB04200_specordyn", specordyn);
	frmf_setParameter("SPMMB04200_rtrnyn", "N");
	
	frmf_modal("SPMMB04200", "SPMMB04200", null, null, null, null, null, null, null, null, null, null, "P");
	
	var neworddrid = frmf_getParameter("SPMMB04200_orddrid");
	if ( frmf_getParameter("SPMMB04200_rtrnyn") == "Y" && !utlf_isNull(neworddrid) ) {
		// 선택한 수진정보의 진료의 아이디를 변경 처리 한다.
		ds_patordinfolist.setColumn(curRow, "orddrid", neworddrid);
		bRtn = true;
	}
	
	return bRtn;
}]]></Script>
  </Form>
</FDL>