YNU_JEUS/app_home/himed/xpapps/ast/healthexamrsrvacptxp/xp/SPAHA04012_사전문진.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPAHA04012" position="absolute 0 0 940 735" titletext="사전질의" oninit="SPAHA04012_oninit" onload="SPAHA04012_onload">
    <Layouts>
      <Layout>
        <Radio position="absolute 240 700 806 726" id="rdo_srchinqrflag" visible="false" columncount="7" rowcount="1" innerdataset="ds_init_baseinfo_inqrflag_A0106" datacolumn="cdnm" codecolumn="cdid" onitemchanged="rdo_srchinqrflag_onitemchanged"/>
        <Shape position="absolute 170 45 935 51" linetype="horizontal" id="line4" class="line_10"/>
        <Grid position="absolute 170 50 935 370" id="grd_inqrlst" binddataset="ds_main_acptinfo_inqrlst_item" autoenter="select" autofittype="col" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="28"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="63"/>
                <Column size="410"/>
                <Column size="80"/>
                <Column size="166"/>
                <Column size="0"/>
                <Column size="0"/>
              </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="답안선택"/>
                <Cell col="6" text="답안내역"/>
                <Cell col="7" text="caption1"/>
                <Cell col="8" text="caption2"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:healexampid"/>
                <Cell col="2" text="bind:rsrvdd"/>
                <Cell col="3" text="bind:inqrcd"/>
                <Cell col="4" text="bind:inqrnm"/>
                <Cell col="5" displaytype="text" edittype="text" text="bind:answcd"/>
                <Cell col="6" text="bind:answcnts"/>
                <Cell col="7" text="bind:fstrgstrid"/>
                <Cell col="8" text="bind:fstrgstdt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div position="absolute 529 90 824 359" id="grp_inqrans" visible="false" style="background:white;border:1 solid #808080ff ;">
          <Layouts>
            <Layout>
              <Static text="문진선택답안" position="absolute 5 7 113 28" id="caption56" class="tit_2" anchor="default"/>
              <Grid position="absolute 5 28 290 230" id="grd_inqranslst" binddataset="ds_main_tempinfo_anslst" autoenter="select" autofittype="col" cellsizingtype="col" anchor="default" oncelldblclick="grp_inqrans_grd_inqranslst_oncelldblclick">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="26"/>
                      <Column size="35"/>
                      <Column size="49"/>
                      <Column size="159"/>
                    </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="결과내용"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:sel" expr="expr:sel == 'Y' ? 1 : 0"/>
                      <Cell col="2" text="bind:answcd"/>
                      <Cell col="3" text="bind:answcnts"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Shape position="absolute 5 23 290 29" linetype="horizontal" id="line36" class="line_10" anchor="default"/>
              <Button position="absolute 275 4 288 19" id="btn_ansclose" class="icon_plus" visible="false" text="" anchor="default" onclick="grp_inqrans_btn_ansclose_onclick"/>
              <Button position="absolute 175 235 231 257" id="btn_cfm2" class="btn4" text="확인" anchor="default" onclick="grp_inqrans_btn_cfm2_onclick"/>
              <Button position="absolute 235 235 291 257" id="btn_cls2" class="btn4" text="닫기" anchor="default" onclick="grp_inqrans_btn_cls2_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static text="사전질의" position="absolute 0 0 157 25" id="caption1" class="tit_1"/>
        <Grid position="absolute 170 551 935 696" id="grd_pkglst" binddataset="ds_main_pkglst_item" autoenter="select" cellsizingtype="col" oncelldblclick="grd_pkglst_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="26"/>
                <Column size="0"/>
                <Column size="100"/>
                <Column size="293"/>
                <Column size="109"/>
              </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="가격"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:cmpyflag"/>
                <Cell col="2" style="align:left middle;padding:0 0 0 3;" text="bind:pkgcd"/>
                <Cell col="3" style="align:left middle;padding:0 0 0 3;" text="bind:pkgnm"/>
                <Cell col="4" displaytype="number" text="bind:pkgamt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Combo position="absolute 770 1 940 20" id="cmb_srchhealexamdetlflag" class="combo_search" visible="false" innerdataset="@ds_main_acptinfo_rsltlst_item" datacolumn="iptlst" codecolumn="rsrvdd" onitemchanged="cmb_srchhealexamdetlflag_onitemchanged"/>
        <Static text="사전질의이력 :" position="absolute 653 2 775 19" id="caption47" class="search_name" visible="false"/>
        <Static text="추천패키지" position="absolute 170 530 314 551" id="caption62" class="tit_2"/>
        <Shape position="absolute 170 545 935 554" linetype="horizontal" id="line18" class="line_10"/>
        <Static text="사전질의 내용" position="absolute 170 29 314 50" id="caption2" class="tit_2"/>
        <Static text="사전질의이력" position="absolute 0 29 144 51" id="caption3" class="tit_2"/>
        <Grid position="absolute 0 50 160 695" id="datagrid1" binddataset="ds_main_inqrhislst_item" autoenter="select" autofittype="col" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
                <Column size="115"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="질의일자"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="date" text="bind:inqrhisdd" calendardisplaynulltype="nulltext"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape position="absolute 0 45 160 51" linetype="horizontal" id="line1" class="line_10"/>
        <Static text="상담내용" position="absolute 171 379 315 401" id="caption4" class="tit_2"/>
        <Shape position="absolute 170 393 935 394" linetype="vertical" id="line2" class="line_1"/>
        <TextArea position="absolute 170 396 935 520" id="textarea1" acceptstab="true" autoselect="true" wordwrap="word"/>
        <Button id="btn_cfm" taborder="1" text="확인" class="btn4" position="absolute 819 701 875 723" onclick="btn_cfm_onclick"/>
        <Button id="btn_cls" taborder="2" text="닫기" class="btn4" position="absolute 878 701 934 723" onclick="btn_cls_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_inqrhislst_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_acptinfo_inqrlst_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="단체여부"/>
          <Column id="healexampid" type="STRING" size="256" sumtext="패키지코드"/>
          <Column id="iptlst" type="STRING" size="256" sumtext="패키지코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_tempinfo_anslst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_tempinfo_anslst_oncolumnchanged"/>
      <Dataset id="ds_main_inqrhislst_itemtext" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnstconf" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_pkglst_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cmpyflag" type="STRING" size="256"/>
          <Column id="pkgcd" type="STRING" size="256"/>
          <Column id="pkgnm" type="STRING" size="256"/>
          <Column id="pkgamt" type="STRING" size="256"/>
          <Column id="mantotamt" type="STRING" size="256"/>
          <Column id="mandiscamt" type="STRING" size="256"/>
          <Column id="mancnfmamt" type="STRING" size="256"/>
          <Column id="mancmpychrgamt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cmpyflag">C</Col>
            <Col id="pkgcd">aaa</Col>
            <Col id="pkgnm">aaa</Col>
            <Col id="pkgamt"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_baseinfo_inqrflag_A0106" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_acptinfo_rsltlst_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="healexampid" type="STRING" size="256" sumtext="건진등록번호"/>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="등록일"/>
          <Column id="inqrcd" type="STRING" size="256" sumtext="사전질의코드"/>
          <Column id="inqrnm" type="STRING" size="256" sumtext="사전질의명"/>
          <Column id="inqranswcd" type="STRING" size="256" sumtext="답변코드"/>
          <Column id="answcnts" type="STRING" size="256" sumtext="답변명"/>
          <Column id="fstrgstrid" type="STRING" size="256" sumtext="최초등록자"/>
          <Column id="fstrgstdt" type="STRING" size="256" sumtext="최초등록일시"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchhealexamflag" type="STRING" size="256"/>
          <Column id="srchpid" type="STRING" size="256"/>
          <Column id="srchorddd" type="STRING" size="256"/>
          <Column id="srchrsrvno" type="STRING" size="256"/>
          <Column id="srchrsrvdd" type="STRING" size="256"/>
          <Column id="srchinstcd" type="STRING" size="256"/>
          <Column id="srchcretno" type="STRING" size="256"/>
          <Column id="healexampid" type="STRING" size="256"/>
          <Column id="rsrvdd" type="STRING" size="256"/>
          <Column id="gndrflag" type="STRING" size="256"/>
          <Column id="srchpkgflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchhealexamflag">C</Col>
            <Col id="srchpid"/>
            <Col id="srchorddd"/>
            <Col id="srchrsrvno"/>
            <Col id="srchrsrvdd"/>
            <Col id="srchinstcd"/>
            <Col id="srchcretno"/>
            <Col id="healexampid"/>
            <Col id="rsrvdd"/>
            <Col id="gndrflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="textarea1" propid="value" datasetid="ds_main_inqrhislst_itemtext" columnid="cnstconf"/>
      <BindItem id="item1" compid="cmb_srchhealexamdetlflag" propid="value" datasetid="ds_send" columnid="srchrsrvdd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
