YNU_JEUS/app_home/himed/xpapps/lis/plgyacptmngtxp/xp/SPLPJ01200_분자검사의뢰지.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLPJ01200" position="absolute 0 0 975 585" titletext="분자검사 의뢰지" onload="SPLPJ01200_onload">
    <Layouts>
      <Layout>
        <Static id="Static00" class="sta_DA_box" position="absolute 528 18 973 48"/>
        <Static id="Static03" class="sta_DA_box" position="absolute 0 74 522 105"/>
        <Static id="caption1" text="대표검체 및 처방정보" class="tit_2" position="absolute 0 0 160 17"/>
        <Static id="Static01" class="sta_DA_box" position="absolute 0 18 524 49"/>
        <Static id="caption3" text="대표검체" class="cell_1" position="absolute 1 22 81 46" style="align:center middle;"/>
        <Combo id="cmb_reprspccd" taborder="0" class="combo_essential" position="absolute 84 24 249 44" inputmode="lower" type="filter" innerdataset="@ds_init_reprspclist" datacolumn="spcnm" codecolumn="spccd"/>
        <Edit id="output1" taborder="8" readonly="true" position="absolute 333 24 522 44" class="output"/>
        <Static id="caption8" text="인종/민족" class="tit_2" position="absolute 0 56 146 74"/>
        <Static id="caption9" text="인종/민족" class="cell_1" position="absolute 1 78 81 102" style="align:center middle;"/>
        <Combo id="cmb_humspe" taborder="1" class="combo_essential" position="absolute 84 80 249 100" onitemchanged="cmb_humspe_onitemchanged" index="-1" value="null"/>
        <Edit id="ipt_humspe" taborder="9" position="absolute 252 80 517 100" enable="false"/>
        <Static id="caption5" text="임상정보 및 기록사항" class="tit_2" position="absolute 0 115 170 131"/>
        <TextArea id="textarea1" taborder="3" position="absolute 0 133 522 321" wordwrap="word"/>
        <Static id="caption6" class="tit_2" position="absolute 528 0 698 20" text="가족력"/>
        <Radio id="rdo_famyhist" taborder="2" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 532 24 674 44" value="1" index="1">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">0</Col>
                <Col id="datacolumn">유</Col>
              </Row>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">무</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">모름</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Button id="btn_exit111" taborder="11" text="닫기" class="btn4" position="absolute 919 565 973 585" visible="true" onclick="btn_exit111_onclick" anchor="default"/>
        <Button id="btn_save" taborder="6" text="확인" class="btn4" position="absolute 849 565 909 585" onclick="btn_save_onclick"/>
        <Button id="btn_sytsrsltref" taborder="13" text="통합결과조회" class="btn3" position="absolute 0 565 108 585" onclick="btn_sytsrsltref_onclick"/>
        <Static id="caption02" text="주의사항" class="tit_2" position="absolute 528 56 973 76"/>
        <TextArea id="tar_cau" taborder="4" position="absolute 528 74 973 561" wordwrap="word" value="1. 병리과 분자병리 검사 중 인간 유전자에 대한 검사를 시행할 시에는 유전자&#13;&#10;    검사 동의서가 필요하며 유전자검사 동의서가 없이는 검사 진행이 불가&#13;&#10;    하므로 반드시 작성해서 검체와 바코드, 유전자검사 동의서를 병리과에 &#13;&#10;    접수하여 주십시요. 이미 채취되어 파라핀 포매된 검체에 대해 처방하실 &#13;&#10;    경우에도 바코드와 유전자검사 동의서를 함께 동봉하여 병리과로 접수하여&#13;&#10;    주십시요. 유전자검사 동의서는 병리과에서 복사 후 다시 의무기록실로 &#13;&#10;    우송됩니다.&#13;&#10;2. 인간유전자 이외에 대한 분자병리검사와 ATP 기반 항암제 감수성 검사는 &#13;&#10;    유전자검사 동의서를 작성하지 않습니다.&#13;&#10;3. ATP 기반 항암제 감수성 검사를 제외한 나머지 분자병리 검사는 파라핀 &#13;&#10;    포매 조직에서 검사가 가능하므로 다른 병리 처방과 마찬가지로 해당 조직&#13;&#10;    검사번호를 지정한 후 처방을 저장하시면 됩니다. 하지만 ATP 기반 항암제 &#13;&#10;    감수성 검사는 신선조직을 이용한 검사이므로 수술 시에 검사용 신선 &#13;&#10;    검체를 채취 해야 하므로 검사를 시행할 검체를 바코드 및 유전자 검사 &#13;&#10;    동의서를 동봉해 즉시 병리과에 접수시켜 주십시요.&#13;&#10;4. 조직을 이용한 Tb PCR의 경우 파라핀 포매 조직에서 시행하는 검사이므로 &#13;&#10;    반드시 PMO11005로 처방해야 합니다.&#13;&#10;5. 조직을 이용한 HPV DNA chip 검사의 경우 파라핀 포매 조직에서 시행하는 &#13;&#10;    검사이므로 반드시 PMO03004로 처방해야 합니다.&#13;&#10;6. 항암제 반응예측에 이용되는 유전자 돌연변이 염기서열검사 및 ATP 기반 &#13;&#10;    항암제 감수성 검사 및 등은 외부 위탁 과정을 거처 결과를 보고받으므로 &#13;&#10;    결과는 접수 후 10~15일 정도 소요됩니다.&#13;&#10;7. 검사를 의뢰하시기 전 문의사항이 있을 시에는 반드시 병리과 분자병리부로&#13;&#10;    전화를 주셔서 검사 내용에 관한 확인을 하시기 바랍니다." style="linespace:3;"/>
        <Static id="caption07" text="관련병리번호" class="tit_2" position="absolute 0 327 100 347"/>
        <Static id="caption4" text="처방명" class="cell_1" position="absolute 252 22 332 46" style="align:center middle;"/>
        <Edit id="edit_rebcno" taborder="14" position="absolute 113 326 254 345" readonly="true" class="output"/>
        <Grid id="grd_relaptno" taborder="15" useinputpanel="false" position="absolute 0 346 525 561" binddataset="ds_init_bfptnolist" oncellclick="grd_relaptno_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="125"/>
                <Column size="128"/>
                <Column size="125"/>
                <Column size="122"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="병리번호"/>
                <Cell col="1" text="M"/>
                <Cell col="2" text="T"/>
                <Cell col="3" text="P"/>
              </Band>
              <Band id="body">
                <Cell text="bind:dispptno"/>
                <Cell col="1" text="bind:diagcd"/>
                <Cell col="2" text="bind:extrpartcd"/>
                <Cell col="3" text="bind:extrmthdcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_bfptnolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="ptno" type="STRING" size="256"/>
          <Column id="dispptno" type="STRING" size="256"/>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="extrpartcd" type="STRING" size="256"/>
          <Column id="extrmthdcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_reprspclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="spcnm" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_reqfrminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_reqfrminfo_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="output1" propid="value" datasetid="ds_hidden_reqfrminfo" columnid="prcpnm"/>
      <BindItem id="item1" compid="cmb_reprspccd" propid="value" datasetid="ds_hidden_reqfrminfo" columnid="spccd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-04-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-04-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LPZ001.xjs";
