YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SPLMR90900_미생물추가처방.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLMR90900" position="absolute 0 0 768 547" titletext="미생물추가처방" oninit="SPLMR90900_oninit" onload="SPLMR90900_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="환자정보" class="tit_2" position="absolute 1 5 101 22"/>
        <Shape id="line1" class="line_1" position="absolute 1 25 766 31" style="strokepen:3 solid #33bbbbff;"/>
        <Edit id="ipt_wbc" taborder="1" class="input_default" enable="false" position="absolute 76 31 196 50"/>
        <Shape id="line2" class="line_2" position="absolute 1 50 766 56"/>
        <Static id="cpt_wbc" text="등록번호" class="cell_1" position="absolute 1 30 73 53"/>
        <Edit id="input1" taborder="2" class="input_default" enable="false" position="absolute 276 31 396 50"/>
        <Static id="caption2" text="성     명" class="cell_1" position="absolute 201 30 273 53"/>
        <Static id="caption3" text="주민번호" class="cell_1" position="absolute 401 30 473 53"/>
        <Edit id="input2" taborder="3" class="input_default" enable="false" position="absolute 476 31 536 50"/>
        <Edit id="input3" taborder="4" class="input_default" enable="false" position="absolute 538 31 608 50"/>
        <Edit id="input4" taborder="5" class="input_default" enable="false" position="absolute 76 56 196 75"/>
        <Static id="caption4" text="진 료 과" class="cell_1" position="absolute 1 55 73 78"/>
        <Static id="caption5" text="진 료 일" class="cell_1" position="absolute 201 55 273 78"/>
        <Edit id="input5" taborder="6" class="input_default" enable="false" position="absolute 276 56 396 75"/>
        <Static id="caption6" text="성별/나이" class="cell_1" position="absolute 611 30 683 53"/>
        <Edit id="input6" taborder="7" class="input_default" enable="false" position="absolute 686 31 726 50"/>
        <Edit id="input7" taborder="8" class="input_default" enable="false" position="absolute 729 31 766 50"/>
        <Static id="caption7" text="병     실" class="cell_1" position="absolute 401 55 473 78"/>
        <Edit id="input8" taborder="9" class="input_default" enable="false" position="absolute 476 56 561 75"/>
        <Shape id="line3" class="line_2" position="absolute 1 75 766 81"/>
        <Static id="caption8" text="처방목록" class="tit_2" position="absolute 1 90 101 107"/>
        <Shape id="line4" class="line_1" position="absolute 0 106 766 112" style="strokepen:3 solid #33bbbbff;"/>
        <Grid id="grd_prcplist" class="datagrid2" taborder="10" binddataset="ds_grd_prcplist" useinputpanel="false" position="absolute 1 110 766 544" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="100"/>
                <Column size="340"/>
                <Column size="75"/>
                <Column size="100"/>
                <Column size="100"/>
              </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 displaytype="checkbox" edittype="checkbox" text="bind:chk"/>
                <Cell col="1" displaytype="normal" edittype="none" text="bind:prcpcd"/>
                <Cell col="2" displaytype="normal" edittype="none" text="bind:prcpnm"/>
                <Cell col="3" displaytype="normal" edittype="none" text="bind:prcpyn"/>
                <Cell col="4" displaytype="normal" edittype="text" text="bind:reptrslt"/>
                <Cell col="5" displaytype="normal" edittype="text" text="bind:bcno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button145" taborder="11" text="후인증저장" class="btn5" position="absolute 691 85 766 104" onclick="button145_onclick"/>
        <Button id="btn_prntset" taborder="12" text="프린터설정" class="btn3" position="absolute 673 2 765 24" onclick="btn_prntset_onclick"/>
        <Button id="button1" taborder="13" text="바코드출력" class="btn5" position="absolute 612 85 687 104" onclick="button1_onclick"/>
        <Static id="caption9" position="absolute 566 56 766 76"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING"/>
          <Column id="prcpcd" type="STRING"/>
          <Column id="prcpnm" type="STRING"/>
          <Column id="prcpyn" type="STRING"/>
          <Column id="reptrslt" type="STRING"/>
          <Column id="bcno" type="STRING"/>
        </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="pid" type="STRING" size="256"/>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="data1" type="STRING" size="256"/>
          <Column id="userdeptflagcd" type="STRING" size="256"/>
          <Column id="bcdgbn" type="STRING" size="256"/>
          <Column id="scrnid" type="STRING" size="256"/>
          <Column id="bcnolist" type="STRING" size="256"/>
          <Column id="orddd_old" type="STRING" size="256"/>
          <Column id="cretno_old" type="STRING" size="256"/>
          <Column id="genrflagcd_old" type="STRING" size="256"/>
          <Column id="orddeptcd_old" type="STRING" size="256"/>
          <Column id="copyflag" type="STRING" size="256"/>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="reptrslt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호1"/>
          <Column id="rrgstno2" type="STRING" size="256" sumtext="주민번호2"/>
          <Column id="sex" type="STRING" size="256" sumtext="성별"/>
          <Column id="age" type="STRING" size="256" sumtext="나이"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일"/>
          <Column id="wardroom" type="STRING" size="256" sumtext="병실"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="입원외래구분"/>
          <Column id="dschnotiyn" type="STRING" size="256" sumtext="퇴원통보여부"/>
          <Column id="msg" type="STRING" size="256" sumtext="퇴원외래건진여부msg"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_barcdprntsetup" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prntsetupinfo" type="STRING" size="256" sumtext="코드"/>
          <Column id="macaddr" type="STRING" size="256" sumtext="macaddr"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_barcodeinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="tsectlblnm" type="STRING" size="256" sumtext="검사계라벨명"/>
          <Column id="tsectlblnm2" type="STRING" size="256" sumtext="검사계라벨명(hex)"/>
          <Column id="bcno" type="STRING" size="256" sumtext="검체번호"/>
          <Column id="barcdprntdt" type="STRING" size="256" sumtext="라벨발행일자"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자성명"/>
          <Column id="patnm2" type="STRING" size="256" sumtext="환자성명(hex)"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="sexage" type="STRING" size="256" sumtext="성별연령"/>
          <Column id="deptroom" type="STRING" size="256" sumtext="진료과병실"/>
          <Column id="spclblnm" type="STRING" size="256" sumtext="검체라벨명"/>
          <Column id="tubelblnm" type="STRING" size="256" sumtext="용기라벨명"/>
          <Column id="secttsect" type="STRING" size="256" sumtext="계검사계"/>
          <Column id="tclslblnmlist" type="STRING" size="256" sumtext="검사라벨명"/>
          <Column id="tclslblnmlist2" type="STRING" size="256" sumtext="검사라벨명(hex)"/>
          <Column id="infcinfolist" type="STRING" size="256" sumtext="감염정보"/>
          <Column id="erprcpflag" type="STRING" size="256" sumtext="응급구분"/>
          <Column id="bcollbarcdprntcnt" type="STRING" size="256" sumtext="채혈바코드출력수"/>
          <Column id="spcacptbarcdprntcnt" type="STRING" size="256" sumtext="접수바코드출력수"/>
          <Column id="microbarcdprntcnt" type="STRING" size="256" sumtext="미생물바코드출력수"/>
          <Column id="mdiabarcdprntcnt" type="STRING" size="256" sumtext="핵의학작업번호수"/>
          <Column id="workno" type="STRING" size="256" sumtext="작업번호"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의"/>
          <Column id="roomcd" type="STRING" size="256" sumtext="병실코드"/>
          <Column id="dept" type="STRING" size="256" sumtext="부서"/>
          <Column id="spcacptdd" type="STRING" size="256" sumtext="접수일자"/>
          <Column id="dnornm" type="STRING" size="256" sumtext="공여자명"/>
          <Column id="divgrupcd" type="STRING" size="256" sumtext="접수일자"/>
          <Column id="divgrupnm" type="STRING" size="256" sumtext="공여자명"/>
          <Column id="prcphopedd" type="STRING" size="256" sumtext="접수일자"/>
          <Column id="bedposcnts" type="STRING" size="256" sumtext="공여자명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_dethmsg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="msg" type="STRING" size="256"/>
          <Column id="dethyn" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_getMicroAddPrcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING" size="256" sumtext="chk"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="reptrslt" type="STRING" size="256" sumtext="결과"/>
          <Column id="prcpyn" type="STRING" size="256" sumtext="처방여부"/>
          <Column id="bcno" type="STRING" size="256" sumtext="처방여부"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_wbc" propid="value" datasetid="ds_patinfo" columnid="pid"/>
      <BindItem id="item1" compid="input1" propid="value" datasetid="ds_patinfo" columnid="patnm"/>
      <BindItem id="item2" compid="input2" propid="value" datasetid="ds_patinfo" columnid="rrgstno"/>
      <BindItem id="item3" compid="input3" propid="value" datasetid="ds_patinfo" columnid="rrgstno2"/>
      <BindItem id="item4" compid="input6" propid="value" datasetid="ds_patinfo" columnid="sex"/>
      <BindItem id="item5" compid="input7" propid="value" datasetid="ds_patinfo" columnid="age"/>
      <BindItem id="item6" compid="input8" propid="value" datasetid="ds_patinfo" columnid="wardroom"/>
      <BindItem id="item7" compid="input5" propid="value" datasetid="ds_patinfo" columnid="orddd"/>
      <BindItem id="item8" compid="input4" propid="value" datasetid="ds_patinfo" columnid="orddeptnm"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "com_commodulexp::SSZFM00901.xjs"