var arErrorCode = new HashArray();
function SPAHA04012_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPAHA04012_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(datagrid1);
	grdf_initGrid(grd_inqrlst);
	grdf_initGrid(grp_inqrans.grd_inqranslst);
	grdf_initGrid(grd_pkglst);
	
	ds_send.setColumn(0, "healexampid", opener.ds_tmp_caut.getColumn(0, "pid"));
	ds_send.setColumn(0, "srchpid", opener.ds_tmp_caut.getColumn(0, "pid"));
	ds_send.setColumn(0, "srchrsrvdd", opener.ds_tmp_caut.getColumn(0, "rsrvdd"));
	ds_send.setColumn(0, "rsrvdd", opener.ds_tmp_caut.getColumn(0, "rsrvdd"));
	ds_send.setColumn(0, "gndrflag", opener.ds_tmp_caut.getColumn(0, "gndrflag"));
	
	fInitDasplay();
	var oParam = {};
		oParam.id          = "TRAHB03195";
		oParam.service     = "healthexambaseapp.BfInqr";
		oParam.method      = "reqGetBfInqrAnswRsltList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_acptinfo_rsltlst_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHB03195";

	tranf_submit(oParam);
}

function fInitDasplay()
{
	fGetInqrCdList(); 
}

function fGetInqrCdList()
{  
	var inqrflag = "ds_init_baseinfo";
	dsf_createDs(inqrflag);
	
	dsf_makeValue(ds_init_baseinfo, "inqrflag", "string",inqrflag);
	ds_main_acptinfo_inqrlst_item.clearData();
	
	dsf_makeValue(ds_send, "srchinstcd","string", sysf_getUserInfo("posinstcd") );  
	dsf_makeValue(ds_send, "srchinqrflag","string", ds_init_baseinfo.getColumn(0, "inqrflag"));  
	
	var oParam = {};
		oParam.id          = "TRAHA03196";
		oParam.service     = "healthexambaseapp.BfInqr";
		oParam.method      = "reqGetBfInqrAnswRslt";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_acptinfo_inqrlst_item=item";
		oParam.async       = false;
		oParam.callback    = "cf_TRAHA03196";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRAHA03196") > -1)
	{
		var cnt = ds_main_acptinfo_inqrlst_item.rowcount;

		for( var i = 0; i < cnt ; i++)
		{
			if( ds_main_acptinfo_inqrlst_item.getColumn(i, "inptflag") == "i" )
			{
				ds_main_acptinfo_inqrlst_item.updatecontrol = false;
				ds_main_acptinfo_inqrlst_item.setRowType(i, "i");
				ds_main_acptinfo_inqrlst_item.updatecontrol = true;
			}
		}
	}
}