include "lis_commonxp::LZZ003.xjs";
var arErrorCode = new HashArray();
var objDomParser;
var objDOM;
			
function fExeInitialize()
{
  	
	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString("<reqfrminfo></reqfrminfo>");
		
	fgetCommonExpn(cmb_humspe, "ds_init_resncdlist", "resncd", "resncnts", "HS", "cbf_SPLPJ01200");
	ds_init_resncdlist.setColumn(ds_init_resncdlist.rowcount-1, "resncd", "EXTR");
	ds_init_resncdlist.setColumn(ds_init_resncdlist.rowcount-1, "resncnts", "기타");
	if (ds_init_resncdlist.rowcount > 0) {
		cmb_humspe.value = "1003";		// 아시안 인종
	}
	
	var sInDsName = dsf_createDsRow("ds_send", [{col: "instcd"	, val: sysf_getUserInfo("dutplceinstcd")}
													,  {col: "testcd"	, val: ds_hidden_reqfrminfo.getColumn(0,"prcpcd")}
													,  {col: "reprspccd", val: ds_hidden_reqfrminfo.getColumn(0,"spccd")}
													,  {col: "spcflagcd", val: "0"}]);									
	var oParam = {};
		oParam.id          = "TRLPJ01501";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetTestInfoList";
		oParam.inds        = "refData="+sInDsName;
		oParam.outds       = "ds_init_reprspclist=refrslt";
		oParam.async       = false;
		oParam.callback    = "cbf_SPLPJ01200";

	tranf_submit(oParam);
	// 의뢰지내용 및 대표검체 조회		
	var sInDsName = dsf_createDsRow("ds_send", [{col: "instcd"	, val: sysf_getUserInfo("dutplceinstcd")}
												,{col: "pid"	, val: ds_hidden_reqfrminfo.getColumn(0,"pid")}
												]);		
													

	var oParam = {};
		oParam.id          = "TRLPZ00108";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetBfPtNoList";
		oParam.inds        = "refdata="+sInDsName;
		oParam.outds       = "ds_init_bfptnolist=rsltlist";
		oParam.async       = false;
		oParam.callback    = "cbf_SPLPJ01200";

	tranf_submit(oParam); // 이전 병리번호 목록 조회

	
	
	//----------------------------------------------------------
	var sReqFrmNo = ds_hidden_reqfrminfo.getColumn(0,"reqno");
	sReqFrmNo = sReqFrmNo.getLeftPad(1, "0");
			        	
			        	
	dsf_createDs("ds_rslt_reqfrminfo");		//의뢰내용
	if(!utlf_isNull(sReqFrmNo) || sReqFrmNo!="0"){
		//의뢰지내용조회
		var sInDsName = dsf_createDsRow("ds_send", [{col: "instcd"	, val: sysf_getUserInfo("dutplceinstcd")}
														,  {col: "pid"		, val: ds_hidden_reqfrminfo.getColumn(0,"pid")}
														,  {col: "reqno"	, val: ds_hidden_reqfrminfo.getColumn(0,"reqno")}]);									
		var oParam = {};
			oParam.id          = "TRLPJ01502";
			oParam.service     = "plgyrelapplib.PlgyAcptLib";
			oParam.method      = "reqGetReqFrmInfo";
			oParam.inds        = "refData="+sInDsName;
			oParam.outds       = "ds_rslt_reqfrminfo=refrslt";
			oParam.async       = false;
			oParam.callback    = "cbf_SPLPJ01200";

		tranf_submit(oParam);
		
	
		output1.value = ds_hidden_reqfrminfo.getColumn(0,"prcpnm");
	
		if(ds_rslt_reqfrminfo.rowcount>0){
			
			var ChkNullTag = ds_rslt_reqfrminfo.getColumn(0, "reqcnts");
			var parser = new DomParser;

			objDOM = objDomParser.parseFromString(ds_rslt_reqfrminfo.getColumn(0, "reqcnts"));
	
			if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/prcpdd"))){
				ds_hidden_reqfrminfo.setColumn(0,"reqno", "0");
				rdo_famyhist.value = "0";
				textarea1.value = "";
				edit_rebcno.value = "";				
			} 
			else {
				edit_rebcno.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01"));
				rdo_famyhist.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem02");
				textarea1.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts");
				cmb_reprspccd.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/choispc/choispclist/spccd");
				ds_hidden_reqfrminfo.setColumn(0,"spcnm", rptf_getValueFromDOM(objDOM,"/reqfrminfo/choispc/choispclist/spcnm"));
				cmb_humspe.value = 	 rptf_getValueFromDOM(objDOM,"/reqfrminfo/humspeccd");
				if(cmb_humspe.value == "EXTR") {
					ipt_humspe.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/humspecnm");
				}
				fChkHumenSpeText();
			}
		}
	} else {
			rdo_famyhist.value = "0";
			textarea1.value = "";
			edit_rebcno.value = "";		
	}
	//---------------------------------------------
	// 대표검체코드가 처방화면에서 넘어온 경우 처리
	if (!utlf_isNull(cmb_reprspccd.value) && cmb_reprspccd.value != "-") {
		if (sReqFrmNo != "0") {
			// Continue
		} else {
			rptf_setValueToDOM(objDOM,"/reqfrminfo/choispc/choispclist[1]/choi", "true");
			rptf_setValueToDOM(objDOM,"/reqfrminfo/choispc/choispclist[1]/spcseqno", "001");
			rptf_setValueToDOM(objDOM,"/reqfrminfo/choispc/choispclist[1]/spccd", cmb_reprspccd.value);
			rptf_setValueToDOM(objDOM,"/reqfrminfo/choispc/choispclist[1]/spcnm", ds_hidden_reqfrminfo.getColumn(0,"spcnm"));
			rptf_setValueToDOM(objDOM,"/reqfrminfo/choispc/choispclist[1]/existyn", "N");			
		}
	} else {
		cmb_reprspccd.enable = true;

	}
		
	// 처방상태코드가 인계접수완료(420)보다 적은 경우만 검체수정 가능  / 
	if(Number(ds_hidden_reqfrminfo.getColumn(0,"prcpstatcd")) >= 400) {
		btn_save.enable = false;
	}else{
		btn_save.enable = true;
	}
	sysf_trace(ds_init_resncdlist.rowcount);
	
	if (ds_init_resncdlist.rowcount > 0) {
		cmb_humspe.value = "1003";		// 아시안 인종
	}

}
 
 /**********************************************************************************
 * Name			: fChkHumenSpeText
 * Description	: 인종 입력박스 활성화 여부 체크
 * Argument		: Null
 * return Type	: Null
 * Author		: Autumn
************************************************************************************/
function fChkHumenSpeText(){
	if(cmb_humspe.value=="EXTR"){
		ipt_humspe.enable = true;
	} else {
		ipt_humspe.value = "";
		ipt_humspe.enable = false;
	}
}

 /**********************************************************************************
 * Name			: cbf_SPLPJ01200
 * Description	: 분자검사의뢰지 콜백함수.
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
************************************************************************************/
function cbf_SPLPJ01200(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

 /**********************************************************************************
 * Name			: cbf_TXLPJ01501
 * Description	: 분자검사의뢰지 저장 콜백함수.
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
************************************************************************************/
function cbf_TXLPJ01501(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0){
		sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
	} else {
		sysf_messageBox("", "I001");
		var objRetVal = new Object();
		if(ds_rslt_rtnvalinfo.rowcount>0){
			objRetVal.reqno = ds_rslt_rtnvalinfo.getColumn(0, "lstreqno")
		} else {
			objRetVal.reqno = "";
		}
		objRetVal.spccd 	= cmb_reprspccd.value;
		objRetVal.spcnm 	= cmb_reprspccd.text;
		this.close(objRetVal);
	}
}
//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components	    : 
 * Components ID  	: SPJLP01200
 * Event 		    : onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면로드
 ****************************************************************************************/