include "lis_commonxp::LLZ001.xjs";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LPZ001.xjs";
include "lis_commonxp::HanFont24.xjs";
include "emr_carecomxp::CareCom.xjs";

//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var arErrorCode = new HashArray();

function SPLMR90900_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPLMR90900_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_prcplist);
	getPatCBBaseInfo();
}

function getPatCBBaseInfo()
{		
	ds_send.setColumn(0, "pid", opener.frmf_getParameter("pid"));
	ds_send.setColumn(0, "bcno", opener.frmf_getParameter("bcno"));
	
	//submit("TRLMR90902");
	var oParam = {};
		oParam.id          = "TRLMR90801";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqGetMicroAddPatInfo";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_patinfo=getMicroAddPatInfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLMR90801";
	tranf_submit(oParam);

	if(ds_patinfo.getColumn(0, "dschnotiyn") == "Y")
	{
		alert("퇴원확정 된 환자입니다. 추가처방을 발행할 수 없습니다. ");
		return;
	}
	
	if( !utlf_isNull(ds_patinfo.getColumn(0, "msg")))
	{
		sysf_messageBox(ds_patinfo.getColumn(0, "msg"), "I");
	}

	
	//submit("TRLMR90901");					
	var oParam = {};
		oParam.id          = "TRLMR90801";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqGetMicroAddPrcplist";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_grd_prcplist=getMicroAddPrcplist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLMR90801";
	tranf_submit(oParam);
	
	//model.setValue("/root/send/scrnid", getScreenID());
	ds_send.setColumn(0, "scrnid", frmf_getScreenID());
	
	//submit("TRLLC90101");
	var oParam = {};
		oParam.id          = "TRLLC90101";
		oParam.service     = "diagtestapplib.LisCommon";
		oParam.method      = "reqGetSetUpInfo";
		oParam.inds        = "scrnid=ds_send";
		oParam.outds       = "ds_barcdprntsetup=getSetUpInfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLC90101";
	tranf_submit(oParam);

	//lzzfMakeBrcdPrntObjHanDo("CommAX");
	lf_convertXmlToDs(ds_barcdprntsetup.getColumn(0, "prntsetupinfo"));
}

