/** * @desc : È­¸é ÃʱâÈ­ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fInitialize_SPMMO02800(){ zbcfGetCodeList(new Array("P0323", "M0040", "M0029", "P0506", "M0039", "M0044", "M0006", "M0007", "M0008", "M0639"),new Array("/root/init/hosinprcpresncd", "/root/init/drugspdunitflag", "/root/init/payflagcd","/root/init/drgacptflag","/root/init/tnsuseflag","/root/init/irpayflag","/root/init/angioflagcd","/root/init/opansflagcd", "/root/init/anstflagcd", "/root/init/nigtprcpflag")); zbcfGetKindCodeList(new Array("M0041", "M0042", "M0043"), new Array("M0046", "M0041", "M0045"), new Array("/root/init/tempdrugspd1", "/root/init/tempprcpdirecflag1", "/root/init/tempdrugmthdspccdnm1"), false); // ÀçȰ zbcfGetKindCodeList(new Array("M0044", "M0045", "M0046"), new Array("M0046", "M0041", "M0045"), new Array("/root/init/tempdrugspd2", "/root/init/tempprcpdirecflag2", "/root/init/tempdrugmthdspccdnm2"), false); // ¿Â¿­¾ÏÄ¡·á zbcfGetKindCodeList(new Array("M0047"), new Array("M0046"), new Array("/root/init/tempdrugspd3"), false); // ÃÊÀ½ÆÄó¹æ mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist" , getUserInfo("dutplcecd"), "0330", "", "M", "", "", "", "Y"); // ¼±ÅÃÁø·áÀÇ»ç ¸®½ºÆ®¸¦ Á¶È¸ÇÑ´Ù. model.setValue ( "/root/send/cond1", "172" ); // PRN »çÀ¯ Á¶È¸ submit("TRMMB16401" ); var pParentNode = null; var node01 = instance1.selectSingleNode("/root/init/hosinprcpresncd/P0323[cdid='01']"); if(node01 != null){ pParentNode = node01.parentNode; pParentNode.removeChild(node01); } model.setValue("/root/cond/isinit", "Y"); model.refresh(); } /** * @desc : ó¹æÈ­¸é¿¡¼­ ó¹æ Ŭ¸¯½Ã * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fPrcpClick() { var sIsInit = model.getValue("/root/cond/isinit"); if(sIsInit == "N") { fInitialize_SPMMO02800(); // ±âÃÊ º¯¼ö,ÀνºÅϽº ¼³Á¤ } var nRow = opener.grd_prcplist.row; var sPrcpCD = opener.model.getValue ("/root/main/prcp/prcplist[" + nRow + "]/prcpcd"); var srcNodeList = opener.model.instances(0).selectNodes("/root/main/prcp/prcplist"); var destNode = model.instances(0).selectSingleNode("/root/main/prcp"); if(nRow > 0 && !isNull(sPrcpCD)) { var sBfPrcpCd = model.getValue("/root/main/prcp/prcplist/prcpcd"); model.removeNodeset("/root/main/prcp/prcplist"); destNode.appendChild(srcNodeList.item(nRow-1).cloneNode(true)); model.setValue("/root/cond/currow", nRow); if(sBfPrcpCd != sPrcpCD) { // ó¹æÄڵ尡 Ʋ¸±°æ¿ì¸¸ Á¶È¸ fPrcpExecDeptSrch(); // ½ÃÇàºÎ¼­ Á¶È¸ } var prcpClsCd = model.getValue ("/root/main/prcp/prcplist/prcpclscd"); fInitPage(prcpClsCd); } else { fInitPage("00"); } } /** * @desc : ó¹æÁ¾·ùº° È­¸é ±âº» ¼³Á¤ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fInitPage(prcpClsCd) { var sPrcpGenrFlag = opener.model.getValue("/root/patflag/list/prcpgenrflag"); var sPrcpCd = model.getValue("/root/main/prcp/prcplist/prcpcd"); var sOrgPrcpNm = model.getValue("/root/main/prcp/prcplist/orgprcpnm"); var prcpClsNm = ""; if(prcpClsCd == "03") { // ½ÄÀÌ /**************************************************************************************************/ // ½ÄÀÌ Ã³¹æ /**************************************************************************************************/ model.toggle("03"); prcpClsNm = "½ÄÀÌ"; model.setValue ( "/root/diet1", "N" ); model.setValue ( "/root/diet2", "N" ); model.setValue ( "/root/diet3", "N" ); model.setValue ( "/root/dietall", "N" ); grd_03_prcplist.valueMatrix ( 0, 4 ) = "¿­·®"; grd_03_prcplist.colDisabled (4)= false; grd_03_prcplist.colDisabled (5)= false; cap_03_tfdtlcd.visible = true; rdo_03_tfdtlcd.visible = true; model.removeNodeset("/root/init/A0000"); model.makeNode("/root/init/A0000"); var calcond = ""; var mealprotcntscond = ""; var sPrcpCd = model.getValue("/root/main/prcp/prcplist/prcpcd"); if(sPrcpCd == "Q2093001"){ //°æÀ念¾çÀÏ¹Ý zbcfGetCodeList(new Array("A0489"), new Array("/root/init/A0000")); cap_03_tfdtlcd.attribute("text") = "°æÀ念¾çÀϹÝ"; rdo_03_tfdtlcd.choices.itemset.attribute("nodeset") = "/root/init/A0000/A0489"; }else if(sPrcpCd == "Q2093002"){ //°æÀ念¾ç´ç´¢ zbcfGetCodeList(new Array("A0490"), new Array("/root/init/A0000")); cap_03_tfdtlcd.attribute("text") = "°æÀ念¾ç´ç´¢"; rdo_03_tfdtlcd.choices.itemset.attribute("nodeset") = "/root/init/A0000/A0490"; }else if(sPrcpCd == "Q2093003"){ //°æÀ念¾ç½ÅÀåÁúȯ zbcfGetCodeList(new Array("A0491"), new Array("/root/init/A0000")); cap_03_tfdtlcd.attribute("text") = "°æÀ念¾ç½ÅÀåÁúȯ"; rdo_03_tfdtlcd.choices.itemset.attribute("nodeset") = "/root/init/A0000/A0491"; }else if(sPrcpCd == "Q2093004"){ //°æÀ念¾ç¼¶À¯¼Ò zbcfGetCodeList(new Array("A0491"), new Array("/root/init/A0000")); cap_03_tfdtlcd.attribute("text") = "°æÀ念¾ç¼¶À¯¼Ò"; rdo_03_tfdtlcd.choices.itemset.attribute("nodeset") = "/root/init/A0000/A0492"; }else if(sPrcpCd == "Q2093005"){ //°æÀ念¾ç°í´Ü¹é zbcfGetCodeList(new Array("A0493"), new Array("/root/init/A0000")); cap_03_tfdtlcd.attribute("text") = "°æÀ念¾ç°í´Ü¹é"; rdo_03_tfdtlcd.choices.itemset.attribute("nodeset") = "/root/init/A0000/A0493"; }else if(sPrcpCd == "Q2093006"){ //°æÀ念¾ç±âŸ zbcfGetCodeList(new Array("A0494"), new Array("/root/init/A0000")); cap_03_tfdtlcd.attribute("text") = "°æÀ念¾ç±âŸ"; rdo_03_tfdtlcd.choices.itemset.attribute("nodeset") = "/root/init/A0000/A0494"; }else{ cap_03_tfdtlcd.visible = false; rdo_03_tfdtlcd.visible = false; } model.refresh(); var clinccmtcnts = model.getValue("/root/main/prcp/prcplist/clinccmtcnts"); if(clinccmtcnts == ""){radio1.select(0);} var dietprcpgenrflag = model.getValue ( "/root/main/prcp/prcplist/dietprcpgenrflag" ); if ( isNull(dietprcpgenrflag) || dietprcpgenrflag == "-" ) { if (opener.cmb_prcpdd.value > getCurrentDate()) { model.setValue ( "/root/diet1", "Y" ); model.setValue ( "/root/diet2", "Y" ); model.setValue ( "/root/diet3", "Y" ); } else if (opener.cmb_prcpdd.value == getCurrentDate()) { var dietfromtm = ""; var diettotm = ""; var dietflag = ""; var srcNodeList = opener.model.instances(0).selectNodes( "/root/initsrch/dietendtm" ); var hhmm = eval(getCurrentTime().substr( 0, 4 )); for ( var i =1 ; i <= srcNodeList.length; i++ ) { dietfromtm = 0; diettotm = eval(opener.model.getValue ( "/root/initsrch/dietendtm[" + i + "]/diettotm" )); if ( dietfromtm <= hhmm && hhmm <= diettotm ) { dietflag = opener.model.getValue ( "/root/initsrch/dietendtm[" + i + "]/dietflag" ); if ( dietflag == "1" ) { model.setValue ( "/root/diet1", "Y" ); } if ( dietflag == "2" ) { model.setValue ( "/root/diet2", "Y" ); } if ( dietflag == "3" ) { model.setValue ( "/root/diet3", "Y" ); } } } } } else { if ( dietprcpgenrflag == "1") { model.setValue ( "/root/diet1", "Y" ); } if ( dietprcpgenrflag == "2") { model.setValue ( "/root/diet2", "Y" ); } if ( dietprcpgenrflag == "3") { model.setValue ( "/root/diet3", "Y" ); } } var drugmastspec = model.getValue ( "/root/main/prcp/prcplist/drugmastspec" ) +"¢Ì"; calcond = getArrayData (drugmastspec, 0, 0, "¢Ì", "|" ); if ( calcond == "1" ) { grd_03_prcplist.colDisabled (4)= true; } else if ( calcond == "2" || calcond == "3" ) { var calmin = eval(getArrayData (drugmastspec, 0, 1, "¢Ì", "|" )); var calmax = eval(getArrayData (drugmastspec, 0, 2, "¢Ì", "|" )); var i = 0; while (calmin <= calmax) { i++; model.makeValue("/root/mealcalrcnts/mealcalrcntslist[" + i + "]/cdnm", calmin); calmin += 100; } if ( calcond == "3" ) { //header ¼öÁ¤ grd_03_prcplist.valueMatrix ( 0, 4 ) = "¿ë·®"; } } mealprotcntscond = getArrayData (drugmastspec, 0, 3, "¢Ì", "|" ); if ( mealprotcntscond == "Y" ) { var mealprotcnts = getArrayData (drugmastspec, 0, 4, "¢Ì", "|" ) + "¢Ì"; var prcplen = mealprotcnts.split("^").length; var row = 0; for ( var j=0; j < prcplen; j++ ) { row = j + 1; model.makeValue("/root/mealprotcnts/mealprotcntslist[" + row + "]/cdnm", getArrayData ( mealprotcnts, 0, j, "¢Ì", "^" ) ); } } else { model.setValue ( "/root/main/prcp/prcplist/mealprotcnts", "3" ); grd_03_prcplist.colDisabled (5)= true; } rdo_03_tfdtlcd.select(0); } else if(prcpClsCd == "A2" || prcpClsCd == "A4") { // ¾à °æ±¸, ¿Ü¿ë /**************************************************************************************************/ // ¾à °æ±¸, ¿Ü¿ë /**************************************************************************************************/ model.toggle("A2"); if(prcpClsCd == "A2") { prcpClsNm = "¾à-°æ±¸"; } else { prcpClsNm = "¾à-¿Ü¿ë"; } reqHardCodeInfo("/root/main/temp/prnuseyn", "/root/main/temp/prnuseyn", "173"); //30ÀÏ ÀÌ»óÀÇ ¸¶¾àó¹æÀÎ °æ¿ì, »çÀ¯¸¦ ÀÔ·ÂÇÒ ¼ö ÀÖµµ·Ï º¯°æ, 2008. 06. 12 ¿ÀÁöÈÆ var prcpdayno = model.getValue("/root/main/prcp/prcplist/prcpdayno"); var clinccmtcnts = model.getValue("/root/main/prcp/prcplist/clinccmtcnts"); var drugmastspec = model.getValue("/root/main/prcp/prcplist/drugmastspec"); var spcldrug = getArrayData ( drugmastspec, 0, 23, "^", "|" ); if ( spcldrug == "M" ) { cap_a2_clinccmtcnts.visible = true; rdo_a2_clinccmtcnts.visible = true; ipt_a2_clinccmtcnts.visible = true; if(prcpdayno >= 30){ //2.±âŸÀÎ °æ¿ì input box¿¡ clinccmtcntsÀÇ °ªÀ» ¼³Á¤ if(clinccmtcnts != "1. ´ÙÀ½ Áø·áÀϱîÁöÀÇ ±â°£ÀÌ 30ÀÏ Ãʰú"){ model.setValue("/root/main/prcp/prcplist/clinccmtcnts", "2. ±âŸ"); model.setValue("/root/main/temp/clinccmtcnts", clinccmtcnts); } ipt_a2_clinccmtcnts.disabled = false; } else { ipt_a2_clinccmtcnts.disabled = true; } } else { cap_a2_clinccmtcnts.visible = false; rdo_a2_clinccmtcnts.visible = false; ipt_a2_clinccmtcnts.visible = false; } //20090115 ¸¶Á¤¹Î¼öÁ¤: ³»º¹Á¦-»ý¹°ÇÐÀûÁ¦Á¦-´Éµ¿¸é¿ª¾àÀÎ °æ¿ì Á¢Á¾Â÷¼ö Ȱ¼ºÈ­ if ( model.getValue("/root/main/prcp/prcplist/tempcol2") == "03|08|02" ) { cap_a2_mealcalrcnts.visible = true; rdo_a2_mealcalrcnts.visible = true; } else { cap_a2_mealcalrcnts.visible = false; rdo_a2_mealcalrcnts.visible = false; } // ÀÔ·ÂµÈ PRN ó¹æ »çÀ¯¿Í Ƚ¼ö°¡ ÀÖÀ¸¸é º¸¿©ÁÖµÇ ÇϵåÄÚµå 173¹ø, È­¸éÄڵ带 ±¸ºÐ±âÁØÀ¸·Î ÇÑ´Ù. 2010-01-02 by LYJ if (model.getValue("/root/main/prcp/prcplist/prnprcpflag")=="Y" && model.getValue("/root/main/temp/prnuseyn/hardcd/hardcd")=="Y"){ ipt_a2_prcpdelivefact.disabled = true; cap_a2_prn.visible = true; cap_a2_prntime.visible = true; cap_a2_prnresncmt.visible = true; cap_a2_prnterm.visible = true; ipt_a2_prntime.visible = true; ipt_a2_prnresncmt.visible = true; ipt_a2_prnterm.visible = true; cob_a2_prnprcpresncd.visible = true; var sDrPrcpEtc6 = model.getValue("/root/main/prcp/prcplist/drprcpetc6"); var SetPrnPrcpDetl = sDrPrcpEtc6.split("|"); if ( SetPrnPrcpDetl.length >2){ model.setValue("/root/main/temp/prntms", SetPrnPrcpDetl[0]); model.setValue("/root/main/temp/prnprcpresncd", SetPrnPrcpDetl[1]); model.setValue("/root/main/temp/prnresncmt", SetPrnPrcpDetl[2]); if(SetPrnPrcpDetl.length >3) { model.setValue("/root/main/temp/prnterm", SetPrnPrcpDetl[3]); } else { model.setValue("/root/main/temp/prnterm", ""); } } else { model.setValue("/root/main/temp/prntms", ""); model.setValue("/root/main/temp/prnprcpresncd", ""); model.setValue("/root/main/temp/prnresncmt", ""); model.setValue("/root/main/temp/prnterm", ""); } } else { ipt_a2_prcpdelivefact.disabled = false; cap_a2_prn.visible = false; cap_a2_prntime.visible = false; cap_a2_prnresncmt.visible = false; cap_a2_prnterm.visible = false; ipt_a2_prntime.visible = false; ipt_a2_prnresncmt.visible = false; ipt_a2_prnterm.visible = false; cob_a2_prnprcpresncd.visible = false; model.setValue("/root/main/temp/prntms", ""); model.setValue("/root/main/temp/prnprcpresncd", ""); model.setValue("/root/main/temp/prnresncmt", ""); model.setValue("/root/main/temp/prnterm", ""); } //by sonjy 20091021 ¼ö°¡°è»ê¹æ¹ý 4À϶§´Â ÀϼöÀÔ·Â ºÒ°¡ ó¸®.º¯°æ¿äû¹øÈ£ : 3667 var calcmthdcd = getArrayData ( drugmastspec , 0, 26, "^", "|" ); if( calcmthdcd == "4" ) { model.setValue(grd_a2_prcplist.nodeset + "/prcpdayno", "1"); grd_a2_prcplist.colDisabled (grd_a2_prcplist.colRef("prcpdayno") ) = true; }else { grd_a2_prcplist.colDisabled (grd_a2_prcplist.colRef("prcpdayno") ) = false; } //¿ø³», ¿ø¿Ü ó¹æ ó¸® //1. ¿Ü·¡: /root/main/prcp/prcplist/hosinhosoutflag °ªÀÌ OÀÌ¸é ¿ø¿Ü //1.1 ó¹æÈ­¸é¿¡ ¿ø³»Ã³¹æ »çÀ¯°¡ ÀÖÀ¸¸é º¹»ç½Ã °ªÀ» °¡Á®¿Â´Ù. //1.2 ó¹æ ÀÚü¿¡ ¿ø³»Ã³¹æ »çÀ¯°¡ ÀÖÀ¸¸é Àû¿ëµÈ´Ù. ´Ü ó¹æÈ­¸é¿¡ ¿ø³»Ã³¹æ »çÀ¯°¡ ÀÖÀ»°æ¿ì ±×°É·Î Àû¿ë //1.3 ó¹æÈ­¸é¿¡¼­ ¿ø³»Ã³¹æ »çÀ¯¸¦ Àû¿ëÇÏ¸é ±×°É·Î ÀüºÎ Àû¿ëµÈ´Ù. //1.4 󹿻ó¼¼È­¸é¿¡¼­ ¿ø³»Ã³¹æ »çÀ¯¸¦ Àû¿ëÇÒ ¶§ ±×°ÍÀÌ Ã³¹æÈ­¸éÀÇ ¿ø³»Ã³¹æ »çÀ¯¿Í µ¿ÀÏÇÒ °æ¿ì ±×°É·Î ¸ðµÎ Àû¿ëÇÑ´Ù. //1.5 ¿ø³»/¿ø¿Ü, ¿ø³»Ã³¹æ»çÀ¯ enable //2.ÀÔ¿ø: ¿ø³», ¿ø³»Ã³¹æ»çÀ¯ 00 //2.1 ¿ø³»/¿ø¿Ü, ¿ø³»Ã³¹æ»çÀ¯ disable //3.ÀÀ±Þ: ÀÔ¿ø°ú µ¿ÀÏÇÏ´Ù. //3.1 ¿ø³»/¿ø¿Ü, ¿ø³»Ã³¹æ»çÀ¯ enable //4.DSC: ÀÔ¿ø°ú µ¿ÀÏÇÏ´Ù. //4.1 Åð¿øÃ³¹æ, Åð¿øÈÄ ¿Ü·¡Ã³¹æÀº ¿ø¿ÜÀÌ´Ù. ( ÀÔ¿ø, ÀÀ±Þ°ú °°°Ô Ç϶ó°í ÇØ¼­ 󸮾ÈÇÔ ) //4.2 ¿ø³»/¿ø¿Ü, ¿ø³»Ã³¹æ»çÀ¯ enable if ( sPrcpGenrFlag == "O" || sPrcpGenrFlag == "E" || sPrcpGenrFlag == "D") { //¿Ü·¡, ÀÀ±Þ, DSC À̸é prnó¹æ disable //¿ø³»Ã³¹æ»çÀ¯ º¯°æ½Ã ¾Æ´Ï¿À¸¦ ¼±ÅÃÇÒ °æ¿ì ¿ø·¡°ªÀ¸·Î µ¹¾Æ°¡±â À§ÇØ Àü¿ø³»Ã³¹æ»çÀ¯¸¦ °ü¸®ÇÑ´Ù. //°ªÀº ¿ø³»Ã³¹æ»çÀ¯°¡ º¯°æµÉ ¶§¸¶´Ù °°ÀÌ º¯°æµÈ´Ù. model.setValue ( "/root/init/bfhosinprcpresncd", model.getValue ( "/root/main/prcp/prcplist/hosinprcpresncd" )); } if ( sPrcpGenrFlag == "O" && model.getValue("/root/main/prcp/prcplist/prcpkindcd") != "80" ) { grd_a2_prcplist.colDisabled(grd_a2_prcplist.colref("prnprcpflag")) = true; } else { grd_a2_prcplist.colDisabled(grd_a2_prcplist.colref("prnprcpflag")) = false; } var hosinhosoutflag = model.getValue("/root/main/prcp/prcplist/hosinhosoutflag"); if ( hosinhosoutflag != "O" && sPrcpGenrFlag == "I" ) { // ÀÔ¿øÀº ¿ø³»/¿ø¿Ü, ¿ø³»Ã³¹æ»çÀ¯ disable rdo_a2_hosinhosoutflag1.disabled = true; rdo_a2_hosinhosoutflag2.disabled = true; grd_a2_prcplist.colDisabled(grd_a2_prcplist.colref("hosinprcpresncd")) = true; } else { rdo_a2_hosinhosoutflag1.disabled = false; rdo_a2_hosinhosoutflag2.disabled = false; grd_a2_prcplist.colDisabled(grd_a2_prcplist.colref("hosinprcpresncd")) = false; } } else if(prcpClsCd == "A6") { // ¾à ÁÖ»ç /**************************************************************************************************/ // ¾à ÁÖ»ç /**************************************************************************************************/ model.toggle("A6"); prcpClsNm = "¾à-ÁÖ»ç"; reqHardCodeInfo("/root/main/temp/prnuseyn", "/root/main/temp/prnuseyn", "173"); //30ÀÏ ÀÌ»óÀÇ ¸¶¾àó¹æÀÎ °æ¿ì, »çÀ¯¸¦ ÀÔ·ÂÇÒ ¼ö ÀÖµµ·Ï º¯°æ, 2008. 06. 12 ¿ÀÁöÈÆ var prcpdayno = model.getValue("/root/main/prcp/prcplist/prcpdayno"); var clinccmtcnts = model.getValue("/root/main/prcp/prcplist/clinccmtcnts"); var drugmastspec = model.getValue("/root/main/prcp/prcplist/drugmastspec"); var spcldrug = getArrayData ( drugmastspec, 0, 23, "^", "|" ); if ( spcldrug == "M" ) { cap_a6_clinccmtcnts.visible = true; rdo_a6_clinccmtcnts.visible = true; ipt_a6_clinccmtcnts.visible = true; if(prcpdayno >= 30){ //2.±âŸÀÎ °æ¿ì input box¿¡ clinccmtcntsÀÇ °ªÀ» ¼³Á¤ if(clinccmtcnts != "1. ´ÙÀ½ Áø·áÀϱîÁöÀÇ ±â°£ÀÌ 30ÀÏ Ãʰú"){ model.setValue("/root/main/prcp/prcplist/clinccmtcnts", "2. ±âŸ"); model.setValue("/root/main/temp/clinccmtcnts", clinccmtcnts); } ipt_a6_clinccmtcnts.disabled = false; } else { ipt_a6_clinccmtcnts.disabled = true; } } else { cap_a6_clinccmtcnts.visible = false; rdo_a6_clinccmtcnts.visible = false; ipt_a6_clinccmtcnts.visible = false; } //¿¹¹æÁÖ»ç ¹öư Ȱ¼ºÈ­ ó¹æ, ÇϵåÄÚµå 25(05|08|00:¿¹¹æÁÖ»ç : ¼öµ¿¸é¿ª - Antiserum, 05|08|01:¿¹¹æÁÖ»ç : ¼öµ¿¸é¿ª - Human Immune Globulin, 05|08|02:¿¹¹æÁÖ»ç : ´Éµ¿¸é¿ª - Toxoid & Vaccines var tempcol2 = model.getValue ( "/root/main/prcp/prcplist/tempcol2" ); var earnclscd = opener.model.getValue ( "/root/initsrch/earnclsauto[earnclsflag='2' and earnclscd='" + tempcol2 + "']/earnclscd" ); if ( !isNull(earnclscd)) { cap_a6_mealcalrcnts.visible = true; rdo_a6_mealcalrcnts.visible = true; } else { cap_a6_mealcalrcnts.visible = false; rdo_a6_mealcalrcnts.visible = false; } //¿¹¹æÁÖ»ç ¹öư Ȱ¼ºÈ­ ó¹æ // ÀÔ·ÂµÈ PRN ó¹æ »çÀ¯¿Í Ƚ¼ö°¡ ÀÖÀ¸¸é º¸¿©ÁÖµÇ ÇϵåÄÚµå 173¹ø, È­¸éÄڵ带 ±¸ºÐ±âÁØÀ¸·Î ÇÑ´Ù. 2010-01-02 by LYJ if (model.getValue("/root/main/prcp/prcplist/prnprcpflag")=="Y" && model.getValue("/root/main/temp/prnuseyn/hardcd/hardcd")=="Y" ){ ipt_a6_prcpdelivefact.disabled = true; cap_a6_prn.visible = true; cap_a6_prntime.visible = true; cap_a6_prnresncmt.visible = true; cap_a6_prnterm.visible = true; ipt_a6_prntime.visible = true; ipt_a6_prnresncmt.visible = true; ipt_a6_prnterm.visible = true; cob_a6_prnprcpresncd.visible = true; var sDrPrcpEtc6 = model.getValue("/root/main/prcp/prcplist/drprcpetc6"); var SetPrnPrcpDetl = sDrPrcpEtc6.split("|"); if ( SetPrnPrcpDetl.length >2){ model.setValue("/root/main/temp/prntms", SetPrnPrcpDetl[0]); model.setValue("/root/main/temp/prnprcpresncd", SetPrnPrcpDetl[1]); model.setValue("/root/main/temp/prnresncmt", SetPrnPrcpDetl[2]); if(SetPrnPrcpDetl.length >3) { model.setValue("/root/main/temp/prnterm", SetPrnPrcpDetl[3]); } else { model.setValue("/root/main/temp/prnterm", ""); } } else { model.setValue("/root/main/temp/prntms", ""); model.setValue("/root/main/temp/prnprcpresncd", ""); model.setValue("/root/main/temp/prnresncmt", ""); model.setValue("/root/main/temp/prnterm", ""); } } else { ipt_a6_prcpdelivefact.disabled = false; cap_a6_prn.visible = false; cap_a6_prntime.visible = false; cap_a6_prnresncmt.visible = false; cap_a6_prnterm.visible = false; ipt_a6_prntime.visible = false; ipt_a6_prnresncmt.visible = false; ipt_a6_prnterm.visible = false; cob_a6_prnprcpresncd.visible = false; model.setValue("/root/main/temp/prntms", ""); model.setValue("/root/main/temp/prnprcpresncd", ""); model.setValue("/root/main/temp/prnresncmt", ""); model.setValue("/root/main/temp/prnterm", ""); } //by sonjy 20091021 ¼ö°¡°è»ê¹æ¹ý 4À϶§´Â ÀϼöÀÔ·Â ºÒ°¡ ó¸®.º¯°æ¿äû¹øÈ£ : 3667 var calcmthdcd = getArrayData ( drugmastspec , 0, 26, "^", "|" ); if( calcmthdcd == "4" ) { model.setValue(grd_a6_prcplist.nodeset + "/prcpdayno", "1"); grd_a6_prcplist.colDisabled (grd_a6_prcplist.colRef("prcpdayno") ) = true; }else { grd_a6_prcplist.colDisabled (grd_a6_prcplist.colRef("prcpdayno") ) = false; } if ( sPrcpGenrFlag == "O" || sPrcpGenrFlag == "E" || sPrcpGenrFlag == "D") { //¿Ü·¡, ÀÀ±Þ, DSC À̸é prnó¹æ disable //¿ø³»Ã³¹æ»çÀ¯ º¯°æ½Ã ¾Æ´Ï¿À¸¦ ¼±ÅÃÇÒ °æ¿ì ¿ø·¡°ªÀ¸·Î µ¹¾Æ°¡±â À§ÇØ Àü¿ø³»Ã³¹æ»çÀ¯¸¦ °ü¸®ÇÑ´Ù. //°ªÀº ¿ø³»Ã³¹æ»çÀ¯°¡ º¯°æµÉ ¶§¸¶´Ù °°ÀÌ º¯°æµÈ´Ù. model.setValue ( "/root/init/bfhosinprcpresncd", model.getValue ( "/root/main/prcp/prcplist/hosinprcpresncd" )); } if ( sPrcpGenrFlag == "O" && model.getValue("/root/main/prcp/prcplist/prcpkindcd") != "80" ) { grd_a6_prcplist.colDisabled(grd_a6_prcplist.colref("prnprcpflag")) = true; } else { grd_a6_prcplist.colDisabled(grd_a6_prcplist.colref("prnprcpflag")) = false; } var hosinhosoutflag = model.getValue("/root/main/prcp/prcplist/hosinhosoutflag"); if ( hosinhosoutflag != "O" && sPrcpGenrFlag == "I" ) { // ÀÔ¿øÀº ¿ø³»/¿ø¿Ü, ¿ø³»Ã³¹æ»çÀ¯ disable rdo_a6_hosinhosoutflag1.disabled = true; rdo_a6_hosinhosoutflag2.disabled = true; grd_a6_prcplist.colDisabled(grd_a6_prcplist.colref("hosinprcpresncd")) = true; } else { rdo_a6_hosinhosoutflag1.disabled = false; rdo_a6_hosinhosoutflag2.disabled = false; grd_a6_prcplist.colDisabled(grd_a6_prcplist.colref("hosinprcpresncd")) = false; } } else if(prcpClsCd == "B2" || prcpClsCd == "B6") { // Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³» /**************************************************************************************************/ // Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³» /**************************************************************************************************/ model.toggle("B2"); if(prcpClsCd == "B2") { prcpClsNm = "Áø´Ü°Ë»ç"; } else { prcpClsNm = "ÇÙÀÇÇÐü³»"; } if ( eval(model.getValue ( "/root/main/prcp/prcplist/diagtestconttestorgtims" ))>0 ) { model.setValue ( "/root/main/prcp/prcplist/prcptims", model.getValue ( "/root/main/prcp/prcplist/diagtestconttestorgtims" )); } if ( sPrcpGenrFlag == "O" && model.getValue("/root/main/prcp/prcplist/prcpkindcd") != "80" ) { grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("prnprcpflag")) = true; } else { grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("prnprcpflag")) = false; } //M-SET ÀÚó¹æÀÇ °æ¿ì, °Ë»çÈñ¸ÁÀÏ(prcphopedd) disabled¼³Á¤ 2008. 07. 22 ¿ÀÁöÈÆ var prcpsetcd = model.getValue("/root/main/prcp/prcplist/prcpsetcd"); if(prcpsetcd != "-"){ grd_b2_prcplist.colDisabled(grd_b2_prcplist.colRef("prcphopedd")) = true; } else { grd_b2_prcplist.colDisabled(grd_b2_prcplist.colRef("prcphopedd")) = false; } grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("diagtestconttestintvlflag")) = false; grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("prcptims")) = false; btn_b2_diagtestconttestcdspec.disabled = false; var drugmastspec = model.getValue ( "/root/main/prcp/prcplist/drugmastspec")+"^"; if ( getArrayData (drugmastspec, 0, 5, "^", "|" ) == "N" ) { grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("diagtestconttestintvlflag")) = true; grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("prcptims")) = true; btn_b2_diagtestconttestcdspec.disabled = true; } if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "N" || model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "5" ) { grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("prcptims")) = true; btn_b2_diagtestconttestcdspec.disabled = true; } } else if(prcpClsCd == "B4") { // ¼öÇ÷ /**************************************************************************************************/ // ¼öÇ÷ /**************************************************************************************************/ model.toggle("B4"); prcpClsNm = "¼öÇ÷"; //M-SET ÀÚó¹æÀÇ °æ¿ì, °Ë»çÈñ¸ÁÀÏ(prcphopedd) disabled¼³Á¤ //2008. 07. 22 ¿ÀÁöÈÆ var prcpsetcd = model.getValue("/root/main/prcp/prcplist/prcpsetcd"); if(prcpsetcd != '-'){ ipt_b4_prcphopedd.disabled = true; } else { ipt_b4_prcphopedd.disabled = false; } //irr ºñȰ¼ºÈ­ º´¿øº° Àû¿ë(¼º°¡¿äû), cHc, 2009-07-21 if ( opener.model.getValue("/root/initsrch/irrcheckyn/trgtcd") == "Y") { grd_b4_prcplist.isReadOnly(1, grd_b4_prcplist.colRef("irflag")) = true; } else { grd_b4_prcplist.isReadOnly(1, grd_b4_prcplist.colRef("irflag")) = false; } if ( sPrcpCd == "LBT25110" ) { grd_b4_prcplist.colDisabled(grd_b4_prcplist.colRef("erprcpflag")) = true; } else { grd_b4_prcplist.colDisabled(grd_b4_prcplist.colRef("erprcpflag")) = false; } if ( sPrcpCd == "LBT20440" || sPrcpCd == "LBT20640" ) { grd_b4_prcplist.colDisabled(grd_b4_prcplist.colRef("irflag")) = true; } else { grd_b4_prcplist.colDisabled(grd_b4_prcplist.colRef("irflag")) = false; } rdo_b4_prepprcpflag1.disabled = false; //Prep rdo_b4_prepprcpflag2.disabled = false; //T/F if ( sPrcpGenrFlag == "O" || sPrcpGenrFlag == "S" ) { //¿Ü·¡ rdo_b4_prepprcpflag2.value = "Y"; // T/F default·Î Y rdo_b4_prepprcpflag1.value = "N"; rdo_b4_prepprcpflag1.disabled = true; //Prep disabled } else { //ÀÔ¿ø, ÀÀ±Þ, DSC var prcpkindcd = model.getValue ( "/root/main/prcp/prcplist/prcpkindcd" ); if ( prcpkindcd == "70" || prcpkindcd == "90" || prcpkindcd == "95" ) { rdo_b4_prepprcpflag2.value = "Y"; // T/F default·Î Y rdo_b4_prepprcpflag1.value = "N"; rdo_b4_prepprcpflag1.disabled = true; //Prep disabled } else { rdo_b4_prepprcpflag2.value = "N"; rdo_b4_prepprcpflag1.value = "Y"; // Prep default·Î Y rdo_b4_prepprcpflag2.disabled = true; // T/F disabled } } if ( model.getValue ( "/root/main/prcp/prcplist/irflag" ) == "N" ) { rdo_b4_irpayflag.disabled = true; } else { rdo_b4_irpayflag.disabled = false; } var tnsuseflag = model.getValue("/root/main/prcp/prcplist/tnsuseflag"); if ( isNull(tnsuseflag)) { model.setValue ( "/root/main/prcp/prcplist/tnsuseflag", 0 ); } if ( sPrcpGenrFlag == "O" ) { //ȯÀÚ¸®½ºÆ®¿¡¼­ ÁØ ¿Ü·¡, ÀÔ¿ø, ÀÀ±Þ ±¸ºÐ grd_b4_prcplist.colDisabled(grd_b4_prcplist.colref("tnsfiltflag")) = true; } else { grd_b4_prcplist.colDisabled(grd_b4_prcplist.colref("tnsfiltflag")) = false; } //¼ö¼ú¿¹¾àÀÏÀÚ, ½Ã°£ SETTING var prcphopedd = model.getValue ( "/root/main/prcp/prcplist/prcphopedd" ); model.setValue ( "/root/main/prcp/prcplist/prcphopedd", prcphopedd.substring(0,8)); if ( prcphopedd.length > 8 ) { model.setValue ( "/root/init/prcphopeddh", prcphopedd.substring(8,10)); model.setValue ( "/root/init/prcphopeddm", prcphopedd.substring(10,12)); } else { model.setValue("/root/init/prcphopeddh", "00"); model.setValue("/root/init/prcphopeddm", "00"); } if ( model.getValue ( "/root/main/prcp/prcplist/prepprcpflag") == "N") { ipt_b4_prcphopedd.disabled = false; ipt_b4_prcphopeddh.disabled = false; ipt_b4_prcphopeddm.disabled = false; }else{ ipt_b4_prcphopedd.disabled = true; ipt_b4_prcphopeddh.disabled = true; ipt_b4_prcphopeddm.disabled = true; } } else if(prcpClsCd == "C2" || prcpClsCd == "C6" || prcpClsCd == "E2") { // ¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó) /**************************************************************************************************/ // ¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó) /**************************************************************************************************/ model.toggle("C2"); // ¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó) if(prcpClsCd == "C6") { prcpClsNm = "ÇÙÀÇÇпµ»ó"; } else if(prcpClsCd == "E2") { prcpClsNm = "±â´É°Ë»ç"; }else { prcpClsNm = "¿µ»ó"; } if (fContainsHardCD("536", sPrcpCd)) { // ´Ü¼øÃÊÀ½ÆÄ ¶Ç´Â À¯µµÃÊÀ½ÆÄÀΰæ¿ì Ä¡·áºÎÀ§, °ü·ÃÇàÀ§, 󹿻çÀ¯ ÀÔ·Â ÇÒ¼ö ÀÖµµ·Ï cap_c2_ultrasono.visible = true; cap_c2_rehbprcpcurepartcd.visible = true; cob_c2_rehbprcpcurepartcd.visible = true; cap_c2_drugmthdspccd.visible = true; cob_c2_drugmthdspccd.visible = true; cap_c2_exptmthdfact.visible = true; ipt_c2_exptmthdfact.visible = true; copyNodesetType("/root/init/drugspd", "/root/init/tempdrugspd3/M0047M0046", "replace", model, model); model.makeValue ( "/root/send/prcpcd", model.getValue("/root/main/prcp/prcplist/prcpcd") ); submit ("TRMMO00162") } else { cap_c2_ultrasono.visible = false; cap_c2_rehbprcpcurepartcd.visible = false; cob_c2_rehbprcpcurepartcd.visible = false; cap_c2_drugmthdspccd.visible = false; cob_c2_drugmthdspccd.visible = false; cap_c2_exptmthdfact.visible = false; ipt_c2_exptmthdfact.visible = false; } if ( sPrcpGenrFlag == "O" && model.getValue("/root/main/prcp/prcplist/prcpkindcd") != "80" ) { grd_c2_prcplist.colDisabled (grd_c2_prcplist.colref("prnprcpflag")) = true; } else { grd_c2_prcplist.colDisabled (grd_c2_prcplist.colref("prnprcpflag")) = false; } //M-SET ÀÚó¹æÀÇ °æ¿ì, °Ë»çÈñ¸ÁÀÏ(prcphopedd) disabled¼³Á¤ //2008. 07. 22 ¿ÀÁöÈÆ var prcpsetcd = model.getValue("/root/main/prcp/prcplist/prcpsetcd"); if(prcpsetcd != "-"){ grd_c2_prcplist.colDisabled(grd_c2_prcplist.colRef("prcphopedd")) = true; } else { grd_c2_prcplist.colDisabled(grd_c2_prcplist.colRef("prcphopedd")) = false; } } else if(prcpClsCd == "C4") { // angio /**************************************************************************************************/ // angio /**************************************************************************************************/ model.toggle("C4"); // angio prcpClsNm = "Angio"; //ó¹æÇʼöÀԷ±¸ºÐ °Ë»ç, angio±¸ºÐ ÀԷ¿©ºÎ var prcpessninptflag = model.getValue("/root/main/prcp/prcplist/prcpessninptflag"); if ( prcpessninptflag != 4 ) { grd_c4_prcplist.colDisabled(grd_c4_prcplist.colref("angioflagcd")) = true; } else { grd_c4_prcplist.colDisabled(grd_c4_prcplist.colref("angioflagcd")) = false; } //M-SET ÀÚó¹æÀÇ °æ¿ì, °Ë»çÈñ¸ÁÀÏ(prcphopedd) disabled¼³Á¤ 2008. 07. 22 ¿ÀÁöÈÆ var prcpsetcd = model.getValue("/root/main/prcp/prcplist/prcpsetcd"); if(prcpsetcd != '-'){ grd_c4_prcplist.colDisabled(grd_c4_prcplist.colRef("prcphopedd")) = true; } else { grd_c4_prcplist.colDisabled(grd_c4_prcplist.colRef("prcphopedd")) = false; } } else if(prcpClsCd == "D2") { // º´¸® /**************************************************************************************************/ // º´¸® /**************************************************************************************************/ model.toggle("D2"); // º´¸® prcpClsNm = "º´¸®"; if ( sPrcpGenrFlag == "O" && model.getValue("/root/main/prcp/prcplist/prcpkindcd") != "80" ) { grd_d2_prcplist.colDisabled (grd_d2_prcplist.colref("prnprcpflag")) = true; } else { grd_d2_prcplist.colDisabled (grd_d2_prcplist.colref("prnprcpflag")) = false; } //M-SET ÀÚó¹æÀÇ °æ¿ì, °Ë»çÈñ¸ÁÀÏ(prcphopedd) disabled¼³Á¤ 2008. 07. 22 ¿ÀÁöÈÆ var prcpsetcd = model.getValue("/root/main/prcp/prcplist/prcpsetcd"); if(prcpsetcd != "-"){ grd_d2_prcplist.colDisabled(grd_d2_prcplist.colRef("prcphopedd")) = true; } else { grd_d2_prcplist.colDisabled(grd_d2_prcplist.colRef("prcphopedd")) = false; } } else if(prcpClsCd == "F2") { // ÀçȰ /**************************************************************************************************/ // ÀçȰ /**************************************************************************************************/ model.toggle("F2"); // ÀçȰ prcpClsNm = "ÀçȰ"; if("HZ272" == model.getValue("/root/main/prcp/prcplist/prcpcd")) { // ¿Â¿­¾Ï °íÃßÆÄ Ã³¹æÀϰæ¿ì Ä¡·áºÎÀ§, Ä¡·áÀ§Ä¡, Ä¡·áºóµµ¸¦ ´Ù¸£°Ô Á¶È¸ ÇÑ´Ù. copyNodesetType("/root/init/drugspd", "/root/init/tempdrugspd2/M0044M0046", "replace", model, model); copyNodesetType("/root/init/prcpdirecflag", "/root/init/tempprcpdirecflag2/M0045M0041", "replace", model, model); copyNodesetType("/root/init/drugmthdspccdnm", "/root/init/tempdrugmthdspccdnm2/M0046M0045", "replace", model, model); } else { copyNodesetType("/root/init/drugspd", "/root/init/tempdrugspd1/M0041M0046", "replace", model, model); copyNodesetType("/root/init/prcpdirecflag", "/root/init/tempprcpdirecflag1/M0042M0041", "replace", model, model); copyNodesetType("/root/init/drugmthdspccdnm", "/root/init/tempdrugmthdspccdnm1/M0043M0045", "replace", model, model); } model.setValue ( "/root/send/cond1", "50" ); model.setValue ( "/root/send/cond2", sPrcpCd); // ÇϵåÄÚµå Á¶È¸ ÈÄ Ä¡·áºÎÀ§, Ä¡·áÀ§Ä¡ Ȱ¼ºÈ­ ¿©ºÎ ¼ÂÆÃ if (submit ("TRMMO00204")) { var trgtcdnm = model.getValue("/root/hardcode/hardcodelist/trgtcdnm"); if ( trgtcdnm == "Y" || trgtcdnm == "O" ) { grd_f2_prcplist.colDisabled(grd_f2_prcplist.colRef("rehbprcpcurepartcd")) = false; grd_f2_prcplist.colDisabled(grd_f2_prcplist.colRef("prcpdirecflag")) = false; } else if (trgtcdnm == "N") { grd_f2_prcplist.colDisabled(grd_f2_prcplist.colRef("rehbprcpcurepartcd")) = true; grd_f2_prcplist.colDisabled(grd_f2_prcplist.colRef("prcpdirecflag")) = true; } else { grd_f2_prcplist.colDisabled(grd_f2_prcplist.colRef("rehbprcpcurepartcd")) = false; grd_f2_prcplist.colDisabled(grd_f2_prcplist.colRef("prcpdirecflag")) = false; } } } else if(prcpClsCd == "G2") { // RT /**************************************************************************************************/ // RT /**************************************************************************************************/ model.toggle("G2"); // RT prcpClsNm = "RT"; if ( sPrcpGenrFlag == "O" && model.getValue("/root/main/prcp/prcplist/prcpkindcd") != "80" ) { grd_g2_prcplist.colDisabled (grd_g2_prcplist.colref("prnprcpflag")) = true; } else { grd_g2_prcplist.colDisabled (grd_g2_prcplist.colref("prnprcpflag")) = false; } //M-SET ÀÚó¹æÀÇ °æ¿ì, °Ë»çÈñ¸ÁÀÏ(prcphopedd) disabled¼³Á¤ 2008. 07. 22 ¿ÀÁöÈÆ var prcpsetcd = model.getValue("/root/main/prcp/prcplist/prcpsetcd"); if(prcpsetcd != "-"){ grd_g2_prcplist.colDisabled(grd_g2_prcplist.colRef("prcphopedd")) = true; } else { grd_g2_prcplist.colDisabled(grd_g2_prcplist.colRef("prcphopedd")) = false; } } else if(prcpClsCd == "H2") { // ¼ö¼ú /**************************************************************************************************/ // ¼ö¼ú /**************************************************************************************************/ model.toggle("H2"); // ¼ö¼ú prcpClsNm = "¼ö¼ú"; var prcpessninptflag = model.getValue ( "/root/main/prcp/prcplist/prcpessninptflag" ); if ( prcpessninptflag == 3 || prcpessninptflag == 5 ) { // ó¹æ Çʼö 3:¼ö¼ú±¸ºÐ, 5:¼ö¼ú/Ä¡½Ä Çʼö grd_h2_prcplist.colDisabled(grd_h2_prcplist.colref("opansflagcd")) = false; } else { model.setValue("/root/main/prcp/prcplist/opansflagcd", "-"); grd_h2_prcplist.colDisabled(grd_h2_prcplist.colref("opansflagcd")) = true; } var operation = getGlobalVariable("operation"); if(operation != null || operation != ""){ setCSVToNode("/root/init/operation", operation); var opflagcd = model.getValue("/root/init/operation/list/opflagcd"); // opflagcd 1:Á¤±Ô, 2:ÀÀ±Þ, 3:Ãß°¡ if(opflagcd == "2"){ model.setValue("/root/main/prcp/prcplist/erprcpflag", "Y"); } var opfromtmcd = model.getValue("/root/init/operation/list/opfromtmcd"); //opfromtmcd ¼ö¼ú½ÃÀ۽ð£ if(eval(opfromtmcd) > 180000){ //¾ß°£ ½Ã°£ ±âÁØÀ» ¹°¾îº¼ °Í model.setValue("/root/main/prcp/prcplist/nigtprcpflag", "Y"); } } } else if(prcpClsCd == "H4" || prcpClsCd == "Z0") { // óġ, ±âŸ /**************************************************************************************************/ // óġ, ±âŸ /**************************************************************************************************/ model.toggle("H4"); // óġ, ±âŸ if(prcpClsCd == "H4") { prcpClsNm = "óġ"; } else if(prcpClsCd == "Z0") { prcpClsNm = "±âŸ"; }else { prcpClsNm = ""; } if(sPrcpCd == "PE100") { // ½Åü¾ïÁ¦´ë ipt_h4_prcpdelivefact.disabled = true; cap_h4_select.visible = true; } else { ipt_h4_prcpdelivefact.disabled = false; cap_h4_select.visible = false; } } else if(prcpClsCd == "I2" || prcpClsCd == "I4") { // ¸¶Ãë /**************************************************************************************************/ // ¸¶Ãë /**************************************************************************************************/ model.toggle("I2"); // ¸¶Ãë prcpClsNm = "¸¶Ãë"; var ansttm = model.getValue ( "/root/main/prcp/prcplist/clinccmtcnts" ); if ( !isNull(ansttm) && ansttm != "-" ) { var ansttm = ansttm + "^"; var formtm = getArrayData (ansttm, 0, 0, "^", "|" ); var totm = getArrayData (ansttm, 0, 1, "^", "|" ); model.setValue ( "/root/ansttm/anstfromdd", formtm.substr ( 0, 8 )); model.setValue ( "/root/ansttm/anstfromh", formtm.substr ( 8, 2 )); model.setValue ( "/root/ansttm/anstfromm", formtm.substr ( 10, 2 )); model.setValue ( "/root/ansttm/ansttodd", totm.substr ( 0, 8 )); model.setValue ( "/root/ansttm/ansttoh", totm.substr ( 8, 2 )); model.setValue ( "/root/ansttm/ansttom", totm.substr ( 10, 2 )); } else { model.setValue ( "/root/ansttm/anstfromdd", getCurrentDate()); model.setValue ( "/root/ansttm/anstfromh", "00"); model.setValue ( "/root/ansttm/anstfromm", "00"); model.setValue ( "/root/ansttm/ansttodd", getCurrentDate()); model.setValue ( "/root/ansttm/ansttoh", "23"); model.setValue ( "/root/ansttm/ansttom", "59"); } var prcpessninptflag = model.getValue ( "/root/main/prcp/prcplist/prcpessninptflag" ); if ( prcpessninptflag != 1 ) {//ó¹æÇʼö ÀԷ±¸ºÐÀÌ ¸¶Ãë½Ã°£ÀÏ °æ¿ì´Â ¸¶Ãë½Ã°£À» üũÇÑ´Ù. ipt_i2_anstfromdd.disabled = true; ipt_i2_anstfromh.disabled = true; ipt_i2_anstfromm.disabled = true; ipt_i2_ansttodd.disabled = true; ipt_i2_ansttoh.disabled = true; ipt_i2_ansttom.disabled = true; } } else if(prcpClsCd == "K2") { // Ä¡°ú /**************************************************************************************************/ // Ä¡°ú /**************************************************************************************************/ model.toggle("K2"); // Ä¡°ú prcpClsNm = "Ä¡°ú"; var prcpessninptflag = model.getValue ( "/root/main/prcp/prcplist/prcpessninptflag" ); if ( prcpessninptflag == 3 || prcpessninptflag == 5 ) { // ó¹æ Çʼö 3:¼ö¼ú±¸ºÐ, 5:¼ö¼ú/Ä¡½Ä Çʼö grd_k2_prcplist.colDisabled(grd_k2_prcplist.colref("opansflagcd")) = false; } else { model.setValue("/root/main/prcp/prcplist/opansflagcd", "-"); grd_k2_prcplist.colDisabled(grd_k2_prcplist.colref("opansflagcd")) = true; } } else if(prcpClsCd == "M2") { // Àç·á /**************************************************************************************************/ // Àç·á /**************************************************************************************************/ model.toggle("M2"); // Àç·á prcpClsNm = "Àç·á"; var calcscormastspec = model.getValue ( "/root/main/prcp/prcplist/calcscormastspec" ) + "^"; if ( getArrayData ( calcscormastspec, 0, 2, "^", "|" ) == "Y" ) { model.setValue ( "/root/send/cond1", model.getValue ( "/root/main/prcp/prcplist/prcpcd" )); model.setValue ( "/root/send/cond2", getUserInfo("dutplceinstcd")); submit ( "TRMMO13401" ); } if ( !isNull(model.getValue ( "/root/main/prcp/prcplist/drprcpetc4" )) && model.getValue ( "/root/main/prcp/prcplist/drprcpetc4" ) != "-" && model.getValue ( "/root/main/prcp/prcplist/drprcpetc4" ) > 0 ) { model.setValue ( "/root/init/drprcpetc4", "Y" ); } else { model.setValue ( "/root/init/drprcpetc4", "" ); } } else { model.setValue("/root/cond/currow", 0); model.toggle("00"); // µðÆúÆ® } if(isNull(prcpClsNm)) { cap_title.text = "󹿻󼼼³Á¤"; } else { cap_title.text = "󹿻󼼼³Á¤ [" + prcpClsNm + "] [" + sPrcpCd + " : " + sOrgPrcpNm + "]"; } model.refresh(); } /** * @desc : ±×¸®µå °ª º¯°æ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fGridChanged(grdObj) { var curRow = model.getValue("/root/cond/currow"); if(opener.model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/prcpcd") != model.getValue ("/root/main/prcp/prcplist/prcpcd") ) { messageBox ( "ÇØ´çó¹æÀÌ Ã³¹æÈ­¸é¿¡¼­ »èÁ¦ ¶Ç´Â ¼ø¼­°¡ º¯°æ µÇ¾ú½À´Ï´Ù.\nó¹æÀ» ´Ù½Ã ¼±Åà ÇϽñ⠹ٶø´Ï´Ù.", "I" ); fInitPage("00"); return; } var sPrcpClsCd = model.getValue ("/root/main/prcp/prcplist/prcpclscd"); var sPrcpGenrFlag = opener.model.getValue("/root/patflag/list/prcpgenrflag"); var sPid = opener.model.getValue("/root/paminfo/list/pid"); var sOrdDd = ""; if(sPrcpGenrFlag == "I" || sPrcpGenrFlag == "D" || sPrcpGenrFlag == "E") { sOrdDd = opener.model.getValue("/root/paminfo/list/indd"); } else { sOrdDd = opener.model.getValue("/root/paminfo/list/orddd"); } /**************************************************************************************************/ // °øÅëó¸® (Àӻ󿬱¸, ±â¿ÕÁõ, DRGÀÎÁ¤) /**************************************************************************************************/ if (grdObj.col == grdObj.colRef("anamneflag")) { var clincstdyflag = grdObj.valueMatrix(1, grdObj.colRef("clincstdyflag")); if(clincstdyflag == "Y") { messageBox ( "±â¿ÕÁõÀº Àӻ󿬱¸¿Í µ¿½Ã¿¡ ¼±Åà ÇÒ ¼ö", "I004" ); grdObj.valueMatrix(1, grdObj.colRef("anamneflag")) = "N"; return; } var anamneflag = grdObj.valueMatrix(1, grdObj.colRef("anamneflag")); if(sPrcpGenrFlag == "I" || sPrcpGenrFlag == "D" || sPrcpGenrFlag == "E"){ if(anamneflag == "Y"){ //±â¿ÕÁõÀÌ Y·Î ó¸®µÈ °æ¿ì¿¡¸¸ º¸Á¶À¯Çü¼±Åà ÆË¾÷ open var subcretno = fGetSubcretno(sPid, sOrdDd, "anamneflag"); model.setValue("/root/main/prcp/prcplist/subcretno", subcretno); if(subcretno == "0"){ messageBox ( "ȯÀÚÀÇ ºÎÀ¯ÇüÀÌ ¾ø°Å³ª ¶Ç´Â ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "I999" ); grdObj.valueMatrix(1, grdObj.colRef("anamneflag")) = "N"; } }else{ //±â¿ÕÁõÀÌ N·Î ó¸®µÈ °æ¿ì¿¡´Â subcretno 0·Î ó¸® model.setValue("/root/main/prcp/prcplist/subcretno", "0"); } } else { messageBox ( "¿Ü·¡ ȯÀÚ´Â ±â¿ÕÁõÀ» ¼±Åà ÇÒ ¼ö", "I004" ); grdObj.valueMatrix(1, grdObj.colRef("anamneflag")) = "N"; } } else if ( grdObj.col == grdObj.colref("clincstdyflag")) { var anamneflag = grdObj.valueMatrix(1, grdObj.colRef("anamneflag")); if(anamneflag == "Y") { messageBox ( "Àӻ󿬱¸´Â ±â¿ÕÁõ°ú µ¿½Ã¿¡ ¼±Åà ÇÒ ¼ö", "I004" ); grdObj.valueMatrix(1, grdObj.colRef("clincstdyflag")) = "N"; return; } fSubcretnoSet("0", grdObj); } else if ( grdObj.col == grdObj.colref("drgacptflag")) { if ( model.getValue ( "/root/main/prcp/prcplist/drgacptflag" ) == "A" ) { // PCA¿ë ¾àÁ¦ messageBox ( "±Þ¿©±¸ºÐÀÌ 'º»Àκδã'À¸·Î º¯°æ µË´Ï´Ù.", "I" ); model.setValue ( "/root/main/prcp/prcplist/payflagcd", "1" ); } else if ( model.getValue ( "/root/main/prcp/prcplist/drgacptflag" ) == "B" ) { // ¹Ì¿ë¼ºÇü messageBox ( "±Þ¿©±¸ºÐÀÌ 'ºñ±Þ¿©'·Î º¯°æ µË´Ï´Ù.", "I" ); model.setValue ( "/root/main/prcp/prcplist/payflagcd", "2" ); } } /**************************************************************************************************/ // ó¹æ Á¾·ùº° ó¸® /**************************************************************************************************/ if(sPrcpClsCd == "03") { // ½ÄÀÌ Ã³¹æ /**************************************************************************************************/ // ½ÄÀÌ Ã³¹æ /**************************************************************************************************/ } else if(sPrcpClsCd == "A2" || sPrcpClsCd == "A4" || sPrcpClsCd == "A6") { // ¾à °æ±¸, ¿Ü¿ë, ÁÖ»ç /**************************************************************************************************/ // ¾à °æ±¸, ¿Ü¿ë, ÁÖ»ç /**************************************************************************************************/ if ( grdObj.col == grdObj.colref("prnprcpflag")) { if ( model.getValue ( "/root/main/prcp/prcplist/prnprcpflag" ) == "Y" ) { //PRN üũ½Ã drugmastspec ÀÇ 34¹øÂ° Ä÷³À¸·Î ±× °¡´É¿©ºÎ¸¦ µûÁ® ºí·ÎÅ· ¹× »çÀ¯, Ƚ¼ö¸¦ //ÀԷ¹޴ ÆË¾÷À» ¶ç¿öÁØ´Ù . 2010-01-02 by LYJ var drugmastspec = model.getValue("/root/main/prcp/prcplist/drugmastspec"); var prnl = getArrayData ( drugmastspec, 0, 33, "^", "|" ); if ( prnl == "N" && model.getValue("/root/main/temp/prnuseyn/hardcd/hardcd")=="Y" ){ messageBox ( "PRN ÁöÁ¤ÀÌ ºÒ°¡´ÉÇÑ Ã³¹æÀÔ´Ï´Ù." , "E" ); model.setValue ( "/root/main/prcp/prcplist/prnprcpflag" , "N" ) model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "N" ); if(sPrcpClsCd == "A6") { ipt_a6_prcpdelivefact.disabled = false; cap_a6_prn.visible = false; cap_a6_prntime.visible = false; cap_a6_prnresncmt.visible = false; cap_a6_prnterm.visible = false; ipt_a6_prntime.visible = false; ipt_a6_prnresncmt.visible = false; ipt_a6_prnterm.visible = false; cob_a6_prnprcpresncd.visible = false; } else { ipt_a2_prcpdelivefact.disabled = true; cap_a2_prn.visible = false; cap_a2_prntime.visible = false; cap_a2_prnresncmt.visible = false; cap_a2_prnterm.visible = false; ipt_a2_prntime.visible = false; ipt_a2_prnresncmt.visible = false; ipt_a2_prnterm.visible = false; cob_a2_prnprcpresncd.visible = false; } } else if (prnl =="Y"){ model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "Y" ); //20090115 ¸¶Á¤¹Î ¼öÁ¤ PRNó¹æ 1ȸ¸¸ µÇ°Ô ¼öÁ¤ if ( model.getValue ( "/root/main/prcp/prcplist/prcptims" ) != "1" ) { messageBox ( "PRN ó¹æÀÇ È½¼ö´Â 1¸¸ °¡´ÉÇÕ´Ï´Ù. 1ȸ·Î ¼öÁ¤ÇϰڽÀ´Ï´Ù." , "E" ); var prcptims = model.getValue ("/root/main/prcp/prcplist/prcptims" ); //1ÀÌ ¾Æ´Ñ °æ¿ì´Â 1·Î ¹Ù²ãÁÖ°í °æ±¸¾àÀÎ °æ¿ì´Â ¿ë¹ýµµ ¹Ù²ãÁØ´Ù. var prcpqty = model.getValue ( "/root/main/prcp/prcplist/prcpqty" ); var prcpvol = model.getValue ( "/root/main/prcp/prcplist/prcpvol" ); if ( prcptims != "0" && model.getValue ( "/root/main/prcp/prcplist/prcpclscd" ) == "A2" ) { prcpqty = (eval(prcpqty)*1000/eval(prcptims)); prcpvol = (eval(prcpvol)*1000/eval(prcptims)); model.setValue ( "/root/main/prcp/prcplist/prcpqty", Math.round ( prcpqty ) / 1000); model.setValue ( "/root/main/prcp/prcplist/prcpvol", Math.round ( prcpvol ) / 1000); } model.setValue ( "/root/main/prcp/prcplist/prcptims", "1" ); if ( sPrcpClsCd == "A2" ) { fBaseMthd(1); } } // ÇϵåÄÚµå 173¹øÀÇ Àû¿ë¿©ºÎ¿Í CP,Ç×¾ÏÇÁ·ÎÅäÄÝ,󹿏ÞÀÎÀÇ ±¸ºÐÀ» À§ÇØ È­¸éÄڵ带 °¡Á®¿Í ÆË¾÷ ¶ç¿ì±â ¿©ºÎ¸¦ °áÁ¤ÇÑ´Ù. 2010-01-02 by LYJ if(model.getValue("/root/main/temp/prnuseyn/hardcd/hardcd")=="Y") { var xpt = window.screenleft + 50; var ypt = window.screenTop - 400; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; modal("SPMMO19200",mon,xpt, ypt, "SPMMO19200", "/root/tmp/prnresncd", "/root/main/prcp/prcplist/prnresncd", "sysmenu:hidden;", false ); var SPMMO19200_prnNum = getParameter("SPMMO19200_prnNum"); var SPMMO19200_resncd = getParameter("SPMMO19200_resncd"); var SPMMO19200_resncmt = getParameter("SPMMO19200_resncmt"); var SPMMO19200_resnnm = getParameter("SPMMO19200_resnnm"); var SPMMO19200_prnTerm = getParameter("SPMMO19200_prnTerm"); var resnyn = getParameter("SPMMO19200_rtn1"); if( resnyn == "N" ){ model.setValue ( "/root/main/prcp/prcplist/prnprcpflag" , "N" ); model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "N" ); model.setValue ( "/root/main/prcp/prcplist/drprcpetc6", "-" ); if(sPrcpClsCd == "A6") { ipt_a6_prcpdelivefact.disabled = false; cap_a6_prn.visible = false; cap_a6_prntime.visible = false; cap_a6_prnresncmt.visible = false; cap_a6_prnterm.visible = false; ipt_a6_prntime.visible = false; ipt_a6_prnresncmt.visible = false; ipt_a6_prnterm.visible = false; cob_a6_prnprcpresncd.visible = false; } else { ipt_a2_prcpdelivefact.disabled = false; cap_a2_prn.visible = false; cap_a2_prntime.visible = false; cap_a2_prnresncmt.visible = false; cap_a2_prnterm.visible = false; ipt_a2_prntime.visible = false; ipt_a2_prnresncmt.visible = false; ipt_a2_prnterm.visible = false; cob_a2_prnprcpresncd.visible = false; } } else if (resnyn == "Y") { var Sprnprcpdtl = SPMMO19200_prnNum + "|" + SPMMO19200_resncd +"|" + SPMMO19200_resncmt + "|" + SPMMO19200_prnTerm; model.setValue ( "/root/main/prcp/prcplist/drprcpetc6" , Sprnprcpdtl); model.setValue ( "/root/main/prcp/prcplist/prnprcpflag" , "Y" ); model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "Y" ); if(SPMMO19200_prnTerm == "") { model.setValue ( "/root/main/prcp/prcplist/prcpdelivefact", "PRN»çÀ¯ : " + SPMMO19200_resnnm + " " + SPMMO19200_resncmt); }else { model.setValue ("/root/main/prcp/prcplist/prcpdelivefact", "PRN»çÀ¯ : " + SPMMO19200_resnnm + " " + SPMMO19200_resncmt + ", PRN°£°Ý : " + SPMMO19200_prnTerm); } model.setValue("/root/main/temp/prntms", SPMMO19200_prnNum); model.setValue("/root/main/temp/prnterm", SPMMO19200_prnTerm); model.setValue("/root/main/temp/prnresncmt", SPMMO19200_resncmt); model.setValue("/root/main/temp/prnprcpresncd", SPMMO19200_resncd); if(sPrcpClsCd == "A6") { ipt_a6_prcpdelivefact.disabled = true; cap_a6_prn.visible = true; cap_a6_prntime.visible = true; cap_a6_prnresncmt.visible = true; cap_a6_prnterm.visible = true; ipt_a6_prntime.visible = true; ipt_a6_prnresncmt.visible = true; ipt_a6_prnterm.visible = true; cob_a6_prnprcpresncd.visible = true; } else { ipt_a2_prcpdelivefact.disabled = true; cap_a2_prn.visible = true; cap_a2_prntime.visible = true; cap_a2_prnresncmt.visible = true; cap_a2_prnterm.visible = true; ipt_a2_prntime.visible = true; ipt_a2_prnresncmt.visible = true; ipt_a2_prnterm.visible = true; cob_a2_prnprcpresncd.visible = true; } } } } } else { model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "N" ); if(sPrcpClsCd == "A6") { ipt_a6_prcpdelivefact.disabled = true; cap_a6_prn.visible = true; cap_a6_prntime.visible = true; cap_a6_prnresncmt.visible = true; cap_a6_prnterm.visible = true; ipt_a6_prntime.visible = true; ipt_a6_prnresncmt.visible = true; ipt_a6_prnterm.visible = true; cob_a6_prnprcpresncd.visible = true; } else { ipt_a2_prcpdelivefact.disabled = true; cap_a2_prn.visible = true; cap_a2_prntime.visible = true; cap_a2_prnresncmt.visible = true; cap_a2_prnterm.visible = true; ipt_a2_prntime.visible = true; ipt_a2_prnresncmt.visible = true; ipt_a2_prnterm.visible = true; cob_a2_prnprcpresncd.visible = true; } } } else if ( grdObj.col == grdObj.colref("hosinprcpresncd")) { //¿ø³»Ã³¹æ »çÀ¯¸¦ ¼±ÅÃÇØ¼­ ó¹æÈ­¸éÀÇ ¿ø³»Ã³¹æ »çÀ¯¶û °°Àº °ÍÀÌ ÀÖÀ¸¸é ¸ðµÎ ±×°ÍÀ¸·Î ¹Ù²Þ if ( model.getValue ( "/root/main/prcp/prcplist/hosinprcpresncd" ) == "00" ) { model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "O" ); } else { model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "I" ); } if ( opener.model.getValue ( "/root/usge" ) == "prcp" ) { //¾à¼Óó¹æ, Áö½Ãó¹æ¿¡¼­´Â µÇ¸é ¾ÈµÊ var hosinprcpresncd = model.getValue ( "/root/main/prcp/prcplist/hosinprcpresncd" ); //by sonjy 20081016 ¿ø¿Ü¿ä±¸ »çÀ¯ ó¸® if( hosinprcpresncd == "90" ){ fChkHosInResnCd(grdObj); return ; } var openerHosinprcpresncd = opener.model.getValue ( "/root/init/hosinprcpresncd/P0034[cdid='" + hosinprcpresncd + "']/cdid" ); if ( !isNull(openerHosinprcpresncd) && hosinprcpresncd != "00" ) { if ( messageBox ( "¸ðµç ¾à,ÁÖ»ç ó¹æ¿¡ °°Àº ¿ø³»Ã³¹æ »çÀ¯¸¦", "Q009" ) == "6" ) { opener.model.setValue ( "/root/init/hosinprcpresncd", openerHosinprcpresncd ); fChngHosinPrcpResn("child", openerHosinprcpresncd); opener.model.refresh(); } else { //¾Æ´Ï¿À¸¦ ¼±ÅÃÇÒ °æ¿ì º¯°æÀü µ¥ÀÌÅÍ·Î µ¹¸°´Ù. var bfhosinprcpresncd = model.getValue ( "/root/init/bfhosinprcpresncd" ); if ( bfhosinprcpresncd == "00" ) { model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "O" ); } else { model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "I" ); } model.setValue ( "/root/main/prcp/prcplist/hosinprcpresncd", bfhosinprcpresncd ); grdObj.rebuild(); return; } } model.setValue ( "/root/init/bfhosinprcpresncd", hosinprcpresncd ); } } else if ( grdObj.col == grdObj.colref("erprcpflag")) { if ( model.getValue ( "/root/main/prcp/prcplist/erprcpflag" ) == "Y") { if (model.getValue ( "/root/main/prcp/prcplist/prcptims" ) != "1" ) { messageBox ( "ÀÀ±Þ ó¹æÀÇ È½¼ö´Â 1¸¸ °¡´ÉÇÕ´Ï´Ù. 1ȸ·Î ¼öÁ¤ÇϰڽÀ´Ï´Ù." , "E" ); var prcptims = model.getValue("/root/main/prcp/prcplist/prcptims" ); var prcpqty = model.getValue("/root/main/prcp/prcplist/prcpqty" ); var prcpvol = model.getValue("/root/main/prcp/prcplist/prcpvol" ); if ( prcptims != "0" && model.getValue("/root/main/prcp/prcplist/prcpclscd" ) == "A2" ) { //1ÀÌ ¾Æ´Ñ °æ¿ì´Â 1·Î ¹Ù²ãÁÖ°í °æ±¸¾àÀÎ °æ¿ì´Â ¿ë¹ýµµ ¹Ù²ãÁØ´Ù. prcpqty = (eval(prcpqty)*1000/eval(prcptims)); prcpvol = (eval(prcpvol)*1000/eval(prcptims)); model.setValue ("/root/main/prcp/prcplist/prcpqty", Math.round ( prcpqty ) / 1000); model.setValue ("/root/main/prcp/prcplist/prcpvol", Math.round ( prcpvol ) / 1000); } model.setValue("/root/main/prcp/prcplist/prcptims", "1" ); } if ( sPrcpClsCd == "A2" ) { // µðÆúÆ® ¿ë¹ý ¼ÂÆÃ fBaseMthd(1); } } else { //ÀÀ±Þ üũ ÇØÁ¦½Ã Áö±Ýº¹¿ë ¿ë¹ý¿¡¼­ ±âº»¿ë¹ýÀ¸·Î º¯°æ var prcptims = model.getValue("/root/main/prcp/prcplist/prcptims" ); fBaseMthd(prcptims); } } else if ( grdObj.col == grdObj.colref("powdflag") && model.getValue("/root/main/prcp/prcplist/powdflag" ) == "Y" ) { //20090218 ¸¶Á¤¹Î ¼öÁ¤ »êÁ¦ºÒ°¡, »êÁ¦ÁÖÀǽà ´ëüó¹æ var drugmastspec = model.getValue("/root/main/prcp/prcplist/drugmastspec" ); var sPowdImpsi = getArrayData(drugmastspec + "^", 0, 19, "^", "|" ); // »êÁ¦ºÒ°¡ ¿©ºÎ if(sPowdImpsi == "1" || sPowdImpsi == "2" ) { opener.javascript.clearParameter ( "SPMMB10100_chkyn" ); if ( sPowdImpsi == "2" ) { //»êÁ¦ºÒ°¡ opener.javascript.fAltDrug ( curRow, "4" ); } else if ( sPowdImpsi == "1" ) { //»êÁ¦ÁÖÀÇ opener.javascript.fAltDrug ( curRow, "4" ); } //È®ÀÎÀ» ´­·¶À» °æ¿ì. ´Ü ¼±ÅÃµÈ ´ëü¾àÀÌ ÀÖÀ» ¶§¸¸ SPMMB10100_chkyn = Y ó¸®ÇØ ÁØ´Ù. if ( opener.javascript.getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { var addRow = opener.grd_prcplist.rows-2; opener.javascript.fPrcpBuffer( 1, addRow, "/root/prcpdrag", "/root/main/prcp/prcplist" ); // ´ëü¾à ¹öÆÛ¿¡ º¹»ç opener.model.removenode ( "/root/main/prcp/prcplist[" + addRow + "]" ); // ´ëü¾à »èÁ¦ opener.model.removenode ( "/root/main/prcp/prcplist[" + curRow + "]" ); // ±âÁ¸¾à »èÁ¦ opener.model.duplicate( "/root/main/prcp", "/root/prcpdrag/prcplist", "*[" + curRow + "]"); // ±âÁ¸¾àÀ» ´ëü¾àÀ¸·Î º¯°æ opener.model.setValue ( "/root/main/prcp/prcplist[" + curRow + "]/powdflag", "Y" ) opener.model.removeNodeset ( "/root/prcpdrag/prcplist" ); opener.javascript.makePrcpNm ( prcpNode, curRow ); opener.model.recalculate(); opener.model.refresh(); opener.grd_prcplist.row = curRow; fInitPage("00"); return; } else { if (sPowdImpsi == "1") { model.setValue("/root/main/prcp/prcplist/powdflag", "Y" ); } else { model.setValue("/root/main/prcp/prcplist/powdflag", "N" ); } } opener.javascript.clearParameter ( "SPMMB10100_chkyn" ); } } } else if(sPrcpClsCd == "B2" || sPrcpClsCd == "B6") { // Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³» /**************************************************************************************************/ // Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³» /**************************************************************************************************/ if ( grdObj.col == grdObj.colref("diagtestconttestintvlflag")) { fContTest(); } else if ( grdObj.col == grdObj.colref("prcptims") ) { if ( model.getValue ( "/root/main/prcp/prcplist/prcptims" ) == "1" ) { model.setValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag", "N" ) ; model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", "-" ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", "-" ); } else { fContTest(); } } else if( grdObj.col == grdObj.colRef("choiordflag") ){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_b2_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } else if ( grdObj.col == grdObj.colref("erprcpflag")) { if ( model.getValue ( "/root/main/prcp/prcplist/erprcpflag" ) == "Y" ) { var drugmastspec = model.getValue ( "/root/main/prcp/prcplist/drugmastspec" ); if ( getArrayData ( drugmastspec + "^", 0, 8, "^", "|" ) == "N" ) { messageBox ( "ÀÀ±ÞÀÌ ºÒ°¡ÇÑ Ã³¹æÀÔ´Ï´Ù.", "E" ); model.setValue ( "/root/main/prcp/prcplist/erprcpflag", "N" ); } } } else if ( grdObj.col == grdObj.colref("prnprcpflag")) { //prn check ½Ã tempprcpflag ó¸® ºÎºÐ by sonjy 20100302 if ( model.getValue ( "/root/main/prcp/prcplist/prnprcpflag" ) != "Y" ) { model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "N" ); } } } else if(sPrcpClsCd == "B4") { // ¼öÇ÷ /**************************************************************************************************/ // ¼öÇ÷ /**************************************************************************************************/ if ( grdObj.col == grdObj.colRef("prcpqty") ) { DrugCalc ( "prcpqty" , grdObj.row); } else if ( grdObj.col == grdObj.colRef("irflag") ) { if ( model.getValue ( "/root/main/prcp/prcplist/irflag" ) == "N" ) { model.setValue ( "/root/main/prcp/prcplist/irpayflag", "N" ); rdo_b4_irpayflag.disabled = true; } else { model.setValue ( "/root/main/prcp/prcplist/irpayflag", "0" ); rdo_b4_irpayflag.disabled = false; } } } else if(sPrcpClsCd == "C2" || sPrcpClsCd == "C6" || sPrcpClsCd == "E2") { // ¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó) /**************************************************************************************************/ // ¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó) /**************************************************************************************************/ if(grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "N"){ model.setValue("/root/main/prcp/prcplist/specdrid", ""); }else{ btn_c2_specdrid.dispatch("DOMActivate"); } } } else if(sPrcpClsCd == "C4") {// angio /**************************************************************************************************/ // angio /**************************************************************************************************/ if ( grdObj.col == grdObj.colRef("angioflagcd") ) { model.setValue ( "/root/main/prcp/prcplist/tempcol1", grdObj.labelMatrix (1, grdObj.colRef("angioflagcd"))); } else if( grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_c4_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } } else if(sPrcpClsCd == "D2") { // º´¸® /**************************************************************************************************/ // º´¸® /**************************************************************************************************/ if(grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_d2_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } } else if(sPrcpClsCd == "F2") { // ÀçȰ /**************************************************************************************************/ // ÀçȰ /**************************************************************************************************/ if(grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_f2_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } else if(grdObj.col == grdObj.colRef("rehbprcpenddd")){ if (model.getValue ( "/root/main/prcp/prcplist/rehbprcpenddd" ) < getCurrentDate()){ messageBox ( "¸¶°¨ÀÏÀÌ ÇöÀ纸´Ù °ú°ÅÀÏ ¼ö ¾ø½À´Ï´Ù.", "I" ); model.setValue("/root/main/prcp/prcplist/rehbprcpenddd","-"); } } } else if(sPrcpClsCd == "G2") { // RT /**************************************************************************************************/ // RT /**************************************************************************************************/ if(grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_g2_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } else if(grdObj.col == grdObj.colref("prnprcpflag")) { if ( model.getValue ( "/root/main/prcp/prcplist/prnprcpflag" ) != "Y" ) { //prn check ½Ã tempprcpflag ó¸® ºÎºÐ by sonjy 20100302 model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "N" ); } } } else if(sPrcpClsCd == "H2") { // ¼ö¼ú /**************************************************************************************************/ // ¼ö¼ú /**************************************************************************************************/ if ( grdObj.col == grdObj.colRef("choiordflag")){ //¼±ÅÃÁø·áÀÇ Å¬¸¯½Ã var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_h2_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } else if ( grdObj.col == grdObj.colRef("erprcpflag")){ //ÀÀ±ÞÄ÷³ Ŭ¸¯½Ã var node = model.instances(0).selectSingleNode("/root/init/operation/list/opflagcd"); if(node != null){ model.setFocus(grdObj); var opflagcd = model.getValue("/root/init/operation/list/opflagcd"); var erprcpflag = model.getValue("/root/main/prcp/prcplist/erprcpflag"); if(opflagcd == "1" && erprcpflag == "Y"){ //¼ö¼úÀÌ Á¤±ÔÀÎ °æ¿ì, ÀÀ±ÞÀ» Ŭ¸¯Çϸé error!! messageBox("Á¤±Ô ¼ö¼úÀº ÀÀ±ÞÀ» ¼±ÅÃ", "E001"); model.setValue("/root/main/prcp/prcplist/erprcpflag", "N"); model.refresh(); return; } } } } else if(sPrcpClsCd == "H4" || sPrcpClsCd == "Z0") { // óġ, ±âŸ /**************************************************************************************************/ // óġ, ±âŸ /**************************************************************************************************/ if(grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_h4_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } } else if(sPrcpClsCd == "I2" || sPrcpClsCd == "I4") { // ¸¶Ãë /**************************************************************************************************/ // ¸¶Ãë /**************************************************************************************************/ if(grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_i2_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); model.refresh(); } } } else if(sPrcpClsCd == "K2") { // Ä¡°ú /**************************************************************************************************/ // Ä¡°ú /**************************************************************************************************/ if(grdObj.col == grdObj.colRef("opansflagcd")){ model.setValue ( "/root/main/prcp/prcplist/tempcol1", grdObj.labelMatrix (1,grdObj.colRef("opansflagcd"))); } else if(grdObj.col == grdObj.colRef("choiordflag")){ var choiordflag = model.getValue("/root/main/prcp/prcplist/choiordflag"); if(choiordflag == "Y"){ btn_k2_specdrid.dispatch("DOMActivate"); }else{ model.setValue("/root/main/prcp/prcplist/specdrid", ""); } } } else if(sPrcpClsCd == "M2") { /**************************************************************************************************/ // Àç·á /**************************************************************************************************/ if ( grdObj.col == grdObj.colref("matrallsizespecid")) { model.setValue ( "/root/main/prcp/prcplist/tempcol1", grdObj.labelMatrix (1,grdObj.colref("matrallsizespecid"))); }else if ( grdObj.col == grdObj.colref("erprcpflag")) { var erprcpflag = grdObj.valueMatrix(1, grdObj.colRef("erprcpflag")); if(getUserInfo("dutplceinstcd") == "031" && erprcpflag == "Y") { // º»¿ø Àç·á ó¹æ ÀÀ±Þ ºÒ°¡ Çϵµ·Ï ¼öÁ¤. °ø±Þ½Ç ä¼±ÀÚ ¿äû 2012.05.08 ¾ö¿µ¸¸ messageBox ( "Àç·áó¹æÀº ÀÀ±ÞÀ» ¼±Åà ÇÒ ¼ö ¾ø½À´Ï´Ù.\n\nÀÀ±ÞºÐÃâÀÌ ÇÊ¿äÇÒ °æ¿ì ó¹æ ÀÔ·Â ÈÄ\nÁø·áÀç·áÆÄÆ®¿¡ ¼±ºÒÃâÀ» ¿äû ÇϽʽÿÀ.", "I999" ); grdObj.valueMatrix(1, grdObj.colRef("erprcpflag")) = "N"; return; } } else if ( grdObj.col == grdObj.colref("prcpqty")) { DrugCalc ( "prcpqty", grdObj.row ); } } else { // µðÆúÆ® } model.refresh(); } /** * @desc : ±×¸®µå ´õºíŬ¸¯ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fGridDbClick(grdObj) { var curRow = model.getValue("/root/cond/currow"); if(opener.model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/prcpcd") != model.getValue ("/root/main/prcp/prcplist/prcpcd") ) { messageBox ( "ÇØ´çó¹æÀÌ Ã³¹æÈ­¸é¿¡¼­ »èÁ¦ ¶Ç´Â ¼ø¼­°¡ º¯°æ µÇ¾ú½À´Ï´Ù. \nó¹æÀ» ´Ù½Ã ¼±Åà ÇϽñ⠹ٶø´Ï´Ù.", "I" ); fInitPage("00"); return; } var bIsChanged = false; // °ª º¯°æ ¿©ºÎ º¯°æ µÇ¾úÀ»¶§¸¸ ¹Ý¿µÇϱâ À§ÇØ Ãß°¡ var prcpNode = "/root/main/prcp/prcplist"; if ( grdObj.col == grdObj.colRef("tootfact")) { //ó¹æ Ä¡½Ä setting ½ÃÀÛ var prcpNm = ""; var tootFact = ""; var sPrcpStr = "prcpcd¢Ëtootfact¢Ërtntootfact¢Ërowcnt¢Ì"; prcpNm = model.getValue("/root/main/prcp/prcplist/prcpcd") + "¢Ë¢Ë"; tootFact = model.getValue("/root/main/prcp/prcplist/tootfact") + "¢Ë1¢Ì"; sPrcpStr = sPrcpStr + prcpNm + tootFact; setParameter("param_prcplist", sPrcpStr); var sDiagStr = "diagcd¢Ëtootfact¢Ërtntootfact¢Ërowcnt¢Ì"; setParameter("param_diaglist", sDiagStr); modal ("SPMMO10500"); if ( getParameter("rtn_useyn") == "Y" ) { var prow = 0; var ptootfact = ""; var drow = 0; var dtootfact = ""; var prcplen = getParameter("rtn_prcptootfact").split("¢Ì").length; for ( var i=1; i < prcplen-1; i++ ) { prow = getArrayData (getParameter("rtn_prcptootfact"), i, 3, "¢Ì", "¢Ë" ); //Ä¡½ÄÀÌ ÀÔ·ÂµÉ row ptootfact = getArrayData (getParameter("rtn_prcptootfact"), i, 2, "¢Ì", "¢Ë" )//Ä¡½Ä model.setValue ( "/root/main/prcp/prcplist/tootfact", ptootfact); bIsChanged = true; } } } if(bIsChanged) { model.refresh(); fPrcpSetting(); } } /** * @desc : ó¹æ »ó¼¼ Á¤º¸ ¼³Á¤ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fPrcpSetting() { var curRow = model.getValue("/root/cond/currow"); if(curRow == 0) { return; } if(opener.model.getValue ("/root/main/prcp/prcplist[" + curRow + "]/prcpcd") != model.getValue ("/root/main/prcp/prcplist/prcpcd") ) { messageBox ( "ÇØ´çó¹æÀÌ Ã³¹æÈ­¸é¿¡¼­ »èÁ¦ ¶Ç´Â ¼ø¼­°¡ º¯°æ µÇ¾ú½À´Ï´Ù. \n ó¹æÀ» ´Ù½Ã ¼±Åà ÇϽñ⠹ٶø´Ï´Ù.", "I" ); fInitPage("00"); return; } var prcpClsCd = model.getValue ("/root/main/prcp/prcplist/prcpclscd"); if(prcpClsCd == "") { return; } if(!fCheckValidation(prcpClsCd)) { return; } if ( opener.model.instances(0).selectNodes ("/root/prcptemp/prcplist").length == 0 ) { return; } opener.javascript.fPrcpDetlApp( prcpClsCd, "/root/prcptemp/prcplist", "/root/main/prcp", curRow ); //M-SET ¸ðó¹æÀÎ °æ¿ì, prcphopedd¸¦ ÀÚó¹æ¿¡ µ¿ÀÏÇÏ°Ô Àû¿ë //2008. 07. 22 ¿ÀÁöÈÆ var prcpSetCd = model.getValue ("/root/main/prcp/prcplist/prcpsetcd" ); var inclPrcpNo = model.getValue ("/root/main/prcp/prcplist/inclprcpno" ); var prcpHopeDD = model.getValue ("/root/main/prcp/prcplist/prcphopedd" ); if(prcpSetCd == "-" && inclPrcpNo > 0){ //¸ðó¹æÀÎ °æ¿ì, prcphopedd for(var i = 1; i <= opener.grd_prcplist.rows; i++){ if(inclPrcpNo == opener.model.getValue ("/root/main/prcp/prcplist[" + i + "]/inclprcpno")){ opener.model.setValue("/root/main/prcp/prcplist[" + i + "]/prcphopedd", prcpHopeDD); } } } opener.model.recalculate(); model.refresh(); } /** * @desc : ó¹æÁ¾·ùº° °ª À¯È¿¼º üũ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fCheckValidation(prcpClsCd) { var bRtn = true; var sPrcpGenrFlag = opener.model.getValue("/root/patflag/list/prcpgenrflag"); var sPid = opener.model.getValue("/root/paminfo/list/pid"); var sIndd = opener.model.getValue("/root/paminfo/list/indd"); if(prcpClsCd == "03") { /**************************************************************************************************/ // ½ÄÀÌ /**************************************************************************************************/ opener.javascript.clearParameter ( "SPMMO01700_chkcnt" ) var cnt = 0; var drugmastspec = model.getValue ( "/root/main/prcp/prcplist/drugmastspec" ) +"¢Ì"; var calcond = getArrayData (drugmastspec, 0, 0, "¢Ì", "|" ); if ( calcond == "2" ) { if ( model.getValue ( "/root/main/prcp/prcplist/mealcalrcnts" ) == "0" ) { messageBox ( "¼±ÅÃµÈ ¿­·®°ªÀÌ", "I004" ); bRtn = false; } } else if ( calcond == "3" ) { if ( model.getValue ( "/root/main/prcp/prcplist/mealcalrcnts" ) == "0" ) { messageBox ( "¼±ÅÃµÈ ¿ë·®°ªÀÌ", "I004" ); bRtn = false; } } var mealprotcntscond = getArrayData (drugmastspec, 0, 3, "¢Ì", "|" ); if ( mealprotcntscond == "Y" ) { if ( model.getValue ( "/root/main/prcp/prcplist/mealprotcnts" ) == "0" ) { messageBox ( "¼±ÅÃµÈ È½¼ö°ªÀÌ", "I004" ); bRtn = false; } } model.setValue ( "/root/main/prcp/prcplist/tempcol1" , grd_prcpdetl1.valueMatrix ( 0, 4 )); if ( model.getValue ( "/root/diet1" ) == "Y" ) { cnt++; } if ( model.getValue ( "/root/diet2" ) == "Y" ) { cnt++; } if ( model.getValue ( "/root/diet3" ) == "Y" ) { cnt++; } if ( cnt == 0 ) { messageBox ( "¼±ÅÃµÈ ½ÄÀ̱¸ºÐ(Á¶½Ä,Áß½Ä,¼®½Ä,Àüü)ÀÌ", "I004" ); bRtn = false; } else { opener.javascript.setParameter ( "SPMMO01700_chkcnt", cnt ); } if(bRtn) { model.setValue ( "/root/main/prcp/prcplist/tempcol9", "" ); if ( model.getValue ( "/root/diet1" ) == "Y" ) { model.setValue( "/root/main/prcp/prcplist/dietprcpgenrflag", "1" ); appendChildPrcp ( "/root/main/prcp/prcplist", "/root/prcptemp" ); } if ( model.getValue ( "/root/diet2" ) == "Y" ) { model.setValue( "/root/main/prcp/prcplist/dietprcpgenrflag", "2" ); appendChildPrcp ( "/root/main/prcp/prcplist", "/root/prcptemp" ); } if ( model.getValue ( "/root/diet3" ) == "Y" ) { model.setValue( "/root/main/prcp/prcplist/dietprcpgenrflag", "3" ); appendChildPrcp ( "/root/main/prcp/prcplist", "/root/prcptemp" ); } } } else if(prcpClsCd == "A2" || prcpClsCd == "A4" || prcpClsCd == "A6") { /**************************************************************************************************/ // ¾à °æ±¸, ¿Ü¿ë, ÁÖ»ç /**************************************************************************************************/ //¸¶¾àó¹æÀÎ °æ¿ì, »çÀ¯ Àü´Þ, 2008. 06. 12 ¿ÀÁöÈÆ var drugmastspec = model.getValue("/root/main/prcp/prcplist/drugmastspec"); var prcpdayno = model.getValue("/root/main/prcp/prcplist/prcpdayno"); var spcldrug = getArrayData ( drugmastspec, 0, 23, "^", "|" ); if ( spcldrug == "M" && prcpdayno >= 30) { var clinccmtcnts = ""; if(prcpClsCd == "A6") { clinccmtcnts = rdo_a6_clinccmtcnts.value; } else { clinccmtcnts = rdo_a2_clinccmtcnts.value; } if(clinccmtcnts == "-"){ messageBox("30ÀÏ ÀÌ»óÀÇ ¸¶¾àó¹æ »çÀ¯¸¦", "C002"); bRtn = false; } if(clinccmtcnts == "2. ±âŸ" && (model.getValue("/root/main/temp/clinccmtcnts")=="" || model.getValue("/root/main/temp/clinccmtcnts")=="-")){ messageBox("30ÀÏ ÀÌ»óÀÇ ¸¶¾àó¹æ »çÀ¯¸¦", "C001"); bRtn = false; }else{ if(clinccmtcnts != "1. ´ÙÀ½ Áø·áÀϱîÁöÀÇ ±â°£ÀÌ 30ÀÏ Ãʰú"){ //1. ´ÙÀ½ Áø·áÀϱîÁöÀÇ ±â°£ÀÌ 30ÀÏ Ãʰ¡ ¼±Åà model.setValue("/root/main/prcp/prcplist/clinccmtcnts", model.getValue("/root/main/temp/clinccmtcnts")); } } } } else if(prcpClsCd == "B2" || prcpClsCd == "B6") { /**************************************************************************************************/ // Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³» /**************************************************************************************************/ if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) != "N" ) { if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec" ) == "-" ) { messageBox ( "ÀÔ·ÂµÈ ¿¬¼Ó°Ë»ç°ªÀÌ", "I004" ); bRtn = false; } } if(bRtn) { model.setValue ( "/root/main/prcp/prcplist/mealcalrcnts", model.getValue ( "/root/main/prcp/prcplist/prcptims" )); } } else if(prcpClsCd == "B4") { /**************************************************************************************************/ // ¼öÇ÷ /**************************************************************************************************/ //¼öÇ÷ÀûÀÀÁõ var prcphopedd = model.getValue ( "/root/main/prcp/prcplist/prcphopedd").substring(0,8); var prcphopeddh = model.getValue ( "/root/init/prcphopeddh" ); var prcphopeddm = model.getValue ( "/root/init/prcphopeddm" ); if (!isValidDateTime ( prcphopedd, "YYYYMMDD")) { messageBox ( "¼öÇ÷¿¹Á¤ÀϽð¡", "E016" ); bRtn = false; } if ( eval(prcphopeddh) >= 24 ) { messageBox ( "¼öÇ÷¿¹Á¤½Ã°£ÀÌ", "E016" ); bRtn = false; } if ( eval(prcphopeddm) >= 60 ) { messageBox ( "¼öÇ÷¿¹Á¤ºÐÀÌ", "E016" ); bRtn = false; } if(bRtn) { prcphopeddh = prcphopeddh.toString().getLeftPad ( 2, "0" ); prcphopeddm = prcphopeddm.toString().getLeftPad ( 2, "0" ); model.setValue ( "/root/main/prcp/prcplist/prcphopedd", prcphopedd + prcphopeddh + prcphopeddm + "00" ); } } else if(prcpClsCd == "C2" || prcpClsCd == "C6" || prcpClsCd == "E2") { /**************************************************************************************************/ // ¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó) /**************************************************************************************************/ var ck = model.getValue ( "/root/main/prcp/prcplist/tempcol2").substring ( 0, 2 ); if (ck=="19"||ck=="20"||ck=="21"||ck=="22"||ck=="23"||ck=="24"||ck=="25"||ck=="26" || model.getValue ( "/root/main/prcp/prcplist/tempcol2") == "18|02|06" || model.getValue ( "/root/main/prcp/prcplist/tempcol2") == "09|01|04") { var clinccmtcnts = model.getValue ( "/root/main/prcp/prcplist/clinccmtcnts" ); var prcpdelivefact = model.getValue( "/root/main/prcp/prcplist/prcpdelivefact" ); if ((clinccmtcnts == "" || clinccmtcnts == "-") && (prcpdelivefact == "" || prcpdelivefact == "-")) { messageBox ( "ÀÓ»ó¼Ò°ßÀ̳ª Àü´Þ»çÇ×ÀÌ", "E014" ); bRtn = false; } } } else if(prcpClsCd == "C4") { /**************************************************************************************************/ // angio /**************************************************************************************************/ var prcpessninptflag = model.getValue ( "/root/main/prcp/prcplist/prcpessninptflag" ); if ( prcpessninptflag ==4) { if ( model.getValue ( "/root/main/prcp/prcplist/angioflagcd" ) == "-" || isNull(model.getValue ( "/root/main/prcp/prcplist/angioflagcd" ))) { messageBox ( "Angio ±¸ºÐÀÌ ÀԷµÇÁö" , "E007" ); bRtn = false; } } } else if(prcpClsCd == "D2") { /**************************************************************************************************/ // º´¸® /**************************************************************************************************/ bRtn = true; } else if(prcpClsCd == "F2") { /**************************************************************************************************/ // ÀçȰ /**************************************************************************************************/ var trgtcdnm = model.getValue("/root/hardcode/hardcodelist/trgtcdnm"); if (trgtcdnm == "Y") { if ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurepartcd" ) == "-" || isNull ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurepartcd" ))) { messageBox ( "Ä¡·áºÎÀ§°¡", "E014" ); bRtn = false; } if ( model.getValue ( "/root/main/prcp/prcplist/prcpdirecflag" ) == "-" || isNull ( model.getValue ( "/root/main/prcp/prcplist/prcpdirecflag" ))) { messageBox ( "Ä¡·áÀ§Ä¡°¡", "E014" ); bRtn = false; } if ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurefreqflag" ) == "0" || isNull ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurefreqflag" ))) { messageBox ( "Ä¡·áºóµµ°¡", "E014" ); bRtn = false; } } else if (trgtcdnm == "N") { if ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurefreqflag" ) == "0" || isNull ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurefreqflag" ))) { messageBox ( "Ä¡·áºóµµ°¡", "E014" ); bRtn = false; } } else { if ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurefreqflag" ) == "0" || isNull ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpcurefreqflag" ))) { messageBox ( "Ä¡·áºóµµ°¡", "E014" ); bRtn = false; } } if ( !isValidDateTime ( model.getValue ( "/root/main/prcp/prcplist/rehbprcpenddd" ), "YYYYMMDD")) { messageBox ( "¸¶°¨ÀÏÀÌ À¯È¿ÇÑ ³¯Â¥°¡ ¾Æ´Õ´Ï´Ù.", "E" ); bRtn = false; } if(bRtn) { model.setValue ( "/root/main/prcp/prcplist/tempcol1", grd_f2_prcplist.labelMatrix ( 1, grd_f2_prcplist.colRef("rehbprcpcurepartcd") )); } } else if(prcpClsCd == "G2") { /**************************************************************************************************/ // RT /**************************************************************************************************/ bRtn = true; } else if(prcpClsCd == "H2") { /**************************************************************************************************/ // ¼ö¼ú /**************************************************************************************************/ var prcpessninptflag = model.getValue ( "/root/main/prcp/prcplist/prcpessninptflag" ); if ( prcpessninptflag == 3 || prcpessninptflag == 5 ) { if ( model.getValue ( "/root/main/prcp/prcplist/opansflagcd" ) == "-" || isNull(model.getValue ( "/root/main/prcp/prcplist/opansflagcd" ))) { messageBox ( "¼ö¼úÀ¯ÇüÀÌ ÀԷµÇÁö" , "E007" ); bRtn = false; } } if(bRtn) { model.setValue ( "/root/main/prcp/prcplist/tempcol1", grd_h2_prcplist.labelMatrix ( 1, grd_h2_prcplist.colRef("opansflagcd") )); } } else if(prcpClsCd == "H4" || prcpClsCd == "Z0") { /**************************************************************************************************/ // óġ, ±âŸ /**************************************************************************************************/ var sPrcpCd = model.getValue("/root/main/prcp/prcplist/prcpcd"); if(sPrcpCd == "PE100" ) {// ½Åü¾ïÁ¦´ë var sPrcpDeliveFact = model.getValue("/root/main/prcp/prcplist/prcpdelivefact"); if (sPrcpDeliveFact == "" || sPrcpDeliveFact =="-") { messageBox ( "Àü´Þ»çÇ×À» ¹Ýµå½Ã ÀÔ·ÂÇØ¾ß ÇÕ´Ï´Ù.", "E" ); bRtn = false; } } else { bRtn = true; } } else if(prcpClsCd == "I2" || prcpClsCd == "I4") { /**************************************************************************************************/ // ¸¶Ãë /**************************************************************************************************/ var prcpessninptflag = model.getValue ( "/root/main/prcp/prcplist/prcpessninptflag" ); if ( prcpessninptflag == 1 ) {//ó¹æÇʼö ÀԷ±¸ºÐÀÌ ¸¶Ãë½Ã°£ÀÏ °æ¿ì´Â ¸¶Ãë½Ã°£À» üũÇÑ´Ù. var earncls = model.getValue ( "/root/main/prcp/prcplist/tempcol2" ); if ( earncls != "04|01|00" && earncls != "05|01|00" ) { var opansflagcd = model.getValue ( "/root/main/prcp/prcplist/opansflagcd" ); if ( opansflagcd == "-" ) { messageBox ( "¸¶Ã뱸ºÐÀÌ","I004" ); bRtn = false; } } var fromdd = model.getValue ( "/root/ansttm/anstfromdd" ); var todd = model.getValue ( "/root/ansttm/ansttodd" ); if ( eval(fromdd) > eval(todd) ) { messageBox ( "½ÃÀÛÀÏÀÌ Á¾·áÀÏ º¸´Ù Ŭ¼ö", "I004" ); bRtn = false; } var fromh = model.getValue ( "/root/ansttm/anstfromh" ); var formm = model.getValue ( "/root/ansttm/anstfromm" ); var tomh = model.getValue ( "/root/ansttm/ansttoh" ); var totim = model.getValue ( "/root/ansttm/ansttom" ); if (isNull(fromh)) { messageBox ( "½ÃÀ۽ð£À» ÀÔ·ÂÇØ ÁֽʽÿÀ.", "E" ); model.setfocus( "ipt_i2_anstfromh" ); bRtn = false; } if (isNull(formm)) { messageBox ( "½ÃÀÛºÐÀ» ÀÔ·ÂÇØ ÁֽʽÿÀ.", "E" ); model.setfocus( "ipt_i2_anstfromm" ); bRtn = false; } if (isNull(tomh)) { messageBox ( "Á¾·á½Ã°£À» ÀÔ·ÂÇØ ÁֽʽÿÀ.", "E" ); model.setfocus( "ipt_i2_ansttoh" ); bRtn = false; } if (isNull(totim)) { messageBox ( "Á¾·áºÐÀ» ÀÔ·ÂÇØ ÁֽʽÿÀ.", "E" ); model.setfocus( "ipt_i2_ansttom" ); bRtn = false; } if ( eval(fromh) >= 24 ) { messageBox ( "½ÃÀ۽ð£ÀÌ À߸ø ÀԷµǾú½À´Ï´Ù.", "E" ); bRtn = false; } if ( eval(formm) >= 60 ) { messageBox ( "½ÃÀÛºÐÀÌ À߸ø ÀԷµǾú½À´Ï´Ù.", "E" ); bRtn = false; } if ( eval(tomh) >= 24 ) { messageBox ( "Á¾·á½Ã°£ÀÌ À߸ø ÀԷµǾú½À´Ï´Ù.", "E" ); bRtn = false; } if ( eval(totim) >= 60 ) { messageBox ( "Á¾·áºÐÀÌ À߸ø ÀԷµǾú½À´Ï´Ù.", "E" ); bRtn = false; } tomh = eval(model.getValue ( "/root/ansttm/ansttoh" )) + getDateInterval ( fromdd, todd ) * 24; var fromtotm = eval ( fromh ) * 60 + eval ( formm ); var tototm = eval( tomh ) * 60 + eval ( totim ); var ansttmh = parseInt(( tototm - fromtotm ) / 60); var ansttmm = ( tototm - fromtotm ) % 60; ansttmh = ansttmh.toString().getLeftPad ( 2, "0" ); ansttmm = ansttmm.toString().getLeftPad ( 2, "0" ); model.setValue ( "/root/main/prcp/prcplist/ansttm", ansttmh + ansttmm); if ( model.getValue ( "/root/main/prcp/prcplist/ansttm" ) == "0000" || eval(model.getValue ( "/root/main/prcp/prcplist/ansttm" )) < 0 ) { messageBox ( "¸¶Ãë½Ã°£ ÀÔ·ÂÀÌ À߸øµÇ¾ú½À´Ï´Ù.", "E" ); bRtn = false; } if(bRtn) { var fromipt = model.getValue("/root/ansttm/anstfromdd") + model.getValue("/root/ansttm/anstfromh").getLeftPad(2, "0") + model.getValue("/root/ansttm/anstfromm").getLeftPad( 2, "0" ); var toipt = model.getValue("/root/ansttm/ansttodd") + model.getValue("/root/ansttm/ansttoh").getLeftPad(2, "0") + model.getValue("/root/ansttm/ansttom").getLeftPad( 2, "0" ); model.setValue("/root/main/prcp/prcplist/clinccmtcnts", fromipt + "|" + toipt); } } } else if(prcpClsCd == "K2") { /**************************************************************************************************/ // Ä¡°ú /**************************************************************************************************/ var prcpessninptflag = model.getValue ( "/root/main/prcp/prcplist/prcpessninptflag" ); if ( prcpessninptflag == 3 || prcpessninptflag == 5 ) { if ( model.getValue ( "/root/main/prcp/prcplist/opansflagcd" ) == "-" || isNull(model.getValue ( "/root/main/prcp/prcplist/opansflagcd" ))) { messageBox ( "¼ö¼úÀ¯ÇüÀÌ ÀԷµÇÁö" , "E007" ); bRtn = false; } } if(bRtn) { model.setValue("/root/main/prcp/prcplist/tempcol1", grd_k2_prcplist.labelMatrix(1, grd_k2_prcplist.colRef("opansflagcd") )); } } else if(prcpClsCd == "M2") { /**************************************************************************************************/ // Àç·á /**************************************************************************************************/ if ( model.getValue("/root/init/drprcpetc4" ) == "Y" ) { model.setValue("/root/main/prcp/prcplist/drprcpetc4", model.getValue("/root/main/prcp/prcplist/prcpqty")); } else { model.setValue("/root/main/prcp/prcplist/drprcpetc4", ""); } model.setValue ( "/root/main/prcp/prcplist/drugmthdspccdnm", grd_m2_prcplist.labelMatrix( 1, grd_m2_prcplist.colref("matrallsizespecid") )); } else { // µðÆúÆ® bRtn = false; } if(bRtn && prcpClsCd != "03") { // ½ÄÀÌó¹æÀº À§¿¡¼­ ó¸®ÇÔ. appendChildPrcp ( "/root/main/prcp/prcplist", "/root/prcptemp" ); } return bRtn; } /** * @desc : ¿ø¿Ü¿¹¿Ü»çÀ¯ setting check * @author : sonjy 2008-09-12 */ function fChkHosInResnCd(grdObj){ var prcpgenrflag = opener.model.getValue("/root/patflag/list/prcpgenrflag"); //ȯÀÚ¸®½ºÆ®¿¡¼­ ÁØ ¿Ü·¡, ÀÔ¿ø, ÀÀ±Þ ±¸ºÐ var hosinprcpresncd = opener.model.getValue("/root/init/hosinprcpresncd"); //¿ø¹«¿¡ ÀÖ´Â ¿ø³»Ã³¹æ »çÀ¯ ÄÚµå var prcpclscd = model.getValue( "/root/main/prcp/prcplist/prcpclscd"); // ó¹æÁ¾·ù var drugmastspec = model.getValue( "/root/main/prcp/prcplist/drugmastspec"); //¾àǰÁ¤º¸ var spcldrug = getArrayData ( drugmastspec + "^", 0, 23, "^", "|" ); //¸¶¾à±¸ºÐ var selfinjyn = getArrayData ( drugmastspec + "^", 0, 20, "^", "|" ); //ÀÚ°¡Áֻ簡´É¿©ºÎ var hosinflag = getArrayData ( drugmastspec + "^", 0, 11, "^", "|" ); //¾àǰ¿ø³»¿Ü±¸ºÐ //SON0930 ¾àǰ¸¶½ºÅÍÀÇ ¿ø³»¿Ü±¸ºÐÀÌ ÁÖ»ç¹× ȯÀÚ»çÀ¯¿¡ ¿ì¼±ÇÑ´Ù. ¹è¼º¹Ì ¼±»ý´Ô ¿äû . var g3yn =""; //ÀÀ±Þ g3¿©ºÎ if( prcpgenrflag == "E" && opener.model.getValue ( "/root/init/erresn" ) != "G3" && model.getValue( "/root/main/prcp/prcplist/prcpkindcd") == "60") { g3yn = "N"; } //ÀÔ¿øÀº disable ÀÓÀ¸·Î select ÇÒ ÀÌÀ¯°¡ ¾ø´Ù. if ( model.getValue ( "/root/main/prcp/prcplist/hosinhosoutflag" ) == "I") { //¿ø³»¸¦ ¼±ÅÃÇϸé if( model.getValue ( "/root/main/prcp/prcplist/hosinprcpresncd" ) == "90" ) { //¿ø¿Ü¿ä±¸½Ã => by sonjy 20081016 // ¸¶¾à, MSET, ÁÖ»ç´Â ¿ø¿ÜºÒ°¡. ´Ü, ÁÖ»çÁ¦Áß ÀÚ°¡Áֻ籸ºÐÀÌ YÀÎ °æ¿ì¸¸ ¿ø¿Ü°¡´É. by sonjy 20080912 start // ¸¶¾àÁß °æ±¸¾àÀº ¿ø¿Ü ó¹æ °¡´ÉÇϵµ·Ï ¼öÁ¤ ( 2010, 12. 03 han19) if( (model.getValue( "/root/main/prcp/prcplist/inclprcpno") != "0" ) || (hosinflag == "I") || (prcpclscd =="A6" && (spcldrug == "M" || spcldrug == "H")) ) { //SON0930 messageBox("¸¶¾à, ÁÖ»ç, ¾àÁ¦ÆÀÀÇ ¿ø³»ÁöÁ¤¾à ¹× MSETÄڵ峻 ¹­ÀÎ ¾àÁ¦´Â ¿ø¿Ü·Î ó¹æÀ» ³¾ ¼ö ", "I004"); model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "I" ); model.setValue ( "/root/main/prcp/prcplist/hosinprcpresncd", model.getValue ( "/root/init/bfhosinprcpresncd" )); grd_prcpdetl2.rebuild(); return ; } //¸¶¾à, MSETÀº ¿ø¿ÜºÒ°¡. by sonjy 20080912 end } else if ( hosinprcpresncd != "00" && g3yn == "" ) { //¿ø¹«¿¡ ÀÖ´Â ¿ø³»Ã³¹æ »çÀ¯ Äڵ尡 ÀÖ´Ù¸é if( hosinflag == "O" && prcpgenrflag == "O") { //SON0930 ¾àǰ ¿ø³»¿Ü ±¸ºÐ Àû¿ë. messageBox("¿ø¿Ü·Î¸¸ ó¹æÀÌ °¡´ÉÇÑ ¾àǰ", "I009"); model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "O" ); model.refresh(); return ; } model.setValue ( "/root/main/prcp/prcplist/hosinprcpresncd", hosinprcpresncd ); } else { //by sonjy 20080912 ȯÀÚ¿ø³»»çÀ¯°¡ ¾øÀ»°æ¿ì ¾àÁ¦»çÀ¯·Î ¿øº¹. start if( hosinflag == "O" && ( prcpgenrflag == "O" || g3yn == "N" ) ) { //SON0930 ¾àǰ ¿ø³»¿Ü ±¸ºÐ Àû¿ë. messageBox("¿ø¿Ü·Î¸¸ ó¹æÀÌ °¡´ÉÇÑ ¾àǰ", "I009"); model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "O" ); model.refresh(); return ; } model.setValue ( "/root/main/prcp/prcplist/hosinprcpresncd", getArrayData ( drugmastspec, 0, 12, "^", "|" ) ); } grdObj.colDisabled(grdObj.colref("hosinprcpresncd")) = false; //¿ø³»Ã³¹æ »çÀ¯Äڵ带 ÀÔ·ÂÇÒ ¼ö ÀÖ´Ù. //by sonjy 20080912 ȯÀÚ¿ø³»»çÀ¯°¡ ¾øÀ»°æ¿ì ¾àÁ¦»çÀ¯·Î ¿øº¹. end } else { //¿ø¿Ü¸¦ ¼±ÅÃÇϸé // ¸¶¾à, MSET, ÁÖ»ç´Â ¿ø¿ÜºÒ°¡. ´Ü, ÁÖ»çÁ¦Áß ÀÚ°¡Áֻ籸ºÐÀÌ YÀÎ °æ¿ì¸¸ ¿ø¿Ü°¡´É. by sonjy 20080912 start // ¸¶¾àÁß °æ±¸¾àÀº ¿ø¿Ü ó¹æ °¡´ÉÇϵµ·Ï ¼öÁ¤ ( 2010, 12. 03 han19) if( (model.getValue( "/root/main/prcp/prcplist/inclprcpno") != "0" ) || (hosinflag == "I") || (prcpclscd =="A6" && (spcldrug == "M" || spcldrug == "H")) ) { //SON0930 messageBox("¸¶¾à, ÁÖ»ç, ¾àÁ¦ÆÀÀÇ ¿ø³»ÁöÁ¤¾à ¹× MSETÄڵ峻 ¹­ÀÎ ¾àÁ¦´Â ¿ø¿Ü·Î ó¹æÀ» ³¾ ¼ö ", "I004"); model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "I" ); model.refresh(); return ; } //¸¶¾à, MSETÀº ¿ø¿ÜºÒ°¡. by sonjy 20080912 end model.setValue ( "/root/main/prcp/prcplist/hosinhosoutflag", "O" ); model.setValue("/root/main/prcp/prcplist/hosinprcpresncd","00"); grdObj.colDisabled(grdObj.colref("hosinprcpresncd")) = true; //¿ø³»Ã³¹æ »çÀ¯Äڵ带 ÀÔ·ÂÇÒ ¼ö´Â ¾ø´Ù. } } /** * @desc : Áø´Ü°Ë»ç °Ë»ç °£°Ý ¼³Á¤ */ function fContTest () { if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "N" || model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "5" ) { grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("prcptims")) = true; btn_b2_diagtestconttestcdspec.disabled = true; } else { grd_b2_prcplist.colDisabled (grd_b2_prcplist.colref("prcptims")) = false; btn_b2_diagtestconttestcdspec.disabled = false; } var prcptims = model.getValue ( "/root/main/prcp/prcplist/prcptims" ); var diagtestconttestcdspec = ""; var drugrateqty = ""; if ( isNull(prcptims)) { model.setValue ( "/root/main/prcp/prcplist/prcptims", 1 ); prcptims = 1; } if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "N" ) { model.setValue ( "/root/main/prcp/prcplist/prcptims", 1 ); model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", "-" ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", "-" ); } else if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "5" ) { model.setValue ( "/root/main/prcp/prcplist/prcptims", 2 ); model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", "½ÄÀü(0ºÐ), ½ÄÈÄ(120ºÐ)" ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", "1,2" ); } else if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "3" ) { //Ƚ¼ö for ( var i = 0; i < prcptims; i++ ) { diagtestconttestcdspec = diagtestconttestcdspec + i + "ȸ,"; drugrateqty = drugrateqty + i + ","; } diagtestconttestcdspec = diagtestconttestcdspec.substring(0, diagtestconttestcdspec.length-1); drugrateqty = drugrateqty.substring(0, drugrateqty.length-1); model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", diagtestconttestcdspec ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", drugrateqty ); } else if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "4" ) { //Àϼö for ( var i = 0; i < prcptims; i++ ) { diagtestconttestcdspec = diagtestconttestcdspec + i + "ÀÏ,"; drugrateqty = drugrateqty + i + ","; } diagtestconttestcdspec = diagtestconttestcdspec.substring(0, diagtestconttestcdspec.length-1); drugrateqty = drugrateqty.substring(0, drugrateqty.length-1); model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", diagtestconttestcdspec ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", drugrateqty ); } else if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "1" ) { //ºÐ model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", "-" ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", "-" ); for ( var i = 0; i < prcptims; i++ ) { diagtestconttestcdspec = diagtestconttestcdspec + i*30 + "ºÐ,"; drugrateqty = drugrateqty + i*30 + ","; } diagtestconttestcdspec = diagtestconttestcdspec.substring(0, diagtestconttestcdspec.length-1); drugrateqty = drugrateqty.substring(0, drugrateqty.length-1); model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", diagtestconttestcdspec ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", drugrateqty ); } else if ( model.getValue ( "/root/main/prcp/prcplist/diagtestconttestintvlflag" ) == "2" ) { //½Ã°£ for ( var i = 0; i < prcptims; i++ ) { diagtestconttestcdspec = diagtestconttestcdspec + i + "½Ã°£,"; drugrateqty = drugrateqty + i + ","; } diagtestconttestcdspec = diagtestconttestcdspec.substring(0, diagtestconttestcdspec.length-1); drugrateqty = drugrateqty.substring(0, drugrateqty.length-1); model.setValue ( "/root/main/prcp/prcplist/diagtestconttestcdspec", diagtestconttestcdspec ); model.setValue ( "/root/main/prcp/prcplist/drugrateqty", drugrateqty ); } model.recalculate(); model.refresh(); } /** * @desc : Àü´Þ»çÇ× ÆË¾÷ * @author : */ function fPopPrcpDeliveFact(){ var sPrcpCd = model.getValue("/root/main/prcp/prcplist/prcpcd"); var sPrnPrcpFlag = model.getValue("/root/main/prcp/prcplist/prnprcpflag"); // PRN ó¹æ¿©ºÎ if(sPrnPrcpFlag == "Y") { messageBox ( "PRNó¹æÀº Àü´Þ»çÇ×À» ¼öÁ¤ÇÒ¼ö ¾ø½À´Ï´Ù.", "E" ); } else { if(sPrcpCd == "PE100" ) {// ½Åü¾ïÁ¦´ë clearParameter("SPMMB02700_cond1"); clearParameter("SPMMB02700_rtn"); clearParameter("SPMMB02700_prcpdelivefact"); setParameter ( "SPMMB02700_cond1", "00" ); // ½Åü¾ïÁ¦´ë fPrcpModal ( "SPMMB02700", 50, -200 ); if(getParameter("SPMMB02700_rtn") == "Y") { model.setValue ( "/root/main/prcp/prcplist/prcpdelivefact", getParameter("SPMMB02700_prcpdelivefact")); } } else { clearParameter("SPMMB02200_clinccmt") setParameter("SPMMB02200_cond2", "3"); fPrcpModal("SPMMB02200", 50, -260 ); model.setValue ( "/root/main/prcp/prcplist/prcpdelivefact", getParameter ( "SPMMB02200_clinccmt" )); clearParameter("SPMMB02200_clinccmt"); } } model.refresh(); fPrcpSetting(); } /** * @desc : ÀÓ»ó¼Ò°ß ÆË¾÷ * @author : */ function fPopClincCmtCnts(){ clearParameter("SPMMB02200_clinccmt") setParameter ( "SPMMB02200_cond2", "2" ); fPrcpModal ( "SPMMB02200", 50, -260 ); model.setValue ( "/root/main/prcp/prcplist/clinccmtcnts", getParameter ( "SPMMB02200_clinccmt" )); clearParameter("SPMMB02200_clinccmt"); model.refresh(); fPrcpSetting(); } /** * @desc : ½ÃÇàºÎ¼­ ÆË¾÷ * @author : */ function fPopSrchExecDept(){ fPrcpModal("SPMMB02500", 50, -500 ); model.refresh(); fPrcpSetting(); } /** * @desc : ¼±ÅÃÁø·áÀÇ ÆË¾÷ * @author : */ function fPopSrchSpecDrId(){ if (!fChoiOrdChk()) return; //20110112 mjm Ãß°¡ ¼±ÅÃÁø·á °¡´É¿©ºÎ üũ fChgChoiDr("pop", 1, 600, 300); model.refresh(); fPrcpSetting(); } /** * @desc : ¿¬¼Ó°Ë»ç ÆË¾÷ * @author : */ function fPopDiagTestContTestCdSpec(){ fPrcpModal ( "SPMMO02700", 50, -200 ); model.refresh(); fPrcpSetting(); }