123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331 |
- <?xml version="1.0" encoding="utf-8"?>
- <Script type="xscript4.0"><![CDATA[
- /**
- - ▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩
- 의료정보 - 사본발급List ( SMMRC02200_사본발급List.xrw - JScript )
- - Version :
- 1) : Ver.1.00.01
- - Author : 이은영 수정->이창록
-
- - ▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩
- **/
- /**
- * @ver :
- * @desc : 화면초기화
- * @
- * @by : 이은영
- * @ :2008-12-12 이창록 수정(기준일자 변경)
- * @param :
- * @return :
- * @---------------------------------------------------
- */
- function fInit()
- {
-
- // KNUH_20101124_박성호_start - 의무기록 부서코드 가져오기
- lf_getHardCDList("N", 5501, null, ds_temp_hardcd);
- // KNUH_20101124_박성호_end
-
- var instcd = sysf_getUserInfo("dutplceinstcd");
- var standard_yn = "orduseyn";
- var ord_deptflag = 'D';
- var rslt_ref = "ds_init_deptlist_dept";
- var sort_method = "depthngnm";
- appf_getDeptCodeList(instcd, standard_yn, ord_deptflag, sort_method, "", "", "", "",rslt_ref ,false, "");
-
- // 공통코드 목록 가져오기
- appf_getCodeList([{dsNm: "ds_init_ioflag_P0001", cdGrpId: "P0001"} , {dsNm: "ds_init_issgoalcd_M0332", cdGrpId: "M0332"}
- , {dsNm: "ds_init_issscopcd_M0333", cdGrpId: "M0333"} , {dsNm: "ds_init_prcpstatcd_M0011", cdGrpId: "M0011"}], true);
-
- ds_main_isshist_isslist.clearData();
-
- //상단 환자 정보 가져오기
- var node = sysf_getGlobalVariable("paminfo");
- dsf_setCSVToDs("ds_main_paminfo_list", node);
-
- //상단 정보 있는지 유무 체크
- if( !utlf_isNull(node) )
- {
- var current_pid = fCheckedBindPid(ds_main_paminfo_list.getColumn(0, "pid"));
- ds_send_cond.setColumn(0, "pid", current_pid);
- }
-
- // 오늘 날짜로 세팅
- var currentdate = utlf_getCurrentDate();
- //20080908 이창록 신청일자 시작일자 오늘 날짜로 변경
- ds_send_cond.setColumn(0, "fromdd", currentdate);
- ds_send_cond.setColumn(0, "todd", currentdate);
-
- fHistSearch();
- }
- /**
- * @ver :
- * @desc : 환자 찾기 팝업
- * @
- * @by : 이은영
- * @param :
- * @return : 2008-12-23 이창록 수정->주민번로 뒷자리 숨기기
- * @---------------------------------------------------
- */
- function fPatPopUp(pFlag)
- {
- if(pFlag == "1"){
- dsf_makeValue(ds_temp,"pid","string", ipt_pid.value);
- }else if(pFlag == "2"){
- dsf_makeValue(ds_temp,"hngnm","string", ipt_hngnm.value);
- }else if(pFlag == "3"){
- dsf_makeValue(ds_temp,"rrgstno1","string", ipt_rrgstno1.value);
- dsf_makeValue(ds_temp,"rrgstno2","string", ipt_rrgstno2.value);
- }
- dsf_makeValue(ds_temp,"srchcond","string", pFlag);
- dsf_makeValue(ds_temp,"autoflag","string", "Y");
-
- ds_patinfolist.clearData();
- var objArg = new Object();
- objArg.arg_ds_send = ds_temp;
- frmf_modal("SPPMC02500","SPPMC02500",objArg,"",1,10,10,"","","","","","M");
-
- ds_send_cond.setColumn(0, "pid", ds_patinfolist.getColumn(0, "pid"));
- ds_send_cond.setColumn(0, "hngnm", ds_patinfolist.getColumn(0, "hngnm"));
- ds_send_cond.setColumn(0, "rrgstno1", ds_patinfolist.getColumn(0, "rrgstno1"));
- ds_send_cond.setColumn(0, "rrgstno2", ds_patinfolist.getColumn(0, "rrgstno2"));
- fHistSearch();
- }
- /**
- * @ver :
- * @desc : 이전 내역 조회
- * @
- * @by : 이은영
- * @param :
- * @return :
- * @---------------------------------------------------
- */
- function fHistSearch()
- {
- /*세 줄 어디서 없애는거?..
- model.resetInstanceNode("/root/main/issinfo/copyinfo");
- model.removeNodeset("/root/main/issinfo/emrapplist");
- model.removeNodeset("/root/main/issinfo/rcptlist");
- */
-
- var sPid = "";
- var isspatcnt = 0;
- var totalcopies = 0;
- var isstotalcopies = 0;
- var issTotalprcpcopies = 0;
- var issprcptims = 0;
- var sFindRow = 0;
- var prcsflag = ds_send_cond.getColumn(0, "prcsflag");
-
- dsf_setDefaultVal(ds_send_cond, "wardcd:-");
-
- var oParam = {};
- oParam.id = "TRMRC02201";
- oParam.service = "chrtmngtapp.CopyIssMngt";
- oParam.method = "reqGetNewCopyIssMngtHist";
- oParam.inds = "req=ds_send_cond";
- oParam.outds = "ds_main_isshist_isslist=isslist";
- oParam.async = false;
- oParam.callback = "cf_TRMRC02201";
- tranf_submit(oParam);
-
- if( !utlf_isNull(ds_main_isshist_isslist.getColumnInfo("totalcopies")) && !utlf_isNull(ds_main_isshist_isslist.getColumnInfo("prcptims")) && !utlf_isNull(ds_main_isshist_isslist.getColumnInfo("cretno")) ){
- dsf_setTypeFormat(ds_main_isshist_isslist, "totalcopies:INT^prcptims:INT^cretno:INT");
- }
- if( utlf_isNull(ds_main_isshist_isslist.getColumnInfo("isschk"))){
- ds_main_isshist_isslist.addColumn("isschk", "string");
- }
-
- if( utlf_isNull(ds_main_isshist_isslist.getColumnInfo("lastupdtrid"))){
- ds_main_isshist_isslist.addColumn("lastupdtrid", "string");
- }
-
- if( utlf_isNull(ds_main_isshist_isslist.getColumnInfo("state"))){
- ds_main_isshist_isslist.addColumn("state", "string");
- }
-
-
- if(arErrorCode.pop("TRMRC02201") > -1)
- {
- ds_main_isshist_isslist.rowposition = -1;
-
- grdf_initGridStyle(grd_isshist);
- grdf_setRowStyle(grd_isshist,"4","입원","ioflagnm","equal");
-
- for(var iRow = 0; iRow < ds_main_isshist_isslist.rowcount; iRow++){
- sPid = ds_main_isshist_isslist.getColumn(iRow, "pid");
- sFindRow = ds_main_isshist_isslist.findRow("issno" , sPid, 0); //grd_isshist.findRow(sPid, 1, 4);
- if(sFindRow < 0 || iRow <= sFindRow){
- isspatcnt++;
- }
- totalcopies = ds_main_isshist_isslist.getColumn(iRow, "totalcopies");
- prcptims = ds_main_isshist_isslist.getColumn(iRow, "prcptims");
- if( utlf_isNull(totalcopies) ){
- totalcopies = 0;
- }
- if( utlf_isNull(prcptims) ){
- prcptims = 0;
- }
- isstotalcopies = totalcopies*prcptims //총매수 -> 매수 * 부수
- issTotalprcpcopies += eval(isstotalcopies);
- issprcptims += eval(prcptims);//2008-12-26 사본 총부수 추가 이창록 수정
- }
- if(isspatcnt > 0) ds_main_issinfo.setColumn(0, "isspatcnt", isspatcnt);
- else ds_main_issinfo.setColumn(0, "isspatcnt", "");
- if(isstotalcopies > 0) ds_main_issinfo.setColumn(0, "isstotalcopies", issTotalprcpcopies);
- else ds_main_issinfo.setColumn(0, "isstotalcopies", "");
- if(issprcptims > 0) ds_main_issinfo.setColumn(0, "issprcptims", issprcptims); //2008-12-26 사본 총부수 추가 이창록 수정
- else ds_main_issinfo.setColumn(0, "issprcptims", "");
- }
- else
- {
- sysf_messageBox("조회를", "E009");
- ds_main_issinfo.setColumn(0, "isspatcnt", "");
- ds_main_issinfo.setColumn(0, "isstotalcopies", "");
- }
- }
- /**
- * @ver :
- * @desc : 발행목적 팝업 조회
- * @
- * @by : 이은영
- * @param :
- * @return :
- * @---------------------------------------------------
- */
- function fIssGoalPopUp(){
- var sIssUsge = "";
- var sIssUsgeCnt = 0;
- var sIssGoalEtc = "";
- var sIssGoalEtcCd = "";
- frmf_setParameter("SPMMR02200_usage", "");
-
- frmf_setParameter("SPMMR02200_multichkyn", "N");
- frmf_modal("SPMMR02200", "SPMMR02200", null, null, null, null, null, null, null, null, null, null, "M");
- //var rtObj =
-
- sIssUsge = ds_main.getColumn(0, "issusge");//utlf_transNullToEmpty(rtObj.copyInfoDs.getColumn(rtObj.copyInfoDs.rowposition, "reqdata"));
- if( !utlf_isNull(sIssUsge) ){
- ds_send_cond.setColumn(0, "issgoalnm", lf_getArrayData(sIssUsge, 1, 1));
- ds_send_cond.setColumn(0, "issgoalcd", lf_getArrayData(sIssUsge, 1, 0));
- }
- }
- /**
- * @ver :
- * @desc : 더블클릭시 사본신청/발급창과연계
- * @
- * @by : 이창록 20090507 수정-> 의료정보팀일때만 신규사본신청창 연계
- * @param :
- * @return :
- * @---------------------------------------------------
- */
- function fSendCopyInfo(iRow)
- {
- var userinfo = sysf_getUserInfo("dutplcecd");
-
- // KNUH_20101124_박성호_start
- var dutplcecd = sysf_getUserInfo("dutplcecd");
- var jobkindcd = sysf_getUserInfo("jobkindcd");
- //if(userinfo =="3230000000"){
- if( !utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")) || jobkindcd == "1140" || jobkindcd == "1110")
- {
- // // KNUH_20101124_박성호_end
- frmf_setParameter("SMMRC03000_param_pid" ,ds_main_isshist_isslist.getColumn(iRow, "pid"));
- frmf_setParameter("SMMRC03000_param_hngnm" ,ds_main_isshist_isslist.getColumn(iRow, "hngnm"));
- frmf_setParameter("SMMRC03000_param_rrgstno1" ,ds_main_isshist_isslist.getColumn(iRow, "rrgstno1"));
- frmf_setParameter("SMMRC03000_param_rrgstno2" ,ds_main_isshist_isslist.getColumn(iRow, "rrgstno2"));
- frmf_setParameter("SMMRC03000_param_copyseqno" ,ds_main_isshist_isslist.getColumn(iRow, "copyseqno"));
- //2009-01-28 이창록 추가(발급제한여부 param 추가)
- frmf_setParameter("SMMRC03000_param_prntlim" ,ds_main_isshist_isslist.getColumn(iRow, "prntlim"));
- frmf_setParameter("SMMRC03000_param_ioflagnm" ,ds_main_isshist_isslist.getColumn(iRow, "ioflagnm"));
-
- var chrtObj = frmf_findPopup("SMMRC03000");
- if( !utlf_isNull(chrtObj) ){
- chrtObj.reload();
- }else{
- frmf_open("SMMRC03000", "SMMRC03000", null, null, null, null, null, null, null, null, null, null, "M");
- }
-
- }
-
- }
- /**
- * @ver :
- * @desc :
- * @
- * @by : 이창록
- * @param :
- * @return : 2008-12-29
- * @---------------------------------------------------
- */
- function fSelctPatInfo()
- {
- ds_init_tmp.clearData();
- if( grd_isshist.currentrow > -1 && grd_isshist.currentcol > -1 ){//그리드에서 데이타영역만 선택
- var issdt =ds_main_isshist_isslist.getColumn(ds_main_isshist_isslist.rowposition, "issdt");
- issdd = utlf_transNullToEmpty(issdt).substring(0,8);
-
- dsf_makeValue(ds_init_tmp,"issno", "string", ds_main_isshist_isslist.getColumn(ds_main_isshist_isslist.rowposition, "issno"));
- dsf_makeValue(ds_init_tmp,"ocmnum", "string", ds_main_isshist_isslist.getColumn(ds_main_isshist_isslist.rowposition, "issno"));
- dsf_makeValue(ds_init_tmp,"pid", "string", ds_main_isshist_isslist.getColumn(ds_main_isshist_isslist.rowposition, "pid"));
- dsf_makeValue(ds_init_tmp,"issdd", "string", issdd);
- dsf_makeValue(ds_init_tmp,"indd", "string", issdd);
- dsf_makeValue(ds_init_tmp,"docucd", "string", "0000001127"); //진료기록 사본 발급 위임장 formcd 0000001953 에서 변경(20120514 이윤주)
- dsf_makeValue(ds_init_tmp,"hngnm", "string", ds_main_isshist_isslist.getColumn(ds_main_isshist_isslist.rowposition, "hngnm"));
- dsf_makeValue(ds_init_tmp,"rrgstno1", "string", ds_main_isshist_isslist.getColumn(ds_main_isshist_isslist.rowposition, "rrgstno1"));
- dsf_makeValue(ds_init_tmp,"rrgstno2", "string", ds_main_isshist_isslist.getColumn(ds_main_isshist_isslist.rowposition, "rrgstno2"));
- dsf_makeValue(ds_init_tmp,"cmc_spcid", "string", ""); //blocking null exception
- dsf_makeValue(ds_init_tmp,"cmc_orddate", "string", ""); //blocking null exception
- dsf_makeValue(ds_init_tmp,"cmc_orderseqno", "string", ""); //blocking null exception
- }
- }
- /**
- * @ver :
- * @desc : 사본유의 환자관리에서 등록 및 삭제시 발급리스트 조회
- * @
- * @by : 이창록
- * @param :
- * @return :2008-12-29
- * @---------------------------------------------------
- */
- function fDisPatchHistSearch()
- {
- fHistSearch();
- }
- /**
- * @ver :
- * @desc : 사본 신청발급창에서 신청 및 발행시 조회
- * @
- * @by : 이창록
- * @param : SMMRC03000_appYN ->Y(신청내역저장), SMMRC03000_issYN ->Y(발급완료)
- * @return :2009-03-01
- * @---------------------------------------------------
- */
- function fGetCopyInfoHistSearch()
- {
- var Copyappparam = frmf_getParameter("SMMRC03000_appYN"); // 신청내역저장
- var Copyissparam = frmf_getParameter("SMMRC03000_issYN"); //발급완료
- var prcsflag = ds_send_cond.getColumn(0, "prcsflag");
- if(Copyappparam =="Y"){
- ds_send_cond.setColumn(0, "prcsflag", "N");
- fHistSearch();
- }else if(Copyissparam =="Y"){
- ds_send_cond.setColumn(0, "prcsflag", "Y");
- fHistSearch();
- }
- }
- ]]></Script>
|