YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO11300_연속처방DC.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO11300" position="absolute 0 0 230 200" titletext="연속처방DC" oninit="SPMMO11300_oninit" onload="SPMMO11300_onload">
    <Layouts>
      <Layout>
        <Grid position="absolute 6 5 222 167" id="datagrid1" binddataset="ds_prcp_prcplist" autofittype="col" oncellclick="datagrid1_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="72"/>
                <Column size="111"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="normal"/>
                <Cell col="1" displaytype="normal" text="상태"/>
                <Cell col="2" text="처방일"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:status" expr="expr:(status == &quot;C&quot; || diagkindcd == 1) ? 1 : 0"/>
                <Cell col="1" displaytype="combo" edittype="combo" style="align:center;" text="bind:execprcpstatcd" combodataset="ds_M0011" combocodecol="cdid" combodatacol="cdnm" combodisplayrowcount="20"/>
                <Cell col="2" style="align:center;" text="bind:actorddd" mask="####-##-##"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape position="absolute 6 0 222 6" linetype="vertical" id="line7" class="line_1"/>
        <Button position="absolute 108 173 164 195" id="button1" class="btn4" text="D/C" onclick="button1_onclick"/>
        <Button position="absolute 167 173 223 195" id="button2" class="btn4" text="취소" onclick="button2_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_datagrid1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING"/>
          <Column id="execprcpstatcd" type="STRING"/>
          <Column id="actorddd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_prcp_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_prcp_prcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="actorddd" type="STRING" size="256"/>
          <Column id="execprcpstatcd" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="execprcpno" type="STRING" size="256"/>
          <Column id="actcretno" type="STRING" size="256"/>
          <Column id="execprcpuniqno" type="STRING" size="256"/>
          <Column id="rcptdd" type="STRING" size="256"/>
          <Column id="keyval" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcphistno" type="STRING" size="256"/>
          <Column id="clamdd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_reset_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="actorddd" type="STRING" size="256"/>
          <Column id="execprcpstatcd" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="execprcpno" type="STRING" size="256"/>
          <Column id="actcretno" type="STRING" size="256"/>
          <Column id="execprcpuniqno" type="STRING" size="256"/>
          <Column id="rcptdd" type="STRING" size="256"/>
          <Column id="keyval" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcphistno" type="STRING" size="256"/>
          <Column id="clamdd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpstatcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_M0011" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <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";
include "emr_prcpmngtxp::MMO001.xjs";

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

function SPMMO11300_onload(obj:Form, e:LoadEventInfo)
{
	//zbcfGetCodeList(new Array( "M0011" ), new Array("/root/init/prcpstatcd"));				    
	var arrParam = [{dsNm: "ds_M0011", cdGrpId: "M0011"}]	
	appf_getCodeList(arrParam);
				
	var currow = opener.ds_prcpsrch_prcplist.rowposition;
	
	var contprcpspec =  opener.ds_prcpsrch_prcplist.getColumn(currow, "contprcpspec");	//opener.model.getValue ( "/root/prcpsrch/prcplist[" + opener.grd_bfprcplist.row+ "]/contprcpspec" );
	var prcplen = contprcpspec.split("^").length;
	var status = "";
	var actorddd = "";
	var actcretno = "";
	var execprcpstatcd = "";
	var prcpdd = "";
	var execprcpno = "";
	var rcptdd = "";
	var keyval = "";
	var prcpno = "";
	var prcphistno = "";
	var clamdd = "";
	
	ds_prcp_prcplist.clearData();	//model.removeNodeset ( "/root/prcp/prcplist" );
	
	for ( var i = 1; i < prcplen; i++ ) {	// 인덱스 1부터?	var i = 1; i < prcplen; i++
		ds_prcp_prcplist.addRow();
		status = lf_getArrayData ( contprcpspec, i, 0, "^", "|" );
		actorddd = lf_getArrayData ( contprcpspec, i, 1, "^", "|" );
		actcretno = lf_getArrayData ( contprcpspec, i, 2, "^", "|" );
		execprcpstatcd = lf_getArrayData ( contprcpspec, i, 3, "^", "|" );
		prcpdd = lf_getArrayData ( contprcpspec, i, 4, "^", "|" );		   		    			   		    			   		    			   		    
		execprcpno = lf_getArrayData ( contprcpspec, i, 5, "^", "|" );		
		execprcpuniqno = lf_getArrayData ( contprcpspec, i, 6, "^", "|" );	
		rcptdd = lf_getArrayData ( contprcpspec, i, 7, "^", "|" );				   		    
		keyval = lf_getArrayData ( contprcpspec, i, 8, "^", "|" );				   		    
		prcpno = lf_getArrayData ( contprcpspec, i, 9, "^", "|" );				   		    
		prcphistno = lf_getArrayData ( contprcpspec, i, 10, "^", "|" );	
		clamdd = lf_getArrayData ( contprcpspec, i, 11, "^", "|" );				   		    
																																
		lf_appendChildPrcp ( "ds_reset_prcplist", "ds_prcp_prcplist", "main" );	//appendChildPrcp ( "/root/reset/prcplist", "/root/prcp", "main" );
		
		ds_prcp_prcplist.setColumn(i - 1 , "status", status);	
		ds_prcp_prcplist.setColumn(i - 1 , "actorddd", actorddd);
		ds_prcp_prcplist.setColumn(i - 1, "actcretno", actcretno);
		ds_prcp_prcplist.setColumn(i - 1, "execprcpstatcd", execprcpstatcd);
		ds_prcp_prcplist.setColumn(i - 1, "prcpdd", prcpdd);
		ds_prcp_prcplist.setColumn(i - 1, "execprcpno", execprcpno);
		ds_prcp_prcplist.setColumn(i - 1, "execprcpuniqno", execprcpuniqno);
		ds_prcp_prcplist.setColumn(i - 1, "rcptdd", rcptdd);	
		ds_prcp_prcplist.setColumn(i - 1, "keyval", keyval);	
		ds_prcp_prcplist.setColumn(i - 1, "prcpno", prcpno);	
		ds_prcp_prcplist.setColumn(i - 1, "prcphistno", prcphistno);
		ds_prcp_prcplist.setColumn(i - 1, "clamdd", clamdd);	
		
	}							
}

