/* DSC Åð½ÇÁ¤¸®(SMMNP06010.xfm - JScript ) - Version : 1) : Ver.1.00.01 */ var xPathInddPationList = "/root/main/inddpatlist/inddpatinfo"; var dccparam = ""; // DCC var dschdclrdt = ""; /** * @group : * @ver : 2007.10.10 * @by : Grace * @--------------------------------------------------- * @type : function * @access : public * @desc : Ãʱâ È­¸é ¼³Á¤(±âÃÊ Á¤º¸ ¼³Á¤) * @param : * @return : * @--------------------------------------------------- */ function fInit(){ // DCC if(opener.javascript.getParameter("SMMNP06300_DCC") == "Y"){ dccparam = "DCC"; }else{ dccparam = getScreenMenuParameter(); } fInotSetNode();//³ëµå ÃʱâÈ­ model.removenode("/root/send"); model.makeValue("/root/send/searchitem", "outrm"); model.makeValue("/root/main/condition/outrmdd", getCurrentDate()); model.makeValue("/root/main/condition/outrmtm", fTimeSetting() ); model.makeValue("/root/main/condition/researchflag", "N"); zbcfGetCodeList( new Array("M0011"), new Array("/root/init/M0011list") );//°øÅëÄÚµå ·Îµå grd_testlist.frozenCols = grd_testlist.colRef("prcpcd"); grd_inglist.frozenCols = grd_inglist.colRef("prcpstatcd"); //fGetPatList();//DSC Åð½ÇÁ¤¸® ȯÀÚ¸®½ºÆ®¸¦ Á¶È¸ÇÑ´Ù //fPidFind(); //»ó´ÜÁ¤º¸¸¦ ³»·Á¼­ ÀÚµ¿¼³Á¤Çϱâ // UI ¼³Á¤º¯°æ if(dccparam == "DCC"){ // DCCÀÏ °æ¿ì grp_sea.visible = false; // DSCȯÀÚ¸®½ºÆ®ÀÇ Á¶È¸Á¶°Ç ±×·ì line5.visible = false; line6.visible = true; caption9.visible = false; // Åð½Ç±¸ºÐ rdo_outrmflag.visible = false; caption12.visible = false; // ¿¹Á¤º´½Ç output5.visible = false; btn_dccpatlist.visible = true; // DCCȯÀÚ¸®½ºÆ® Á¶È¸¹öư grd_patlist.attribute("top") = "110"; model.makeValue("/root/main/condition/outrmtp", "1"); // Åð½Ç±¸ºÐ "±Í°¡"·Î fix //20090803_SMY cap_title.attribute("text") = "DCC Åð½ÇÁ¤¸®"; btn_end.visible = true; //º´µ¿¸¶°¨¹öư btn_refresh.attribute("left") = "754px"; }else{ grp_sea.visible = true; // DSCȯÀÚ¸®½ºÆ®ÀÇ Á¶È¸Á¶°Ç ±×·ì line5.visible = true; line6.visible = false; caption9.visible = true; // Åð½Ç±¸ºÐ rdo_outrmflag.visible = true; caption12.visible = true; // ¿¹Á¤º´½Ç output5.visible = true; btn_dccpatlist.visible = false; // DCCȯÀÚ¸®½ºÆ® Á¶È¸¹öư grd_patlist.attribute("top") = "150"; //20090803_SMY cap_title.attribute("text") = "DSC Åð½ÇÁ¤¸®"; btn_end.visible = false; //º´µ¿¸¶°¨¹öư btn_refresh.attribute("left") = "821px"; } fGetPatList();//DSC Åð½ÇÁ¤¸® ȯÀÚ¸®½ºÆ®¸¦ Á¶È¸ÇÑ´Ù + DCC ȯÀÚ¸®½ºÆ® Á¶È¸ } /** * @group : * @ver : 2007.10.09 * @by : Grace * @--------------------------------------------------- * @type : function * @access : public * @desc : DSC ȯÀÚ Á¶È¸ ºÎºÐ * @param : * @return : * @--------------------------------------------------- */ function fGetPatList(){ var sSrchData = ""; grd_patlist.allstyle("all", "background-color") = "white"; //Á¶È¸½Ã Á¶°Ç Ãß°¡ fQueryCond(); grd_patlist.allstyle("all", "background-color") = "white"; submit("TRMNP06015"); //submit("TXMNP06011"); var iRow = grd_patlist.rows for(i= 0 ; i < iRow ; i ++ ){ if(model.getValue("/root/main/inddpatlist/inddpatinfo["+i+"]/dschdclrtyn") == "Y"){ //Åð¿ø¿¹°í ȯÀÚ¿¡ ´ëÇØ ¼¿ »ö»ó ÁöÁ¤ grd_patlist.cellstyle("background-color", i, 0, i, 4) = "#ffd3ff"; //ºÐÈ«»ö } } fGetParamSetting(); //(20080126) »ó´Ü Á¤º¸ ÀÌ¿ë ȯÀÚ ¼±Åà fChangeFocusColor(); // model.refresh(); fPidFind(); } /** * @group : * @ver : 2007.06.07 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : »ó´Ü Á¤º¸ ÀÌ¿ë ȯÀÚ ¼±Åà * @param : * @return : * @--------------------------------------------------- */ function fGetParamSetting(){ var chkPid = getPatientInfo("pid"); var iTgPatRow = 0; if(chkPid != ""){ var tRow = grd_patlist.rows; if(tRow == "1"){ return; }else{ for( i =0 ; i < tRow ; i++ ){ iTgPatRow = grd_patlist.findRow(chkPid ,1, 3,true,true); } } } if(iTgPatRow > 0){ grd_patlist.row = iTgPatRow; grd_patlist.topRow = iTgPatRow; //fSelectPatList();//ȯÀÚ ¼±Åà °Ë»ç/¾à,ÁÖ»ç ó¹æÁ¶È¸ } } //-------------------------- // »ó´ÜÁ¤º¸¸¦ ³»·Á¼­ ÀÚµ¿¼³Á¤Çϱâ //-------------------------- function fPidFind() { // alert("³»¸®±â"); var pGrd = grd_patlist; model.makeNode("/root/main/paminfo"); var node = getGlobalVariable("paminfo"); setCSVToNode("/root/main/paminfo", node); //var sPamInfo = getGlobalVariable("paminfo"); //setCSVToNode("/root/main/paminfo",sPamInfo,"pamlist"); var sPID = model.getValue("/root/main/paminfo/list/pid"); if (sPID != "") { //false : ´ë¼Ò¹®ÀÚ ±¸ºÐÇÏÁö ¾ÊÀ½ //true : ÀüüÀÏÄ¡¿©ºÎ var sRow = pGrd.findRow(sPID,1,pGrd.colRef("pid"),false,true); if(sRow > 0){ //messageBox("»ó´Ü µî·Ï¹øÈ£°¡ " + sPID +" ÀΠȯÀÚ·Î ÀÚµ¿¼³Á¤ÇÕ´Ï´Ù.", "E999",""); pGrd.row = sRow; //¼±Åýà »ö»óº¯°æ fChangeFocusColor();//Åð¿ø¿¹°í ȯÀÚ Cellstyle º¯°æ ¹× Æ÷Ä¿½º Ä÷¯ º¯°æ //ÀÚµ¿¼³Á¤ fSelectPatList();//ȯÀÚ ¼±Åà °Ë»ç/¾à,ÁÖ»ç ó¹æÁ¶È¸ } } //-------------------------- } /** * @group : * @ver : 2007.11.09 * @by : ±èº¸¼º * @--------------------------------------------------- * @type : function * @access : public * @desc : Á¶È¸½Ã Á¶°Ç Ãß°¡ * @param : * @return : * @--------------------------------------------------- */ function fQueryCond(){ model.removenode("/root/send/cond"); var sSrchHeader = "instcd¢Ëangioflag¢Ëdccparam¢Ì"; var sSrchData = getUserInfo("dutplceinstcd")+"¢Ë" + model.getValue("/root/main/condition/angioflag")+"¢Ë" + dccparam + "¢Ì"; model.makeValue("/root/send/cond", sSrchHeader + sSrchData); } /** * @group : * @ver : 2007.06.07 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : ÇöÀç ½Ã°£ ¼³Á¤ * @param : * @return : * @--------------------------------------------------- */ function fTimeSetting(){ var d, s= "" ,t; d = new Date(); if( d.getMinutes() > 10 ) { if(d.getHours() >= 10 ) { t = d.getHours() + "" + d.getMinutes(); } else { t = "0" + d.getHours() + "" + d.getMinutes(); } } else { if(d.getHours() >= 10 ) { t = d.getHours() + "0" + d.getMinutes(); } else { t = "0" + d.getHours() + "0" + d.getMinutes(); } } return t; //model.makeValue("/root/main/condition/outrmtm", t ); } /** * @group : * @ver : 2007.07.07 * @by : Grace * @--------------------------------------------------- * @type : function * @access : public * @desc : ³ëµå ÃʱâÈ­ * @param : * @return : * @--------------------------------------------------- */ function fInotSetNode(){ model.removeNodeset("/root/main/inddpatlist/inddpatinfo"); model.removeNodeset("/root/main/incplist/testinfo" ); model.removeNodeset("/root/main/incplist/inginfo" ); } /** * @group : * @ver : 2007.10.10 * @by : Grace * @--------------------------------------------------- * @type : function * @access : public * @desc : »ó´Ü Åð½Ç Á¶°Ç ÃʱâÈ­ * @param : * @return : * @--------------------------------------------------- */ function fInitSettingTop(){ model.makeValue("/root/main/condition/outrmtp", "" ); model.makeValue("/root/main/condition/chnghospnm", "" ); model.makeValue("/root/main/condition/outrmcd", "" ); model.makeValue("/root/main/condition/dethdd", "" ); model.makeValue("/root/main/condition/dethtm", "" ); model.makeValue("/root/main/condition/pid", "" ); model.makeValue("/root/main/condition/healcaretgdyn", ""); model.makeValue("/root/main/condition/proceraprvyn", "" ); model.makeValue("/root/main/condition/outrmtm", fTimeSetting() ); model.refresh(); } /** * @group : * @ver : 2007.07.07 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : ÀÀ±Þ½Ç ó¹æ Á¶È¸ key¼³Á¤ * @param : * @return : * @--------------------------------------------------- */ function fSetPatInfo(){ var iRow = grd_patlist.row; var sSrchData = ""; var sSrchHeader = "pid¢Ëindd¢Ëcretno¢Ëinstcd¢Ëdschdclrdt¢Ëdccparam¢Ì"; var sSrchData = model.getValue(xPathInddPationList+"["+iRow+"]/pid" )+"¢Ë" + model.getValue(xPathInddPationList+"["+iRow+"]/indd" )+"¢Ë" + model.getValue(xPathInddPationList+"["+iRow+"]/cretno")+"¢Ë" + model.getValue(xPathInddPationList+"["+iRow+"]/instcd")+"¢Ë" + model.getValue(xPathInddPationList+"["+iRow+"]/dschdclrdt")+"¢Ë" + dccparam +"¢Ì"; // DCC ¹Ì¸¶°¨°Ç¼öÁ¶È¸ Ãß°¡_20090704 model.removeNodeset("/root/send"); return sSrchHeader + sSrchData; } /** * @group : * @ver : 2007.07.07 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : DSC Àç¿øÈ¯ÀÚ ¼±Åà °Ë»ç/¾à,ÁÖ»ç ó¹æ Á¶È¸& * Åõ¾àÀúÀå Á¤º¸ Á¶È¸ & * Ç÷¾×ó¹æ Á¶È¸ (20080904) DCC ¹Ì¸¶°¨°Ç¼öÁ¶È¸ Ãß°¡_20090704 * @param : * @return : * @--------------------------------------------------- */ function fSelectInddPatList(pFlag){ // °Ë»ç, ¾à/ÁÖ»ç ó¹æ Á¶È¸ // & Ç÷¾×ó¹æ Á¶È¸ (20080904) // DCC ¹Ì¸¶°¨°Ç¼öÁ¶È¸ Ãß°¡_20090704 if(pFlag == "S"){ model.makeValue("/root/send/searchpat", fSetPatInfo() ); model.makeValue("/root/main/condition/researchflag", "N"); } // Åõ¾àÀúÀå Á¤º¸ Á¶È¸ if(pFlag == "R"){ if(model.getValue("/root/main/condition/researchflag") == "N"){ model.makeValue("/root/send/researchpat",sSrchHeader+sSrchData ); model.makeValue("/root/main/condition/researchflag", "I"); } else { model.makeValue("/root/send/searchpat", sSrchHeader+sSrchData ); model.makeValue("/root/main/condition/researchflag", "N"); } } //grd_inglist.allstyle("all", "background-color") = "white"; grd_inglist.rebuildStyle(); //dsc ȯÀÚ °Ë»ç, ¾à/ÁÖ»ç ó¹æ Á¤º¸ Á¶È¸ //& Ç÷¾×ó¹æ Á¤º¸ Á¶È¸ (20080904) //& ¸¶¾àó¹æ Á¤º¸ Á¶È¸ (20081226) if(submit("TXMNP06012")){ grd_inglist.rebuild(); var iRow = grd_inglist.rows for(i= 0 ; i < iRow ; i ++ ){ if(model.getValue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y"){ //Åð¿ø¾à ¾à È®ÀÎ grd_inglist.cellstyle("background-color", i, 0, i, 19) = "#ccffff"; //Çϴûö } } model.refresh(); }else{ messageBox('¹Ì¼öÇà ó¹æÁ¶È¸¸¦', 'E009'); return; } } /** * @group : * @ver : 2007.10.10 * @by : Grace * @--------------------------------------------------- * @type : function * @access : public * @desc : È­¸é»ó´ÜÁ¤º¸¼³Á¤ * @param : * @return : * @--------------------------------------------------- */ function fSetParam(){ // ÀÔ¿øÈ¯ÀÚ È­¸é»ó´ÜÁ¤º¸ ¼³Á¤ if(grd_patlist.row < 1) return; //alert(grd_patlist.row); var param = "I" + "¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid" ) + "¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/indd" ) + "¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/cretno" ) + "¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/instcd" ) + "¢Ë" + "¢Ë" ; setParameter("condparam", param); modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;"); } /** * @group : * @ver : 2007.06.21 * @by : Grace * @--------------------------------------------------- * @type : function * @access : public * @desc : DSCÅð½Çó¸® * @param : * @return : * @--------------------------------------------------- */ function fOutRmTret(){ // ȯÀÚ ¼±Åà ¿©ºÎ üũ if(model.getValue("/root/main/condition/pid") == "" ) { messageBox("ȯÀÚ°¡ ¼±ÅõÇÁö", "E007"); model.setFocus("grd_patlist"); return; } // ÀÔ¿øÀ¸·Î ÀÎÇÑ Åð¿ø ¹èÁ¤ º´½Ç üũ if(model.getValue("/root/main/condition/outrmtp") =="2" && model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/assgroom") == ""){ //20090123 dhkim //itc±è¼÷ÀÎ º¯°æ°³¹ß¿äû³»¿ë ¹Ý¿µ -> ¸Þ¼¼Áö ¼öÁ¤ messageBox("º´½Ç¹èÁ¤ÀÌ µÇÁö ¾ÊÀº °æ¿ì ÀÔ¿ø¿¡ ÀÇÇÑ Åð½ÇÁ¤¸®°¡ ºÒ°¡´ÉÇÕ´Ï´Ù.","I"); //messageBox("ÀÔ¿ø º´½Ç ¹èÁ¤ÀÌ µÇÁö ¾Ê¾Ò½À´Ï´Ù.","I"); return; } // ȯÀÚ Åð¿ø¿¹°í »óÅ üũ if(( model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/dschdclrtyn") == "N" || model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/dschdclrtyn") == "" ) && model.getValue("/root/main/condition/outrmtp") != "2" ){ //20090123 dhkim //itc±è¼÷ÀÎ º¯°æ°³¹ß¿äû³»¿ë ¹Ý¿µ -> ¸Þ¼¼Áö ¼öÁ¤ messageBox("Åð¿ø¿¹°í°¡ µÇÁö ¾ÊÀº °æ¿ì ±Í°¡¿¡ ÀÇÇÑ Åð½ÇÁ¤¸®°¡ ºÒ°¡´ÉÇÕ´Ï´Ù.", "E"); //messageBox("Åð¿ø¿¹°í ȯÀÚ°¡ ¾Æ´Õ´Ï´Ù.", "E"); model.setFocus("grd_patlist"); return; } // Åð½Ç½Ã ¼±ÅÃÁø·á È®ÀÎ fChkSpecOrdPrt(); // Åð½ÇÀϽà ÀԷ üũ if(model.getValue("/root/main/condition/outrmdd") == "" || model.getValue("/root/main/condition/outrmtm")== ""){ messageBox("Åð½ÇÀϽôÂ", "I003"); model.setFocus("ipt_outrddd"); return; } // Åð½ÇÀϽà ÀÔ½ÇÀϽà ºñ±³ üũ var eroutdt = model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm"); if(output2.value > eroutdt ) { messageBox("ÀÔ½Ç/Åð½Ç ÀϽø¦ È®ÀÎÇϽʽÿä", "I"); model.setFocus("ipt_outrmtm"); } // Åð½Ç±¸ºÐ ¼±ÅÃÈ®ÀÎ if(model.getValue("/root/main/condition/outrmtp") == ""){ messageBox("Åð½Ç±¸ºÐÀ»", "I003"); model.setFocus("rdo_outrmflag"); return; } //¹Ì½ÃÇà °Ë»ç ó¹æ Á¸Àç ¿©ºÎ üũ //(20080102:°Ë»çÀΰæ¿ì´Â ÀÔ¿øµÇ´Â°æ¿ì°¡ ÀÖÀ¸¹Ç·Î ÀÔ¿ø½Ã´Â º´¿øÀ̰ü µÈ´Ù. // var chktest = "Y"; // for(i=1; i <= getNodesetCount("/root/main/incplist/testinfo");i++ ) { // if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N" ){ // chktest = "N"; // } // } // // if( chktest == "N" ) { // if ( model.getValue("/root/main/condition/outrmtp") == "2" ) { // ÀÔ¿øÀÎ °æ¿ì È®ÀÎ // var vbYes = messageBox("¹Ì½ÃÇà °Ë»ç ó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.","Q003"); // if( vbYes != 6 ){ // return; // } // }else{ // messageBox("¹Ì½ÃÇà °Ë»çó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E"); // model.setFocus("grd_testlist"); // return; // } // } //¹Ì½ÃÇà ¾à,ÁÖ»ç ó¹æ Á¸Àç ¿©ºÎ üũ var chking = ""; var outdrug = 0; //---(20080923) for(i=1; i <= getNodesetCount("/root/main/incplist/inginfo"); i++ ) { if(model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "N" ){//¹Ì½ÃÇà if(model.getValue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y"){//Åð¿øÃ³¹æ¿©ºÎ chking = "OUT";//Åð¿ø¾àÀÖÀ½ //--------------(20080923) if(model.getValue("/root/main/incplist/inginfo["+i+"]/drugno") != "") { outdrug ++; } //--------------(20080923) }else{ chking = "N";//¹Ì½ÃÇàó¹æÀÖÀ½ } }else if(model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "DC"){//¹Ý³³ÀÇ·Ú(d/c) chking = "DC";//¹Ý³³ÀÇ·Ú } } //20080922 dhkim Åð¿ø¾à ÀÚµ¿À¸·Î ¾à±¹¿¡ Àü¼ÛµÊ. Åð½ÇÁ¤¸®½Ã Åð¿ø¾àÀº blockingó¸®ÇÏÁö ¾ÊÀ½ /* if(chking == "OUT"){ messageBox("Åð¿ø¾àÈ®ÀÎÀ» ÇÏÁö ¾ÊÀº Åð¿øÃ³¹æÀÌ Á¸ÀçÇÏ¿© Åð½Ç󸮸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E"); model.setFocus("btn_drugsave"); return; } */ if(chking == "N"){ messageBox("¹Ì½ÃÇà ¾à/ÁÖ»ç ó¹æÀÌ Á¸ÀçÇÏ¿© Åð½Ç󸮸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E"); model.setFocus("grd_inglist"); return; } if(chking == "DC"){ messageBox("¹Ýȯ¿äû ¾à/ÁÖ»ç ó¹æÀÌ Á¸ÀçÇÏ¿© Åð½Ç󸮸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E"); model.setFocus("grd_inglist"); return; } //Åð¿øÈÄ ¿Ü·¡ ó¹æ üũ & ¹Ì½ÃÇà °Ë»çó¹æ üũ var sOutPrcp = ""; var sDefineCnt = 0; for(i=1 ; i < grd_testlist.rows ; i++){ if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "OUT" ){ if(sOutPrcp == ""){ sOutPrcp = "Åð¿ø ÈÄ ¿Ü·¡ ó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù."; } sOutPrcp += "\n" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpnm") ; }else{ if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "-"){ sDefineCnt++; } } } if(sDefineCnt > 0){ if(model.getValue("/root/main/condition/outrmtp") == "2"){//Åð½Ç±¸ºÐÀÌ ÀÔ¿ø messageBox(sDefineCnt+" °ÇÀÇ »óÅ ¹Ì¼³Á¤ µ¥ÀÌÅͰ¡ Á¸ÀçÇÕ´Ï´Ù.\n¹Ì¼³Á¤ µ¥ÀÌÅÍ´Â º´µ¿À̰ü µË´Ï´Ù.", "I"); }else{//Åð½Ç±¸ºÐ ±Í°¡ messageBox("¹Ì½ÃÇà °Ë»çó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E"); model.setFocus("grd_testlist"); return; } } //Åð¿øÈÄ ¿Ü·¡ ó¹æ È®ÀÎ ¸Þ½ÃÁö if(sOutPrcp != ""){ messageBox(sOutPrcp, "I"); } //----------------------(20080923) // Åð¿ø¾àÀº Åõ¾à¹øÈ£°¡ »ý¼ºµÇÁö ¾Ê¾Æµµ ÀϹݺ´µ¿Ã³·³ Åð½ÇÀº °¡´ÉÇÏ°Ô ÇÑ´Ù. if (outdrug > 0) { messageBox("Åð¿ø¾àÀÌ Á¸ÀçÇÕ´Ï´Ù. Åõ¾à¹øÈ£°¡»ý¼ºµÇÁö ¾Ê¾ÒÁö¸¸ Åð½ÇÀº °¡´ÉÇÕ´Ï´Ù","E999"); } //----------------------(20080923) // DCC Åõ¾à¹Ì¸¶°¨°Ç Á¸Àç ½Ã Åð½Ç±ÝÁö_20090705 if(model.getValue("/root/main/incplist/dccdrugendlist/dccdrugendcnt")>0){ messageBox("¹Ì¸¶°¨³»¿ªÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E", "º´µ¿Åõ¾à¸¶°¨À» È®ÀÎÇϽʽÿÀ."); return; } //-----------(20110228) °æºÏ´ë // ¼ö¼ú·áüũ--dscÁ¦¿Ü // * @desc : üũ±â´É(º´µ¿Åð½Ç/ÀÀ±Þ½ÇÅð½Ç/dscÅð½Ç) // ȯÀÚÁ¤º¸ Á¶È¸ //model.removeNodeSet(xPatInfoPath); //var sPamInfo = getGlobalVariable("paminfo"); //setCSVToNode("/root/main/paminfo",sPamInfo,"pamlist"); //ȯÀÚÁ¤º¸³»¸®±â // var sschk = model.getValue("/root/main/paminfo/list/opfeechkyn"); //¼ö¼ú·áüũ¿©ºÎ // var sspid = model.getValue("/root/main/paminfo/list/pid"); // var ssindd = model.getValue("/root/main/paminfo/list/indd"); // var ssdschdd = model.getValue("/root/main/condition/outrmdd"); //Åð¿ø¿¹Á¤ÀÏ // //alert(sschk + "/" +sspid + "/" + ssindd + "/" + ssdschdd); // if (sschk != "Y") { // messageBox("´ÙÀ½ÆË¾÷â¿¡¼­ ¼ö¼ú·á¿©ºÎ Ç׸ñÀÇ 'N' ÀÎ °æ¿ì¿¡ ´ëÇÑ ¼ö¼ú·á ÀÔ·ÂÀ» ÀÇ·áÁø¿¡ ¿äûÇϽʽÿÀ.", "E"); // // setParameter("SPMMO21600_param", sspid + "|" + ssindd + "|" + ssdschdd ) // modal("SPMMO21600"); // clearParameter("SPMMO21600_param"); // return ; // } //-----------(20110228) °æºÏ´ë //Ä¡°úÀ̸鼭 6½Ã°£ Ãʰú ȯÀÚ if((getUserInfo("dutplceinstcd") == "033") && (Number(model.getValue("/root/timeterm/hh"))>6)){ messageBox("Àç½Ç½Ã°£ 6½Ã°£ ÃʰúȯÀÚÀÔ´Ï´Ù.\nÁøÇàºÒ°¡ÇÕ´Ï´Ù!", "I"); return; } // DCC 6½Ã°£ À̳» ü·ù ½Ã °æ°í â if((dccparam == "DCC") && (Number(model.getValue("/root/timeterm/hh"))<6)){ var rtnMsg = messageBox("Àç½Ç½Ã°£ 6½Ã°£ À̳» ȯÀÚÀÔ´Ï´Ù.\nÅð½Çó¸®ÇϽðڽÀ´Ï±î?", "Q"); if("6" == rtnMsg){ vbYes = rtnMsg; }else{ return; } } else{ var vbYes = messageBox("Åð½Ç󸮸¦ ", "Q004"); } if(vbYes == 6){ var iRow = grd_patlist.row; //--------- (20080123): DSC Åð½Ç½Ã DUMPÀ» À§ÇÑ ¹Ý¿µ var sHeader = "inpt_pid¢Ëinpt_indd¢Ëinpt_cretno¢Ëinpt_orddeptcd¢Ëbrateflag¢Ëoutrmtp¢Ëpid¢Ëindd¢Ëcretno¢Ëordtype¢Ëordrslttype¢Ëmedispclid¢Ì"; var sTerm = ""; var ordrslttype = ""; //20081024 ¿ø¹« ÀÎÅÍÆäÀ̽º parameterÃß°¡¿äû if(model.getValue("/root/main/condition/outrmtp") == '1'){ ordrslttype = 'H';//±Í°¡ }else if(model.getValue("/root/main/condition/outrmtp") == '2'){ ordrslttype = 'I';//ÀÔ¿ø } if(Number(model.getValue("/root/timeterm/hh")) >= 6) { sTerm = "I"; } else { sTerm = "O"; } /* 20081027 ¿ø¹« parameterÃß°¡ ¿äûÀ¸·Î ÁÖ¼®Ã³¸®ÇÔ. old¹öÀü var sData = model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/pid" ) +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/indd" ) +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/cretno" ) +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/orddeptcd" )+"¢Ë" + sTerm +"¢Ë" + model.getValue("/root/main/condition/outrmtp") +"¢Ì"; */ //20081027 ¿ø¹« ÀÎÅÍÆäÀ̽º È£Ãâ½Ã parameterÃß°¡ ¿äûÀ¸·Î º¯°æ var sData = model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/pid" ) +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/indd" ) +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/cretno" ) +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/orddeptcd" ) +"¢Ë" + sTerm +"¢Ë" + model.getValue("/root/main/condition/outrmtp") +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/pid" ) +"¢Ë"//20081024 ¿ø¹« ÀÎÅÍÆäÀ̽º parameterÃß°¡¿äû + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/indd" ) +"¢Ë"//20081024 ¿ø¹« ÀÎÅÍÆäÀ̽º parameterÃß°¡¿äû + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/cretno" ) +"¢Ë"//20081024 ¿ø¹« ÀÎÅÍÆäÀ̽º parameterÃß°¡¿äû + "D" +"¢Ë"//20081024 ¿ø¹« ÀÎÅÍÆäÀ̽º parameterÃß°¡¿äû + ordrslttype +"¢Ë"//20081024 ¿ø¹« ÀÎÅÍÆäÀ̽º parameterÃß°¡¿äû + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/orddrid") +"¢Ì";//20091012 ¿ø¹« ÀÎÅÍÆäÀ̽º parameterÃß°¡¿äû K. J. M //Åð¿ø°áÁ¤ÀϽà ¼ÂÆÃ(ÀÔ¿ø : ÀÔ¿ø°áÁ¤ÀϽà , ±âŸ : Åð¿ø¿¹°íÀϽÃ) // //if(rdo_outrmflag.value == "2"){ // dschdclrdt = model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/inrsrvacptdt"); //}else{ dschdclrdt = model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/dschdclrdt"); //} var sSrchData = ""; var sSrchHeader = "pid¢Ëindd¢Ëcretno¢Ëseqno¢Ëvisitno¢Ëoutrmdd¢Ëoutrmtm¢Ëoutrmcd¢Ëchnghospnm¢Ëdethdd¢Ëdethtm¢Ëhealcaretgdyn¢Ëproceraprvyn¢Ëeroutdt¢Ëinstcd¢Ëdschdclrdt¢Ëoutrmtp¢Ëbrateflag¢Ëdccparam¢Ì"; var sSrchData = model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/pid" ) +"¢Ë"//ȯÀÚµî·Ï¹øÈ£ + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/indd" ) +"¢Ë"//ÀÔ¿øÀÏÀÚ + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/cretno" ) +"¢Ë"//ÀÔ¿ø»ý¼º¹øÈ£ + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/seqno" ) +"¢Ë"//ÀÌ·ÂÀϷùøÈ£ + "¢Ë"// + model.getValue("/root/main/condition/outrmdd" ) +"¢Ë"//dscÅð½ÇÀÏÀÚ + model.getValue("/root/main/condition/outrmtm" ) +"¢Ë"//dscÅð½Ç½Ã°£ + model.getValue("/root/main/condition/outrmcd" ) +"¢Ë"// + "¢Ë" + "¢Ë" + "¢Ë" + "¢Ë" + "¢Ë" + eroutdt +"¢Ë"//dscÅð½ÇÀÏÀÚ + ½Ã°£ + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/instcd" )+"¢Ë"//±â°üÄÚµå + dschdclrdt +"¢Ë"// + model.getValue("/root/main/condition/outrmtp") +"¢Ë"//Åð½Ç±¸ºÐ + sTerm +"¢Ë"//ÀÔ¿ø¿Ü·¡¿äÀ²±¸ºÐ + dccparam +"¢Ì"; +"¢Ì"; //----------(20080102) // + model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/dschdclrdt")+"¢Ë" // + model.getValue("/root/main/condition/outrmtp" ) // + "¢Ì"; model.removenode("/root/send"); //[20081211 dhkim] Åð¿ø¾à ¿ø³» 󸮽à ¾àÁ¦ ÀÎÅÍÆäÀ̽º È£ÃâÀ» À§ÇÑ ÆÄ¶ó¹ÌÅͼ¼ÆÃ model.makeValue("/root/send/pharmacyif", grd_inglist.getUpdateDataAll('i')); model.makeValue("/root/send/outrmtret", sSrchHeader + sSrchData); var sSrchData = ""; var sSrchHeader = "section¢Ì"; var sSrchData = "¢Ì"; model.makeValue("/root/send/searchinfo", sSrchHeader + sSrchData); fInotSetNode();//³ëµåÃʱâÈ­ //--------- (20080123): DSC Åð½Ç½Ã DUMPÀ» À§ÇÑ ¹Ý¿µ model.removenode("/root/send/outrmtret2"); model.makeValue("/root/send/outrmtret2", sHeader + sData); //------------------------------------------------- //--------- (20121208): DSC Åð½Ç½Ã ÀÏÀÏ ¼ö¼ú½Ç ¼ö³³¾È³»¹® Ãâ·ÂÀ» À§ÇÑ ¹Ý¿µ_¼Õ¼ºÈÆ. var sPrtData = ""; var sPrtHeader = "pid¢Ëorddeptcd¢Ì"; var sPrtData = model.getValue("/root/main/paminfo/list/pid" ) +"¢Ë"//ȯÀÚµî·Ï¹øÈ£ + model.getValue("/root/main/paminfo/list/orddeptcd") +"¢Ì" // ȯÀÚ Áø·á °ú. model.removenode("/root/send/nxtordchk"); model.makeValue("/root/send/nxtordchk", sPrtHeader + sPrtData ); //------------------------------------------------ //Á¶È¸½Ã Á¶°Ç Ãß°¡ fQueryCond(); model.removeNode("/root/main/condition/judpopup"); if(submit("TXMNP06011")==true){ grd_patlist.rebuildStyle(); //-- (20121208): DSC Åð½Ç½Ã ÀÏÀÏ ¼ö¼ú½Ç ¼ö³³¾È³»¹® Ãâ·ÂÀ» À§ÇÑ ¹Ý¿µ_¼Õ¼ºÈÆ. var sNxtOrddd = model.getValue("/root/main/condition/prtinfo/nxtorddd"); var sNxtOrdtm = model.getValue("/root/main/condition/prtinfo/nxtordtm"); model.makeValue("/root/main/paminfo/list/nxtorddd", sNxtOrddd); model.makeValue("/root/main/paminfo/list/nxtordtm", sNxtOrdtm); if (Number(model.getValue("/root/timeterm/hh")) >= 6) { exeReportPreview("RPMNP06011", "XMLSTR", "/root/main/paminfo/list", "", "true", "false", "", "", "", "true"); // ÀÔ¿ø Ãâ·Â¹° }else{ if( getUserInfo("dutplceinstcd") == "033" ) { exeReportPreview("RPMNP06012", "XMLSTR", "/root/main/paminfo/list", "", "true", "false", "", "", "", "true"); // Ä¡°ú ¿Ü·¡ Ãâ·Â¹° } else { exeReportPreview("RPMNP06010", "XMLSTR", "/root/main/paminfo/list", "", "true", "false", "", "", "", "true"); // ¿Ü·¡ Ãâ·Â¹° } } //exeReportPreview("RPMNP06010", "XMLSTR", "/root/main/paminfo/list", "", "true", "false", "", "", "", "true"); //exeReportPreview(·¹Æ÷Æ®¸í, ¿¬°è¹æ¹ý, ¸Å°³º¯¼öÇʵå XPath, SubmitID, Ãâ·Â¿©ºÎ, Àμâ â º¸ÀÓ ¿©ºÎ, ÀúÀåŸÀÔ, ÆÄÀϸí, ÆÄÀÏ ÀúÀå â º¸ÀÓ¿©ºÎ, ¹Ì¸®º¸±ââ´Ý±â¿©ºÎ, ¸ð´ÏÅÍ ¹øÈ£, µ¥ÀÌÅÍ ¼Ò½º, µ¥ÀÌÅÍ XPath , ¸ÞÀθ®Æ÷Æ® ¹Ýº¹XPath, ¼­ºê¸®Æ÷Æ®1 ¹Ýº¹Xpath) //------------------------------------------------ // var judpopup = "N"; judpopup = model.getValue("/root/main/condition/judpopup/judpopup"); if (judpopup == "Y") { messageBox("½É»ç ´ë»óÀÚÀÔ´Ï´Ù. ½É»ç¿Ï·á ÈÄ Åð¿ø ¾È³»ÇϽñ⠹ٶø´Ï´Ù.", "I999"); } // btn_prn.dispatch("DOMActivate"); } fInitSettingTop(); var tRow = grd_patlist.rows; for(i= 0 ; i < tRow ; i ++ ){ if(model.getValue("/root/main/inddpatlist/inddpatinfo["+i+"]/dschdclrtyn") == "Y"){ //Åð¿ø¿¹°í ȯÀÚ¿¡ ´ëÇØ ¼¿ »ö»ó ÁöÁ¤ grd_patlist.cellstyle("background-color", i, 0, i, 4) = "#ffd3ff"; } } model.refresh(); }else{ return; } } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : ±×¸®µå ¼±Åà ÄÁÆ®·Ñ * @param : * @return : * @--------------------------------------------------- */ function fSelectGridRowCtrl(pPath, pFlag){ //¼±ÅÃrow ÃʱâÈ­ var iRow = ""; var iRow = ""; var sRow = ""; var tRow = ""; var chkNode1 = ""; var chkNode2 = ""; //°Ë»ç ±×¸®µå ¼±Åà ½Ã ¹ß»ý if(pFlag == "T"){ iRow = grd_testlist.row; sRow = grd_testlist.selectedRows; eRow = grd_testlist.selectedRow(0); tRow = grd_testlist.rows; chkNode1 = "/selectyn"; chkNode2 = "/testtp"; //¾à,ÁÖ»ç ±×¸®µå ¼±Åà ½Ã ¹ß»ý }else if(pFlag == "I"){ iRow = grd_inglist.row; sRow = grd_inglist.selectedRows; eRow = grd_inglist.selectedRow(0); tRow = grd_inglist.rows; chkNode1 = "/selectyn"; chkNode2 = "/prcpkindcdyn"; } //Ç÷¾× ±×¸®µå ¼±Åà ½Ã ¹ß»ý else if(pFlag == "TNS"){ iRow = grd_tnsprcplist.row;//¼±ÅÃÇÑ row sRow = grd_tnsprcplist.selectedRows;//¼±ÅÃµÈ ÇàµéÀÇ °¹¼ö eRow = grd_tnsprcplist.selectedRow(0);//¼±ÅÃµÈ 0¹øÂ°ÇàÀÇ À妽º tRow = grd_tnsprcplist.rows;//±×¸®µåÀÇ ÃѰ¹¼ö chkNode1 = "/selectyn"; chkNode2 = "/prcpkindcdyn"; } if(eRow < "0"){ return; } else { if(pFlag == "T"){ if(tRow != "1"){ // ctrlŰ ´©¸¥ »óÅ¿¡¼­ ±×¸®µå Ŭ¸¯½Ã ¼±ÅÃµÈ ¸ðµç Çà »óŰª º¯°æ if(event.ctrlKey == 1){ if(model.getValue(pPath+"["+iRow+"]"+chkNode1) != "Y" ){ //&& model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) { model.makeValue(pPath+"["+iRow+"]"+chkNode1, "Y"); } else { model.makeValue(pPath+"["+iRow+"]"+chkNode1, ""); } } // shiftŰ ´©¸¥ »óÅ¿¡¼­ ¼±ÅÃÇà°ú ¸¶Áö¸· ¼±ÅÃÇà »çÀÌÀÇ ±×¸®µå »óŰª º¯°æ else if(event.shiftKey == 1){ for(i =1 ; i < tRow ; i++){ model.makeValue(pPath+"["+i+"]"+chkNode1, ""); } if(iRow == eRow){ for(i = iRow ; i < iRow+sRow ; i++) { if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){ // && model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } }else{ for(i = eRow; i <= iRow ; i ++ ){ if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){ // && model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } } } // ¸¶¿ì½º µå·¡±×¸¦ ÇÏ¿© ±×¸®µåÀÇ ·Î¿ì ¼±Åýà »óŰª º¯°æ else { for(i =1 ; i < tRow ; i++){ model.makeValue(pPath+"["+i+"]"+chkNode1, ""); } if(sRow == "1"){ if(model.getValue(pPath+"["+eRow+"]"+chkNode1) != "Y" ){ //&& model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) { if(tRow ==1){ return; }else{ model.makeValue(pPath+"["+eRow+"]"+chkNode1, "Y"); } } else { model.makeValue(pPath+"["+eRow+"]"+chkNode1, ""); } } else { if(iRow == eRow){ for(i = iRow ; i < iRow+sRow ; i++) { if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){ //&& model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } }else{ for(i = eRow; i <= iRow ; i ++ ){ if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){ //&& model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } } } } } }else if(pFlag == "I" || pFlag == "TNS"){ if(tRow != "1"){ // ctrlŰ ´©¸¥ »óÅ¿¡¼­ ±×¸®µå Ŭ¸¯½Ã ¼±ÅÃµÈ ¸ðµç Çà »óŰª º¯°æ if(event.ctrlKey == 1){ if(model.getValue(pPath+"["+iRow+"]"+chkNode1) != "Y" ) { model.makeValue(pPath+"["+iRow+"]"+chkNode1, "Y"); } else { model.makeValue(pPath+"["+iRow+"]"+chkNode1, ""); } } // shiftŰ ´©¸¥ »óÅ¿¡¼­ ¼±ÅÃÇà°ú ¸¶Áö¸· ¼±ÅÃÇà »çÀÌÀÇ ±×¸®µå »óŰª º¯°æ else if(event.shiftKey == 1){ //alert('shift'); for(i =1 ; i < tRow ; i++){ model.makeValue(pPath+"["+i+"]"+chkNode1, ""); } if(iRow == eRow){ for(i = iRow ; i < iRow+sRow ; i++) { if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } }else{ for(i = eRow; i <= iRow ; i ++ ){ if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } } } // ¸¶¿ì½º µå·¡±×¸¦ ÇÏ¿© ±×¸®µåÀÇ ·Î¿ì ¼±Åýà »óŰª º¯°æ else { //alert('drag'); for(i =1 ; i < tRow ; i++){ model.makeValue(pPath+"["+i+"]"+chkNode1, ""); } if(sRow == "1"){ if(model.getValue(pPath+"["+eRow+"]"+chkNode1) != "Y" ) { if(tRow ==1){ return; }else{ model.makeValue(pPath+"["+eRow+"]"+chkNode1, "Y"); } } else { model.makeValue(pPath+"["+eRow+"]"+chkNode1, ""); } } else { if(iRow == eRow){ for(i = iRow ; i < iRow+sRow ; i++) { if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } }else{ for(i = eRow; i <= iRow ; i ++ ){ if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ) { model.makeValue(pPath+"["+i+"]"+chkNode1, "Y"); } } } } } } } } } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : Åõ¾àÀúÀå ÀÌ¹êÆ® ó¸® * @param : * @return : * @--------------------------------------------------- */ function fSaveDrugTret(){ //¹ÌÁ¤ÀÇ(»ç¿ëÇÏÁö ¾ÊÀ½) if(model.getValue("/root/main/condition/researchflag") == "I"){ fSelectInddPatList("S"); } var datacheck2 = "N"; var datacheck3 = "N"; //Åð¿ø¾àÀ̸鼭 ¾à±¹À¸·Î Àü¼ÛÇÏ¿© Áý°èÇÏÁö ¾Ê´Â ó¹æ °ËÁõ for(i= 1 ; i < grd_inglist.rows; i++ ) { //Åð¿ø¾àÀ̸鼭 ¹Ìacting°Ç if(model.getvalue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y" && model.getvalue("/root/main/incplist/inginfo["+i+"]/execyn") == "N" ){ datacheck2 = "Y"; } if(model.getvalue("/root/main/incplist/inginfo["+i+"]/prcpstatcd") == "000"){ datacheck2 = "C"; } if(model.getvalue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y"){ datacheck3 = "Y"; } } if(datacheck2 == "N" || grd_inglist.rows == "1" ){ messageBox("¹Ì½ÃÇà Åð½Çó¹æÀÌ Á¸ÀçÇÏÁö", "E007"); model.setFocus("btn_outsave"); return; }else if(datacheck2 == "C"){ messageBox("°£È£È®ÀÎÀ» ÇÏÁö ¾ÊÀº Åð¿ø¾àÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E"); return; }else{ model.removenodeset("/root/send"); model.makeValue("/root/send/searchpat", fSetPatInfo() ); model.makeValue("/root/send/drugsaveinfo", grd_inglist.getUpdateDataAll("i")); model.removeNodeset("/root/main/incplist"); if(submit("TXMNP06015")== true){ //messageBox("¾à±¹À¸·Î Åð¿ø¾à Àü¼Û ¿Ï·áÇß½À´Ï´Ù.","I"); model.refresh(); } } } /** * @group : * @ver : 2007.07.07 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : ¿ÞÂÊ ¸¶¿ì½º Ŭ¸¯ ¸Þ´º * @param : * @return : * @--------------------------------------------------- */ function fPopupMenuInfo(pFlag){ //------------(20080102ÀÌÀü) //¸¶¿ì½º ¿À¸¥ÂÊ ¹öư Ŭ¸¯½Ã ÀÌ¹êÆ® ¹ß»ý /* if(event.button == 3){ //°Ë»çÅÇ¿¡¼­ ¸¶¿ì½º Ŭ¸¯½Ã ¹ß»ý if(pFlag == "T"){ //¼±ÅþøÀÌ ¸¶¿ì½º ¿À¸¥ÂÊ Å¬¸¯À¸·Î ¼±Åà ÀÌ¹êÆ® if(grd_testlist.row == "-1"){ grd_testlist.row = grd_testlist.mouseRow; } //¼±ÅÃÇà ¼±Åà Ç÷¡±× º¯°æ ÈÄ DCÆË¾÷â Ȱ¼ºÈ­ if(grd_testlist.isCell(event.target) && grd_testlist.mouseRow >= grd_testlist.fixedrows){ model.makeValue("/root/main/incplist/testinfo["+grd_testlist.row+"]/selectyn", "Y"); window.setPopupMenu( true, "/root/codedata/popupmenu/grid01/item", "name", "func", true); }else{ window.setPopupMenu(false); } //¾à,ÁÖ»çÅÇ¿¡¼­ ¸¶¿ì½º Ŭ¸¯½Ã ¹ß»ý }else{ //¼±ÅþøÀÌ ¸¶¿ì½º ¿À¸¥ÂÊ Å¬¸¯À¸·Î ¼±Åà ÀÌ¹êÆ® if(grd_inglist.row == "-1"){ grd_inglist.row = grd_inglist.mouseRow; } //¼±ÅÃÇà ¼±Åà Ç÷¡±× º¯°æ ÈÄ DCÆË¾÷â Ȱ¼ºÈ­ if(grd_inglist.isCell(event.target) && grd_inglist.mouseRow >= grd_inglist.fixedrows){ model.makeValue("/root/main/incplist/inginfo["+grd_inglist.row+"]/selectyn", "Y"); window.setPopupMenu( true, "/root/codedata/popupmenu/grid02/item", "name", "func", true); }else{ window.setPopupMenu(false); } } } -------------------------*/ //-------------------(20080102ÀÌÈÄ) //¸¶¿ì½º ¿À¸¥ÂÊ ¹öư Ŭ¸¯½Ã ÀÌ¹êÆ® ¹ß»ý if(event.button == 3){ //°Ë»çÅÇ¿¡¼­ ¸¶¿ì½º Ŭ¸¯½Ã ¹ß»ý if(pFlag == "T"){ //¼±ÅþøÀÌ ¸¶¿ì½º ¿À¸¥ÂÊ Å¬¸¯À¸·Î ¼±Åà ÀÌ¹êÆ® if(grd_testlist.selectedRows == 1 || (( grd_testlist.selectedRow(0) > grd_testlist.mouseRow) || ((grd_testlist.row + grd_testlist.selectedRows -1) < grd_testlist.mouseRow ))){ for(var i = 1 ; i < grd_testlist.rows ; i++){ model.makeValue("/root/main/incplist/testinfo["+i+"]/selectyn", ""); } grd_testlist.row = grd_testlist.mouseRow; } //¼±ÅÃÇà ¼±Åà Ç÷¡±× º¯°æ ÈÄ DCÆË¾÷â Ȱ¼ºÈ­ if(grd_testlist.isCell(event.target) && grd_testlist.mouseRow >= grd_testlist.fixedrows){ model.makeValue("/root/main/incplist/testinfo["+grd_testlist.row+"]/selectyn", "Y"); //Åð½Ç±¸ºÐ¿¡ µû¸¥ ÆË¾÷¸ñ·Ï ¼±Åà if( model.getValue("/root/main/condition/outrmtp") == ""){ //window.setPopupMenu( true, "/root/codedata/popupmenu/grid00/item", "name", "func", true); //Åð¿ø±¸ºÐ ¹Ì¼±Åà }else if(model.getValue("/root/main/condition/outrmtp") == "2"){ window.setPopupMenu( true, "/root/codedata/popupmenu/grid01/item", "name", "func", true); //Åð¿ø±¸ºÐ ÀÔ¿ø ¼±Åà }else{ window.setPopupMenu( true, "/root/codedata/popupmenu/grid02/item", "name", "func", true); //Åð¿ø±¸ºÐ ¼±ÅÃ(ÀÔ¿øÁ¦¿Ü) } }else{ window.setPopupMenu(false); } //¾à,ÁÖ»çÅÇ¿¡¼­ ¸¶¿ì½º Ŭ¸¯½Ã ¹ß»ý }else if(pFlag == "I"){ //¼±ÅþøÀÌ ¸¶¿ì½º ¿À¸¥ÂÊ Å¬¸¯À¸·Î ¼±Åà ÀÌ¹êÆ® if(grd_inglist.selectedRows == 1 || (( grd_inglist.selectedRow(0) > grd_inglist.mouseRow) || ((grd_inglist.row + grd_inglist.selectedRows -1) < grd_inglist.mouseRow ))){ for(var i = 1 ; i < grd_inglist.rows ; i++){ model.makeValue("/root/main/incplist/inginfo["+i+"]/selectyn", ""); } grd_inglist.row = grd_inglist.mouseRow; } //¼±ÅÃÇà ¼±Åà Ç÷¡±× º¯°æ ÈÄ DCÆË¾÷â Ȱ¼ºÈ­ if(grd_inglist.isCell(event.target) && grd_inglist.mouseRow >= grd_inglist.fixedrows){ model.makeValue("/root/main/incplist/inginfo["+grd_inglist.row+"]/selectyn", "Y"); window.setPopupMenu( true, "/root/codedata/popupmenu/grid10/item", "name", "func", true); //Åð¿ø±¸ºÐ ¹Ì¼±Åà }else{ window.setPopupMenu(false); } } //Ç÷¾×ÅÇ¿¡¼­ ¸¶¿ì½º Ŭ¸¯½Ã ¹ß»ý else if(pFlag == "TNS"){ //¼±ÅþøÀÌ ¸¶¿ì½º ¿À¸¥ÂÊ Å¬¸¯À¸·Î ¼±Åà ÀÌ¹êÆ® if( grd_tnsprcplist.selectedRows == 1 || (( grd_tnsprcplist.selectedRow(0) > grd_tnsprcplist.mouseRow) || (( grd_tnsprcplist.row + grd_tnsprcplist.selectedRows -1) < grd_tnsprcplist.mouseRow ))){ for(var i = 1 ; i < grd_tnsprcplist.rows ; i++){ model.makeValue("/root/main/incplist/tnsprcplist["+i+"]/selectyn", ""); } grd_tnsprcplist.row = grd_tnsprcplist.mouseRow; } //¼±ÅÃÇà ¼±Åà Ç÷¡±× º¯°æ ÈÄ DCÆË¾÷â Ȱ¼ºÈ­ if(grd_tnsprcplist.isCell(event.target) && grd_tnsprcplist.mouseRow >= grd_tnsprcplist.fixedrows){ model.makeValue("/root/main/incplist/tnsprcplist["+grd_tnsprcplist.row+"]/selectyn", "Y"); window.setPopupMenu( true, "/root/codedata/popupmenu/grid12/item", "name", "func", true); //Åð¿ø±¸ºÐ ¹Ì¼±Åà }else{ window.setPopupMenu(false); } } } } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : °Ë»ç, ¾àÁÖ»ç DC ±¸Çö ºÎºÐ * @param : * @return : * @--------------------------------------------------- */ function fPrcpDC(pFlag){ var prcpddprcpno = ""; //------------(20080917)±èº¸¼º //----------(20080126ÀÌÈĹöÁ¯) if(messageBox ( "DC 󸮸¦ ", "Q003" ) == "6"){ var iRow = grd_patlist.findRow(model.getValue("/root/main/condition/pid"), 1, grd_patlist.colRef("pid"), false, false); var sHeaderData = "status¢Ëprcpdd¢Ëprcpno¢Ëprcphistno¢Ëinstcd¢Ì"; var dcPrcpInfo = ""; var dcMediPrcpInfo = ""; var dcPrcpCnt = 0; if(pFlag == "Test"){ var tRow = grd_testlist.rows; //DCÇÒ °Ë»çó¹æ È®ÀÎ for(i=1 ; i < tRow ; i ++){ var chkprcp = ""; var chkprcp = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpnm"); // ±×¸®µå¿¡¼­ ¼±ÅÃµÈ Ã³¹æ ¼±Åà if(model.getValue("/root/main/incplist/testinfo["+i+"]/selectyn") == "Y" ){ //¼±ÅÃµÈ Ã³¹æ Áß Ç÷¾× ó¹æ Á¦¿Ü if( model.getValue("/root/main/incplist/testinfo["+i+"]/testtp") == "Y"){ //¹Ì¼öÇà ó¹æ ¼±Åà if( model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N"){ if(model.getValue("/root/main/incplist/testinfo["+i+"]/grupsnglflag") != "M"){ dcPrcpInfo += "C¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd" ) + "¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno" ) + "¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcphistno" ) + "¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/instcd" ) + "¢Ì"; dcPrcpCnt++; }else{ messageBox(chkprcp+" ´Â Mset ó¹æÀÔ´Ï´Ù.","E"); } }else if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "OUT"){ messageBox(chkprcp+"´Â Åð¿ø ÈÄ ¿Ü·¡ °Ë»ç ó¹æÀÔ´Ï´Ù.","E"); }else{ messageBox(chkprcp+"´Â ÀÌ¹Ì ½ÃÇàµÈ °Ë»ç ó¹æÀÔ´Ï´Ù.","E"); } }else{ messageBox(chkprcp+"´Â Ç÷¾× ó¹æÀÔ´Ï´Ù.","E"); } } } }else{ //DCÇÒ ¾à/ÁÖ»ç ó¹æ È®ÀÎ var tRow = grd_inglist.rows; var prcpno = ""; var dcstatus=""; for(i=1 ; i < tRow ; i ++){ var chkprcp = model.getValue("/root/main/incplist/inginfo["+i+"]/prcpnm"); // ±×¸®µå¿¡¼­ ¼±ÅÃµÈ Ã³¹æ ¼±Åà if(model.getValue("/root/main/incplist/inginfo["+i+"]/selectyn") == "Y" ){ //¹Ì¼öÇà ó¹æ ¼±Åà ( Actiong ¿Ï·á, Åð¿ø¾à ¾à±¹Àü¼Û °Ç Á¦¿Ü) if(model.getValue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y" ){ messageBox(chkprcp + "´Â Åð¿ø¾à ó¹æÀÔ´Ï´Ù.\nÅð¿ø Ã³¹æÀº °£È£»ç°¡ D/CÇÒ ¼ö ¾ø½À´Ï´Ù.","E"); }else{//20100108 --KHJ Åõ¾àTAB¿¡ ÀÇ»ç¹Ýȯ¿äûµÈ ¹Ì¾×ÆÃµÈ Åõ¾à Á¶È¸°Ç ¿äû¹øÈ£ 3040 if( model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "N" || model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "E" ){ //¾à,ÁÖ»ç °æ¿ì´Â 3°³·Î Ç®¸± ¼ö ÀÖÀ¸¹Ç·Î ÇѰ³ÀÇ Ã³¹æ ¹øÈ£¸¸ ³Ñ±âµµ·Ï ÇÔ //if(prcpno != model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno")) //dcstatus E À̸é ÀÇ»ç ÈÄÀÎÁõÀ» ¾ÈŸµµ·Ï "MEDI", NÀ̸é ÈÄÀÎÁõŸµµ·Ï "CERT" dcstatus = ( model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "N" ? "CERT" : "MEDI"); switch( model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") ){ case "N" : //Á¤»óó¹æÀΰÍÀ̰í ó¹æ ÀÎÅÍÆäÀ̽º¸¦ Ÿ¸é ÀÇ»ç 󹿹Ýȯ¿äû »óÅÂÀÎ "E"·Î º¯°æµÊ. // prcpno = model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno"); dcPrcpInfo += "C¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpdd" ) + "¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno" ) + "¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/prcphistno" ) + "¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/instcd" ) + "¢Ì"; // dcPrcpCnt++; // //-----------------(20080926) ±èº¸¼º // if (model.getValue("/root/main/incplist/inginfo["+i+"]/prcpstatcd") >= "000" ) { // prcpddprcpno += "'" + // model.getValue("/root/main/incplist/inginfo["+i+"]/prcpdd") + // model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno") + "',"; // } case "E" : /*ÀÇ»ç¹Ýȯ¿äûµé¾î¿Â ó¹æÀ̰í Åõ¾à±â·Ï¿¡¼­ DCÃÖÁ¾ Á¤¸®¸¦ Çϰí ÈÄÀÎÁõ󸮴ë»óÀÌ ¾ÈµÊ.dcstatus "CERT"ÀΰÍÀº ÈÄÀÎÁõ°ü¸®¿¡µµ Á¶È¸°¡ µÇ¾î¾ßÇÑ´Ù. Åõ¾à±â·ÏÀ» Å¿ì±âÀ§ÇÑ ÆÄ¶ó¹ÌÅÍ Á¤ÀÇÀ̹ǷΠcase "N" ¿¡´Â break°¡ ¾ø´Â°Ô Á¤»óÀÓ. 20100108 ±èÈ«Á¡ */ prcpno = model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno"); dcMediPrcpInfo += dcstatus + "¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpdd" ) + "¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno" ) + "¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/prcphistno" ) + "¢Ë" + model.getValue("/root/main/incplist/inginfo["+i+"]/instcd" ) + "¢Ì"; dcPrcpCnt++; //-----------------(20080926) ±èº¸¼º if (model.getValue("/root/main/incplist/inginfo["+i+"]/prcpstatcd") >= "000" ) { prcpddprcpno += "'" + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpdd") + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno") + "',"; } break; } }else if(model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "DC"){ messageBox(chkprcp+"´Â ¹Ýȯ¿äûµÈ ó¹æÀÔ´Ï´Ù.","E"); }else{ messageBox(chkprcp+"´Â ÀÌ¹Ì ½ÃÇàµÈ ó¹æÀÔ´Ï´Ù.","E"); } } } } } model.makeValue("/root/send/cond3" , sHeaderData+dcPrcpInfo ); model.makeValue("/root/send/cond5" , sHeaderData+dcMediPrcpInfo ); //ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo) model.makeValue ( "/root/save/saveflaginfo/savedataflag" , "2" ); //ÀúÀåÀڷᱸºÐ 0:Áø´Ü ¹× ó¹æ, 1:Áø´Ü, 2:ó¹æ, 4:ÀÓ½ÃÀúÀå model.makeValue ( "/root/save/saveflaginfo/saveflag" , "D" ); //ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø model.makeValue ( "/root/save/saveflaginfo/prcpflag" , "0" ); //󹿱¸ºÐ 0:ÀÇ»çó¹æ, 2:°£È£, 3:Áö¿øºÎ¼­, 5:Admission, 6:CP, 7:Ç×¾ÏÇÁ·ÎÅäÄÝ, 8:ÀÓ½Ãó¹æ model.makeValue ( "/root/save/saveflaginfo/inptflag" , "3" ); //ÀԷ±¸ºÐ (11:°ÇÁøÃ³¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«) model.makeValue ( "/root/save/saveflaginfo/pamflag" , "Y" ); //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. //20080116 Áø·áÆÀ¿¡¼­ D/C´Â üũÇÏÁö ¸»°Í model.makeValue ( "/root/save/saveflaginfo/diagflag" , "N" ); //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ) model.makeValue ( "/root/save/saveflaginfo/prcperrflag" , "Y" ); //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»ç󹿰ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½ model.makeValue ( "/root/save/saveflaginfo/deptcd" , getUserInfo("dutplcecd") ); //ºÎ¼­ÄÚµå model.makeValue ( "/root/save/saveflaginfo/deptnm" , getUserInfo("dutplcenm") ); //ºÎ¼­¸í model.makeValue ( "/root/save/saveflaginfo/userid" , getUserInfo("userid") ); //»ç¿ëÀÚID model.makeValue ( "/root/save/saveflaginfo/usernm" , getUserInfo("usernm") ); //»ç¿ëÀÚ¸í model.makeValue ( "/root/save/saveflaginfo/signyn" , "N" ); //ÀüÀÚ¼­¸í¿©ºÎ var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" ); model.makeValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); //ÀúÀåµî·ÏÁ¤º¸(saveRgstInfo) model.makeValue ( "/root/save/savergstinfo/pid" , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/pid") ); // µî·Ï¹øÈ£(¿ø¹«Key) model.makeValue ( "/root/save/savergstinfo/orddd" , "-" ); // Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀϰæ¿ì´Â '-' model.makeValue ( "/root/save/savergstinfo/indd" , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/indd") ); // ÀÔ¿øÀÏÀÚ(¿ø¹«Key) model.makeValue ( "/root/save/savergstinfo/cretno" , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/cretno") ); // »ý¼º¹øÈ£(¿ø¹«Key) model.makeValue ( "/root/save/savergstinfo/orddeptcd" , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/orddeptcd") ); // Áø·á°ú(¿ø¹«) model.makeValue ( "/root/save/savergstinfo/orddrid" , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/orddrid") ); // Áø·áÀÇID(¿ø¹«) model.makeValue ( "/root/save/savergstinfo/instcd" , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/instcd") ); // ±â°üÄÚµå var saveRgstInfo = model.instances(0).selectNodes( "/root/save/savergstinfo" ); model.makeValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); // D/CÇÒ Ã³¹æÀÌ ¾øÀ» °æ¿ì returnó¸® if( dcPrcpCnt > 0 ){ //-----------------------(20080917)±èº¸¼º //¾à D/CÀÎ °æ¿ì¸¸ if(pFlag != "Test") { //1. ÀÎÁõÀ» À§ÇÑ ÀÚ·á ÃßÃâ prcpddprcpno = prcpddprcpno.substr(0,prcpddprcpno.length-1); //alert("prcpddprcpno:" + prcpddprcpno); fnSignSaveCall("30",prcpddprcpno); //----------------(20090923) if (getNodesetCount("/root/signinfo/signsave/signdata") > 0 ) { //2. ÀÚ·á¿¡ ´ëÇØ¼­ ÀÎÁõÇϱâ if ( fnSignSaveWork() == true) { //3. ÀÎÁõÀڷḦ ¹­À½submit("TXMNP06013") var signsave = model.instances(0).selectNodes( "/root/signinfo/signsave/signdata" ); model.makeValue ( "/root/send/cond4", getNodeListCSV(signsave)); } else { return ; } } //----------------(20090923) } //-----------------------(20080917) if(submit("TXMNP06013") == true ){ if(getNodesetCount("/root/temp/errlist") > 0){ var iNode = "/root/srcdata/list/patlist"; fShowModal("SPMNE00200"); } fSelectInddPatList("S"); //-----------------------(20080917):±èº¸¼º //¾à D/CÀÎ °æ¿ì¸¸ if(pFlag != "Test") { //1. ÀÏÀÚº° ÀÎÁõÀ» À§ÇÑ ÀÏÀÚ ÃßÃâ var signDates = new Array; var signDateCnt = 0; var signdispdd = ""; var sPathsignsave = "/root/signinfo/signsave/signdata"; var rows = getNodesetCount(sPathsignsave); if (rows <= 0 ) return; //for (var i=0;i< rows ;i++) { for (var i=1;i<= rows ;i++) { //--(20080922) signdispdd = model.getValue(sPathsignsave + "[" + i + "]/execdd"); //alert( "Àüüloop:" + signdispdd + "/"+ medrexecdd + "/" + currentdd); if ( signDates.length == 0) { signDateCnt =0; signDates[signDateCnt] = ""; } if (signdayFind(signDates,signdispdd) == true ) { //------(Åõ¾àÀÏÀÚ) signDateCnt ++; signDates[signDateCnt] = signdispdd; //alert("b:" + signDates[signDateCnt] +"/" + medrexecdd); } } //2. Åõ¾à±â·ÏÀ» ÀÏÀÚº°·Î XLST¸¦ ¸¸µé±â À§Çؼ­ fnWorkddSign(signDates); } //-----------------------(20080917) } } } } function fShowModal(pProgID) { var xpos = event.screenX-300; var ypos = event.screenY-400; //modal(pProgID, 1, xpos, ypos, pProgID, "/root/temp/errlist", "/root/result/prcperrlist"); modal(pProgID, 1, xpos, ypos, pProgID, "/root/temp", "/root/result"); var iProperties = getParameter("SendData"); return iProperties } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : Åð½ÇÀϽà ȮÀÎ ºÎºÐ * @param : * @return : * @--------------------------------------------------- */ function fChkOutrmdd(){ // var iRow = grd_patlist.findRow(model.getValue("/root/main/condition/pid"), 1, grd_patlist.colRef("pid"), false, false); var nowDate = fTimeSetting(); //ÇöÀç ½Ã°£ ¼ÂÆÃ var checktime = model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm") ; //üũÇÒ ½Ã°£ ¼ÂÆÃ(Åð¿øÀϽÃ) //ÀÔ½ÇÀϽÃ, Åð½ÇÀϽà üũ if(output2.value > checktime ){ model.makeValue("/root/main/condition/outrmdd", getCurrentDate() ); model.makeValue("/root/main/condition/outrmtm", nowDate ); ipt_outrddd.refresh(); ipt_outrmtm.refresh(); messageBox("Åð½ÇÀÏÀÌ ÀÔ½ÇÀϺ¸´Ù ÀÌÀüÀÔ´Ï´Ù.", "E"); return; } else { output3.value = model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm"); } //output3.refresh(); } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : ȯÀÚ ±âº» Á¤º¸ ¼³Á¤ ºÎºÐ * @param : * @return : * @--------------------------------------------------- */ function fCalcChosOut(){ var inrmdt = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/careinrmdd") + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/careinrmtm"); // ÀÔ½ÇÀϽà var outrmdt = model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm"); if(inrmdt.length != 12 || outrmdt.length != 12){ if(inrmdt.length != 12)model.makeValue("/root/main/condition/out2",""); btn_outsave.disabled = true; // ÀÔ½ÇÀϽð¡ µî·ÏµÇÁö ¾ÊÀº °æ¿ì Åð½Çó¸® ¹öư disable return ""; }else{ btn_outsave.disabled = false; } //Åð½ÇÀϽà ȮÀÎ ºÎºÐ fChkOutrmdd(); //ÀԽǽ𣠼¼ÆÃ var careinyy = inrmdt.substr(0,4); var careinmm = inrmdt.substr(4,2); var careindd = inrmdt.substr(6,2); var careinhh = inrmdt.substr(8,2); var careinnn = inrmdt.substr(10,2); //Åð½Ç½Ã°£ ¼¼ÆÃ var outrmyy = outrmdt.substr(0,4); var outrmmm = outrmdt.substr(4,2); var outrmdd = outrmdt.substr(6,2); var outrmhh = outrmdt.substr(8,2); var outrmnn = outrmdt.substr(10,2); //Àç½Ç ½Ã°£ °è»êÀ» À§ÇÏ¿© ½Ã°£, ºÐ ´ÜÀ§·Î Â÷À̸¦ °è»ê var rstFromTime = new Date(careinyy,careinmm,careindd,careinhh,careinnn,0); var rstEndTime = new Date(outrmyy, outrmmm,outrmdd,outrmhh,outrmnn,0); var diffnn = ((rstEndTime - rstFromTime) / (60*1000)) ; var diffhh = Math.ceil( (rstEndTime - rstFromTime) / ( 60*60*1000) ) ; //½Ã°£ : ºÐ ±¸Çϱâ if(careinnn != outrmnn){ calcdiffhh = diffhh -1; calcdiffnn = (diffnn - ((diffhh-1) * 60 )); //ºÐÀÌ Á¤°¢ÀÏ °æ¿ì }else{ calcdiffhh = diffhh; calcdiffnn = "00" } //½Ã°£(20080123) model.makeValue("/root/timeterm/hh",calcdiffhh); model.makeValue("/root/timeterm/nn",calcdiffnn); //ȯÀÚ ±âº»Á¤º¸ ¹®Àå »ý¼º var CalcDate = calcdiffhh + "½Ã°£ "+ calcdiffnn + "ºÐ" ; return CalcDate; } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : °Ë»ç ó¹æ °­Á¦ Action ó¸® ºÎºÐ * @param : * @return : * @--------------------------------------------------- */ function fSaveTestPrcp(){ //----------------(20080102¹öÁ¯) /*------------------ //actingÀúÀå var datacheck2 = "N"; var tRow = grd_testlist.rows; //¸¶¿ì½º µå·¡±×½Ã ½Ç½Ã °Ë»ç ó¹æ ¿©ºÎ È®ÀÎ for(i= 1 ; i 0){ fPrcpDCSave("Test", cntACT); } if(cntACT > 0){ fSaveTestPrcpSave(); } for(var i = 1 ; i <= getNodesetCount("/root/main/incplist/testinfo") ; i++ ){ for(var j = 1 ; j <= getNodesetCount("/root/testprcp/tmp") ; j++ ){ if(model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno") == model.getValue("/root/testprcp/tmp["+j+"]/prcpno") ){ model.makeValue("/root/main/incplist/testinfo["+i+"]/viewstat", "3"); } } model.refresh(); } } */ model.removeNodeset("/root/testprcp/tmp"); var tRow = grd_testlist.rows; var cntDC = 0; var cntACT = 0; var cntWard = 0 ; //»óÅ ¼³Á¤°ª ÀúÀå(º´µ¿À̰ü) for(var i = 1 ; i 0){ //DC ¼³Á¤ ½ºÅ©¸³Æ® È£Ãâ fPrcpDCSave("Test", cntACT); } if(cntACT > 0){ //Acting ¼³Á¤ ½ºÅ©¸³Æ® È£Ãâ fSaveTestPrcpSave(); } //Àӽà ÀúÀåµÈ »óÅ ¼³Á¤°ª ¼¼ÆÃ(º´µ¿À̰ü) for(var i = 1 ; i <= getNodesetCount("/root/main/incplist/testinfo") ; i++ ){ for(var j = 1 ; j <= getNodesetCount("/root/testprcp/tmp") ; j++ ){ if(model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno") == model.getValue("/root/testprcp/tmp["+j+"]/prcpno") ){ model.makeValue("/root/main/incplist/testinfo["+i+"]/viewstat", "3"); } } } model.refresh(); } } /* var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" ); model.makeValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); * 20080904 Ç÷¾×ó¹æ dc */ function fSetPrcpTnsDC(){ var iRow = grd_patlist.row; if (model.getvalue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/pid") != "" ) { var path_tnsprcplist = "/root/main/incplist/tnsprcplist"; var FlagInfoHeader = "savedataflag¢Ësaveflag¢Ëprcpflag¢Ëinptflag¢Ëpamflag¢Ëdiagflag¢Ëprcperrflag¢Ëdeptcd¢Ëdeptnm¢Ëuserid¢Ëusernm¢Ësignyn¢Ì"; var RgstInfoHeader = "pid¢Ëorddd¢Ëindd¢Ëcretno¢Ëorddeptcd¢Ëorddrid¢Ëinstcd¢Ì"; var PrcpInfoHeader = "status¢Ërowno¢Ëprcpdd¢Ëprcpno¢Ëprcphistno¢Ëinstcd¢Ëpid¢Ëorddd¢Ëcretno¢Ëorddeptcd¢Ëorddrid¢Ëprcpgenrflag¢Ëprcpstatcd¢Ëprcpkindcd¢Ëprcpcd¢Ëcalcscorcd¢Ëprcpexecdeptcd¢Ëprcphopedd" +" ¢Ëprcpqty¢Ëprcpqtyunitflag¢Ëprcptims¢Ëprcpdayno¢Ëpayflagcd¢Ëprcpmixno¢Ëerprcpflag¢Ëprnprcpflag¢Ëprecureprcpflag¢Ënigtprcpflag¢Ëportprcpflag¢Ëfixprcpflag¢Ëchoiordflag¢Ëanamneflag¢Ëprcpdirecflag" +" ¢Ëangioflagcd¢Ëopansflagcd¢Ëansttm¢Ëoffictourhealexamflag¢Ëstemcellflag¢Ëhosinhosoutflag¢Ëhosinprcpresncd¢Ëissdeptcd¢Ëprcpauthflag¢Ëprcpinptflag¢Ëprcpsignflag¢Ëoprsrvno¢Ëclincstdyflag¢Ëclincstdycd" +" ¢Ëdrugmthdspccd¢Ëtootfact¢Ëmatrsetprcpspec¢Ëanticncrprtlno¢Ëcpno¢Ëcalcflag¢Ërsrvflag¢Ërsrvdd¢Ërsrvtm¢Ërsrvrid¢Ëexecdd¢Ëexectm¢Ëexecrid¢Ëdirecprcplnkdd¢Ëdirecprcplnkno¢Ëordreqlnkno¢Ëtestreqlnkno¢Ì"; //***** ÀúÀ屸ºÐÁ¤º¸(saveFlagInfoVO) var FlagInfoData = '2' +"¢Ë" //ÀúÀåÀڷᱸºÐ (2:ó¹æ) + 'D' +"¢Ë" //ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø) + '1' +"¢Ë" //󹿱¸ºÐ(M0035 󹿱ÇÇÑ¿¡ ´ëÇÑ ±¸ºÐÁ¾·ù : ÀÇ»çó¹æ) + '18' +"¢Ë" //ÀԷ±¸ºÐ(M0034 ó¹æÀԷ¿¡ ´ëÇÑ ±¸ºÐÁ¾·ù : °£È£PRN) + 'N' +"¢Ë" //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) + 'N' +"¢Ë" //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) + 'Y' +"¢Ë" //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»ç󹿰ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½ + getUserInfo("dutplcecd") +"¢Ë" //ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå) + getUserInfo("dutplcenm") +"¢Ë" //ºÎ¼­¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í) + getUserId() +"¢Ë" //»ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID) + getUserName() +"¢Ë" //»ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í) + 'N' +"¢Ì"; //ÀüÀÚ¼­¸í¿©ºÎ (Y/N) //***** ÀúÀåµî·ÏÁ¤º¸(saveRgstInfoVO) var RgstInfoData = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid") +"¢Ë" + '-' +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/indd") +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/cretno") +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/orddeptcd") +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/orddrid") +"¢Ë" + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/instcd") +"¢Ì"; var PrcpInfoData = ""; for(var i=1;i<=grd_tnsprcplist.rows;i++){ if(model.getValue(path_tnsprcplist+"["+i+"]/selectyn") == "Y" ){ //***** ÀúÀåó¹æÁ¤º¸(savePrcpInfoVO) PrcpInfoData += 'C' + "¢Ë" // status : ½Å±Ô(I),DC(C) + i + "¢Ë" // rowno : ÁÙ¹øÈ£(º´¸®¿ä±¸) + model.getValue(path_tnsprcplist+"["+i+"]/prcpdd" ) + "¢Ë" // prcpdd : ó¹æÀÏÀÚ(¿Ü·¡/Á¾°ÇÀºorddd¿Íµ¿ÀÏ,ÀÔ¿øÀºÃ³¹æÀÏÀÚ) + model.getValue(path_tnsprcplist+"["+i+"]/prcpno" ) + "¢Ë" // prcpno : 󹿹øÈ£(status°¡'I'Àϰæ¿ì0) + model.getValue(path_tnsprcplist+"["+i+"]/prcphistno" ) + "¢Ë" // prcphistno : ó¹æÀ̷¹øÈ£(status°¡'I'Àϰæ¿ì0) + model.getValue(path_tnsprcplist+"["+i+"]/instcd" ) + "¢Ë" // instcd : ±â°üÄÚµå + model.getValue(path_tnsprcplist+"["+i+"]/pid" ) + "¢Ë" // pid : µî·Ï¹øÈ£(¿ø¹«Key) + model.getValue(path_tnsprcplist+"["+i+"]/orddd" )+ "¢Ë" // orddd : Áø·áÀÏÀÚ(¿ø¹«Key)-ÀÔ¿øÈ¯ÀÚÀϰæ¿ìindd + model.getValue(path_tnsprcplist+"["+i+"]/cretno" )+ "¢Ë" // cretno : »ý¼º¹øÈ£(¿ø¹«Key) + model.getValue(path_tnsprcplist+"["+i+"]/orddeptcd" )+ "¢Ë" // orddeptcd : Áø·á°ú(¿ø¹«) + model.getValue(path_tnsprcplist+"["+i+"]/orddrid" ) + "¢Ë" // orddrid : Áø·áÀÇID(¿ø¹«) + model.getValue(path_tnsprcplist+"["+i+"]/prcpgenrflag" ) + "¢Ë" // prcpgenrflag : 󹿹߻ý±¸ºÐ(¿ø¹«)-O:¿Ü·¡,I:ÀÔ¿ø,E:ÀÀ±Þ,S:°ÇÁø + model.getValue(path_tnsprcplist+"["+i+"]/prcpstatcd" ) + "¢Ë" // prcpstatcd : 󹿻óÅÂ:'000' + model.getValue(path_tnsprcplist+"["+i+"]/prcpkindcd" ) + "¢Ë" // prcpkindcd : ó¹æÁ¾·ù:'20' + model.getValue(path_tnsprcplist+"["+i+"]/prcpcd" ) + "¢Ë" // prcpcd : ó¹æÄÚµå + model.getValue(path_tnsprcplist+"["+i+"]/calcscorcd" ) + "¢Ë" // calcscorcd : ¼ö°¡ÄÚµå + model.getValue(path_tnsprcplist+"["+i+"]/prcpexecdeptcd" ) + "¢Ë" // prcpexecdeptcd : ó¹æ½Ç½ÃºÎ¼­ÄÚµå(¼ö°¡ÀÇÁ¢¼öºÎ¼­¸¦³Ö¾îÁְųª,Á¢¼öÇϴºμ­ÄÚµå,¾øÀ»°æ¿ì'-'·Îó¸®) + model.getValue(path_tnsprcplist+"["+i+"]/prcphopedd" ) + "¢Ë" // prcphopedd : ó¹æÈñ¸ÁÀÏÀÚ(ó¹æÀÏÀÚÀÌÀüÀ¸·Î¹ß»ýºÒ°¡) + model.getValue(path_tnsprcplist+"["+i+"]/prcpqty" ) + "¢Ë" // prcpqty : 󹿼ö·®(1)(¾àǰÀϰæ¿ì¹Ýµå½ÃÆ÷Àå´ÜÀ§¼ö·®À»³Ö¾îÁÖ¾î¾ßµÊ) + model.getValue(path_tnsprcplist+"["+i+"]/prcpqtyunitflag" ) + "¢Ë" // prcpqtyunitflag : 󹿼ö·®´ÜÀ§(¾àǰÀϰæ¿ì'3',±×·¸Áö¾ÊÀ»°æ¿ì'-') + model.getValue(path_tnsprcplist+"["+i+"]/prcptims" ) + "¢Ë" // prcptims : ó¹æÈ½¼ö(1)(ÀÔ¿øÀϰæ¿ìȽ¼ö¿¡µû¶óÇ®¸²) + model.getValue(path_tnsprcplist+"["+i+"]/prcpdayno" ) + "¢Ë" // prcpdayno : ó¹æÀϼö(1)(Áö¿øºÎ¼­¿¡¼­´ÂÁÖ»çó¹æ¿¡´ëÇÏ¿©Àϼö¸¦³ÖÀ¸¸é¾ÈµÊ,³ÖÀ¸¸éÀÚ·á°¡¹®Á¦°¡»ý±è) + model.getValue(path_tnsprcplist+"["+i+"]/payflagcd" ) + "¢Ë" // payflagcd : ±Þ¿©±¸ºÐÄÚµå(M0029ÂüÁ¶)->'-'·Î³ÖÀ¸ÁÖ¸éȯÀÚÀǺ¸ÇèÀ¯Çü¿¡µû¶óÀÚµ¿¹ß»ý + model.getValue(path_tnsprcplist+"["+i+"]/prcpmixno" ) + "¢Ë" // prcpmixno : ó¹æMIX¹øÈ£ + model.getValue(path_tnsprcplist+"["+i+"]/erprcpflag" ) + "¢Ë" // erprcpflag : ÀÀ±Þ󹿱¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/prnprcpflag" ) + "¢Ë" // prnprcpflag : PRN 󹿱¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/precureprcpflag" ) + "¢Ë" // precureprcpflag : ¼±Ã³Ä¡Ã³¹æ±¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/nigtprcpflag" ) + "¢Ë" // nigtprcpflag : ¾ß°£Ã³¹æ±¸ºÐ(Y/N):¾ß°£°¡»ê¿¡ÇØ´çµÉ°æ¿ì + model.getValue(path_tnsprcplist+"["+i+"]/portprcpflag" ) + "¢Ë" // portprcpflag : Æ÷Åͺí󹿱¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/fixprcpflag" ) + "¢Ë" // fixprcpflag : Á¤¾×󹿱¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/choiordflag" ) + "¢Ë" // choiordflag : ¼±ÅÃ󹿱¸ºÐ(Y/N)->¸¸¾à'-'Àϰæ¿ì¿ø¹«Á¤º¸±âÁØÀ¸·Îó¸® + model.getValue(path_tnsprcplist+"["+i+"]/anamneflag" ) + "¢Ë" // anamneflag : ±â¿Õ·Â(Áõ)±¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/prcpdirecflag" ) + "¢Ë" // prcpdirecflag : 󹿹æÇⱸºÐ(ÄÚµåÁ¤ÀǼ­M0041ÂüÁ¶),ÀçȰÀºÀ§Ä¡±¸ºÐÀ¸·Î»ç¿ë:'-' + model.getValue(path_tnsprcplist+"["+i+"]/angioflagcd" ) + "¢Ë" // angioflagcd : Angio±¸ºÐ(ÄÚµåÁ¤ÀǼ­M0006ÂüÁ¶) + model.getValue(path_tnsprcplist+"["+i+"]/opansflagcd" ) + "¢Ë" // opansflagcd : ¼ö¼ú¸¶Ã뱸ºÐ(ÄÚµåÁ¤ÀǼ­M0007,M0008ÂüÁ¶) + model.getValue(path_tnsprcplist+"["+i+"]/ansttm" ) + "¢Ë" // ansttm : ¸¶Ãëó¹æ¿¡´ëÇѸ¶ÃëÀû¿ë½Ã°£-ºÐÀ»4ÀÚ¸®·ÎÇ¥Çö,¿¬¼Ó°Ë»ç°Ë»ç°£°Ý + model.getValue(path_tnsprcplist+"["+i+"]/offictourhealexamflag") + "¢Ë" // offictourhealexamflag: ÃâÀå°ËÁø±¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/stemcellflag" ) + "¢Ë" // stemcellflag : '00NNN'°ÇÁøÃ»±¸±¸ºÐ,Á¶Ç÷¸ð(ÁÙ±â)¼¼Æ÷±¸ºÐ-StemCellSource¿©ºÎ,Cryo¿©ºÎ,CD34äÁý¿©ºÎ,ÇØµ¿¿©ºÎÀÇÁ¶ÇÕÀ¸·Î±¸¼º + model.getValue(path_tnsprcplist+"["+i+"]/hosinhosoutflag" ) + "¢Ë" // hosinhosoutflag : ¿ø³»¿Ü±¸ºÐ(°ÇÁøÀº'I',¾àÀ̾ƴҰæ¿ì'-') + model.getValue(path_tnsprcplist+"["+i+"]/hosinprcpresncd" ) + "¢Ë" // hosinprcpresncd : ¿ø³»Ã³¹æ»çÀ¯(°ÇÁø¿¡ÇØ´çÇϴ»çÀ¯-Á¤ÀÇ,¾àÀ̾ƴҰæ¿ì'00') + model.getValue(path_tnsprcplist+"["+i+"]/issdeptcd" ) + "¢Ë" // issdeptcd : ¹ßÇàºÎ¼­ÄÚµå(Áý°è°¡Å¸ºÎ¼­Àϰæ¿ìŸ°úÄÚµå,ÀÔ¿øÀº±âº»À̺´µ¿)->'-'·Îó¸®ÇϸéÀÚµ¿Ã³¸®(±âº»ÀºÃ³¹æÀԷºμ­À̳ªÀÔ¿øÀºÇش纴µ¿À¸·Îó¸®) + model.getValue(path_tnsprcplist+"["+i+"]/prcpauthflag" ) + "¢Ë" // prcpauthflag : 󹿱ÇÇѱ¸ºÐ(0:ÀÇ»çó¹æÈ­¸é,1:ÀÇ»ç¹×°£È£»ç°øÀ¯Ã³¹æ,2:¼ø¼ö°£È£Ã³¹æ,3:Áö¿øºÎ¼­ÀÇ»çó¹æ,4:±âŸó¹æ-±âŸÁö¿øºÎ¼­Ãß°¡,5:°è»ê¿ë¿ø¹«Ã³¹æ,6:°ÇÁøÃ³¹æ==>0,1¸¸ÀÇ»çó¹æÈ­¸é¿¡º¸ÀÓ,´Ü3ÀºÃßÈÄ¿¡°áÁ¤) + model.getValue(path_tnsprcplist+"["+i+"]/prcpinptflag" ) + "¢Ë" // prcpinptflag : ó¹æÀԷ±¸ºÐ(ÀúÀ屸ºÐÁ¤º¸ÀÇinptflag¿Íµ¿ÀÏÇϰÔó¸®) + model.getValue(path_tnsprcplist+"["+i+"]/prcpsignflag" ) + "¢Ë" // prcpsignflag : 󹿼­¸í±¸ºÐ(0:¼­¸í¾ÈÇÔ,1:ÈÄÀÎÁõ,2:¼­¸í¿Ï·á) + model.getValue(path_tnsprcplist+"["+i+"]/oprsrvno" ) + "¢Ë" // oprsrvno : ¼ö¼ú¿¹¾à¹øÈ£(0) + 'N' + "¢Ë" // clincstdyflag : Àӻ󿬱¸±¸ºÐ(Y/N) + '-' + "¢Ë" // clincstdycd : Àӻ󿬱¸ÄÚµå('-')->Àӻ󿬱¸±¸ºÐÀÌ'Y'Àϰæ¿ìÀӻ󿬱¸Äڵ带µî·Ï + model.getValue(path_tnsprcplist+"["+i+"]/drugmthdspccd" ) + "¢Ë" // drugmthdspccd : Åõ¿©¹æ¹ý¹×°ËüÄÚµå(¾àǰÀϰæ¿ìº¹¿ë¹æ¹ý,Áø°Ë¹×º´¸®Àϰæ¿ì°ËüÄÚµå,SingleÄڵ忡´ëÇÑAllSize±Ô°ÝID,Default'-') + '-' + "¢Ë" // tootfact : Ä¡½Ä(º´¸®¸¸»ç¿ë,³ª¸ÓÁö´Â'-') + '-' + "¢Ë" // matrsetprcpspec : Àç·á󹿳»¿ë(ó¹æÄÚµå|¼ö·®|AllSize±Ô°ÝID|Y|-|-^):Group¿¡¹­¿©ÀÖ´ÂallsizeÀç·á¿¡´ëÇØ¼­¸¸Ã³¸® + model.getValue(path_tnsprcplist+"["+i+"]/anticncrprtlno" ) + "¢Ë" // anticncrprtlno : Ç×¾ÏÇÁ·ÎÅäÄݹøÈ£(0) + model.getValue(path_tnsprcplist+"["+i+"]/cpno" ) + "¢Ë" // cpno : CP¹øÈ£(0) + model.getValue(path_tnsprcplist+"["+i+"]/calcflag" ) + "¢Ë" // calcflag : °è»ê±¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/rsrvflag" ) + "¢Ë" // rsrvflag : ¿¹¾à±¸ºÐ(Y/N) + model.getValue(path_tnsprcplist+"["+i+"]/rsrvdd" ) + "¢Ë" // rsrvdd : ¿¹¾àÀÏÀÚ('N'Àϰæ¿ì'00000000') + model.getValue(path_tnsprcplist+"["+i+"]/rsrvtm" ) + "¢Ë" // rsrvtm : ¿¹¾à½Ã°£('N'Àϰæ¿ì'000000') + model.getValue(path_tnsprcplist+"["+i+"]/rsrvrid" ) + "¢Ë" // rsrvrid : ¿¹¾àÀÚID('-') + model.getValue(path_tnsprcplist+"["+i+"]/execdd" ) + "¢Ë" // execdd : ½Ç½ÃÀÏÀÚ('00000000') + model.getValue(path_tnsprcplist+"["+i+"]/exectm" ) + "¢Ë" // exectm : ½Ç½Ã½Ã°£('000000') + model.getValue(path_tnsprcplist+"["+i+"]/execrid" ) + "¢Ë" // execrid : ½Ç½ÃÀÚID('-') + model.getValue(path_tnsprcplist+"["+i+"]/direcprcplnkdd" ) + "¢Ë" // direcprcplnkdd : Áö½Ãó¹æ¿¬°èÀÏÀÚ(00000000)->Áö¿øºÎ¼­¿¡¼­»ç¿ë-¿øÁö½Ãó¹æÀÇó¹æÀÏÀÚ + model.getValue(path_tnsprcplist+"["+i+"]/direcprcplnkno" ) + "¢Ë" // direcprcplnkno : Áö½Ãó¹æ¿¬°è¹øÈ£(0)->Áö¿øºÎ¼­¿¡¼­»ç¿ë-¿øÁö½Ãó¹æÀǽǽÃó¹æÀ¯ÀϹøÈ£ + model.getValue(path_tnsprcplist+"["+i+"]/ordreqlnkno" ) + "¢Ë" // ordreqlnkno : Áø·áÀÇ·Ú¿¬°è¹øÈ£(0) + model.getValue(path_tnsprcplist+"["+i+"]/testreqlnkno" ) + "¢Ì" // testreqlnkno : °Ë»çÀÇ·Ú¿¬°è¹øÈ£(0)->º´¸®¿ÍÁø´Ü°Ë»ç»ç¿ë if(model.getValue(path_tnsprcplist+"["+i+"]/dcyn") == "Y" && model.getValue(path_tnsprcplist+"["+i+"]/irr") == "Y"){ PrcpInfoData += model.getValue(path_tnsprcplist+"["+i+"]/irrinfo"); // irró¹æÁ¤º¸ } } } if (PrcpInfoData == "") { messageBox("¼±ÅÃÇÑ Ã³¹æÀÌ ¾ø½À´Ï´Ù.", "I"); } else { model.removeNodeset("/root/send"); model.makeValue("/root/send/saveflaginfo" , FlagInfoHeader+FlagInfoData); model.makeValue("/root/send/savergstinfo" , RgstInfoHeader+RgstInfoData); model.makeValue("/root/send/saveprcpinfo" , PrcpInfoHeader+PrcpInfoData); if(submit("TXMNW01203")) { //¿À·ùÆË¾÷ var prcpErrList = model.instances(0).selectNodes( "/root/temp/result/prcperrlist" ); if ( prcpErrList.length > 0 ) { if ( !isNull(model.getValue ("/root/temp/result/prcperrlist/prcpcd"))){ var xpt = window.screenleft + 100; var ypt = window.screenTop + 50; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; open ( "SPMMO00600", mon, xpt, ypt, "prcpdetl", "/root/temp/result", "/root/result", "", false ); model.removeNodeset("/root/temp/result/prcperrlist"); } } } } //°Ë»ç,¾àÁÖ»ç,Ç÷¾×ó¹æ ÀçÁ¶È¸ fSelectPatList(); } else { messageBox("ȯÀÚ¸¦", "C002"); return; } } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : °Ë»ç, ¾àÁÖ»ç DC ±¸Çö ºÎºÐ(»óŰªÀ¸·Î D/C °áÁ¤ µÈ ó¹æ Àϰý D/C) * @param : * @return : * @--------------------------------------------------- */ function fPrcpDCSave(pFlag, pCnt){ var sHeaderData = "status¢Ëprcpdd¢Ëprcpno¢Ëprcphistno¢Ëinstcd¢Ì"; var dcPrcpInfo = ""; var dcPrcpCnt = 0; //DCÇÒ °Ë»çó¹æ È®ÀÎ var tRow = grd_testlist.rows; for(i=1 ; i < tRow ; i ++){ // ±×¸®µå¿¡¼­ ¼±ÅÃµÈ Ã³¹æ ¼±Åà if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "1" ){ dcPrcpInfo += "C¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd" ) + "¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno" ) + "¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcphistno") + "¢Ë" + model.getValue("/root/main/incplist/testinfo["+i+"]/instcd" ) + "¢Ì"; dcPrcpCnt++; } } //alert(dcPrcpInfo); model.removenodeset("/root/send"); model.makeValue("/root/send/cond3" , sHeaderData+dcPrcpInfo ); //ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo) model.makeValue ( "/root/save/saveflaginfo/savedataflag", "2" ); //ÀúÀåÀڷᱸºÐ 0:Áø´Ü ¹× ó¹æ, 1:Áø´Ü, 2:ó¹æ, 4:ÀÓ½ÃÀúÀå model.makeValue ( "/root/save/saveflaginfo/saveflag", "D"); //ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø model.makeValue ( "/root/save/saveflaginfo/prcpflag", "0"); //󹿱¸ºÐ 0:ÀÇ»çó¹æ, 2:°£È£, 3:Áö¿øºÎ¼­, 5:Admission, 6:CP, 7:Ç×¾ÏÇÁ·ÎÅäÄÝ, 8:ÀÓ½Ãó¹æ model.makeValue ( "/root/save/saveflaginfo/inptflag", "3" ); //ÀԷ±¸ºÐ (11:°ÇÁøÃ³¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«) model.makeValue ( "/root/save/saveflaginfo/pamflag", "Y" ); //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. //20080116 Áø·áÆÀ¿¡¼­ D/C´Â üũÇÏÁö ¸»°Í model.makeValue ( "/root/save/saveflaginfo/diagflag", "N" ); //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ) model.makeValue ( "/root/save/saveflaginfo/prcperrflag", "Y" ); //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»ç󹿰ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½ model.makeValue ( "/root/save/saveflaginfo/deptcd", getUserInfo("dutplcecd")); //ºÎ¼­ÄÚµå model.makeValue ( "/root/save/saveflaginfo/deptnm", getUserInfo("dutplcenm")); //ºÎ¼­¸í model.makeValue ( "/root/save/saveflaginfo/userid", getUserInfo("userid")); //»ç¿ëÀÚID model.makeValue ( "/root/save/saveflaginfo/usernm", getUserInfo("usernm")); //»ç¿ëÀÚ¸í model.makeValue ( "/root/save/saveflaginfo/signyn", "N" ); //ÀüÀÚ¼­¸í¿©ºÎ var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" ); model.makeValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); //ÀúÀåµî·ÏÁ¤º¸(saveRgstInfo) model.makeValue ( "/root/save/savergstinfo/pid" , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid") ); // µî·Ï¹øÈ£(¿ø¹«Key) model.makeValue ( "/root/save/savergstinfo/orddd" , "-"); // Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀϰæ¿ì´Â '-' model.makeValue ( "/root/save/savergstinfo/indd" , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/indd") ); // ÀÔ¿øÀÏÀÚ(¿ø¹«Key) model.makeValue ( "/root/save/savergstinfo/cretno" , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/cretno") ); // »ý¼º¹øÈ£(¿ø¹«Key) model.makeValue ( "/root/save/savergstinfo/orddeptcd" , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/orddeptcd") ); // Áø·á°ú(¿ø¹«) model.makeValue ( "/root/save/savergstinfo/orddrid" , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/orddrid") ); // Áø·áÀÇID(¿ø¹«) model.makeValue ( "/root/save/savergstinfo/instcd" , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/instcd") ); // ±â°üÄÚµå var saveRgstInfo = model.instances(0).selectNodes( "/root/save/savergstinfo" ); model.makeValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); // alert("dc test"); // return; // D/CÇÒ Ã³¹æÀÌ ¾øÀ» °æ¿ì returnó¸® if( dcPrcpCnt > 0 ){ if(submit("TXMNP06013") == true ){ if(getNodesetCount("/root/temp/errlist") > 0){ var iNode = "/root/srcdata/list/patlist"; fShowModal("SPMNE00200"); } if(pCnt < 1){ fSelectInddPatList("S"); } } } } /** * @group : * @ver : 2007.06.21 * @by : ¾çõ´ö * @--------------------------------------------------- * @type : function * @access : public * @desc : °Ë»ç ó¹æ °­Á¦ Action ó¸® ºÎºÐ(Acting»óŰª ó¹æ Àϰý Acting) * @param : * @return : * @--------------------------------------------------- */ function fSaveTestPrcpSave(){ //actingÀúÀå /* var datacheck2 = "N"; var tRow = grd_testlist.rows; //¸¶¿ì½º µå·¡±×½Ã ½Ç½Ã °Ë»ç ó¹æ ¿©ºÎ È®ÀÎ for(i= 1 ; i = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd") ){ minDate = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd"); } }else { minDate = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd"); } } model.makeValue("/root/main/condition/outrmdd", getCurrentDate() ); model.makeValue("/root/main/condition/outrmtm", fTimeSetting() ); /* output1.value = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid")+" " + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/patnm")+" " + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/sexage"); // ȯÀÚÁ¤º¸ output2.value = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/careinrmdd") + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/careinrmtm"); // ÀÔ½ÇÀϽà output3.value = model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm"); // Åð½ÇÀϽà output4.value = fCalcChosOut(); // Àç½Ç½Ã°£ output5.value = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/assgroom"); // ¿¹Á¤º´½Ç */ var output1value = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid")+" " + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/patnm")+" " + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/sexage"); // ȯÀÚÁ¤º¸ var output2value = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/careinrmdd") + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/careinrmtm"); // ÀÔ½ÇÀϽà var output3value = model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm"); // Åð½ÇÀϽà var output4value = fCalcChosOut(); // Àç½Ç½Ã°£ var output5value = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/assgroom"); // ¿¹Á¤º´½Ç model.makeValue("/root/main/condition/out1", output1value); model.makeValue("/root/main/condition/out2", output2value); model.makeValue("/root/main/condition/out3", output3value); model.makeValue("/root/main/condition/out4", output4value); model.makeValue("/root/main/condition/out5", output5value); output1.refresh(); output2.refresh(); output3.refresh(); output4.refresh(); output5.refresh(); if(dccparam == "DCC"){ model.makeValue("/root/main/condition/outrmtp", "1"); // Åð½Ç±¸ºÐ "±Í°¡"·Î fix } } //===================================================================================== // ¾Æ·¡´Â ¾à D/C ½Ã Åõ¾à±â·Ï¿¡ ¹Ý¿µ¹× Åõ¾à±â·Ï ÀÏÀÚº° XSLT »ý¼ºÇϱâ(20080917) ±èº¸¼º //===================================================================================== // Åõ¾à±â·Ï ÅëÇÕ±â·ÏÀ» À§ÇÑ ÀÚ·á ÃßÃâÁúÀǹ® // prcpddprcpnoÀ¸·Î n°³ÀÇ iprc¿¡ ´ëÇÑ exip´ÜÀ§ÀÇ Á¤º¸¸¦ ÃßÃâÇÑ´Ù. function fnSignSaveCall(workflag, prcpddprcpno) { var sPathSign = "/root/signinfo"; model.resetInstanceNode(sPathSign + "/reqsigncond"); var pGrd = grd_patlist; var spid = model.getValue("/root/main/inddpatlist/inddpatinfo["+ pGrd.row + "]/pid"); //µî·Ï¹øÈ£(Çʼö) var sinstcd = getUserInfo("dutplceinstcd"); //±â°üÄÚµå(»ç¿ëX) var sindd = model.getValue("/root/main/inddpatlist/inddpatinfo["+ pGrd.row +"]/indd"); //ÀÔ¿øÀÏÀÚ(Çʼö) var scretno = ""; //»ý¼º¹øÈ£(»ç¿ëX) var sprcpdd = ""; //ó¹æÀÏÀÚ(PRN½Ã Çʼö) var sprcpno = ""; //󹿹øÈ£(È®ÀλçÇ×) var sworkdd = ""; //Åõ¾àÀÏ(ÀÏÀÚ±×·ìÀ϶§¸¸ (Çʼö)) var slistflag = workflag; //ÀÛ¾÷±¸ºÐ(Çʼö) var snursnm = getUserName(); //°£È£»ç¸íÃß°¡(Çʼö) var shngnm = model.getValue("/root/main/inddpatlist/inddpatinfo["+ pGrd.row +"]/patnm"); //ȯÀÚ¸íÃß°¡ (Çʼö) var smedrexecdd = ""; //È­¸é¿¡¼­ÀúÀåÇÒÅõ¾àÀÏÀÚ(»ç¿ëX) var smedrexectm = ""; //È­¸é¿¡¼­ÀúÀåÇÒÅõ¾à½Ã°£(»ç¿ëX) var sprcpddprcpno = prcpddprcpno; //n°³ÀÇ iprc model.makeValue(sPathSign + "/reqsigncond/pid" ,spid ); //desc="µî·Ï¹øÈ£" model.makeValue(sPathSign + "/reqsigncond/instcd" ,sinstcd ); //desc="±â°üÄÚµå" model.makeValue(sPathSign + "/reqsigncond/indd" ,sindd ); //desc="ÀÔ¿øÀÏÀÚ" model.makeValue(sPathSign + "/reqsigncond/cretno" ,scretno ); //desc="»ý¼º¹øÈ£" model.makeValue(sPathSign + "/reqsigncond/prcpdd" ,sprcpdd ); //desc="ó¹æÀÏÀÚ" model.makeValue(sPathSign + "/reqsigncond/prcpno" ,sprcpno ); //desc="󹿹øÈ£" model.makeValue(sPathSign + "/reqsigncond/workdd" ,sworkdd ); //desc="Åõ¾àÀÏ" model.makeValue(sPathSign + "/reqsigncond/listflag" ,slistflag ); //desc="ÀÛ¾÷±¸ºÐ" model.makeValue(sPathSign + "/reqsigncond/nursnm" ,snursnm ); //desc="°£È£»ç¸íÃß°¡" model.makeValue(sPathSign + "/reqsigncond/hngnm" ,shngnm ); //desc="ȯÀÚ¸íÃß°¡" model.makeValue(sPathSign + "/reqsigncond/medrexecdd" ,smedrexecdd); //desc="È­¸é¿¡¼­ÀúÀåÇÒÅõ¾àÀÏÀÚ" model.makeValue(sPathSign + "/reqsigncond/medrexectm" ,smedrexectm); //desc="È­¸é¿¡¼­ÀúÀåÇÒÅõ¾à½Ã°£" model.makeValue(sPathSign + "/reqsigncond/prcpddprcpno" ,sprcpddprcpno); //desc="" var sPathSign = "/root/signinfo"; model.removenode(sPathSign + "/signsave/signdata"); submit("TRMNR00608"); } /** * @group : * @ver : 2008.08.31 * @by : ±èº¸¼º * @--------------------------------------------------- * @type : function * @access : public * @desc : Åõ¾à±â·Ï °ü·Ã ÀÎÁõÀúÀå(interfaceÁ¦°øÇÑ web¿¡¼­ »ç¿ë)(iprc´ÜÀ§ 1°³ 󸮿ë) * : µû¶ó¼­ ¿©·¯°³ÀÇ iprcÀ̸é n¹ø È£ÃâÇØ¾ßÇÑ´Ù. * @param : * @return : * @--------------------------------------------------- */ function fnSignSaveWork() { var sSignPath = "/root/signinfo/signsave/signdata"; var sSignPathCount = getNodesetCount(sSignPath); var sPathSignSave = "/root/signinfo/signsave/signdata"; if ( sSignPathCount <= 0 ) { messageBox("ÀÚ·á°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. ","E999"); return false; } Sign.certreload = true ; // ÀüÀÚ¼­¸í È£Ãâ½Ã ÀÎÁõÀúÀå ¹öưÀ» ´©´Ã¶§¸¶´Ù ÀÎÁõ¼­°¡ ¶ßµµ·Ï ó¸®(20080921) model.removenode("/root/send/savedata"); for(var j = 1; j <= getNodesetCount(sSignPath); j++){ //alert("loop:"+j); sSignRow= j; //Àü¿ªº¯¼ö(ÇÁ·Î±×·¥³») if(Sign.signprocess() == false){//ÀÎÁõÀúÀå µ¥ÀÌÅÍ »ý¼ºfMake_SignData È£Ãâ Sign.certreload = false ; // ÀüÀÚ¼­¸í È£Ãâ½Ã ÀÎÁõÀúÀå ¹öưÀ» ´©´Ã¶§¸¶´Ù ÀÎÁõ¼­°¡ ¾È¶ßµµ·Ï ó¸®(20080921) return false; } Sign.certreload = false ; // ÀüÀÚ¼­¸í È£Ãâ½Ã ÀÎÁõÀúÀå ¹öưÀ» ´©´Ã¶§¸¶´Ù ÀÎÁõ¼­°¡ ¾È¶ßµµ·Ï ó¸®(20080921) model.makeValue(sPathSignSave + "[" + j + "]/recdd", getCurrentDate()); //½ÇÁ¦±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·ÏÀÏÀÚ model.makeValue(sPathSignSave + "[" + j + "]/rectm", getCurrentTime()); //½ÇÁ¦±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·Ï½Ã°£ model.makeValue(sPathSignSave + "[" + j + "]/recsaveflag", "Y"); //ÀüÀÚ¼­¸íÀÎÀûÁ¤º¸º¯°æ¿©ºÎ model.makeValue(sPathSignSave + "[" + j + "]/signflag", "02"); //¼­¸íÀڷᱸºÐ(02:°£È£) model.makeValue(sPathSignSave + "[" + j + "]/signgenrflag", "D"); //¿Ü·¡/ÀÔ¿ø±¸ºÐ(20080922) model.makeValue(sPathSignSave + "[" + j + "]/formcd", "0000002476"); //Åõ¾à±â·Ï ¼­½Ä¹øÈ£ model.makeValue(sPathSignSave + "[" + j + "]/signbfcnts", Sign.signedInfos[1]); //ÀÎÁõÇÒ µ¥ÀÌÅÍ Á¤º¸(¹Ì±â·Ï ³ëµå Á¦°ÅµÈ Á¤º¸) model.makeValue(sPathSignSave + "[" + j + "]/signaftcnts", Sign.signedInfos[2]); //°øÀÎÀÎÁõ ó¸®ÈÄ µ¥ÀÌÅÍ model.makeValue(sPathSignSave + "[" + j + "]/signflagyn", "Y"); //ºñ°ø½ÄÀûÀ¸·Î ÀÎÁõµÇÁö¾Êµµ·Ï Á¦¾îÇÒ¼ö Àִ±â´É //--------------------------(20080921) //°Çº°ÀÎÁõÀº ÅëÇÕ±â·ÏÁ¶È¸¿¡¼­ º¸ÀÌÁö ¾Ê°í ÀÏÀÚº°À» º¸À̱â À§Çؼ­ //°Çº°ÀÎÁõÀº dispyn ='N' //ÇÏ´ÜÀÇ ÀÏÀÚº°ÀÎ °æ¿ì¸¸ º¸ÀÓ model.makeValue(sPathSignSave + "[" + j + "]/dispyn", "N"); //--------------------------(20080921) } return true; } //ÀÎÁõÁ¤º¸ ¸»±â function fMake_SignData(){ //alert("fMake_SignData---------½ÃÀÛ"); /* 29953 TÀÔ0820 20080821 20080821 DSSL500 Disal tab. 500mg (Salsalate) 1500mg 3T PO 130000 ±èº¸¼º Á¤»óÅõ¾à ±è¸¸¼ö */ var ssigndruglist = "/root/signinfo/signsave/signdata"; var spid = model.getValue(ssigndruglist + "[" + sSignRow + "]/pid"); var shngnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/hngnm"); var sprcpdd = model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpdd"); var sexecdd = model.getValue(ssigndruglist + "[" + sSignRow + "]/execdd"); /* ,CASE WHEN a.careprnexecflag = 'P' THEN 'PRN' ELSE '' END || ' ' || CASE WHEN a.anticncrprtlno <> 0 THEN 'Ç×¾Ï' ELSE '' END || ' ' || CASE WHEN a.dccountyn = 'Y' AND a.selfdrugflag = 'Y' THEN 'self D/C' WHEN a.dccountyn = 'Y' then 'D/C' WHEN a.selfdrugflag = 'Y' then 'self' END prcpkindnm //ó¹æÁ¾·ù¸í (´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã ¾î·Á¿î Ç׸ñ */ var sprcpkindnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpkindnm"); var sprcpmixno = model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpmixno"); var sprcpcd = model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpcd"); var sprcpnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpnm"); var sprcpvolnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpvolnm"); var sprcpqtynm = model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpqtynm"); var sabbrnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/abbrnm"); var sexectm = model.getValue(ssigndruglist + "[" + sSignRow + "]/exectm"); var snursnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/nursnm"); var sexeccarestatnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/execcarestatnm"); var scarecfactnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/carecfactnm"); var sorddrnm = model.getValue(ssigndruglist + "[" + sSignRow + "]/orddrnm"); model.resetInstanceNode("/root/send/signinfo/signdata"); model.makeValue("/root/send/signinfo/signdata/pid", spid ); model.makeValue("/root/send/signinfo/signdata/hngnm", shngnm ); model.makeValue("/root/send/signinfo/signdata/prcpdd", sprcpdd ); //ó¹æÀÏÀÚ if(sexecdd == "00000000"){ //Åõ¾àÀÏÀÚ model.makeValue("/root/send/signinfo/signdata/execdd", ""); }else{ model.makeValue("/root/send/signinfo/signdata/execdd", sexecdd); } model.makeValue("/root/send/signinfo/signdata/prcpkindnm", sprcpkindnm ); model.makeValue("/root/send/signinfo/signdata/prcpmixno", sprcpmixno ); //MIXNO model.makeValue("/root/send/signinfo/signdata/prcpcd", sprcpcd ); //ó¹æÄÚµå model.makeValue("/root/send/signinfo/signdata/prcpnm", sprcpnm ); //󹿏í model.makeValue("/root/send/signinfo/signdata/prcpvolnm", sprcpvolnm ); //¿ë·®´ÜÀ§¸íĪ(¿ë·®+¿ë·®´ÜÀ§¸íĪ) model.makeValue("/root/send/signinfo/signdata/prcpqtynm", sprcpqtynm ); //¼ö·®´ÜÀ§¸íĪ(¼ö·®+¼ö·®´ÜÀ§¸íĪ) //Åõ¿©¹æ¹ý¾à¾î¸í(´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã ¾î·Á¿î Ç׸ñ) model.makeValue("/root/send/signinfo/signdata/abbrnm", sabbrnm ); if(sexectm == "000000"){ //Åõ¾à½Ã°£ model.makeValue("/root/send/signinfo/signdata/exectm", ""); }else{ model.makeValue("/root/send/signinfo/signdata/exectm", sexectm); } model.makeValue("/root/send/signinfo/signdata/nursnm", snursnm); //°£È£»ç¸íĪ if(sexeccarestatnm == "") sexeccarestatnm = "N"; //¹ÌÈ®ÀÎ,Á¤»óÅõ¾à,Åõ¾àX-¹Ýȯ°¡´É,Åõ¾àX-¹ÝȯºÒ°¡,Åð¿ø´çÀϳ²Àº¾à //(´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã Á¤»óÅõ¾à,) model.makeValue("/root/send/signinfo/signdata/execcarestatnm", sexeccarestatnm); //°£È£»çREMARK CODE¿¡ ´ëÇÑ REMARK ¸íĪ((´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã °ø¹é) model.makeValue("/root/send/signinfo/signdata/carecfactnm", scarecfactnm); //Áø·áÀǸí(´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã ¾î·Á¿î Ç׸ñ) model.makeValue("/root/send/signinfo/signdata/orddrnm", sorddrnm); Sign.addnode("/root/send/signinfo/signdata"); //alert("fMake_SignData---------Á¾·á"); //Sign.signedInfos[1] ´Â ¾øÀ½ //alert("fmake_signdata"+ Sign.signedInfos[1] ); } //ÀÏÀÚº° XSLT »ý¼ºÀÛ¾÷ function fnWorkddSign(signDates) { //-----------------------------------------------) // Åõ¾à±â·ÏÀ» ÀÏÀÚº°·Î XLST¸¦ ¸¸µé±â À§Çؼ­ //----------------------------------------------- var sPathSign = "/root/signinfo"; var pGrd = grd_patlist; var signDate = ""; //alert(signDates.length); for (var i=0;i grd_translist.fixedRows) { setParameter("SMMNW01301_PID" , grd_translist.valueMatrix(1,grd_translist.colRef("pid")) ); setParameter("SMMNW01301_INDD" , grd_translist.valueMatrix(1,grd_translist.colRef("indd")) ); setParameter("SMMNW01301_CRETNO" , grd_translist.valueMatrix(1,grd_translist.colRef("cretno"))) ; setParameter("SMMNW01301_APPDD" , grd_translist.valueMatrix(1,grd_translist.colRef("appdd")) ); setParameter("SMMNW01301_APPTM" , grd_translist.valueMatrix(1,grd_translist.colRef("apptm")) ); setParameter("SMMNW01301_INSTCD" , grd_translist.valueMatrix(1,grd_translist.colRef("instcd"))) ; setParameter("SMMNW01301_SEQNO" , grd_translist.valueMatrix(1,grd_translist.colRef("seqno"))) ; open("SMMNW01301"); } else { messageBoX("ÀÔ¿ø½ÂÀÎÀÌ ³ªÁö ¾Ê¾Æ Àüµ¿±â·ÏÀ» ÇÒ¼ö ¾ø½À´Ï´Ù."); return; } } } // Åð½Ç½Ã ¼±ÅÃÁø·á È®ÀÎ function fChkSpecOrdPrt() { model.removeNode("/root/main/paminfo"); model.makeNode("/root/main/paminfo"); var node = getGlobalVariable("paminfo"); setCSVToNode("/root/main/paminfo", node); var s_pid = model.getValue("/root/main/paminfo/list/pid");; var s_ordtype = 'I'; var s_orddd = model.getValue("/root/main/paminfo/list/indd"); var s_orddeptcd = model.getValue("/root/main/paminfo/list/orddeptcd"); var s_orddrid = model.getValue("/root/main/paminfo/list/medispclid"); var s_fromdd = model.getValue("/root/main/paminfo/list/indd"); var s_hngnm = model.getValue("/root/main/paminfo/list/hngnm"); var s_rrgstno1 = model.getValue("/root/main/paminfo/list/rrgstno1"); var s_rrgstno2 = model.getValue("/root/main/paminfo/list/rrgstno2"); var sOrddeptcdMsg = model.getValue("/root/main/paminfo/list/orddeptnm"); var sOrddridMsg = model.getValue("/root/main/paminfo/list/orddrnm"); model.makeValue("/root/send/data26/pid", s_pid); // pid model.makeValue("/root/send/data26/ordtype", "I"); // ordtype model.makeValue("/root/send/data26/indd", s_orddd);// orddd model.makeValue("/root/send/data26/orddd", s_orddd);// orddd model.makeValue("/root/send/data26/orddeptcd", s_orddeptcd); // orddeptcd model.makeValue("/root/send/data26/medispclid", s_orddrid); // orddrid model.makeValue("/root/send/data26/orddrid", s_orddrid); // orddrid // submit("TRPMI00406"); // // if (model.getValue("/root/tempchk/specapp/rgstyn") == "N") { // // var sMsg = "[" + sOrddeptcdMsg + "]" + "[" + sOrddridMsg + "]"; // // if( messageBox(sMsg + " ¼±ÅÃÁø·á µî·ÏÀÌ µÇ¾î ÀÖÁö ¾Ê½À´Ï´Ù. µî·ÏÇϽðڽÀ´Ï±î?", "Q999", "") == 6 ){ // fCallSpecPopUp(s_pid,s_ordtype,s_orddd,s_orddeptcd,s_orddrid,s_fromdd,s_hngnm,s_rrgstno1,s_rrgstno2); // } // } else { // submit("TRMNW01208"); var existyn = model.getValue("/root/temp/specordprtinfo/specordprtlist/existyn"); if(existyn == "N") { //messageBox("Ãâ·ÂµÈ ¸Þ¼¼Áö¾øÀ½", "I"); } else { messageBox("¼±ÅÃÁø·á µ¿ÀÇ È®ÀÎÀÌ µÇÁö¾Ê¾Ò½À´Ï´Ù.", "I"); setParameter("SMPMC06503_PARM_PID", s_pid); modal("SMPMC06503"); //fCallSpecPopUp(s_pid,s_ordtype,s_orddd,s_orddeptcd,s_orddrid,s_fromdd,s_hngnm,s_rrgstno1,s_rrgstno2); } // } } //=====================================================================================