//프린터설정
function btn_prntset_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetPrint();
}

//프린터설정
function fSetPrint()
{
	var count = ds_barcdprntsetup.rowcount;
	
	if(count == 1)
	{
		//model.makeNode("/root/main/barcdprntsetup/prntsetupinfo/setupinfo");
		//lf_convertXmlToDs(ds_barcdprntsetup.getColumn(0, "prntsetupinfo"));
	}

	var objArg = new Object();
	objArg.arg_sSetupInfo = ds_barcdprntsetup.getColumn(0, "prntsetupinfo");
	frmf_modal("SPLLC90100", "SPLLC90100", objArg, null, null, null, null, null, null, null, null, null, "M");
	
	
	ds_barcdprntsetup.setColumn(0, "prntsetupinfo", frmf_getParameter("SetupInfo"));
}

//바코드출력
function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeBarcdReprnt();
}

//바코드출력
function fExeBarcdReprnt()
{
	var bcno = "";
	var bcollTF = false;
	for(i = 0; i < ds_grd_prcplist.rowcount; i++)
	{
		if(ds_grd_prcplist.getColumn(i, "chk") == 1)
		{
			bcno = bcno + "'" + ds_grd_prcplist.getColumn(i, "bcno") + "'" + ",";
			bcollTF = true;
		}
	}
	if(bcollTF == false)
	{
		alert("출력할 검체를 선택하십시오. ");	
	}
	
	if(bcollTF) 
	{
		bcno = bcno.substring( 0 ,bcno.length );			
		ds_send.setColumn(0, "bcnolist", bcno);

		var prtkind = ds_data_setupinfo.getColumn(0, "prntkind");
		bcno = bcno.substring( 0 ,bcno.length - 1);	
		ds_send.setColumn(0, "bcnolist", bcno);		
		ds_send.setColumn(0, "bcdgbn", "1");
		
		//submit("TRLLJ00402");
		var oParam = {};
			oParam.id          = "TRLLJ00402";
			oParam.service     = "acptmngtapp.AcptMngt";
			oParam.method      = "reqGetAcptBarCodeInfo";
			oParam.inds        = "bcollbcnolist=ds_send";
			oParam.outds       = "ds_barcodeinfo=barcodeinfo";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLLJ00402";
		tranf_submit(oParam);

		var prtkind = ds_data_setupinfo.getColumn(0, "prntkind");
		if( prtkind == "10" || prtkind == "2" || prtkind == "6" || prtkind == "7")	// sato 바코드 
		{ 				
			fLisSpcBarcodePrint2(ds_barcodeinfo); 
		}else if(prtkind == "8" )			// B472 
		{ 													
			fLisSpcBarcodePrint3(ds_barcodeinfo); 
		}
		else								// ZEBRA & 기타 
		{ 																				
			fLisSpcBarcodePrint(ds_barcodeinfo);
		}
	}
}

