YNU_JEUS/app_home/himed/xpapps/emr/opanstxp/xp/SMMNP03500.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[function fInit() 
{
	var iRows = -1;
	var ccrtstat;
	var cnt = 0;

    var openflag = ds_main_cond.getColumn(0, "openflag");
    
    if( openflag == "CCR" ) 
    {
    	btn_listprn.position.left = 1024;
		btn_listprn.position.width = 64;
		btn_listprn.position.right = 1088;
		
		btn_excel.position.left = 1090;
		btn_excel.position.right = 1151;
		btn_excel.position.width = 61;
		
		btn_rtn.position.left = 1152;
		btn_rtn.position.right = 1195;
		btn_rtn.position.width = 42;
		
		btn_rtnprn.position.left = 903;
		btn_rtnprn.position.right = 1022;
		btn_rtnprn.position.width = 119;
		
    	btn_cnclrtn.visible = false;
    	btn_rtn.visible = true;
    }

    var curtDate = utlf_getCurrentDate();
	curtDate   = String(curtDate).substr(0, 8);
	
	ds_main_cond.setColumn(0, "opdd", curtDate);

	var oParam = {};
		oParam.id          = "TRMNP03004";
		oParam.service     = "opanstapp.OpAnstStocMngt";
		oParam.method      = "reqGetRosettelist";
		oParam.inds        = "";
		oParam.outds       = "ds_init_rosettelist=rosettelist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNP03004";

	tranf_submit(oParam);

	frmf_addComboItem("grp_sea.cmb_rosette","전 체","","above");
	
	dsf_makeValue(ds_send, "opcnfmdd", "string", ds_main_cond.getColumn(0, "opdd"), 0);
	dsf_makeValue(ds_send, "rosette", "string", ds_main_cond.getColumn(0, "rosette"), 0);
	
	var oParam = {};
		oParam.id          = "TRMNP03002";
		oParam.service     = "opanstapp.OpAnstCCrtGoodMngt";
		oParam.method      = "reqGetOmcdlist";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_oproomlist=oproomlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNP03002";

	tranf_submit(oParam);
	frmf_addComboItem("grp_sea.cmb_oproomlist","전체","","above");
		
	ds_main_castcartrtnmngtlist.clearData();
	
// 	grd_casecartrtnmngtlist.fixedcellcheckbox(0, 1) = true;
// 	grd_casecartrtnmngtlist.fixedcellcheckbox(0, 2) = true;
//	grd_casecartrtnmngtlist.explorerbar   = "sort";


	var oParam = {};
		oParam.id          = "TRMNP03502";
		oParam.service     = "opanstapp.OpAnstStocMngt";
		oParam.method      = "reqGetCaseCartRtnList";
		oParam.inds        = "reqdata=ds_main_cond";
		oParam.outds       = "ds_main_castcartrtnmngtlist=castcartrtnmngtlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNP03502";

	tranf_submit(oParam);
}

function fSearch()
{
	var iRows = -1;
	var ccrtstat;

	chk_prntflag.value = false;
	chk_rtnflag.value = false;
	
	var oParam = {};
		oParam.id          = "TRMNP03502";
		oParam.service     = "opanstapp.OpAnstStocMngt";
		oParam.method      = "reqGetCaseCartRtnList";
		oParam.inds        = "reqdata=ds_main_cond";
		oParam.outds       = "ds_main_castcartrtnmngtlist=castcartrtnmngtlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNP03502";

	tranf_submit(oParam);
}

function fSaveRtn()
{
	var iRows = -1;
	var rtnflag, oprsrvno, oproomnm, oproomcd, ccrtstat, cartgubn, opstatcd;
	var opdd, roomcd, orddept, perfdr, pid, patnm, sa, diagnm, opnm;
	var cnt = 0;
	var instcd = sysf_getUserInfo("dutplceinstcd");

	iRows = ds_main_castcartrtnmngtlist.rowcount;
	var casecartrtnmngtlist = "status▦rownum▦oprsrvno▦oproomcd▦cartgubn▦ccrtstat▦opstatcd";

	for( var i = 0; i < iRows; i++ ) 
	{
		cartgubn    = ds_main_cond.getColumn(0, "cartgubn");
		rtnflag		= ds_main_castcartrtnmngtlist.getColumn(i, "rtnflag");
		oprsrvno    = ds_main_castcartrtnmngtlist.getColumn(i, "oprsrvno");
		oproomcd    = ds_main_castcartrtnmngtlist.getColumn(i, "oproomcd");
		opstatcd    = ds_main_castcartrtnmngtlist.getColumn(i, "opstatcd");
		ccrtstat    = ds_main_castcartrtnmngtlist.getColumn(i, "ccrtstat");
		
		if( rtnflag == "true" && ( ccrtstat == "5" || (ccrtstat == "3" && (opstatcd=="19"||opstatcd=="29"||opstatcd=="39")) ) )
		{
			casecartrtnmngtlist = casecartrtnmngtlist 	+ "▩" + "u" + "▦" +  parseInt(i+1) + "▦" + oprsrvno  + "▦" + oproomcd + "▦" + cartgubn + "▦" + "9" + "▦" + opstatcd +"▩"; 
			cnt += 1;
		}
	}

	if( cnt > 0 ) 
	{
		ds_send_savedata.clearData();
		dsf_setCSVToDs("ds_send_savedata", casecartrtnmngtlist);
		trace(ds_send_savedata.saveXML());
		dsf_setDefaultVal(ds_send_savedata, "opstatcd:50");

		var oParam = {};
			oParam.id          = "TXMNP03501";
			oParam.service     = "opanstapp.OpAnstStocMngt";
			oParam.method      = "reqSetCaseCartRtn";
			oParam.inds        = "reqdata=ds_main_cond savedata=ds_send_savedata";
			oParam.outds       = "ds_main_castcartrtnmngtlist=castcartrtnmngtlist";
			oParam.typeStr     = "m";
			oParam.async       = false;
			//oParam.callback    = "cf_TXMNP03501";

		tranf_submit(oParam);
	}
	else 
	{
		sysf_messageBox("선택한것이", "I004");
	}
}

function fCnclRtn() 
{
	var iRows = -1;
	var rtnflag, oprsrvno, oproomnm, oproomcd, ccrtstat, cartgubn, opstatcd;
	var opdd, roomcd, orddept, perfdr, pid, patnm, sa, diagnm, opnm;
	var cnt = 0;
	var instcd = sysf_getUserInfo("dutplceinstcd");

	iRows = ds_main_castcartrtnmngtlist.rowcount;
	var casecartrtnmngtlist = "status▦rownum▦oprsrvno▦oproomcd▦cartgubn▦ccrtstat▦opstatcd";

	for( var i = 0; i < iRows; i++ ) 
	{
		rtnflag		= ds_main_castcartrtnmngtlist.getColumn(i, "rtnflag");
		oprsrvno    = ds_main_castcartrtnmngtlist.getColumn(i, "oprsrvno");
		oproomcd    = ds_main_castcartrtnmngtlist.getColumn(i, "oproomcd");
		ccrtstat    = ds_main_castcartrtnmngtlist.getColumn(i, "ccrtstat");
		opstatcd    = ds_main_castcartrtnmngtlist.getColumn(i, "opstatcd");
		cartgubn    = ds_main_cond.getColumn(0, "cartgubn");

		if( ( rtnflag == "true" )&&( ccrtstat == "9" ) )
		{		
			casecartrtnmngtlist = casecartrtnmngtlist 	+ "▩" + "c" + "▦" +  i + "▦" + oprsrvno  + "▦" + oproomcd + "▦" + cartgubn + "▦" + "5" + "▦" + opstatcd +"▩"; 
			cnt += 1;
		}
	}

	if( cnt > 0 ) 
	{
		ds_send_savedata.clearData();
		dsf_setCSVToDs("ds_send_savedata", casecartrtnmngtlist);
		
		var oParam = {};
			oParam.id          = "TXMNP03501";
			oParam.service     = "opanstapp.OpAnstStocMngt";
			oParam.method      = "reqSetCaseCartRtn";
			oParam.inds        = "reqdata=ds_main_cond savedata=ds_send_savedata";
			oParam.outds       = "ds_main_castcartrtnmngtlist=castcartrtnmngtlist";
			oParam.typeStr     = "m";
			oParam.async       = false;
			//oParam.callback    = "cf_TXMNP03501";

		tranf_submit(oParam);
	}
	else 
	{
		sysf_messageBox("선택한것이", "I004");
	}
}

function fPrntCartRtnHist() 
{
	var iRows = -1;
	var prntflag, oprsrvno, opdd, oproomcd, roomcd, orddept, perfdr, pid, patnm, sa, diagnm, opnm, prntgood, prntinstr, prntcst, prntpad;
	var cnt = 0;
	iRows = ds_main_castcartrtnmngtlist.rowcount;
	var instcd = sysf_getUserInfo("dutplceinstcd");
	var usernm = sysf_getUserInfo("usernm");

    prntgood  = ds_main_cond.getColumn(0, "prntgood");
    prntinstr = ds_main_cond.getColumn(0, "prntinstr");
    prntcst   = ds_main_cond.getColumn(0, "prntcst");
    prntpad   = ds_main_cond.getColumn(0, "prntpad");
    
    if(utlf_isNull(prntgood) && utlf_isNull(prntinstr) && utlf_isNull(prntcst) && utlf_isNull(prntpad))
    {
        sysf_messageBox("출력할 구분을 선택하세요.", "E000");
        return;
    }

	var curtDate = String(utlf_getCurrentDate());
	curtDate  = curtDate.substr(0, 4) +"/"+ curtDate.substr(4, 2) +"/"+ curtDate.substr(6, 2);
	
	ds_send_report.clearData();
		
	for( var i = 0; i < iRows; i++ ) 
	{
		if( ds_main_castcartrtnmngtlist.getColumn(i, "prntflag") == "true") 
		{
			var objParam = new Object();								 				
			var option = "open=1;save=1;directprint=1;print=1;zoom=0;printdialog=0";
			
			objParam.oprsrvno = ds_main_castcartrtnmngtlist.getColumn(i, "oprsrvno");
			objParam.opdd = ds_main_cond.getColumn(0, "opdd");
			
			objParam.oproomnm = ds_main_castcartrtnmngtlist.getColumn(i, "oproomnm");
			objParam.roomcd = ds_main_castcartrtnmngtlist.getColumn(i, "roomcd");
			objParam.orddept = ds_main_castcartrtnmngtlist.getColumn(i, "perfdeptabbr");
			objParam.perfdr = ds_main_castcartrtnmngtlist.getColumn(i, "perfnm");
			objParam.pid = ds_main_castcartrtnmngtlist.getColumn(i, "pid");
			objParam.patnm = ds_main_castcartrtnmngtlist.getColumn(i, "patnm");
			objParam.sa = ds_main_castcartrtnmngtlist.getColumn(i, "sa");
			objParam.optype = ds_main_castcartrtnmngtlist.getColumn(i, "opflag");
			objParam.opnm = ds_main_castcartrtnmngtlist.getColumn(i, "opnm");
			objParam.patflagcd = ds_main_castcartrtnmngtlist.getColumn(i, "patflagcd");
			objParam.opfromtm = ds_main_castcartrtnmngtlist.getColumn(i, "tm");
			objParam.disp1 = ds_main_castcartrtnmngtlist.getColumn(i, "disp1");
			objParam.disp2 = ds_main_castcartrtnmngtlist.getColumn(i, "disp2");
			objParam.disp3 = ds_main_castcartrtnmngtlist.getColumn(i, "disp3");				

			objParam.prntdd = curtDate;
			objParam.usernm = usernm;
			objParam.instcd = instcd;
			objParam.cartgubn = ds_main_cond.getColumn(0, "cartgubn");
			objParam.prntinstr = prntinstr;
			objParam.prntcst = prntcst;
			objParam.prntpad = prntpad;		

            if( prntgood == "G" )
            {				
				rptf_exeReportPreview30(["RPMNP03500"],[objParam], option);
	 		}
	 		if( prntinstr == "I"||prntcst == "C"||prntpad == "P" ) 
	 		{				
				rptf_exeReportPreview30(["RPMNP03501"],[objParam], option);
	 		}
	 	}
	}
}

function fDblClick() 
{
	var iRow = -1;
	var iRows = -1;
	iRow = ds_main_castcartrtnmngtlist.rowposition;
	iRows = ds_main_castcartrtnmngtlist.rowcount;

	if( ( iRow < 0 )||( iRow > iRows ) ) 
	{
		return;
	}
	else
	{
        var patnm        = ds_main_castcartrtnmngtlist.getColumn(iRow, "patnm");
        var pid          = ds_main_castcartrtnmngtlist.getColumn(iRow, "pid");
        var roomcd       = ds_main_castcartrtnmngtlist.getColumn(iRow, "roomcd");
        var sa           = ds_main_castcartrtnmngtlist.getColumn(iRow, "sa");
        var perfdeptabbr = ds_main_castcartrtnmngtlist.getColumn(iRow, "perfdeptabbr");
        var perfnm       = ds_main_castcartrtnmngtlist.getColumn(iRow, "perfnm");
        var opnm         = ds_main_castcartrtnmngtlist.getColumn(iRow, "opnm");
        var oproomnm     = ds_main_castcartrtnmngtlist.getColumn(iRow, "oproomnm");
        var wardnm       = ds_main_castcartrtnmngtlist.getColumn(iRow, "wardnm");
        var optype       = ds_main_castcartrtnmngtlist.getColumn(iRow, "opflag");
        var tm           = ds_main_castcartrtnmngtlist.getColumn(iRow, "tm");
        var patinfo      = wardnm + "  " + roomcd + "  " + patnm + "  " + sa + "  " + pid;
        var opcnfmdd     = ds_main_castcartrtnmngtlist.getColumn(iRow, "opcnfmdd");
        var opinfo       = perfdeptabbr + "  " + oproomnm + "  " + perfnm + "  " + opnm;
        var disp1 	     = ds_main_castcartrtnmngtlist.getColumn(iRow, "disp1");
		var disp2 	     = ds_main_castcartrtnmngtlist.getColumn(iRow, "disp2");
		var disp3 	     = ds_main_castcartrtnmngtlist.getColumn(iRow, "disp3");
		var patflagcd 	 = ds_main_castcartrtnmngtlist.getColumn(iRow, "patflagcd");
		var ccrtstat     = ds_main_castcartrtnmngtlist.getColumn(iRow, "ccrtstat");
		var oproomcd     = ds_main_castcartrtnmngtlist.getColumn(iRow, "oproomcd");
		var opstatcd     = ds_main_castcartrtnmngtlist.getColumn(iRow, "opstatcd");

        if( ccrtstat == "4" ) 
        {
            sysf_messageBox("Cart 상태가 처방입니다. 수술방에 확인해 주세요.!", "I000");
            return;
        }

        frmf_setParameter("patinfo", patinfo);
        frmf_setParameter("opcnfmdd", opcnfmdd);
        frmf_setParameter("opinfo", opinfo);
        frmf_setParameter("patnm", patnm);
        frmf_setParameter("pid", pid);
        frmf_setParameter("roomcd", roomcd);
        frmf_setParameter("sa", sa);
        frmf_setParameter("perfdeptabbr", perfdeptabbr);
        frmf_setParameter("opnm", opnm);
        frmf_setParameter("perfnm", perfnm);
        frmf_setParameter("oproomnm", oproomnm);
        frmf_setParameter("wardnm", wardnm);
        frmf_setParameter("optype", optype);
        frmf_setParameter("patflagcd", patflagcd);
        frmf_setParameter("disp1", disp1);
        frmf_setParameter("disp2", disp2);
        frmf_setParameter("disp3", disp3);
        frmf_setParameter("tm", tm);
        frmf_setParameter("oproomcd", oproomcd);
        frmf_setParameter("opstatcd", opstatcd);
        frmf_setParameter("ccrtstat", ccrtstat);
        
		frmf_setParameter("oprsrvno", ds_main_castcartrtnmngtlist.getColumn(iRow, "oprsrvno"));
		frmf_setParameter("opdd",     ds_main_cond.getColumn(0, "opdd"));
		frmf_setParameter("cartgubn", ds_main_cond.getColumn(0, "cartgubn"));

        var openflag = ds_main_cond.getColumn(0, "openflag");
        
        if( openflag == "CCR" ) 
        {
			frmf_modal("SMMNP03600", "SMMNP03600","", "", "", "", "", "", "", "", "", "", "M");
		}
		else 
		{
			frmf_modal("SMMNP03810", "SMMNP03810","", "", "", "", "", "", "", "", "", "", "M");
		}
	}
}

function fSelPrntCartRtnHist(flag) {

	var prntflag, oprsrvno, opdd, oproomcd, roomcd, orddept, perfdr, pid, patnm, sa, diagnm, opnm, prntgood, prntinstr, prntcst, prntpad;
	var instcd = sysf_getUserInfo("dutplceinstcd");
	var usernm = sysf_getUserInfo("usernm");

    prntgood  = ds_main_cond.getColumn(0, "prntgood");
    prntinstr = ds_main_cond.getColumn(0, "prntinstr");
    prntcst   = ds_main_cond.getColumn(0, "prntcst");
    prntpad   = ds_main_cond.getColumn(0, "prntpad");
    if( utlf_isNull(prntgood) && utlf_isNull(prntinstr) && utlf_isNull(prntcst) && utlf_isNull(prntpad) ) {
        sysf_messageBox("출력할 구분을 선택하세요.", "E000");
        return;
    }

	var curtDate = utlf_getCurrentDate();
	curtDate  = curtDate.substr(0, 4) +"/"+ curtDate.substr(4, 2) +"/"+ curtDate.substr(6, 2);
	ds_send_report.clearData();
	ds_send_report.addRow();

	ds_send_report.setColumn(0, "oprsrvno", 	ds_main_cond.getColumn(0, "oprsrvno"));
	ds_send_report.setColumn(0, "opdd", 		ds_main_cond.getColumn(0, "opdd"));
	ds_send_report.setColumn(0, "oproomnm", 	ds_main_cond.getColumn(0, "oproomnm"));
	ds_send_report.setColumn(0, "roomcd", 	ds_main_cond.getColumn(0, "roomcd"));
	ds_send_report.setColumn(0, "orddept", 	ds_main_cond.getColumn(0, "perfdeptabbr"));
	ds_send_report.setColumn(0, "perfdr", 	ds_main_cond.getColumn(0, "perfnm"));
	ds_send_report.setColumn(0, "pid", 		ds_main_cond.getColumn(0, "pid"));
	ds_send_report.setColumn(0, "patnm", 		ds_main_cond.getColumn(0, "patnm"));
	ds_send_report.setColumn(0, "sa", 		ds_main_cond.getColumn(0, "sa"));
	ds_send_report.setColumn(0, "optype", 	ds_main_cond.getColumn(0, "optype"));
	ds_send_report.setColumn(0, "opnm", 		ds_main_cond.getColumn(0, "opnm"));
	ds_send_report.setColumn(0, "patflagcd", 	ds_main_cond.getColumn(0, "patflagcd"));
	ds_send_report.setColumn(0, "opfromtm", 	ds_main_cond.getColumn(0, "tm"));
	ds_send_report.setColumn(0, "disp1", 	    ds_main_cond.getColumn(0, "disp1"));
	ds_send_report.setColumn(0, "disp2", 	    ds_main_cond.getColumn(0, "disp2"));
	ds_send_report.setColumn(0, "disp3", 	    ds_main_cond.getColumn(0, "disp3"));
	ds_send_report.setColumn(0, "prntdd", 	curtDate);
	ds_send_report.setColumn(0, "usernm", 	usernm);
	ds_send_report.setColumn(0, "instcd", 	instcd);
	ds_send_report.setColumn(0, "cartgubn", 	ds_main_cond.getColumn(0, "cartgubn"));
	ds_send_report.setColumn(0, "prntinstr", 	prntinstr);
	ds_send_report.setColumn(0, "prntcst", 	prntcst);
	ds_send_report.setColumn(0, "prntpad", 	prntpad);


    if( prntgood == "G" ) {
    	if(flag == "2") {
			var objDOM = rptf_createDOM();				                													// DOM 객체 설정	
			rptf_setNodeListToDOM(objDOM, "/root/main/cond", ds_main_cond);									// 데이터셋 1
			rptf_setNodeListToDOM(objDOM, "/root/send/report", ds_send_report);									// 데이터셋 1
			rptf_setNodeListToDOM(objDOM, "/root/main/gooddetllist/suturelist", ds_main_gooddetllist_suturelist);									// 데이터셋 1
			rptf_setNodeListToDOM(objDOM, "/root/main/gooddetllist/supplieslist", ds_main_gooddetllist_supplieslist);									// 데이터셋 1
			rptf_setNodeListToDOM(objDOM, "/root/main/gooddetllist/sheetlist", ds_main_gooddetllist_sheetlist);									// 데이터셋 1
			rptf_setNodeListToDOM(objDOM, "/root/main/gooddetllist/glovelist", ds_main_gooddetllist_glovelist);									// 데이터셋 1
			
			var objParam = new Object();
				objParam.xml_data_XML1 = objDOM.documentElement.source;													// 최상의노드 XML 스트링 추출
				
			var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0;";
			
			rptf_exeReportPreview30(["RPMNP03600"],[objParam], option);
    		//exeReportPreview("RPMNP03600", "XMLSTR", "", "", "true", "", "", "", "", "true", "", "");
    	} else {
			var objParam = new Object();								 				
			var option = "open=1;save=1;directprint=1;print=1;zoom=0;printdialog=0";
			
			objParam.oprsrvno = ds_main_castcartrtnmngtlist.getColumn(i, "oprsrvno");
			objParam.opdd = ds_main_cond.getColumn(0, "opdd");
			
			objParam.oproomnm = ds_main_castcartrtnmngtlist.getColumn(i, "oproomnm");
			objParam.roomcd = ds_main_castcartrtnmngtlist.getColumn(i, "roomcd");
			objParam.orddept = ds_main_castcartrtnmngtlist.getColumn(i, "perfdeptabbr");
			objParam.perfdr = ds_main_castcartrtnmngtlist.getColumn(i, "perfnm");
			objParam.pid = ds_main_castcartrtnmngtlist.getColumn(i, "pid");
			objParam.patnm = ds_main_castcartrtnmngtlist.getColumn(i, "patnm");
			objParam.sa = ds_main_castcartrtnmngtlist.getColumn(i, "sa");
			objParam.optype = ds_main_castcartrtnmngtlist.getColumn(i, "opflag");
			objParam.opnm = ds_main_castcartrtnmngtlist.getColumn(i, "opnm");
			objParam.patflagcd = ds_main_castcartrtnmngtlist.getColumn(i, "patflagcd");
			objParam.opfromtm = ds_main_castcartrtnmngtlist.getColumn(i, "tm");
			objParam.disp1 = ds_main_castcartrtnmngtlist.getColumn(i, "disp1");
			objParam.disp2 = ds_main_castcartrtnmngtlist.getColumn(i, "disp2");
			objParam.disp3 = ds_main_castcartrtnmngtlist.getColumn(i, "disp3");				

			objParam.prntdd = curtDate;
			objParam.usernm = usernm;
			objParam.instcd = instcd;
			objParam.cartgubn = ds_main_cond.getColumn(0, "cartgubn");
			objParam.prntinstr = prntinstr;
			objParam.prntcst = prntcst;
			objParam.prntpad = prntpad;	
			
			rptf_exeReportPreview30(["RPMNP03500"],[objParam], option);
	    	//exeReportPreview("RPMNP03500", "XML", "/root/send/report", "", "true", "", "", "", "", "true", "", "");
	    }
	}
	if( prntinstr == "I"||prntcst == "C"||prntpad == "P" ) {
		var objParam = new Object();								 				
		var option = "open=1;save=1;directprint=1;print=1;zoom=0;printdialog=0";
		
		objParam.oprsrvno = ds_main_castcartrtnmngtlist.getColumn(i, "oprsrvno");
		objParam.opdd = ds_main_cond.getColumn(0, "opdd");
		
		objParam.oproomnm = ds_main_castcartrtnmngtlist.getColumn(i, "oproomnm");
		objParam.roomcd = ds_main_castcartrtnmngtlist.getColumn(i, "roomcd");
		objParam.orddept = ds_main_castcartrtnmngtlist.getColumn(i, "perfdeptabbr");
		objParam.perfdr = ds_main_castcartrtnmngtlist.getColumn(i, "perfnm");
		objParam.pid = ds_main_castcartrtnmngtlist.getColumn(i, "pid");
		objParam.patnm = ds_main_castcartrtnmngtlist.getColumn(i, "patnm");
		objParam.sa = ds_main_castcartrtnmngtlist.getColumn(i, "sa");
		objParam.optype = ds_main_castcartrtnmngtlist.getColumn(i, "opflag");
		objParam.opnm = ds_main_castcartrtnmngtlist.getColumn(i, "opnm");
		objParam.patflagcd = ds_main_castcartrtnmngtlist.getColumn(i, "patflagcd");
		objParam.opfromtm = ds_main_castcartrtnmngtlist.getColumn(i, "tm");
		objParam.disp1 = ds_main_castcartrtnmngtlist.getColumn(i, "disp1");
		objParam.disp2 = ds_main_castcartrtnmngtlist.getColumn(i, "disp2");
		objParam.disp3 = ds_main_castcartrtnmngtlist.getColumn(i, "disp3");				

		objParam.prntdd = curtDate;
		objParam.usernm = usernm;
		objParam.instcd = instcd;
		objParam.cartgubn = ds_main_cond.getColumn(0, "cartgubn");
		objParam.prntinstr = prntinstr;
		objParam.prntcst = prntcst;
		objParam.prntpad = prntpad;	
		
		rptf_exeReportPreview30(["RPMNP03501"],[objParam], option);
	    //exeReportPreview("RPMNP03501", "XML", "/root/send/report", "", "true", "", "", "", "", "true", "", "");
	}
}]]></Script>