function cf_TRAHA03196(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}

function cmb_srchhealexamdetlflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var oParam = {};
		oParam.id          = "TRAHA03196";
		oParam.service     = "healthexambaseapp.BfInqr";
		oParam.method      = "reqGetBfInqrAnswRslt";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_acptinfo_inqrlst_item=item";
		oParam.async       = false;
		oParam.callback    = "cf_TRAHA03196";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRAHA03196") > -1)
	{
		var cnt = ds_main_acptinfo_inqrlst_item.rowcount;

		for( var i = 0; i < cnt ; i++)
		{
			ds_main_acptinfo_inqrlst_item.updatecontrol = false;
			ds_main_acptinfo_inqrlst_item.setRowType(i, "i");
			ds_main_acptinfo_inqrlst_item.updatecontrol = true;
		}
	}
}

function grd_pkglst_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fSetData();
	fSaveAnsw();
	this.close();
}

function fSetData()
{
	if( frmf_checkOpener() )
	{
		var receiveref = eval("opener.ds_temp");
		opener.dsf_makeValue(receiveref, "okflag", "string", "", 0);
		
		var vMulti 		= opener.frmf_getParameter("SPAHA00200_PARAM9") ; 
		var vOpener 	= opener.frmf_getParameter("SPAHA00200_PARAM7") ; 
		var vPkgFg  	= opener.frmf_getParameter("SPAHA00200_PARAM1") ; 
		var vSex  		= opener.frmf_getParameter("SPAHA00200_PARAM8") ; 
		var vDestXPath  = opener.frmf_getParameter("SPAHA00200_PARAM10") ; 
		var vRet = 0;
		
		ds_temp_list.clearData();
		
		if( ( vPkgFg  ==  "T" ) || (vPkgFg == "A" ) || (vPkgFg == "S" )  )
		{
			vRet = fSetTestCd(vMulti, vSex, vDestXPath);
		}
		else 
		{
			vRet = fSetPkgcd(vMulti, vSex, vDestXPath);
		} 
		if( vRet == 1) 
		{   
			opener.ds_temp.setColumn(0, "okflag", "ok");
		}
		else if( vRet == 0) 
		{
			opener.ds_temp.setColumn(0, "okflag", "ep");
		}
		else 
		{
			opener.ds_temp.setColumn(0, "okflag", "");
		}
	}
}