//후인증저장
function button145_onclick(obj:Button,  e:ClickEventInfo)
{
	fExePrcp();
}

function fExePrcp()
{
	var ioflag = ds_patinfo.getColumn(0, "ioflag");
	
	if(ioflag == "O")
	{
		var setPid = ds_patinfo.getColumn(0, "pid");
		var setDd  = utlf_getCurrentDateTime();
		var preDiagCond = "Etc▦"+setPid+"▦"+setDd+"▦▦▦/root";

/* 추가 */		
		frmf_setParameter("preDiagCond",    preDiagCond);
		fFindDiagInfo();
		var sParamArr   =  frmf_getParameter("preDiagResult").split("▦");
		
		//var sParamArr   =  preDiagCond.split("▦");
		var sOrddd_Old      = sParamArr[1];
		var sIndd_Old      = sParamArr[2];
		var sCretno_Old     = sParamArr[3];
		var sGenrflagcd_Old = sParamArr[4];					
		
// 		trace(sOrddd_Old);
// 		trace(sIndd_Old);
// 		trace(sCretno_Old);
// 		trace(sGenrflagcd_Old);						
		
		if( sGenrflagcd_Old != 'O' )
		{
			ds_send.setColumn(0, "orddd_old", sIndd_Old);
		}
		else
		{
			ds_send.setColumn(0, "orddd_old", sOrddd_Old);
		}

		ds_send.setColumn(0, "cretno_old", sCretno_Old);
		ds_send.setColumn(0, "genrflagcd_old", sGenrflagcd_Old);
		ds_send.setColumn(0, "orddeptcd_old", "");
		ds_send.setColumn(0, "copyflag", "Y");
	}

	var grd_prcplistRow = ds_grd_prcplist.rowcount;
	
	for(var Ro = 0; Ro <= grd_prcplistRow; Ro++)
	{
		var chkVal = ds_grd_prcplist.getColumn(Ro, "chk");
		var prcpyn = ds_grd_prcplist.getColumn(Ro, "prcpyn");
		
		if(chkVal == 1)
		{
			if(prcpyn == "Y")
			{
				alert("이미 추가 처방 되었습니다.");
	//			grd_prcplist.rowStatus(Ro) = 0;
			}else{
	//			grd_prcplist.rowStatus(Ro) = 2;
			}
		}else{
//			grd_prcplist.rowStatus(Ro) = 0;
		}
	}
	
   var grdInfo = grdf_getGridUpdateData(grd_prcplist, "update");
   var grd_prcplistupdt = ds_tempFilterDs.rowcount;
   if  ( ds_tempFilterDs.rowcount > 0 ) 
    {
        
		var data1 = "m▦rownum▦chk▦prcpcd▦prcpnm▦prcpyn▦reptrslt▦bcno▩" ;	
		for(var Ro = 0; Ro < grd_prcplistupdt; Ro++)
		{
			data1 = data1 + "u▦1▦true▦";
			data1 = data1 + utlf_transNullToEmpty(ds_tempFilterDs.getColumn(Ro, "prcpcd")) + "▦" ;
			data1 = data1 + utlf_transNullToEmpty(ds_tempFilterDs.getColumn(Ro, "prcpnm")) + "▦" ;
			data1 = data1 + utlf_transNullToEmpty(ds_tempFilterDs.getColumn(Ro, "prcpyn")) + "▦" ;
			data1 = data1 + utlf_transNullToEmpty(ds_tempFilterDs.getColumn(Ro, "reptrslt")) + "▦" ;
			data1 = data1 + utlf_transNullToEmpty(ds_tempFilterDs.getColumn(Ro, "bcno")) + "▦▩" ;
		
			ds_send.setColumn(0, "prcpcd", utlf_transNullToEmpty(ds_tempFilterDs.getColumn(Ro, "prcpcd")));
			ds_send.setColumn(0, "reptrslt", utlf_transNullToEmpty(ds_tempFilterDs.getColumn(Ro, "reptrslt")));			
		}
      ds_send.setColumn(0, "data1", data1);		
	}	


	
//	var nRowCnt;
//    nRowCnt = ds_send.copyData(ds_tempFilterDs);
//     ds_send.addColumn("pid","string");
//     ds_send.addColumn("ioflag","string");
//     ds_send.setColumn(0, "bcno", utlf_transNullToEmpty(ds_send.getColumn(0, "bcno")));
    
       
    ds_send.setColumn(0, "pid", ds_patinfo.getColumn(0, "pid"));
	ds_send.setColumn(0, "ioflag", ds_patinfo.getColumn(0, "ioflag"));
	//trace(data1);
	//return ;
	
// 	ds_temp_search.saveXML());
// 	alert(grdInfo);
//	trace(ds_send.saveXML());
	
	
	var oParam = {};
		oParam.id          = "TXLMR90901";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqExeMicroAddPrcplist";
		oParam.inds        = "cond=ds_send prcplist=ds_send";
		oParam.outds       = "ds_dethmsg=dethmsg";
		oParam.transaction = false;
		oParam.async       = false;
		//oParam.callback    = "cf_TRLMR90801";
	tranf_submit(oParam);
	
	if(ds_dethmsg.getColumn(0, "dethyn") == "Y")
	{
		sysf_messageBox(ds_dethmsg.getColumn(0, "msg"), "I");
	}
	//}

	
   //submit("TRLMR90901");
	var oParam = {};
		oParam.id          = "TRLMR90801";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqGetMicroAddPrcplist";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_grd_prcplist=getMicroAddPrcplist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLMR90801";
	tranf_submit(oParam);
  
/*	
	var oParam = {};
		oParam.id          = "TRLMR90801";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqGetMicroAddPatInfo";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_patinfo=getMicroAddPatInfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLMR90801";
	tranf_submit(oParam);
*/
}]]></Script>
  </Form>
</FDL>