function datagrid1_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	//if( datagrid1.isCell(event.target) && datagrid1.row >= datagrid1.fixedRows ){			
		if ( e.col != 0 && e.col != 1  ) {	// 	datagrid1.col != 0 
			if ( ds_prcp_prcplist.getColumn(ds_prcp_prcplist.rowposition, "status") == "-" ) {	// model.getValue ( "/root/prcp/prcplist["+ datagrid1.row +"]/status" )
				ds_prcp_prcplist.setColumn(ds_prcp_prcplist.rowposition, "status", "C");	//model.setValue ( "/root/prcp/prcplist["+ datagrid1.row +"]/status", "C" );
			} else {
				ds_prcp_prcplist.setColumn(ds_prcp_prcplist.rowposition, "status", "-");	//model.setValue ( "/root/prcp/prcplist["+ datagrid1.row +"]/status", "-" );						
			}
		} 
	//}
	//model.refresh();
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var contprcpspec = "status|actorddd|actcretno|execprcpstatcd|prcpdd|execprcpno|execprcpuniqno|rcptdd|keyval|prcpno|prcphistno|clamdd";
	var dccnt = 0;
	var statcdcnt = 0;
	for ( var i = 0; i < ds_prcp_prcplist.rowcount; i++ ) {	// var i = 1; i < datagrid1.rows; i++
		if ( ds_prcp_prcplist.getColumn(i, "status") == "C" ) {	// model.getValue ( "/root/prcp/prcplist[" + i + "]/status" )
			dccnt++;
			//수납후 반환시 메세지창
			var pamstatus = ds_prcp_prcplist.getColumn(i, "execprcpstatcd");	//model.getValue ( "/root/prcp/prcplist[" + i + "]/execprcpstatcd");
			if (pamstatus >= "230") statcdcnt++;
		}
		
		contprcpspec = contprcpspec + "^" + ds_prcp_prcplist.getColumn(i, "status") + "|";	
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "actorddd") + "|";
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "actcretno") + "|";                                                
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "execprcpstatcd") + "|";
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "prcpdd") + "|";
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "execprcpno") + "|";                       
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "execprcpuniqno") + "|";
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "rcptdd") + "|";		
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "keyval") + "|";
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "prcpno") + "|";
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "prcphistno") + "|";		
		contprcpspec = contprcpspec + ds_prcp_prcplist.getColumn(i, "clamdd");				                        
																		
	}
	
	if ( dccnt == 0 ) {
		alert ( "선택된 D/C 처방이 없습니다." );
		return;
	}

	//수납후 반환시 메세지창
	var prcpgenrflag = 	opener.frmf_getParameter( "SMMM02100_prcpgenrflag" );	//opener.javascript.getParameter( "SMMM02100_prcpgenrflag" );
	if ((prcpgenrflag == "O") && (statcdcnt != 0)) {
		if (sysf_messageBox ( "수납이 완료된 환자입니다. 처방을 수정하시겠습니까? \n 수정하신 후에는 환자에게 재수납하실 것을 설명해 주시기 바랍니다.", "Q" ) != "6" ) {
			return;
		}
	}

	sysf_trace("opener.ds_prcpsrch_prcplist.rowposion : " + opener.ds_prcpsrch_prcplist.rowposition);
	opener.ds_prcpsrch_prcplist.setColumn(opener.ds_prcpsrch_prcplist.rowposition, "chkcol", "D");	// 	opener.model.setValue ( "/root/prcpsrch/prcplist[" + opener.grd_bfprcplist.row+ "]/chkcol", "D" );				 
	opener.ds_prcpsrch_prcplist.setColumn(opener.ds_prcpsrch_prcplist.rowposition, "contprcpspec", contprcpspec);	// 	opener.model.setValue ( "/root/prcpsrch/prcplist[" + opener.grd_bfprcplist.row+ "]/contprcpspec", contprcpspec );	
		// 	opener.model.refresh();		 
	close();	
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	close();
}

function ds_prcp_prcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	var currow = e.row;
	if(e.columnid == "status")
		obj.setColumn(currow, e.columnid, (e.newvalue == "C" || e.newvalue == 1) ? "C" : "-");
}
]]></Script>
  </Form>
</FDL>