function fSetTestCd( vMulti, vSex, vDestXPath)
{
	var idx  = 0 ;
	if( vMulti == "N" )
	{
		idx  = grd_testcdlst.row ;
		if ( idx < 1) 
		{
			sysf_messageBox("항목을 선택하세요.", "E999");
			return -1;
		} 
		
		var receiveref = eval(vDestXPath);
		opener.model.setValue(vDestXPath + "/testcd"		, model.getValue(grd_testcdlst.nodeset + "[" +idx+ "]/testcd" ) );
		opener.model.setValue(vDestXPath + "/testnm" 	, model.getValue(grd_testcdlst.nodeset + "[" +idx+ "]/testnm" ));
		
		opener.model.makeNode(vDestXPath + "/scoreamt" );
		opener.model.makeNode(vDestXPath + "/uncocd" );
		opener.model.makeNode(vDestXPath + "/sel" );
		opener.model.makeNode(vDestXPath + "/testflag" );
		opener.model.makeNode(vDestXPath + "/calcscorcd" );
		opener.model.makeNode(vDestXPath + "/grupflag" );
		
		opener.model.setValue(vDestXPath + "/scoreamt" 	, model.getValue(grd_testcdlst.nodeset + "[" +idx+ "]/scoreamt" ));
		opener.model.setValue(vDestXPath + "/uncocd" 	, "V01"); 
		opener.model.setValue(vDestXPath + "/sel"		, "Y" ); 
		opener.model.setValue(vDestXPath + "/testflag"		, "A" ); //추가검사
		opener.model.setValue(vDestXPath + "/calcscorcd"	, model.getValue(grd_testcdlst.nodeset + "[" +idx+ "]/calcscorcd" )); //묶음처방구분
		opener.model.setValue(vDestXPath + "/grupflag"	, model.getValue(grd_testcdlst.nodeset + "[" +idx+ "]/grupflag" )); //묶음처방구분
	}
	else 
	{
		var nodeList = instance1.selectNodes(grd_testcdlst.nodeset + "[sel='Y']");  
		if( nodeList.length > 0) 
		{
			var rCSV = getNodeListCSV(nodeList);  
			setCSVToNode("/root/temp", rCSV);  
			copyNodeListType(vDestXPath, "/root/temp/list", "replace", opener.model, model ); 
		}
		else return 0;
	}
	return 1;
}