function SPLPJ01200_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);
	ds_hidden_reqfrminfo.copyData(arg_ds_hidden_reqfrminfo);
	try
	{
		ds_hidden_reqfrminfo_prcplist.copyData(arg_ds_hidden_reqfrminfo_prcplist);
	}
	catch(e)
	{
		trace(e);
	}
	
	
	fExeInitialize();
}

/****************************************************************************************
 * Components	    : 
 * Components ID  	: btn_exit
 * Event 		    : onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면닫기
 ****************************************************************************************/
function btn_exit_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

/****************************************************************************************
 * Components	    : 
 * Components ID  	: btn_exit111
 * Event 		    : onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면닫기
 ****************************************************************************************/
function btn_exit111_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

/****************************************************************************************
 * Components	    : 
 * Components ID  	: btn_sytsrsltref
 * Event 		    : onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 통합검사결과조회 팝업
 ****************************************************************************************/
function btn_sytsrsltref_onclick(obj:Button,  e:ClickEventInfo)
{
	var objArg = new Object();
	objArg.pid = plgv_sPid;
	frmf_modal("SMAER00800", "SMAER00800", objArg, "", "", application.mainframe.position.left+xpos, application.mainframe.position.top+ypos, "M", -1, null, null, null, "M");
}

/****************************************************************************************
 * Components	    : 
 * Components ID  	: cmb_humspe
 * Event 		    : onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 인종정보기타사항활성화
 ****************************************************************************************/
