/*function list fBaseCdInit: ó¹æÈ­¸é °øÅëÄÚµå ÃʱâÈ­ fInitializeScreen: ó¹æÈ­¸é ¼¼ÆÃ ÃʱâÈ­ fInitializeConDone: ó¹æÈ­¸é ÃʱâÈ­ ( xforms-model-construct-done ) fInitializeReady: ó¹æÈ­¸é ÃʱâÈ­( xforms-ready ) fGetClinicQuickViewInf : ±âÃÊÀÓ»óÁ¤º¸ ¼±ÅÃÈ­¸é Ç¥½Ã fDetlVw: ó¹æ»ó¼¼º¸±â fPrcpSrch: ó¹æ°Ë»ö(ó¹æ ±×¸®µå¿¡¼­ ó¹æ¸í ¾²°í ¿£ÅÍÄ¡¸é ½ÇÇà) fPrcpDetl: ó¹æ»ó¼¼ÆË¾÷ fPrcpDetlApp: ó¹æ»ó¼¼ ÀԷ³»¿ëÀ» ¸ÞÀο¡ Àû¿ë fMouseRghtBtnPopup: ¿À¸¥ÂÊ ¸¶¿ì½º ÆË¾÷ fDrugInfo: ¿À¸¥ÂÊ ¸¶¿ì½º ÆË¾÷ ¾àÁ¤º¸ fDeleteRow: ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ »èÁ¦ fCnclDel: ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ »èÁ¦,D/C Ãë¼Ò fPrcpBuffer: ÇÔ¼ö È£Ãâ½Ã ¼±ÅÃµÈ µ¥ÀÌÅ͸¦ ƯÁ¤ ³ëµå¿¡ ´ã¾ÆµÐ´Ù. fDelUndo: ¸¶Áö¸· »èÁ¦½Ã ¹öÆÛ¿¡ ´ã°ÜµÐ °ÍÀ» µÇ»ì¸°´Ù. fGridDrag: drag ½Ã À̵¿ÇÒ grid ÀνºÅϽº ÀúÀå fGridDrop: dropÀ§Ä¡¿¡ ÀνºÅϽº mapping, º»Ã¼ remove, À̵¿ÇÑ row select fSaveExistCheck: ó¹æ µ¥ÀÌÅÍ ÀúÀå½Ã ÀúÀåÇÒ µ¥ÀÌÅͰ¡ ÀÖ´Â Áö check fPrcpSave: ó¹æ µ¥ÀÌÅÍ ÀúÀå fPrcpSavePatList: Áø·á´ë»óÀÚ ¸®½ºÆ®¿¡¼­ ȯÀÚ È£Ãâ½Ã ÀúÀåÇÒ µ¥ÀÌÅͰ¡ ÀÖÀ» ½Ã ÀúÀåÇÑ´Ù. fPrcpSort: ó¹æÁ¤·Ä bfDrugCalc: ¿ë·®, ¼ö·®, Ƚ¼öÀÇ ¼öÁ¤Àü °ªÀ» instance¿¡ ³Ö¾îµÐ´Ù. DrugCalc: ¿ë·®, ¼ö·®, Ƚ¼ö¸¦ ¼öÁ¤ÇßÀ» ¶§ °ª°è»ê fPreWorkUp: PreWorkUp ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ ( BMT ) fPrcpDdCheck: Á¤±Ô, Ãß°¡Ã³¹æ ó¸® fTempPrcp: ÀÓ½Ãó¹æ fDiagSrch: Áø´Ü°Ë»ö fDaigMouseRghtBtnPopup: Áø´Ü ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ fDiagDeleteRow: ȯÀÚÁø´Ü»èÁ¦ fDiagUpdate: ȯÀÚÁø´Ü¼öÁ¤ fPatDiagSrch: ȯÀÚÁø´Ü°Ë»ö fMediDayNo: Åõ¾àÀϼöÁ¶È¸ fDiagDetlVw: Áø´Ü»ó¼¼º¸±â fDentifmla: Ä¡½Ä fPrcpdelivefact: Àü´Þ»çÇ× ÀϰýÀÔ·Â fReqfrm: º´¸®ÀÇ·ÚÁö È£ÃâÇϱâ fGetSpc: Áø´Ü°Ë»ç °Ëü È£Ãâ fPrmsPrcp: ¾à¼Ó󹿵î·Ï fBaseMthd: °æ±¸¾à ±âº»¿ë¹ý Á¶È¸ fScrnInitialize: ó¹æÈ­¸é ÃʱâÈ­ fPrcpCopy: ó¹æÈ­¸é ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ ó¹æº¹»ç fInitPaminfo: Àüó¹æ¿¡¼­ ±Þºñº¯°æÈÄ È¯ÀÚÁ¤º¸ ´Ù½Ã SETTING fPrcpWndClose : ó¹æÈ­¸é close fSubjPrcpChk : Àӻ󿬱¸ÅÇ view°¡´É ¿©ºÎ üũ fInitPrcpWnd : ó¹æÈ­¸é ÃʱâÈ­ fXformsReady : ó¹æÈ­¸é ÃʱâÈ­ (óÀ½ ¿­¸° °æ¿ì ) fXReReady : ó¹æÈ­¸é ÃʱâÈ­ (´Ù½Ã ¿­¸° °æ¿ì) */ //º¯¼ö¼±¾ð var prcpclscd = 2; var prcpKindCdCol = 3; //ó¹æÁ¾·ù index var prcpnmCol = 5; //󹿏í Ä÷³ index var prcpVolCol = 6; //¿ë·® Ä÷³ index var prcpQtyCol = 8; //¼ö·® Ä÷³ index var prcpTimsCol = 10; //Ƚ¼ö Ä÷³ index var prcpDayNoCol = 11; //Àϼö Ä÷³ index var prcpDeliveFactCol = 15; //Àü´Þ»çÇ× Ä÷³ index var prcpHopeHdCol = 18; //Èñ¸ÁÀÏÀÚ Ä÷³ index var ContPrcpDdRow = 6; //ÁöÁ¤ÀÏ instance row var prcpNode = "/root/main/prcp/prcplist"; var diagNode = "/root/main/diaginfo/diagcdlist"; var prcpgenrflag = ""; //¿Ü·¡ÀÔ¿ø±¸ºÐ var bfPrcpdd = ""; //ó¹æÀÏÀÚ¸¦ ¹Ù²Ù±â ÀüÀÇ °ªÀ» ´ã¾ÆµÒ var diagnmCol = 4; var SubmitTF_SMMMO00110 = false; //MM)00101.js ¿¡¼­ fPrcpSave()¸¦ È£Ãâ ½Ã, ¼­ºê¹Ô ¼º°ø¿©ºÎ ´ãÀ½.(2008.01.29) /** * @desc : ó¹æÈ­¸é °øÅëÄÚµå ÃʱâÈ­ * @id : model1 * @event : xforms-model-construct-done * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 14 */ function fBaseCdInit() { mmbfGetDeptCodeComboList("/root/temp/reqdata", "/root/issdept", "I"); fPrcpExecDeptSrch("all"); zbcfGetCodeList(new Array("M0003", "M0005", "M0011", "P0034", "M0029", "M0046", "M0007", "M0545"), new Array("/root/init/prcpkindcd", "/root/init/prcpclscd", "/root/init/prcpstatcd", "/root/init/hosinprcpresncd", "/root/init/payflagcd", "/root/init/rehbprcpcurepartcd", "/root/init/opansflagcd", "/root/init/conttestintvlflag")); //fGetHardCDList("N", 264, 0 , "/root/hidden/centdeptinfo"); fGetHardCDList("N", 274, 0 , "/root/hidden/c6specdrlist"); fGetHardCDList("N", 275, 0 , "/root/init/autosetprcplist"); fGetHardCDList("N", 282, 0 , "/root/hidden/securelimitdeptlist"); fGetHardCDList("N", 285, 0 , "/root/hidden/specprcpdrinfo"); // ¿µ»óÀÇÇаú ¼±ÅÃÁø·á ±³¼ö ÀÚµ¿ ¹èÁ¤ fGetHardCDList("N", 287, 0 , "/root/hidden/d2specdrlist"); // º´¸®°ú ÀÇ»ç ÀÚµ¿¹èÁ¤ fGetHardCDList("N", 289, 0 , "/root/hidden/b2specdrlist"); // Áø°Ë ¼±ÅÃÁø·á ÀÇ»ç ÀÚµ¿¹èÁ¤ fGetHardCDList("N", 270, 0 , "/root/init/operationroominfo"); // ÀÏÀϼö¼ú½Ç ¼ö¼ú¹æÀ» Á¶È¸ÇÑ´Ù. //20110211 mjm Ãß°¡ ¼±ÅÃÁø·áÀÇ ·Î±×ÀÎ ÇßÀ» ¶§ °¡Á®¿À´Â °ÍÀ¸·Î ¼öÁ¤ var srcNodes = instance1.selectNodes("/root/initsrch/usercombo"); if ( srcNodes.length > 0 ) { var specdrinfoNodes = instance1.selectNodes("/root/init/specdrinfo/usercombo"); if ( specdrinfoNodes.length < 2 ) { var targetNodes = instance1.selectSingleNode("/root/init/specdrinfo"); for(i=0; i 0) { var arrTemp = new Array(); var arrTempCnt = 0; var itemcode = ""; var itemsnm = ""; var recdd = ""; var recdata = ""; var sourceNode; var selement1; var selement2; var selement3; var exceptCodes = new Array(); var exceptCnt = 0; var isExcept = false; for (var i = 1; i <= infCnt; i++) { itemcode = model.getValue("/root/tempclinic/clinicinf["+i+"]/itemcode"); for (var j = 0; j < exceptCnt; j++) { if (exceptCodes[j] == itemcode) { isExcept = true; break; } } if (isExcept) { continue; } itemsnm = model.getValue("/root/tempclinic/clinicinf["+i+"]/itemsnm"); recdd = model.getValue("/root/tempclinic/clinicinf["+i+"]/recdd"); recdata = model.getValue("/root/tempclinic/clinicinf["+i+"]/recdata"); if (recdd != "") { recdd = recdd.substring(0,4)+"-"+recdd.substring(4,6)+"-"+recdd.substring(6,8); } sourceNode = model.instance1.selectNodes("/root/tempclinic/clinicinf[itemcode != '"+itemcode+"' and itemsnm='"+itemsnm+"']"); if (sourceNode != null) { while( (selement1 = sourceNode.nextNode() ) != null ) { selement2 = selement1.childNodes; while((selement3 = selement2.nextNode()) != null) { if (selement3.tagName == "recdd") { var tmprecdd = selement3.text recdd += " / "+ tmprecdd.substring(0,4)+"-"+tmprecdd.substring(4,6)+"-"+tmprecdd.substring(6,8); } else if (selement3.tagName == "recdata") { recdata += " / "+selement3.text; } else if (selement3.tagName == "itemcode") { exceptCodes[exceptCnt++] = selement3.text; } } } } arrTemp[arrTempCnt] = new Array(); arrTemp[arrTempCnt][0] = itemcode; arrTemp[arrTempCnt][1] = itemsnm; arrTemp[arrTempCnt][2] = recdd; arrTemp[arrTempCnt][3] = recdata; arrTempCnt++; } for (var i = 0; i < arrTempCnt; i++) { if (i == 3) { break; } model.setValue("/root/main/clinicinf/title"+(i+1), arrTemp[i][1]); model.setValue("/root/main/clinicinf/ctime"+(i+1), arrTemp[i][2]); model.setValue("/root/main/clinicinf/value"+(i+1), arrTemp[i][3]); } grp_clinicinf.refresh(); } */ } /** * @desc : ó¹æÈ­¸é ÃʱâÈ­ * @id : model1 * @event : xforms-model-construct-done * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 14 */ function fInitializeConDone(saveFlag) { //ó¹æ ¼Óµµ°³¼±À» À§ÇÑ ½Ã°£ üũ set 20101027 LYJ try { var SMMMO00100_S = new Date(); var ordPatObj = getOpenWindow("SMMMO04100"); var SMMMO04100_chk = ordPatObj.javascript.getParameter("SMMMO04100_chk"); if(ordPatObj != null && SMMMO04100_chk == "Y"){ ordPatObj.javascript.setParameter("SMMMO00100_S3",SMMMO00100_S.getTime()); } } catch(e) { } //xforms-ready ¿¡ ½è´õ´Ï º¯ÇÏ´Â°Ô º¸ÀδÙ. // 2007.12.07 Ãß°¡ (CpâÀÌ ¿­·ÁÀÖ´Ù¸é close) grd_prcplist.backcoloralternate = "transparent"; grd_diaglist.backcoloralternate = "transparent"; model.removeNodeSet ( prcpNode ); //ó¹æÈ­¸é ±×¸®µµ ÃʱâÈ­ appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //°Ë»ö¶óÀÎÃß°¡ var prcpgenrflag = ""; var patFlagCvs = getGlobalVariable("patflag"); if(patFlagCvs.length != 0 ){ //cvs°¡ nullÀÌ ¾Æ´Ñ °æ¿ì¿¡¸¸ ó¸®ÇÔ. model.removeNodeSet ( "/root/patflag/list" ); //»ó´ÜÈ­¸é Á¤º¸ ÃʱâÈ­ setCSVToNode ( "/root/patflag", patFlagCvs ); prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); } var pamInfoCvs = getGlobalVariable("paminfo"); var insukindcd = getPatientInfoDetail("insukind"); var vopt_insuinfo = ""; if(pamInfoCvs != null){ //cvs°¡ nullÀÌ ¾Æ´Ñ °æ¿ì¿¡¸¸ ó¸®ÇÔ. model.removeNodeSet ( "/root/paminfo/list" ); //»ó´ÜÈ­¸é Á¤º¸ ÃʱâÈ­ setCSVToNode ( "/root/paminfo", pamInfoCvs ); model.setValue ( "/root/init/pid", model.getValue ( "/root/paminfo/list/pid" )); var vopt_patinfo = model.getValue ( "/root/paminfo/list/dispnm2" ) + " " + model.getValue ( "/root/paminfo/list/sex" ) + "/" + model.getValue ( "/root/paminfo/list/age" ); if ( model.getValue ( "/root/paminfo/list/roomcd" ) != "" ){ vopt_patinfo = vopt_patinfo + " " + model.getValue ( "/root/paminfo/list/roomcd" ) + "È£"; } if(prcpgenrflag == "O" && model.getValue ( "/root/paminfo/list/dnoracptyn" ) == "Y") { vopt_patinfo = vopt_patinfo + " [donor w/u]"; } if( (prcpgenrflag == "I" || prcpgenrflag == "E" || prcpgenrflag == "D") && getPatientInfoDetail("drgyn") == "Y" ) { //DRG ȯÀÚ Ç¥½Ã 2013.05.06 ¾ö¿µ¸¸ vopt_patinfo = vopt_patinfo + " [DRG]"; } model.setValue ( "/root/init/patinfo", vopt_patinfo ); if (insukindcd == "21"){ vopt_insuinfo = "[ÀÇ·á±Þ¿©1]"; }else if (insukindcd == "22"){ vopt_insuinfo = "[ÀÇ·á±Þ¿©2]"; }else if (insukindcd == "81"){ vopt_insuinfo = "[Àå±â¿ä¾ç]"; }else{ vopt_insuinfo = "[" + getPatientInfo("insukind") + "]" ; } model.setValue ( "/root/init/insuinfo", vopt_insuinfo ); if ( insukindcd == "31" || insukindcd =="41"){ if (getPatientInfoDetail("ioflag") == "O"){ model.makeValue ( "/root/paminfo/list/remark", "ÀÚº¸/»êÀç ȯÀÚÀÔ´Ï´Ù. \n°ü·Ã ó¹æÀ» ¸ðµÎ [±Þ¿©]·Î ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.\n±â¿ÕÁõÀº °Ç°­º¸ÇèÀ¸·Î ÀçÁ¢¼öÇÏ¿© ó¹æÇØ Áֽñ⠹ٶø´Ï´Ù." ); }else { model.makeValue ( "/root/paminfo/list/remark", "ÀÚº¸/»êÀç ȯÀÚÀÔ´Ï´Ù. \n°ü·Ã ó¹æÀº ¸ðµÎ [±Þ¿©]·Î ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù. \n±× ¿Ü ó¹æÀº ó¹æ »ó¼¼ÆË¾÷¿¡¼­ ±â¿ÕÁõ üũ ÈÄ Ã³¹æÇØ Áֽñ⠹ٶø´Ï´Ù." ); } group_rmk.visible = true; } } //PRN Àû¿ë¿©ºÎ¸¦ ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. 2010-01-02 by LYJ reqHardCodeInfo("/root/hidden/prnprcpyninfo", "/root/hidden/prnprcpyninfo", "173"); model.makeValue( "/root/save/saveflaginfo/prnprcpyninfo", model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd") ); if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //¿Ü·¡À϶§ cmb_prcpkind.visible = false; cmb_prcpdd.visible = false; cmb_issdept.visible = true; cmb_hosinprcpresn.visible = true; btn_issdept.visible = true; caption1.visible = true; button21.visible = true; //kimsj µÇÀÇ·Ú¹öư cmb_issdept.attribute ( "left" ) = "454"; btn_issdept.attribute ( "left" ) = "558"; cmb_hosinprcpresn.attribute( "left" ) = "695"; cmb_hosinprcpresn.attribute( "width" )= "240"; //298-58=240 btn_prcpsave2.disabled = false; // Áø·á¿¹¾à + ÀÎÁõÀúÀå //btn_prcpsave3.disabled = false; // °¡¼Å¾ßÇÒ °÷ Ãâ·Â ¹× ÀÎÁõÀúÀå bool_patgolistprtyn.disabled = false; btn_prtpattogo.visible = true; grd_prcplist.colHidden(prcpKindCdCol) = true; model.setValue ( "/root/init/prcpkindcd", "20" ); //ó¹æÁ¾·ù(Ãß°¡) model.setValue ( "/root/init/prcpdd", model.getValue ( "/root/paminfo/list/orddd" )); //20110104. mjm¼öÁ¤. °æºÎÀÇ ¿ø¹« ÇÁ·Î¼¼½º»ó ¿ø¹«ÀÇ È¯ÀÚ¿ø³» »çÀ¯¸¦ °¡Á®¿ÀÁö ¾Ê°Ô ÁÖ¼®Ã³¸® model.setValue ( "/root/init/hosinprcpresncd", "00"); //20080927 ¸¶Á¤¹Î ¼öÁ¤. ¿Ü·¡È¯ÀÚ°¡ ¾Ï¼¾ÅÍÀΰæ¿ì´Â ¹ßÇàó¸¦ ¾Ï¼¾ÅÍ·Î ÇÑ´Ù. // 20101227 ±è¿µÇÐ ¼öÁ¤ ¿Ü·¡È¯ÀÚ°¡ ¼¾ÅÍ·Î Á¢¼öÇÑ °æ¿ì´Â ¹ßÇàó¸¦ ¼¾ÅÍ·Î ÇÑ´Ù. // 2010. 12. 31 ƯÁ¤ ¼¾Å͸¸ ¹ßÇàó¸¦ ¼¾ÅÍ·Î ÇÑ´Ù. Ä¥°îº´¿ø ±èÁø°æ ¼±»ý´Ô ¿äû var patcentcd = model.getValue ( "/root/paminfo/list/centcd" ); var chkCentcd = model.getValue("/root/hidden/centdeptinfo/hardcd[hardcd='" + model.getValue ( "/root/paminfo/list/centcd" ) + "']/hardcd"); if ( chkCentcd != null && chkCentcd != "") { model.setValue ("/root/issdept", model.getValue ( "/root/paminfo/list/centcd" )); } else { model.setValue ( "/root/issdept", model.getValue ( "/root/paminfo/list/orddeptcd" )); } } else { //ÀÔ¿ø, ÀÀ±ÞÀ϶§ if (prcpgenrflag == "I") { model.setValue ( "/root/init/hosinprcpresncd", "00"); button21.visible = false; //kimsj µÇÀÇ·Ú¹öư - ÀÔ¿øÀÏ °æ¿ì º¸ÀÌÁö ¾Êµµ·Ï ¼³Á¤ } else { model.setValue ( "/root/init/hosinprcpresncd", model.getValue ( "/root/paminfo/list/hosoutexptresncd" )); button21.visible = true; //kimsj µÇÀÇ·Ú¹öư } // ÀÀ±Þ½Ç ¹ßÇàºÎ¼­ °ü·Ã ¼ÂÆÃ. ÀÀ±Þ½Ç ȯÀÚÀÇ °æ¿ì ¼¾¼­½º¿¡ µî·ÏµÇ¾î ÀÖ´Â ºÎ¼­ÄÚµå·Î ¹ßÇàºÎ¼­¸¦ ¼ÂÆÃÇØÁØ´Ù.2012.04.24 ¾ö¿µ¸¸ var erissdeptcd = model.getValue("/root/paminfo/list/erissdeptcd"); if (prcpgenrflag == "E" && !isNull(erissdeptcd) && erissdeptcd != "-") { model.setValue ( "/root/issdept", erissdeptcd); } else { model.setValue ( "/root/issdept", model.getValue ( "/root/paminfo/list/wardcd" )); } if ( saveFlag != "save" || isNull(model.getValue ( "/root/init/prcpdd" ))) { model.setValue ( "/root/init/prcpdd", getCurrentDate()); } cmb_hosinprcpresn.visible = false; cmb_prcpkind.visible = true; cmb_prcpdd.visible = true; cmb_issdept.visible = true; caption1.visible = false; btn_issdept.visible = true; grd_prcplist.colHidden(prcpKindCdCol) = false; cmb_issdept.attribute ( "left" ) = "662"; btn_issdept.attribute ( "left" ) = "764"; btn_prcpsave2.disabled = true; // Áø·á¿¹¾à + ÀÎÁõÀúÀå bool_patgolistprtyn.disabled = true; btn_prtpattogo.visible = false; //by sonjy 20081020 ÀÔ¿ø À϶§¸¸ Á¤±Ô ó¹æ ½Ã°£ check // by ±è¿µÇÐ 2010. 12. 29 Á¤±Ôó¹æ ÀԷ½ð£À» ÇϵåÄÚµå Å×À̺í Ȱ¿ë ¼öÁ¤ ( 261¹ø) fGetHardCDList("N", 261, 0 , "/root/hidden/nomalordertm"); var nomalordrendtm = model.getValue("/root/hidden/nomalordertm/hardcd[cdseqno = '1']/hardcd"); var nomalordrstrttm = model.getValue("/root/hidden/nomalordertm/hardcd[cdseqno = '2']/hardcd"); if ( eval (getCurrentTime().substr (0,2)) <= parseInt(nomalordrendtm) && prcpgenrflag == "I") { //ó¹æÁ¾·ù: 4½ÃÀüÀ̸é Á¤±Ô model.setValue ( "/root/init/prcpkindcd", "10" ); } else if ( eval (getCurrentTime().substr (0,2)) >= parseInt(nomalordrstrttm) && prcpgenrflag == "I" ) { //9½Ã ÀÌÈĸé Á¤±Ô, ³¯Â¥´Â ´ÙÀ½³¯Â¥ model.setValue ( "/root/init/prcpkindcd", "10" ); var nextDay = getCurrentDate().toDate().getAddDate(1,"D").getDateFormat(); //´ÙÀ½³¯À» ã´Â´Ù. model.setValue ( "/root/init/prcpdd", nextDay ); } else { //Ãß°¡Ã³¹æ model.setValue ( "/root/init/prcpkindcd", "20" ); } if ( prcpgenrflag == "E" || prcpgenrflag == "D" ) { cmb_hosinprcpresn.visible = true; model.setValue ( "/root/init/prcpkindcd", "20" ); cmb_hosinprcpresn.attribute ( "left" ) = "786"; cmb_hosinprcpresn.attribute ( "width" ) = "147"; //204-57=147 } } //@@@ Á¶¿µÁ¦ ºÎÀÛ¿ë °ü¸®ÆË¾÷ Çѹø¸¸ ¶ç¿ì±â À§ÇØ °ü·Ã paramter¸¦ ÀúÀå ÈÄ¿¡ ÃʱâÈ­ Çϵµ·Ï ¼öÁ¤ (2010.07.16 JJE) clearParameter("SPAER01900_popupYN"); clearParameter("SPAER01900_prcpcd"); clearParameter("SPAER01900_lnkno"); //ÇùÁø¸íÀ» ó¹æÈ­¸é¿¡ Ç¥½Ã, 2008.04.26 ¿ÀÁöÈÆ var cnsttypenm = getPatientInfoDetail("coopteamnm"); if(cnsttypenm == ""){ opt_cnsttypenm.visible = false; btn_cnstconf.visible = false; }else{ model.setValue("/root/init/cnsttypenm", cnsttypenm); opt_cnsttypenm.visible = true; btn_cnstconf.visible = true; } // ¼±ÅÃÁø·á À§ÀÓ¿©ºÎ¸¦ ó¹æÈ­¸é¿¡ Ç¥½Ã , 2008. 05. 29 ±è¿µÇÐ var specordtypenm = getPatientInfoDetail("specordtypenm"); if (specordtypenm == "-" || isNull(specordtypenm)) { model.setValue("/root/init/specordtypenm", ""); opt_specordtypenm.visible = false; } else { model.setValue("/root/init/specordtypenm", specordtypenm); opt_specordtypenm.visible = true; } //ÀÇ·Ú¼­È¸½Å °ü·Ã Á¤º¸ ó¸® kimsj 20100208 ¼öÁ¤ (ȸ½ÅÁ¤º¸ ¾øÀ» °æ¿ì º¸ÀÌÁö ¾Êµµ·Ï ¼öÁ¤) if(model.getValue("/root/paminfo/list/replyn")=="N"){ model.setValue("/root/init/repltypenm", model.getValue("/root/paminfo/list/repltypenm")); } else { model.setValue("/root/init/repltypenm", ""); } //ÁßÁõµî·Ï À¯È¿±â°£ ¸¸·á Ç¥½Ã [ÁßÁõµî·Ï Á¾·áÀÏÀÚ ±âÁØ -1°³¿ù ~ +18°³¿ù] kimsj 100818 var sdoaendchk = getPatientInfoDetail("sdoaendchk"); if (sdoaendchk == "Y") { model.setValue("/root/init/sdoaendnm", "[ÁßÁõµî·Ï À¯È¿±â°£ ¸¸·á]"); opt_sdoaendnm.visible = true; } else { model.setValue("/root/init/sdoaendnm", ""); opt_sdoaendnm.visible = false; } //20080731 ¸¶Á¤¹Î ¼öÁ¤ ¼ö¼úÅÇ¿¡¼­ ¼±ÅÃÇÑ °ÍÀº ¼ö¼úÈÄ¿¡¼­ ¼ö¼úÁßÀ¸·Î ó¸® var operationFlagCvs = getGlobalVariable("operation"); if(operationFlagCvs.length != 0 ){ //cvs°¡ nullÀÌ ¾Æ´Ñ °æ¿ì¿¡¸¸ ó¸®ÇÔ. model.removeNodeSet ( "/root/operation/list" ); //»ó´ÜÈ­¸é Á¤º¸ ÃʱâÈ­ setCSVToNode ( "/root/operation", operationFlagCvs ); model.setValue ( "/root/init/prcpkindcd", "35" ); } else { model.removeNodeSet ( "/root/operation/list" ); } bfPrcpdd = model.getValue ( "/root/init/prcpdd" ); if(isNull(pamInfoCvs)){ return; } //20080818 ¸¶Á¤¹Î ¼öÁ¤. ó¹æ ÀúÀåÈÄ ºÒ·¯¿À´Â °ÇÀº app¿¡¼­ È£ÃâÇÏ´Â °É·Î ¼öÁ¤. if ( saveFlag == "save" ){ model.copyNode ( "/root/initsrchprcp", "/root/savertninfo" ); //temp¿¡ µþ·Á¿Â µ¥ÀÌÅÍ´Â »èÁ¦ÇÑ´Ù. model.removeNodeset ( "/root/initsrchprcp/prcplist" ); model.removeNodeset ( "/root/initsrchprcp/saveestmspclcs" ); model.removeNodeset ( "/root/initsrchprcp/saveserdiagappfrm" ); model.removeNodeset ( "/root/initsrchprcp/savelglydis" ); model.removeNodeset ( "/root/initsrchprcp/saverareobst" ); } else { fInitSrch(); } if ( prcpgenrflag == "O" ){ //¿Ü·¡À϶§ //20090316 ¸¶Á¤¹Î ¼öÁ¤. login Á¤º¸¿¡¼­ ´çÀμ±°Ë»ç »ç¿ë¿©ºÎ °¡Á®¿È if ( model.getValue ( "/root/initsrch/pretest/trgtcd" ) == "Y" ) { b_aftrcpt.visible = true; txt_aftrcpt.visible = true; } } else { b_aftrcpt.visible = false; txt_aftrcpt.visible = false; } //20090428 ¸¶Á¤¹Î Ãß°¡. ¿Ü·¡¼ö¼ú·Î Ãß°¡ if (!isNull(model.getValue ( "/root/operation/list/oprsrvno"))){ txt_aftrcpt.visible = false; b_aftrcpt.visible = false; cmb_prcpkind.visible = true; } if ( model.getValue ( "/root/init/setprcpyn" ) == "Y" && saveFlag != "save" ){ if ( model.getValue ( "/root/cp" ) != "Y" ) { //Àüó¹æÀÇ ·Îµù¿©ºÎ ÃʱâÈ­, bfprcpload¸¦ NÀ¸·Î ¼³Á¤ÇØ¾ß Áø·á±â·ÏÀ» ¶ç¿ï ¼ö ÀÖÀ½ 2008.02.12 ¿ÀÁöÈÆ model.setValue("/root/init/bfprcpload", "N"); btn_ivbfprcp.selected = true; ivw_prcp3.src = "SMMMO02100_Àüȸó¹æ.xrw"; } } //ivw_prcp3Ãß°¡ °ü·Ã ·ÎÁ÷ À̵¿ ¹× º¯°æ.. by sonjy 2008-08-20 start if ( model.getValue("/root/init/detlivw") == "m" ) { if ( model.getValue ( "/root/cp" ) != "Y" ) { if(ivw_prcp.visible == true )ivw_prcp.window.javascript.fIvwDetlVwCom(); }else{ if(ivw_prcp2.visible == true ) ivw_prcp2.window.javascript.fIvwDetlVwCom(); } } else if ( model.getValue( "/root/init/detlvw" ) == "m" ) { if ( model.getValue ( "/root/cp" ) != "Y" ) { if(ivw_prcp.visible == true ) fDetlVw("y"); ; }else{ if(ivw_prcp2.visible == true ) fDetlVw("y"); ; } } if( btn_ivbfprcp.selected == true ) { if ( model.getValue("/root/init/detlivw") == "m" ) { ivw_prcp3.window.javascript.fIvwDetlVwCom("bf"); } else if ( model.getValue( "/root/init/detlvw" ) == "m" ) { fDetlVw("y"); } ivw_prcp3.visible = true; if ( model.getValue ( "/root/cp" ) != "Y" ) { ivw_prcp.visible = false; }else{ ivw_prcp2.visible = false; } } //ivw_prcp3Ãß°¡ °ü·Ã ·ÎÁ÷ À̵¿ ¹× º¯°æ.. by sonjy 2008-08-20 end if ( model.getValue ( "/root/anst/paramyn") != "Y" ) { if ( !isNull(model.getValue ( "/root/operation/list/oprsrvno")) && prcpgenrflag == "O") { cmb_prcpkind.disabled = true; } else { cmb_prcpkind.disabled = false; } } // ¿Ü·¡¿¡¼­ ·Î±×ÀÎ ÇÑ ÀÇ»çÀÇ ºÎ¼­¿Í ȯÀÚÀÇ ºÎ¼­°¡ °°Áö ¾ÊÀ» °æ¿ì ÀÎÁõÀúÀå ¹öư ºñȰ¼º - 20081015 by Moonsh var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); // ȯÀÚÀÇ Áø·á°ú var userdeptcd = getUserInfo("dutplcecd"); // ·Î±×ÀÎ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); // ÀÔ¿ø, ¿Ü·¡ Á¤º¸ var oprsrvinfo = model.getValue ( "/root/operation/list/oprsrvno"); var chkDisbBtnYN = "N"; //20091015 by JJE Ãß°¡ if ( prcpgenrflag == "O" ){ if ( orddeptcd != userdeptcd ) { if ( isNull(oprsrvinfo) ) { btn_prcpsave.disabled = true; btn_prcpsave2.disabled = true; btn_prcpsave.hint = "¼±»ý´ÔÀÇ ºÎ¼­¿Í ȯÀÚÀÇ ºÎ¼­°¡ °°Áö ¾Ê¾Æ¼­ ÀÎÁõ ÀúÀåÀ» ÇÒ ¼ö ¾ø½À´Ï´Ù."; btn_prcpsave2.hint = "¼±»ý´ÔÀÇ ºÎ¼­¿Í ȯÀÚÀÇ ºÎ¼­°¡ °°Áö ¾Ê¾Æ¼­ ÀÎÁõ ÀúÀåÀ» ÇÒ ¼ö ¾ø½À´Ï´Ù."; chkDisbBtnYN = "Y"; //20091015 by JJE Ãß°¡ } } } if ( prcpgenrflag == "E" ){ var mainObj = getMainViewer(); var ordPatObj = mainObj.javascript.getOpenWindow("SMMMO04100"); if(ordPatObj != null){ //µÎ °´Ã¼°ªÀÌ ´Ù¸¥ °æ¿ì »õ·Î¿î Áø·á´ë»óÀÚ È­¸éÀ» openÇÔ var callvisityn = ordPatObj.javascript.getParameter("SMMMO04100_callvisityn"); model.makeValue("/root/tmp/callvisityn",callvisityn) if (callvisityn == "N") { btn_prcpsave.disabled = true; btn_prcpsave2.disabled = true; btn_prcpsave.hint = "ÀÀ±Þ½Ç Visit TimeÀ» µî·Ï ÇÏÁö ¾ÊÀ¸¸é ±â·Ï°ú ó¹æÀº ÀÓ½ÃÀúÀ常 °¡´É ÇÕ´Ï´Ù."; btn_prcpsave2.hint = "ÀÀ±Þ½Ç Visit TimeÀ» µî·Ï ÇÏÁö ¾ÊÀ¸¸é ±â·Ï°ú ó¹æÀº ÀÓ½ÃÀúÀ常 °¡´É ÇÕ´Ï´Ù."; chkDisbBtnYN = "Y"; } } }// ÀÀ±Þ½Ç call visit ÇÏÁö ¾ÊÀ¸¸é ó¹æ ÀÎÁõÀúÀ常 °¡´É 20100527 by LYJ //20091015 by JJE ó¹æ â »ç¿ë µµÁß ÀúÀå¹öư ºñȰ¼ºÈ­ ó¸® µÉ ¼ö ÀÖÀ¸¹Ç·Î(fChkInCnclYN() Ãß°¡¿¡ µû¶ó) È­¸é ȯÀÚ Àüȯ ½Ã Ȱ¼ºÈ­ ó¸® ÇÊ¿ä if(chkDisbBtnYN == "N"){ btn_tempsave.hint = ""; btn_prcpsave.hint = ""; btn_prcpsave2.hint = ""; btn_tempsave.disabled = false; btn_prcpsave.disabled = false; btn_prcpsave2.disabled = false; } // ó¹æ ¸ÞÀÎ refresh ´ÜÀÏÈ­¸¦ À§ÇÑ ¼ÂÆÃ - 20081212 by Moonsh var refreshInfo = getGlobalVariable("OrderMainRefresh"); if ( refreshInfo != "Y" ) { model.refresh(); } //DUR-S by sonjy 20091207 ȯÀÚ ¼±ÅÃÀÌ ¹Ù²ð¶§ ÀÌÀü difguidÃʱâÈ­ durappyn : "A:DURÀüü»ç¿ë", "Y:DURÁß ÀúÇÔ·®Á¦¿Ü", "³ª¸ÓÁö:DUR »ç¿ë¾ÈÇÔ" , "K:°æºÏ´ë¿ë DUR" if ( model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "A" || model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "Y") { if( saveFlag != "save" ) model.makeValue("/root/init/bf_difguid", ""); } //DUR-E } /** * @desc : ó¹æÈ­¸é ÃʱâÈ­ * @id : model1 * @event : xforms-ready * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 14 */ function fInitializeReady(diag) { //ȯÀÚ ±âÃÊÀÓ»óÁ¤º¸ Á¶È¸ ¹× È­¸éÇ¥½Ã //2008. 08. 04 model.setValue("/root/tmp/pid" , model.getValue("/root/paminfo/list/pid")); model.setValue("/root/tmp/useflag", "Y"); var baseclincset = ""; /* if(submit("TRMMO15801")){ var node = model.instance1.selectNodes("/root/main/patbaseinfo/patbaseinfo"); if(node.length > 0){ for(var i = 1; i < node.length + 1;i++){ var strset = model.getValue("/root/main/patbaseinfo/patbaseinfo[" + i + "]/testitemnm") + ":" + model.getValue("/root/main/patbaseinfo/patbaseinfo[" + i + "]/testrsltcnts") + model.getValue("/root/main/patbaseinfo/patbaseinfo[" + i + "]/unitnm") + " "; baseclincset += strset; } } caption5.attribute("text") = baseclincset; } */ //20080826 ¸¶Á¤¹Î ¼öÁ¤: initsrch¿¡¼­ ã´Â°ÍÀ¸·Î ÇÔ. //if ( isNull(model.getValue ( "/root/trgtcdinfo/trgtcdlist/trgtcd" ))) { // prcpdd = getCurrentDate(); // model.makeValue("/root/send/reqdata/trgtcd", trgtcd); // model.makeValue("/root/send/cond98", prcpdd); // submit("TRMMO02613"); //} if ( model.getValue ( "/root/paminfo/list/elbulbodstat" ) == "0") { //btn_prcpsave.disabled = true; //button101.disabled = true; //btn_prcpsave.hint = "°£È£Á¢¼ö »óÅ¿¡¼­´Â ÀúÀåÀÌ ºÒ°¡ÇÕ´Ï´Ù."; } else { //btn_prcpsave.disabled = false; //button101.disabled = false; //btn_prcpsave.hint = "ó¹æÀ» ÀúÀåÇÕ´Ï´Ù."; } var patFlagCvs = getGlobalVariable("patflag"); if(patFlagCvs.length == 0 ) { messageBox ( "ȯÀÚÁ¤º¸°¡", "I004" ); window.close(); return; } //Áø´Ü°Ë»ö È£Ãâ if (isNull(diag)){ fPatDiagSrch(); } model.refresh(); //ó¹æ Lock Á¤º¸ È£Ãâ //fgetPrcpLock(); fInitializeScreen(); //CPÈ­¸é¿¡¼­´Â ¸¶Áö¸·¿¡ ó¸® if ( model.getValue ( "/root/cp" ) != "Y" ) { fDrugPrcpDc(); fTempPrcp(); //¿Ü·¡°Ë»çó¹æ ÀÔ¿øÀüȯ ( Áֻ翬¼Óó¹æ, ¹°¸®Ä¡·á ¿¬¼Óó¹æÀº Á¦¿Ü ) fSaveRsrvPrcpCvrt(); fPainCnt(); } else {//±âÃÊÀÓ»óÁ¤º¸ QuickView Ç׸ñ ½ÃÀÛ- 2010.11.02 ÀÌâ¿ì fGetClinicQuickViewInf(); } // ó¹æ ¸ÞÀÎ refresh ´ÜÀÏÈ­¸¦ À§ÇÑ ¼ÂÆÃ - 20081212 by Moonsh var refreshInfo = getGlobalVariable("OrderMainRefresh"); if ( refreshInfo == "Y" ) { setGlobalVariable("OrderMainRefresh", "N"); } grd_diaglist.refresh(); model.refresh(); } /** * @desc : ó¹æ »ó¼¼º¸±â * @param : Àüó¹æ, ¿¬¼Óó¹æ, ó¹æ°Ë»ö Åǹöư ´­·¶À» °æ¿ì ¿øº¹ orgflag => Y * @id : btn_detlvw * @event : DOMActivate * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 12 */ function fDetlVw ( orgflag ) { var grdLeft = 383; var grdWidht = 811; var extnGrdLeft = 5; var extnGrdWidht = 1187; // var ivwLeft = 8; // var ivwWidth = 416; // var minIvwLeft = ivwLeft; // var minIvwWidth = 7; var lineX1 = grdLeft; var lineX2 = grdLeft + grdWidht; var extnLineX1 = extnGrdLeft; var extnLineX2 = lineX2; var prcpColsize = 100; var deliveColsize = 150; var drugmthdspccdnm = 72; if ( model.getValue( "/root/init/detlvw" ) == "p" && orgflag != "y" ) { grd_prcplist.attribute ( "left" ) = extnGrdLeft; grd_prcplist.attribute ( "width" ) = extnGrdWidht; // ivw_prcp.attribute ( "left" ) = minIvwLeft; // ivw_prcp.attribute ( "width" ) = minIvwWidth; ivw_prcp.visible = false; ivw_prcp3.visible = false; //by sonjy ó¹æ ±×¸®µå È®´ë½Ã Àüó¹æ¿¡ °¡·ÁÁö´Â Çö»ó ¼öÁ¤ 2008-08-20 if ( model.getValue ( "/root/cp" ) == "Y" ) { ivw_prcp2.visible = false; ivw_prcp3.visible = false; } line5.attribute ( "x1" ) = extnLineX1; line5.attribute ( "x2" ) = extnLineX2; // line2.attribute ( "x1" ) = extnLineX1; // line2.attribute ( "x2" ) = extnLineX2; if ( model.getValue ( "/root/cp" ) == "Y" ) { ivw_prcp2.visible = false; ivw_prcp3.visible = false; line5.attribute ( "x1" ) = extnLineX1; line5.attribute ( "x2" ) = extnLineX2+10; grd_prcplist.attribute ( "width" ) = parseInt(grd_prcplist.attribute ( "width" )) + 10; } model.setValue( "/root/init/detlvw", "m" ); grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) = grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) - drugmthdspccdnm; //grd_prcplist.colWidth(prcpDeliveFactCol) = grd_prcplist.colWidth(prcpDeliveFactCol) + deliveColsize; } else { grd_prcplist.attribute ( "left" ) = grdLeft; grd_prcplist.attribute ( "width" ) = grdWidht; // ivw_prcp.attribute ( "left" ) = ivwLeft; // ivw_prcp.attribute ( "width" ) = ivwWidth; if( btn_ivbfprcp.selected == true ) ivw_prcp3.visible = true; // by sonjy ó¹æ ivw_prcp3°¡ ¼û¾î¹ö¸®´Â Çö»ó ¼öÁ¤ 2008-08-20 else { //son0820 if ( model.getValue ( "/root/cp" ) != "Y" ) { ivw_prcp.visible = true; line5.attribute ( "x1" ) = lineX1; line5.attribute ( "x2" ) = lineX2; //line2.attribute ( "x1" ) = lineX1; //line2.attribute ( "x2" ) = lineX2; }else{ ivw_prcp2.visible = true; line5.attribute ( "x1" ) = lineX1; line5.attribute ( "x2" ) = lineX2+10; grd_prcplist.attribute ( "width" ) = parseInt(grd_prcplist.attribute ( "width" )) + 10; } } model.setValue( "/root/init/detlvw", "p" ); grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) = grd_prcplist.colWidth(grd_prcplist.colref("drugmthdspccdnm")) + drugmthdspccdnm; //grd_prcplist.colWidth(prcpnmCol) = grd_prcplist.colWidth(prcpnmCol) - prcpColsize; //grd_prcplist.colWidth(prcpDeliveFactCol) = grd_prcplist.colWidth(prcpDeliveFactCol) - deliveColsize; } } /** * @desc : ó¹æ°Ë»ö(ó¹æ ±×¸®µå¿¡¼­ ó¹æ¸í ¾²°í ¿£ÅÍ) * @id : grd_prcplist * @event : onendedit * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 14 */ function fPrcpSrch(srchflag) { if( event.keyCode == 13 && event.button < 1 ) { //ó¹æÈ­¸é down Çö»óÀ¸·Î event.button Á¶°Ç Ãß°¡ (2010.07.12 JJE) if ((model.getValue(prcpNode+"["+grd_prcplist.row+"]/prcpflag") == "2" && model.getValue(prcpNode+"["+grd_prcplist.row+"]/drugmastspec") =="Y") || model.getValue(prcpNode+"["+grd_prcplist.row+"]/status") !="S" ){ return; } if ( gridprcpsrchflag == "Y" ) { gridprcpsrchflag = "N"; return; } var prcpnm = model.getValue ( prcpNode + "[" + grd_prcplist.row+ "]/prcpnm" ); prcpnm = prcpnm.getTrim(); if ( srchflag == "prcpcd") { prcpnm = model.getValue ( prcpNode + "[" + grd_prcplist.row+ "]/prcpcd" ); } // ½Å±Ôó¹æ ¼öÁ¤¸ðµåÀ϶§ °Ë»ö ±ÛÀÚ¼ö¿¡ ´ëÇÑ flag ¼ÂÆÃ - 20090630 by Moonsh var modiflag = model.getValue("/root/init/rowmodify/modiflag"); //by sonjy 20100405 ó¹æ°Ë»ö½Ã Á¦ÇÑ ±ÛÀÚ¼ö setting var srchprcpnmlimit = 3; var srchprcpcdlimit = 2; var srchhnglimit = 3; var nodesrchprcplimitlist = instance1.selectNodes("/root/initsrch/srchprcplimit"); if( nodesrchprcplimitlist != null && nodesrchprcplimitlist.length > 0 ){ for( var n = 1 ; n <= nodesrchprcplimitlist.length; n++ ){ if( model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcd") == "prcpnm" && !isNull(model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm")) ){ srchprcpnmlimit = model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm") ; } else if( model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcd") == "prcpcd" && !isNull(model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm")) ){ srchprcpcdlimit = model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm") ; } else if( model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcd") == "hangul" && !isNull(model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm")) ){ srchhnglimit = model.getValue("/root/initsrch/srchprcplimit[" + n + "]/trgtcdnm") ; } } } var isHangul = fIsHangul (prcpnm); //ÇѱÛÀ϶§´Â 1±ÛÀÚ¸¸ ³Ö¾îµµ °Ë»ö°¡´É if ( isNull(prcpnm)) { if ( modiflag == "Y" ) { model.setValue("/root/init/rowmodify/srchnoflag", "Y"); // °Ë»ö¾ø´Â flag ¼ÂÆÃ - 20090630 by Moonsh } messageBox ( "ó¹æ °Ë»ö¾î¸¦", "C001" ); return; } else if ( isHangul == "E" ){ //¿µ¹®,¼ýÀÚÀ϶§´Â 4±ÛÀÚ ³Ö¾î¾ß °Ë»ö°¡´É if ( srchflag == "prcpcd") { //by sonjy 20100405 ó¹æ°Ë»ö½Ã Á¦ÇÑ ±ÛÀÚ¼ö setting i//f ( prcpnm.length < 2 ){ if ( prcpnm.length < parseInt(srchprcpcdlimit) ){ if ( modiflag == "Y" ) { model.setValue("/root/init/rowmodify/srchnoflag", "Y"); // °Ë»ö¾ø´Â flag ¼ÂÆÃ - 20090630 by Moonsh } //messageBox ( "2±ÛÀÚ ÀÌ»ó", "C001" ); messageBox ( srchprcpcdlimit + "±ÛÀÚ ÀÌ»ó", "C001" ); return; } } else { //if ( prcpnm.length < 3 ){ if ( prcpnm.length < parseInt(srchprcpnmlimit) ){ //messageBox ( "3±ÛÀÚ ÀÌ»ó", "C001" ); messageBox ( srchprcpnmlimit + "±ÛÀÚ ÀÌ»ó", "C001" ); return; } } } else if ( isHangul == "H" ) { //by sonjy 20100405 ó¹æ°Ë»ö½Ã Á¦ÇÑ ±ÛÀÚ¼ö setting //if ( prcpnm.length < 3 ){ if ( prcpnm.length < parseInt(srchhnglimit) ){ //messageBox ( "ÇѱÛÀº 3±ÛÀÚ ÀÌ»ó", "C001" ); messageBox ( "ÇѱÛÀº " + srchhnglimit + "±ÛÀÚ ÀÌ»ó", "C001" ); return; } } if (prcpnm.charAt ( 0 ) == "/"){ if ( prcpnm.length == 1 ){ messageBox ( "°Ë»öÇÒ ¼ö¼ú¸íÀÌ", "I004" ); return; } var curRow = grd_prcplist.row; var srchRow = grd_prcplist.rows -1; fPrcpModal ( "SPMMO05100", 180, 80 ); } else { //ù±ÛÀÚ¿¡ *°¡ ÀÖ´Â °æ¿ì, contains°Ë»ö¼öÇà // 2008.06.28 ¿ÀÁöÈÆ // if( prcpnm.charAt(0) == "*" && srchflag != "prcpcd"){ var containflag = false; if( srchflag != "prcpcd"){ //prcpnm = prcpnm.substring(1, prcpnm.length); containflag = true; } prcpnm = prcpnm.getTrim(); if ( srchflag == "prcpcd") { fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "", false, "getPrcpCdOldSrchInfo", isHangul , containflag); } else if ( srchflag == "prcpnm") { fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "", false, "getPrcpNmSrchInfo", isHangul , containflag); } else { fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "", false, "getPrcpSrchInfo", isHangul , containflag); } var srchLength = model.instances(0).selectNodes( "/root/prcpsrch/prcplist" ).length; var curRow = grd_prcplist.row; var nextRow = grd_prcplist.row + 1; if( srchLength > 1) { // ó¹æ ÄÚµå ¼öÁ¤ ¸ðµå °ü·Ã import È­¸é °ü·Ã ¼ÂÆÃ - 20090630 by Moonsh // setValue => ŸºÎ¼­ ÇÁ·Î±×·¥(¸¶Ãë±â·Ï)¿¡¼­ ¿À·ù¹ß»ý => makeValue·Î ¼öÁ¤ by sonjy 20091009 model.makeValue("/root/init/rowmodify/importflag", "Y"); var modiflag = model.getValue("/root/init/rowmodify/modiflag"); var modirow = model.getValue("/root/init/rowmodify/modirow"); if ( srchLength * 23 < 323 ) { grd_prcpsrchlist.attribute ( "height" ) = ( srchLength + 1 ) * 23 + 2; btn_copy.attribute ( "top" ) = ( srchLength + 1 ) * 23 + 6; btn_cancel.attribute ( "top" ) = ( srchLength + 1 ) * 23 + 6; import1.attribute ( "height" ) = ( srchLength + 1 ) * 23 + 30 } else { grd_prcpsrchlist.attribute ( "height" ) = 323; btn_copy.attribute ( "top" ) = 326; btn_cancel.attribute ( "top" ) = 326; import1.attribute ( "height" ) = 351; } // ó¹æ ÄÚµå ¼öÁ¤ ¸ðµåÀ϶§ import È­¸é À§Ä¡ Àç¼³Á¤ - 20090630 by Moonsh if ( modiflag == "Y" ){ grd_prcplist.row = modirow; } if ( grd_prcplist.row <= 10) { import1.attribute ( "top" ) = 194 + ( grd_prcplist.row - 1) * 23; } else if ( grd_prcplist.row <= 25) { import1.attribute ( "top" ) = (grd_prcplist.row - 1) * 23 + 170 - import1.attribute ( "height" ); } else if ( grd_prcplist.row > 25 ){ import1.attribute ( "top" ) = 24 * 23 + 190 - import1.attribute ( "height" ); } model.refresh(); for ( var i=1; i <=srchLength ; i++ ) { if (model.getValue ("/root/prcpsrch/prcplist[" + i + "]/prcpclscd")=="-") { grd_prcpsrchlist.rowstyle(i, "data", "color") = "#ff0000"; } else { grd_prcpsrchlist.rowstyle(i, "data", "color") = "#000000"; } } //kimsj È¥µ¿ÁÖÀÇ ±Û¾¾ grd_prcpsrchlist.colstyle(4, "all", "color") = "#ff0000"; grd_prcpsrchlist.rowstyle(0, "data", "color") = "#000000"; import1.visible = true; model.refresh(); model.setfocus( "grd_prcpsrchlist" ); grd_prcpsrchlist.select( 1, 1, 1, 1) = true; } else if( srchLength == 1) { model.refresh(); model.setfocus( "grd_prcpsrchlist" ); grd_prcpsrchlist.select( 1, 1, 1, 1) = true; addPrcp ( "import", "/root/prcpsrch/prcplist", "/root/main/prcp", "N", "prcpcd", model.getValue ( "/root/prcpsrch/prcplist/prcpcd"), grd_prcpsrchlist, "Y", "00"); //2011.10.19 ¾ö¿µ¸¸ À§¿¡ ·ÎÁ÷À¸·Î º¯°æ ÃßÈÄ ¾Æ·¡´Â »èÁ¦ ÇØ¾ßÇÔ. //srchRow = addPrcpDetl ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , grd_prcplist.row, "00" ); //if (srchRow !=0 ) { //srchRow = fAddSetPrcpChk ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , srchRow, "00" ); // srchrownum = fAddSetPrcpChkKNUH ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , srchRow, "00" ); // if (srchrownum != srchRow) { // srchRow = srchrownum; // DrugCalc ( "drprcpetc8" , parseInt(srchRow) -1 ); // ¿ë·®º¸Á¤À» ÇØÁØ´Ù. // } // fHosinPrcpResnChk ("main", "/root/main/prcp/" ); // focusMain ( srchRow ); //} //fPrcpColor(); } else { messageBox ( "°Ë»öµÈ ³»¿ëÀÌ", "I004" ); // ó¹æ ÄÚµå ¼öÁ¤ ¸ðµå °ü·Ã °Ë»ö ³»¿ëÀÌ ¾øÀ» °æ¿ì º¯°æ Row ÃʱâÈ­ ÈÄ ¸®ÅÏ - 20090630 by Moonsh var modiflag = model.getValue("/root/init/rowmodify/modiflag"); if ( modiflag == "Y" ) { var grdcnt = grd_prcplist.rows; grdcnt = grdcnt - 1; model.setValue("/root/main/prcp/prcplist[" + grdcnt + "]/prcpcd", ""); var modirow = model.getValue("/root/init/rowmodify/modirow"); var modiprcpcd = model.getValue("/root/init/rowmodify/modiprcpcd"); model.setValue( "/root/main/prcp/prcplist[" + modirow + "]/prcpcd", modiprcpcd); grd_prcplist.row = modirow; model.resetInstanceNode ("/root/init/rowmodify"); grd_prcplist.focusColor = "#ece1ec"; // ±×¸®µå¿¡ ¼±Åà µÇ´Â rowÀÇ »ö ÁöÁ¤ } else { grd_prcplist.dispatch("onentercell"); } } } } } /** * @desc : ó¹æ»ó¼¼ÆË¾÷ * @param : row: ÆË¾÷À» ¶ç¿ï row : vxpt: xÁÂÇ¥ : vypt: yÁÂÇ¥ : flag: ó¹æº¹»ç½Ã ÀÚµ¿ ÆË¾÷ÀÎÁö üũ. ÀÚµ¿ ÆË¾÷ÀÏ °æ¿ì¿¡´Â È­¸éÀ» refresh ÇØÁà ¾î´À·Î¿ì¿¡¼­ ÆË¾÷À» ¶ç¿ì´ÂÁö È®Àΰ¡´ÉÇÏ°Ô ÇÑ´Ù. * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 14 */ function fPrcpDetl( row, vxpt, vypt, flag ) { var curRow = 0; if ( isNull(row)) { curRow = grd_prcplist.row; } else { curRow = row; } var status = model.getValue ( prcpNode + "[" + curRow + "]/status") if ( status == "I" || status == "U" || status == "-" ) { if ( isNull ( vxpt )) vxpt = 395; var xpt = window.screenleft + vxpt; var ypt = 0; if ( isNull(vypt)) { if (event.screenY < 750 ) { ypt = event.screenY + 10; } else { ypt = event.screenY - 240; } } else { ypt = vypt; } var prcpClsCd = model.getValue ( prcpNode + "[ " + curRow + "]/prcpclscd" ); var prcpinptflag = model.getValue ( prcpNode + "[ " + curRow + "]/prcpinptflag" ); var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; if ( ( prcpClsCd == "A2" || prcpClsCd == "A4" ) && prcpinptflag != "35") { //¾à 20100507 ÀÚ°¡º¸À¯Ã³¹æÀº ÆË¾÷ ¶ßÁö ¾Ê´Â´Ù. by LYJ var prnscrID = getScreenID(); // PRN ó¹æ ÇÁ·Î¼¼½ºÀÇ Àû¿ë¹üÀ§( 󹿱îÁö or ¸¶½ºÅ͸¸)¿¡ µû¶ó »ó¼¼ ÆË¾÷ÀÇ ±â´ÉÀ» °áÁ¤ÇϱâÀ§ÇÑ ÆÄ¶ó¸ÞÅÍ set // 2010-01-02 by LYJ setParameter ( "SPMMO01100_prcp", prnscrID); setParameter ( "SPMMO01100_prndetl", model.getValue (prcpNode + "[" + curRow + "]/drprcpetc6")); modal ( "SPMMO01100", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); //20090218 ¸¶Á¤¹Î Ãß°¡ »êÁ¦ºÒ°¡ ¹× ÁÖÀÇ ¾àÀº ´ëüó¹æ ÆË¾÷À» ¶ç¿î´Ù. clearParameter ( "SPMMB10100_chkyn" ); if ( getParameter ( "SPMMO01100_powdaltdrug" ) == "2" ){ fAltDrug ( curRow, "4" ); } else if ( getParameter ( "SPMMO01100_powdaltdrug" ) == "1" ){ fAltDrug ( curRow, "5" ); } //È®ÀÎÀ» ´­·¶À» °æ¿ì. ´Ü ¼±ÅÃµÈ ´ëü¾àÀÌ ÀÖÀ» ¶§¸¸ SPMMB10100_chkyn = Y ó¸®ÇØ ÁØ´Ù. if ( getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { fPrcpBuffer( 1, grd_prcplist.rows-2, "/root/prcpdrag", prcpNode ); // var addrow = grd_prcplist.rows-2; // model.removenode ( prcpNode + "[" + addrow + "]" ); model.removenode ( prcpNode + "[" + curRow + "]" ); model.duplicate( "/root/main/prcp", "/root/prcpdrag/prcplist", "*[" + curRow + "]"); model.setValue ( prcpNode + "[" + curRow + "]/powdflag", "Y" ) model.removeNodeset ( "/root/prcpdrag/prcplist" ); makePrcpNm ( prcpNode, curRow ); model.recalculate(); model.refresh(); grd_prcplist.row = curRow; } else { if ( getParameter ( "SPMMO01100_powdaltdrug" ) == "1" ) { model.setValue ( prcpNode + "[" + curRow + "]/powdflag", "Y" ) makePrcpNm ( prcpNode, curRow ); } } clearParameter ( "SPMMO01100_powdaltdrug" ); clearParameter ( "SPMMB10100_chkyn" ); } else if ( prcpClsCd == "A6" && prcpinptflag !="35" ) { //ÁÖ»ç 20100507 ÀÚ°¡º¸À¯Ã³¹æÀº ÆË¾÷ ¶ßÁö ¾Ê´Â´Ù. by LYJ var prnscrID = getScreenID(); // PRN ó¹æ ÇÁ·Î¼¼½ºÀÇ Àû¿ë¹üÀ§( 󹿱îÁö or ¸¶½ºÅ͸¸)¿¡ µû¶ó »ó¼¼ ÆË¾÷ÀÇ ±â´ÉÀ» °áÁ¤ÇϱâÀ§ÇÑ ÆÄ¶ó¸ÞÅÍ set // 2010-01-02 by LYJ setParameter ( "SPMMO01200_prcp", prnscrID); setParameter ( "SPMMO01200_prndetl", model.getValue (prcpNode + "[" + curRow + "]/drprcpetc6")); modal ( "SPMMO01200", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); clearParameter ( "SPMMO01200_prcp"); } else if ( prcpClsCd == "F2" ) { //ÀçȰ modal ( "SPMMO01800", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "C2" || prcpClsCd == "C6" || prcpClsCd == "E2" ) { //¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó) modal ( "SPMMO01300", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); //start: ¿µ»ó °Ë»çÀÇ ÀÚµ¿ ÆË¾÷ ½Ã Ãë¼Ò ÇÒ °æ¿ì ó¹æÃ¢¿¡ ó¹æÀÌ ¶³¾îÁöÁö ¾Êµµ·Ï (2010.02.02 JJE) var prcptempNode = instance1.selectSingleNode("/root/prcptemp/prcplist"); if( prcptempNode == null && flag == "auto") setParameter("cnclCopyPrcpYN_Param", "Y"); // ÀÚµ¿ÆË¾÷ ÀÚµ¿ÆË¾÷ÀÏ °æ¿ì¿¡¸¸ »èÁ¦Çϵµ·Ï "auto" Á¶°ÇÃß°¡ //end } else if ( prcpClsCd == "G2" ) { //RT modal ( "SPMMO13300", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "B2" || prcpClsCd == "B6" ) { //Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³» modal ( "SPMMO01400", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "B4" ) { //¼öÇ÷ (Ç÷¾×¼öÇ÷) modal ( "SPMMO01500", mon, xpt, ypt - 80, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "H2" ) { //¼ö¼ú modal ( "SPMMO01600", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); //Ä¡°ú ¼ö¼ú ó¹æ(´ëºÐ·ù:Ä¡°ú, Áߺзù:Ä¡°ú¼ö¼ú)ÀÎ °æ¿ì Ä¡½Ä ÆË¾÷ È£Ãâ (¿äû¹øÈ£:8731 2009.10.26 by JJE) if( getParameter("SPMMO01600_returnParam") == "Y" ){ //¼ö¼úÆË¾÷¿¡¼­ 'È®ÀÎ'ÇÑ °æ¿ì¿¡¸¸ Ä¡½ÄÆË¾÷ È£Ãâ(from ¼­¼Ò¿µ¼±»ý´Ô¿äû) var tempcol2 = model.getValue(prcpNode + "[ " + curRow + "]/tempcol2" ); var tootfact = model.getValue(prcpNode + "[ " + curRow + "]/tootfact" ); //by sonjy 20100304 ¼ö¼ú/Ä¡½Ä ÇʼöÀÔ·ÂÀϰæ¿ì·Î Á¦ÇÑ Á¶°Ç Ãß°¡ ¹× Ä¡½ÇÇʼöÀÔ·Â Ãß°¡. (¿©Àǵµ »óȲ½Ç ¿À·ù ): //±âÁ¸Àº Ä¡°ú ¼ö¼ú ó¹æ(´ëºÐ·ù:Ä¡°ú, Áߺзù:Ä¡°ú¼ö¼ú)°æ¿ì ÆË¾÷À¸·Î µÇ¾î ÀÖ¾úÀ½. var prcpessninptflag = model.getValue(prcpNode + "[ " + curRow + "]/prcpessninptflag" ); //if(tempcol2.substr(0, 5) == "17|02" && tootfact == "-" ){ if(( prcpessninptflag == "2" || ( prcpessninptflag == "5" && tempcol2.substr(0, 5) == "17|02" ) ) && tootfact == "-" ){ grd_prcplist.select(curRow,1,curRow,1)=true; fDentifmla("OP"); } } clearParameter("SPMMO01600_returnParam"); } else if ( prcpClsCd == "H4" ) { //óġ modal ( "SPMMO13100", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "K2" ) { //Ä¡°ú //KNUH, ¾à¼Óó¹æ º¹»ç ½Ã Ä¡½Ä ÆË¾÷ÀÌ Çѹø¸¸ ¶ß°í ´Ù¸¥ Ä¡°úó¹æ¿¡ µ¿ÀÏÇÏ°Ô Àû¿ëµÇµµ·Ï ÇÔ.(2011.03.28 JJE) if( flag == "auto" && prcpinptflag == "02" && model.instances(0).selectSingleNode("/root/main/toot_prcp/prcplist") != null ){ model.removeNode("/root/prcptemp"); model.makeNode("/root/prcptemp"); model.duplicate( "/root/prcptemp", "/root/main/toot_prcp/prcplist"); model.setValue("/root/prcptemp/prcplist/prcpcd" , model.getValue ( prcpNode + "[ " + curRow + "]/prcpcd" )); model.setValue("/root/prcptemp/prcplist/prcpnm" , model.getValue ( prcpNode + "[ " + curRow + "]/prcpnm" )); model.setValue("/root/prcptemp/prcplist/orgprcpnm" , model.getValue ( prcpNode + "[ " + curRow + "]/orgprcpnm" )); model.setValue("/root/prcptemp/prcplist/tempcol2" , model.getValue ( prcpNode + "[ " + curRow + "]/tempcol2" )); model.setValue("/root/prcptemp/prcplist/erprcpflag" , model.getValue ( prcpNode + "[ " + curRow + "]/erprcpflag" )); model.setValue("/root/prcptemp/prcplist/nigtprcpflag" , model.getValue ( prcpNode + "[ " + curRow + "]/nigtprcpflag" )); model.setValue("/root/prcptemp/prcplist/payflagcd" , model.getValue ( prcpNode + "[ " + curRow + "]/payflagcd" )); model.setValue("/root/prcptemp/prcplist/prcpdelivefact", model.getValue ( prcpNode + "[ " + curRow + "]/prcpdelivefact" )); model.setValue("/root/prcptemp/prcplist/precureprcpflag", model.getValue ( prcpNode + "[ " + curRow + "]/precureprcpflag" )); model.setValue("/root/prcptemp/prcplist/prcpqty" , model.getValue ( prcpNode + "[ " + curRow + "]/prcpqty" )); model.setValue("/root/prcptemp/prcplist/prcpvol" , model.getValue ( prcpNode + "[ " + curRow + "]/prcpvol" )); model.setValue("/root/prcptemp/prcplist/prcptims" , model.getValue ( prcpNode + "[ " + curRow + "]/prcptims" )); model.setValue("/root/prcptemp/prcplist/drprcpetc7" , model.getValue ( prcpNode + "[ " + curRow + "]/drprcpetc7" )); model.setValue("/root/prcptemp/prcplist/drprcpetc8" , model.getValue ( prcpNode + "[ " + curRow + "]/drprcpetc8" )); model.setValue("/root/prcptemp/prcplist/choiordflag" , model.getValue ( prcpNode + "[ " + curRow + "]/choiordflag" )); model.setValue("/root/prcptemp/prcplist/specdrid" , model.getValue ( prcpNode + "[ " + curRow + "]/specdrid" )); model.setValue("/root/prcptemp/prcplist/prcpexecdeptcd" , model.getValue ( prcpNode + "[ " + curRow + "]/prcpexecdeptcd" )); model.setValue("/root/prcptemp/prcplist/powdflag" , model.getValue ( prcpNode + "[ " + curRow + "]/powdflag" )); }else{ modal ( "SPMMO13200", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); if( flag == "auto" && prcpinptflag == "02" ){ model.makeNode("/root/main/toot_prcp"); model.duplicate( "/root/main/toot_prcp", "/root/prcptemp/prcplist"); } } } else if ( prcpClsCd == "03" ) { //½ÄÀÌ modal ( "SPMMO01700", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "I2" || prcpClsCd == "I4" ) { //¸¶Ãë modal ( "SPMMO02000", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "C4" ) { //angio modal ( "SPMMO02100", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); //start: ¿µ»ó °Ë»çÀÇ ÀÚµ¿ ÆË¾÷ ½Ã Ãë¼Ò ÇÒ °æ¿ì ó¹æÃ¢¿¡ ó¹æÀÌ ¶³¾îÁöÁö ¾Êµµ·Ï (2010.02.02 JJE) var prcptempNode = instance1.selectSingleNode("/root/prcptemp/prcplist"); if( prcptempNode == null && flag == "auto") setParameter("cnclCopyPrcpYN_Param", "Y"); // ÀÚµ¿ÆË¾÷ ÀÚµ¿ÆË¾÷ÀÏ °æ¿ì¿¡¸¸ »èÁ¦Çϵµ·Ï "auto" Á¶°ÇÃß°¡ //end } else if ( prcpClsCd == "D2" ) { //º´¸® modal ( "SPMMO02200", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if ( prcpClsCd == "M2" ) { //Àç·á modal ( "SPMMO13400", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } else if (prcpClsCd =="Z0" ) { // ±âŸÀÏ °æ¿ì óġ¿Í °°Àº È­¸éÀ¸·Î ¿ÀÇÂÇÑ´Ù. 2010. 12. 29) modal ( "SPMMO13100", mon, xpt, ypt, "prcpdetl", prcpNode + "[" + curRow + "]", prcpNode, "", false ); } if ( model.instances(0).selectNodes ("/root/prcptemp/prcplist").length == 0 ) return false; fPrcpDetlApp ( prcpClsCd, "/root/prcptemp/prcplist", "/root/main/prcp", curRow ); //M-SET ¸ðó¹æÀÎ °æ¿ì, prcphopedd¸¦ ÀÚó¹æ¿¡ µ¿ÀÏÇÏ°Ô Àû¿ë //2008. 07. 22 ¿ÀÁöÈÆ var prcpSetCd = model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/prcpsetcd" ); var inclPrcpNo = model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/inclprcpno" ); var prcpHopeDD = model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/prcphopedd" ); if(prcpSetCd == "-" && inclPrcpNo > 0){ //¸ðó¹æÀÎ °æ¿ì, prcphopedd //alert(prcpSetCd + "," + inclPrcpNo + "," + prcpHopeDD); for(var i = 1; i <= grd_prcplist.rows; i++){ if(inclPrcpNo == model.getValue ("/root/main/prcp/prcplist[" + i + "]/inclprcpno")){ model.setValue("/root/main/prcp/prcplist[" + i + "]/prcphopedd", prcpHopeDD); } } } /* ¼öÇ÷ÀûÀÀÁõ ¹Ì ÀԷ½à ¼öÇ÷ ó¹æ »èÁ¦ ó¸® */ if ( getParameter ( "SPMMO01500_bprcpadapt" ) == "D" ){ fDeleteRow(); //È­¸é ´ÝÀºÈÄ focus¸¦ ´Ù½Ã grid·Î À̵¿½ÃŲ´Ù. model.setfocus( "grd_prcplist" ); //´õºí Ŭ¸¯ ÈÄ edit ¸ðµå·Î °¡´Â °ÍÀ» ¸·´Â´Ù. event.defaultAction = "cancel"; model.recalculate(); return false; } //È­¸é ´ÝÀºÈÄ focus¸¦ ´Ù½Ã grid·Î À̵¿½ÃŲ´Ù. model.setfocus( "grd_prcplist" ); //´õºí Ŭ¸¯ ÈÄ edit ¸ðµå·Î °¡´Â °ÍÀ» ¸·´Â´Ù. event.defaultAction = "cancel"; grd_prcplist.row = curRow; grd_prcplist.col = prcpnmCol; model.recalculate(); return true; } else if ( status == "S" ) { //°Ë»ö¾ÈµÈ °ÍÀº ´õºíŬ¸¯Çصµ ¶ã °ÍÀÌ ¾ø´Ù. grd_prcplist.editCell(); return false; } } /** * @desc : ó¹æ»ó¼¼ ÀԷ³»¿ëÀ» ¸ÞÀο¡ Àû¿ë * @param : prcpClsCd - ó¹æºÐ·ù * : strSrc - ¼Ò½º³ëµå * : strDest - ¸ñÀûÁö³ëµå * : row - ¼öÁ¤ÇÒ row * @authur : ¸¶Á¤¹Î 2007. 3. 14 */ function fPrcpDetlApp ( prcpClsCd, strSrc, strDest, row ) { var srcNodeList = model.instances(0).selectNodes( strSrc ); var destNode = model.instances(0).selectSingleNode( strDest ); var srchRow = model.instances(0).selectNodes( prcpNode ).length; var curRow = row; gGridUpdateChk("det_per"); // ÀÓ½ÃÀúÀå ¼öÁ¤ ¸ðµå if ( srcNodeList != null && srcNodeList.length > 0) { /*if ( prcpClsCd == "B2" || prcpClsCd == "B6" ) { //Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³» for(var i = 1; i <= srcNodeList.length; i++) { makePrcpNm ( strSrc, i ); if ( i == 1 ){ //¿¬¼Ó°Ë»çÀÌ°Ç ¾Æ´Ï°Ç ÆË¾÷ ¶ç¿î row´Â replace var srcSingleNode = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" ); destNode.replaceChild( srcNodeList.item(i-1).cloneNode(true), srcSingleNode); } else {//Ãß°¡µÈ ³»¿ëÀº °Ë»öµÚ¿¡ ºÙÀ½ model.duplicate ( strDest, strSrc + "[" + i + "]", "*[" + srchRow + "]" ); srchRow++; } } } else*/ if ( prcpClsCd == "03" ) { //½ÄÀÌ var chkcnt = getParameter( "SPMMO01700_chkcnt" ); var dietcnt = 0; //ÆË¾÷¿¡¼­ üũÇÑ °ªÀÌ 1À̰í ó¹æÈ­¸éÀÇ ½ÄÀÌ󹿵µ 1°³ÀÌ¸é °ªÀ» ¾ø´Â´Ù. var srcNodeListChk = model.instances(0).selectNodes ( prcpNode + "[prcpclscd='03']" ); if ( chkcnt == "1" && srcNodeListChk.length == 1 ) { makePrcpNm ( strSrc, 1 ); var srcSingleNode = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" ); destNode.replaceChild( srcNodeList.item(0).cloneNode(true), srcSingleNode); } else { for(var i = 1; i <= srcNodeList.length; i++) { makePrcpNm ( strSrc, i ); var dietprcpgenrflag = model.getValue ( strSrc + "[" + i + "]/dietprcpgenrflag" ); var srcSingleNode = instance1.selectSingleNode( prcpNode + "[prcpclscd='03' and dietprcpgenrflag='" + dietprcpgenrflag + "']" ); var checkFlag = model.getValue ( prcpNode + "[" + curRow + "]/dietprcpgenrflag" ); if ( checkFlag == "-" ) { var srcNodeCur = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" ); destNode.replaceChild( srcNodeList.item(i-1).cloneNode(true), srcNodeCur); } else if (srcSingleNode != null) { destNode.replaceChild( srcNodeList.item(i-1).cloneNode(true), srcSingleNode); } else { //Ãß°¡µÈ ³»¿ëÀº duplicate model.duplicate ( strDest, strSrc + "[" + i + "]", "*[" + srchRow + "]" ); dietcnt++; //½ÄÀÌ ÀÚµ¿ÆË¾÷ ¶§¹®¿¡ Ãß°¡Çß´Ù. srchRow++; } } } } else { makePrcpNm ( strSrc, 1 ); var srcSingleNode = instance1.selectSingleNode(prcpNode + "[" + curRow + "]" ); destNode.replaceChild( srcNodeList.item(0).cloneNode(true), srcSingleNode); } model.removeNodeset(strSrc); model.setValue ( prcpNode + "[" + curRow + "]/tempcol9", "" ); fPrcpColor(); fSetCpVal( row, "U"); model.refresh(); } } /** * @desc : ó¹æ ¿À¸¥ÂÊ ¸¶¿ì½º ÆË¾÷ ó¸® * @id : grd_prcplist * @event : onmousedown * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 25 */ function fMouseRghtBtnPopup() { if (event.button == 3) { if (grd_prcplist.mouseRow == 0) { /* if (grd_prcplist.mouseCol == prcpVolCol || grd_prcplist.mouseCol == prcpQtyCol || grd_prcplist.mouseCol == prcpDayNoCol ) { app.showPopupMenu(false); var xpt = window.screenleft + 323 + event.x; var ypt = window.screenTop + 160 + event.y; modal ("SPMMO10400", 2, xpt, ypt); //ÀÏ´Ü ÀϰýÀÔ·ÂÀº ¸·¾Ò´Ù. } */ } if(grd_prcplist.isCell(event.target) && grd_prcplist.mouseRow >= grd_prcplist.fixedRows){ app.showPopupMenu(true); var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); if ( prcpgenrflag == "O" ) { setPopupMenu("grd_prcplist", false, "/root/init/omsrght/mouserght", "label", "func"); //¸Þ´ºÈ£Ãâ¹æ½Äº¯°æ JJE } else if ( prcpgenrflag == "E" ) { setPopupMenu("grd_prcplist", false, "/root/init/emsrght/mouserght", "label", "func"); //¸Þ´ºÈ£Ãâ¹æ½Äº¯°æ JJE } else { setPopupMenu("grd_prcplist", false, "/root/init/imsrght/mouserght", "label", "func"); //¸Þ´ºÈ£Ãâ¹æ½Äº¯°æ JJE } } else { window.setPopupMenu(false); } } } function fDrugInfo() { model.setValue ( "/root/hidden/receivedata/srchdrugcd", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpcd" )); //open("SMADB01900",0,0,0,"SMADB01900","¾àÄÚµå","/root/hidden/receivedata/srchdrugcd"); //2008. 07. 08 ¿ÀÁöÈÆ //¾àǰÆí¶÷ Á¶È¸ È­¸é open½Ã ¾àÄÚµå parameter±âº» ¼³Á¤ open("SMADB01900", 0, 0, 0, "SMADB01900", "/root/hidden/receivedata","/root/hidden/receivedata"); } function fPrnDrugInfo() { model.setValue ( "/root/hidden/receivedata/srchdrugcd", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpcd" )); //2011. 05. 23 ¾ö¿µ¸¸ //PRN Á¶È¸Ã¢ open½Ã ¾àÄÚµå parameter±âº» ¼³Á¤ setParameter("SPMMO33800_search_code", model.getValue("/root/hidden/receivedata/srchdrugcd")); open("SPMMO33800", 0, 0, 0, "SPMMO33800", "",""); } function fCdssDrugInfo(kindflag) { model.makeValue ( "/root/hidden/receivedata/pYakpumCd", model.getValue ( prcpNode + "[" + grd_prcplist.row + "]/prcpcd" )); model.makeValue ( "/root/hidden/receivedata/pageNav", kindflag); modal("SMZCN00301", 0, 0, 0, "SMZCN00301", "/root/hidden/receivedata","/root/resultParam"); } // DUR ¾àǰÆí¶÷-ºÎÀÛ¿ë function fCdssDrugInfo3() { fCdssDrugInfo("3"); } // DUR ¾àǰÆí¶÷-»óÈ£ÀÛ¿ë function fCdssDrugInfo4() { fCdssDrugInfo("4"); } // DUR ¾àǰÆí¶÷-ÁÖÀÇ»çÇ× function fCdssDrugInfo5() { fCdssDrugInfo("5"); } /** * @desc : ¼±ÅÃÁ¦¿Ü »èÁ¦ * @return : void * @authur : ¸¶Á¤¹Î 2007. 10. 16 */ function fDeleteElseRow() { var selectedRows = grd_prcplist.selectedRows; for (var i=0; i< selectedRows; i++) { model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/tempcol6", "select" ); } grd_prcplist.select(1, 1, grd_prcplist.rows-2, 1) = true; for ( var i=1; i < grd_prcplist.rows; i++ ) { if ( model.getValue ( prcpNode + "[" + i + "]/tempcol6" ) == "select" ) { grd_prcplist.select ( i, 1 ) = false; } model.setValue ( prcpNode + "[" + i + "]/tempcol6", "" ); } fDeleteRow(); } /** * @desc : ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ »èÁ¦ * @ : ½Å±ÔÀÏ ¶§´Â removeNode * @ : ¼öÁ¤ÁßÀÏ ¶§ ¿øº¹½ÃŲ ÈÄ »èÁ¦, D/C Ç¥½Ã * @ : »èÁ¦, D/C ¿øº¹½Ãų·Á¸é ? ¿À¸¥ÂÊ ¸¶¿ì½º¿¡ »èÁ¦ ¹× D/C ¿øº¹ * @ : D/C ÈÄ »èÁ¦´Â ºÒ°¡ * @id : grd_prcplist * @event : ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ »èÁ¦ * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 26 */ function fDeleteRow(flag) { var node = instance1.selectSingleNode("/root/main/prcp"); var selectedRows = grd_prcplist.selectedRows; if( model.getValue ( "/root/cp" ) == "Y" && model.getValue(node + "/prcplist[1]/status") == "S" ){ selectedRows = grd_errprcplist.selectedRows; } var cnt=0; if ( flag != "noselect" ){ if (grd_prcplist.row < 0 ){ return; } } //SON0919 ¿ø³»/¿ø¿Ü»çÀ¯ ó¸® °ü·Ã Ãß°¡ by sonjy start var hosinprcpresncd = ""; var prcpkindcd = ""; //SON0919 end if ( flag != "noselect" ){ for (i= selectedRows-1; i >= 0; i--){ var status = model.getValue ( prcpNode + "[" + i + "]/status" ); if ( status != "D" ) { //ó¹æ¿¡¼­ ½Ç¼ö·Î º¹»çÇÒ °æ¿ì Áö¿ìÁö ¸øÇÏ¸é ¹®Á¦°¡ µÊÀ¸·Î ÀÏ´Ü ÁÖ¼®À¸·Î ¸·¾Ò´Ù. //ÀÀ±ÞÀÇ·á°ü¸®·á »èÁ¦½Ã /*if ( model.getValue ( "/root/patflag/list/prcpgenrflag" ) =="E" ) { var prcpcd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpcd" ); if ( "AC103" == prcpcd || "ACD0005" == prcpcd ){ messageBox ( "ÀÀ±ÞÀÇ·á°ü¸®·á´Â »èÁ¦°¡ ºÒ°¡ÇÕ´Ï´Ù. ¿À¸¥Âʸ¶¿ì½º > ÀÀ±ÞÀÇ·á°ü¸®·á¸¦ ÀÌ¿ëÇÏ¿© ¼öÁ¤ÇÏ¿© ÁֽʽÿÀ", "E" ); continue; } }*/ var deleteflag = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/tempcol6" ); if ( deleteflag != "D" ) { //ÀÌ¹Ì »èÁ¦ Ç¥½ÃµÈ°ÍÀº Á¦¿ÜÇϰí //Á¾¼Óó¹æ üũ var inclprcpno = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/inclprcpno" ); if ( !isNull(inclprcpno) && inclprcpno != "-" ) { if ( eval(inclprcpno) > 0 ) { //Á¾¼Óó¹æÀ̸é for ( var j = 1; j < grd_prcplist.rows; j++ ) { if ( inclprcpno == model.getValue ( prcpNode + "[" + j + "]/inclprcpno" )) { // °°Àº Á¾¼Óó¹æÀº ¸ðµÎ »èÁ¦ÀÌ´Ù. model.setValue ( prcpNode + "[" + j + "]/tempcol6", "D" ); } } } } model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/tempcol6", "D" ); } } else { // °°Àº Á¾¼Óó¹æÀº ¸ðµÎ »ì¾Æ³­´Ù. var inclprcpno = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/inclprcpno" ); if ( !isNull(inclprcpno) && inclprcpno != "-" ) { if ( eval(inclprcpno) > 0 ) { //Á¾¼Óó¹æÀ̸é for ( var j = 1; j < grd_prcplist.rows; j++ ) { if ( inclprcpno == model.getValue ( prcpNode + "[" + j + "]/inclprcpno" )) { model.setValue ( prcpNode + "[" + j + "]/status", "-" ); } } } } } } } var grdrows = grd_prcplist.rows; for (var i = grdrows -1 ; i >= 1; i-- ) { if ( model.getValue ( prcpNode + "[" + i + "]/tempcol6" ) == "D" ) { model.setValue ( prcpNode + "[" + i + "]/tempcol6", "" ); //»èÁ¦ Ç¥½Ã clear model.setValue ( prcpNode + "[" + i + "]/prcpmixno", "-" ); //mix clear var status = model.getValue ( prcpNode + "[" + i + "]/status" ); if (status == "S" ) { model.setValue ( prcpNode + "[" + i + "]/prcpnm", "" ); } else if ( status =="I" || status == "" ) { //SON0919 ¿ø³»/¿ø¿Ü»çÀ¯ ó¸® °ü·Ã Ãß°¡ by sonjy start //SON1107 DSC Åð¿ø¾àµµ ¿Ü·¡¿¡ ÁØÇÏ¿© ó¸®. º¯°æ°³¹ß¿äû¼­ 20081013-93¿¡ ÀǰŠ=> °£È£ÁغñµÉ¶§±îÁö ¿øº¹ ... prcpkindcd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/prcpkindcd" ); if( model.getValue ("/root/patflag/list/prcpgenrflag") == "O" || (model.getValue ("/root/patflag/list/prcpgenrflag") == "E" && model.getValue ( "/root/init/erresn" ) != "G3" && prcpkindcd == "60" ) || (model.getValue ("/root/patflag/list/prcpgenrflag") == "D" && prcpkindcd == "60" ) ){ if( hosinprcpresncd == "" && ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/hosinprcpresncd " ) == "45" || model.getValue ( "/root/main/prcp/prcplist[" + i + "]/hosinprcpresncd " ) == "47") ) { hosinprcpresncd = model.getValue ( "/root/main/prcp/prcplist[" + i + "]/hosinprcpresncd " ) ; } } //SON0919 end fPrcpBuffer( ++cnt, i, "/root/prcpdel", prcpNode ); model.removeNode ( prcpNode + "[" + i + "]" ); } else if ( status =="-" || status =="U" ) { model.setValue ( prcpNode + "[" + i + "]/status", "D" ); } else if ( status =="D" ) { model.setValue ( prcpNode + "[" + i + "]/status", "-" ); } } } for (var i=grd_prcplist.rows -1 ; i >= 1; i-- ) { var chkPrcpmixno = model.getValue ( prcpNode + "[" + i + "]/prcpmixno" ); if ( chkPrcpmixno != "-" && !isNull(chkPrcpmixno)) { //¹Í½º¹øÈ£°¡ ÀÖ°í »èÁ¦°¡ ¾Æ´Ñ °ÍÁß¿¡ È¥ÀÚ ³²¾Æ ÀÖ´Â ¹Í½º¹øÈ£¶ó¸é Ç®¾îÁØ´Ù. var srcNodeList = model.instances(0).selectNodes ( prcpNode + "[prcpmixno='" + chkPrcpmixno + "']" ); if ( srcNodeList.length <= 1) { model.setValue ( prcpNode + "[" + i + "]/prcpmixno", "-" ); } } } // ó¹æ ½Å±ÔÄڵ忡¼­ ¼öÁ¤ ¸ðµå°¡ ¾Æ´Ò¶§¸¸ rebuild - 20090630 by Moonsh var modiflag = model.getValue("/root/init/rowmodify/modiflag"); if ( modiflag != "Y" ){ grd_prcplist.rebuild(); fPrcpColor(); } //SON0919 ¿ø³»¿ø¿Ü°ü·Ã Ãß°¡ by sonjy if( hosinprcpresncd != "" ){ fChngHosinPrcpResn () ; } //SON0919 end model.recalculate(); // e } /** * @desc : Áø´Ü¼öÁ¤. * @ : ½Å±ÔÀ϶§´Â ¼öÁ¤Ç¥½Ã ¾ÈÇÔ. * @ : »èÁ¦,D/C »óÅÂÀ϶§´Â Ãë¼ÒÈÄ ¼öÁ¤. * @id : grd_prcplist * @event : xforms-value-changed * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 27 */ function fCnclDel() { var selectedRows = grd_diaglist.selectedRows; for (var i=0; i< selectedRows; i++) { var status = model.getValue (diagNode + "[" + grd_diaglist.selectedrow(i) + "]/status"); if (status == "C" || status == "D"){ model.setValue (diagNode + "[" + grd_diaglist.selectedrow(i)+ "]/status", "-"); } } } /** * @desc : ÇÔ¼ö È£Ãâ½Ã ¼±ÅÃµÈ µ¥ÀÌÅ͸¦ ƯÁ¤ ³ëµå¿¡ ´ã¾ÆµÐ´Ù. * @param1 : bufCnt: ù¹øÂ° cntÀ϶§ ±âÁ¸ ³ëµå¸¦ »èÁ¦Çϱâ À§ÇÑ count * @param2 : bufRow: ³ëµå¿¡ ´ã¾Æ³õÀ» ±×¸®µå row * @param4 : strDest: ¸ñÀûÁö ÁÖ¼Ò°ª * @param3 : strSrc: Ãâ¹ßÁö ÁÖ¼Ò°ª * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 3 */ function fPrcpBuffer( bufCnt, bufRow, strDest, strSrc ) { if (bufCnt == 1) { //ù¹øÂ° µ¥ÀÌÅÍÀÌ¸é ±âÁ¸ ³ëµå¸¦ »èÁ¦ÇÑ´Ù. model.removeNodeset(strDest); //³ëµå¸¦ ¸ðµÎ »èÁ¦ Ç߱⠶§¹®¿¡ ´ë»ó ³ëµå¸¦ Çϳª ¸¸µç´Ù. model.makeNode(strDest); } // º¹»çÇÒ ¼Ò½º³ëµå¸¦ ¼±ÅÃÇÑ´Ù. var srcNodeList = model.instances(0).selectNodes( strSrc ); //º¹»çÇϱâ À§ÇØ ´ë»ó³ëµå¸¦ ¼±ÅÃÇÑ´Ù. var destNode = model.instances(0).selectSingleNode(strDest); //´ë»ó³ëµå·Î º¹»çÇÑ´Ù. destNode.appendChild(srcNodeList.item(bufRow-1).cloneNode(true)); } /** * @desc : ¸¶Áö¸· »èÁ¦½Ã ¹öÆÛ¿¡ ´ã°ÜµÐ °ÍÀ» µÇ»ì¸°´Ù. * @id : btn_undo * @event : DOMActivate * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 3 */ function fDelUndo () { //fGetRsrvPrcp(); // º¹»çÇÒ ¼Ò½º³ëµå¸¦ ¼±ÅÃÇÑ´Ù. var srcNodeList = model.instances(0).selectNodes("/root/prcpdel/prcplist"); //º¹»çÇϱâ À§ÇØ ´ë»ó³ëµå¸¦ ¼±ÅÃÇÑ´Ù. if ( srcNodeList.length == 0 ) { messageBox ( "µÇ»ì¸± »èÁ¦ µ¥ÀÌÅͰ¡", "I004" ); return; } var prcpdd = model.getValue ( "/root/init/prcpdd" ); //»èÁ¦½Ã ·çÇÁ°¡ µÚ¿¡¼­ ºÎÅ͵¹¸ç buffer instance¿¡ ÀúÀåÇϱ⠶§¹®¿¡ ºÒ·¯ ¿Ã¶§µµ µÚ¾î¼­ºÎÅÍ ºÒ·¯¿Í »èÁ¦½Ã ¼ø¼­¸¦ ¸ÂÃá´Ù. var insRow = grd_prcplist.rows - 1; for (i= srcNodeList.length; i >= 1; i--) { //´ë»ó³ëµå·Î º¹»çÇÑ´Ù. model.setValue ( "/root/prcpdel/prcplist[" + i + "]/prcppkspec", prcpdd + "|0|0|" + getUserInfo("dutplceinstcd")); prcphopedd = model.getValue ( "/root/prcpdel/prcplist[" + i + "]/prcphopedd" ); if ( isNull(prcphopedd) || prcphopedd == "-" ) { prcphopedd = prcpdd; } if ( prcphopedd < prcpdd ) { model.setValue ( "/root/prcpdel/prcplist[" + i + "]/prcphopedd", prcpdd ); } model.duplicate ( "/root/main/prcp", "/root/prcpdel/prcplist[" + i + "]", "*[" + insRow + "]" ); insRow++; } model.recalculate(); grd_prcplist.refresh(); fPrcpColor(); //µÇ»ì¸®±â Çѹø¸¸ ÇØ´Þ¶ó´Â ÀåÈ¿Àº ¼±»ý´Ô ¿äû model.removeNodeset ( "/root/prcpdel/prcplist" ); } /** * @desc : drag ½Ã À̵¿ÇÒ grid ÀνºÅϽº ÀúÀå * @id : grd_prcplist * @event : ondragstart * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 04 */ function fGridDrag() { var selectedRows = grd_prcplist.selectedRows; var cnt=0; for (var i=0; i< selectedRows; i++) { if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status") != "S" ){ //°Ë»öÀº µå·¡±× ¾ÈÇÑ´Ù. //dropÈÄ drop³»¿ëÀ» »öÄ¥Çϱâ À§ÇØ ¹öÆÛ·Î º¸³¾ ³ëµå¿¡ S¸¦ Ç¥½ÃÇÑ´Ù. model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcprefseq", "S"); fPrcpBuffer( ++cnt, grd_prcplist.selectedrow(i), "/root/prcpdrag", prcpNode ) //¹öÆÛ¿¡ ÀúÀåÀº µÆ´Ù. dropÈÄ º»Ã¼¸¦ »èÁ¦Çϱâ À§ÇØ º»Ã¼¿¡ Ç¥½ÃÇØ µÐ´Ù. model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcprefseq", "D"); } } grd_prcplist.rebuild(); } /** * @desc : dropÀ§Ä¡¿¡ ÀνºÅϽº mapping, º»Ã¼ remove, À̵¿ÇÑ row select * @id : grd_prcplist * @event : ondrop * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 04 */ function fGridDrop( dropRow ) { if( dropRow != -1 ) { //dropÇÒ ±×¸®µå row°¡ ÀÖÀ» ¶§¸¸ µ¿ÀÛÇÑ´Ù. //¸Ç³¡ÁÙ·Î À̵¿ÇßÀ» °æ¿ì´Â ±× À§ÁÙ·Î drop µÇ°Ô ÇØ³õ¾Ò´Ù. ¿Ö³ÄÇÏ¸é °Ë»öÀ» Á¦ÀÏ ¾Æ·¡ ÁÙ·Î ¸¸µé±â À§Çؼ­´Ù. //¾Æ·¡ ·ÎÁ÷À» Ç®¸é ¸Ç ¾Æ·¡·Îµµ À̵¿ °¡´ÉÇÏ´Ù. if ( dropRow == ( grd_prcplist.rows - 1)){ dropRow = dropRow -1; } var srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist"); var destNode = model.instances(0).selectSingleNode("/root/main/prcp"); var row; var selStart; var selEnd; var cnt=0; //=========== drop ½ÃÀÛ //Áß°£¿¡ ³¢¿ö ³Ö´Â °ÍÀ̶ó¸é duplicate if (dropRow != (grd_prcplist.rows-1) ){ for (var i=1; i<=srcNodeList.length; i++) { row = dropRow + i; model.duplicate("/root/main/prcp", "/root/prcpdrag/prcplist[" + i + "]", "*[" + row + "]"); } } else { //¸¶Áö¸· ÁÙ¿¡ ºÙÇô ³Ö´Â°ÍÀº appendChild for (i= 0; i=1; i--) { if (model.getValue ( prcpNode + "[" + i + "]/prcprefseq") == "D" ){ model.removeNode ( prcpNode + "[" + i + "]" ); } } //=========== drop ³¡ grd_prcplist.rebuild(); //rebuild¸¦ ¸¶Áö¸·¿¡ Çϸé select°¡ Ç®¸°´Ù. model.recalculate(); //=========== select ½ÃÀÛ for (var i = 1; i < grd_prcplist.rows; i++ ) { if (model.getValue ( prcpNode + "[" + i + "]/prcprefseq") == "S" ){ if (cnt==0){ //½ÃÀÛÁ¡À» Àâ´Â´Ù. selStart = i; } cnt++; model.setValue ( prcpNode + "[" + i + "]/prcprefseq",""); //Ãß°¡ drag and dropÀ» À§ÇØ ÃʱâÈ­ ÇÑ´Ù. } } selEnd = selStart + srcNodeList.length-1; grd_prcplist.select(selStart, prcpnmCol, selEnd, prcpnmCol) = true; //=========== select ³¡ } else { //¾û¶×ÇÑ °÷¿¡ drop ÇÒ ¶§ °¡Áö°í ÀÖ´ø °ªÀ» ÃʱâÈ­ ÇÑ´Ù. for (var i = 1; i < grd_prcplist.rows; i++ ) { model.setValue ( prcpNode + "[" + i + "]/prcprefseq","" ); } } } /** * @desc : ó¹æ µ¥ÀÌÅÍ ÀúÀå½Ã ÀúÀåÇÒ µ¥ÀÌÅͰ¡ ÀÖ´Â Áö check * @param : prcpflag: ÀúÀå À§Ä¡ ±¸ºÐ. 0Àº ¸ÞÀÎ * @return : 0:ÀÎÁõÀúÀå(Áø´Ü+»óº´), 1:ÀÎÁõÀúÀå(Áø´Ü), 2:ÀÎÁõÀúÀå(ó¹æ), 4:ÀÓ½ÃÀúÀå(ó¹æ), 5:ÀÓ½ÃÀúÀåDC(ó¹æ), 6:ÀÓ½ÃÀúÀå(Áø´Ü+ó¹æ), 7:ÀÓ½ÃÀúÀå(Áø´Ü) * @authur : ¸¶Á¤¹Î 2007. 4. 04 */ function fSaveExistCheck(savekindflag, patyn) { var srcNodeList = 0; var prcpCnt = 0; var tempPrcpCnt = 0; var tempDcPrcpCnt = 0; var tempDiagPrcpCnt = 0; var diagCnt = 0; var status = ""; if (isNull(savekindflag)) savekindflag = "0"; if ( savekindflag == "0" ) { srcNodeList = model.instances(0).selectNodes("/root/main/prcp/prcplist"); for ( i=1; i <= srcNodeList.length; i++ ) { if (patyn == "Y") { if ( model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "S" && model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "-" ){ prcpCnt++; } } else { if ( model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "S" ){ prcpCnt++; } } } dcNodeList = model.instances(0).selectNodes("/root/prcpdc/prcplist"); for ( i=1; i <= dcNodeList.length; i++ ) { prcpCnt++; } diagNodeList = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" ); for ( i=1; i <= diagNodeList.length; i++ ) { status = model.getValue( "/root/main/diaginfo/diagcdlist[" + i + "]/status" ); if (patyn == "Y") { if ( status != "S" && status != '-' && status != 'T' ){ diagCnt++; } } else { if ( status != "S" && status != '-' ){ diagCnt++; } } } } else if ( savekindflag == "1" ) { srcNodeList = model.instances(0).selectNodes("/root/main/prcp/prcplist"); for ( i=1; i <= srcNodeList.length; i++ ) { if ( model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "S" && model.getValue( "/root/main/prcp/prcplist[" + i + "]/status" ) != "-" ){ tempPrcpCnt++; } } dcNodeList = model.instances(0).selectNodes("/root/prcpdc/prcplist"); for ( i=1; i <= dcNodeList.length; i++ ) { tempDcPrcpCnt++; } if ( tempDcPrcpCnt > 0 ) { return 5; } diagNodeList = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" ); for ( i=1; i <= diagNodeList.length; i++ ) { status = model.getValue( "/root/main/diaginfo/diagcdlist[" + i + "]/status" ); if ( status != "S" && status != '-' ){ diagCnt++; } } if ( diagCnt > 0 && tempPrcpCnt > 0 && savekindflag == "1" ) { return 6; } if ( diagCnt > 0 && tempPrcpCnt == 0 && savekindflag == "1" ) { return 7; } } if ( prcpCnt > 0 && diagCnt > 0) { return 0; } else if ( diagCnt > 0 ) { return 1; } else if ( prcpCnt > 0 ) { return 2; } else if ( tempPrcpCnt > 0 ) { return 4; } return -1; } /** * @desc : ó¹æ µ¥ÀÌÅÍ ÀúÀå * @param : prcpflag: 󹿱¸ºÐ 0: ( ÀÇ»çó¹æ, CP, Ç×¾ÏÇÁ·ÎÅäÄÝ, ÀÓ½Ã), 2:°£È£, 4:Áö¿øºÎ¼­ savekindflag: 0:ÀÎÁõÀúÀå, 1:ÀÓ½ÃÀúÀå prcpchkflag: ÀúÀåÇϽðڽÀ´Ï±î µî ¸Þ½ÃÁö¸¦ ¶ç¿ï°ÍÀÎÁö check * @return : true, false * @authur : ¸¶Á¤¹Î 2007. 4. 04 */ function fPrcpSave( prcpflag, savekindflag, saveNode, prcpchkflag ) { var sRTC = "/root/temp/rtc"; // ó¹æÀúÀå ½Ç½Ã°£ üũ(RealTimeCheck)º¯¼ö ³ëµå °æ·Î var sNewLogic = ""; model.setValue ( "/root/send/cond1", model.getValue ( "/root/paminfo/list/instcd" )); model.setValue ( "/root/send/cond2", model.getValue ( "/root/paminfo/list/ioflag" )); model.setValue ( "/root/send/cond3", model.getValue ( "/root/paminfo/list/pid" )); model.setValue ( "/root/send/cond4", model.getValue ( "/root/paminfo/list/orddd" )); model.setValue ( "/root/send/cond5", model.getValue ( "/root/paminfo/list/cretno" )); model.setValue ( "/root/send/cond6", getUserInfo("userid") ); model.setValue ( "/root/send/cond7", getUserInfo("dutplcecd") ); submit ( "TRMMO00148", false ); // ó¹æÀúÀå ½Ç½Ã°£ üũ(RealTimeCheck)º¯¼ö ¼³Á¤ try { sNewLogic = model.getValue(sRTC + "/codeinfo[hardcdno='430']/trgtcd"); // ½Å±Ô·ÎÁ÷ Àû¿ë¿©ºÎ if(sNewLogic == "Y") { fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag ); } else if (sNewLogic == "S" && !isNull(model.getValue(sRTC + "/codeinfo[hardcdno='431' and trgtcd='"+getUserInfo("userid")+"']/trgtcd")) ) { fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag ); } else { fPrcpSave_old( prcpflag, savekindflag, saveNode, prcpchkflag ); } } catch(err) { messageBox ( "fPrcpSave() ½ÇÇà Áß ¿À·ù°¡ ¹ß»ý ÇÏ¿´½À´Ï´Ù. Àü»ê½Ç(6598)·Î ¿¬¶ô ºÎʵ右´Ï´Ù.", "E" ); } finally { model.removeNodeset(sRTC); } } function fPrcpSave_new( prcpflag, savekindflag, saveNode, prcpchkflag ) { //model.addlog("SPEED CHECK START OF fPrcpSave()"); //model.addlog(" SPEED CHECK START OF 󹿰¡´Éüũ(È­¸é)"); var sRTC = "/root/temp/rtc"; // ó¹æÀúÀå ½Ç½Ã°£ üũ(RealTimeCheck)º¯¼ö ³ëµå °æ·Î //ó¹æ ½Ã°£À» °è»êÇϱâ À§ÇØ º¯¼ö Ãß°¡ 2012.11.19 ¾ö¿µ¸¸ var startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ var endStepDate = null; // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ var step1Elapsed = null; // È­¸é ¿À·ù üũÀü ó¸® ¼Ò¿ä½Ã°£ var step2Elapsed = null; // ¼­¹ö ¿À·ù üũ ¼Ò¿ä½Ã°£ var step3Elapsed = null; // È­¸é ¼­¹ö ¿À·ù ó¸® ¼Ò¿ä½Ã°£ var step4Elapsed = null; // ¼­¹ö ½ÇÁ¦ ÀúÀå ¼Ò¿ä½Ã°£ var step5Elapsed = null; // È­¸é ÀúÀåÈÄ Ã³¸® ¼Ò¿ä ½Ã°£ var nPrcpCnt = 0; // ó¹æ °¹¼ö var nDiagCnt = 0; // Áø´Ü °¹¼ö var xpt = window.screenleft + 200; var ypt = window.screenTop + 100; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; var curCpObj = getOpenWindow("SPMMO00600"); //Ȱ¼ºÈ­µÈ CP Main È­¸é object loading var nodelistRecNode = ""; if(curCpObj != null) curCpObj.javascript.fClose(); if ( isNull(prcpflag)) prcpflag = "0"; if ( isNull(savekindflag)) savekindflag = "0"; if ( isNull(saveNode)) saveNode = "/root/main/prcp/prcplist"; //20091208 HJS DURÀû¿ë¿©ºÎ¸¦ ÀÓ½ÃÀûÀ¸·Î ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. reqHardCodeInfo("/root/hidden/durappinfo", "/root/hidden/durappinfo", "119"); model.makeValue( "/root/initsrch/durappyn/trgtcd", model.getValue("/root/hidden/durappinfo/hardcd/hardcd") ) //PRN Àû¿ë¿©ºÎ¸¦ ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. 2010-01-02 by LYJ reqHardCodeInfo("/root/hidden/prnprcpyninfo", "/root/hidden/prnprcpyninfo", "173"); model.makeValue( "/root/save/saveflaginfo/prnprcpyninfo", model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd") ); var tuningyn = getTuningYn(); //Æ©´× Àû¿ë¿©ºÎ¸¦ ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. 2013-03-12 by ¹ÚȲ¹é if (tuningyn == "Y") { model.makeValue( "/root/save/saveflaginfo/savekindflag", savekindflag ); } var aftdcyn = "N"; //û±¸ÈÄ d/có¹æ ¿©ºÎ by sonjy 20081027 //Àüó¹æ ÅÇÀÌ ¾Æ´Ñ ÅÇ¿¡ Æ÷Ä¿½Ì µÉ ¶§ ÀÎÁõÀúÀå ½Ã DCó¹æ ÀúÀåµÇÁö ¾ÊÀ½. "btn_ivbfprcp.selected &&" Á¶°Ç »èÁ¦ (JJE) if ( model.getValue ( "/root/cp") != "Y" ) { if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) { ivw_prcp3.window.javascript.fAppendDC(); } } else { if ( prtlprcpstatus_SMMMO00110 != "U" ) { //OCSȰ¼ºÈ­µÈ °æ¿ì¸¸ üũ && btn_ivbfprcp.selected && btn_init.visible == false && btn_reinit.visible == false //CP¿¡¼­ DC+Ãß°¡Ã³¹æ¹ßÇà ¾ÈµÅ¼­ ÇØ´ç Á¶°Ç »èÁ¦(2010.07.06 JJE) var dcNode = ivw_prcp3.instance1.selectSingleNode("/root/prcpsrch/prcplist[chkcol=D]"); // DCó¹æ if( dcNode != null && model.getValue ( "/root/init/setprcpyn") == "Y" ){ ivw_prcp3.window.javascript.fAppendDC(); } model.makeValue ( "/root/save/saveflaginfo/prtlflag", prtlFlag_SMMMO00110 ); //MMPHPTCPÀÇ prtlflag(ÇÁ·ÎÅäÄݱ¸ºÐ)ÀÌ '-'À̰ųª '01'À̸é CP (DCÀúÀåÀ» À§ÇÔ) } } var savedataflag = fSaveExistCheck( savekindflag ); var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); if ( savedataflag == -1 ) { if ( prcpgenrflag == "O" ) { savedataflag = 3; } else { messageBox ( "ÀúÀåÇÒ", "E013" ); return false; } } else if ( savedataflag == 5 ) { messageBox ( "ó¹æDC´Â ÀÓ½ÃÀúÀå", "E001" ); return false; } // ó¹æ ÀúÀå½Ã È­¸é¿¡¼­ óÀå °¡´É ÇÑÁö üũ ÇÑ´Ù. var sIprcAddYn = model.getValue("root/paminfo/list/iprcaddyn"); // Ãß°¡Ã³¹æ ¹ßÇà¿©ºÎ(½É»ç½Ç °¡Åð¿ø È¯ÀÚ)´Â ó¹æÀúÀå °¡´É üũ Á¦¿Ü 2012.04.16 if(sIprcAddYn != "Y" && !fCheckBeforePrcpSave( prcpflag, savekindflag, saveNode, prcpchkflag )) return false; var saveok = "N"; if ( prcpchkflag != "N" ) { // prcpchkflag°¡ N ÀÌ¸é ¸Þ½ÃÁö¸¦ ¾È¹°¾îº¸°í ³Ñ¾î°£´Ù. if ( prcpchkflag == "clickpatlist" ){ saveok = "Y"; } // Áø·á´ë»óÀÚ¸®½ºÆ®¿¡¼­ ¼±ÅõǾúÀ»¶§´Â ¸Þ¼¼Áö ¶ç¿ìÁö ¾Ê´Â´Ù. 20100317 LYJ if ( prcpchkflag != "drugdc" ) prcpchkflag = "Y"; //¹Ýȯ¿äûÀÌ ¾Æ´Ï¶ó¸é Y·Î ÇØÁØ´Ù. if (model.getValue ( "/root/initsrchprcp/prcpetccnts/admiprcpyn" ) == "Y" ) { //admission ó¹æÀÌ ¾ø´Âµ¥ if ( !isNull(model.getValue ( "/root/main/prcp/prcplist[prcpkindcd='10']/prcpcd"))) { //Á¤±Ôó¹æÀÌ Á¸ÀçÇϸé if ( "7" == messageBox ( "ÀÔ¿ø´çÀÏ Admission ó¹æÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. ±×·¡µµ Á¤±Ôó¹æÀ»", "Q002" )) return false; else saveok = "Y"; //Áú¹®À» Çѹø¸¸ ÇÏ·Á°í ¼öÁ¤ } } if ( saveok == "N" ) { if ( savedataflag == 6 ) { if( messageBox ( "", "Q002" ) == "6" ) { saveok = "Y"; } else { saveok = "N"; } } else { if( messageBox ( "", "Q002" ) == "6" ) saveok = "Y"; } } } else { saveok = "Y" } if( saveok != "Y" ) { return false; } if (savekindflag != 1) { // ó¹æ ÀúÀåÀü üũ ÇØ¾ß ÇÒ °Íµé if (!fPrcpSaveChkBf(prcpchkflag)) return false; } model.removeNodeSet ( "/root/send/cond2" ); model.makeNode ( "/root/send/cond2" ); //ÀúÀåµî·ÏÁ¤º¸(saveRgstInfo) if ("I" == prcpgenrflag || "E" == prcpgenrflag || "D" == prcpgenrflag) { model.setValue ( "/root/paminfo/list/dethdt", model.getValue(sRTC + "/patinfo/dethdt")); // ÀÎÁõÀúÀåµ¥ÀÌÅÍ »ý¼ºÀ§Ä¡ º¯°æ¿¡ µû¶ó »ç¸ÁÀÏÀÚ¸¦ ½Ç½Ã°£ Á¶È¸ ÇÏ¿© ¼³Á¤ 2013.06.05 ¾ö¿µ¸¸ } var saveRgstInfo = model.instances(0).selectNodes( "/root/paminfo/list" ); model.setValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); //ÀúÀåó¹æÁ¤º¸(savePrcpInfo) var savePrcpInfo = model.instances(0).selectNodes( saveNode ); // ¹Ì¿Ï¼º ó¹æ ÀúÀå ½Ã, '-' ±îÁö ÇÔ²² ÀúÀåÇÏ·Á Çϱ⶧¹®¿¡ I ¸¸ ÀúÀåÇϵµ·Ï ºÐ±â (2008.10.15 JJE) (s) if( model.getValue("/root/cp") != "Y" ){ model.copyNode ( "/root/send/cond3", "/root/main/prcp" ); }else{ fClearSaveInstance(); fAppendSaveNode( "/root/send/cond3", saveNode ); } fAppendSaveNode( "/root/send/cond3", "/root/prcper/prcplist" ); fAppendSaveNode( "/root/send/cond3", "/root/prcpdc/prcplist" ); nPrcpCnt = model.instances(0).selectNodes("/root/send/cond3/prcplist" ).length - 1; //û±¸ÈÄ d/có¹æ ¿©ºÎ setting by sonjy 20081027 => û±¸ÈÄ d/cÀÏ °æ¿ì »êÁ¤Æ¯·Ê ¹× ¹ýÁ¤Àü¿°º´µîÀÇ Ã³¹æÀúÀå ÈÄ ·ÎÁ÷À» Å»Çʿ䰡 ¾øÀ½. var aftdclist = model.instances(0).selectNodes( "/root/prcpdc/prcplist[tempcol21='C']" ); if( aftdclist != null ){ if( aftdclist.length > 0 ) aftdcyn = "Y"; } if ( prcpchkflag == "drugdc" ) { //¾à/ÁÖ»ç D/C ¿äû Áß¿¡ ¹Ý³³¿äûµÈ °ÍÀº D/C ó¸®ÇÑ´Ù.( ÀúÀå·ÎÁ÷¿¡¼­ »ç¿ë ) model.setValue ( "/root/send/cond14", getNodeListCSV (model.instances(0).selectNodes( "/root/prcpdc/prcplist" ))); } //setValue ÈÄ¿¡ prcpdc ¿¡ ¿Å°Ü ³õÀº prcplist¸¦ Ŭ¸®¾î ÇÑ´Ù. model.removeNodeset ( "/root/prcpdc/prcplist" ); //ÀúÀåÁø´ÜÁ¤º¸(saveDiagInfo) var saveDiagInfo = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" ); nDiagCnt = saveDiagInfo.length - 1; model.setValue ( "/root/send/cond4", getNodeListCSV(saveDiagInfo)); if ( savekindflag != 1 && signyn == "Y" ) { var sSignBfPrcpConts = getSignBfConts("1", "/root/paminfo/list", "/root/send/cond3/prcplist"); // ¾ÏȣȭÀü ÀÎÁõÀúÀå ó¹æ µ¥ÀÌÅÍ var sSignBfDiagConts = getSignBfConts("2", "/root/paminfo/list", "/root/main/diaginfo/diagcdlist"); // ¾ÏȣȭÀü ÀÎÁõÀúÀå Áø´Ü µ¥ÀÌÅÍ var sSignAfPrcpConts = ""; // ¾ÏȣȭÈÄ ÀÎÁõÀúÀå ó¹æ µ¥ÀÌÅÍ var sSignAfDiagConts = ""; // ¾ÏȣȭÈÄ ÀÎÁõÀúÀå Áø´Ü µ¥ÀÌÅÍ var signid = getUserInfo ("userid"); var signopt = false; // ÀÀ±Þ½ÇȯÀÚÁß ÇϵåÄڵ忡 µî·ÏµÇ¾î ÀÖ´Â °ú Àǻ簡 ·Î±×ÀÎ ÈÄ Ã³¹æÀ» ³¾ °æ¿ì¿¡´Â ÀÎÁõÀúÀåÀ» Çѹø¸¸ ÇÏ°Ô ÇÔ.(¿Ü·¡¿Í µ¿ÀÏÇÏ°Ô Ã³¸®) var sPD = model.getValue("/root/hidden/securelimitdeptlist/hardcd[hardcd = '" + getUserInfo("dutplcecd") + "']/hardcd");; if ( prcpgenrflag != "O" && !(prcpgenrflag == "E" && sPD != "") ) { signopt = true; } // ÀÔ¿ø ¶Ç´Â ÀÀ±ÞÀÏ °æ¿ì // 20111201 knuh ÃÖ¿øµ· // ±â·Ï/ó¹æ Á÷Àü ÀÎÁõÀúÀåÀÌ Á¤ÇØÁø ½Ã°£(ºÐ ´ÜÀ§, ÇϵåÄÚµå 401) À̳»À̸é ÀÎÁõ¼­¸¦ ¶ç¿ìÁö ¾ÊÀ½(1/2) // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js // ¶ç¿ìÁö ¾Ê´Â ·ÎÁ÷ var ls_emrinptsavetime = fGetHardCDList("Y", 401, 3); var ll_emrinptsavetime = ls_emrinptsavetime == "" ? 0 : parseInt(ls_emrinptsavetime) * -1; if ( ( prcpgenrflag == "I" || prcpgenrflag == "E") && ll_emrinptsavetime < 0 && getGlobalVariable("emrinptsavetime") >= getCurrentDateTime().toDate("YYYYMMDD hhmmss").getAddDate(ll_emrinptsavetime, "m").getDateFormat("YYYYMMDD hhmmss")) { signopt = false; } if(!isNull(sSignBfPrcpConts)) { sSignAfPrcpConts = fSaveSign ( sSignBfPrcpConts, signid, signopt); //ó¹æÀÎÁõ if ( sSignAfPrcpConts != "N" ) { if (isNull( sSignAfPrcpConts )) { return false; } signopt = false; //Áø´Ü¿¡¼­ ¶Ç ¾È¶ç¿ì±â À§Çؼ­ false·Î ¼öÁ¤ } } if(!isNull(sSignBfDiagConts)) { sSignAfDiagConts = fSaveSign ( sSignBfDiagConts, signid, signopt); //Áø´ÜÀÎÁõ if ( sSignAfDiagConts != "N") { if (isNull(sSignAfDiagConts)) { return false; } } } } // ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo) model.setValue ( "/root/save/saveflaginfo/savedataflag", savedataflag ); // ÀúÀåÀڷᱸºÐ 0:Áø´Ü ¹× ó¹æ, 1:Áø´Ü, 2:ó¹æ, 4:ó¹æÀÓ½ÃÀúÀå, 6:Áø´Ü ¹× ó¹æ ÀÓ½ÃÀúÀå, 7:Áø´ÜÀÓ½ÃÀúÀå model.setValue ( "/root/save/saveflaginfo/saveflag", prcpgenrflag); // ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø model.setValue ( "/root/save/saveflaginfo/prcpflag", prcpflag ); // 󹿱¸ºÐ 0:ÀÇ»çó¹æ, 2:°£È£, 3:Áö¿øºÎ¼­, 5:Admission, 6:CP, 7:Ç×¾ÏÇÁ·ÎÅäÄÝ, 8:ÀÓ½Ãó¹æ model.setValue ( "/root/save/saveflaginfo/inptflag", "0" ); // ÀԷ±¸ºÐ 0:ÀÇ»ç, 1:°£È£»ç(°£È£¿¡¼­ »ç¿ë), 3:Áö¿øºÎ¼­ model.setValue ( "/root/save/saveflaginfo/deptcd", getUserInfo("dutplcecd")); // ºÎ¼­ÄÚµå model.setValue ( "/root/save/saveflaginfo/deptnm", getUserInfo("dutplcenm")); // ºÎ¼­¸í model.setValue ( "/root/save/saveflaginfo/userid", getUserInfo("userid")); // »ç¿ëÀÚID model.setValue ( "/root/save/saveflaginfo/usernm", getUserInfo("usernm")); // »ç¿ëÀÚ¸í model.setValue ( "/root/save/saveflaginfo/prcpdd", model.getValue("/root/init/prcpdd")); model.setValue ( "/root/save/saveflaginfo/divyn", prcpchkflag ); // ¿ë·®ºÐÇÒ ÇÒ°ÇÁö model.makeValue ( "/root/save/saveflaginfo/durappyn", model.getValue( "/root/initsrch/durappyn/trgtcd" ) ); // 2010.11.24 À̼±°æ ¼öÁ¤ : °æºÏ´ë¿ë DUR flag°ªÀ» ´øÁ®Áà¾ß ÇÔ model.makeValue ( "/root/save/saveflaginfo/nonprgflag", fCompareNonPrgDiag()); model.makeValue ( "/root/save/saveflaginfo/signbfprcpconts", sSignBfPrcpConts); // ÀÎÁõÀúÀå ¾Ïȣȭ Àü ó¹æ µ¥ÀÌÅÍ model.makeValue ( "/root/save/saveflaginfo/signbfdiagconts", sSignBfDiagConts); // ÀÎÁõÀúÀå ¾Ïȣȭ Àü Áø´Ü µ¥ÀÌÅÍ model.makeValue ( "/root/save/saveflaginfo/signafprcpconts", sSignAfPrcpConts); // ÀÎÁõÀúÀå ¾Ïȣȭ Àü ó¹æ µ¥ÀÌÅÍ model.makeValue ( "/root/save/saveflaginfo/signafdiagconts", sSignAfDiagConts); // ÀÎÁõÀúÀå ¾Ïȣȭ Àü Áø´Ü µ¥ÀÌÅÍ if ( savekindflag == 1 ) { model.setValue( "/root/save/saveflaginfo/signyn", "N" ); // ÀÓ½ÃÀúÀå } else { model.setValue( "/root/save/saveflaginfo/signyn", signyn); // ÀÎÁõÀúÀå } if ( model.getValue ( "/root/addprcp" ) == "Y" ) { model.setValue ( "/root/save/saveflaginfo/pseuacptflag", model.getValue ( "/root/formerkey/pseuacptflag" )); model.setValue ( "/root/save/saveflaginfo/admininfo", model.getValue ( "/root/admininfo" )); } else { model.setValue ( "/root/save/saveflaginfo/pseuacptflag", "N"); model.setValue ( "/root/save/saveflaginfo/admininfo", "NNNNNNNNNNNNNNNNNNNN"); } var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" ); model.setValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step1Elapsed = endStepDate.getTime() - startStepDate.getTime(); // È­¸é ¿À·ù üũÀü ó¸® ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK END OF 󹿰¡´Éüũ(È­¸é)"); //model.addlog(" SPEED CHECK START OF ÀúÀå µ¥ÀÌÅÍ »ý¼º(¿À·ù/»çÀ¯)"); if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { //°ÇÁøÀÏ °æ¿ì ¿Ü·¡¿Í µ¿ÀÏ Ã³¸® BY SONJY 2008-09-03 if ( !submit ( "TXMMO00121", false )) { if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) { //Á¶°ÇÃß°¡(2008.09.01 JJE) model.resetInstanceNode ( "/root/send" ); } fClearSaveInstance(); model.refresh(); return false; } } else { if ( !submit ( "TXMMO00122", false )){ if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) { //Á¶°ÇÃß°¡(2008.09.01 JJE) model.resetInstanceNode ( "/root/send" ); } fClearSaveInstance(); model.refresh(); return false; } } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step2Elapsed = endStepDate.getTime() - startStepDate.getTime(); // ¼­¹ö ¿À·ù üũ ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK END OF ÀúÀå µ¥ÀÌÅÍ »ý¼º(¿À·ù/»çÀ¯)"); //model.addlog(" SPEED CHECK START OF ÀúÀå µ¥ÀÌÅÍ º¸Á¤(¿À·ù/»çÀ¯)"); //model.addlog(" SPEED CHECK START OF ¿À·ù/»çÀ¯ ó¸®"); //Åð¿ø¿¹°í µÇÁö ¾ÊÀº »çÇ׿¡¼­ Åð¿øÃ³¹æÀ» ÇßÀ»°æ¿ì Åð¿ø¿¹°í âÀ» ¶ç¿ò if(model.getValue("/root/result/saveetcchklist/dschyn") == "Y"){ messageBox ("Åð¿ø¿¹°í¸¦ ÇØ¾ß¸¸ Åð¿ø ¹× Åð¿øÈĿܷ¡,ÀÔ¿øÀü°Ë»ç(ÀüÀÏ/´çÀÏ) ó¹æÀ» ÀúÀåÇÒ ¼ö ÀÖ½À´Ï´Ù." , "E" ); preDsch(); return false; } //DUR-S, 2009-10-01 Â÷Çöö // ÀúÇÔ·® ¿ë·®ºÐÇÒÀÇ °æ¿ì ±âÁ¸ °ÍÀ» »ç¿ëÇÔÀ¸·Î DURÀ» µÚ¿¡ ¼öÇà // °æºÏ´ë¿ë DUR Àû¿ë½Ã¿¡´Â ÀúÇÔ·® ¿ë·®ºÐÇÒ Ã¼Å© ÈÄ DUR ·ÎÁ÷üũ ÇÔ // durappyn : "A-Àüü DUR", "Y-ÀúÇÔ·®Á¦¿Ü DUR", "³ª¸ÓÁö-DUR »ç¿ë¾ÈÇÔ" , "K:°æºÏ´ë¿ë DUR" if (model.getValue("/root/initsrch/durappyn/trgtcd") != "A" ) { if ( model.getValue ( "/root/result/divinfo/divchkflag" ) == "N" ) { var divPrcpInfo = model.instances(0).selectNodes( "/root/result/prcplist" ); if ( divPrcpInfo.length > 0 ) { // ¿ë·®ºÐÇÒ, ÀúÇÔ·® if ( !isNull(model.getValue ( "/root/result/prcplist/prcpcd"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; //by sonjy 20090714 º¯°æ¿äû¼­ ó¸® : ÀúÇÔ·® ¿ë·®ºÐÇÒ⠴ݱâ¹öư »èÁ¦Ã³¸® modal ( "SPADB62400", mon, xpt, ypt, "SPADB62400", "/root/result", "/root/main/prcp", "sysmenu:hidden;", false ); model.refresh(); model.recalculate(); fClearSaveInstance(); } model.refresh(); fPrcpSave_new( prcpflag, savekindflag, "", "N" ); // by sonjy 20100303 ¼öÁ¤ ÀÓ½Ãó¹æÀúÀå½Ã ÀÎÁõÀúÀåÀ¸·Î °¡´Â ¿À·ù ¼öÁ¤. return false; } } else if (model.getValue ( "/root/result/divinfo/divchkflag" ) == "A") { //20090420 ¸¶Á¤¹Î ¼öÁ¤ Ç׾Ͽ뷮ºÐÇÒÀº ±âÁ¸¿¡´Â ¼­¹ö¿¡¼­ ºÒÇÒµÇ¾î ¹Ù·Î ÀúÀåüũ·ÎÁ÷À¸·Î °¬Áö¸¸ º¸ÇèÁ¦ÇѱÔÁ¤¿¡ °É·Á¼­ //´Ù½ÃÀúÀåÇÒ¶§ ºÐÇÒµÈ ³»¿ëÀÌ È­¸éÀÌ Ç¥½Ã°¡ µÇÁö ¾Ê¾Æ ¿ë·®ºÐÇÒÀÌ µÇÁö ¾ÊÀ½. //Ç׾Ͽ뷮ºÐÇÒµµ È­¸é¿¡ Ç¥½ÃÇÏ°Ô ¼öÁ¤ model.removeNodeSet ( "/root/main/prcp/prcplist" ); var srcNodeList = model.instances(0).selectNodes("/root/result/prcplist"); var destNode = model.instances(0).selectSingleNode("/root/main/prcp"); //¿ë·®ºÐÇҽà ¼­¹öüũ·ÎÁ÷¿¡¼­ default="0" À¸·Î ¼¼ÆÃÇÏ¿© ³Ñ°Ü¼­ È­¸é¿¡ 0 À¸·Î Á¶È¸µÇ¿© ´Ù½Ã ''·Î ÃʱâÈ­, ¼­¹ö·ÎÁ÷ ¼öÁ¤Àº ÃßÈİËÅä, 2009-07-05. CHC for (i = 1; i <= getNodesetCount("/root/result/prcplist"); i++) { if(model.getValue("/root/result/prcplist["+i+"]/status") == "S") { model.setValue("/root/result/prcplist["+i+"]/prcpvol", ""); model.setValue("/root/result/prcplist["+i+"]/prcpqty", ""); model.setValue("/root/result/prcplist["+i+"]/prcptims", ""); model.setValue("/root/result/prcplist["+i+ "]/prcpdayno", ""); break; } } for ( i=0; i < srcNodeList.length; i++ ){ destNode.appendChild(srcNodeList.item(i).cloneNode(true)); } model.refresh(); fPrcpSave_new( prcpflag, savekindflag, "", "N" ); // by sonjy 20100303 ¼öÁ¤ ÀÓ½Ãó¹æÀúÀå½Ã ÀÎÁõÀúÀåÀ¸·Î °¡´Â ¿À·ù ¼öÁ¤. return false; } } var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist" ); if ( prcpErrList.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/prcperrlist/prcpcd"))){ //20080928 ¸¶Á¤¹Î ¼öÁ¤ º´¿ë±Ý±â, ¿¬·É±Ý±â¸¸ ÀÖÀ» °æ¿ì¿¡´Â »çÀ¯ÀÔ·ÂÇϸé ó¹æ ³¾¼ö ÀÖµµ·Ï ó¸® var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist"); var flag = ""; var errPrcpCd = ""; var errRowNum = ""; var errorCnt = 0; var bfJudgErrorCnt = 0; // »çÀü½É»ç °ü·Ã ³»¿ëÀº µû·Î ó¸®Çϱâ À§Çؼ­ ·ÎÁ÷ Ãß°¡ var kdurCnt = 0;// 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë¿ë·®, ÃÖ´ë±â°£, ÃÖ´ë¿ë·® ÀúÇÔ·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É var kimbuCnt = 0;// 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀӺαݱâüũ ÈÄ °æ°í ¸Þ½ÃÁöÈÄ Ã³¹æÀúÀå °¡´É for ( var i=1; i <= srcNodeList.length; i++ ) { flag = model.getValue ( "/root/result/prcperrlist[" + i + "]/flag" ); if ( flag == "1" ) { errorCnt++; } else if (flag == "9") { // »çÀü½É»ç¿¡ °ü·ÃÇÑ ¿¡·¯³»¿ëÀº µû·Î ó¸®ÇÑ´Ù. 2010. 10. 08 ±è¿µÇÐ if ( prcpgenrflag == "O" ) { //¿Ü·¡ »çÀü½É»çÀÎ °æ¿ì »çÀü½É»ç ÆË¾÷À» ¶ç¿ì°í bfJudgErrorCnt++; }else{ //ÀÔ¿ø »çÀü½É»çÀÎ °æ¿ì ¹Ù·Î ºñ±Þ¿©·Î º¯°æ (2010.12.30 JJE, °æºÏ´ë ÀÌÀºÁ¤¼±»ý´Ô ¿äû) errPrcpCd = model.getValue ( "/root/result/prcperrlist[" + i + "]/prcpcd" ); errRowNum = model.getValue ( "/root/result/prcperrlist[" + i + "]/errrow" ); var ChngInsuKindList = model.instances(0).selectNodes( "/root/result/savedrprcplist[prcpcd='"+errPrcpCd+"']" ); if( ChngInsuKindList.length > 0 ){ for(var bfRow=0; bfRow < ChngInsuKindList.length; bfRow++ ) { var bfNode = ChngInsuKindList.item(bfRow); var bfPayFlagCdNode = bfNode.selectSingleNode("payflagcd"); var chngPayFlagCd = ""; if( errRowNum == "2" ) chngPayFlagCd = errRowNum; //ÀÏ¹Ý else chngPayFlagCd = "1"; //ºñ±Þ¿© model.setValue(bfPayFlagCdNode, chngPayFlagCd); //var bfDrPrcpEtc9Node = bfNode.selectSingleNode("drprcpetc9"); //model.setValue(bfDrPrcpEtc9Node, "Y"); } } } } else if (flag == "4") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀӺαݱâüũ ÈÄ °æ°í ¸Þ½ÃÁö¶ç¿ì´Â °æ¿ì kimbuCnt++; } else if (flag == "5") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë¿ë·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É kdurCnt++; } else if (flag == "6") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë±â°£ »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É kdurCnt++; } else if (flag == "7") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀúÇÔ·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É kdurCnt++; } } xpt = window.screenleft + 180; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; if ( errorCnt > 0 ) { open ( "SPMMO00600", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //¿À·ùÆË¾÷ } else { // »çÀü½É»ç ¿ä±¸Ã¢ ÆË¾÷ if ( bfJudgErrorCnt > 0) { clearParameter("SPMMO21500_rntValue"); //parameter ÃʱâÈ­(2011.01.31 JJE) modal ( "SPMMO21500", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //¿À·ùÆË¾÷ } } if ( errorCnt > 0 ) { var errrow = 1; //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 var DcErrArray = new Array(); var dcprcppkspec = ""; var iDcRow = 0 ; //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 for ( var i=1; i<=prcpErrList.length; i++ ) { if (model.getValue ("/root/result/prcperrlist[" + i + "]/flag") == "1") { errrow = model.getValue ("/root/result/prcperrlist[" + i + "]/errrow"); //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 dcprcppkspec = model.getValue ("/root/result/prcperrlist[" + i + "]/dcprcppkspec"); //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 if ( !isNull(errrow) && errrow > 0 && errrow < grd_prcplist.rows -1 ) { model.setValue ("/root/main/prcp/prcplist[" + errrow + "]/tempcol9", "#ff6600"); //ÀÀ±Þó¹æ ÇÒ ¼ö ¾ø´Â ó¹æÄÚµå ¼öÁ¤ if(model.getValue("/root/main/prcp/prcplist[" + errrow + "]/erprcpflag") == "Y"){ model.setValue("/root/main/prcp/prcplist[" + errrow + "]/erprcpflag", 'N'); model.setValue("/root/main/prcp/prcplist[" + errrow + "]/prcpnm", model.getValue("/root/main/prcp/prcplist[" + errrow + "]/orgprcpnm") ); model.setValue("/root/main/prcp/prcplist[" + errrow + "]/prcprefseq","0" ); } } else if ( !isNull(dcprcppkspec) ){ //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 DcErrArray[iDcRow] = dcprcppkspec ; iDcRow ++; } //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 } } fPrcpColor(); //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 if( iDcRow > 0 ){ if( btn_ivbfprcp.selected == true && model.getValue("/root/bfinityn") == "Y" ){ if ( model.getValue ( "/root/cp") != "Y" ) { ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray); }else{ ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray); } } } //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 fClearSaveInstance(); model.removeNodeset("/root/result/prcperrlist"); return false; } if ( bfJudgErrorCnt > 0 ) { // »çÀü½É»ç °ü·Ã ¸Þ½ÃÁö âÀÌ ¶¹À» °æ¿ì À̺¥Æ®Ã³¸® var bfRtnValue = getParameter("SPMMO21500_rntValue"); if (bfRtnValue == "REQ") { model.removeNodeset("/root/result/prcperrlist"); if ( isNull ( model.getValue ( "/root/main/prcp/prcplist[status='I' or status='D' or status='U']/prcpcd" ))) { if (isNull(model.getValue ( "/root/main/diaginfo/diagcdlist[status='I' or status='D' or status='U']/diagcd" ))) { messageBox ( "»çÀü½É»çÇÒ Ã³¹æ ¹× Áø´ÜÀÌ ¾ø½À´Ï´Ù.", "E" ); fClearSaveInstance(); model.removeNodeset("/root/result/prcperrlist"); return false; } } if ( !fPrcpSave_new("0", "1")) { model.removeNodeset ( "/root/prcpdc/prcplist" ); } fClearSaveInstance(); return false; } else if (bfRtnValue == "chgPayFlag") { model.removeNodeset("/root/result/prcperrlist"); var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length; var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length; if ( savePrcpListLen > 0 || saveDiagListLen >0 ) { //fPrcpSave_new( "", "", "", "N" ); fPrcpSave_new( prcpflag, savekindflag, "", "N" ); } return false; } else { fClearSaveInstance(); model.removeNodeset("/root/result/prcperrlist"); return false; } } } } //kimsj ¼öÇ÷µ¿ÀǼ­ ¸Þ¼¼Áö if ( model.getValue ("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn") == "Y" ) { var ocryndaymsg = model.getValue ( "/root/hidden/ocrbldyn/ocrbldyn/ocrynday" ); messageBox("ù ¼öÇ÷À̰ųª ¸¶Áö¸· ¼öÇ÷½ÃÇàÀϷκÎÅÍ " + ocryndaymsg + "ÀÏ ÀÌ»óÀÌ °æ°úÇÏ¿´À¸´Ï \n ¼öÇ÷µ¿ÀǼ­¸¦ ÀÛ¼ºÇØÁֽñ⠹ٶø´Ï´Ù.", "E"); model.removenode("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn"); } if (savekindflag != 1) { //ÀÓ½ÃÀúÀåÀÌ ¾Æ´Ò¶§ var antibioreq = model.instances(0).selectNodes( "/root/result/antibioreq" ); // Á¦ÇÑÇ×»ýÁ¦ ½ÅûÁ¤º¸ if ( antibioreq.length > 0 ) { for ( var i=1; i <= antibioreq.length; i++ ) { var sMsg = model.getValue ( "/root/result/antibioreq[" + i + "]/antibioreq_msg"); if ( sMsg != "" && messageBox ( sMsg, "Q" ) != "6") { fClearSaveInstance(); model.removeNodeset("/root/result/antibioreq"); return false; } } } var qestflagcnt = 0; var limprcplist = model.instances(0).selectNodes( "/root/result/limprcplist" ); // º¸ÇèÁ¦ÇÑó¹æ if ( limprcplist.length > 0 ) { for ( var i=1; i <= limprcplist.length; i++ ) { if ( model.getValue ( "/root/result/limprcplist[" + i + "]/qestflag") != "M" ) { qestflagcnt++; } } if ( qestflagcnt == 0 && getRegistryPrcp ( "limprcp|"+getCurrentDate()) == "Y" ) { } else { if ( !isNull(model.getValue ( "/root/result/limprcplist/calcscorcd"))) { xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; var rowid = 0 for ( var k=1; k <= limprcplist.length; k++ ){ rowid = eval(model.getValue ( "/root/result/limprcplist[" + k + "]/rowid" )); var displayprcpnm = rowid + ". " + model.getValue ( "/root/result/limprcplist[" + k + "]/calcscorcd" ) + "\n" + "[" + model.getValue ( "/root/result/limprcplist[" + k + "]/prcpnm") + "]"; model.setValue ( "/root/result/limprcplist[" + k + "]/displayprcpnm", displayprcpnm ); } modal ( "SPMMO00900", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); model.removeNodeset("/root/result/limprcplist"); if ( getParameter ( "SPMMO00900_rtnyn" ) == "Y" ) { clearParameter ( "SPMMO00900_rtnyn" ); var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length; var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length; if ( savePrcpListLen > 0 || saveDiagListLen >0 ) { //fPrcpSave_new( "", "", "", "N" ); fPrcpSave_new( prcpflag, savekindflag, "", "N" ); } return false; } else if ( getParameter ( "SPMMO00900_rtnyn" ) == "C" ) { //msg¸¸ ÀÖ´Â °ÍÀ̶ó¸é ±×³É ÁøÇàÇÔ } else { return false; } } } } // º¸ÇèÁ¦ÇÑ󹿳¡ var duplprcplist = model.instances(0).selectNodes( "/root/result/duplprcplist" ); //ó¹æÁߺ¹Ã¼Å© if ( duplprcplist.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/duplprcplist/prcpnm"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO14100_rtn1" ) modal ( "SPMMO14100", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO14100_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/duplprcplist"); return false; } } } var warnprcplist = model.instances(0).selectNodes( "/root/result/warnprcplist" ); //ÁÖÀÇ¿ä¸Á ó¹æÃ¼Å© if ( warnprcplist.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/warnprcplist/prcpnm"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO14101_rtn1" ) modal ( "SPMMO14101", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO14101_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/warnprcplist"); return false; } } } //DUR - E //ÇâÁ¤½Å¼º ÀǾàǰ 30ÀÏ ÀÌ»ó ó¹æÀÏ °æ¿ì ó¹æ »çÀ¯¸¦ ÀԷ¹޵µ·Ï ¼öÁ¤ var spclhdrugprcplist = model.instances(0).selectNodes( "/root/result/spclhdrugprcplist" ); //ó¹æÁߺ¹Ã¼Å©(¼ººÐ) if ( spclhdrugprcplist.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/spclhdrugprcplist/prcpnm"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO21800_rtn1" ); modal ( "SPMMO21800", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO21800_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/spclhdrugprcplist"); return false; } } } //ó¹æ »çÀ¯ ÀÔ·Ââ ÆË¾÷ ¿©ºÎ (2011.12.28 ¾ö¿µ¸¸) var checkprcpresn = model.instances(0).selectNodes( "/root/result/checkprcpresn" ); if ( checkprcpresn.length > 0 ) { // 󹿻çÀ¯ ÀÔ·ÂÇ׸ñÀÌ ÀÖÀ»°æ¿ì ÆË¾÷ if ( !isNull(model.getValue ( "/root/result/checkprcpresn/prcpcd"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO50100_rtn1" ); modal ( "SPMMO50100", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO50100_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/checkprcpresn"); return false; } } } //±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹× º£Å¸Â÷´Üü ó¹æ ¿©ºÎ (2011.09.16 ¾ö¿µ¸¸) var amidschprcpinfo = model.instances(0).selectNodes( "/root/result/amidschprcpinfo" ); //¾Æ½ºÇǸ° ¹× º£Å¸Â÷´Üü ó¹æ ¿©ºÎ if ( amidschprcpinfo.length > 0 ) { //±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹Ì󹿻çÀ¯ if (model.getValue ( "/root/result/amidschprcpinfo/asprinyn") == "N"){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO21900_rtn1" ); clearParameter ( "SPMMO21900_hardcdno" ); clearParameter ( "SPMMO21900_title" ); clearParameter ( "SPMMO21900_resncode" ); clearParameter ( "SPMMO21900_resncmt" ); setParameter("SPMMO21900_hardcdno", "311"); // ÇϵåÄÚµå 311 ±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹Ì󹿻çÀ¯ setParameter("SPMMO21900_title", "±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹Ì󹿻çÀ¯"); modal ( "SPMMO21900", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/amidschprcpinfo"); return false; } var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid" , model.getValue( "/root/initsrchcond/pid")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd" , model.getValue( "/root/initsrchcond/orddd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno" , model.getValue( "/root/initsrchcond/cretno")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype" , model.getValue( "/root/initsrchcond/ioflag")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno" , "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag" , "005"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd" , getParameter("SPMMO21900_resncode")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts" , getParameter("SPMMO21900_resncmt")); } //±Þ¼º½É±Ù°æ»ö Åð¿ø¾à º£Å¸Â÷´ÜÁ¦ ¹Ì󹿻çÀ¯ if (model.getValue ( "/root/result/amidschprcpinfo/antibetayn") == "N"){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO21900_rtn1" ); clearParameter ( "SPMMO21900_hardcdno" ); clearParameter ( "SPMMO21900_title" ); clearParameter ( "SPMMO21900_resncode" ); clearParameter ( "SPMMO21900_resncmt" ); setParameter("SPMMO21900_hardcdno", "312"); // ÇϵåÄÚµå 312 ±Þ¼º½É±Ù°æ»ö Åð¿ø¾à º£Å¸Â÷´ÜÁ¦ ¹Ì󹿻çÀ¯ setParameter("SPMMO21900_title", "±Þ¼º½É±Ù°æ»ö Åð¿ø¾à º£Å¸Â÷´ÜÁ¦ ¹Ì󹿻çÀ¯"); modal ( "SPMMO21900", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/amidschprcpinfo"); return false; } var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid" , model.getValue( "/root/initsrchcond/pid")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd" , model.getValue( "/root/initsrchcond/orddd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno" , model.getValue( "/root/initsrchcond/cretno")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype" , model.getValue( "/root/initsrchcond/ioflag")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno" , "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag" , "006"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd" , getParameter("SPMMO21900_resncode")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts" , getParameter("SPMMO21900_resncmt")); } } if ( !isNull(model.getValue ( "/root/result/savetnmlist/pid" )) || !isNull(model.getValue ( "/root/result/savecncrlist/pid" ))) { //º´±âºÐ·ù xpt = window.screenleft + 300; ypt = window.screenTop; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO08400_rtn1" ) modal ( "SPMMO08400", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/tempresult", "", false ); if ( getParameter ( "SPMMO08400_rtn1" ) != "Y" ){ return false; } } // 20100108 ÇÑÀç»ó - À¯ÀüÀÚ°Ë»ç µ¿ÀǼ­ Ãâ·Â¹æ½Ä º¯°æ (OCR -> REX) var atadPrcpNodes = instance1.selectNodes("/root/result/savedrprcplist[tempcol13='A' and status='I']"); model.removeNodeSet("/root/hidden/atadinfo"); model.removeNodeSet("/root/hidden/geneunitlist"); if( atadPrcpNodes.length > 0 ) { model.makeValue("/root/hidden/atadinfo", ""); for(var m=0; m < atadPrcpNodes.length; m++ ){ var node = atadPrcpNodes.item(m); var atadNode = node.selectSingleNode("tempcol14"); var atadNodeArray = atadNode.text.split("¢Ë"); model.makeValue("/root/init/atadinfo/row/instcd", atadNodeArray[0]); model.makeValue("/root/init/atadinfo/row/prcpdd", atadNodeArray[1]); model.makeValue("/root/init/atadinfo/row/prcpno", atadNodeArray[2]); model.makeValue("/root/init/atadinfo/row/pid", atadNodeArray[3]); model.makeValue("/root/init/atadinfo/row/orddd", atadNodeArray[4]); model.makeValue("/root/init/atadinfo/row/cretno", atadNodeArray[5]); model.makeValue("/root/init/atadinfo/row/patnm", getPatientInfoDetail("hngnm") ); //alert(atadNode+" ## "+atadNodeArray[7]); var gender = atadNodeArray[7].substr(6, 1); var regYY = parseInt(atadNodeArray[7].substr(0, 2)); if(gender == '3' || gender == '4' || gender == '7' || gender == '8') { regYY += 2000; } else if(gender == '0' || gender == '9') { regYY += 1800; } else { regYY += 1900; } model.makeValue("/root/init/atadinfo/row/rrgstno", regYY + atadNodeArray[7].substr(2, 5)); model.makeValue("/root/init/atadinfo/row/drnm", getUserInfo("usernm") ); gender = atadNodeArray[9].substr(6, 1); regYY = parseInt(atadNodeArray[9].substr(0, 2)); if(gender == '3' || gender == '4' || gender == '7' || gender == '8') { regYY += 2000; } else if(gender == '0' || gender == '9') { regYY += 1800; } else { regYY += 1900; } model.makeValue("/root/init/atadinfo/row/drbrthdd", regYY + atadNodeArray[9].substr(2, 4)); model.makeValue("/root/init/atadinfo/row/prcpcd", atadNodeArray[10]); model.makeValue("/root/init/atadinfo/row/prcpnm", atadNodeArray[11]); model.makeValue("/root/init/atadinfo/row/deptengabbr", atadNodeArray[12]); model.makeValue("/root/init/atadinfo/row/roomcd", atadNodeArray[13]); model.makeValue("/root/init/atadinfo/row/prcpgenrflag", atadNodeArray[14]); model.makeValue("/root/init/atadinfo/row/centcd", model.getValue("/root/paminfo/list/centnm") ); model.makeValue("/root/init/atadinfo/row/ocrtag", atadNodeArray[16]); model.makeValue("/root/init/atadinfo/row/formcd", atadNodeArray[17]); model.makeValue("/root/init/atadinfo/row/formfromdt", atadNodeArray[18]); model.makeValue("/root/init/atadinfo/row/pagenum", atadNodeArray[19]); //model.makeValue("/root/init/atadinfo/row/pagenum", "3"); model.makeValue("/root/init/atadinfo/row/execprcpuniqno", atadNodeArray[20]); model.makeValue("/root/init/atadinfo/row/pattelno", atadNodeArray[21]); model.makeValue("/root/init/atadinfo/row/pataddr", atadNodeArray[22]); model.makeValue("/root/init/atadinfo/row/patsex", atadNodeArray[23]); model.makeValue("/root/init/atadinfo/row/instnm", atadNodeArray[24]); model.makeValue("/root/init/atadinfo/row/insttelno", atadNodeArray[25]); copyNodeType("/root/hidden/atadinfo", "/root/init/atadinfo", "after"); } modal("SPMMO21000", "", "", "", "", "/root/hidden/atadinfo", "/root/main/prcplist"); var atadInfoNodes = instance1.selectNodes("/root/hidden/geneunitlist"); if( atadInfoNodes.length > 0 ) { } else return false; } } //20080620 ¸¶Á¤¹Î ¼öÁ¤ ¸¶°¨ÈÄ ¹Ýȯ üũ ¹× »çÀ¯ ÀÔ·Â fEndAftDC(); fClearSaveInstance(); //model.addlog(" SPEED CHECK END OF ¿À·ù/»çÀ¯ ó¸®"); //model.addlog(" SPEED CHECK START OF DURó¸®(ó¹æÀü³»)"); //2011-12-19 mjm °æºÏ´ë »õ·Î¿î DUR Àû¿ë if( model.getValue("/root/initsrch/durappyn/trgtcd") == "K" && fGetHardCDList("Y", 404, 3) == "Y" ) { //20111219 ±¸DUR Àû¿ë ( HARDCDNO => 404 ) //2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë¿ë·®, ÃÖ´ë±â°£, ÃÖ´ë¿ë·® ÀúÇÔ·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É if( kdurCnt > 0 ) { clearParameter ( "SPMMO16101_rtn1" ); clearParameter ( "SPMMO16101_rtn2" ); modal ( "SPMMO16101", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) { var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } return false; } else { if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){ fPrcpSave_new( prcpflag, savekindflag, "", "N" ); return false; } } } //2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀӺαݱâ üũÁß falg°ªÀÌ 4ÀÎ °æ¿ì °æ°í¸Þ½ÃÁö ¶ç¿ì°í ó¹æÀúÀå °¡´É if( kimbuCnt > 0 ) { var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist"); var flag = ""; var prcpcd = ""; var prcpnm = ""; var prcperr = ""; var sAlertMsg = ""; for(var j =1; j <= srcNodeList.length; j++ ) { flag = model.getValue ( "/root/result/prcperrlist[" + j + "]/flag" ); if(flag == "4") { prcpcd = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcpcd" ); prcpnm = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcpnm" ); prcperr = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcperr" ); if(sAlertMsg == "") { sAlertMsg = "[ÀǾàǰ ó¹æÁö¿ø ¼­ºñ½º(DUR) Á¤º¸]\n ¾Æ·¡ÀÇ Ã³¹æÀº Çѹø ´õ È®ÀÎ ÇϽñ⠹ٶø´Ï´Ù.!"; } sAlertMsg = sAlertMsg + "\n\n" + prcpnm + "[" + prcpcd + "]" + "Àº(´Â) " + prcperr; var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } } } if (sAlertMsg != "") { messageBox(sAlertMsg, "I999"); } } } //model.addlog(" SPEED CHECK END OF DURó¸®(ó¹æÀü³»)"); //model.addlog(" SPEED CHECK START OF µ¿ÀǼ­Ãâ·Â"); if ( savekindflag != 1 && signyn == "Y" ) { var signbfcnts = model.getValue ( "/root/result/signprcplist/signprcp_signbfcnts" ); if (!isNull( signbfcnts )) { fAppendSaveNode( "/root/send/cond2", "/root/result/signprcplist" ); //ÀÇ»ç󹿵¥ÀÌÅÍ } signbfcnts = model.getValue ( "/root/result/signdiaglist/signdiag_signbfcnts" ); if (!isNull( signbfcnts )) { fAppendSaveNode( "/root/send/cond2", "/root/result/signdiaglist" ); //Áø´ÜÀÎÁõ } } if (savekindflag != 1) { //JJE (CP´Â ´çÀÏ+¹Ì·¡ ¸ðµçó¹æ ÀúÀå Á¾·á ÈÄ ÇѲ¨¹ø¿¡ Ãâ·Â) //CP ÀÓ½Ãó¹æ ÀúÀå½Ã ¼öÇàÇϵµ·Ï ¼öÁ¤(2008.10.20 JJE) if ( model.getValue ( "/root/cp") != "Y" ) { if (!isNull(ocrcalcscorcd)){ //OCR ÀÚµ¿Ãâ·Â ocrcalcscorcd °ªÀº MMO001¿¡ global·Î ¼±¾ð. °ªÀº fPrcpSaveChkaft¿¡¼­ üũÇÑ´Ù. fOcrAutoPrint(ocrcalcscorcd); fSetOcrTagNum(); // ¿µ»óÇаú¿¡¼­ OCR È®ÀÎÀ» À§ÇØ Äڵ庰 Å×±× ¼ÂÆÃ - 20081029 by MoonSH ocrcalcscorcd = ""; } } // 20100108 ÇÑÀç»ó - À¯ÀüÀÚ°Ë»ç µ¿ÀǼ­ Ãâ·Â¹æ½Ä º¯°æ (OCR -> REX) var atadInfoNodes = instance1.selectNodes("/root/hidden/geneunitlist"); if( atadPrcpNodes.length > 0 ) { if(submit("TXMMO21001")){ exeReportPreview("RPMMO21001", "XMLSTR" , "/root/hidden/geneunitlist" , "" , "true" , "", "", "", "", "", "", "grp_report"); fOcrAutoPrint(model.getValue("/root/init/atadinfo/row/prcpcd")+ "¢Ë"); var orddrid = "" if (model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") == "O" || model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") == "S" ) { orddrid = model.getValue("/root/paminfo/list/orddrid") } else { orddrid = model.getValue("/root/paminfo/list/medispclid"); } if( ! fSaveOCRIF(model.getValue("/root/hidden/atadinfo/row[1]/ocrtag") , model.getValue("/root/hidden/atadinfo/row[1]/pid") , model.getValue("/root/hidden/atadinfo/row[1]/orddd") , model.getValue("/root/hidden/atadinfo/row[1]/cretno") , model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") , model.getValue("/root/paminfo/list/orddeptcd") , orddrid , model.getValue("/root/hidden/atadinfo/row[1]/formcd") , model.getValue("/root/hidden/atadinfo/row[1]/formfromdt") , "", "", 1) ) { messageBox("À¯ÀüÀڰ˻絿ÀǼ­ IF ÀúÀå½Ã ¿À·ù¹ß»ý", "I"); } } } //¼±ÅÃÁø·á µ¿ÀǼ­¸¦ Ãâ·ÂÇÑ´Ù. // 2010. 12. 30 ±è¿µÇÐ °æºÏ´ë ¹öÁ¯ ¼öÁ¤ var returnVal = fGetHardCDList("Y", 266, 3); if (returnVal == "Y" ) { fPrltPartSpclDrList() } } //2011. 01. 09 ÀÎÁõÀúÀåÀü ȯÀÚÀÇ Áø·á¿¹¾à¿©ºÎ¸¦ È®ÀÎÇÑ´Ù. if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { // ¿Ü·¡ ¿¹¾à âÀ» ÆË¾÷ ÇÑ´Ù. if (savekindflag == "0" && model.getValue ( "/root/addprcp" ) != "Y" ){ var returnVal = fGetHardCDList("Y", 269, 3); var prcpsavebtnflag = model.getValue("/root/init/prcpsavebtnflag"); if ((returnVal == "N" || prcpsavebtnflag == "2") && model.getValue("/root/paminfo/list/ordtype") == "O" ) { var maxdayno = 0; for (rowno = 0 ; rowno < grd_prcplist.rows; rowno++ ) { var chkmaxdayno = model.getValue ( "/root/main/prcp/prcplist[" + rowno + "]/maxdayno" ); if (chkmaxdayno <= maxdayno ) { maxdayno = maxdayno ; } else { maxdayno = chkmaxdayno } } var todd = (getCurrentDate().toDate()).getAddDate(maxdayno); setParameter("SMPMO00300_PARM1", model.getValue ( "/root/paminfo/list/orddeptcd" )); //Áø·á°úÄÚµå setParameter("SMPMO00300_PARM2", orddrid); //Áø·áÀÇ»çÄÚµå setParameter("SMPMO00300_PARM3", model.getValue ( "/root/paminfo/list/pid" )); //ȯÀÚ¹øÈ£ setParameter("SMPMO00300_PARM4", todd); // ¿¹¾àÀÏÀÚ fPrcpModal ("SMPMO00300", 0, 80); clearParameter("SMPMO00300_PARM1"); clearParameter("SMPMO00300_PARM2"); clearParameter("SMPMO00300_PARM3"); clearParameter("SMPMO00300_PARM4"); } } } fAppendSaveNode( "/root/send/cond2", "/root/result/savedrprcplist" ); //ÀÇ»ç󹿵¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/saveexecprcplist" ); //½Ç½Ãó¹æ ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savediaglist" ); //Áø´ÜÀúÀå ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savepamlist" ); //¿ø¹«Á¤º¸ ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savematrprcplist" ); //Àç·áó¹æÁ¤º¸ ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savesujinresn" ); //¼öÁøº° 󹿻çÀ¯ µ¥ÀÌÅÍ (2011.09.15 ¾ö¿µ¸¸) ±Þ¼º½É±Ù°æ»ö ȯÀÚ Åð¿ø¾à(º£Å¸Â÷´ÜÁ¦,¾Æ½ºÇǸ°) ¹Ì¹ßÇà »çÀ¯ ÀÔ·ÂÀ» À§ÇØ »ý¼º fAppendSaveNode( "/root/send/cond2", "/root/result/bfjudgeprcplist" ); //¿Ü·¡ »çÀü½É»ç Áß ´©Àû°ü·Ã ó¹æ µ¥ÀÌÅÍ (2010.12.27 JJE) fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchklist" ); //DUR Á¡°ËÀÏ¹Ý Àü¹®(20120101 °í½Ã½ÃÇà 11/11/24cys) fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkinfo" ); //DUR Á¡°Ë¾àǰ Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" ); //DUR Á¡°Ë°á°ú Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" ); //DUR Ãë¼ÒÀü¹® if ( prcpgenrflag != "O" && prcpgenrflag != "S" ) { //Åð¿øÈÄ ¿Ü·¡Ã³¹æ ÀúÀå setting fAppendSaveNode( "/root/send/cond2", "/root/result/dschflaginfo" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschpamlist" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschdrprcplist" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschexecprcplist" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschmatrprcplist" ); //Á¦ÇÑÇ×»ýÁ¦ °ü·Ã fAppendSaveNode( "/root/send/cond2", "/root/result/antibioreq" ); //Á¦ÇÑÇ×»ýÁ¦ ½ÅûÁ¤º¸ (2013.01.10 ¾ö¿µ¸¸) fAppendSaveNode( "/root/send/cond2", "/root/result/antibioprcp" ); //Á¦ÇÑÇ×»ýÁ¦ ó¹æÁ¤º¸ (2013.01.10 ¾ö¿µ¸¸) } //20080909 ½ÃÇàºÎ¼­Ã³¹æ if ( model.getValue ( "/root/formerkey/pseuacptflag" ) == "Y" ) { var saveFormerkey = model.instances(0).selectNodes( "/root/formerkey" ); model.setValue ( "/root/send/cond15", getNodeListCSV(saveFormerkey)); } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step3Elapsed = endStepDate.getTime() - startStepDate.getTime(); // È­¸é ¼­¹ö ¿À·ù ó¸® ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK START OF µ¿ÀǼ­Ãâ·Â"); //model.addlog(" SPEED CHECK END OF ÀúÀå µ¥ÀÌÅÍ º¸Á¤(¿À·ù/»çÀ¯)"); //model.addlog(" SPEED CHECK START OF µ¥ÀÌÅÍ(ó¹æ/Áø´Ü/±âŸ) ÀúÀå"); if (tuningyn == "Y") { // Tuning 1 fInstenceSetAgft_New(aftdcyn , prcpsaveyn , prcpflag); // ÀúÀåÈÄ ÀνºÅϽº ¼ÂÆÃ } if ( model.getValue ( "/root/cp") == "Y" && savekindflag != 1 ) { //openLoadingBar("ÀúÀåÁßÀÔ´Ï´Ù."); //·Îµù¸Þ¼¼Áö open (¹Ì·¡Ã³¹æ ¿À·ù¸®½ºÆ® ÆË¾÷󸮷ΠÀÎÇØ ¸·À½) if ( prcpgenrflag == "O" ) { SubmitTF_SMMMO00110 = submit ( "TXMMP00804", false ); if ( !SubmitTF_SMMMO00110 ) { //TXMMO00101 model.removeNodeSet ( "/root/result"); return false; } }else { SubmitTF_SMMMO00110 = submit ( "TXMMP00803", false ); if ( !SubmitTF_SMMMO00110 ) { //TXMMO00103 model.removeNodeSet ( "/root/result"); return false; } } } else { // 20100412 Åð¿øÃ³¹æ ÀúÀå/DC ½Ã ÀÔÅð¿ø¿ä¾àÁö ±â·Ï ÀÎÅÍÆäÀ̽º Å¿쵵·Ï by LYJ if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) { nodelistRecNode = model.instances(0).selectNodes("/root/result/savedrprcplist[prcpkindcd = 60]"); } model.removeNodeset("/root/result1"); model.removeNodeset("/root/savertninfo"); if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { if (tuningyn == "Y") { // Tuning 3 if ( !submit ( "TXMMO00501", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00101", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } //½ÉÆò¿ø ó¹æÀü°£ »çÀ¯°¡ ÀÖÀ¸¸é ÀÔ·Â 20120101 °í½Ã if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) { //»çÀ¯ÆË¾÷ if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) { model.makeNode("/root/result/kdurchkrslt"); } model.removeNodeset("/root/result/kdurchkrslt"); model.makeNode("/root/result/kdurchkrslt"); for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) { copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+ i +"]", "before"); } model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]"); //DUR Á¡°Ë°á°ú Àü¹® if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) { model.makeNode("/root/result/prcperrlist"); } model.removeNodeset("/root/result/prcperrlist"); model.makeNode("/root/result/prcperrlist"); for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) { copyNodesetType("/root/result/prcperrlist" ,"/root/result1/prcperrlist["+ i +"]", "before"); } model.removeNode("/root/result/prcperrlist[flag = null]"); clearParameter ( "SPMMO16101_rtn1" ); clearParameter ( "SPMMO16101_rtn2" ); modal ( "SPMMO16101", mon, xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false ); if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) { var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } return false; } else { if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){ fPrcpSave_new( prcpflag, savekindflag, "", "N" ); return false; } } model.removeNodeset("/root/result1"); model.removeNodeset("/root/send/cond2/kdurchkrslt"); model.removeNodeset("/root/send/cond2/prcperrlist"); fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" ); //DUR Á¡°Ë°á°ú Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" ); //DUR Ãë¼ÒÀü¹® if (tuningyn == "Y") { // Tuning 4 if ( !submit ( "TXMMO00503", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.removeNodeset("/root/savertninfo"); model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00118", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } } } else { if (tuningyn == "Y") { // Tuning 5 if ( !submit ( "TXMMO00502", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00103", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } //model.addlog(" SPEED CHECK START OF DURó¸®(ó¹æÀü°£)"); //½ÉÆò¿ø ó¹æÀü°£ »çÀ¯°¡ ÀÖÀ¸¸é ÀÔ·Â 20120101 °í½Ã if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) { //»çÀ¯ÆË¾÷ if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) { model.makeNode("/root/result/kdurchkrslt"); } model.removeNodeset("/root/result/kdurchkrslt"); model.makeNode("/root/result/kdurchkrslt"); for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) { copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+ i +"]", "before"); } model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]"); //DUR Á¡°Ë°á°ú Àü¹® if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) { model.makeNode("/root/result/prcperrlist"); } model.removeNodeset("/root/result/prcperrlist"); model.makeNode("/root/result/prcperrlist"); for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) { copyNodesetType("/root/result/prcperrlist" , "/root/result1/prcperrlist["+ i +"]", "before"); } model.removeNode("/root/result/prcperrlist[flag = null]"); clearParameter ( "SPMMO16101_rtn1" ); clearParameter ( "SPMMO16101_rtn2" ); modal ( "SPMMO16101", mon, xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false ); if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) { var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } return false; } else { if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){ fPrcpSave_new( prcpflag, savekindflag, "", "N" ); return false; } } model.removeNodeset("/root/result1"); model.removeNodeset("/root/send/cond2/kdurchkrslt"); model.removeNodeset("/root/send/cond2/prcperrlist"); fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" ); //DUR Á¡°Ë°á°ú Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" ); //DUR Ãë¼ÒÀü¹® if (tuningyn == "Y") {// Tuning 6 if ( !submit ( "TXMMO00504", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.removeNodeset("/root/savertninfo"); model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00119", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } } //model.addlog(" SPEED CHECK END OF DURó¸®(ó¹æÀü°£)"); } setPatientInfoDetailByKey("prcpsaveyn", pid+ "|" + model.getValue("/root/init/prcpobjsaveyn")); // ó¹æÀÌ ÀúÀåµÈ°ÍÀ» »ó´Ü¿¡ ¿Ã·ÁÁØ´Ù. } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step4Elapsed = endStepDate.getTime() - startStepDate.getTime(); // ¼­¹ö ½ÇÁ¦ ÀúÀå ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK END OF µ¥ÀÌÅÍ(ó¹æ/Áø´Ü/±âŸ) ÀúÀå"); //model.addlog(" SPEED CHECK START OF ÀúÀå ÈÄ Ã³¸®"); //model.addlog(" SPEED CHECK START OF »êÁ¤Æ¯·Ê ó¸®"); var sChkMedicineConsultYn = fGetHardCDList("Y", 315, 3); // 315 Åð¿ø¾à ó¹æ½Ã º¹¾à»ó´ãÀÇ·Ú ÀÚµ¿ÆË¾÷ »ç¿ë ¿©ºÎ var pop_MedicineConsult = "N"; // º¹¾à»ó´ãÀÇ·Ú Ã¢ ÆË¾÷ ¿©ºÎ 2011.10.24 ¾ö¿µ¸¸ (Ä¥°î ¾àÁ¦ºÎ À̼®¹Ì ¿äû) if ( sChkMedicineConsultYn == "Y" && prcpflag == '0' && savekindflag == '0' && !isNull(model.getValue ( "/root/main/prcp/prcplist[(prcpgenrflag='I' or prcpgenrflag='E') and (prcpkindcd='60') and (prcpclscd='A2' or prcpclscd='A4' or prcpclscd='A6')]/prcpcd"))){ pop_MedicineConsult = "Y"; } if ( model.instances(0).selectNodes( "/root/result/savedrprcplist" ).length > 0 ) { prcpsaveyn = "Y"; //JJE 2008.09.08 if(model.getValue("/root/cp") == "Y") prcpsaveyn_SMMMO00110 = "Y"; } //DUR-S //by sonjy 20091216 ó¹æ ÀÎÁõÀúÀå ¼º°øÈÄ ÀÌÀü difguidÃʱâÈ­ // durappyn : "A:DURÀüü»ç¿ë", "Y:DURÁß ÀúÇÔ·®Á¦¿Ü", "³ª¸ÓÁö:DUR »ç¿ë¾ÈÇÔ" , "K:°æºÏ´ë¿ë DUR" if ( model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "A" || model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "Y") { if( prcpchkflag != "N" && saveok == "Y" && savekindflag == "0" && prcpsaveyn == "Y" ){ model.makeValue("/root/init/bf_difguid", ""); } } //DUR-E //20080910 ¸¶Á¤¹Î ¼öÁ¤. ½ÃÇàºÎ¼­Ã³¹æÀº »êÁ¤Æ¯·Ê üũ ¾ÈÇÑ´Ù. if( model.getValue("/root/cp") == "Y" && model.getValue ( "/root/addprcp" ) != "Y" ){ //JJE Á¶°ÇÃß°¡ 2008.09.08 //ÀÎÁõÀúÀåÀÎ °æ¿ì, M-GPSÀÇ Àû¿ë ¹öư À̺¥Æ®¿¡¼­ (´çÀÏ+¹Ì·¡Ã³¹æ ÀúÀå 󸮰¡ ¸ðµÎ ³¡³­ ÈÄ) fGetPrcpSaveAftInfo()¸¦ Á÷Á¢ È£ÃâÇϹǷÎ, ÀÓ½ÃÀúÀå ¶§¿¡¸¸ ¿©±â¿¡¼­ ¼öÇàÇÔ. if( savekindflag == 1 ){ if(tuningyn == "Y") { // tuning 7 fGetPrcpSaveAftInfo_New ( prcpsaveyn ,"Y"); } else { fGetPrcpSaveAftInfo ( prcpsaveyn ,"Y"); } } }else{ if( savekindflag == 1 ) { aftdcyn = "Y"; //ÀÓ½ÃÀúÀåÀÏ °æ¿ì »êÁ¤Æ¯·Ê ¹× ¹ýÁ¤Àü¿°º´ ŸÁö ¾Êµµ·Ï....by sonjy 20081123 } if(tuningyn == "Y") { // tuning 8 fGetPrcpSaveAftInfo_New ( prcpsaveyn ,aftdcyn); //û±¸ÈÄ d/c°¡ ¾Æ´Ò °æ¿ì¸¸ Ÿµµ·Ï parameter Ãß°¡ . by sonjy 20081027 } else { fGetPrcpSaveAftInfo ( prcpsaveyn ,aftdcyn); //û±¸ÈÄ d/c°¡ ¾Æ´Ò °æ¿ì¸¸ Ÿµµ·Ï parameter Ãß°¡ . by sonjy 20081027 } } //model.addlog(" SPEED CHECK END OF »êÁ¤Æ¯·Ê ó¸®"); //model.addlog(" SPEED CHECK START OF °¡¾ßÇÒ°÷ Ãâ·Â"); // ó¹æ ÀúÀåÈÄ È¯ÀÚ °¡¼Å¾ß ÇÒ °÷À» Ãâ·ÂÇÑ´Ù. // 2011. 01. 05. ±è¿µÇÐ // ¿Ü·¡ ȯÀÚ¸¸ Ãâ·ÂÇÑ´Ù. if (savekindflag == "0" && model.getValue ( "/root/addprcp" ) != "Y" && model.getValue ( "/root/cp") != "Y" && (prcpgenrflag == "O" || prcpgenrflag == "S")){ var returnVal = fGetHardCDList("Y", 268, 3); var patgolistprtyn = model.getValue("/root/init/patgolistprtyn"); if ((returnVal == "N" || patgolistprtyn == "Y") && model.getValue("/root/paminfo/list/ordtype") == "O" ) { fPrltPatTogoPlceList(); } } //model.addlog(" SPEED CHECK END OF °¡¾ßÇÒ°÷ Ãâ·Â"); //model.addlog(" SPEED CHECK START OF È­¸é ÀçÁ¶È¸(»ó´Ü/ó¹æ/´ë»óÀÚ)"); if (savekindflag != 1) { var prcpsaveyn = "N"; if ( savedataflag == "0" || savedataflag == "2" ) { prcpsaveyn = "Y"; } if(tuningyn != "Y") { // tuning 8 ÀúÀå ½Ã ·ÎÁ÷À¸·Î ÇÕħ //¼ö¼úÁßó¹æ ¸¶¾àÁý°èÈ£Ãâ if ( model.getValue ( "/root/init/drugbatch" ) == "Y" ) { submit ( "TXMMO00106", false ); } if ( prcpgenrflag == "E" ) { //ÀÀ±ÞÀÏ ¶§ Áø·áÁö¿ø ¿¹¾à¸ðµâ È£Ãâ submit ( "TXMMO00110", false ); } } } model.removeNodeSet ( "/root/main/prcp/prcplist"); appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); model.removeNodeSet ( "/root/result"); model.removeNodeSet ( "/root/result1"); model.removeNodeSet ( "/root/send/cond2" ); model.makeNode ( "/root/send/cond2" ); model.resetInstanceNode ( "/root/send" ); //Ãß°¡Ã³¹æÈ­¸éÀ̸é if ( model.getValue ( "/root/addprcp" ) == "Y" ) { fAddPrcpInitConDone( "", "", "", "", "", "Y" , "" ); } //ioflag¢Ëpid¢Ëorddd¢Ëcretno¢Ëinstcd¢Ëacptseqno¢Ëorgorddd¢Ë //¿Ü·¡/ÀÔ¿ø±¸ºÐ¢Ëµî·Ï¹øÈ£¢ËÁø·áÀÏÀڢ˻ý¼º¹øÈ£¢Ë±â°üÄÚµå¢Ëµî·ÏÀϷùøÈ£¢Ë¿øÁø·áÀÏÀÚ¢Ë var operation = getGlobalVariable("operation"); //¼ö¼ú¿¹¾àÁ¤º¸ set var ioflag = model.getValue ( "/root/paminfo/list/ioflag" ); if ( ioflag == "O" || ioflag == "S" ) { var pid = model.getValue ( "/root/paminfo/list/pid" ); var orddd = model.getValue ( "/root/paminfo/list/orddd" ); var cretno = model.getValue ( "/root/paminfo/list/cretno" ); var instcd = model.getValue ( "/root/paminfo/list/instcd" ); var acptseqno = model.getValue ( "/root/paminfo/list/acptseqno" ); var orgorddd = model.getValue ( "/root/paminfo/list/orgorddd" ); setParameter("condparam", ioflag + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + acptseqno + "¢Ë" + orgorddd ); } else if( ioflag == "D" || ioflag == "I"){ //ÀÔ¿ø(DSC, ÀÔ¿ø) var ioflag = "I"; //ioflag¢Ëpid¢Ëindd¢Ëcretno¢Ëseqno¢Ëinstcd¢Ë //¿Ü·¡/ÀÔ¿ø±¸ºÐ¢Ëµî·Ï¹øÈ£¢ËÀÔ¿øÀÏÀڢ˻ý¼º¹øÈ£¢ËÀϷùøÈ£¢Ë±â°üÄÚµå var pid = model.getValue ( "/root/paminfo/list/pid" ); var indd = model.getValue ( "/root/paminfo/list/indd" ); var cretno = model.getValue ( "/root/paminfo/list/cretno" ); var instcd = model.getValue ( "/root/paminfo/list/instcd" ); var prcpdd = model.getValue ( "/root/init/prcpdd" ); //û±¸ ÈÄ D/C°ü·Ã Ãß°¡ ó¸®...prcpdd¸¦ Åð¿øÈ¯ÀÚÀÏ °æ¿ì Åð¿øÀÏÀ» ³Ñ°Ü ÁØ´Ù. by sonjy 20081027 //±×·¸Áö ¾ÊÀ» °æ¿ì »ó´Ü Á¤º¸ ¿À·ù³². if( model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" && !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){ prcpdd = model.getValue ( "/root/paminfo/list/dschdd" ); } setParameter("condparam", ioflag + "¢Ë" + pid + "¢Ë" + indd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + prcpdd); } else if(ioflag == "E"){ //ÀÔ¿ø(EÀÀ±Þ) var ioflag = "E"; //ioflag¢Ëpid¢Ëindd¢Ëcretno¢Ëseqno¢Ëinstcd¢Ë //¿Ü·¡/ÀÔ¿ø±¸ºÐ¢Ëµî·Ï¹øÈ£¢ËÀÔ¿øÀÏÀڢ˻ý¼º¹øÈ£¢ËÀϷùøÈ£¢Ë±â°üÄÚµå var pid = model.getValue ( "/root/paminfo/list/pid" ); var indd = model.getValue ( "/root/paminfo/list/indd" ); var cretno = model.getValue ( "/root/paminfo/list/cretno" ); var instcd = model.getValue ( "/root/paminfo/list/instcd" ); var prcpdd = model.getValue ( "/root/init/prcpdd" ); //û±¸ ÈÄ D/C°ü·Ã Ãß°¡ ó¸®...prcpdd¸¦ Åð¿øÈ¯ÀÚÀÏ °æ¿ì Åð¿øÀÏÀ» ³Ñ°Ü ÁØ´Ù. by sonjy 20081027 //±×·¸Áö ¾ÊÀ» °æ¿ì »ó´Ü Á¤º¸ ¿À·ù³². if( model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" && !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){ prcpdd = model.getValue ( "/root/paminfo/list/dschdd" ); } setParameter("condparam", ioflag + "¢Ë" + pid + "¢Ë" + indd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + prcpdd); } var xpt = window.screenleft + 0; var ypt = window.screenTop + 0; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; if ( model.getValue ( "/root/addprcp" ) != "Y" ){//&& prcpchkflag != "clickpatlist" Áø·á´ë»óÀÚ¸®½ºÆ®¿¡¼­ ¼±ÅõǾúÀ»¶§´Â ¸Þ¼¼Áö ¶ç¿ìÁö ¾Ê´Â´Ù. 20100317 LYJ modal("SPMMO08900", mon, xpt, ypt, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;"); } //±âÁ¸ÀÇ ¼ö¼ú¿¹¾à¹øÈ£°¡ ÀÖ´Â °æ¿ì¿¡´Â resetó¸® if( operation != "" ){ setGlobalVariable("operation", operation); } var useyn = getParameter("SPMMO08900_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO08900_rtn_useyn", ""); if ( savedataflag != "2" ) { if(tuningyn == "Y" ) { fPatDiagSrch_New(); } else { fPatDiagSrch(); } } //JJE CPÀÏ °æ¿ì, ´çÀÏ+¹Ì·¡Ã³¹æ ¸ðµÎ ÀúÀå ÈÄ ¸Ç ¸¶Áö¸·¿¡ Áø·á´ë»óÀÚ¸¦ Á¶È¸ÇÑ´Ù (2008.09.11) if ( model.getValue ( "/root/cp" ) == "Y" && savekindflag != 1 ){ return true; } fInitializeConDone("save"); fTempPrcp("save"); //20080818 ¸¶Á¤¹Î ¼öÁ¤: Àüó¹æ Á¶È¸ ÀúÀåÈÄ ¹Ù·Î °¡Á®¿À´Â °É·Î ¼öÁ¤ //ivw_prcp3.window.javascript.fInitialize("init"); if ( model.getValue ( "/root/cp" ) != "Y" && !btn_ivbfprcp.selected) { btn_ivbfprcp.selected = true; ivw_prcp3.visible = true; ivw_prcp.visible = false; //ivw_prcp.src = "SMMMO02100_Àüȸó¹æ.xrw"; }else if ( !btn_ivbfprcp.selected ) { btn_ivbfprcp.selected = true; ivw_prcp3.visible = true; ivw_prcp2.visible = false; //ivw_prcp2.src = "SMMMO02100_Àüȸó¹æ.xrw"; } //20090327 ¸¶Á¤¹Î¼öÁ¤: Â÷»óÀ§ ·ÎÁ÷Ãß°¡ if ( model.getValue ( "/root/paminfo/list/scndyn" ) == "Y" && prcpgenrflag == "O" && savekindflag != 1 ) { fScndChk(); } fInitializeScreen(); //Á¾¼Ó󹿹øÈ£, ¹Í½º¹øÈ£, hsctlnkno ÃʱâÈ­ model.setValue ( "/root/init/inclprcpno", 0 ); model.setValue ( "/root/init/hsctlnkno", 0 ); model.setValue ( "/root/init/prcpmixno", 0 ); var ordPatObj = getOpenWindow("SMMMO04100"); if(ordPatObj != null){ //µÎ °´Ã¼°ªÀÌ ´Ù¸¥ °æ¿ì »õ·Î¿î Áø·á´ë»óÀÚ È­¸éÀ» openÇÔ ordPatObj.javascript.fPrcpCallPatList(); } var ordMiniPatObj = getOpenWindow("SPMMO04200"); if(ordMiniPatObj != null){ //µÎ °´Ã¼°ªÀÌ ´Ù¸¥ °æ¿ì »õ·Î¿î Áø·á´ë»óÀÚ È­¸éÀ» openÇÔ ordMiniPatObj.javascript.fChkGetData(); } } // 20100412 Åð¿øÃ³¹æ ÀúÀå½Ã ÀÔÅð¿ø¿ä¾àÁö ±â·Ï ÀÎÅÍÆäÀ̽º Å¿쵵·Ï by LYJ 20101102 À§Ä¡º¯°æ if ( model.getValue ( "/root/initsrch/getoutprcpsave/trgtcd" ) == "Y" ) { if ( model.getValue ( "/root/paminfo/list/ioflag" ) == "I") { if( nodelistRecNode.length > 0 && model.getValue ( "/root/init/setprcpyn") == "Y" ) { var pid = model.getValue("/root/paminfo/list/pid"); var orddd = model.getValue("/root/paminfo/list/indd"); var cretno = model.getValue("/root/paminfo/list/cretno"); var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); openAutoSaveForm_MMR073("DisChargeSummaryNote_ReDschOrd", pid, orddd, cretno, orddeptcd); } } } //model.addlog(" SPEED CHECK END OF È­¸é ÀçÁ¶È¸(»ó´Ü/ó¹æ/´ë»óÀÚ)"); //model.addlog(" SPEED CHECK END OF ÀúÀå ÈÄ Ã³¸®"); //model.addlog("SPEED CHECK END OF fPrcpSave()"); // ÀÔ¿ø ¶Ç´Â ÀÀ±ÞÀÏ °æ¿ì // 20111201 knuh ÃÖ¿øµ· // ±â·Ï/ó¹æ Á÷Àü ÀÎÁõÀúÀåÀÌ Á¤ÇØÁø ½Ã°£(ºÐ ´ÜÀ§, ÇϵåÄÚµå 401) À̳»À̸é ÀÎÁõ¼­¸¦ ¶ç¿ìÁö ¾ÊÀ½(2/2) // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js // ÀÎÁõÀúÀåµÈ ½Ã°£À» ÀúÀå. if ((prcpgenrflag == "I" || prcpgenrflag == "E") && savekindflag != 1 ) { setGlobalVariable("emrinptsavetime", getCurrentDateTime()); } if(pop_MedicineConsult == "Y") { modal("SPADC62100", "", 200, 200); } // DRG Á¤º¸È­¸é ÆË¾÷. 2013.06.24 /* if ((prcpgenrflag == "I" || prcpgenrflag == "E" || prcpgenrflag == "D") && savekindflag == "0" ) { var pid = model.getValue("/root/paminfo/list/pid"); var indd = model.getValue("/root/paminfo/list/indd"); var cretno = model.getValue("/root/paminfo/list/cretno"); setParameter("pid", pid); setParameter("indd", indd); setParameter("cretno", cretno); modal("SPPIJ03201", "", 200, 200); } */ endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step5Elapsed = endStepDate.getTime() - startStepDate.getTime(); // È­¸é ÀúÀåÈÄ Ã³¸® ¼Ò¿ä ½Ã°£ if(prcpflag == "0" && savekindflag == "0" && model.getValue ("/root/addprcp" ) != "Y") { var pid = model.getValue("/root/paminfo/list/pid"); var cretno = model.getValue("/root/paminfo/list/cretno"); var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); var orddd = "" if(prcpgenrflag == "O" || prcpgenrflag == "S"){ orddd = model.getValue("/root/paminfo/list/orddd"); } else { orddd = model.getValue("/root/paminfo/list/indd"); } // ¼ÓµµÃ¼Å©¸¦ À§ÇÑ ¸ð´ÏÅ͸µ ·Î±× µ¥ÀÌÅÍ »ý¼º. model.removeNodeSet("/root/monitoringlog/reqdata"); model.makeValue("/root/monitoringlog/reqdata/type", "PrcpSave"); model.makeValue("/root/monitoringlog/reqdata/item01", savedataflag); // ÀúÀå µ¥ÀÌÅÍ À¯Çü 0:ÀÎÁõÀúÀå(Áø´Ü+»óº´), 1:ÀÎÁõÀúÀå(Áø´Ü), 2:ÀÎÁõÀúÀå(ó¹æ), 4:ÀÓ½ÃÀúÀå(ó¹æ), 5:ÀÓ½ÃÀúÀåDC(ó¹æ), 6:ÀÓ½ÃÀúÀå(Áø´Ü+ó¹æ), 7:ÀÓ½ÃÀúÀå(Áø´Ü) model.makeValue("/root/monitoringlog/reqdata/item02", prcpgenrflag); // Áø·áÀ¯Çü (O:¿Ü·¡, S:°Ç°­°ËÁø, I:ÀÔ¿ø, E:ÀÀ±Þ, D:ÀÏÀϼö¼ú,³·º´µ¿) model.makeValue("/root/monitoringlog/reqdata/item03", "0"); // ÀԷ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0034 ÂüÁ¶) inptflag model.makeValue("/root/monitoringlog/reqdata/item04", pid); // µî·Ï¹øÈ£ model.makeValue("/root/monitoringlog/reqdata/item05", orddd); // Áø·á(ÀÔ¿ø)ÀÏÀÚ model.makeValue("/root/monitoringlog/reqdata/item06", cretno); // »ý¼º¹øÈ£ model.makeValue("/root/monitoringlog/reqdata/item07", orddeptcd); // Áø·áºÎ¼­ model.makeValue("/root/monitoringlog/reqdata/item08", nPrcpCnt); // 󹿰¹¼ö model.makeValue("/root/monitoringlog/reqdata/item09", nDiagCnt); // Áø´Ü°¹¼ö model.makeValue("/root/monitoringlog/reqdata/item10", (step1Elapsed + step2Elapsed + step3Elapsed + step4Elapsed + step5Elapsed)); // Àüü¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item11", step1Elapsed); // È­¸é ¿À·ùüũ ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item12", step2Elapsed); // ¼­¹ö ¿À·ùüũ ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item13", step3Elapsed); // È­¸é ¿À·ùó¸® ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item14", step4Elapsed); // ¼­¹ö ÀúÀåó¸® ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item15", step5Elapsed); // È­¸é ÀúÀåÈÄó¸® ¼Ò¿ä½Ã°£ submit("TXMMO00120", false); } return true; } function fPrcpSave_old( prcpflag, savekindflag, saveNode, prcpchkflag ) { //model.addlog("SPEED CHECK START OF fPrcpSave()"); //model.addlog(" SPEED CHECK START OF 󹿰¡´Éüũ(È­¸é)"); //ó¹æ ½Ã°£À» °è»êÇϱâ À§ÇØ º¯¼ö Ãß°¡ 2012.11.19 ¾ö¿µ¸¸ var startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ var endStepDate = null; // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ var step1Elapsed = null; // È­¸é ¿À·ù üũÀü ó¸® ¼Ò¿ä½Ã°£ var step2Elapsed = null; // ¼­¹ö ¿À·ù üũ ¼Ò¿ä½Ã°£ var step3Elapsed = null; // È­¸é ¼­¹ö ¿À·ù ó¸® ¼Ò¿ä½Ã°£ var step4Elapsed = null; // ¼­¹ö ½ÇÁ¦ ÀúÀå ¼Ò¿ä½Ã°£ var step5Elapsed = null; // È­¸é ÀúÀåÈÄ Ã³¸® ¼Ò¿ä ½Ã°£ var nPrcpCnt = 0; // ó¹æ °¹¼ö var nDiagCnt = 0; // Áø´Ü °¹¼ö var xpt = window.screenleft + 200; var ypt = window.screenTop + 100; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; var curCpObj = getOpenWindow("SPMMO00600"); //Ȱ¼ºÈ­µÈ CP Main È­¸é object loading var nodelistRecNode = ""; if(curCpObj != null) curCpObj.javascript.fClose(); if ( isNull(prcpflag)) prcpflag = "0"; if ( isNull(savekindflag)) savekindflag = "0"; if ( isNull(saveNode)) saveNode = "/root/main/prcp/prcplist"; //20091208 HJS DURÀû¿ë¿©ºÎ¸¦ ÀÓ½ÃÀûÀ¸·Î ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. reqHardCodeInfo("/root/hidden/durappinfo", "/root/hidden/durappinfo", "119"); model.makeValue( "/root/initsrch/durappyn/trgtcd", model.getValue("/root/hidden/durappinfo/hardcd/hardcd") ) //PRN Àû¿ë¿©ºÎ¸¦ ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. 2010-01-02 by LYJ reqHardCodeInfo("/root/hidden/prnprcpyninfo", "/root/hidden/prnprcpyninfo", "173"); model.makeValue( "/root/save/saveflaginfo/prnprcpyninfo", model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd") ); var tuningyn = getTuningYn(); //Æ©´× Àû¿ë¿©ºÎ¸¦ ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. 2013-03-12 by ¹ÚȲ¹é if (tuningyn == "Y") { model.makeValue( "/root/save/saveflaginfo/savekindflag", savekindflag ); } //û±¸ÈÄ d/có¹æ ¿©ºÎ by sonjy 20081027 var aftdcyn = "N"; //Àüó¹æ ÅÇÀÌ ¾Æ´Ñ ÅÇ¿¡ Æ÷Ä¿½Ì µÉ ¶§ ÀÎÁõÀúÀå ½Ã DCó¹æ ÀúÀåµÇÁö ¾ÊÀ½. "btn_ivbfprcp.selected &&" Á¶°Ç »èÁ¦ (JJE) if ( model.getValue ( "/root/cp") != "Y" ) { if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) { ivw_prcp3.window.javascript.fAppendDC(); } } else { if ( prtlprcpstatus_SMMMO00110 != "U" ) { //OCSȰ¼ºÈ­µÈ °æ¿ì¸¸ üũ && btn_ivbfprcp.selected && btn_init.visible == false && btn_reinit.visible == false //CP¿¡¼­ DC+Ãß°¡Ã³¹æ¹ßÇà ¾ÈµÅ¼­ ÇØ´ç Á¶°Ç »èÁ¦(2010.07.06 JJE) var dcNode = ivw_prcp3.instance1.selectSingleNode("/root/prcpsrch/prcplist[chkcol=D]"); // DCó¹æ if( dcNode != null && model.getValue ( "/root/init/setprcpyn") == "Y" ){ ivw_prcp3.window.javascript.fAppendDC(); } model.makeValue ( "/root/save/saveflaginfo/prtlflag", prtlFlag_SMMMO00110 ); //MMPHPTCPÀÇ prtlflag(ÇÁ·ÎÅäÄݱ¸ºÐ)ÀÌ '-'À̰ųª '01'À̸é CP (DCÀúÀåÀ» À§ÇÔ) } } var savedataflag = fSaveExistCheck( savekindflag ); var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); if ( savedataflag == -1 ) { if ( prcpgenrflag == "O" ) { savedataflag = 3; } else { messageBox ( "ÀúÀåÇÒ", "E013" ); return false; } } else if ( savedataflag == 5 ) { messageBox ( "ó¹æDC´Â ÀÓ½ÃÀúÀå", "E001" ); return false; } // ó¹æ ÀúÀå½Ã È­¸é¿¡¼­ óÀå °¡´É ÇÑÁö üũ ÇÑ´Ù. var sIprcAddYn = model.getValue("root/paminfo/list/iprcaddyn"); // Ãß°¡Ã³¹æ ¹ßÇà¿©ºÎ(½É»ç½Ç °¡Åð¿ø È¯ÀÚ)´Â ó¹æÀúÀå °¡´É üũ Á¦¿Ü 2012.04.16 if(sIprcAddYn != "Y" && !fCheckBeforePrcpSave( prcpflag, savekindflag, saveNode, prcpchkflag )) return false; var saveok = "N"; if ( prcpchkflag != "N" ) { // prcpchkflag°¡ N ÀÌ¸é ¸Þ½ÃÁö¸¦ ¾È¹°¾îº¸°í ³Ñ¾î°£´Ù. if ( prcpchkflag == "clickpatlist" ){ saveok = "Y"; } // Áø·á´ë»óÀÚ¸®½ºÆ®¿¡¼­ ¼±ÅõǾúÀ»¶§´Â ¸Þ¼¼Áö ¶ç¿ìÁö ¾Ê´Â´Ù. 20100317 LYJ if ( prcpchkflag != "drugdc" ) prcpchkflag = "Y"; //¹Ýȯ¿äûÀÌ ¾Æ´Ï¶ó¸é Y·Î ÇØÁØ´Ù. if (model.getValue ( "/root/initsrchprcp/prcpetccnts/admiprcpyn" ) == "Y" ) { //admission ó¹æÀÌ ¾ø´Âµ¥ if ( !isNull(model.getValue ( "/root/main/prcp/prcplist[prcpkindcd='10']/prcpcd"))) { //Á¤±Ôó¹æÀÌ Á¸ÀçÇϸé if ( "7" == messageBox ( "ÀÔ¿ø´çÀÏ Admission ó¹æÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. ±×·¡µµ Á¤±Ôó¹æÀ»", "Q002" )) return false; else saveok = "Y"; //Áú¹®À» Çѹø¸¸ ÇÏ·Á°í ¼öÁ¤ } } if ( saveok == "N" ) { if ( savedataflag == 6 ) { if( messageBox ( "", "Q002" ) == "6" ) { saveok = "Y"; } else { saveok = "N"; } } else { if( messageBox ( "", "Q002" ) == "6" ) saveok = "Y"; } } } else { saveok = "Y" } //by sonjy 20091103 ó¹æÀÎÁõÀúÀå ½ÃÁ¡ ¿ë·® º¸Á¤¿©ºÎ È®ÀÎ ÆË¾÷ ¼ººó¼¾Æ®¸¸...Àû¿ë //if( prcpchkflag != "N" && saveok == "Y" && prcpflag == "0" && savekindflag == "0" && model.getValue ( "/root/usge" ) == "prcp" ){ // var chngprcpvollst = model.instances(0).selectNodes( "/root/main/prcp/prcplist[tempcol22 !='' and (prcpclscd='A2' or prcpclscd='A4' or prcpclscd='A6')]" ); // if( chngprcpvollst != null && chngprcpvollst.length > 0 ) { // fPrcpModal("SPMMO20900", 20, 50); // if( getParameter ( "SPMMO20900_rtn1") != "Y" ) return false; // } //} // ¿À·ù üũ½Ã üũ Çϵµ·Ï º¯°æ 2013.01.28 ¾ö¿µ¸¸ if( saveok != "Y" ) { return false; } if (savekindflag != 1) { // ó¹æ ÀúÀåÀü üũ ÇØ¾ß ÇÒ °Íµé if (!fPrcpSaveChkBf(prcpchkflag)) return false; } model.removeNodeSet ( "/root/send/cond2" ); model.makeNode ( "/root/send/cond2" ); // ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo) model.setValue ( "/root/save/saveflaginfo/savedataflag", savedataflag ); // ÀúÀåÀڷᱸºÐ 0:Áø´Ü ¹× ó¹æ, 1:Áø´Ü, 2:ó¹æ, 4:ó¹æÀÓ½ÃÀúÀå, 6:Áø´Ü ¹× ó¹æ ÀÓ½ÃÀúÀå, 7:Áø´ÜÀÓ½ÃÀúÀå model.setValue ( "/root/save/saveflaginfo/saveflag", prcpgenrflag); // ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø model.setValue ( "/root/save/saveflaginfo/prcpflag", prcpflag ); // 󹿱¸ºÐ 0:ÀÇ»çó¹æ, 2:°£È£, 3:Áö¿øºÎ¼­, 5:Admission, 6:CP, 7:Ç×¾ÏÇÁ·ÎÅäÄÝ, 8:ÀÓ½Ãó¹æ model.setValue ( "/root/save/saveflaginfo/inptflag", "0" ); // ÀԷ±¸ºÐ 0:ÀÇ»ç, 1:°£È£»ç(°£È£¿¡¼­ »ç¿ë), 3:Áö¿øºÎ¼­ model.setValue ( "/root/save/saveflaginfo/deptcd", getUserInfo("dutplcecd")); // ºÎ¼­ÄÚµå model.setValue ( "/root/save/saveflaginfo/deptnm", getUserInfo("dutplcenm")); // ºÎ¼­¸í model.setValue ( "/root/save/saveflaginfo/userid", getUserInfo("userid")); // »ç¿ëÀÚID model.setValue ( "/root/save/saveflaginfo/usernm", getUserInfo("usernm")); // »ç¿ëÀÚ¸í model.setValue ( "/root/save/saveflaginfo/prcpdd", model.getValue("/root/init/prcpdd")); model.setValue ( "/root/save/saveflaginfo/divyn", prcpchkflag ); // ¿ë·®ºÐÇÒ ÇÒ°ÇÁö model.makeValue ( "/root/save/saveflaginfo/durappyn", model.getValue( "/root/initsrch/durappyn/trgtcd" ) ); // 2010.11.24 À̼±°æ ¼öÁ¤ : °æºÏ´ë¿ë DUR flag°ªÀ» ´øÁ®Áà¾ß ÇÔ model.makeValue ( "/root/save/saveflaginfo/nonprgflag", fCompareNonPrgDiag()); if ( savekindflag == 1 ) { model.setValue( "/root/save/saveflaginfo/signyn", "N" ); // ÀÓ½ÃÀúÀå } else { model.setValue( "/root/save/saveflaginfo/signyn", signyn); } if ( model.getValue ( "/root/addprcp" ) == "Y" ) { model.setValue ( "/root/save/saveflaginfo/pseuacptflag", model.getValue ( "/root/formerkey/pseuacptflag" )); model.setValue ( "/root/save/saveflaginfo/admininfo", model.getValue ( "/root/admininfo" )); } else { model.setValue ( "/root/save/saveflaginfo/pseuacptflag", "N"); model.setValue ( "/root/save/saveflaginfo/admininfo", "NNNNNNNNNNNNNNNNNNNN"); } var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" ); model.setValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); //ÀúÀåµî·ÏÁ¤º¸(saveRgstInfo) var saveRgstInfo = model.instances(0).selectNodes( "/root/paminfo/list" ); model.setValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); //ÀúÀåó¹æÁ¤º¸(savePrcpInfo) var savePrcpInfo = model.instances(0).selectNodes( saveNode ); // ¹Ì¿Ï¼º ó¹æ ÀúÀå ½Ã, '-' ±îÁö ÇÔ²² ÀúÀåÇÏ·Á Çϱ⶧¹®¿¡ I ¸¸ ÀúÀåÇϵµ·Ï ºÐ±â (2008.10.15 JJE) (s) if( model.getValue("/root/cp") != "Y" ){ model.copyNode ( "/root/send/cond3", "/root/main/prcp" ); }else{ fClearSaveInstance(); fAppendSaveNode( "/root/send/cond3", saveNode ); } fAppendSaveNode( "/root/send/cond3", "/root/prcper/prcplist" ); fAppendSaveNode( "/root/send/cond3", "/root/prcpdc/prcplist" ); nPrcpCnt = model.instances(0).selectNodes("/root/send/cond3/prcplist" ).length - 1; //û±¸ÈÄ d/có¹æ ¿©ºÎ setting by sonjy 20081027 => û±¸ÈÄ d/cÀÏ °æ¿ì »êÁ¤Æ¯·Ê ¹× ¹ýÁ¤Àü¿°º´µîÀÇ Ã³¹æÀúÀå ÈÄ ·ÎÁ÷À» Å»Çʿ䰡 ¾øÀ½. var aftdclist = model.instances(0).selectNodes( "/root/prcpdc/prcplist[tempcol21='C']" ); if( aftdclist != null ){ if( aftdclist.length > 0 ) aftdcyn = "Y"; } if ( prcpchkflag == "drugdc" ) { //¾à/ÁÖ»ç D/C ¿äû Áß¿¡ ¹Ý³³¿äûµÈ °ÍÀº D/C ó¸®ÇÑ´Ù.( ÀúÀå·ÎÁ÷¿¡¼­ »ç¿ë ) model.setValue ( "/root/send/cond14", getNodeListCSV (model.instances(0).selectNodes( "/root/prcpdc/prcplist" ))); } //setValue ÈÄ¿¡ prcpdc ¿¡ ¿Å°Ü ³õÀº prcplist¸¦ Ŭ¸®¾î ÇÑ´Ù. model.removeNodeset ( "/root/prcpdc/prcplist" ); //ÀúÀåÁø´ÜÁ¤º¸(saveDiagInfo) var saveDiagInfo = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" ); nDiagCnt = saveDiagInfo.length - 1; model.setValue ( "/root/send/cond4", getNodeListCSV(saveDiagInfo)); endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step1Elapsed = endStepDate.getTime() - startStepDate.getTime(); // È­¸é ¿À·ù üũÀü ó¸® ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK END OF 󹿰¡´Éüũ(È­¸é)"); //model.addlog(" SPEED CHECK START OF ÀúÀå µ¥ÀÌÅÍ »ý¼º(¿À·ù/»çÀ¯)"); if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { //°ÇÁøÀÏ °æ¿ì ¿Ü·¡¿Í µ¿ÀÏ Ã³¸® BY SONJY 2008-09-03 if ( !submit ( "TRMMO00103", false )) { if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) { //Á¶°ÇÃß°¡(2008.09.01 JJE) model.resetInstanceNode ( "/root/send" ); } fClearSaveInstance(); model.refresh(); return false; } } else { if ( !submit ( "TRMMO00104", false )){ if (model.getValue ( "/root/cp") != "Y" || savekindflag == 1 ) { //Á¶°ÇÃß°¡(2008.09.01 JJE) model.resetInstanceNode ( "/root/send" ); } fClearSaveInstance(); model.refresh(); return false; } } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step2Elapsed = endStepDate.getTime() - startStepDate.getTime(); // ¼­¹ö ¿À·ù üũ ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK END OF ÀúÀå µ¥ÀÌÅÍ »ý¼º(¿À·ù/»çÀ¯)"); //model.addlog(" SPEED CHECK START OF ÀúÀå µ¥ÀÌÅÍ º¸Á¤(¿À·ù/»çÀ¯)"); //model.addlog(" SPEED CHECK START OF ¿À·ù/»çÀ¯ ó¸®"); //Åð¿ø¿¹°í µÇÁö ¾ÊÀº »çÇ׿¡¼­ Åð¿øÃ³¹æÀ» ÇßÀ»°æ¿ì Åð¿ø¿¹°í âÀ» ¶ç¿ò if(model.getValue("/root/result/saveetcchklist/dschyn") == "Y"){ messageBox ("Åð¿ø¿¹°í¸¦ ÇØ¾ß¸¸ Åð¿ø ¹× Åð¿øÈĿܷ¡,ÀÔ¿øÀü°Ë»ç(ÀüÀÏ/´çÀÏ) ó¹æÀ» ÀúÀåÇÒ ¼ö ÀÖ½À´Ï´Ù." , "E" ); preDsch(); return false; } //DUR-S, 2009-10-01 Â÷Çöö // ÀúÇÔ·® ¿ë·®ºÐÇÒÀÇ °æ¿ì ±âÁ¸ °ÍÀ» »ç¿ëÇÔÀ¸·Î DURÀ» µÚ¿¡ ¼öÇà // °æºÏ´ë¿ë DUR Àû¿ë½Ã¿¡´Â ÀúÇÔ·® ¿ë·®ºÐÇÒ Ã¼Å© ÈÄ DUR ·ÎÁ÷üũ ÇÔ // durappyn : "A-Àüü DUR", "Y-ÀúÇÔ·®Á¦¿Ü DUR", "³ª¸ÓÁö-DUR »ç¿ë¾ÈÇÔ" , "K:°æºÏ´ë¿ë DUR" if (model.getValue("/root/initsrch/durappyn/trgtcd") != "A" ) { if ( model.getValue ( "/root/result/divinfo/divchkflag" ) == "N" ) { var divPrcpInfo = model.instances(0).selectNodes( "/root/result/prcplist" ); if ( divPrcpInfo.length > 0 ) { // ¿ë·®ºÐÇÒ, ÀúÇÔ·® if ( !isNull(model.getValue ( "/root/result/prcplist/prcpcd"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; //by sonjy 20090714 º¯°æ¿äû¼­ ó¸® : ÀúÇÔ·® ¿ë·®ºÐÇÒ⠴ݱâ¹öư »èÁ¦Ã³¸® modal ( "SPADB62400", mon, xpt, ypt, "SPADB62400", "/root/result", "/root/main/prcp", "sysmenu:hidden;", false ); model.refresh(); model.recalculate(); fClearSaveInstance(); } model.refresh(); fPrcpSave_old( prcpflag, savekindflag, "", "N" ); // by sonjy 20100303 ¼öÁ¤ ÀÓ½Ãó¹æÀúÀå½Ã ÀÎÁõÀúÀåÀ¸·Î °¡´Â ¿À·ù ¼öÁ¤. return false; } } else if (model.getValue ( "/root/result/divinfo/divchkflag" ) == "A") { //20090420 ¸¶Á¤¹Î ¼öÁ¤ Ç׾Ͽ뷮ºÐÇÒÀº ±âÁ¸¿¡´Â ¼­¹ö¿¡¼­ ºÒÇÒµÇ¾î ¹Ù·Î ÀúÀåüũ·ÎÁ÷À¸·Î °¬Áö¸¸ º¸ÇèÁ¦ÇѱÔÁ¤¿¡ °É·Á¼­ //´Ù½ÃÀúÀåÇÒ¶§ ºÐÇÒµÈ ³»¿ëÀÌ È­¸éÀÌ Ç¥½Ã°¡ µÇÁö ¾Ê¾Æ ¿ë·®ºÐÇÒÀÌ µÇÁö ¾ÊÀ½. //Ç׾Ͽ뷮ºÐÇÒµµ È­¸é¿¡ Ç¥½ÃÇÏ°Ô ¼öÁ¤ model.removeNodeSet ( "/root/main/prcp/prcplist" ); var srcNodeList = model.instances(0).selectNodes("/root/result/prcplist"); var destNode = model.instances(0).selectSingleNode("/root/main/prcp"); //¿ë·®ºÐÇҽà ¼­¹öüũ·ÎÁ÷¿¡¼­ default="0" À¸·Î ¼¼ÆÃÇÏ¿© ³Ñ°Ü¼­ È­¸é¿¡ 0 À¸·Î Á¶È¸µÇ¿© ´Ù½Ã ''·Î ÃʱâÈ­, ¼­¹ö·ÎÁ÷ ¼öÁ¤Àº ÃßÈİËÅä, 2009-07-05. CHC for (i = 1; i <= getNodesetCount("/root/result/prcplist"); i++) { if(model.getValue("/root/result/prcplist["+i+"]/status") == "S") { model.setValue("/root/result/prcplist["+i+"]/prcpvol", ""); model.setValue("/root/result/prcplist["+i+"]/prcpqty", ""); model.setValue("/root/result/prcplist["+i+"]/prcptims", ""); model.setValue("/root/result/prcplist["+i+ "]/prcpdayno", ""); break; } } for ( i=0; i < srcNodeList.length; i++ ){ destNode.appendChild(srcNodeList.item(i).cloneNode(true)); } model.refresh(); fPrcpSave_old( prcpflag, savekindflag, "", "N" ); // by sonjy 20100303 ¼öÁ¤ ÀÓ½Ãó¹æÀúÀå½Ã ÀÎÁõÀúÀåÀ¸·Î °¡´Â ¿À·ù ¼öÁ¤. return false; } } var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist" ); if ( prcpErrList.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/prcperrlist/prcpcd"))){ //20080928 ¸¶Á¤¹Î ¼öÁ¤ º´¿ë±Ý±â, ¿¬·É±Ý±â¸¸ ÀÖÀ» °æ¿ì¿¡´Â »çÀ¯ÀÔ·ÂÇϸé ó¹æ ³¾¼ö ÀÖµµ·Ï ó¸® var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist"); var flag = ""; var errPrcpCd = ""; var errRowNum = ""; var errorCnt = 0; var bfJudgErrorCnt = 0; // »çÀü½É»ç °ü·Ã ³»¿ëÀº µû·Î ó¸®Çϱâ À§Çؼ­ ·ÎÁ÷ Ãß°¡ var kdurCnt = 0;// 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë¿ë·®, ÃÖ´ë±â°£, ÃÖ´ë¿ë·® ÀúÇÔ·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É var kimbuCnt = 0;// 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀӺαݱâüũ ÈÄ °æ°í ¸Þ½ÃÁöÈÄ Ã³¹æÀúÀå °¡´É for ( var i=1; i <= srcNodeList.length; i++ ) { flag = model.getValue ( "/root/result/prcperrlist[" + i + "]/flag" ); if ( flag == "1" ) { errorCnt++; } else if (flag == "9") { // »çÀü½É»ç¿¡ °ü·ÃÇÑ ¿¡·¯³»¿ëÀº µû·Î ó¸®ÇÑ´Ù. 2010. 10. 08 ±è¿µÇÐ if ( prcpgenrflag == "O" ) { //¿Ü·¡ »çÀü½É»çÀÎ °æ¿ì »çÀü½É»ç ÆË¾÷À» ¶ç¿ì°í bfJudgErrorCnt++; }else{ //ÀÔ¿ø »çÀü½É»çÀÎ °æ¿ì ¹Ù·Î ºñ±Þ¿©·Î º¯°æ (2010.12.30 JJE, °æºÏ´ë ÀÌÀºÁ¤¼±»ý´Ô ¿äû) errPrcpCd = model.getValue ( "/root/result/prcperrlist[" + i + "]/prcpcd" ); errRowNum = model.getValue ( "/root/result/prcperrlist[" + i + "]/errrow" ); var ChngInsuKindList = model.instances(0).selectNodes( "/root/result/savedrprcplist[prcpcd='"+errPrcpCd+"']" ); if( ChngInsuKindList.length > 0 ){ for(var bfRow=0; bfRow < ChngInsuKindList.length; bfRow++ ) { var bfNode = ChngInsuKindList.item(bfRow); var bfPayFlagCdNode = bfNode.selectSingleNode("payflagcd"); var chngPayFlagCd = ""; if( errRowNum == "2" ) chngPayFlagCd = errRowNum; //ÀÏ¹Ý else chngPayFlagCd = "1"; //ºñ±Þ¿© model.setValue(bfPayFlagCdNode, chngPayFlagCd); //var bfDrPrcpEtc9Node = bfNode.selectSingleNode("drprcpetc9"); //model.setValue(bfDrPrcpEtc9Node, "Y"); } } } } else if (flag == "4") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀӺαݱâüũ ÈÄ °æ°í ¸Þ½ÃÁö¶ç¿ì´Â °æ¿ì kimbuCnt++; } else if (flag == "5") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë¿ë·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É kdurCnt++; } else if (flag == "6") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë±â°£ »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É kdurCnt++; } else if (flag == "7") { // 2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀúÇÔ·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É kdurCnt++; } } xpt = window.screenleft + 180; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; if ( errorCnt > 0 ) { open ( "SPMMO00600", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //¿À·ùÆË¾÷ } else { // »çÀü½É»ç ¿ä±¸Ã¢ ÆË¾÷ if ( bfJudgErrorCnt > 0) { clearParameter("SPMMO21500_rntValue"); //parameter ÃʱâÈ­(2011.01.31 JJE) modal ( "SPMMO21500", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //¿À·ùÆË¾÷ } } if ( errorCnt > 0 ) { var errrow = 1; //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 var DcErrArray = new Array(); var dcprcppkspec = ""; var iDcRow = 0 ; //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 for ( var i=1; i<=prcpErrList.length; i++ ) { if (model.getValue ("/root/result/prcperrlist[" + i + "]/flag") == "1") { errrow = model.getValue ("/root/result/prcperrlist[" + i + "]/errrow"); //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 dcprcppkspec = model.getValue ("/root/result/prcperrlist[" + i + "]/dcprcppkspec"); //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 if ( !isNull(errrow) && errrow > 0 && errrow < grd_prcplist.rows -1 ) { model.setValue ("/root/main/prcp/prcplist[" + errrow + "]/tempcol9", "#ff6600"); //ÀÀ±Þó¹æ ÇÒ ¼ö ¾ø´Â ó¹æÄÚµå ¼öÁ¤ if(model.getValue("/root/main/prcp/prcplist[" + errrow + "]/erprcpflag") == "Y"){ model.setValue("/root/main/prcp/prcplist[" + errrow + "]/erprcpflag", 'N'); model.setValue("/root/main/prcp/prcplist[" + errrow + "]/prcpnm", model.getValue("/root/main/prcp/prcplist[" + errrow + "]/orgprcpnm") ); model.setValue("/root/main/prcp/prcplist[" + errrow + "]/prcprefseq","0" ); } } else if ( !isNull(dcprcppkspec) ){ //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 DcErrArray[iDcRow] = dcprcppkspec ; iDcRow ++; } //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 } } fPrcpColor(); //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ ½ÃÀÛ by ¼ÕÁÖ¿¬ 2008-06-30 if( iDcRow > 0 ){ if( btn_ivbfprcp.selected == true && model.getValue("/root/bfinityn") == "Y" ){ if ( model.getValue ( "/root/cp") != "Y" ) { ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray); }else{ ivw_prcp3.window.javascript.fSetErrDCRow(DcErrArray); } } } //dcó¹æ »öº¯°æÀ» À§ÇÑ ¼öÁ¤ Á¾·á by ¼ÕÁÖ¿¬ 2008-06-30 fClearSaveInstance(); model.removeNodeset("/root/result/prcperrlist"); return false; } if ( bfJudgErrorCnt > 0 ) { // »çÀü½É»ç °ü·Ã ¸Þ½ÃÁö âÀÌ ¶¹À» °æ¿ì À̺¥Æ®Ã³¸® var bfRtnValue = getParameter("SPMMO21500_rntValue"); if (bfRtnValue == "REQ") { model.removeNodeset("/root/result/prcperrlist"); if ( isNull ( model.getValue ( "/root/main/prcp/prcplist[status='I' or status='D' or status='U']/prcpcd" ))) { if (isNull(model.getValue ( "/root/main/diaginfo/diagcdlist[status='I' or status='D' or status='U']/diagcd" ))) { messageBox ( "»çÀü½É»çÇÒ Ã³¹æ ¹× Áø´ÜÀÌ ¾ø½À´Ï´Ù.", "E" ); fClearSaveInstance(); model.removeNodeset("/root/result/prcperrlist"); return false; } } if ( !fPrcpSave_old("0", "1")) { model.removeNodeset ( "/root/prcpdc/prcplist" ); } fClearSaveInstance(); return false; } else if (bfRtnValue == "chgPayFlag") { model.removeNodeset("/root/result/prcperrlist"); var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length; var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length; if ( savePrcpListLen > 0 || saveDiagListLen >0 ) { //fPrcpSave_old( "", "", "", "N" ); fPrcpSave_old( prcpflag, savekindflag, "", "N" ); } return false; } else { fClearSaveInstance(); model.removeNodeset("/root/result/prcperrlist"); return false; } } } } //kimsj ¼öÇ÷µ¿ÀǼ­ ¸Þ¼¼Áö if ( model.getValue ("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn") == "Y" ) { var ocryndaymsg = model.getValue ( "/root/hidden/ocrbldyn/ocrbldyn/ocrynday" ); messageBox("ù ¼öÇ÷À̰ųª ¸¶Áö¸· ¼öÇ÷½ÃÇàÀϷκÎÅÍ " + ocryndaymsg + "ÀÏ ÀÌ»óÀÌ °æ°úÇÏ¿´À¸´Ï \n ¼öÇ÷µ¿ÀǼ­¸¦ ÀÛ¼ºÇØÁֽñ⠹ٶø´Ï´Ù.", "E"); model.removenode("/root/hidden/ocrbldyn/ocrbldyn/ocrmsgyn"); } if (savekindflag != 1) { //ÀÓ½ÃÀúÀåÀÌ ¾Æ´Ò¶§ var antibioreq = model.instances(0).selectNodes( "/root/result/antibioreq" ); // Á¦ÇÑÇ×»ýÁ¦ ½ÅûÁ¤º¸ if ( antibioreq.length > 0 ) { for ( var i=1; i <= antibioreq.length; i++ ) { var sMsg = model.getValue ( "/root/result/antibioreq[" + i + "]/antibioreq_msg"); if ( sMsg != "" && messageBox ( sMsg, "Q" ) != "6") { fClearSaveInstance(); model.removeNodeset("/root/result/antibioreq"); return false; } } } var qestflagcnt = 0; var limprcplist = model.instances(0).selectNodes( "/root/result/limprcplist" ); // º¸ÇèÁ¦ÇÑó¹æ if ( limprcplist.length > 0 ) { for ( var i=1; i <= limprcplist.length; i++ ) { if ( model.getValue ( "/root/result/limprcplist[" + i + "]/qestflag") != "M" ) { qestflagcnt++; } } if ( qestflagcnt == 0 && getRegistryPrcp ( "limprcp|"+getCurrentDate()) == "Y" ) { } else { if ( !isNull(model.getValue ( "/root/result/limprcplist/calcscorcd"))) { xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; var rowid = 0 for ( var k=1; k <= limprcplist.length; k++ ){ rowid = eval(model.getValue ( "/root/result/limprcplist[" + k + "]/rowid" )); var displayprcpnm = rowid + ". " + model.getValue ( "/root/result/limprcplist[" + k + "]/calcscorcd" ) + "\n" + "[" + model.getValue ( "/root/result/limprcplist[" + k + "]/prcpnm") + "]"; model.setValue ( "/root/result/limprcplist[" + k + "]/displayprcpnm", displayprcpnm ); } modal ( "SPMMO00900", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); model.removeNodeset("/root/result/limprcplist"); if ( getParameter ( "SPMMO00900_rtnyn" ) == "Y" ) { clearParameter ( "SPMMO00900_rtnyn" ); var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length; var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length; if ( savePrcpListLen > 0 || saveDiagListLen >0 ) { //fPrcpSave_old( "", "", "", "N" ); fPrcpSave_old( prcpflag, savekindflag, "", "N" ); } return false; } else if ( getParameter ( "SPMMO00900_rtnyn" ) == "C" ) { //msg¸¸ ÀÖ´Â °ÍÀ̶ó¸é ±×³É ÁøÇàÇÔ } else { return false; } } } } // º¸ÇèÁ¦ÇÑ󹿳¡ var duplprcplist = model.instances(0).selectNodes( "/root/result/duplprcplist" ); //ó¹æÁߺ¹Ã¼Å© if ( duplprcplist.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/duplprcplist/prcpnm"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO14100_rtn1" ) modal ( "SPMMO14100", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO14100_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/duplprcplist"); return false; } } } var warnprcplist = model.instances(0).selectNodes( "/root/result/warnprcplist" ); //ÁÖÀÇ¿ä¸Á ó¹æÃ¼Å© if ( warnprcplist.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/warnprcplist/prcpnm"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO14101_rtn1" ) modal ( "SPMMO14101", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO14101_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/warnprcplist"); return false; } } } //DUR - E //ÇâÁ¤½Å¼º ÀǾàǰ 30ÀÏ ÀÌ»ó ó¹æÀÏ °æ¿ì ó¹æ »çÀ¯¸¦ ÀԷ¹޵µ·Ï ¼öÁ¤ var spclhdrugprcplist = model.instances(0).selectNodes( "/root/result/spclhdrugprcplist" ); //ó¹æÁߺ¹Ã¼Å©(¼ººÐ) if ( spclhdrugprcplist.length > 0 ) { if ( !isNull(model.getValue ( "/root/result/spclhdrugprcplist/prcpnm"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO21800_rtn1" ); modal ( "SPMMO21800", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO21800_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/spclhdrugprcplist"); return false; } } } //ó¹æ »çÀ¯ ÀÔ·Ââ ÆË¾÷ ¿©ºÎ (2011.12.28 ¾ö¿µ¸¸) var checkprcpresn = model.instances(0).selectNodes( "/root/result/checkprcpresn" ); if ( checkprcpresn.length > 0 ) { // 󹿻çÀ¯ ÀÔ·ÂÇ׸ñÀÌ ÀÖÀ»°æ¿ì ÆË¾÷ if ( !isNull(model.getValue ( "/root/result/checkprcpresn/prcpcd"))){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO50100_rtn1" ); modal ( "SPMMO50100", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO50100_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/checkprcpresn"); return false; } } } //±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹× º£Å¸Â÷´Üü ó¹æ ¿©ºÎ (2011.09.16 ¾ö¿µ¸¸) var amidschprcpinfo = model.instances(0).selectNodes( "/root/result/amidschprcpinfo" ); //¾Æ½ºÇǸ° ¹× º£Å¸Â÷´Üü ó¹æ ¿©ºÎ if ( amidschprcpinfo.length > 0 ) { //±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹Ì󹿻çÀ¯ if (model.getValue ( "/root/result/amidschprcpinfo/asprinyn") == "N"){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO21900_rtn1" ); clearParameter ( "SPMMO21900_hardcdno" ); clearParameter ( "SPMMO21900_title" ); clearParameter ( "SPMMO21900_resncode" ); clearParameter ( "SPMMO21900_resncmt" ); setParameter("SPMMO21900_hardcdno", "311"); // ÇϵåÄÚµå 311 ±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹Ì󹿻çÀ¯ setParameter("SPMMO21900_title", "±Þ¼º½É±Ù°æ»ö Åð¿ø¾à ¾Æ½ºÇǸ° ¹Ì󹿻çÀ¯"); modal ( "SPMMO21900", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/amidschprcpinfo"); return false; } var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid" , model.getValue( "/root/initsrchcond/pid")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd" , model.getValue( "/root/initsrchcond/orddd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno" , model.getValue( "/root/initsrchcond/cretno")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype" , model.getValue( "/root/initsrchcond/ioflag")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno" , "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag" , "005"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd" , getParameter("SPMMO21900_resncode")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts" , getParameter("SPMMO21900_resncmt")); } //±Þ¼º½É±Ù°æ»ö Åð¿ø¾à º£Å¸Â÷´ÜÁ¦ ¹Ì󹿻çÀ¯ if (model.getValue ( "/root/result/amidschprcpinfo/antibetayn") == "N"){ xpt = window.screenleft + 100; ypt = window.screenTop + 50; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO21900_rtn1" ); clearParameter ( "SPMMO21900_hardcdno" ); clearParameter ( "SPMMO21900_title" ); clearParameter ( "SPMMO21900_resncode" ); clearParameter ( "SPMMO21900_resncmt" ); setParameter("SPMMO21900_hardcdno", "312"); // ÇϵåÄÚµå 312 ±Þ¼º½É±Ù°æ»ö Åð¿ø¾à º£Å¸Â÷´ÜÁ¦ ¹Ì󹿻çÀ¯ setParameter("SPMMO21900_title", "±Þ¼º½É±Ù°æ»ö Åð¿ø¾à º£Å¸Â÷´ÜÁ¦ ¹Ì󹿻çÀ¯"); modal ( "SPMMO21900", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO21900_rtn1" ) != "Y" ) { model.removeNodeset("/root/result/amidschprcpinfo"); return false; } var savesujinresn = model.instances(0).selectNodes("/root/result/savesujinresn"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resndd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_pid" , model.getValue( "/root/initsrchcond/pid")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddd" , model.getValue( "/root/initsrchcond/orddd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_cretno" , model.getValue( "/root/initsrchcond/cretno")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_orddeptcd" , model.getValue( "/root/initsrchcond/orddeptcd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_ordtype" , model.getValue( "/root/initsrchcond/ioflag")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpdd" , model.getValue( "/root/initsrchcond/prcpdd")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcpno" , "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_prcphistno", "0"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resnflag" , "006"); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncd" , getParameter("SPMMO21900_resncode")); model.makeValue("/root/result/savesujinresn["+ (savesujinresn.length + 1)+"]/resn_resncnts" , getParameter("SPMMO21900_resncmt")); } } if ( !isNull(model.getValue ( "/root/result/savetnmlist/pid" )) || !isNull(model.getValue ( "/root/result/savecncrlist/pid" ))) { //º´±âºÐ·ù xpt = window.screenleft + 300; ypt = window.screenTop; coord = getRelativeCoordinate ( xpt, ypt ); mon = coord[0]; xpt = coord[1]; ypt = coord[2]; clearParameter ( "SPMMO08400_rtn1" ) modal ( "SPMMO08400", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/tempresult", "", false ); if ( getParameter ( "SPMMO08400_rtn1" ) != "Y" ){ return false; } } // 20100108 ÇÑÀç»ó - À¯ÀüÀÚ°Ë»ç µ¿ÀǼ­ Ãâ·Â¹æ½Ä º¯°æ (OCR -> REX) var atadPrcpNodes = instance1.selectNodes("/root/result/savedrprcplist[tempcol13='A' and status='I']"); model.removeNodeSet("/root/hidden/atadinfo"); model.removeNodeSet("/root/hidden/geneunitlist"); if( atadPrcpNodes.length > 0 ) { model.makeValue("/root/hidden/atadinfo", ""); for(var m=0; m < atadPrcpNodes.length; m++ ){ var node = atadPrcpNodes.item(m); var atadNode = node.selectSingleNode("tempcol14"); var atadNodeArray = atadNode.text.split("¢Ë"); model.makeValue("/root/init/atadinfo/row/instcd", atadNodeArray[0]); model.makeValue("/root/init/atadinfo/row/prcpdd", atadNodeArray[1]); model.makeValue("/root/init/atadinfo/row/prcpno", atadNodeArray[2]); model.makeValue("/root/init/atadinfo/row/pid", atadNodeArray[3]); model.makeValue("/root/init/atadinfo/row/orddd", atadNodeArray[4]); model.makeValue("/root/init/atadinfo/row/cretno", atadNodeArray[5]); model.makeValue("/root/init/atadinfo/row/patnm", getPatientInfoDetail("hngnm") ); //alert(atadNode+" ## "+atadNodeArray[7]); var gender = atadNodeArray[7].substr(6, 1); var regYY = parseInt(atadNodeArray[7].substr(0, 2)); if(gender == '3' || gender == '4' || gender == '7' || gender == '8') { regYY += 2000; } else if(gender == '0' || gender == '9') { regYY += 1800; } else { regYY += 1900; } model.makeValue("/root/init/atadinfo/row/rrgstno", regYY + atadNodeArray[7].substr(2, 5)); model.makeValue("/root/init/atadinfo/row/drnm", getUserInfo("usernm") ); gender = atadNodeArray[9].substr(6, 1); regYY = parseInt(atadNodeArray[9].substr(0, 2)); if(gender == '3' || gender == '4' || gender == '7' || gender == '8') { regYY += 2000; } else if(gender == '0' || gender == '9') { regYY += 1800; } else { regYY += 1900; } model.makeValue("/root/init/atadinfo/row/drbrthdd", regYY + atadNodeArray[9].substr(2, 4)); model.makeValue("/root/init/atadinfo/row/prcpcd", atadNodeArray[10]); model.makeValue("/root/init/atadinfo/row/prcpnm", atadNodeArray[11]); model.makeValue("/root/init/atadinfo/row/deptengabbr", atadNodeArray[12]); model.makeValue("/root/init/atadinfo/row/roomcd", atadNodeArray[13]); model.makeValue("/root/init/atadinfo/row/prcpgenrflag", atadNodeArray[14]); model.makeValue("/root/init/atadinfo/row/centcd", model.getValue("/root/paminfo/list/centnm") ); model.makeValue("/root/init/atadinfo/row/ocrtag", atadNodeArray[16]); model.makeValue("/root/init/atadinfo/row/formcd", atadNodeArray[17]); model.makeValue("/root/init/atadinfo/row/formfromdt", atadNodeArray[18]); model.makeValue("/root/init/atadinfo/row/pagenum", atadNodeArray[19]); //model.makeValue("/root/init/atadinfo/row/pagenum", "3"); model.makeValue("/root/init/atadinfo/row/execprcpuniqno", atadNodeArray[20]); model.makeValue("/root/init/atadinfo/row/pattelno", atadNodeArray[21]); model.makeValue("/root/init/atadinfo/row/pataddr", atadNodeArray[22]); model.makeValue("/root/init/atadinfo/row/patsex", atadNodeArray[23]); model.makeValue("/root/init/atadinfo/row/instnm", atadNodeArray[24]); model.makeValue("/root/init/atadinfo/row/insttelno", atadNodeArray[25]); copyNodeType("/root/hidden/atadinfo", "/root/init/atadinfo", "after"); } modal("SPMMO21000", "", "", "", "", "/root/hidden/atadinfo", "/root/main/prcplist"); var atadInfoNodes = instance1.selectNodes("/root/hidden/geneunitlist"); if( atadInfoNodes.length > 0 ) { } else return false; } } //20080620 ¸¶Á¤¹Î ¼öÁ¤ ¸¶°¨ÈÄ ¹Ýȯ üũ ¹× »çÀ¯ ÀÔ·Â fEndAftDC(); fClearSaveInstance(); //model.addlog(" SPEED CHECK END OF ¿À·ù/»çÀ¯ ó¸®"); //model.addlog(" SPEED CHECK START OF DURó¸®(ó¹æÀü³»)"); //2011-12-19 mjm °æºÏ´ë »õ·Î¿î DUR Àû¿ë if( model.getValue("/root/initsrch/durappyn/trgtcd") == "K" && fGetHardCDList("Y", 404, 3) == "Y" ) { //20111219 ±¸DUR Àû¿ë ( HARDCDNO => 404 ) //2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÃÖ´ë¿ë·®, ÃÖ´ë±â°£, ÃÖ´ë¿ë·® ÀúÇÔ·® »çÀ¯ÀÔ·ÂÈÄ Ã³¹æÀúÀå °¡´É if( kdurCnt > 0 ) { clearParameter ( "SPMMO16101_rtn1" ); clearParameter ( "SPMMO16101_rtn2" ); modal ( "SPMMO16101", mon, xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) { var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } return false; } else { if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){ fPrcpSave_old( prcpflag, savekindflag, "", "N" ); return false; } } } //2010-11-29 À̼±°æ Ãß°¡ : °æºÏ´ë¿ë DUR ÀӺαݱâ üũÁß falg°ªÀÌ 4ÀÎ °æ¿ì °æ°í¸Þ½ÃÁö ¶ç¿ì°í ó¹æÀúÀå °¡´É if( kimbuCnt > 0 ) { var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist"); var flag = ""; var prcpcd = ""; var prcpnm = ""; var prcperr = ""; var sAlertMsg = ""; for(var j =1; j <= srcNodeList.length; j++ ) { flag = model.getValue ( "/root/result/prcperrlist[" + j + "]/flag" ); if(flag == "4") { prcpcd = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcpcd" ); prcpnm = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcpnm" ); prcperr = model.getValue ( "/root/result/prcperrlist[" + j + "]/prcperr" ); if(sAlertMsg == "") { sAlertMsg = "[ÀǾàǰ ó¹æÁö¿ø ¼­ºñ½º(DUR) Á¤º¸]\n ¾Æ·¡ÀÇ Ã³¹æÀº Çѹø ´õ È®ÀÎ ÇϽñ⠹ٶø´Ï´Ù.!"; } sAlertMsg = sAlertMsg + "\n\n" + prcpnm + "[" + prcpcd + "]" + "Àº(´Â) " + prcperr; var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } } } if (sAlertMsg != "") { messageBox(sAlertMsg, "I999"); } } } //model.addlog(" SPEED CHECK END OF DURó¸®(ó¹æÀü³»)"); //model.addlog(" SPEED CHECK START OF µ¿ÀǼ­Ãâ·Â"); if ( savekindflag != 1 && signyn == "Y" ) { var signbfcnts = model.getValue ( "/root/result/signprcplist/signprcp_signbfcnts" ); var setnode = "/root/result/signprcplist/signprcp_signaftcnts"; var signid = getUserInfo ("userid"); var signopt = false; // ÀÀ±Þ½ÇȯÀÚÁß ÇϵåÄڵ忡 µî·ÏµÇ¾î ÀÖ´Â °ú Àǻ簡 ·Î±×ÀÎ ÈÄ Ã³¹æÀ» ³¾ °æ¿ì¿¡´Â ÀÎÁõÀúÀåÀ» Çѹø¸¸ ÇÏ°Ô ÇÔ.(¿Ü·¡¿Í µ¿ÀÏÇÏ°Ô Ã³¸®) var sPD = model.getValue("/root/hidden/securelimitdeptlist/hardcd[hardcd = '" + getUserInfo("dutplcecd") + "']/hardcd");; if ( prcpgenrflag != "O" && !(prcpgenrflag == "E" && sPD != "") ) { signopt = true; } // ÀÔ¿ø ¶Ç´Â ÀÀ±ÞÀÏ °æ¿ì // 20111201 knuh ÃÖ¿øµ· // ±â·Ï/ó¹æ Á÷Àü ÀÎÁõÀúÀåÀÌ Á¤ÇØÁø ½Ã°£(ºÐ ´ÜÀ§, ÇϵåÄÚµå 401) À̳»À̸é ÀÎÁõ¼­¸¦ ¶ç¿ìÁö ¾ÊÀ½(1/2) // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js // ¶ç¿ìÁö ¾Ê´Â ·ÎÁ÷ var ls_emrinptsavetime = fGetHardCDList("Y", 401, 3); var ll_emrinptsavetime = ls_emrinptsavetime == "" ? 0 : parseInt(ls_emrinptsavetime) * -1; if ( ( prcpgenrflag == "I" || prcpgenrflag == "E") && ll_emrinptsavetime < 0 && getGlobalVariable("emrinptsavetime") >= getCurrentDateTime().toDate("YYYYMMDD hhmmss").getAddDate(ll_emrinptsavetime, "m").getDateFormat("YYYYMMDD hhmmss")) { signopt = false; } //ó¹æÀÎÁõ var v_stext = fSaveSign ( signbfcnts, signid, signopt, setnode ); if ( v_stext != "N" ) { if (isNull( v_stext )) { return false; } fAppendSaveNode( "/root/send/cond2", "/root/result/signprcplist" ); //ÀÇ»ç󹿵¥ÀÌÅÍ signopt = false; //Áø´Ü¿¡¼­ ¶Ç ¾È¶ç¿ì±â À§Çؼ­ false·Î ¼öÁ¤ } signbfcnts = model.getValue ( "/root/result/signdiaglist/signdiag_signbfcnts" ); setnode = "/root/result/signdiaglist/signdiag_signaftcnts"; //Áø´ÜÀÎÁõ v_stext = fSaveSign ( signbfcnts, signid, signopt, setnode ); if ( v_stext != "N") { if (isNull(v_stext)) { return false; } fAppendSaveNode( "/root/send/cond2", "/root/result/signdiaglist" ); //ÀÇ»ç󹿵¥ÀÌÅÍ } } if (savekindflag != 1) { //JJE (CP´Â ´çÀÏ+¹Ì·¡ ¸ðµçó¹æ ÀúÀå Á¾·á ÈÄ ÇѲ¨¹ø¿¡ Ãâ·Â) //CP ÀÓ½Ãó¹æ ÀúÀå½Ã ¼öÇàÇϵµ·Ï ¼öÁ¤(2008.10.20 JJE) if ( model.getValue ( "/root/cp") != "Y" ) { if (!isNull(ocrcalcscorcd)){ //OCR ÀÚµ¿Ãâ·Â ocrcalcscorcd °ªÀº MMO001¿¡ global·Î ¼±¾ð. °ªÀº fPrcpSaveChkaft¿¡¼­ üũÇÑ´Ù. fOcrAutoPrint(ocrcalcscorcd); fSetOcrTagNum(); // ¿µ»óÇаú¿¡¼­ OCR È®ÀÎÀ» À§ÇØ Äڵ庰 Å×±× ¼ÂÆÃ - 20081029 by MoonSH ocrcalcscorcd = ""; } } // 20100108 ÇÑÀç»ó - À¯ÀüÀÚ°Ë»ç µ¿ÀǼ­ Ãâ·Â¹æ½Ä º¯°æ (OCR -> REX) var atadInfoNodes = instance1.selectNodes("/root/hidden/geneunitlist"); if( atadPrcpNodes.length > 0 ) { if(submit("TXMMO21001")){ exeReportPreview("RPMMO21001", "XMLSTR" , "/root/hidden/geneunitlist" , "" , "true" , "", "", "", "", "", "", "grp_report"); fOcrAutoPrint(model.getValue("/root/init/atadinfo/row/prcpcd")+ "¢Ë"); var orddrid = "" if (model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") == "O" || model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") == "S" ) { orddrid = model.getValue("/root/paminfo/list/orddrid") } else { orddrid = model.getValue("/root/paminfo/list/medispclid"); } if( ! fSaveOCRIF(model.getValue("/root/hidden/atadinfo/row[1]/ocrtag") , model.getValue("/root/hidden/atadinfo/row[1]/pid") , model.getValue("/root/hidden/atadinfo/row[1]/orddd") , model.getValue("/root/hidden/atadinfo/row[1]/cretno") , model.getValue("/root/hidden/atadinfo/row[1]/prcpgenrflag") , model.getValue("/root/paminfo/list/orddeptcd") , orddrid , model.getValue("/root/hidden/atadinfo/row[1]/formcd") , model.getValue("/root/hidden/atadinfo/row[1]/formfromdt") , "", "", 1) ) { messageBox("À¯ÀüÀڰ˻絿ÀǼ­ IF ÀúÀå½Ã ¿À·ù¹ß»ý", "I"); } } } //¼±ÅÃÁø·á µ¿ÀǼ­¸¦ Ãâ·ÂÇÑ´Ù. // 2010. 12. 30 ±è¿µÇÐ °æºÏ´ë ¹öÁ¯ ¼öÁ¤ var returnVal = fGetHardCDList("Y", 266, 3); if (returnVal == "Y" ) { fPrltPartSpclDrList() } } //2011. 01. 09 ÀÎÁõÀúÀåÀü ȯÀÚÀÇ Áø·á¿¹¾à¿©ºÎ¸¦ È®ÀÎÇÑ´Ù. if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { // ¿Ü·¡ ¿¹¾à âÀ» ÆË¾÷ ÇÑ´Ù. if (savekindflag == "0" && model.getValue ( "/root/addprcp" ) != "Y" ){ var returnVal = fGetHardCDList("Y", 269, 3); var prcpsavebtnflag = model.getValue("/root/init/prcpsavebtnflag"); if ((returnVal == "N" || prcpsavebtnflag == "2") && model.getValue("/root/paminfo/list/ordtype") == "O" ) { var maxdayno = 0; for (rowno = 0 ; rowno < grd_prcplist.rows; rowno++ ) { var chkmaxdayno = model.getValue ( "/root/main/prcp/prcplist[" + rowno + "]/maxdayno" ); if (chkmaxdayno <= maxdayno ) { maxdayno = maxdayno ; } else { maxdayno = chkmaxdayno } } var todd = (getCurrentDate().toDate()).getAddDate(maxdayno); setParameter("SMPMO00300_PARM1", model.getValue ( "/root/paminfo/list/orddeptcd" )); //Áø·á°úÄÚµå setParameter("SMPMO00300_PARM2", orddrid); //Áø·áÀÇ»çÄÚµå setParameter("SMPMO00300_PARM3", model.getValue ( "/root/paminfo/list/pid" )); //ȯÀÚ¹øÈ£ setParameter("SMPMO00300_PARM4", todd); // ¿¹¾àÀÏÀÚ fPrcpModal ("SMPMO00300", 0, 80); clearParameter("SMPMO00300_PARM1"); clearParameter("SMPMO00300_PARM2"); clearParameter("SMPMO00300_PARM3"); clearParameter("SMPMO00300_PARM4"); } } } fAppendSaveNode( "/root/send/cond2", "/root/result/savedrprcplist" ); //ÀÇ»ç󹿵¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/saveexecprcplist" ); //½Ç½Ãó¹æ ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savediaglist" ); //Áø´ÜÀúÀå ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savepamlist" ); //¿ø¹«Á¤º¸ ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savematrprcplist" ); //Àç·áó¹æÁ¤º¸ ÀúÀåµ¥ÀÌÅÍ fAppendSaveNode( "/root/send/cond2", "/root/result/savesujinresn" ); //¼öÁøº° 󹿻çÀ¯ µ¥ÀÌÅÍ (2011.09.15 ¾ö¿µ¸¸) ±Þ¼º½É±Ù°æ»ö ȯÀÚ Åð¿ø¾à(º£Å¸Â÷´ÜÁ¦,¾Æ½ºÇǸ°) ¹Ì¹ßÇà »çÀ¯ ÀÔ·ÂÀ» À§ÇØ »ý¼º fAppendSaveNode( "/root/send/cond2", "/root/result/bfjudgeprcplist" ); //¿Ü·¡ »çÀü½É»ç Áß ´©Àû°ü·Ã ó¹æ µ¥ÀÌÅÍ (2010.12.27 JJE) fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchklist" ); //DUR Á¡°ËÀÏ¹Ý Àü¹®(20120101 °í½Ã½ÃÇà 11/11/24cys) fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkinfo" ); //DUR Á¡°Ë¾àǰ Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" ); //DUR Á¡°Ë°á°ú Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" ); //DUR Ãë¼ÒÀü¹® if ( prcpgenrflag != "O" && prcpgenrflag != "S" ) { //Åð¿øÈÄ ¿Ü·¡Ã³¹æ ÀúÀå setting fAppendSaveNode( "/root/send/cond2", "/root/result/dschflaginfo" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschpamlist" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschdrprcplist" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschexecprcplist" ); fAppendSaveNode( "/root/send/cond2", "/root/result/dschmatrprcplist" ); //Á¦ÇÑÇ×»ýÁ¦ °ü·Ã fAppendSaveNode( "/root/send/cond2", "/root/result/antibioreq" ); //Á¦ÇÑÇ×»ýÁ¦ ½ÅûÁ¤º¸ (2013.01.10 ¾ö¿µ¸¸) fAppendSaveNode( "/root/send/cond2", "/root/result/antibioprcp" ); //Á¦ÇÑÇ×»ýÁ¦ ó¹æÁ¤º¸ (2013.01.10 ¾ö¿µ¸¸) } //20080909 ½ÃÇàºÎ¼­Ã³¹æ if ( model.getValue ( "/root/formerkey/pseuacptflag" ) == "Y" ) { var saveFormerkey = model.instances(0).selectNodes( "/root/formerkey" ); model.setValue ( "/root/send/cond15", getNodeListCSV(saveFormerkey)); } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step3Elapsed = endStepDate.getTime() - startStepDate.getTime(); // È­¸é ¼­¹ö ¿À·ù ó¸® ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK START OF µ¿ÀǼ­Ãâ·Â"); //model.addlog(" SPEED CHECK END OF ÀúÀå µ¥ÀÌÅÍ º¸Á¤(¿À·ù/»çÀ¯)"); //model.addlog(" SPEED CHECK START OF µ¥ÀÌÅÍ(ó¹æ/Áø´Ü/±âŸ) ÀúÀå"); if (tuningyn == "Y") { // Tuning 1 fInstenceSetAgft_New(aftdcyn , prcpsaveyn , prcpflag); // ÀúÀåÈÄ ÀνºÅϽº ¼ÂÆÃ } if ( model.getValue ( "/root/cp") == "Y" && savekindflag != 1 ) { //openLoadingBar("ÀúÀåÁßÀÔ´Ï´Ù."); //·Îµù¸Þ¼¼Áö open (¹Ì·¡Ã³¹æ ¿À·ù¸®½ºÆ® ÆË¾÷󸮷ΠÀÎÇØ ¸·À½) if ( prcpgenrflag == "O" ) { SubmitTF_SMMMO00110 = submit ( "TXMMP00804", false ); if ( !SubmitTF_SMMMO00110 ) { //TXMMO00101 model.removeNodeSet ( "/root/result"); return false; } }else { SubmitTF_SMMMO00110 = submit ( "TXMMP00803", false ); if ( !SubmitTF_SMMMO00110 ) { //TXMMO00103 model.removeNodeSet ( "/root/result"); return false; } } } else { // 20100412 Åð¿øÃ³¹æ ÀúÀå/DC ½Ã ÀÔÅð¿ø¿ä¾àÁö ±â·Ï ÀÎÅÍÆäÀ̽º Å¿쵵·Ï by LYJ if ( model.getValue ( "/root/init/setprcpyn") == "Y" ) { nodelistRecNode = model.instances(0).selectNodes("/root/result/savedrprcplist[prcpkindcd = 60]"); } model.removeNodeset("/root/result1"); model.removeNodeset("/root/savertninfo"); if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { if (tuningyn == "Y") { // Tuning 3 if ( !submit ( "TXMMO00501", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00101", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } //½ÉÆò¿ø ó¹æÀü°£ »çÀ¯°¡ ÀÖÀ¸¸é ÀÔ·Â 20120101 °í½Ã if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) { //»çÀ¯ÆË¾÷ if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) { model.makeNode("/root/result/kdurchkrslt"); } model.removeNodeset("/root/result/kdurchkrslt"); model.makeNode("/root/result/kdurchkrslt"); for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) { copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+ i +"]", "before"); } model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]"); //DUR Á¡°Ë°á°ú Àü¹® if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) { model.makeNode("/root/result/prcperrlist"); } model.removeNodeset("/root/result/prcperrlist"); model.makeNode("/root/result/prcperrlist"); for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) { copyNodesetType("/root/result/prcperrlist" ,"/root/result1/prcperrlist["+ i +"]", "before"); } model.removeNode("/root/result/prcperrlist[flag = null]"); clearParameter ( "SPMMO16101_rtn1" ); clearParameter ( "SPMMO16101_rtn2" ); modal ( "SPMMO16101", mon, xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false ); if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) { var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } return false; } else { if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){ fPrcpSave_old( prcpflag, savekindflag, "", "N" ); return false; } } model.removeNodeset("/root/result1"); model.removeNodeset("/root/send/cond2/kdurchkrslt"); model.removeNodeset("/root/send/cond2/prcperrlist"); fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" ); //DUR Á¡°Ë°á°ú Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" ); //DUR Ãë¼ÒÀü¹® if (tuningyn == "Y") { // Tuning 4 if ( !submit ( "TXMMO00503", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.removeNodeset("/root/savertninfo"); model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00118", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } } } else { if (tuningyn == "Y") { // Tuning 5 if ( !submit ( "TXMMO00502", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00103", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } //model.addlog(" SPEED CHECK START OF DURó¸®(ó¹æÀü°£)"); //½ÉÆò¿ø ó¹æÀü°£ »çÀ¯°¡ ÀÖÀ¸¸é ÀÔ·Â 20120101 °í½Ã if (getNodesetCount("/root/result1/prcperrlist/prcpcd") > 0) { //»çÀ¯ÆË¾÷ if(getNodesetCount("/root/result/kdurchkrslt/rslt_cmpt_cd") == 0) { model.makeNode("/root/result/kdurchkrslt"); } model.removeNodeset("/root/result/kdurchkrslt"); model.makeNode("/root/result/kdurchkrslt"); for (var i = 1 ; i <= getNodesetCount("/root/result1/kdurchkrslt/rslt_cmpt_cd") ; i++) { copyNodesetType("/root/result/kdurchkrslt" , "/root/result1/kdurchkrslt["+ i +"]", "before"); } model.removeNode("/root/result/kdurchkrslt[rslt_cmpt_cd = null]"); //DUR Á¡°Ë°á°ú Àü¹® if(getNodesetCount("/root/result/prcperrlist/prcpcd") == 0) { model.makeNode("/root/result/prcperrlist"); } model.removeNodeset("/root/result/prcperrlist"); model.makeNode("/root/result/prcperrlist"); for (var i = 1 ; i <= getNodesetCount("/root/result1/prcperrlist/flag") ; i++) { copyNodesetType("/root/result/prcperrlist" , "/root/result1/prcperrlist["+ i +"]", "before"); } model.removeNode("/root/result/prcperrlist[flag = null]"); clearParameter ( "SPMMO16101_rtn1" ); clearParameter ( "SPMMO16101_rtn2" ); modal ( "SPMMO16101", mon, xpt, ypt, "prcpdetl", "/root/result1", "/root/result", "", false ); if ( getParameter ( "SPMMO16101_rtn1" ) != "Y" ) { var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" ); for (var i=1; i<=srcNodeList.length; i++) { model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" ); } return false; } else { if ( getParameter ( "SPMMO16101_rtn2" ) == "D" ){ fPrcpSave_old( prcpflag, savekindflag, "", "N" ); return false; } } model.removeNodeset("/root/result1"); model.removeNodeset("/root/send/cond2/kdurchkrslt"); model.removeNodeset("/root/send/cond2/prcperrlist"); fAppendSaveNode( "/root/send/cond2", "/root/result/kdurchkrslt" ); //DUR Á¡°Ë°á°ú Àü¹® fAppendSaveNode( "/root/send/cond2", "/root/result/kdurcnclyn" ); //DUR Ãë¼ÒÀü¹® if (tuningyn == "Y") {// Tuning 6 if ( !submit ( "TXMMO00504", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } model.removeNodeset("/root/savertninfo"); model.makeNode("/root/savertninfo"); copyNodesetType("/root/savertninfo","/root/result1","replace"); model.removeNodeSet ( "/root/diaginfo/diagcdlist"); model.makeNode ( "/root/diaginfo/diagcdlist"); copyNodesetType("/root/diaginfo/diagcdlist","/root/result1/diagcdlist","replace"); } else { if ( !submit ( "TXMMO00119", false )) { model.removeNodeSet ( "/root/result"); model.resetInstanceNode ( "/root/send" ); model.refresh(); return false; } } } //model.addlog(" SPEED CHECK END OF DURó¸®(ó¹æÀü°£)"); } setPatientInfoDetailByKey("prcpsaveyn", pid+ "|" + model.getValue("/root/init/prcpobjsaveyn")); // ó¹æÀÌ ÀúÀåµÈ°ÍÀ» »ó´Ü¿¡ ¿Ã·ÁÁØ´Ù. } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step4Elapsed = endStepDate.getTime() - startStepDate.getTime(); // ¼­¹ö ½ÇÁ¦ ÀúÀå ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ //model.addlog(" SPEED CHECK END OF µ¥ÀÌÅÍ(ó¹æ/Áø´Ü/±âŸ) ÀúÀå"); //model.addlog(" SPEED CHECK START OF ÀúÀå ÈÄ Ã³¸®"); //model.addlog(" SPEED CHECK START OF »êÁ¤Æ¯·Ê ó¸®"); var sChkMedicineConsultYn = fGetHardCDList("Y", 315, 3); // 315 Åð¿ø¾à ó¹æ½Ã º¹¾à»ó´ãÀÇ·Ú ÀÚµ¿ÆË¾÷ »ç¿ë ¿©ºÎ var pop_MedicineConsult = "N"; // º¹¾à»ó´ãÀÇ·Ú Ã¢ ÆË¾÷ ¿©ºÎ 2011.10.24 ¾ö¿µ¸¸ (Ä¥°î ¾àÁ¦ºÎ À̼®¹Ì ¿äû) if ( sChkMedicineConsultYn == "Y" && prcpflag == '0' && savekindflag == '0' && !isNull(model.getValue ( "/root/main/prcp/prcplist[(prcpgenrflag='I' or prcpgenrflag='E') and (prcpkindcd='60') and (prcpclscd='A2' or prcpclscd='A4' or prcpclscd='A6')]/prcpcd"))){ pop_MedicineConsult = "Y"; } if ( model.instances(0).selectNodes( "/root/result/savedrprcplist" ).length > 0 ) { prcpsaveyn = "Y"; //JJE 2008.09.08 if(model.getValue("/root/cp") == "Y") prcpsaveyn_SMMMO00110 = "Y"; } //DUR-S //by sonjy 20091216 ó¹æ ÀÎÁõÀúÀå ¼º°øÈÄ ÀÌÀü difguidÃʱâÈ­ // durappyn : "A:DURÀüü»ç¿ë", "Y:DURÁß ÀúÇÔ·®Á¦¿Ü", "³ª¸ÓÁö:DUR »ç¿ë¾ÈÇÔ" , "K:°æºÏ´ë¿ë DUR" if ( model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "A" || model.getValue( "/root/initsrch/durappyn/trgtcd" ) == "Y") { if( prcpchkflag != "N" && saveok == "Y" && savekindflag == "0" && prcpsaveyn == "Y" ){ model.makeValue("/root/init/bf_difguid", ""); } } //DUR-E //20080910 ¸¶Á¤¹Î ¼öÁ¤. ½ÃÇàºÎ¼­Ã³¹æÀº »êÁ¤Æ¯·Ê üũ ¾ÈÇÑ´Ù. if( model.getValue("/root/cp") == "Y" && model.getValue ( "/root/addprcp" ) != "Y" ){ //JJE Á¶°ÇÃß°¡ 2008.09.08 //ÀÎÁõÀúÀåÀÎ °æ¿ì, M-GPSÀÇ Àû¿ë ¹öư À̺¥Æ®¿¡¼­ (´çÀÏ+¹Ì·¡Ã³¹æ ÀúÀå 󸮰¡ ¸ðµÎ ³¡³­ ÈÄ) fGetPrcpSaveAftInfo()¸¦ Á÷Á¢ È£ÃâÇϹǷÎ, ÀÓ½ÃÀúÀå ¶§¿¡¸¸ ¿©±â¿¡¼­ ¼öÇàÇÔ. if( savekindflag == 1 ){ if(tuningyn == "Y") { // tuning 7 fGetPrcpSaveAftInfo_New ( prcpsaveyn ,"Y"); } else { fGetPrcpSaveAftInfo ( prcpsaveyn ,"Y"); } } }else{ if( savekindflag == 1 ) { aftdcyn = "Y"; //ÀÓ½ÃÀúÀåÀÏ °æ¿ì »êÁ¤Æ¯·Ê ¹× ¹ýÁ¤Àü¿°º´ ŸÁö ¾Êµµ·Ï....by sonjy 20081123 } if(tuningyn == "Y") { // tuning 8 fGetPrcpSaveAftInfo_New ( prcpsaveyn ,aftdcyn); //û±¸ÈÄ d/c°¡ ¾Æ´Ò °æ¿ì¸¸ Ÿµµ·Ï parameter Ãß°¡ . by sonjy 20081027 } else { fGetPrcpSaveAftInfo ( prcpsaveyn ,aftdcyn); //û±¸ÈÄ d/c°¡ ¾Æ´Ò °æ¿ì¸¸ Ÿµµ·Ï parameter Ãß°¡ . by sonjy 20081027 } } //model.addlog(" SPEED CHECK END OF »êÁ¤Æ¯·Ê ó¸®"); //model.addlog(" SPEED CHECK START OF °¡¾ßÇÒ°÷ Ãâ·Â"); // ó¹æ ÀúÀåÈÄ È¯ÀÚ °¡¼Å¾ß ÇÒ °÷À» Ãâ·ÂÇÑ´Ù. // 2011. 01. 05. ±è¿µÇÐ // ¿Ü·¡ ȯÀÚ¸¸ Ãâ·ÂÇÑ´Ù. if (savekindflag == "0" && model.getValue ( "/root/addprcp" ) != "Y" && model.getValue ( "/root/cp") != "Y" && (prcpgenrflag == "O" || prcpgenrflag == "S")){ var returnVal = fGetHardCDList("Y", 268, 3); var patgolistprtyn = model.getValue("/root/init/patgolistprtyn"); if ((returnVal == "N" || patgolistprtyn == "Y") && model.getValue("/root/paminfo/list/ordtype") == "O" ) { fPrltPatTogoPlceList(); } } //model.addlog(" SPEED CHECK END OF °¡¾ßÇÒ°÷ Ãâ·Â"); //model.addlog(" SPEED CHECK START OF È­¸é ÀçÁ¶È¸(»ó´Ü/ó¹æ/´ë»óÀÚ)"); if (savekindflag != 1) { var prcpsaveyn = "N"; if ( savedataflag == "0" || savedataflag == "2" ) { prcpsaveyn = "Y"; } if(tuningyn != "Y") { // tuning 8 ÀúÀå ½Ã ·ÎÁ÷À¸·Î ÇÕħ //¼ö¼úÁßó¹æ ¸¶¾àÁý°èÈ£Ãâ if ( model.getValue ( "/root/init/drugbatch" ) == "Y" ) { submit ( "TXMMO00106", false ); } if ( prcpgenrflag == "E" ) { //ÀÀ±ÞÀÏ ¶§ Áø·áÁö¿ø ¿¹¾à¸ðµâ È£Ãâ submit ( "TXMMO00110", false ); } } } model.removeNodeSet ( "/root/main/prcp/prcplist"); appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); model.removeNodeSet ( "/root/result"); model.removeNodeSet ( "/root/result1"); model.removeNodeSet ( "/root/send/cond2" ); model.makeNode ( "/root/send/cond2" ); model.resetInstanceNode ( "/root/send" ); //Ãß°¡Ã³¹æÈ­¸éÀ̸é if ( model.getValue ( "/root/addprcp" ) == "Y" ) { fAddPrcpInitConDone( "", "", "", "", "", "Y" , "" ); } //ioflag¢Ëpid¢Ëorddd¢Ëcretno¢Ëinstcd¢Ëacptseqno¢Ëorgorddd¢Ë //¿Ü·¡/ÀÔ¿ø±¸ºÐ¢Ëµî·Ï¹øÈ£¢ËÁø·áÀÏÀڢ˻ý¼º¹øÈ£¢Ë±â°üÄÚµå¢Ëµî·ÏÀϷùøÈ£¢Ë¿øÁø·áÀÏÀÚ¢Ë var operation = getGlobalVariable("operation"); //¼ö¼ú¿¹¾àÁ¤º¸ set var ioflag = model.getValue ( "/root/paminfo/list/ioflag" ); if ( ioflag == "O" || ioflag == "S" ) { var pid = model.getValue ( "/root/paminfo/list/pid" ); var orddd = model.getValue ( "/root/paminfo/list/orddd" ); var cretno = model.getValue ( "/root/paminfo/list/cretno" ); var instcd = model.getValue ( "/root/paminfo/list/instcd" ); var acptseqno = model.getValue ( "/root/paminfo/list/acptseqno" ); var orgorddd = model.getValue ( "/root/paminfo/list/orgorddd" ); setParameter("condparam", ioflag + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + acptseqno + "¢Ë" + orgorddd ); } else if( ioflag == "D" || ioflag == "I"){ //ÀÔ¿ø(DSC, ÀÔ¿ø) var ioflag = "I"; //ioflag¢Ëpid¢Ëindd¢Ëcretno¢Ëseqno¢Ëinstcd¢Ë //¿Ü·¡/ÀÔ¿ø±¸ºÐ¢Ëµî·Ï¹øÈ£¢ËÀÔ¿øÀÏÀڢ˻ý¼º¹øÈ£¢ËÀϷùøÈ£¢Ë±â°üÄÚµå var pid = model.getValue ( "/root/paminfo/list/pid" ); var indd = model.getValue ( "/root/paminfo/list/indd" ); var cretno = model.getValue ( "/root/paminfo/list/cretno" ); var instcd = model.getValue ( "/root/paminfo/list/instcd" ); var prcpdd = model.getValue ( "/root/init/prcpdd" ); //û±¸ ÈÄ D/C°ü·Ã Ãß°¡ ó¸®...prcpdd¸¦ Åð¿øÈ¯ÀÚÀÏ °æ¿ì Åð¿øÀÏÀ» ³Ñ°Ü ÁØ´Ù. by sonjy 20081027 //±×·¸Áö ¾ÊÀ» °æ¿ì »ó´Ü Á¤º¸ ¿À·ù³². if( model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" && !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){ prcpdd = model.getValue ( "/root/paminfo/list/dschdd" ); } setParameter("condparam", ioflag + "¢Ë" + pid + "¢Ë" + indd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + prcpdd); } else if(ioflag == "E"){ //ÀÔ¿ø(EÀÀ±Þ) var ioflag = "E"; //ioflag¢Ëpid¢Ëindd¢Ëcretno¢Ëseqno¢Ëinstcd¢Ë //¿Ü·¡/ÀÔ¿ø±¸ºÐ¢Ëµî·Ï¹øÈ£¢ËÀÔ¿øÀÏÀڢ˻ý¼º¹øÈ£¢ËÀϷùøÈ£¢Ë±â°üÄÚµå var pid = model.getValue ( "/root/paminfo/list/pid" ); var indd = model.getValue ( "/root/paminfo/list/indd" ); var cretno = model.getValue ( "/root/paminfo/list/cretno" ); var instcd = model.getValue ( "/root/paminfo/list/instcd" ); var prcpdd = model.getValue ( "/root/init/prcpdd" ); //û±¸ ÈÄ D/C°ü·Ã Ãß°¡ ó¸®...prcpdd¸¦ Åð¿øÈ¯ÀÚÀÏ °æ¿ì Åð¿øÀÏÀ» ³Ñ°Ü ÁØ´Ù. by sonjy 20081027 //±×·¸Áö ¾ÊÀ» °æ¿ì »ó´Ü Á¤º¸ ¿À·ù³². if( model.getValue ( "/root/paminfo/list/indschacptstat" ) == "D" && model.getValue ( "/root/paminfo/list/dschdd" ) != "99991231" && !isNull(model.getValue ( "/root/paminfo/list/dschdd" ) ) ){ prcpdd = model.getValue ( "/root/paminfo/list/dschdd" ); } setParameter("condparam", ioflag + "¢Ë" + pid + "¢Ë" + indd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + prcpdd); } var xpt = window.screenleft + 0; var ypt = window.screenTop + 0; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; if ( model.getValue ( "/root/addprcp" ) != "Y" ){//&& prcpchkflag != "clickpatlist" Áø·á´ë»óÀÚ¸®½ºÆ®¿¡¼­ ¼±ÅõǾúÀ»¶§´Â ¸Þ¼¼Áö ¶ç¿ìÁö ¾Ê´Â´Ù. 20100317 LYJ modal("SPMMO08900", mon, xpt, ypt, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;"); } //±âÁ¸ÀÇ ¼ö¼ú¿¹¾à¹øÈ£°¡ ÀÖ´Â °æ¿ì¿¡´Â resetó¸® if( operation != "" ){ setGlobalVariable("operation", operation); } var useyn = getParameter("SPMMO08900_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO08900_rtn_useyn", ""); if ( savedataflag != "2" ) { if(tuningyn == "Y" ) { fPatDiagSrch_New(); } else { fPatDiagSrch(); } } //JJE CPÀÏ °æ¿ì, ´çÀÏ+¹Ì·¡Ã³¹æ ¸ðµÎ ÀúÀå ÈÄ ¸Ç ¸¶Áö¸·¿¡ Áø·á´ë»óÀÚ¸¦ Á¶È¸ÇÑ´Ù (2008.09.11) if ( model.getValue ( "/root/cp" ) == "Y" && savekindflag != 1 ){ return true; } fInitializeConDone("save"); fTempPrcp("save"); //20080818 ¸¶Á¤¹Î ¼öÁ¤: Àüó¹æ Á¶È¸ ÀúÀåÈÄ ¹Ù·Î °¡Á®¿À´Â °É·Î ¼öÁ¤ //ivw_prcp3.window.javascript.fInitialize("init"); if ( model.getValue ( "/root/cp" ) != "Y" && !btn_ivbfprcp.selected) { btn_ivbfprcp.selected = true; ivw_prcp3.visible = true; ivw_prcp.visible = false; //ivw_prcp.src = "SMMMO02100_Àüȸó¹æ.xrw"; }else if ( !btn_ivbfprcp.selected ) { btn_ivbfprcp.selected = true; ivw_prcp3.visible = true; ivw_prcp2.visible = false; //ivw_prcp2.src = "SMMMO02100_Àüȸó¹æ.xrw"; } //20090327 ¸¶Á¤¹Î¼öÁ¤: Â÷»óÀ§ ·ÎÁ÷Ãß°¡ if ( model.getValue ( "/root/paminfo/list/scndyn" ) == "Y" && prcpgenrflag == "O" && savekindflag != 1 ) { fScndChk(); } fInitializeScreen(); //Á¾¼Ó󹿹øÈ£, ¹Í½º¹øÈ£, hsctlnkno ÃʱâÈ­ model.setValue ( "/root/init/inclprcpno", 0 ); model.setValue ( "/root/init/hsctlnkno", 0 ); model.setValue ( "/root/init/prcpmixno", 0 ); var ordPatObj = getOpenWindow("SMMMO04100"); if(ordPatObj != null){ //µÎ °´Ã¼°ªÀÌ ´Ù¸¥ °æ¿ì »õ·Î¿î Áø·á´ë»óÀÚ È­¸éÀ» openÇÔ ordPatObj.javascript.fPrcpCallPatList(); } var ordMiniPatObj = getOpenWindow("SPMMO04200"); if(ordMiniPatObj != null){ //µÎ °´Ã¼°ªÀÌ ´Ù¸¥ °æ¿ì »õ·Î¿î Áø·á´ë»óÀÚ È­¸éÀ» openÇÔ ordMiniPatObj.javascript.fChkGetData(); } } // 20100412 Åð¿øÃ³¹æ ÀúÀå½Ã ÀÔÅð¿ø¿ä¾àÁö ±â·Ï ÀÎÅÍÆäÀ̽º Å¿쵵·Ï by LYJ 20101102 À§Ä¡º¯°æ if ( model.getValue ( "/root/initsrch/getoutprcpsave/trgtcd" ) == "Y" ) { if ( model.getValue ( "/root/paminfo/list/ioflag" ) == "I") { if( nodelistRecNode.length > 0 && model.getValue ( "/root/init/setprcpyn") == "Y" ) { var pid = model.getValue("/root/paminfo/list/pid"); var orddd = model.getValue("/root/paminfo/list/indd"); var cretno = model.getValue("/root/paminfo/list/cretno"); var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); openAutoSaveForm_MMR073("DisChargeSummaryNote_ReDschOrd", pid, orddd, cretno, orddeptcd); } } } //model.addlog(" SPEED CHECK END OF È­¸é ÀçÁ¶È¸(»ó´Ü/ó¹æ/´ë»óÀÚ)"); //model.addlog(" SPEED CHECK END OF ÀúÀå ÈÄ Ã³¸®"); //model.addlog("SPEED CHECK END OF fPrcpSave()"); // ÀÔ¿ø ¶Ç´Â ÀÀ±ÞÀÏ °æ¿ì // 20111201 knuh ÃÖ¿øµ· // ±â·Ï/ó¹æ Á÷Àü ÀÎÁõÀúÀåÀÌ Á¤ÇØÁø ½Ã°£(ºÐ ´ÜÀ§, ÇϵåÄÚµå 401) À̳»À̸é ÀÎÁõ¼­¸¦ ¶ç¿ìÁö ¾ÊÀ½(2/2) // SMMMO00100.js, MMR01300.js, MMR00100.js, SPMRF05200.js // ÀÎÁõÀúÀåµÈ ½Ã°£À» ÀúÀå. if ((prcpgenrflag == "I" || prcpgenrflag == "E") && savekindflag != 1 ) { setGlobalVariable("emrinptsavetime", getCurrentDateTime()); } if(pop_MedicineConsult == "Y") { modal("SPADC62100", "", 200, 200); } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step5Elapsed = endStepDate.getTime() - startStepDate.getTime(); // È­¸é ÀúÀåÈÄ Ã³¸® ¼Ò¿ä ½Ã°£ if(prcpflag == "0" && savekindflag == "0" && model.getValue ("/root/addprcp" ) != "Y") { var pid = model.getValue("/root/paminfo/list/pid"); var cretno = model.getValue("/root/paminfo/list/cretno"); var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); var orddd = "" if(prcpgenrflag == "O" || prcpgenrflag == "S"){ orddd = model.getValue("/root/paminfo/list/orddd"); } else { orddd = model.getValue("/root/paminfo/list/indd"); } // ¼ÓµµÃ¼Å©¸¦ À§ÇÑ ¸ð´ÏÅ͸µ ·Î±× µ¥ÀÌÅÍ »ý¼º. model.removeNodeSet("/root/monitoringlog/reqdata"); model.makeValue("/root/monitoringlog/reqdata/type", "PrcpSave"); model.makeValue("/root/monitoringlog/reqdata/item01", savedataflag); // ÀúÀå µ¥ÀÌÅÍ À¯Çü 0:ÀÎÁõÀúÀå(Áø´Ü+»óº´), 1:ÀÎÁõÀúÀå(Áø´Ü), 2:ÀÎÁõÀúÀå(ó¹æ), 4:ÀÓ½ÃÀúÀå(ó¹æ), 5:ÀÓ½ÃÀúÀåDC(ó¹æ), 6:ÀÓ½ÃÀúÀå(Áø´Ü+ó¹æ), 7:ÀÓ½ÃÀúÀå(Áø´Ü) model.makeValue("/root/monitoringlog/reqdata/item02", prcpgenrflag); // Áø·áÀ¯Çü (O:¿Ü·¡, S:°Ç°­°ËÁø, I:ÀÔ¿ø, E:ÀÀ±Þ, D:ÀÏÀϼö¼ú,³·º´µ¿) model.makeValue("/root/monitoringlog/reqdata/item03", "0"); // ÀԷ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0034 ÂüÁ¶) inptflag model.makeValue("/root/monitoringlog/reqdata/item04", pid); // µî·Ï¹øÈ£ model.makeValue("/root/monitoringlog/reqdata/item05", orddd); // Áø·á(ÀÔ¿ø)ÀÏÀÚ model.makeValue("/root/monitoringlog/reqdata/item06", cretno); // »ý¼º¹øÈ£ model.makeValue("/root/monitoringlog/reqdata/item07", orddeptcd); // Áø·áºÎ¼­ model.makeValue("/root/monitoringlog/reqdata/item08", nPrcpCnt); // 󹿰¹¼ö model.makeValue("/root/monitoringlog/reqdata/item09", nDiagCnt); // Áø´Ü°¹¼ö model.makeValue("/root/monitoringlog/reqdata/item10", (step1Elapsed + step2Elapsed + step3Elapsed + step4Elapsed + step5Elapsed)); // Àüü¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item11", step1Elapsed); // È­¸é ¿À·ùüũ ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item12", step2Elapsed); // ¼­¹ö ¿À·ùüũ ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item13", step3Elapsed); // È­¸é ¿À·ùó¸® ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item14", step4Elapsed); // ¼­¹ö ÀúÀåó¸® ¼Ò¿ä½Ã°£ model.makeValue("/root/monitoringlog/reqdata/item15", step5Elapsed); // È­¸é ÀúÀåÈÄó¸® ¼Ò¿ä½Ã°£ submit("TXMMO00120", false); } return true; } function fGetPrcpSaveAftInfo( prcpsaveyn ,aftdcyn ) { var rtnVal = true; //return value(true/false) ¼±¾ð Ãß°¡ (2010.02.20 JJE) //û±¸ ÈÄ d/c°ü·Ã Ãß°¡ by sonjy 20081027 //û±¸ ÈÄ d/c½Ã ¹ýÁ¤Àü¿°º´ ¹× »êÁ¤Æ¯·Ê¸¦ üũÇÏÁö ¾Êµµ·Ï ÇÑ´Ù. if( aftdcyn == null || isNull(aftdcyn) ) aftdcyn = ""; //Á¤½Å°ú ÀÇ·á±Þ¿© ȯÀÚ ÀÔÅð¿ø À¯Çü üũ fChkNPDschChk(); var orddd = ""; var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); if ( prcpgenrflag == "O" || prcpgenrflag == "S" ){ //¿Ü·¡À϶§ orddd = model.getValue ( "/root/paminfo/list/orddd" ); orddrid = model.getValue ( "/root/paminfo/list/orddrid" ); } else { orddd = model.getValue ( "/root/paminfo/list/indd" ); orddrid = model.getValue ( "/root/paminfo/list/medispclid" ); } //ó¹æ¿¡ ´ëÇÑ ÁßÁõÁø·á, »êÁ¤Æ¯·Ê, ¹ýÁ¤Àü¿°º´ ó¸® model.setValue ( "/root/send/cond1", prcpgenrflag ); //¿Ü·¡,ÀÔ¿ø±¸ºÐ model.setValue ( "/root/send/cond17", model.getValue("/root/paminfo/list/pid")); //ȯÀÚ¹øÈ£ model.setValue ( "/root/send/cond3", orddd ); //Áø·áÀÏ model.setValue ( "/root/send/cond4", model.getValue("/root/paminfo/list/cretno")); //cretno model.setValue ( "/root/send/cond5", model.getValue("/root/paminfo/list/instcd")); //±â°üÄÚµå model.setValue ( "/root/send/cond6", model.getValue("/root/paminfo/list/orddeptcd")); //Áø·á°ú model.setValue ( "/root/send/cond7", orddrid ); //Áø·áÀÇid model.setValue ( "/root/send/cond8", model.getValue("/root/init/prcpdd")); //ó¹æÀÏ model.setValue ( "/root/send/cond9", model.getValue("/root/paminfo/list/age")); //³ªÀÌ model.setValue ( "/root/send/cond10", model.getValue( "/root/hidden/dschprcpyn")); //Åð¿ø¿À´õ ¿©ºÎ model.setValue ( "/root/send/cond11", model.getValue( "/root/paminfo/list/suppkind")); //º¸Á¶À¯Çü model.setValue ( "/root/send/cond12", model.getValue( "/root/init/prcpauthflag")); //±ÇÇѱ¸ºÐ model.setValue ( "/root/send/cond13", model.getValue("/root/paminfo/list/insukind")); //º¸ÇèÀ¯Çü model.setValue ( "/root/send/cond14", getUserInfo("dutplcecd")); //ºÎ¼­ÄÚµå model.setValue ( "/root/send/cond15", getUserInfo ("userid")); //»ç¿ëÀÚID model.setValue ( "/root/send/cond16", prcpsaveyn ); //ó¹æÀúÀå¿©ºÎ model.setValue ( "/root/send/cond18", model.getValue ("/root/formerkey/pseuacptflag")); //½ÃÇàºÎ¼­Ã³¹æ°¡Á¢¼ö¿©ºÎ model.makeValue ( "/root/send/cond19", aftdcyn); //û±¸ ÈÄ d/có¹æ ¿©ºÎ by sonjy 20081027 Ãß°¡ //by sonjy 20091120 Àüó¹æ °³Àκ° Á¶È¸ option Ãß°¡ var bfprcpviewnode = instance1.selectSingleNode("/root/initsrch/envinfo[qestcd='018']/answcnt"); var bfprcpviewflag = ""; if( bfprcpviewnode != null ) bfprcpviewflag = bfprcpviewnode.text ; model.makeValue ( "/root/send/bfprcpviewflag", bfprcpviewflag); //submit("TRMMO00122") => if( submit("TRMMO00122") == true ) ·Î º¯°æ (2008.09.28 JJE) if( submit ( "TRMMO00122", false ) ){ if( fGetPrcpEtcInfo("save") == false ){ //ó¹æ¿¡ ´ëÇÑ ÁßÁõÁø·á, »êÁ¤Æ¯·Ê, ¹ýÁ¤Àü¿°º´ ó¸® ( Ãß°¡Ã³¹æ¿¡¼­´Â ó¸® ¾ÈÇÔ ) rtnVal = false; //return false; } if(prcpgenrflag != "O" && prcpgenrflag != "S"){ var nDschOutCnt = model.instances(0).selectNodes ( prcpNode + "[status ='I' and prcpkindcd = '70']" ).length; if(nDschOutCnt > 0) { model.removeNodeSet ( "/root/send/cond2" ); model.makeNode ( "/root/send/cond2" ); model.setValue ( "/root/send/cond1", model.getValue("/root/paminfo/list/pid") ); //ȯÀÚ¹øÈ£ model.setValue ( "/root/send/cond2", model.getValue("/root/paminfo/list/indd") ); //Áø·áÀÏ model.setValue ( "/root/send/cond3", model.getValue("/root/paminfo/list/instcd")); //cretno model.setValue ( "/root/send/cond4", model.getValue("/root/paminfo/list/cretno")); //cretno if ( submit ( "TRMMO00119", false )) { //ó¹æ¿¡ ´ëÇÑ ÁßÁõÁø·á, »êÁ¤Æ¯·Ê, ¹ýÁ¤Àü¿°º´ ó¸® model.setValue ( "/root/send/cond1", "O" ); //¿Ü·¡,ÀÔ¿ø±¸ºÐ model.setValue ( "/root/send/cond17", model.getValue("/root/paminfo/list/pid")); //ȯÀÚ¹øÈ£ model.setValue ( "/root/send/cond3", model.getValue("/root/followup/followup/otpt_orddd") ); //Áø·áÀÏ model.setValue ( "/root/send/cond4", model.getValue("/root/followup/followup/otpt_cretno")); //cretno model.setValue ( "/root/send/cond5", model.getValue("/root/paminfo/list/instcd")); //±â°üÄÚµå model.setValue ( "/root/send/cond6", model.getValue("/root/paminfo/list/orddeptcd")); //Áø·á°ú model.setValue ( "/root/send/cond7", orddrid ); //Áø·áÀÇid model.setValue ( "/root/send/cond8", model.getValue("/root/init/prcpdd")); //ó¹æÀÏ model.setValue ( "/root/send/cond9", model.getValue("/root/paminfo/list/age")); //³ªÀÌ model.setValue ( "/root/send/cond10", model.getValue( "/root/hidden/dschprcpyn")); //Åð¿ø¿À´õ ¿©ºÎ model.setValue ( "/root/send/cond11", model.getValue( "/root/paminfo/list/suppkind")); //º¸Á¶À¯Çü model.setValue ( "/root/send/cond12", model.getValue( "/root/init/prcpauthflag")); //±ÇÇѱ¸ºÐ model.setValue ( "/root/send/cond13", model.getValue("/root/paminfo/list/insukind")); //º¸ÇèÀ¯Çü model.setValue ( "/root/send/cond14", getUserInfo("dutplcecd")); //ºÎ¼­ÄÚµå model.setValue ( "/root/send/cond15", getUserInfo ("userid")); //»ç¿ëÀÚID model.setValue ( "/root/send/cond16", prcpsaveyn ); //ó¹æÀúÀå¿©ºÎ model.setValue ( "/root/send/cond18", model.getValue ("/root/formerkey/pseuacptflag")); //½ÃÇàºÎ¼­Ã³¹æ°¡Á¢¼ö¿©ºÎ model.makeValue ( "/root/send/cond19", aftdcyn); //û±¸ ÈÄ d/có¹æ ¿©ºÎ by sonjy 20081027 Ãß°¡ if( submit ( "TRMMO00122", false ) ){ if( fGetPrcpEtcInfo("save") == false ){ //ó¹æ¿¡ ´ëÇÑ ÁßÁõÁø·á, »êÁ¤Æ¯·Ê, ¹ýÁ¤Àü¿°º´ ó¸® ( Ãß°¡Ã³¹æ¿¡¼­´Â ó¸® ¾ÈÇÔ ) rtnVal = false; //return false; } } } } } //by sonjy °£È£¹Ý³³ÀÇ·Ú Ã³¹æ ÀúÀå ÈÄ È£Ã⠽ÿ¡´Â...¾ÆÁ÷ È­¸éÀÌ ±×·ÁÁöÁö ¾ÊÀº »óÅÂÀÓ. //son0820 if( model.getValue("/root/bfinityn") == "Y" ){ //JJE ó¹æÀÏÀÌ ¹Ì·¡ÀÏÀÚ·Î º¯°æµÇ¾î ÀÖÀ»°æ¿ì, ¿À´Ã³¯Â¥·Î ´Ù½Ã ¼³Á¤ (2008.09.11) if( model.getValue("/root/cp") == "Y" ){ //&& model.getValue("/root/init/prcpdd") != getCurrentDate() model.setValue("/root/init/prcpdd", getCurrentDate()); cmb_prcpdd.refresh(); } ivw_prcp3.window.javascript.fInitialize("save"); // 2011.09.01 ¾Æ·¡ ·ÎÁ÷ »èÁ¦ // if ( model.instances(0).selectNodes ("root/savertninfo/prcplist").length > 0 ){ // ivw_prcp3.window.javascript.fInitialize("save"); // } else { // ivw_prcp3.window.javascript.fInitialize("init"); // } } } //start: ¿ÜºÎ CD ÀçÆÇµ¶ ÀÇ·Ú Á¤º¸ update (2010.02.19 JJE) if( getParameter("spmmo21200_rtnyn") == "Y" ){ var saveYN = "N"; var prcpPkSpec = ""; var savePrcpDD = ""; var savePrcpCd = ""; var saveEqmtCd = ""; var saveTrsmDD = ""; var saveTrsmTM = ""; //var saveOcdSeq = ""; var prcpcdList = getParameter("spmmo21200_rtnprcpcd").split("^"); //prcpCd var eqmtcdList = getParameter("spmmo21200_rtneqmtcd").split("^"); //cdType var trsmddList = getParameter("spmmo21200_rtntrsmdd").split("^"); //trsmDD var trsmtmList = getParameter("spmmo21200_rtntrsmtm").split("^"); //trsmTM //var ocdseqList = getParameter("spmmo21200_rtnocdseq").split("^"); //oCdSeq var iRow = 0; model.makeNode ("/root/spmmo21200/send"); for( var i=0; i