YNU_JEUS/app_home/himed/xpapps/pam/bfjudgcarexp/xp/SMPPI00400_환자별약제관리.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml" />
  <Form id="SMPPI00400" position="absolute 0 0 1280 1024" titletext="환자별약제관리" onload="SMPPI00400_onload">
    <Layouts>
      <Layout>
        <Div id="group1" position="absolute 0 0 1211 13" style="">
          <Layouts>
            <Layout>
              <Static id="caption6" class="tit_1" position="absolute 0 0 155 14" style="" text="환자별 약제관리" />
            </Layout>
          </Layouts>
        </Div>
        <Div id="group3" scrollbars="autoboth" position="absolute 0 13 1211 745" style="">
          <Layouts>
            <Layout>
              <Div id="group2" position="absolute 0 10 1211 50" style="align: top;">
                <Layouts>
                  <Layout>
                    <Shape id="roundrect1" anchor="default" type="roundrectangle" position="absolute 0 0 1211 40" style="" />
                    <Button id="btn_search" class="btn1_letter2" taborder="6" position="absolute 1130 10 1186 32" style="" text="조회" onclick="group3_group2_btn_search_onclick" />
                    <Shape id="line13" class="line_4" linetype="vertical" position="absolute 1107 7 1110 34" style="" anchor="default" />
                    <Static id="caption5" class="search_name" position="absolute 30 11 116 28" style="" text="환자번호 :" />
                    <Static id="caption2" class="search_name" position="absolute 424 11 510 28" style="" text="제어코드 :" />
                    <Static id="caption3" class="search_name" position="absolute 875 10 961 27" style="" text="수가코드 :" />
                    <Static id="caption4" class="search_name" position="absolute 655 11 741 28" style="" text="적 용 일 :" />
                    <Edit id="ipt_rulecd" class="input_search" visible="false" position="absolute 515 10 618 29" style="" anchor="default" onkeyup="group3_group2_ipt_rulecd_onkeyup" />
                    <Edit id="ipt_prcpcd" class="input_search" visible="false" position="absolute 966 9 1069 28" style="" anchor="default" onkeyup="group3_group2_ipt_prcpcd_onkeyup" />
                    <Calendar id="ipt_aplydd" class="input_search" mask="yyyy-mm-dd" position="absolute 743 10 846 29" style="" anchor="default" onkeyup="group3_group2_ipt_aplydd_onkeyup" />
                    <Button id="button2" class="icon_search" taborder="5" position="absolute 233 11 249 27" style="" text="" onclick="group3_group2_button2_onclick" />
                    <Edit id="ipt_pid" class="input_search" position="absolute 124 10 227 29" style="" anchor="default" />
                    <Edit id="ipt_hngnm" class="input_search" position="absolute 255 10 400 29" style="" anchor="default" />
                  </Layout>
                </Layouts>
              </Div>
              <Static id="caption1" class="tit_2" position="absolute 5 63 162 76" style="" text="환자별 약제관리 List" />
              <Shape id="line1" class="line_1" linetype="horizontal" position="absolute 0 79 1204 82" style="" anchor="default" />
              <Grid id="grd_picmdrrulist" binddataset="ds_main_picmdrrulist" class="datagrid2" position="absolute 0 85 1205 725" style="" onlbuttonup="group3_grd_picmdrrulist_onlbuttonup">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="97" />
                      <Column size="100" />
                      <Column size="80" />
                      <Column size="106" />
                      <Column size="250" />
                      <Column size="75" />
                      <Column size="110" />
                      <Column size="160" />
                      <Column size="100" />
                      <Column size="100" />
                      <Column size="0" />
                    </Columns>
                    <Rows>
                      <Row size="23" band="head" />
                      <Row size="23" />
                    </Rows>
                    <Band id="head">
                      <Cell text="환자번호" />
                      <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="비고" />
                      <Cell col="8" text="시작일" />
                      <Cell col="9" text="종료일" />
                      <Cell col="10" text="기관코드" />
                    </Band>
                    <Band id="body">
                      <Cell text="bind:pid" />
                      <Cell col="1" text="bind:hngnm" />
                      <Cell col="2" text="bind:rulecd" />
                      <Cell col="3" text="bind:prcpcd" />
                      <Cell col="4" text="bind:prcpnm" />
                      <Cell col="5" text="bind:thospdayno" />
                      <Cell col="6" text="bind:orddeptcd" />
                      <Cell col="7" text="bind:remark" />
                      <Cell col="8" text="bind:fromdd" />
                      <Cell col="9" text="bind:todd" />
                      <Cell col="10" text="bind:instcd" />
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button id="button5" class="btn2_letter4" visible="true" position="absolute 1140 57 1204 76" style="" text="엑셀저장" onclick="group3_button5_onclick" />
              <Button id="btn_rowdel" class="btn2_letter3" position="absolute 1084 57 1137 76" style="" text="행삭제" onclick="group3_btn_rowdel_onclick" />
              <Button id="btn_rowadd" class="btn2_letter3" position="absolute 1028 57 1081 76" style="" text="행추가" onclick="group3_btn_rowadd_onclick" />
            </Layout>
          </Layouts>
        </Div>
        <Div id="group4" scrollbars="autoboth" position="absolute 0 744 1211 784" style="">
          <Layouts>
            <Layout>
              <Shape id="line23" class="line_6" linetype="horizontal" position="absolute 0 3 1211 6" style="" anchor="default" />
              <Button id="button1" class="btn4_letter3" position="absolute 1134 10 1202 32" style="" text="저 장" onclick="group4_button1_onclick" />
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_picmrudtlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="rulecd" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="rulecd"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="data2" type="STRING" size="256" />
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="picmdrrulist" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="picmdrrulist"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="calcscorcd" type="STRING" size="256" />
          <Column id="aplydd" type="STRING" size="256" />
          <Column id="sflag" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="calcscorcd"></Col>
            <Col id="aplydd"></Col>
            <Col id="sflag"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="hidden" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="hidden"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_source" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256" />
          <Column id="pid" type="STRING" size="256" />
          <Column id="hngnm" type="STRING" size="256" />
          <Column id="rrgstno1" type="STRING" size="256" />
          <Column id="rrgstno2" type="STRING" size="256" />
          <Column id="acptdd" type="STRING" size="256" />
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" />
          <Column id="rulecd" type="STRING" size="256" />
          <Column id="prcpcd" type="STRING" size="256" />
          <Column id="aplydd" type="STRING" size="256" />
          <Column id="hngnm" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"></Col>
            <Col id="rulecd"></Col>
            <Col id="prcpcd"></Col>
            <Col id="aplydd"></Col>
            <Col id="hngnm"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="patinfolist" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="patinfolist"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="init" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="init"></Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.group2.ipt_rulecd" propid="value" datasetid="ds_send_data1" columnid="rulecd" />
      <BindItem id="item1" compid="group3.group2.ipt_prcpcd" propid="value" datasetid="ds_send_data1" columnid="prcpcd" />
      <BindItem id="item2" compid="group3.group2.ipt_aplydd" propid="value" datasetid="ds_send_data1" columnid="aplydd" />
      <BindItem id="item3" compid="group3.group2.ipt_pid" propid="value" datasetid="ds_send_data1" columnid="pid" />
      <BindItem id="item4" compid="group3.group2.ipt_hngnm" propid="value" datasetid="ds_send_data1" columnid="hngnm" />
    </Bind>
    <Script type="xscript4.0"><![CDATA[include '../../.._com_commonweb_js_common.js'
include '../../.._com_commonweb_js_utilHelper.js'
include '../../.._com_commonweb_js_numericHelper.js'
include '../../.._com_commonweb_js_stringHelper.js'
include '../../.._com_commonweb_js_dateHelper.js'
include '../../.._com_commonweb_js_tfHelper.js'
include '../../.._com_batchinfoweb_js_ZSB001.js'
include '../../.._pam_pamcomnweb_js_PAM.js'
function SMPPI00400_onload(obj:Form, e:LoadEventInfo) {
 frmf_initForm(obj); 
 //grdf_initGrid(grd_XXX); 
 //grdf_setGridSort(grd_XXX); 
 //grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값); 

				 ds_main_picmdrrulist.clearData();
 				 // (PAM.js) submission id="TRPAM00101" 를 사용하여 진료과 / 의사명 Combo item을 가져온다.
				 pamGetDeptCDDrIDList();	
				 group3.group2.ipt_aplydd.value = utlf_getCurrentDate();

}

function group3_group2_btn_search_onclick(obj:Button, e:ClickEventInfo) {

//						submit("TRPPI00401");
var oParam = {};
    oParam.id          = "TRPPI00401";
    oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
    oParam.method      = "reqGetPicmdrruList";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=picmdrrulist";
    oParam.async       = false;
    oParam.callback    = "cf_TRPPI00401";

tranf_submit(oParam);
/*
function cf_TRPPI00401(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPPI00401(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPPI00401") > -1
arErrorCode.pop("TRPPI00401") < 0
*/



}

function group3_group2_ipt_rulecd_onkeyup(obj:Edit, e:KeyEventInfo) {

						if (event.keyCode == '13') {
							inputEnterKey("group3.group2.btn_search", "DOMActivate");
						}

}

function group3_group2_ipt_prcpcd_onkeyup(obj:Edit, e:KeyEventInfo) {

						if (event.keyCode == '13') {
							inputEnterKey("group3.group2.btn_search", "DOMActivate");
						}

}

function group3_group2_ipt_aplydd_onkeyup(obj:Calendar, e:KeyEventInfo) {

						if (event.keyCode == '13') {
							inputEnterKey("group3.group2.btn_search", "DOMActivate");
						}

}

function group3_group2_button2_onclick(obj:Button, e:ClickEventInfo) {

						var srch_pid = ds_send_data1.getColumn(0, "pid");

						if(srch_pid) {
							ds_source.setColumn( 0, "pid", srch_pid);
							ds_source.setColumn( 0, "srchcond", "1");
						} else {
							ds_source.clearData(); ds_source.addRow();
						}

						frmf_modal("SPPMC02500", "SPPMC02500", "ds_source""-"ds_send"", "", "1", "150", "150", "", "", "", "", "", "M");

						var srch_pid 		= ds_main_patinfo_patinfolist.getColumn(0, "pid");
						var srch_hngnm	= ds_main_patinfo_patinfolist.getColumn(0, "hngnm");

						if (srch_pid) {		// SPPMC02500_환자조회 화면에서 조회한 경우임
							ds_main_patinfo_patinfolist.clearData();	// patinfolist가 제거됨 (resetInstanceNode의 경우 값은 지우고 노드는 남아있음)
							dsf_makeValue( ds_main_patinfo, "patinfolist", "string", "" );		// SPPMC02500_환자조회 팝업을 다시 조회할 경우를 위해 다시 노드를 추가함
							ds_send_data1.setColumn( 0, "pid", srch_pid);
							ds_send_data1.setColumn( 0, "hngnm", srch_hngnm);
						}

//model.refresh();

}

function group3_grd_picmdrrulist_onlbuttonup(obj:Grid,  e:MouseEventInfo) {

					var rowno =  group3.grd_picmdrrulist.row;

					if(group3.grd_picmdrrulist.col == group3.grd_picmdrrulist.colRef("prcpcd")) {

						frmf_modal("../../.._pam_calcscormngtweb_xrw_SMPIC00200_수가조회", "SMPIC00200_수가조회", ""-"", "", "", "200", "200", "", "", "", "", "", "M");

						var vprcpcd 	= ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd");  
						var vprcpnm	= ds_temp_picmmech.getColumn(0, "picmmech_ordnm");

						ds_temp.setColumn( 0, "calcscorcd", vprcpcd);
						ds_temp.setColumn( 0, "aplydd", ds_send_data1.getColumn(0, "aplydd"));
						ds_temp.setColumn( 0, "sflag", "Y");

//						submit("TRPPI00101");
var oParam = {};
    oParam.id          = "TRPPI00101";
    oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
    oParam.method      = "reqGetPicmruleList";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=picmrulelist ds_=picmrudtlist";
    oParam.async       = false;
    oParam.callback    = "cf_TRPPI00101";

tranf_submit(oParam);
/*
function cf_TRPPI00101(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPPI00101(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPPI00101") > -1
arErrorCode.pop("TRPPI00101") < 0
*/



						group3.grd_picmdrrulist.valueMatrix(rowno,  group3.grd_picmdrrulist.colRef("prcpcd"))      = vprcpcd;  
						group3.grd_picmdrrulist.valueMatrix(rowno,  group3.grd_picmdrrulist.colRef("prcpnm"))     = vprcpnm;
						group3.grd_picmdrrulist.valueMatrix(rowno,  group3.grd_picmdrrulist.colRef("rulecd"))     = ds_main_picmrudtlist.getColumn(0, "rulecd");

						ds_temp.clearData(); ds_temp.addRow();
					}

					if(group3.grd_picmdrrulist.col == group3.grd_picmdrrulist.colRef("pid")) {

						var srch_pid = group3.grd_picmdrrulist.valueMatrix(rowno, group3.grd_picmdrrulist.colRef("pid"));

						if(srch_pid) {
							ds_source.setColumn( 0, "pid", srch_pid);
							ds_source.setColumn( 0, "srchcond", "1");
						} else {
							ds_source.clearData(); ds_source.addRow();
						}

						frmf_modal("SPPMC02500", "SPPMC02500", "ds_source""-"ds_send"", "", "1", "150", "150", "", "", "", "", "", "M");

						var srch_pid 		= ds_main_patinfo_patinfolist.getColumn(0, "pid");
						var srch_hngnm	= ds_main_patinfo_patinfolist.getColumn(0, "hngnm");

						if (srch_pid) {		// SPPMC02500_환자조회 화면에서 조회한 경우임
							ds_main_patinfo_patinfolist.clearData();	// patinfolist가 제거됨 (resetInstanceNode의 경우 값은 지우고 노드는 남아있음)
							dsf_makeValue( ds_main_patinfo, "patinfolist", "string", "" );		// SPPMC02500_환자조회 팝업을 다시 조회할 경우를 위해 다시 노드를 추가함
							group3.grd_picmdrrulist.valueMatrix(rowno,  group3.grd_picmdrrulist.colRef("pid")) 		= srch_pid;
							group3.grd_picmdrrulist.valueMatrix(rowno,  group3.grd_picmdrrulist.colRef("hngnm")) 	= srch_hngnm;
						}
					}

//model.refresh();

}

function group3_button5_onclick(obj:Button, e:ClickEventInfo) {

					var fileName = window.fileDialog("save", ",", false, "excel", "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");

					if (fileName != "")
					{
grdf_exportExcel(group3.grd_picmdrrulist, "Sheet1", fileName, false, "" , 'user' , true);
					}	

}

function group3_btn_rowdel_onclick(obj:Button, e:ClickEventInfo) {

					var row =  group3.grd_picmdrrulist.row;
					 group3.grd_picmdrrulist.deleteRow(row);

}

function group3_btn_rowadd_onclick(obj:Button, e:ClickEventInfo) {

				 	group3.grd_picmdrrulist.addRow();

				 	var rowno = group3.grd_picmdrrulist.row;

					group3.grd_picmdrrulist.valueMatrix(rowno,  group3.grd_picmdrrulist.colRef("fromdd")) 	= utlf_getCurrentDate();
					group3.grd_picmdrrulist.valueMatrix(rowno,  group3.grd_picmdrrulist.colRef("todd")) 	= "99991231";

//model.refresh();

}

function group4_button1_onclick(obj:Button, e:ClickEventInfo) {

					if ( sysf_messageBox("","Q002")==6 ) {
						var update = getGridUpdateData( group3.grd_picmdrrulist);
						if(update == ""){
							sysf_messageBox("업데이트 정보가 없습니다.", "I");
							return 0;

						} else {
							ds_send.setColumn( 0, "data2", update);
//							submit("TXPPI00401");
var oParam = {};
    oParam.id          = "TXPPI00401";
    oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
    oParam.method      = "reqSetPicmdrruList";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=item";
    oParam.async       = false;
    oParam.callback    = "cf_TXPPI00401";

tranf_submit(oParam);
/*
function cf_TXPPI00401(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TXPPI00401(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TXPPI00401") > -1
arErrorCode.pop("TXPPI00401") < 0
*/


						}	

					}
					group3.group2.btn_search.dispatch("DOMActivate");

}

]]></Script>
  </Form>
</FDL>