0 - 2 접수취소 1 채혈취소 <TextArea id="tar_measfact" taborder="9" class="text_essential" position="absolute 103 329 309 387"/> <Edit id="output1" taborder="10" readonly="true" visible="false" position="absolute 155 5 185 24"/> <Edit id="output2" taborder="11" readonly="true" visible="false" position="absolute 190 5 220 24"/> <Edit id="output3" taborder="12" readonly="true" visible="false" position="absolute 225 5 255 24"/> <Combo id="cmb_spcstat" taborder="13" innerdataset="ds_init_cmb_spcstat" codecolumn="cd" datacolumn="nm" position="absolute 103 225 309 244" onitemchanged="cmb_spcstat_onitemchanged" style="itemheight:16;"/> <Combo id="cmb_measfact" taborder="14" innerdataset="ds_init_cmb_measfact" codecolumn="cd" datacolumn="nm" position="absolute 103 308 309 327" onitemchanged="cmb_measfact_onitemchanged"/> <Static id="caption14" text="취소사유" class="cell_1" position="absolute 0 55 100 78"/> <Combo id="cmb_cancelstat" taborder="15" innerdataset="ds_init_cmb_cancelstat" codecolumn="cd" datacolumn="nm" position="absolute 103 56 309 75"/> <Shape id="line14" class="line_6" position="absolute 0 400 310 406"/> <Button id="btn_cnfm" taborder="16" text="확인" class="btn4" position="absolute 195 405 251 427" onclick="btn_cnfm_onclick"/> <Button id="btn_cancel" taborder="17" text="취소" class="btn4" position="absolute 254 405 310 427" onclick="btn_cancel_onclick"/> <Button id="button1" taborder="18" text="SMS" class="btn1" enable="false" visible="false" position="absolute 0 405 56 427"/> <Button id="button2" taborder="19" text="MSG" class="btn1" enable="false" visible="false" position="absolute 59 405 115 427"/> </Layout> </Layouts> <Objects> <Dataset id="ds_init_cmb_spcstat" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false"> <ColumnInfo> <Column id="nm" type="STRING"/> <Column id="cd" type="STRING"/> </ColumnInfo> </Dataset> <Dataset id="ds_init_cmb_measfact" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false"> <ColumnInfo> <Column id="nm" type="STRING"/> <Column id="cd" type="STRING"/> </ColumnInfo> </Dataset> <Dataset id="ds_init_cmb_cancelstat" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false"> <ColumnInfo> <Column id="nm" type="STRING"/> <Column id="cd" 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="Data1" type="STRING" size="256"/> <Column id="Data2" type="STRING" size="256"/> <Column id="Data3" type="STRING" size="256"/> <Column id="Data4" type="STRING" size="256"/> <Column id="Data5" type="STRING" size="256"/> <Column id="Data6" type="STRING" size="256"/> <Column id="Data7" type="STRING" size="256"/> <Column id="Data8" type="STRING" size="256"/> <Column id="Data9" type="STRING" size="256"/> <Column id="Data10" type="STRING" size="256"/> <Column id="pid" type="STRING" size="256"/> <Column id="spccd" type="STRING" size="256"/> <Column id="codeflag" type="STRING" size="256"/> <Column id="rtnid" type="STRING" size="256"/> <Column id="notipsn" type="STRING" size="256"/> <Column id="smsbcno" type="STRING" size="256"/> <Column id="smsuserid" type="STRING" size="256"/> <Column id="smsmsg" type="STRING" size="256"/> <Column id="sender" type="STRING" size="256"/> <Column id="smsgbn" type="STRING" size="256"/> <Column id="bcno" type="STRING" size="256"/> <Column id="cnclflag" type="STRING" size="256"/> <Column id="spcflag" type="STRING" size="256"/> <Column id="resncd" type="STRING" size="256"/> <Column id="spcflagdetl" type="STRING" size="256"/> <Column id="measflag" type="STRING" size="256"/> <Column id="measfact" type="STRING" size="256"/> <Column id="spcseq" type="STRING" size="256"/> <Column id="rsltstat" type="STRING" size="256"/> <Column id="measflag" type="STRING" size="256"/> </ColumnInfo> <Rows> <Row> <Col id="Data1"/> <Col id="Data2"/> <Col id="Data3"/> <Col id="Data4"/> <Col id="Data5"/> <Col id="Data6"/> <Col id="Data7"/> <Col id="Data8"/> <Col id="Data9"/> <Col id="Data10"/> <Col id="pid"/> <Col id="spccd"/> <Col id="codeflag"/> <Col id="rtnid"/> <Col id="notipsn"/> <Col id="smsbcno"/> <Col id="smsuserid"/> <Col id="smsmsg"/> <Col id="sender"/> <Col id="smsgbn"/> </Row> </Rows> </Dataset> <Dataset id="ds_init_0101" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"> <ColumnInfo> <Column id="cd" type="STRING" size="256"/> <Column id="nm" type="STRING" size="256"/> </ColumnInfo> </Dataset> <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"> <ColumnInfo> <Column id="cnclflag" type="STRING" size="256"/> <Column id="bcno" type="STRING" size="256"/> <Column id="notipsn" type="STRING" size="256"/> <Column id="spcflag" type="STRING" size="256"/> <Column id="spcflagdetl" type="STRING" size="256"/> <Column id="measfact" type="STRING" size="256"/> <Column id="notidetstat" type="STRING" size="256"/> <Column id="spcresncd" type="STRING" size="256"/> <Column id="meafactcd" type="STRING" size="256"/> <Column id="temp" type="STRING" size="256"/> </ColumnInfo> <Rows> <Row> <Col id="cnclflag"/> <Col id="bcno"/> <Col id="notipsn"/> <Col id="spcflag"/> <Col id="spcflagdetl"/> <Col id="measfact"/> <Col id="notidetstat"/> <Col id="spcresncd"/> <Col id="meafactcd"/> <Col id="temp"/> </Row> </Rows> </Dataset> <Dataset id="ds_badspclist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"> <ColumnInfo> <Column id="cnclflag" type="STRING" size="256" sumtext="취소구분"/> <Column id="patnm" type="STRING" size="256" sumtext="환자명"/> <Column id="pid" type="STRING" size="256" sumtext="등록번호"/> <Column id="orddept" type="STRING" size="256" sumtext="진료과"/> <Column id="wardroom" type="STRING" size="256" sumtext="병실"/> <Column id="notipsn" type="STRING" size="256" sumtext="피통보자"/> <Column id="notidt" type="STRING" size="256" sumtext="통보시간"/> <Column id="spcflag" type="STRING" size="256" sumtext="검체상태구분"/> <Column id="resncd" type="STRING" size="256" sumtext="검체상태구분"/> <Column id="spcflagdetl" type="STRING" size="256" sumtext="검체상태상세"/> <Column id="measflag" type="STRING" size="256" sumtext="조치사항"/> <Column id="measfact" type="STRING" size="256" sumtext="조치사항"/> <Column id="spcseq" type="STRING" size="256" sumtext="검체순번"/> <Column id="rsltstat" type="STRING" size="256" sumtext="결과상태"/> <Column id="spccd" type="STRING" size="256" sumtext="검체코드"/> <Column id="spcstat" type="STRING" size="256" sumtext="검체상태"/> <Column id="bc" type="STRING" size="256" sumtext="부적합등록여부"/> <Column id="orddeptnm" type="STRING" size="256"/> </ColumnInfo> <Rows> <Row/> </Rows> </Dataset> <Dataset id="Dataset00" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"> <ColumnInfo> <Column id="cnclflag" type="STRING" size="256" sumtext="취소구분"/> <Column id="patnm" type="STRING" size="256" sumtext="환자명"/> <Column id="pid" type="STRING" size="256" sumtext="등록번호"/> <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과"/> <Column id="wardroom" type="STRING" size="256" sumtext="병실"/> <Column id="notipsn" type="STRING" size="256" sumtext="피통보자"/> <Column id="notidt" type="STRING" size="256" sumtext="통보시간"/> <Column id="spcflag" type="STRING" size="256" sumtext="검체상태구분"/> <Column id="resncd" type="STRING" size="256" sumtext="검체상태구분"/> <Column id="spcstatdetl" type="STRING" size="256" sumtext="검체상태상세"/> <Column id="measflag" type="STRING" size="256" sumtext="조치사항"/> <Column id="measfact" type="STRING" size="256" sumtext="조치사항"/> <Column id="Msg" type="STRING" size="256" sumtext="메세지"/> </ColumnInfo> </Dataset> </Objects> <Bind> <BindItem id="item0" compid="cmb_cancel" propid="value" datasetid="ds_badspclist" columnid="cnclflag"/> <BindItem id="item1" compid="cmb_cancelstat" propid="value" datasetid="ds_badspclist" columnid="spcflag"/> <BindItem id="item2" compid="ipt_bcno" propid="value" datasetid="ds_hidden" columnid="bcno"/> <BindItem id="item3" compid="opt_patnm" propid="value" datasetid="ds_badspclist" columnid="patnm"/> <BindItem id="item4" compid="opt_pid" propid="value" datasetid="ds_badspclist" columnid="pid"/> <BindItem id="item5" compid="opt_orddept" propid="value" datasetid="ds_badspclist" columnid="orddeptnm"/> <BindItem id="item6" compid="opt_wardroom" propid="value" datasetid="ds_badspclist" columnid="wardroom"/> <BindItem id="item7" compid="opt_notidt" propid="value" datasetid="ds_badspclist" columnid="notidt"/> <BindItem id="item8" compid="cmb_spcstat" propid="value" datasetid="ds_badspclist" columnid="resncd"/> <BindItem id="item9" compid="tar_spcstat" propid="value" datasetid="ds_badspclist" columnid="spcflagdetl"/> <BindItem id="item10" compid="cmb_measfact" propid="value" datasetid="ds_badspclist" columnid="measflag"/> <BindItem id="item11" compid="tar_measfact" propid="value" datasetid="ds_badspclist" columnid="measfact"/> </Bind> <Script type="xscript4.0"><![CDATA[/*************************************************************************************** * System Name : * Job Name : * Creator : * Make Date : 2015-11-09 * Description : *--------------------------------------------------------------------------------------- * Modify Date Modifier Modify Description *--------------------------------------------------------------------------------------- * 2015-11-09 Live Converter TF->XP * *--------------------------------------------------------------------------------------- ****************************************************************************************/ include "com_commonxp::comm_main.xjs"; function SPLLJ90100_oninit(obj:Form, e:InitEventInfo) { frmf_initForm(obj); } function SPLLJ90100_onload(obj:Form, e:LoadEventInfo) { // Opener에서 받은 Param Pasing try{ ds_hidden.copyData(arg_ds_hidden); }catch(e){} fgetbadspc(); // 부적합취소사유목록 초기정보조회 fGetBadSpcResn(); } // 부적합 검체 조회 function fgetbadspc() { var sendbcno = utlf_transNullToEmpty(ds_hidden.getColumn(0, "bcno")); // 검체번호 있으면 바로 조회 if( !utlf_isNull(sendbcno)) { cmb_cancel.enable = true; if(sendbcno.substr(0,1)=="M") { ds_hidden.setColumn(0, "cnclflag", "0"); cmb_cancel.enable = false; } //ds_send.setColumn(0, "Data1", sendbcno); dsf_createDsRow("ds_temp_search", [{col : "bcno", val : sendbcno}]); var oParam = {}; oParam.id = "TRLLJ90101"; oParam.service = "acptmngtapp.AcptMngt"; oParam.method = "reqGetBadSpc"; oParam.inds = "cond=ds_temp_search"; oParam.outds = "ds_badspclist=getbadspclist"; oParam.async = false; //oParam.callback = "cf_TRLLJ90101"; tranf_submit(oParam); //return true; if(ds_badspclist.rowcount <= 0) { sysf_messageBox("검체번호가 잘못 입력되었습니다. 검체내역을 조회 할 수", "E001"); return; } ds_badspclist.setColumn(0, "notidt", utlf_getCurrentDate() + utlf_getCurrentTime()); } if(ds_badspclist.getColumn(0, "bc") != "-") { var cnt = ds_init_cmb_measfact.rowcount; for(i=0; i < parseInt(cnt); i++) { if(ds_badspclist.getColumn(0, "measfact").indexOf(cmb_measfact.value) == 0) { ds_badspclist.setColumn(0, "measflag", cmb_measfact.value); } } if(ds_badspclist.getColumn(0, "cnclflag") == "1" || ds_badspclist.getColumn(0, "cnclflag") == "2") { if(ds_badspclist.getColumn(0, "cnclflag") == "1") // 채혈취소 사유 { ds_init_0101.filter("etc01 == '01'"); cnt = ds_init_0101.rowcount; } else if(ds_badspclist.getColumn(0, "cnclflag") == "2") // 접수취소 사유 { ds_init_0101.filter("etc01 == '02'"); cnt = ds_init_0101.rowcount; } for(i=0; i<parseInt(cnt); i++) { if(ds_badspclist.getColumn(0, "measfact").indexOf(cmb_measfact.value) == 0) { ds_badspclist.setColumn(0, "measflag", cmb_cancelstat.value); } } } } if (sendbcno.length> 0 && (sendbcno.substr(0,1)=="G" || sendbcno.substr(0,1)=="M") ) { ds_badspclist.setColumn(0, "cnclflag", "0"); } else if(ds_badspclist.getColumn(0, "spcstat") == "2") { ds_badspclist.setColumn(0, "cnclflag", "1"); } else if(ds_badspclist.getColumn(0, "spcstat") == "3") { ds_badspclist.setColumn(0, "cnclflag", "2"); } else if((ds_badspclist.getColumn(0, "spcstat") == "4") && (ds_badspclist.getColumn(0, "rsltstat") == "-")) { ds_badspclist.setColumn(0, "cnclflag", "2"); } else { ds_badspclist.setColumn(0, "cnclflag", "0"); } if( !utlf_isNull(ds_badspclist.getColumn(0, "bc"))) { if(ds_badspclist.getColumn(0, "bc") == "-") // 부적합등록안됨 { btn_cnfm.enable = true; if( !utlf_isNull(ds_badspclist.getColumn(0, "rsltstat"))) { if(ds_badspclist.getColumn(0, "rsltstat") != "-") { sysf_messageBox("검사결과가 등록되어있습니다. 접수,채혈취소 ", "E001"); // 할 수 없습니다. ds_badspclist.setColumn(0, "cnclflag", "0"); cmb_cancel.enable = false; } } } else //부적합등록됨 { sysf_messageBox("이미 부적합검체로 등록되어있습니다. 부적합검체 등록 ", "E001"); // 할 수 없습니다. btn_cnfm.enable = false; return; } } } // 부적합취소사유목록 초기정보조회 function fGetBadSpcResn() { dsf_createDsRow("ds_temp_search", [{col : "codeflag", val : "0101|"}]); var oParam = {}; oParam.id = "TRLZZ00101"; oParam.service = "diagtestapplib.DiagTestBaseInfoMngt"; oParam.method = "reqGetInitCodeInfo"; oParam.inds = "cond=ds_temp_search"; oParam.outds = "ds_init_0101=0101"; oParam.async = false; //oParam.callback = "cf_TRLZZ00101"; tranf_submit(oParam); ds_init_cmb_spcstat.copyData(ds_init_0101); ds_init_cmb_spcstat.filterstr = "etc01 == '06'"; ds_init_cmb_measfact.copyData(ds_init_0101); ds_init_cmb_measfact.filterstr = "etc01 == '11'"; ds_init_cmb_cancelstat.copyData(ds_init_0101); ds_init_cmb_cancelstat.filterstr = "etc01 == '01'"; } function btn_cnfm_onclick(obj:Button, e:ClickEventInfo) { fInsBadSpc(); } function btn_cancel_onclick(obj:Button, e:ClickEventInfo) { this.close(); } // 부적합 검체 등록 function fInsBadSpc() { if(ds_badspclist.getColumn(0, "bc") != "-") { sysf_messageBox("이미 부적합검체로 등록되어있습니다. 부적합검체 등록 ", "E001"); // 할 수 없습니다. return; } if(ds_badspclist.getColumn(0, "cnclflag") == "2") //접수취소 콤보 선택시 { if(ds_badspclist.getColumn(0, "spcstat") == "4" || ds_badspclist.getColumn(0, "spcstat") == "3") // 접수상태인데 { if(ds_badspclist.getColumn(0, "rsltstat") != "-") // 결과 있으면 { sysf_messageBox("결과등록된 상태입니다. 접수취소 ", "E001"); // 할 수 없습니다. return; } } else { sysf_messageBox("접수 상태가 아닙니다. 접수취소 ", "E001"); // 할 수 없습니다. return; } if( utlf_isNull(ds_badspclist.getColumn(0, "spcflag"))) // 접수취소 사유 없는 경우 { sysf_messageBox("취소 사유를 넣어 주십시요. 진행", "E001"); return; } } else if(ds_badspclist.getColumn(0, "cnclflag") == "1") // 채혈취소 콤보 선택시 { if(ds_badspclist.getColumn(0, "spcstat") == "4") { sysf_messageBox("접수된 검체입니다. 채혈취소 ", "E001"); // 할 수 없습니다. return; } if(utlf_isNull(ds_badspclist.getColumn(0, "spcflag"))) // 채혈취소 사유 없는 경우 { sysf_messageBox("취소 사유를 넣어 주십시요. 진행", "E001"); return; } } if(ds_badspclist.getColumn(0, "resncd") == "06000" || utlf_isNull(ds_badspclist.getColumn(0, "resncd"))) { sysf_messageBox("부적격 사유를 선택하세요", "E"); return; } if(ds_badspclist.getColumn(0, "measflag") == "11000" || utlf_isNull(ds_badspclist.getColumn(0, "measflag"))) { sysf_messageBox("부적격 조치 사유를 선택하세요", "E"); return; } if( utlf_isNull(ds_badspclist.getColumn(0, "resncd")) || utlf_isNull(ds_badspclist.getColumn(0, "spcflagdetl")) || utlf_isNull(ds_badspclist.getColumn(0, "measfact"))) { sysf_messageBox("모든 입력을 해주십시오 진행", "E001"); return; } // ds_send.setColumn(0, "Data1", ds_hidden.getColumn(0, "bcno")); // ds_send.setColumn(0, "Data2", ds_badspclist.getColumn(0, "cnclflag")); // ds_send.setColumn(0, "Data3", "-"); // ds_send.setColumn(0, "Data4", ds_badspclist.getColumn(0, "spcflag")); // ds_send.setColumn(0, "Data5", ds_badspclist.getColumn(0, "resncd")); // ds_send.setColumn(0, "Data6", ds_badspclist.getColumn(0, "spcflagdetl")); // ds_send.setColumn(0, "Data7", ds_badspclist.getColumn(0, "measflag")); // ds_send.setColumn(0, "Data8", ds_badspclist.getColumn(0, "measfact")); // ds_send.setColumn(0, "Data9", ds_badspclist.getColumn(0, "spcseq")); // ds_send.setColumn(0, "Data10", ds_badspclist.getColumn(0, "rsltstat")); // ds_send.setColumn(0, "pid", ds_badspclist.getColumn(0, "pid")); // ds_send.setColumn(0, "spccd", ds_badspclist.getColumn(0, "spccd")); // ds_send.setColumn(0, "rtnid", ds_badspclist.getColumn(0, "notipsn")); // ds_send.setColumn(0, "notipsn", "-"); ds_send.setColumn(0, "bcno", ds_hidden.getColumn(0, "bcno")); ds_send.setColumn(0, "cnclflag", ds_badspclist.getColumn(0, "cnclflag")); //ds_send.setColumn(0, "Data3", "-"); ds_send.setColumn(0, "spcflag", ds_badspclist.getColumn(0, "spcflag")); ds_send.setColumn(0, "resncd", ds_badspclist.getColumn(0, "resncd")); ds_send.setColumn(0, "spcflagdetl", ds_badspclist.getColumn(0, "spcflagdetl")); ds_send.setColumn(0, "measflag", ds_badspclist.getColumn(0, "measflag")); ds_send.setColumn(0, "measfact", ds_badspclist.getColumn(0, "measfact")); ds_send.setColumn(0, "spcseq", ds_badspclist.getColumn(0, "spcseq")); ds_send.setColumn(0, "rsltstat", ds_badspclist.getColumn(0, "rsltstat")); ds_send.setColumn(0, "pid", ds_badspclist.getColumn(0, "pid")); ds_send.setColumn(0, "spccd", ds_badspclist.getColumn(0, "spccd")); ds_send.setColumn(0, "rtnid", ds_badspclist.getColumn(0, "notipsn")); ds_send.setColumn(0, "notipsn", "-"); if( utlf_isNull(ds_badspclist.getColumn(0, "notipsn"))) { ds_send.setColumn(0, "rtnid", "-"); } var oParam = {}; oParam.id = "TXLLJ90101"; oParam.service = "acptmngtapp.AcptMngt"; oParam.method = "reqInsBadSpc"; oParam.inds = "cond=ds_send"; oParam.outds = "ds_badspclist=getbadspclistref"; oParam.async = false; oParam.callback = "cf_TXLLJ90101"; tranf_submit(oParam); } function cf_TXLLJ90101(sSvcId, nErrorCode, sErrorMsg) { if(nErrorCode < 0) return; this.close(); } function ipt_bcno_onkeyup(obj:Edit, e:KeyEventInfo) { if(e.keycode == 13) { ds_hidden.setColumn(0, "bcno", (ipt_bcno.text).toUpperCase()); if(ds_hidden.getColumn(0, "bcno").substr(0, 1) == "O" ) { alert("외래바코드 입니다. 검체취소시 주의요망!"); } fgetbadspc(); } } function cmb_spcstat_onitemchanged(obj:Combo, e:ItemChangeEventInfo) { var nm = cmb_spcstat.text; ds_badspclist.setColumn(0,"spcflagdetl", nm); } function cmb_measfact_onitemchanged(obj:Combo, e:ItemChangeEventInfo) { var nm = cmb_measfact.text; ds_badspclist.setColumn(0,"measfact", nm); } function ipt_bcno_onkeydown(obj:Edit, e:KeyEventInfo) { if(e.keycode == 13) { ds_hidden.setColumn(0, "bcno", (ipt_bcno.text).toUpperCase()); if(ds_hidden.getColumn(0, "bcno").substr(0, 1) == "O" ) { alert("외래바코드 입니다. 검체취소시 주의요망!"); } fgetbadspc(); } } ]]></Script> </Form> </FDL>