function fSetPkgcd(vMulti, vSex, vDestXPath)
{
	var idx  = 0 ;
	if( vMulti == "N" )
	{
		idx  = ds_main_pkglst_item.rowposition;
		if ( idx < 0) return -1 ; 		

		var receiveref = eval("opener."+vDestXPath);
		opener.dsf_makeValue(receiveref, "pkgcd", "string", ds_main_pkglst_item.getColumn(idx, "pkgcd"), 0);
		opener.dsf_makeValue(receiveref, "pkgnm", "string", ds_main_pkglst_item.getColumn(idx, "pkgnm"), 0);
		
		if( ds_send.getColumn(0, "srchpkgflag") == "C" )
		{
			opener.dsf_makeValue(receiveref, "cmpycd", "string", ds_main_pkglst_item.getColumn(idx, "cmpycd"), 0);
			opener.dsf_makeValue(receiveref, "conseq", "string", ds_main_pkglst_item.getColumn(idx, "conseq"), 0);
			opener.dsf_makeValue(receiveref, "conhistseq", "string", ds_main_pkglst_item.getColumn(idx, "conhistseq"), 0);
			opener.dsf_makeValue(receiveref, "pkguncocd", "string", ds_main_pkglst_item.getColumn(idx, "uncocd"), 0);  
			opener.dsf_makeValue(receiveref, "pkgremcnts", "string", ds_main_pkglst_item.getColumn(idx, "remcnts"), 0);  
		}
		opener.dsf_makeValue(receiveref, "pkgamt", "int", 0, 0);  
		
		var vFrom = opener.frmf_getParameter("SPAHA00200_PARAM12") ; 												

		if( vSex == "M" )
		{
			if(vFrom=="pkg")
			{
				opener.dsf_makeValue(receiveref, "pkgamt", "int", ds_main_pkglst_item.getColumn(idx, "mantotamt"), 0);
				opener.dsf_makeValue(receiveref, "discamt", "int", ds_main_pkglst_item.getColumn(idx, "mandiscamt"), 0);
				opener.dsf_makeValue(receiveref, "subtotamt", "int", ds_main_pkglst_item.getColumn(idx, "mancnfmamt"), 0);
				opener.dsf_makeValue(receiveref, "fmamt", "int", ds_main_pkglst_item.getColumn(idx, "mancmpychrgamt"), 0);																					
			}
		}
		else 
		{
			if(vFrom=="pkg")
			{
				opener.dsf_makeValue(receiveref, "pkgamt", "int", ds_main_pkglst_item.getColumn(idx, "womtotamt"), 0);
				opener.dsf_makeValue(receiveref, "discamt", "int", ds_main_pkglst_item.getColumn(idx, "womdiscamt"), 0);
				opener.dsf_makeValue(receiveref, "subtotamt", "int", ds_main_pkglst_item.getColumn(idx, "womcnfmamt"), 0);
				opener.dsf_makeValue(receiveref, "fmamt", "int", ds_main_pkglst_item.getColumn(idx, "womcmpychrgamt"), 0);		
			}				
		}
	}
	else 
	{
		var nodeList = ds_main_pkglst_item.getCaseCount("sel == 'Y'");
		if( nodeList > 0) 
		{
			for(var i = 0; i < ds_main_pkglst_item.rowcount; i++)
			{
				if(ds_main_pkglst_item.getColumn(i, "sel") == "Y")
				{
					ds_temp.copyRow(ds_temp.addRow, ds_main_pkglst_item, i)
				}	
			}
			
			receiveref.copyData(ds_temp);
		}
		else return 0;
	}
	return 1;
}