function cmb_humspe_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fChkHumenSpeText();
}

/****************************************************************************************
 * Components	    : 
 * Components ID  	: btn_save
 * Event 		    : onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 인종정보기타사항활성화
 ****************************************************************************************/
function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var sHumSpe      = cmb_humspe.value;
	var sHumSpeNm = "";
	if(sHumSpe == "EXTR") {
		sHumSpeNm = ipt_humspe.value ;
	} else {
		for(var iNo = 0 ; iNo < ds_init_resncdlist.rowcount; iNo++) {
			if(ds_init_resncdlist.getColumn(iNo,"resncd") == sHumSpe) {
				sHumSpeNm = ds_init_resncdlist.getColumn(iNo,"resncnts");
			}
		}
	}
					
	if (cmb_reprspccd.value=="-" || utlf_isNull(cmb_reprspccd.value)) {
		sysf_messageBox("대표검체는 필수입력사항입니다.", "I");
		cmb_reprspccd.setFocus();
		return false;
	}
	
	if (cmb_humspe.value=="-" || utlf_isNull(cmb_humspe.value)) {
		sysf_messageBox("인종/민족은 필수입력사항입니다.", "I");
		cmb_humspe.setFocus();
		return false;
	}
					
		
	
	var sReqcntsXmlText =				"<reqfrminfo>";
	sReqcntsXmlText = sReqcntsXmlText + 	"<inptitem01>" 	+ utlf_transNullToEmpty(edit_rebcno.value) + "</inptitem01>";
	sReqcntsXmlText = sReqcntsXmlText + 	"<inptitem02>" 	+ rdo_famyhist.value+"</inptitem02>";
	sReqcntsXmlText = sReqcntsXmlText + 	"<reqcnts><![CDATA[" + utlf_transNullToEmpty(textarea1.value) +"]]]]><![CDATA[></reqcnts>";
	sReqcntsXmlText = sReqcntsXmlText + 	"<humspeccd>"	+ cmb_humspe.text 	+"</humspeccd>";
	sReqcntsXmlText = sReqcntsXmlText + 	"<humspecnm>"	+ sHumSpeNm 	+"</humspecnm>";
	sReqcntsXmlText = sReqcntsXmlText + 	"<choispc>";
	sReqcntsXmlText = sReqcntsXmlText + 	"<choispclist>";
	sReqcntsXmlText = sReqcntsXmlText + 		"<choi>true</choi>";
	sReqcntsXmlText = sReqcntsXmlText + 		"<spcseqno>001</spcseqno>";
	sReqcntsXmlText = sReqcntsXmlText + 		"<spccd>"			+ cmb_reprspccd.value + "</spccd>";
	sReqcntsXmlText = sReqcntsXmlText + 		"<spcnm><![CDATA["	+ cmb_reprspccd.text  + "]]]]><![CDATA[></spcnm>";
	sReqcntsXmlText = sReqcntsXmlText + 		"<existyn>N</existyn>";
	sReqcntsXmlText = sReqcntsXmlText + 		"<slidno>0</slidno>";
	sReqcntsXmlText = sReqcntsXmlText + 	"</choispclist>";
	sReqcntsXmlText = sReqcntsXmlText + 	"</choispc>";
	sReqcntsXmlText = sReqcntsXmlText + "</reqfrminfo>";


	dsf_createDs("ds_rslt_rtnvalinfo");
	var sInDsName = dsf_createDsRow("ds_send", [{
				col : "pid",
				val : ds_hidden_reqfrminfo.getColumn(0,"pid")
			}, {
				col : "reqno",
				val : utlf_lPad(ds_hidden_reqfrminfo.getColumn(0,"reqno").toString(), 1, "0")
			}, {
				col : "reqcnts",
				val : sReqcntsXmlText
			}, {
				col : "imgcnts",
				val : ""
			}, {
				col : "instcd",
				val : sysf_getUserInfo("dutplceinstcd")
			}, {
				col : "scrno",
				val : "40"
			}, {
				col : "prcpdd",
				val : ds_hidden_reqfrminfo.getColumn(0,"prcpdd")
			 },  {
				col : "execprcpuniqno",
				val : ds_hidden_reqfrminfo.getColumn(0,"execprcpuniqno")
			}
		]);
	
		var oParam = {};
			oParam.id          = "TXLPJ01501";
			oParam.service     = "plgyrelapplib.PlgyAcptLib";
			oParam.method      = "reqExeReqFrmInfo";
			oParam.inds        = "refData="+sInDsName;
			oParam.outds       = "ds_rslt_rtnvalinfo=reflist";
			oParam.transaction = true;
			oParam.async       = false;
			oParam.callback    = "cf_TXLPJ01501";

		tranf_submit(oParam);
		
		sysf_trace(ds_rslt_rtnvalinfo.saveXML());

		if (arErrorCode.pop("TXLPJ01501") < 0) {
			sysf_messageBox("의뢰지 저장을", "E009");
			return false;
		}
	
		
		opener.ds_hidden_reqfrminfo.setColumn(0,"reqno",ds_rslt_rtnvalinfo.getColumn(0,"lstreqno"));	//ds_rslt_rtnvalinfo.getColumn(0,"reqno") 수정
		opener.ds_hidden_reqfrminfo.setColumn(0,"spccd",cmb_reprspccd.value);
		opener.ds_hidden_reqfrminfo.setColumn(0,"spcnm",cmb_reprspccd.text);
		
		this.close();
}
function cf_TXLPJ01501(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function grd_relaptno_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	edit_rebcno.value = ds_init_bfptnolist.getColumn(ds_init_bfptnolist.rowposition,"ptno");
}
]]></Script>
  </Form>
</FDL>