123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192 |
- <?xml version="1.0" encoding="utf-8"?>
- <FDL version="1.4">
- <TypeDefinition url="..\..\..\default_typedef.xml"/>
- <Form id="SMMQI04100" position="absolute 0 0 325 120" titletext="항암FlowSheet배치" oninit="SMMQI04100_oninit" onload="SMMQI04100_onload">
- <Layouts>
- <Layout>
- <Shape position="absolute 0 10 309 65" id="roundrect1" type="roundrectangle"/>
- <Button position="absolute 190 70 246 92" id="button1" class="btn4" text="확인" onclick="button1_onclick"/>
- <Button position="absolute 250 70 306 92" id="button2" class="btn4" text="취소" onclick="button2_onclick"/>
- <Static text="배치일자:" position="absolute 5 20 91 37" id="caption1" class="search_name"/>
- <Calendar position="absolute 90 20 180 39" id="input2" class="input_s_essential"/>
- <Calendar position="absolute 205 20 295 39" id="input1" class="input_s_essential"/>
- <Static text="~" position="absolute 185 20 200 40" id="caption2"/>
- <Static text="작업 상 시간이 걸릴수 있습니다." position="absolute 4 73 182 93" id="caption3"/>
- <Static text="환자번호:" position="absolute 5 43 94 60" id="caption4" class="search_name"/>
- <Edit position="absolute 90 41 190 60" id="input3"/>
- </Layout>
- </Layouts>
- <Objects>
- <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
- <ColumnInfo>
- <Column id="fromdd" type="STRING" size="256"/>
- <Column id="todd" type="STRING" size="256"/>
- <Column id="instcd" type="STRING" size="256"/>
- <Column id="pid" type="STRING" size="256"/>
- <Column id="userid" type="STRING" size="256"/>
- </ColumnInfo>
- <Rows>
- <Row/>
- </Rows>
- </Dataset>
- <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
- <Dataset id="ds_init_bathexec" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
- <Dataset id="ds_temp_countinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
- <ColumnInfo>
- <Column id="count" type="STRING" size="256"/>
- </ColumnInfo>
- <Rows>
- <Row/>
- </Rows>
- </Dataset>
- </Objects>
- <Bind>
- <BindItem id="item0" compid="input2" propid="value" datasetid="ds_main_cond" columnid="fromdd"/>
- <BindItem id="item1" compid="input1" propid="value" datasetid="ds_main_cond" columnid="todd"/>
- <BindItem id="item2" compid="input3" propid="value" datasetid="ds_main_cond" columnid="pid"/>
- </Bind>
- <Script type="xscript4.0"><![CDATA[/***************************************************************************************
- * System Name :
- * Job Name :
- * Creator :
- * Make Date : 2015-03-11
- * Description :
- *---------------------------------------------------------------------------------------
- * Modify Date Modifier Modify Description
- *---------------------------------------------------------------------------------------
- * 2015-03-11 Live Converter TF->XP
- *
- *---------------------------------------------------------------------------------------
- ****************************************************************************************/
- include "com_commonxp::comm_main.xjs";
- include "emr_prcpmngtxp::MMOCommon.xjs";
- include "emr_prcpmngtxp::MMO001.xjs";
- var arErrorCode = new HashArray();
- function SMMQI04100_oninit(obj:Form, e:InitEventInfo)
- {
- frmf_initForm(obj);
- }
- function SMMQI04100_onload(obj:Form, e:LoadEventInfo)
- {
- fInitialize();
- }
- function button1_onclick(obj:Button, e:ClickEventInfo)
- {
- fCnfmBtn();
- }
- function button2_onclick(obj:Button, e:ClickEventInfo)
- {
- fClose();
- }
- /**
- * @desc : 초기화
- * @
- * @param :
- * @return :
- * @---------------------------------------------------
- */
- function fInitialize(){
-
- ds_main_cond.setColumn(0,"instcd", sysf_getUserInfo("dutplceinstcd"));
- ds_main_cond.setColumn(0,"userid", sysf_getUserInfo("userid"));
- ds_main_cond.setColumn(0,"fromdd", utlf_getCurrentDate());
- ds_main_cond.setColumn(0,"todd", utlf_getCurrentDate());
-
- lf_getHardCDList("N", 5666, 0 , "ds_init_bathexec");
- //lf_gethardcdArrayList(new Array("ds_init_bathexec|5666"));
-
- }
- /**
- * @desc : 미비 확인
- * @
- * @param :
- * @return :
- * @---------------------------------------------------
- */
- function fCnfmBtn(){
-
- if(utlf_isNull(ds_main_cond.getColumn(0,"pid").getTrim())){
-
- if(utlf_isNull(ds_init_bathexec.lookup("hardcd", sysf_getUserId(),"hardcd"))){
- if( utlf_getDateInterval(ds_main_cond.getColumn(0,"fromdd"), ds_main_cond.getColumn(0,"todd")) > 31 ){
- sysf_messageBox("배치 최대 기간은 1달입니다. 일자구분에서 날짜를 수정하세요!", "E999", "");
- return false;
- }
- }
- }
-
- //model.resetInstanceNode("/root/temp/countinfo/count");
- var oParam = {};
- oParam.id = "TRMQI04100";
- oParam.service = "qiapp.QIdxMngt";
- oParam.method = "reqGetAntiCancerFlowSheetCount";
- oParam.inds = "req=ds_main_cond";
- oParam.outds = "ds_temp_countinfo=countinfo";
- oParam.async = false;
- oParam.callback = "cf_TRMQI04100";
- tranf_submit(oParam);
-
- var count = ds_temp_countinfo.getColumn(0,"count");
-
- if(count > 0){
- var flag = sysf_messageBox(ds_main_cond.getColumn(0,"fromdd")+" ~ "+ ds_main_cond.getColumn(0,"todd")+" 사이에 "+ count + "건의 배치정보가 존재 합니다. \n" , "Q003");
- if(flag == "6"){
- fExecute();
- }
- }else{
- fExecute();
- }
-
-
- }
- function cf_TRMQI04100(sSvcId, nErrorCode, sErrorMsg) {
- if(nErrorCode < 0) return;
- }
- function fExecute(){
- var oParam = {};
- oParam.id = "TXMQI04100";
- oParam.service = "qiapp.QIdxMngt";
- oParam.method = "reqExeAntiCancerFlowSheetBatch";
- oParam.inds = "req=ds_main_cond";
- oParam.outds = "";
- oParam.async = false;
- oParam.callback = "cf_TXMQI04100";
- tranf_submit(oParam);
-
- if (arErrorCode.pop("TXMQI04100") > -1){
- alert("미비 배치가 성공하였습니다. ");
- }else {
- alert("미비 배치가 실패하였습니다. 담당자에게 문의 바랍니다. ");
- }
- }
- function cf_TXMQI04100(sSvcId, nErrorCode, sErrorMsg) {
- arErrorCode.push(sSvcId, nErrorCode);
- }
- /**
- * @desc : Close
- * @
- * @param :
- * @return :
- * @---------------------------------------------------
- */
- function fClose(){
-
- close();
- }
- ]]></Script>
- </Form>
- </FDL>
|