function fSaveAnsw()
{
	for(var i = 0; i < ds_main_acptinfo_inqrlst_item.rowcount; i ++)
	{
		ds_main_acptinfo_inqrlst_item.updatecontrol = false;
		dsf_makeValue(ds_main_acptinfo_inqrlst_item, "inqranswcd", ds_main_acptinfo_inqrlst_item.getColumn(i, "answcd"), i);
		ds_main_acptinfo_inqrlst_item.setRowType(i, "i");
		ds_main_acptinfo_inqrlst_item.updatecontrol = true;
	}
	
	var oParam = {};
		oParam.id          = "TXAHA03192";
		oParam.service     = "healthexambaseapp.BfInqr";
		oParam.method      = "reqExeBfInqrAnswRslt";
		oParam.inds        = "saveinqr=ds_main_acptinfo_inqrlst_item:u";
		oParam.outds       = "ds_=item2";
		oParam.typeStr     = "m";
		oParam.async       = false;
		//oParam.callback    = "cf_TXAHA03192";

	tranf_submit(oParam);	
}

function rdo_srchinqrflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fGetInqrCdList();
}

function btn_cfm_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveAnsw();
	opener.ds_temp.setColumn(0, "okflag", "N");
	this.close();
}

function btn_cls_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function ds_main_tempinfo_anslst_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "sel")
	{
		obj.setColumn(e.row, "sel", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}

function grp_inqrans_grd_inqranslst_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.col == 1) return;
	fSetInqrAns();
	grp_inqrans.visible = false;
}

var col_inqranswcd 		= 5;
function fSetInqrAns()
{
	var idx = ds_main_acptinfo_inqrlst_item.rowposition;

	var ansidx = ds_main_tempinfo_anslst.rowposition;
	if( ansidx < 0 ) return ;
	var old_ans = ds_main_acptinfo_inqrlst_item.getColumn(idx, col_inqranswcd) ;
	var new_ans	= ds_main_tempinfo_anslst.getColumn(ansidx, 1);
	if( old_ans == new_ans ) return ;
	
	ds_main_acptinfo_inqrlst_item.setColumn(idx, "answcd", "");
	ds_main_acptinfo_inqrlst_item.setColumn(idx, "answcnts", "");
	
	for(var i = 0 ; i < ds_main_tempinfo_anslst.rowcount; i++)
	{
		if(ds_main_tempinfo_anslst.getColumn(i, "sel") != "Y") continue;
		
		ds_main_acptinfo_inqrlst_item.getColumn(idx, "answcd") += ds_main_tempinfo_anslst.getColumn(i, "answcd") + ",";
		ds_main_acptinfo_inqrlst_item.getColumn(idx, "answcnts") += ds_main_tempinfo_anslst.getColumn(i, "answcnts") + ",";
	}
	if( ds_main_acptinfo_inqrlst_item.getRowType(idx) == 1)
	{
		ds_main_acptinfo_inqrlst_item.updatecontrol = false;
		ds_main_acptinfo_inqrlst_item.setRowType(idx, "u");
		ds_main_acptinfo_inqrlst_item.updatecontrol = false;
	}
}	

function grp_inqrans_btn_ansclose_onclick(obj:Button,  e:ClickEventInfo)
{
	grp_inqrans.visible = false;
}

function grp_inqrans_btn_cls2_onclick(obj:Button,  e:ClickEventInfo)
{
	grp_inqrans.visible = false;
}

function grp_inqrans_btn_cfm2_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetInqrAns();
	grp_inqrans.visible = false;
}
]]></Script>
  </Form>
</FDL>