/*function list copyNodeSet: NodeSet (child node¸¦ Æ÷ÇÔÇÏ¿© Àüü nodesetÀ» º¹»çÇÑ´Ù.)Copy getNodeSetCnt: NodeSetÀÇ ÃÖÁ¾±æÀ̸¦ ±¸ÇÑ´Ù. addCopyNode: Source NodeÀÇ child node¸¦ DestinationÀÇ node·Î appendÇÑ´Ù. addCopyNodeset: Source NodeÀÇ child nodelist¸¦ DestinationÀÇ nodelist·Î appendÇÑ´Ù. rgstScrnEnvEstb: Áø·á´ë»óÀÚ ¸®½ºÆ®ÀÇ ±×¸®µå Á¤º¸¸¦ µî·ÏÇÑ´Ù. setScrnEnvEstb: È­¸é ȯ°æ¼³Á¤ Àû¿ë isNumber: ¼ýÀÚ¿©ºÎ¸¦ È®ÀÎÇÏ¿© returnÇÔ addPrcp: ¼±ÅÃµÈ Ã³¹æÀ» ¸ñÀûÁö¿¡ º¸³½´Ù. ( addPrcpDetl ÀÌ¿ë ) addPrcpDetl: ¼±ÅÃµÈ Ã³¹æÀ» ¸ñÀûÁö¿¡ º¸³½´Ù. ( ±×·ìó¹æÀÏ °æ¿ì ¹­ÀÎ ³»¿ëµµ Àü¼ÛÇÑ´Ù. ) addPrcpSetValue: ó¹æmain¿¡ ³Ñ±â±â Àü¿¡ ±âº»°ªÀ» settingÇÑ´Ù. focusMain: Æ÷Ä¿½º¸¦ ¸ÞÀÎÀ¸·Î ÇÑ´Ù. appendChildPrcp: appendChild °øÅëÇÔ¼ö·Î addDiagSetValue: ¼±ÅÃµÈ Áø´Ü¸íÀ» Áø´Ü instance¿¡Ã³ ¸ÊÇÎÇÑ´Ù. prcpGroupSrch: ±×·ìÄÚµå MÀÇ ½Ì±ÛÄÚµå °Ë»ö prcpDirecSrch: Áö½Ãó¹æ JÀÇ ½Ì±ÛÄÚµå °Ë»ö makePrcpNm: 󹿳»¿ª¸¸µé±â fContPrcpDd: ÁöÁ¤ÀÏÀÚó¸®(¿¬¼Óó¹æ) fContPrcpDdInit: ÁöÁ¤ÀÏÀÚÃʱâÈ­(¿¬¼Óó¹æ) fPrcpHopeDd: Èñ¸ÁÀÏÀÚó¸® fDateFormat: ³¯Â¥¸ð¾ç¹Ù²Ù±â getArrayData: splitÀ» ÀÌ¿ëÇÑ ¹è¿­°ª °¡Á®¿À±â reqGetDrList: ºÎ¼­¿¡ ¼Ò¼ÓµÈ ÀÇ»ç Á¶È¸ reqGetDeptList: ºÎ¼­ÄÚµå, ºÎ¼­¸í Á¶È¸ reqGetWardList: º´µ¿ÄÚµå, º´µ¿¸í Á¶È¸ getArrayData: splitÀ» ÀÌ¿ëÇÑ ¹è¿­°ª °¡Á®¿À±â fIsHangul: µ¥ÀÌÅÍ ÇѱÛÀÎÁö ¿µ¹®ÀÎÁö ±¸ºÐÇØÁÖ´Â ÇÔ¼ö fIvwDetlVwCom: °øÅë »ó¼¼º¸±â compareNodeVal: µÎ NodeList¿Í NodeValue°ªÀ» ºñ±³ °á°ú¿¡ µû¶ó true, false¸¦ returnÇÑ´Ù. reqGetRoomList: º´½ÇÄÚµå, º´½Ç¸í Á¶È¸ reqPatInfo: ȯÀÚÁ¤º¸ Á¶È¸ fAltDrug: ´ëü¾àÀÌ ÀÖÀ»°æ¿ì ÆË¾÷ó¸® initScrnCol: È­¸éÄ÷³ Á¶È¸ ¹× ¼³Á¤ fPrcpSrchArg: ó¹æ°Ë»ö fPrcpModal: ÆË¾÷À§Ä¡°¡ ÀúÀåµÇÁö ¾Ê´Â modaliss ÆË¾÷ ¶ç¿ì±â fPrcpOpen: ÆË¾÷À§Ä¡°¡ ÀúÀåµÇÁö ¾Ê´Â modal ÆË¾÷ ¶ç¿ì±â getPrcpNodeListCSV: ³ëµå¸®½ºÆ®¸¦ CSV·Î ¹ÝȯÇÑ´Ù. fSaveGridToExcel : ±×¸®µå µ¥ÀÌÅÍ ¿¢¼¿ÀúÀå fSaveSign: Sing µ¥ÀÌÅÍ ÀúÀå ÇÔ¼ö fGetPrcpCodeInfo: ó¹æ ÄÚµå Á¤º¸¸¦ Á¶È¸ ÇÏ´Â ÇÔ¼ö addPrcpSetValue()¿¡¼­ °ªÀ» ¼ÂÆÃ ÇÒ¶§ ó¹æ Äڵ庰 ÂüÁ¶ÀڷḦ ¼ÂÆÃ ÇÑ´Ù. mmofReqGetCnstTypeComboList : ÇùÁøºÐ·ùÄÞº¸¸®½ºÆ® Á¶È¸ reqSetMonitoringLog: ¼ÓµµÃ¼Å©¸¦ À§ÇÑ ¸ð´ÏÅ͸µ ·Î±× µ¥ÀÌÅÍ »ý¼º. 2013.06.27 ¾ö¿µ¸¸ */ //º¯¼ö¼±¾ð var prcpnmCol = 5; //󹿏í Ä÷³ index var prcpcdCol = 4; //󹿏í Ä÷³ index var diagnmCol = 4; //󹿏í Ä÷³ index var icd10cdCol = 3; //󹿏í Ä÷³ index //2012.02.09 ±³À°¼­¹öÀÇ htmlwindow.DEVSystem °ªÀ» true·Î º¯°æ ÇÔ¿¡ µû¶ó °°ÀÌ ¼öÁ¤. //if (htmlwindow.DEVSystem != "true") { var signyn = "Y"; //ÀüÀÚ¼­¸í »ç¿ëÇÏ´Â check ¼­¹ö ¿¡·¯½Ã NÀ¸·Î ¼öÁ¤ //} else { // var signyn = "N"; //ÀüÀÚ¼­¸í »ç¿ëÇÏ´Â check ¼­¹ö ¿¡·¯½Ã NÀ¸·Î ¼öÁ¤ //} var volflag = "time"; //1ÀÏ Ãѿ뷮 ±¸ºÐ var ocrcalcscorcd = ""; //OCR print var restantimicyn = ""; //Á¦ÇÑÇ×»ýÁ¦ ÀúÀå var dietcnt = 0; //½ÄÀÌó¹æ Á¶,Áß,½Ä Ãß°¡row cnt var gridprcpsrchflag = "N"; //±×¸®µå ó¹æ°Ë»ö¿¡¼­ ¾ØÅͷΠó¹æ ³Ñ°ÜÁÙ¶§ °Ë»öÀÌ ´Ù½Ã Ÿ´Â °ÍÀ» ¸·À½ /** * @desc : NodeSet (child node¸¦ Æ÷ÇÔÇÏ¿© Àüü nodesetÀ» º¹»çÇÑ´Ù.)Copy * @param : strDest : ¸ñÀûÁö ÁÖ¼Ò°ª * : strSrc : Ãâ¹ßÁö ÁÖ¼Ò°ª * : ex) copyNodeSet("/root/hidden/diaginfo", "/root/main/diaginfo"); * @return : void * @authur : ÀÌ»óÇö 200?. ?. ?? ¼öÁ¤ÀÚ - ¿ÀÁöÈÆ 2007. 3. 12 * @--------------------------------------------------- */ function copyNodeset(strDest, strSrc, mode, destModel, srcModel) { if(mode == null) mode = "replace"; if(destModel == null) destModel = model; if(srcModel == null) srcModel = model; if(mode == "replace") destModel.removeNodeset(strDest);// ´ë»ó ³ëµå¸¦ »èÁ¦ÇÑ´Ù. //var destListLen = 0; var destNodeList = destModel.instances(0).selectNodes(strDest); //if(destNodeList != null) var destListLen = destNodeList.length; var srcNodeList = srcModel.instances(0).selectNodes(strSrc); for(var i = 0; i < srcNodeList.length; i++) { var strDest1 = strDest + "[" + (i + 1 + destListLen) + "]"; destModel.makeNode(strDest1); var destNode = destModel.instances(0).selectSingleNode(strDest1); var srcNode = srcNodeList.item(i); var srcChildList = srcNode.childNodes; for(var j = 0; j < srcChildList.length; j++) destNode.appendChild(srcChildList.item(j).cloneNode(true)); } } /** * @desc : NodeSetÀÇ ÃÖÁ¾±æÀ̸¦ ±¸ÇÑ´Ù. * @param : path : xpath * : ex) getNodeSetCnt("/root/hidden/diaginfo"); * @return : NodeSet ÃÖÁ¾ ±æÀ̰ª * @authur : ÀÌ»óÇö 200?. ?. ?? ¼öÁ¤ÀÚ - ¿ÀÁöÈÆ 2007. 3. 12 * @--------------------------------------------------- */ function getNodeSetCnt(path) { var insXml = model.instances(0); var nodeList = insXml.selectNodes(path); return nodeList.length; } /** * @desc : Source NodeÀÇ child node¸¦ DestinationÀÇ node·Î appendÇÑ´Ù. * @param : strDest - µµÂønode path * : strSrc - Ãâ¹ßnode path * @return : void * @authur : ¿ÀÁöÈÆ 2007. 3. 21 * @--------------------------------------------------- */ function addCopyNode(strDest, strSrc){ var srcNodeList = model.instances(0).selectNodes(strSrc); var pDestNode = model.instances.item(0).selectSingleNode(strDest).parentNode; for( var i = 1; i < srcNodeList.length + 1 ; i++ ) { var iRow = i - 1; pDestNode.appendChild(srcNodeList.item(iRow).cloneNode(true)); } } /** * @desc : Source NodeÀÇ child nodelist¸¦ DestinationÀÇ nodelist·Î appendÇÑ´Ù. * @param : strDest - µµÂønode path * : strSrc - Ãâ¹ßnode path * @return : void * @authur : ÀÌ»óÇö 2007. 3. 27 * @--------------------------------------------------- */ function addCopyNodeset(strDest, strSrc, mode, destModel, srcModel) { if( destModel == null || destModel =="" ) destModel = document.models.item(0); if( srcModel == null || srcModel =="" ) srcModel = document.models.item(0); var srcNodeList = srcModel.instances(0).selectNodes(strSrc); var srcNode; var pDestNode = destModel.instances.item(0).selectSingleNode(strDest).parentNode; if( mode == "replace" || mode == null ) { destModel.removeNodeset(strDest); while( srcNode = srcNodeList.nextNode() ) { pDestNode.appendChild(srcNode.cloneNode(true)); } } else if( mode == "after" ) { while( srcNode = srcNodeList.nextNode() ) { pDestNode.appendChild(srcNode.cloneNode(true)); } } else if( mode == "before" ) { var destNode; for( var i = srcNodeList.length - 1; i >= 0; i-- ) { destNode = destModel.instances.item(0).selectSingleNode(strDest + "[1]"); pDestNode.insertBefore(srcNodeList.item(i).cloneNode(true), destNode); } } } /** * @desc : È­¸é ȯ°æ¼³Á¤ µî·Ï * @param : grdObj : ±×¸®µå Object ID * @return : void * @authur : ¿ÀÁöÈÆ 2007. 3. 27 * @--------------------------------------------------- */ function rgstScrnEnvEstb(grdObj){ var compscnts = ""; var compsrefcnts = ""; var compssizecnts = ""; var totCol = grdObj.cols; for(var i = 0 ; i < totCol ; i++){ var tmp_caption = grdObj.textmatrix(0, i); var compscnts = compscnts + tmp_caption + "^"; var tmp_ref = grdObj.colAttribute(i, "ref"); var compsrefcnts = compsrefcnts + tmp_ref + "^"; var tmp_size = grdObj.colWidth(i); var compssizecnts = compssizecnts + tmp_size + "^"; } var len = compscnts.length; var compscnts = compscnts.substring(0, len-1); var len = compsrefcnts.length; var compsrefcnts = compsrefcnts.substring(0, len-1); var len = compssizecnts.length; var compssizecnts = compssizecnts.substring(0, len-1); model.makeValue("/root/send/savedata/compscnts" ,compscnts); model.makeValue("/root/send/savedata/compsrefcnts" ,compsrefcnts); model.makeValue("/root/send/savedata/compssizecnts" ,compssizecnts); model.makeValue("/root/send/savedata/scrnid" ,model.getValue("/root/main/cond/scrnid")); model.makeValue("/root/send/savedata/compscd" ,model.getValue("/root/hidden/userscrnenvinfo/gridseq/compscd")); submit("TXMMB01102"); } /** * @desc : È­¸é ȯ°æ¼³Á¤ Àû¿ë * @param : grdObj - ±×¸®µå Object ID * @return : void * @authur : ¿ÀÁöÈÆ 2007. 3. 27 * @--------------------------------------------------- */ function setScrnEnvEstb(grdObj, compscnts, compsrefcnts, compssizecnts){ var refArray = compsrefcnts.split("^"); var sizeArray = compssizecnts.split("^"); //var captArray = compscnts.split("^"); for(var i=0;i 0) { // ¸®ÅÏ µÈ È­¸é ¼³Á¤°ª ¼ÂÆÃ model.makeValue("/root/init/prcpmixno", model.getValue(sCopyFlagSrc + "/prcpmixno")); model.makeValue("/root/init/inclprcpno", model.getValue(sCopyFlagSrc + "/inclprcpno")); model.makeValue("/root/init/hsctlnkno", model.getValue(sCopyFlagSrc + "/hsctlnkno")); if (sCopyInptFlag == "06") { // Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì Ãß°¡µÇ´Â saveflaginfo °ª ¼ÂÆÃ model.makeValue ( "/root/save/saveflaginfo/cpgappno", appNo_SMMMO00110 ); //CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ no model.makeValue ( "/root/save/saveflaginfo/prtlprcpstatus", prtlprcpstatus_SMMMO00110 ); //CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ ÀúÀå status model.makeValue ( "/root/save/saveflaginfo/prtlflag", "10" ); //ÇÁ·ÎÅäÄݱ¸ºÐ } var destNodeList; for (var i=1; i<=copyPrcpNode.length; i++) { // Start of º¹»ç ó¹æ °Çº° È­¸é º¹»ç if ( isNull(model.getValue ( sCopyPrcpSrc + "[" + i + "]/prcpcd" ))) { continue; } destNodeList = model.instances(0).selectNodes( strDest + "/prcplist" ); if(destNodeList.length == 0) { nSrchRow = 1; } else { nSrchRow = destNodeList.length; } if (sCopyInptFlag == "06") { // Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì etclnkspec Ä÷³ °ª ¼ÂÆÃ model.setValue( sCopyPrcpSrc + "[" + i + "]/etclnkspec", etclnkspecValue_SMMMO00110); } // Àüȯó¹æ º¹¿ë ¹æ¹ý ¼³Á¤ if ( model.getValue ( sCopyPrcpSrc + "[" + i + "]/tempcol18" ) == "Y" ) { var len = 1; if ( !isNull(model.instance1.selectNodes("/root/migdrugmthd/migdrugmthdlist").length)){ len = model.instance1.selectNodes("/root/migdrugmthd/migdrugmthdlist").length + 1; } model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/prcpcd", model.getValue( sCopyPrcpSrc + "[" + i + "]/prcpcd" )); model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/prcpnm", model.getValue( sCopyPrcpSrc + "[" + i + "]/prcpnm" )); model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/drugmthdspccd", model.getValue( sCopyPrcpSrc + "[" + i + "]/drugmthdspccd" ) ); model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/drugmthdspccdnm", model.getValue( sCopyPrcpSrc + "[" + i + "]/drugmthdspccdnm" ) ); if ( model.getValue ( sCopyPrcpSrc + "[" + i + "]/rateprcpflag" ) == "Y" ) { model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/migdrugmthdspccdnm", "[ºñÀ²Ã³¹æºÒ°¡] Åõ¾à·®ÀÌ ´Ù¸¥ ó¹æÀ» ºÐ¸®Çؼ­ ó¹æÇÏ¼Å¾ß ÇÕ´Ï´Ù.\n\n" + model.getValue( sCopyPrcpSrc + "[" + i + "]/exptmthdfact" ) + "."); model.setValue ( sCopyPrcpSrc + "[" + i + "]/rateprcpflag", "N" ) model.setValue ( sCopyPrcpSrc + "[" + i + "]/drugrateqty", "-" ) } else { model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/migdrugmthdspccdnm", model.getValue( sCopyPrcpSrc + "[" + i + "]/exptmthdfact" )); } model.setValue ( sCopyPrcpSrc + "[" + i + "]/exptmthdfact", "-" ); } //20090122 ¸¶Á¤¹Î¼öÁ¤: º¯°æ¿äû¹øÈ£ 670. ´Ü¼ø ¹æ»ç¼± ¿¹¾à ÀÚµ¿ ÆË¾÷¿äû //20090709 CHC, ´Ü¼ø¹æ»ç¼±¿¹¾àÀÚµ¿ÆË¾÷ º´¿øº° Àû¿ë var raypopwndcheckyn = model.getValue ( "/root/initsrch/raypopwndcheckyn/trgtcd" ); if ( model.getValue("/root/patflag/list/prcpgenrflag") == "O" && model.getValue( sCopyPrcpSrc + "[" + i + "]/tempcol2" ).length > 2 && model.getValue( sCopyPrcpSrc + "[" + i + "]/tempcol2" ).substring( 0, 2 ) == "18" && sUsge == "prcp" ) { var msgTitle = "[¿µ»ó]" + "[" + model.getValue( sCopyPrcpSrc + "[" + i + "]/prcpcd" ) + ":" + model.getValue( sCopyPrcpSrc + "[" + i + "]/prcpnm" ) + "]"; if (raypopwndcheckyn != "Y") { if (window.alert( "´Ü¼ø ¹æ»ç¼± °Ë»ç¸¦ ´çÀÏ ½ÃÇà ÇϽðڽÀ´Ï±î? [¿¹:´çÀÏ,¾Æ´Ï¿ä:¿¹¾à]", msgTitle, "36" ) == "7" ){ model.setValue( sCopyPrcpSrc + "[" + i + "]/prcphopedd","99991231" ); } } } sErrFlag = model.getValue(sCopyPrcpSrc +"[" + i + "]/errflag"); sErrMsg = model.getValue(sCopyPrcpSrc +"[" + i + "]/errmsg"); sErrCode = model.getValue(sCopyPrcpSrc +"[" + i + "]/errcode"); if(sErrFlag == "E") { // ¼­¹öüũ½Ã ¿À·ù°¡ ÀÖÀ¸¸é ¸Þ¼¼Áö ó¸® if(!isNull(sErrMsg)) messageBox(sErrMsg, sErrCode); continue; } else if(sErrFlag == "D") { // »ç¿ëÀÚ °áÁ¤ if(sErrCode == "D001") { // ǰÀý¾à fAltDrug ( i, "1", sCopyPrcpSrc, sCopyInptFlag ); if("01" == sCopyInptFlag || "02" == sCopyInptFlag) { // Àüó¹æ ¶Ç´Â ¾à¼Óó¹æÀÏ °æ¿ì var sOpt079 = model.getValue("/root/initsrch/envinfo[qestcd='079']/answcnt"); // ǰÀý¾à º¹»ç °³ÀÎ ¼³Á¤ ¿É¼Ç (001:´ëü¾àǰÀÇ ±âº» Ƚ¼ö(¿ë¹ý), ¼ö·®À¸·Î ¼³Á¤, 002:±âÁ¸¾àǰÀÇ È½¼ö(¿ë¹ý), ¼ö·®, Àϼö·Î ¼³Á¤) if(sOpt079 == "002" && !isNull(model.getValue(strDest+"/prcplist["+nSrchRow+"]/prcpcd"))) { // ±âÁ¸¾àǰÀÇ È½¼ö(¿ë¹ý), ¼ö·®, Àϼö·Î ¼³Á¤ À̰í ǰÀý¾àÀ» ¼±ÅÃÇѰæ¿ì model.setValue(strDest+"/prcplist["+nSrchRow+"]/drugmthdspccdnm", model.getValue(sCopyPrcpSrc +"[" + i + "]/drugmthdspccdnm")) model.setValue(strDest+"/prcplist["+nSrchRow+"]/drugmthdspccd", model.getValue(sCopyPrcpSrc +"[" + i + "]/drugmthdspccd")) model.setValue(strDest+"/prcplist["+nSrchRow+"]/prcpdayno", model.getValue(sCopyPrcpSrc +"[" + i + "]/prcpdayno")) bfDrugCalc("prcptims" , parseInt(nSrchRow)); model.setValue(strDest+"/prcplist["+nSrchRow+"]/prcptims", model.getValue(sCopyPrcpSrc +"[" + i + "]/prcptims")) DrugCalc("prcptims" , parseInt(nSrchRow)); bfDrugCalc("drprcpetc8" , parseInt(nSrchRow)); model.setValue(strDest+"/prcplist["+nSrchRow+"]/drprcpetc8", model.getValue(sCopyPrcpSrc +"[" + i + "]/drprcpetc8")) DrugCalc("drprcpetc8" , parseInt(nSrchRow)); } // End of ±âÁ¸¾àǰÀÇ È½¼ö(¿ë¹ý), ¼ö·®, Àϼö·Î ¼³Á¤ À̰í ǰÀý¾àÀ» ¼±ÅÃÇѰæ¿ì } // End of Àüó¹æ ¶Ç´Â ¾à¼Óó¹æÀÏ °æ¿ì } else if(sErrCode == "D002") { // »êÁ¦ºÒ°¡ fAltDrug ( i, "4", sCopyPrcpSrc, sCopyInptFlag ); if ( getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { //´ëü¾àÀ» ¼±ÅÃÇß´Ù¸é º¹»ç½ÃŰÁö ¾Ê´Â´Ù. clearParameter ( "SPMMB10100_chkyn" ); } else { model.duplicate( strDest, sCopyPrcpSrc+"[" + i + "]", "*[" + nSrchRow + "]"); addPrcpPop_App(nSrchRow, sUsge); } } else if(sErrCode == "D003") { // »êÁ¦ÁÖÀÇ fAltDrug ( i, "5", sCopyPrcpSrc, sCopyInptFlag ); if ( getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { //´ëü¾àÀ» ¼±ÅÃÇß´Ù¸é º¹»ç½ÃŰÁö ¾Ê´Â´Ù. clearParameter ( "SPMMB10100_chkyn" ); } else { model.duplicate( strDest, sCopyPrcpSrc+"[" + i + "]", "*[" + nSrchRow + "]"); addPrcpPop_App(nSrchRow, sUsge); } } else if(sErrCode == "D004") { // Åõ¼®¿ø³»Ã³¹æ»çÀ¯Ã³¸® if("19" != model.getValue( "/root/init/hosinprcpresncd")) { var message = "¿ø³»ÁöÁ¤ÀÌ °¡´ÉÇÑ Ã³¹æÀÔ´Ï´Ù. Àüü ¾àÁ¦¸¦ ¿ø³»·Î ÇϽ÷Á¸é [¿¹], ÇØ´ç¾àÁ¦¸¸ ¿ø³»Ã³¹æÇϽ÷Á¸é [¾Æ´Ï¿À]¸¦ ¼±ÅÃÇØÁֽʽÿÀ."; if (messageBox ( message, "Q" ) == "6" ) { model.setValue( "/root/init/hosinprcpresncd", "19" ); cmb_hosinprcpresn.refresh(); } } model.duplicate( strDest, sCopyPrcpSrc+"[" + i + "]", "*[" + nSrchRow + "]"); addPrcpPop_App(nSrchRow, sUsge); } else if (sErrCode == "D006"){ // ´ëäó¹æÃ¼Å© altcdinfo = X fAltPrcpCd ( i, "1", sCopyPrcpSrc, sCopyInptFlag ); } else if(sErrCode == "D007"){ // ¼ö¼ú¿¹¹æÀû Ç×»ýÁ¦ CHECK SON0926 START »çÀ¯ÀÔ·Â ´ë»óÀÚÀÏ °æ¿ì if (messageBox ( sErrMsg, "Q999" ) == "7") { setParameter ("SPMMO016000_resnflag" , "O" ); var xpt = window.screenleft + eval(500); var ypt = window.screenTop + eval(400); var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; modal ("SPMMO16000", mon, xpt, ypt, "SPMMO16000", "", "", "sysmenu:hidden; min:visible; max:visible; icon:visible", false); //»çÀ¯ÀÔ·Ââ var resncnts = getParameter ("SPMMO016000_resncnts" ); model.setValue ( sCopyPrcpSrc + "[" + i + "]/tempcol19" ,resncnts ); model.duplicate( strDest, sCopyPrcpSrc+"[" + i + "]", "*[" + nSrchRow + "]"); addPrcpPop_App(nSrchRow, sUsge); } else { continue; } } } else { // ¿À·ù°¡ ¾øÀ¸¸é È­¸éÀ¸·Î º¹»ç ó¸® if(sErrFlag == "I" && !isNull(sErrMsg)) { // ¼­¹öüũ½Ã Á¤º¸°¡ ÀÖÀ¸¸é ¸Þ¼¼Áö ó¸® messageBox(sErrMsg, sErrCode); } model.duplicate( strDest, sCopyPrcpSrc+"[" + i + "]", "*[" + nSrchRow + "]"); addPrcpPop_App(nSrchRow, sUsge); // È­¸é¿¡¼­ Ã¼Å©ÇØ¾ß ÇÒ Ç׸ñ üũ } } // End of º¹»ç ó¹æ °Çº° È­¸é º¹»ç // Åõ¼®¿ø³»Ã³¹æ»çÀ¯Ã³¸® if ( model.getValue( "/root/init/hosinprcpresncd") != model.getValue(sCopyFlagSrc + "/hosinprcpresncd") ) { grd_prcplist.refresh(); fChngHosinPrcpResn(); } //JJE CP,Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì root/init/prcpdd ¸¦ ÇØ´ç ¹Ì·¡ÀÏÀÚ·Î º¯°æ... (2008.09.11) if (sCopyInptFlag == "05" || sCopyInptFlag == "06") { if ( model.getValue( "/root/init/prcpdd") != model.getValue(sCopyFlagSrc + "/prcpdd") ) { cmb_prcpdd.refresh(); } } } model.removeNodeSet ("/root/copyprcp" +sTimeStr); // ó¹æÁ¤º¸, È­¸éÁ¤º¸ º¹»ç ³ëµå»èÁ¦ } /** * @desc : check µÈ Source NodeÀÇ °ªÀ» ¸ñÀûÁö¿¡ Append Node ÇÑ´Ù.(ó¹æ°Ë»ö) * @param : objFlag - child or else : strSrc - Ãâ¹ßÁö Node : strDest - ¸ñÀûÁö Node : multiFlag - º¹¼ö add ¿©ºÎ : checkNM - check·Î »ç¿ëÇÒ instance¸í : checkFlag - check½Ã Value : grdObj - ´õºíŬ¸¯½Ã °ªÀ» ³Ñ±â´Â ±×¸®µå ¸í : prcpNmClearFlag - °Ë»ö row¿¡ °Ë»ö¸í Ŭ¸®¾î¾Ï©º? : prcpInptFlag - ó¹æÀԷ±¸ºÐ 00 ó¹æ°Ë»ö, 01 Àüȸó¹æ, 02 ¾à¼Óó¹æ, 03 ¾à¼Ó¼ö¼ú, 05 CP, 06 Ç×¾Ï M0034 : ex) addPrcp ( "child", "/root/prcpsrch/prcplist", "/root/main/prcp", "N", "status", "I", grd_prcpsrchlist, "N"); * @return : void * @authur : ¸¶Á¤¹Î 2007. 3. 12 * @--------------------------------------------------- */ function addPrcp_Web ( objFlag, strSrc, strDest, multiFlag, checkNM, checkFlag, grdObj, prcpNmClearFlag, prcpInptFlag ) { var startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ var endStepDate = null; // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ var step1Elapsed = null; // Äڵ庰 üũ Àü ¼Ò¿ä½Ã°£ var step2Elapsed = null; // Äڵ庰 üũ ¼Ò¿ä½Ã°£ var step3Elapsed = null; // Äڵ庰 üũ ÈÄ ¼Ò¿ä½Ã°£ var nCopyCnt = 0; // º¹»ç °¹¼ö //model.addLog("***************** Start Of addPrcp()"); if ( objFlag == "child") { opener.model.makeValue("/root/drugcalc/prcpvol", ""); opener.model.makeValue("/root/drugcalc/prcpqty", ""); opener.model.makeValue("/root/drugcalc/prcptims", ""); opener.model.makeValue("/root/drugcalc/drprcpetc7", ""); opener.model.makeValue("/root/drugcalc/drprcpetc8", ""); } else { model.makeValue("/root/drugcalc/prcpvol", ""); model.makeValue("/root/drugcalc/prcpqty", ""); model.makeValue("/root/drugcalc/prcptims", ""); model.makeValue("/root/drugcalc/drprcpetc7", ""); model.makeValue("/root/drugcalc/drprcpetc8", ""); } //¸ñÀûÁö¸¦ º¯¼ö·Î ¹Þ°í ½Í¾úÀ¸³ª iviewer¿¡¼­ ¹®Á¦°¡ ÀÖ¾î ¸ñÀûÁö´Â ÇÁ·¹±×¸¦ ±¸ºÐÀÚ·Î ¹Ú¾Æ ³ÖÀ½. var srchRow = 0; var srcNodeList = model.instances(0).selectNodes(strSrc); //or instance1.selectNodes(strSrc) //°Ë»öRow ã±â if ( objFlag == "child") { var destNodeList = opener.model.instances(0).selectNodes( strDest + "/prcplist" ); //dest Node¿¡¼­ prcplist´Â ¾à¼ÓÀ¸·Î ÇÏÀÚ. for ( i = destNodeList.length; i>0; i-- ){ opener.model.getValue ( strDest + "/prcplist[" + i + "]" ) == "S"; srchRow = i; break; } } else { var destNodeList = model.instances(0).selectNodes( strDest + "/prcplist" ); for ( i = destNodeList.length; i >0; i-- ){ model.getValue ( strDest + "prcplist[" + i + "]" ) == "S"; srchRow = i; break; } if(!(srchRow > 0)){ if(destNodeList.length == 0) srchRow = 1; else srchRow = destNodeList.length+1; } } // ó¹æ ÄÚµåÁ¤º¸¸¦ °¡Á®¿Â´Ù. (¼±ÅÃÁø·á ÀÚµ¿Ã¼Å© ¹× ¼±ÅÃÁø·áÀÇ»ç µîÀÇ µ¥ÀÌÅ͸¦ °¡Á®¿À±â À§ÇØ) 2011.10.13 ¾ö¿µ¸¸ var sPrcpCodes = ""; // ó¹æÄÚµå Á¤º¸¸¦ °¡Á®¿À±â À§ÇÑ Ã³¹æ ÄÚµå ¼ÂÆÃ if ( multiFlag == "Y" ){ for( var i = 1; i <= srcNodeList.length; i++ ) { if ( model.getValue( strSrc + "[" + i + "]/" + checkNM) == checkFlag ) { if(sPrcpCodes == ""){ sPrcpCodes = "'" + model.getValue( strSrc + "[" + i + "]/prcpcd") + "'"; } else { sPrcpCodes = sPrcpCodes + ",'" + model.getValue( strSrc + "[" + i + "]/prcpcd") + "'"; } nCopyCnt = nCopyCnt + 1; } } } else { sPrcpCodes = "'" + model.getValue( strSrc + "[" + grdObj.row + "]/prcpcd") + "'" ; nCopyCnt = 1; } if(!isNull(sPrcpCodes)){ // Á¶È¸ÇÒ Äڵ尡 ÀÖÀ»°æ¿ì¿¡¸¸ ½ÇÇàÇϵµ·Ï ¼öÁ¤ÇÔ. if ( objFlag == "child") { opener.javascript.fGetPrcpCodeInfo(sPrcpCodes); } else { fGetPrcpCodeInfo(sPrcpCodes); } } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step1Elapsed = endStepDate.getTime() - startStepDate.getTime(); // Äڵ庰 üũ Àü ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ var cnt = 0; if ( multiFlag == "Y" ){ //¾à¼Óó¹æÀÏ °æ¿ì MIX °¡ ÀÖÀ¸¸é ¹øÈ£¸¦ »õ·Î ¸¸µé¾îÁÜ if ( prcpInptFlag == "02") { //¾à¼Óó¹æÀ̰í for( var i = 1; i <= srcNodeList.length; i++ ) { if ( model.getValue( strSrc + "[" + i + "]/" + checkNM) == checkFlag ) { var prcpmixno = model.getValue( strSrc + "[" + i + "]/prcpmixno" ); if ( prcpmixno != "-" && prcpmixno != "0" ) { //¹Í½º¹øÈ£°¡ ÀÖ´Ù¸é if ( model.getValue( strSrc + "[" + i + "]/tempcol8" ) == "-" ) { //»õ·Î ¹øÈ£ µý°ÍÀº üũ ÇÏÁö ¾Ê´Â´Ù. model.setValue( strSrc + "[" + i + "]/tempcol8", "" ); } else { var mixcnt = 0; //¹Í½º¹øÈ£¸¦ Çϳª Áõ°¡½ÃÄѼ­ °°Àº ¹Í½º¹øÈ£°¡ Àִ°ÍÀº Àû¿ëÇÑ´Ù. var newprcpmixno = eval(opener.model.getValue ( "/root/init/prcpmixno" )) + 1; for( var j = 1; j <= srcNodeList.length; j++ ) { if ( model.getValue( strSrc + "[" + j + "]/" + checkNM) == checkFlag ) { if ( i != j ) { if ( prcpmixno == model.getValue( strSrc + "[" + j + "]/prcpmixno" )) { model.setValue( strSrc + "[" + j + "]/prcpmixno", newprcpmixno ); model.setValue( strSrc + "[" + j + "]/tempcol8", "-" ); mixcnt++; } } } } if ( mixcnt == 0 ) { // °°ÀÌ Àû¿ëµÈ°ÍÀÌ Çϳªµµ ¾ø´Ù¸é ¹Í½º¹øÈ£ ÃʱâÈ­ model.setValue( strSrc + "[" + i + "]/prcpmixno", "-" ); } else { // °ªÀÌ ÀÖÀ¸¸é º»Àΰ͵µ Áõ°¡½ÃÄÑÁÖ°í, ¹Í½º¹øÈ£ init °ªµµ Áõ°¡½ÃÄÑÁØ´Ù. model.setValue( strSrc + "[" + i + "]/prcpmixno", newprcpmixno ); opener.model.setValue ( "/root/init/prcpmixno", newprcpmixno ); } } } } } } //¾à¼Óó¹æ mix no üũ³¡ for( var i = 1; i <= srcNodeList.length; i++ ) { //Àüó¹æ, ¾à¼Óó¹æ¿¡¼­ ó¹æº¹»ç ¹öư Ŭ¸¯½Ã...±¸ÄÚµåÀ̰í À¯È¿ÇÏÁö ¾ÊÀº ÄÚµå Àϰæ¿ì ºÒ°¡Ã³¸® Á¶°úÀå´Ô Áö½Ã. BY SONJY 2008-09-04 //Àüó¹æ, ¾à¼Óó¹æ¿¡¼­ ó¹æº¹»ç ¹öư Ŭ¸¯½Ã ½Ä»çó¹æ º¹»ç ºÒ°¡Ã³¸® by sonjy 2008-09-06 //20090409 ¸¶Á¤¹Î ¼öÁ¤. ¼º°¡º´¿ø ±¸ÄÚµå º¹»ç ±â´É ¿äû /*if( model.getValue( strSrc + "[" + i + "]/prcpcd").substring( 0, 1 ) == "*" || model.getValue( strSrc + "[" + i + "]/prcpcd").substring( 0, 1 ) == "_" || model.getValue( strSrc + "[" + i + "]/prcpclscd") == "03" ) { if ( objFlag == "child" ) { addprcpchk = opener.model.getValue ( "/root/addprcp" ); } else { addprcpchk = model.getValue ( "/root/addprcp" ); } if ( addprcpchk != "Y" ){ continue ; } }*/ if ( model.getValue( strSrc + "[" + i + "]/prcpclscd") == "03" ) { if ( objFlag == "child" ) { addprcpchk = opener.model.getValue ( "/root/addprcp" ); } else { addprcpchk = model.getValue ( "/root/addprcp" ); } if ( addprcpchk != "Y" ){ continue ; } } if ( model.getValue( strSrc + "[" + i + "]/" + checkNM) == checkFlag ) { srchRow = addPrcpDetl ( objFlag , strSrc , strDest , i , srchRow, prcpInptFlag ); if ( srchRow == 0) { cnt++; //°Ë»öÁÙ ´Ù½Ã°Ë»ö if ( objFlag == "child") { var destNodeList = opener.model.instances(0).selectNodes( strDest + "/prcplist" ); //dest Node¿¡¼­ prcplist´Â ¾à¼ÓÀ¸·Î ÇÏÀÚ. for ( j = destNodeList.length; j>0; j-- ){ opener.model.getValue ( strDest + "/prcplist[" + j + "]" ) == "S"; srchRow = j; break; } } else { var destNodeList = model.instances(0).selectNodes( strDest + "/prcplist" ); for ( j = destNodeList.length; j >0; j-- ){ model.getValue ( strDest + "prcplist[" + j + "]" ) == "S"; srchRow = j; break; } //JJE- if(!(srchRow > 0)){ srchRow = destNodeList.length; } //-JJE } } else { //ó¹æº¹»ç¿¡ ¹®Á¦°¡ ¾ø´Ù¸é ÇϵåÄÚµå set ó¹æ Chk //srchRow = fAddSetPrcpChk ( objFlag , strSrc , strDest , i , srchRow, prcpInptFlag ); srchrownum = fAddSetPrcpChkKNUH ( objFlag , strSrc , strDest , i , srchRow, prcpInptFlag ); if (srchrownum != srchRow) { srchRow = srchrownum; if ( objFlag == "child" ) { opener.javascript.DrugCalc ( "drprcpetc8" , parseInt(srchRow) -1 ); } else { DrugCalc ( "drprcpetc8" , parseInt(srchRow) -1 ); } } } //if ( objFlag == "child" ) { // opener.grd_prcplist.refresh(); //} else { // grd_prcplist.refresh(); //} } } } else { //´õºíŬ¸¯À¸·Î ³Ñ±æ¶§ //Àüó¹æ, ¾à¼Óó¹æ¿¡¼­ ´õºí Ŭ¸¯½Ã...±¸ÄÚµåÀ̰í À¯È¿ÇÏÁö ¾ÊÀº ÄÚµå Àϰæ¿ì ºÒ°¡Ã³¸® Á¶°úÀå´Ô Áö½Ã. BY SONJY 2008-09-04 //Àüó¹æ, ¾à¼Óó¹æ¿¡¼­ ó¹æº¹»ç ¹öư Ŭ¸¯½Ã ½Ä»çó¹æ º¹»ç ºÒ°¡Ã³¸® by sonjy 2008-09-06 //20090409 ¸¶Á¤¹Î ¼öÁ¤. ¼º°¡º´¿ø ±¸ÄÚµå º¹»ç ±â´É ¿äû /*if( model.getValue( strSrc + "[" + grdObj.row + "]/prcpcd").substring( 0, 1 ) == "*" || model.getValue( strSrc + "[" + grdObj.row + "]/prcpcd").substring( 0, 1 ) == "_" || model.getValue( strSrc + "[" + grdObj.row + "]/prcpclscd") == "03" ) { if ( objFlag == "child" ) { addprcpchk = opener.model.getValue ( "/root/addprcp" ); } else { addprcpchk = model.getValue ( "/root/addprcp" ); } if ( addprcpchk != "Y" ){ //20090407 ¸¶Á¤¹Î ¼öÁ¤. ¼º°¡º´¿ø ±â´É ¿äû //return ; } }*/ if( model.getValue( strSrc + "[" + grdObj.row + "]/prcpclscd") == "03" ) { if ( objFlag == "child" ) { addprcpchk = opener.model.getValue ( "/root/addprcp" ); } else { addprcpchk = model.getValue ( "/root/addprcp" ); } if ( addprcpchk != "Y" ){ return ; } } //mix no ÃʱâÈ­ model.setValue( strSrc + "[" + grdObj.row + "]/prcpmixno", "-" ); srchRow = addPrcpDetl ( objFlag , strSrc , strDest , grdObj.row , srchRow, prcpInptFlag ); if ( srchRow == 0) { cnt++; } else { //ó¹æº¹»ç¿¡ ¹®Á¦°¡ ¾ø´Ù¸é ÇϵåÄÚµå set ó¹æ Chk //srchRow = fAddSetPrcpChk( objFlag , strSrc , strDest , grdObj.row , srchRow, prcpInptFlag ); var srchrownum = fAddSetPrcpChkKNUH( objFlag , strSrc , strDest , grdObj.row , srchRow, prcpInptFlag ); if (srchrownum != srchRow) { srchRow = srchrownum; if ( objFlag == "child" ) { opener.javascript.DrugCalc ( "drprcpetc8" , parseInt(srchRow) -1 ); } else { DrugCalc ( "drprcpetc8" , parseInt(srchRow) -1 ); } } } } endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step2Elapsed = endStepDate.getTime() - startStepDate.getTime(); // Äڵ庰 üũ ¼Ò¿ä½Ã°£ startStepDate = new Date(); // °¢ ¾÷ºÎ ½ÃÀÛ ½Ã°£ fHosinPrcpResnChk (objFlag, strDest ); if ( cnt == 0 ) { // Çѹøµµ ¿¡·¯°¡ ¾øÀ» ¶§¸¸ ¸ÞÀÎÀ¸·Î Æ÷Ä¿½º°¡ °£´Ù. focusMain ( srchRow, objFlag, prcpNmClearFlag ); } else { var modiflag = model.getValue("/root/init/rowmodify/modiflag"); if ( objFlag == "child" ) { if ( modiflag != "Y" ){ // ó¹æ Äڵ忡¼­ ¼öÁ¤ ¸ðµå°¡ ¾Æ´Ò¶§¸¸ refresh - 20090630 by Moonsh opener.grd_prcplist.rebuild(); opener.model.recalculate(); opener.grd_prcplist.refresh(); } // opener.model.setfocus( "grd_prcplist" ); // if ( srchRow != 0 ) { // opener.grd_prcplist.row = srchRow; // } } else { if ( modiflag != "Y" ){ // ó¹æ Äڵ忡¼­ ¼öÁ¤ ¸ðµå°¡ ¾Æ´Ò¶§¸¸ refresh - 20090630 by Moonsh grd_prcplist.rebuild(); model.recalculate(); grd_prcplist.refresh(); } // model.setfocus( "grd_prcplist" ); // if ( srchRow != 0 ) { // grd_prcplist.row = srchRow; // } } } //KNUH, ¾à¼Óó¹æ º¹»ç ½Ã Ä¡½Ä ÆË¾÷ÀÌ Çѹø¸¸ ¶ß°í ´Ù¸¥ Ä¡°úó¹æ¿¡ µ¿ÀÏÇÏ°Ô Àû¿ëµÇµµ·Ï ÇÔ. ó¹æº¹»ç°¡ ¿Ï·áµÇ¸é Àӽà instance´Â Á¦°ÅÇÔ. (2011.03.28 JJE) if ( objFlag == "child" ) { opener.model.removeNodeset("/root/main/toot_prcp"); }else{ model.removeNodeset("/root/main/toot_prcp"); } // 20080925 Ç×»ýÁ¦ Ãß°¡ ½Ã´Â ±×¸®µå edittingÀ» À§ÇØ »ö º¯°æ ·ÎÁ÷ »ý·« by MoonSH var cdssFlag = getParameter( "SPMMD01600_flag"); clearParameter( "SPMMD01600_flag", ""); if (cdssFlag != "Y") { fPrcpColor(objFlag); } if ( objFlag != "child") { //JJE- if( model.getValue ( "/root/cp" ) == "Y" ){ if (prtlprcpstatus_SMMMO00110 != "U" ) { import1.visible = false; } }else{ import1.visible = false; } //-JJE } //model.addLog("***************** End Of addPrcp()"); endStepDate = new Date(); // °¢ ¾÷ºÎ Á¾·áÈÄ ½Ã°£ step3Elapsed = endStepDate.getTime() - startStepDate.getTime(); // Äڵ庰 üũ ¼Ò¿ä½Ã°£ // ¼ÓµµÃ¼Å© ¸ð´ÏÅ͸µ ·Î±× Ãß°¡ 2013.06.27 ¾ö¿µ¸¸ if ( objFlag == "child") { opener.javascript.reqSetMonitoringLog("PrcpCopy", "WEB", getScreenID(), objFlag, prcpInptFlag, multiFlag, prcpNmClearFlag, nCopyCnt, step1Elapsed+step2Elapsed+step3Elapsed, step1Elapsed, step2Elapsed, step3Elapsed); } else { reqSetMonitoringLog("PrcpCopy", "WEB", getScreenID(), objFlag, prcpInptFlag, multiFlag, prcpNmClearFlag, nCopyCnt, step1Elapsed+step2Elapsed+step3Elapsed, step1Elapsed, step2Elapsed, step3Elapsed); } } /** * @desc : °Ë»öµÈ ³»¿ëÁß ³»¸± ó¹æÀ» ¼±ÅÃÇÏ¿© Àü¼ÛÇÑ´Ù.( double click ) * @param : objFlag - child or else : strSrc - source node : strDest - ¸ñÀûÁö node; childÀ϶§´Â opener.root.main.prcp, ¾Æ´Ï¸é "/root/main/prcp" ÀÌ´Ù : sendRow - °Ë»öµÈ ³»¿ëÁß ¸ÞÀÎÀ¸·Î º¸³»°íÀÚ ÇÏ´Â row : srchRow - ¸ÞÀο¡ µé¾î°£ ÀÚ¸®. °Ë»ö·Î¿ì(srchRow) ¹Ù·Î ÀüÀÌ´Ù. : prcpInptFlag - - ó¹æÀԷ±¸ºÐ 00 ó¹æ°Ë»ö, 01 Àüȸó¹æ, 02 ¾à¼Óó¹æ, 03 ¾à¼Ó¼ö¼ú.. M0034 : groupSrc - ¿É¼Ç: groupó¹æ °Ë»öÇÒ °æ¿ì node : direcSrc - ¿É¼Ç: group Áö½Ãó¹æ °Ë»öÇÒ °æ¿ì node : prcpInptFlag - ó¹æÀԷ±¸ºÐ 00 ó¹æ°Ë»ö, 01 Àüȸó¹æ, 02 ¾à¼Óó¹æ, 03 ¾à¼Ó¼ö¼ú.. M0034 * @return : srchRow ¿¡·¯½Ã 0 * @authur : ¸¶Á¤¹Î 2007. 4. 12 * @--------------------------------------------------- */ function addPrcpDetl ( objFlag, strSrc, strDest, sendRow, srchRow, prcpInptFlag, grupSrc, direcSrc ) { if ( objFlag == "child") { opener.javascript.reqSetMonitoringLog("addPrcpDetl", "WEB", getScreenID(), objFlag, prcpInptFlag); // 2017.12.20 »ç¿ë¿©ºÎ¸¦ üũ Çϱâ À§ÇØ Ãß°¡ ¾ö¿µ¸¸ } else { reqSetMonitoringLog("addPrcpDetl", "WEB", getScreenID(), objFlag, prcpInptFlag); // 2017.12.20 »ç¿ë¿©ºÎ¸¦ üũ Çϱâ À§ÇØ Ãß°¡ ¾ö¿µ¸¸ } //model.addLog(" *************** Start Of addPrcpDetl() PRCPCLSCD " + model.getValue( strSrc + "[" + sendRow + "]/prcpclscd" ) + " || PRCPCD : " + model.getValue( strSrc + "[" + sendRow + "]/prcpcd" )); //model.addLog(" PRCPCLSCD : " + model.getValue( strSrc + "[" + sendRow + "]/prcpclscd" )); //model.addLog(" PRCPCD : " + model.getValue( strSrc + "[" + sendRow + "]/prcpcd" )); //20091013 by sonjy ¼ººó¼¾Æ®º´¿ø ¿äû => mig data Àüó¹æ copy½Ã ½ÅÄÚµåÀÏ °æ¿ì reset¿©ºÎ var bfprcpsrchyn = ""; if( objFlag == "child") bfprcpsrchyn = opener.model.getValue("/root/initsrch/bfprcpsrchyn/trgtcd"); else bfprcpsrchyn = model.getValue("/root/initsrch/bfprcpsrchyn/trgtcd"); //20091104 by sonjy ¼ººó¼¾Æ® Àüȯ µ¥ÀÌÅÍ °ü·Ã => mig data Àüó¹æ copy½Ã ¾à/ÁÖ»ç ¿ë·® ¿À·ù º¸Á¤ var migyn = ""; var colHidnValue = grdBaseColHidn("D"); /***************************** Àüó¹æ ±¸¼ö°¡ÄÚµå °Ë»ö½Ã ½ÅÄÚµå·Î º¯È¯°Ë»ö ****************************************/ var oldprcpflag = ""; if ( prcpInptFlag == "01" ) { //Àüó¹æÀ̰í var tempcol9 = model.getValue( strSrc + "[" + sendRow + "]/tempcol9" ); var tempcol18 = model.getValue( strSrc + "[" + sendRow + "]/tempcol18" ); if ( tempcol9 == "N" ) { return 0; } else { var bfprcpcd = model.getValue( strSrc + "[" + sendRow + "]/prcpcd" ); //20091104 by sonjy ¼ººó¼¾Æ® Àüȯ µ¥ÀÌÅÍ °ü·Ã => mig data Àüó¹æ copy½Ã ¾à/ÁÖ»ç ¿ë·® ¿À·ù º¸Á¤ migyn = model.getValue( strSrc + "[" + sendRow + "]/tempcol20" ); /** * 20091013 by sonjy ¼ººó¼¾Æ®º´¿ø ¿äû => mig data Àüó¹æ copy½Ã ½ÅÄÚµåÀÏ °æ¿ì reset * ´Ü, Áö½Ãó¹æÀÏ °æ¿ì´Â °Ë»ö ºÒÇÊ¿äÇϹǷΠÁ¦¿Ü */ if ( bfprcpcd.substring( 0, 1 ) == "_" || bfprcpcd.substring( 0, 1 ) == "=" || ( bfprcpsrchyn == "Y" && migyn == "Y" && model.getValue( strSrc + "[" + sendRow + "]/prcpclscd" ) != "09") ) { //±¸¼ö°¡ÄÚµåÀÌ¸é ½ÅÄÚµå·Î ´Ù½Ã °Ë»öÇÑ´Ù. by sonjy20091013 //20090407 ¸¶Á¤¹Î¼öÁ¤. tempcol9·Î ±¸ºÐµÇ±â ¶§¹®¿¡ »ö±òºñ±³ ÁÖ¼®Ã³¸®. //if ( model.getValue ( strSrc + "[" + sendRow + "]/tempcol10" ) != "#ccffcc" ) { //¸ÅÇΰªÀÌ ÀÖÀ¸¸é(»ö±òÀº mgr´Ü¿¡¼­ ¹Ú´Â´Ù) var bfprcpvol = model.getValue( strSrc + "[" + sendRow + "]/prcpvol" ); var bfprcpqty = model.getValue( strSrc + "[" + sendRow + "]/prcpqty" ); var bfprcptims = model.getValue( strSrc + "[" + sendRow + "]/prcptims" ); var bfprcpdayno = model.getValue( strSrc + "[" + sendRow + "]/prcpdayno" ); var bfprcpdelivefact = model.getValue( strSrc + "[" + sendRow + "]/prcpdelivefact" ); var bfpowdflag = model.getValue( strSrc + "[" + sendRow + "]/powdflag" ); var bfprnprcpflag = model.getValue( strSrc + "[" + sendRow + "]/prnprcpflag" ); var bfprepprcpflag = model.getValue( strSrc + "[" + sendRow + "]/prepprcpflag" ); var bfselfprcpflag = model.getValue( strSrc + "[" + sendRow + "]/selfprcpflag" ); var bfselfdrugflag = model.getValue( strSrc + "[" + sendRow + "]/selfdrugflag" ); var bfdrugpackflag = model.getValue( strSrc + "[" + sendRow + "]/drugpackflag" ); var bferprcpflag = model.getValue( strSrc + "[" + sendRow + "]/erprcpflag" ); var bfprecureprcpflag = model.getValue( strSrc + "[" + sendRow + "]/precureprcpflag" ); var bfnigtprcpflag = model.getValue( strSrc + "[" + sendRow + "]/nigtprcpflag" ); var bfportprcpflag = model.getValue( strSrc + "[" + sendRow + "]/portprcpflag" ); var bffixprcpflag = model.getValue( strSrc + "[" + sendRow + "]/fixprcpflag" ); var bfanamneflag = model.getValue( strSrc + "[" + sendRow + "]/anamneflag" ); var bferreadflag = model.getValue( strSrc + "[" + sendRow + "]/erreadflag" ); var bfstemcellflag = model.getValue( strSrc + "[" + sendRow + "]/stemcellflag" ); var bfprcpexecdeptcd = model.getValue( strSrc + "[" + sendRow + "]/prcpexecdeptcd" ); var bfDrprcpetc7 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc7"); //1ȸ¿ë·® var bfDrprcpetc8 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc8"); //1ȸ¼ö·® var bfDrugmastspec = model.getValue ( strSrc + "[" + sendRow + "]/drugmastspec"); var bfpayflagcd = model.getValue ( strSrc + "[" + sendRow + "]/payflagcd"); // 2011.03.03 ¸¶ÀÌ±×µÈ Ã³¹æ Àüó¹æ º¹»ç½Ã ±Þ¿©µµ º¹»çÇϵµ·Ï ¼öÁ¤ //20091013 by sonjy ¼ººó¼¾Æ®º´¿ø ¿äû => mig data Àüó¹æ copy½Ã ½ÅÄÚµåÀÏ °æ¿ì reset¿©ºÎ if(bfprcpcd.substring( 0, 1 ) == "_" || bfprcpcd.substring( 0, 1 ) == "=" ) { fPrcpSrchCom ( bfprcpcd.substring( 1, bfprcpcd.length ), opener.model.getValue ( "/root/init/prcpdd" ), opener.model.getValue ( "/root/paminfo/list/insukind"), "TRMMO02101", "", false, "getOldPrcpCdChngInfo", "E" ); } else { fPrcpSrchCom ( bfprcpcd, opener.model.getValue ( "/root/init/prcpdd" ), opener.model.getValue ( "/root/paminfo/list/insukind"), "TRMMO02101", "", false, "getPrcpCdSrchInfo", "E" , false); } strSrc = "/root/oldprcpchngsrch/prcplist"; sendRow = 1; if ( isNull(model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ))){ return 0; } else { oldprcpflag = "Y"; var prcpclscd = model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ); if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ){ if ( prcpclscd == "A2" ) { if ( model.getValue ( strSrc + "[" + sendRow + "]/prcptims") != bfprcptims ) { model.setValue ( strSrc + "[" + sendRow + "]/prcptims", bfprcptims ); fBaseMthd("oldprcp"); } } else { model.setValue ( strSrc + "[" + sendRow + "]/prcptims", bfprcptims ); } var chkPrcpVol = model.getValue ( strSrc + "[" + sendRow + "]/prcpvol"); if( bfprcpsrchyn == "Y" && migyn == "Y" && parseInt(chkPrcpVol) < 1 ){ model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", 0 ); model.setValue ( strSrc + "[" + sendRow + "]/prcpqty", 0 ); model.setValue ( strSrc + "[" + sendRow + "]/prcpdayno", 0 ); } else { model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", bfprcpvol ); model.setValue ( strSrc + "[" + sendRow + "]/prcpqty", bfprcpqty ); model.setValue ( strSrc + "[" + sendRow + "]/prcpdayno", bfprcpdayno ); } //model.setValue ( strSrc + "[" + sendRow + "]/drugmthdspccdnm", "-" ); //model.setValue ( strSrc + "[" + sendRow + "]/drugmthdspccd", "-" ); //20091104 by sonjy ¼ººó¼¾Æ® Àüȯ µ¥ÀÌÅÍ °ü·Ã => mig data Àüó¹æ copy½Ã ¾à/ÁÖ»ç ¿ë·® ¿À·ù º¸Á¤ if( bfprcpsrchyn == "Y" && migyn == "Y" ){ var sdrugmastspec = model.getValue ( strSrc + "[" + sendRow + "]/drugmastspec"); var orgprcpvol = getArrayData ( sdrugmastspec + "^", 0, 1 , "^", "|" ); //drugcntsvol ÇÔ·®±âÁؿ뷮 -> °æºÏ´ë´Â ÀϱâÁØ ¿ë·®À¸·Î ºñ±³ var orgDrprcpetc7 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc7"); //1ȸ¿ë·® var orgDrprcpetc8 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc8"); //1ȸ¼ö·® var orgCalcRate = 0; //ȸ±âÁØ¿¡¼­´Â ¼ö°¡°è»ê±¸ºÐÀÌ 1À̸é Ƚ¼öµµ °ö (2011.01.02 ÀüÁöÀº) if(!isNull(bfDrprcpetc7) && !isNull(bfDrprcpetc8) && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){ orgCalcRate = (orgDrprcpetc8 * bfDrprcpetc8) * 1000; orgCalcRate = Math.round(orgCalcRate); orgCalcRate = orgCalcRate / 1000; var calcmthdcd = getArrayData ( bfDrugmastspec + "^", 0, 26, "^", "|" ); if( calcmthdcd == "1" ){ var volRate = orgDrprcpetc7 / bfDrprcpetc7 * 1000; var qtyRate = orgDrprcpetc8 / bfDrprcpetc8 * 1000; volRate = Math.round(volRate); qtyRate = Math.round(qtyRate); volRate = volRate / 1000; qtyRate = qtyRate / 1000; if ( volRate != qtyRate //ȸ ±âÁØ ¿ë·® ÀÌ»ó ½Ã || Math.round ( orgDrprcpetc7 * Math.round ( orgDrprcpetc8 / bfDrprcpetc8 ) * bfprcptims * 1000 ) != bfprcpvol * 1000 ){ //1ȸ ¿ë·®ÀÌ À߸ø µé¾î¿ÔÀ» ¼ö ÀÖÀ½(mig) ÀÏ ±âÁØ ¿ë·® ÀÌ»ó ½Ã if( eval(bfDrprcpetc7) < 1 ){ model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", "0") ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc7", "0") ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc8", "0") ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", "0") ; } else { model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", orgDrprcpetc7 * bfprcptims) ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc7", orgDrprcpetc7 * orgCalcRate ) ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc8", bfDrprcpetc8 ) ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", bfprcpvol) ; } } }else{ if( eval(bfDrprcpetc7) < 1 ){ model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", "0" ) ; //1ȸ¿ë·® model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc7", "0") ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc8", "0") ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", "0") ; } else { model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", bfDrprcpetc7 ) ; //1ȸ¿ë·® model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc7", bfDrprcpetc7 ) ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc8", bfDrprcpetc8 ) ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", bfprcpvol) ; } } } else{//ȸ±âÁØ º¸Á¤ ³¡ ¿ø·¡ if ( !isNull(orgprcpvol) && Math.round ( orgprcpvol * bfprcpqty * 1000 ) != bfprcpvol * 1000 ){ model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", bfprcpqty * orgprcpvol) ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", bfprcpvol) ; } } } } model.setValue ( strSrc + "[" + sendRow + "]/prcpdelivefact", bfprcpdelivefact ); model.setValue ( strSrc + "[" + sendRow + "]/powdflag", bfpowdflag ); model.setValue ( strSrc + "[" + sendRow + "]/prnprcpflag", bfprnprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/prepprcpflag", bfprepprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/selfprcpflag", bfselfprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/selfdrugflag", bfselfdrugflag ); model.setValue ( strSrc + "[" + sendRow + "]/drugpackflag", bfdrugpackflag ); model.setValue ( strSrc + "[" + sendRow + "]/erprcpflag", bferprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/precureprcpflag", bfprecureprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/nigtprcpflag", bfnigtprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/portprcpflag", bfportprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/fixprcpflag", bffixprcpflag ); model.setValue ( strSrc + "[" + sendRow + "]/anamneflag", bfanamneflag ); model.setValue ( strSrc + "[" + sendRow + "]/erreadflag", bferreadflag ); model.setValue ( strSrc + "[" + sendRow + "]/payflagcd", bfpayflagcd ); // 2011.03.03 ¸¶ÀÌ±×µÈ Ã³¹æ Àüó¹æ º¹»ç½Ã ±Þ¿©µµ º¹»çÇϵµ·Ï ¼öÁ¤ } } } //20080917 ¸¶Á¤¹Î¼öÁ¤: PRN½Çó¹æÀº Àüó¹æ¿¡¼­ º¹»çµÇ¸é ¾ÈµÈ´Ù. if ( model.getValue( strSrc + "[" + sendRow + "]/prcpinptflag" ) == "19" ) { messageBox ( "[" + model.getValue( strSrc + "[" + sendRow + "]/prcpnm" ) + "]: PRN ½Çó¹æÀº 󹿵î·Ï ÇϽǼö", "I004" ); return 0; } // Àüó¹æ¿¡¼­ º¹»ç ½Ã ¼Ò¾Æ TPNÀº Àüó¹æ¿¡¼­ º¹»ç ¾ÈµÇµµ·Ï ¿äû. - 20090720 by MoonSH if( model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "A6" && getArrayData ( model.getValue ( strSrc + "[" + sendRow + "]/drugmastspec" ) + "^", 0, 23 , "^", "|" ) == "B") { messageBox ( "[" + model.getValue( strSrc + "[" + sendRow + "]/prcpnm" ) + "]: ¼Ò¾Æ TPN ó¹æÀº Àüó¹æ¿¡¼­ º¹»çÇϽǼö", "I004" ); return 0; } // Àüó¹æ¿¡¼­ º¹»ç ½Ã stemcellflag ÃʱâÈ­ ¿äû. - 20081118 by MoonSH if ( !isNull(bfstemcellflag) ){ model.setValue ( strSrc + "[" + sendRow + "]/stemcellflag", "00NNN" ); } // Àüó¹æ¿¡¼­ º¹»ç ½Ã ¸¶À̱׷¹ÀÌ¼Ç À߸ø µé¾î¿Í¼­ _0À¸·Î Á¸Àç ÇÏ´Â ½ÇÇàºÎ¼­ -À¸·Î ¼öÁ¤. - 20081202 by MoonSH if ( bfprcpexecdeptcd == "_0" ) { model.setValue ( strSrc + "[" + sendRow + "]/prcpexecdeptcd", "-" ); } //20091203 by sonjy Àüó¹æ copy½Ã ó¹æÁ¾·ù°¡ Áö½ÃÀΰæ¿ì Àüó¹æ¿¡ ÀúÀåµÈ ½ÃÇàºÎ¼­¸¦ copyÇÏÁö ¾Ê°í ÃʱâÈ­.[¿äû¹øÈ£ 8711 ] //(Àü½Ç ȯÀÚÀÇ °æ¿ì ÀÌÀüº´µ¿À¸·Î º¸ÀÌ´Â ¹®Á¦ ) -- V/S(Áö½Ã), Ȱµ¿(Áö½Ã), I/O(Áö½Ã), Áö½Ã : ½ÄÀÌ,BMTÁ¦¿Ü var cur_prcpclscd = model.getValue( strSrc + "[" + sendRow + "]/prcpclscd" ); if(cur_prcpclscd == "00" || cur_prcpclscd == "01"|| cur_prcpclscd == "02" || cur_prcpclscd == "09") { model.setValue ( strSrc + "[" + sendRow + "]/prcpexecdeptcd", model.getValue( strSrc + "[" + sendRow + "]/tempcol23") ); } } //Àüó¹æÀ̳ª ¾à¼Óó¹æ¿¡¼­ ÀÓ»óó¹æÃ¼Å©µÈ ó¹æÀ» ¹ßÇàÇÒ °æ¿ì ÀÓ»ó½ÃÇè ºÎÀ¯Çü ÀÚµ¿¼¼ÆÃ(subcretno), CHC, 2009-07-22 if ( prcpInptFlag == "01" || prcpInptFlag == "02" ) { if ( model.getValue( strSrc + "[" + sendRow + "]/clincstdyflag" ) == "Y" ) { fSubcretnoSet("2", "Y", strSrc, sendRow); } //Àüó¹æÀ̳ª ¾à¼Óó¹æÀ϶§ ¿ë·®/¼ö·® º¸Á¤ 20100209 LYJ var prcpclscd = model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ); if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ){ if( bfprcpsrchyn == "Y" && model.getValue( strSrc + "[" + sendRow + "]/prcpclscd" ) != "09" && model.getValue( strSrc + "[" + sendRow + "]/prcpinptflag" ) != "35"){ // ÀÚ°¡º¸À¯Ã³¹æÀº º¸Á¤ Á¦¿ÜÇÑ´Ù. 20100504 LYJ var bfprcpvol = model.getValue( strSrc + "[" + sendRow + "]/prcpvol" ); var bfprcpqty = model.getValue( strSrc + "[" + sendRow + "]/prcpqty" ); var sdrugmastspec = model.getValue ( strSrc + "[" + sendRow + "]/drugmastspec"); var orgprcpvol = getArrayData ( sdrugmastspec + "^", 0, 1 , "^", "|" ); //drugcntsvol ÇÔ·®±âÁؿ뷮 if ( !isNull(orgprcpvol) && Math.round ( orgprcpvol * bfprcpqty * 1000 ) != bfprcpvol * 1000 ){ var bfDrprcpetc7 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc7"); //1ȸ¿ë·® var bfDrprcpetc8 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc8"); //1ȸ¼ö·® var bfprcptims = model.getValue( strSrc + "[" + sendRow + "]/prcptims" ); if(!isNull(bfDrprcpetc7) && !isNull(bfDrprcpetc8) && (colHidnValue == "C" || colHidnValue == "G" || colHidnValue == "H") ){ var orgDrprcpetc7 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc7"); //1ȸ¿ë·® var orgDrprcpetc8 = model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc8"); //1ȸ¼ö·® var orgCalcRate = 0; var calcmthdcd = getArrayData ( sdrugmastspec + "^", 0, 26, "^", "|" ); if( calcmthdcd == "1" ){ orgCalcRate = (orgDrprcpetc8 * bfDrprcpetc8) * 1000; orgCalcRate = Math.round(orgCalcRate); orgCalcRate = orgCalcRate / 1000; model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", orgDrprcpetc7 * bfprcptims) ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc7", orgDrprcpetc7 ) ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc8", bfDrprcpetc8 ) ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", orgDrprcpetc7) ; } else { model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", bfDrprcpetc7 ) ; //1ȸ¿ë·® model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc7", bfDrprcpetc7 ) ; //1ȸ¿ë·®*Ƚ¼ö model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc8", bfDrprcpetc8 ) ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", bfprcpvol) ; } } else { model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", bfprcpqty * orgprcpvol) ; model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", bfprcpvol) ; } } } } } //ÀÚ°¡º¸À¯ ó¹æÀ϶§ 󹿏í Àç¼³Á¤ ÇÑ´Ù. 20100427 LYJ if (model.getValue( strSrc + "[" + sendRow + "]/prcpinptflag") == "35"){ var selfprcpnm = model.getValue( strSrc + "[" + sendRow + "]/prcpnm" ); var selflen = selfprcpnm.length; if (prcpInptFlag != "35"){ selfprcpnm1 = selfprcpnm.substring(7, selflen); model.setValue ( strSrc + "[" + sendRow + "]/orgprcpnm", selfprcpnm1) ; } } if ( prcpInptFlag == "35" ) { //ÀÚ°¡º¸À¯ model.setValue ( strSrc + "[" + sendRow + "]/orgprcpnm", model.getValue( strSrc + "[" + sendRow + "]/prcpnm" )) ; } var prcpClsCd = model.getValue( strSrc + "[" + sendRow + "]/prcpclscd" ); var prcpKindCd = model.getValue( strSrc + "[" + sendRow + "]/prcpkindcd" ); var drugmthdspccd = model.getValue( strSrc + "[" + sendRow + "]/drugmthdspccd" ); var prcpnm = model.getValue( strSrc + "[" + sendRow + "]/prcpnm" ); var drugmastspec = model.getValue( strSrc + "[" + sendRow + "]/drugmastspec" ) + "^"; var hsctflag = "N"; var cpchk = ""; var usge = ""; var prcpgenrflag = ""; if ( objFlag == "child" ) { usge = opener.model.getValue ( "/root/usge" ); cpchk = opener.model.getValue ( "/root/cp" ); prcpgenrflag = opener.model.getValue ( "/root/patflag/list/prcpgenrflag" ); } else { usge = model.getValue ( "/root/usge" ); cpchk = model.getValue ( "/root/cp" ); prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); } if ( usge == "prms" || usge == "direc" || usge == "home" ) { prcpInptFlag = "02"; } if ( prcpClsCd == "-" ) { messageBox ( prcpnm + " ó¹æÀº ó¹æºÐ·ù°¡ ¾ø¾î 󹿵î·ÏÀ» ÇÏ½Ç ¼ö ¾ø½À´Ï´Ù.", "E" ); return 0; } var iprcpqty = eval(model.getValue( strSrc + "[" + sendRow + "]/prcpqty" )); var iprcptims = eval(model.getValue( strSrc + "[" + sendRow + "]/prcptims" )); if ( model.getValue( strSrc + "[" + sendRow + "]/tempcol18" ) == "MC" && (iprcpqty != 1 || iprcptims != 1 )) { messageBox ( "[" + prcpnm + "] Àüȯµ¥ÀÌÅÍ ¿¬¼Ó°Ë»çó¹æÀº ó¹æº¹»ç ÇÏ½Ç ¼ö ¾ø½À´Ï´Ù. ( ¼ö·®:" + iprcpqty + ", Ƚ¼ö:" + iprcptims + " )" , "E" ); return 0; } var addprcpchk = "" if ( objFlag == "child" ) { addprcpchk = opener.model.getValue ( "/root/addprcp" ); } else { addprcpchk = model.getValue ( "/root/addprcp" ); } if ( addprcpchk == "Y" ){ //½ÃÇàºÎ¼­Ã¼Å© //½ÃÇàºÎ¼­ ó¹æÀº ¸¶¾àºÒ°¡ var spcldrug = getArrayData ( drugmastspec, 0, 23, "^", "|" ); //20080721 ¸¶Á¤¹Î¼öÁ¤ ±è¹Î¼± ¼±»ý´ÔÀÇ ¿äû. ÀÇ»ç±ÇÇÑÀÌ Àִ»ç¶÷Àº ó¹æ °¡´É. if ( spcldrug == "M" ) { var prcpauthflag = ""; if ( objFlag == "child" ) { prcpauthflag = opener.model.getValue ( "/root/init/prcpauthflag" ) } else { prcpauthflag = model.getValue ( "/root/init/prcpauthflag" ) } if (prcpauthflag != "3" ){ messageBox ( prcpnm + " ¸¶¾àó¹æÀº ½ÃÇàºÎ¼­¿¡¼­ Àǻ縸 µî·ÏÀÌ °¡´ÉÇÑ Ã³¹æÀÔ´Ï´Ù.", "E" ); return 0; } } } //20090302 ¸¶Á¤¹Î¼öÁ¤: Irradiation(LBT70010) ´Üµ¶Ã³¹æ ºÒ°¡ if ( objFlag == "child" ) { if ( model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ) == opener.model.getValue ( "/root/initsrch/irrprcpcd/trgtcd" )) { messageBox ( prcpnm + "´Â ´Üµ¶Ã³¹æÀÌ ºÒ°¡ÇÕ´Ï´Ù. ¼öÇ÷»ó¼¼ÆË¾÷ÀÇ Irr üũ±â´ÉÀ» ÅëÇØ µî·ÏÇØ ÁֽʽÿÀ", "E" ); return 0; } } else { if ( model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ) == model.getValue ( "/root/initsrch/irrprcpcd/trgtcd" )) { messageBox ( prcpnm + "´Â ´Üµ¶Ã³¹æÀÌ ºÒ°¡ÇÕ´Ï´Ù. ¼öÇ÷»ó¼¼ÆË¾÷ÀÇ Irr üũ±â´ÉÀ» ÅëÇØ µî·ÏÇØ ÁֽʽÿÀ", "E" ); return 0; } } if ( prcpClsCd == "A2" || prcpClsCd == "A4" || prcpClsCd == "A6" ) { if (isNull(model.getValue ( strSrc + "[" + sendRow + "]/prcpvolunitnm"))) { messageBox ( model.getValue ( strSrc + "[" + sendRow + "]/prcpnm") + " ó¹æÀÇ ¿ë·®´ÜÀ§°¡", "E014" ); return 0; } if ( isNull(model.getValue ( strSrc + "[" + sendRow + "]/prcpqtyunitnm"))) { messageBox ( model.getValue ( strSrc + "[" + sendRow + "]/prcpnm") + " ó¹æÀÇ ¼ö·®´ÜÀ§°¡", "E014" ); return 0; } } //20090903 ÀÌÀ±Á¤ Ãß°¡: ÀÀ±Þ ÅÇ¿¡¼­ ¼±ÅÃµÈ È¯ÀÚÀÇ °æ¿ì ½É¾ß°¡»êÀû¿ë ÀÚµ¿ üũ if ( objFlag == "child" ) { var prcpgenrflag = opener.model.getValue ( "/root/patflag/list/prcpgenrflag" ); if (prcpgenrflag == "E"){ if ( prcpClsCd == "H2" || prcpClsCd == "H4" ) { model.setValue( strSrc + "[" + sendRow + "]/nigtprcpflag","N" ); var nigtprcptm = opener.model.getValue("/root/initsrch/nigtprcptm/trgtcd"); var nigtprcpsplit = nigtprcptm.split("|"); var nigtprcpstart = nigtprcpsplit[0]; var nigtprcpend = nigtprcpsplit[1]; var MyTime = getCurrentTime(); var realtime = MyTime.substr(0,4); if ( nigtprcpstart < realtime || realtime < nigtprcpend){ model.setValue( strSrc + "[" + sendRow + "]/nigtprcpflag","Y" ); } } } }else{ var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); if (prcpgenrflag == "E"){ if ( prcpClsCd == "H2" || prcpClsCd == "H4" ) { model.setValue( strSrc + "[" + sendRow + "]/nigtprcpflag","N" ); var nigtprcptm = model.getValue("/root/initsrch/nigtprcptm/trgtcd"); var nigtprcpsplit = nigtprcptm.split("|"); var nigtprcpstart = nigtprcpsplit[0]; var nigtprcpend = nigtprcpsplit[1]; var MyTime = getCurrentTime(); var realtime = MyTime.substr(0,4); if ( nigtprcpstart < realtime || realtime < nigtprcpend){ model.setValue( strSrc + "[" + sendRow + "]/nigtprcpflag","Y" ); } } } } //-- CP, Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì´Â Ŭ¶óÀÌ¾ðÆ®¿¡¼­ ǰÀý¾àüũ¸¦ ÇÏÁö ¾Ê´Â´Ù --// if( prcpInptFlag != "05" && prcpInptFlag != "06" && prcpInptFlag != "17" ){ if ( prcpClsCd == "A2" || prcpClsCd == "A4" || prcpClsCd == "A6" ) { //Ç×»ýÁ¦Ã¼Å© var returnVal = fGetHardCDList("Y", 233, 3); // 2010. 10. 26. °æºÏ´ë´Â CDSS ÃßõÇ×»ýÁ¦¸¦ »ç¿ëÇÏÁö ¾ÊÀ½. µû¶ó¼­ »ç¿ë¿©ºÎ¸¦ ó¹æ ÇϵåÄÚµå Å×À̺í·Î ¼³Á¤ÇÒ ¼ö ÀÖµµ·Ï ÇÔ. if (returnVal =="Y") { if ( usge == "prcp" && prcpgenrflag != "O" && prcpClsCd == "A6") { if ( getArrayData ( drugmastspec + "^", 0, 23, "^", "|" ) == "P" && getArrayData ( drugmastspec + "^", 0, 16, "^", "|" ) == "N" ) { if ( objFlag == "child" ) { if (opener.javascript.fAntiMicChk ( sendRow, "child", strSrc, prcpInptFlag ) == 0){ return 0; } } else { if (fAntiMicChk ( sendRow, "1", strSrc, prcpInptFlag ) == 0 ){ return 0; } } } } //Á¦ÇÑÇ×»ýÁ¦Ã¼Å© if ( usge == "prcp" && prcpgenrflag != "O" ) { if ( getArrayData ( drugmastspec + "^", 0, 16, "^", "|" ) == "Y" ) { if ( objFlag == "child" ) { if (opener.javascript.fAntiMicChk ( sendRow, "child", strSrc, prcpInptFlag ) == 0){ return 0; } } else { if (fAntiMicChk ( sendRow, "1", strSrc, prcpInptFlag ) == 0 ){ return 0; } } } } } //BY ¹®¼¼Èñ 20080930 END //ǰÀý¾à üũ if ( getArrayData (drugmastspec, 0, 10, "^", "|" ) == "Y" ) { if ( objFlag == "child" ) { opener.javascript.fAltDrug ( sendRow, "child", strSrc, prcpInptFlag ); } else { fAltDrug ( sendRow, "1", strSrc, prcpInptFlag ); } return 0; } //20090528 ¸¶Á¤¹Î Ãß°¡. 6¼¼¹Ì¸¸ °æ±¸¾à ÀÚµ¿ powdflagÀüȯ ¶§¹®¿¡ ó¹æº¹»ç½Ã powdflagüũ·ÎÁ÷ Ãß°¡. ´Ü Àüó¹æº¹»ç´ÂÁ¦¿Ü. var vAge = 99; if ( objFlag == "child" ) { vAge = parseInt ( opener.model.getValue ( "/root/paminfo/list/age" )); } else { vAge = parseInt ( model.getValue ( "/root/paminfo/list/age" )); } if ( vAge < 6 && prcpClsCd == "A2" && prcpInptFlag != "01" ) { if ( getArrayData ( drugmastspec + "^", 0, 19, "^", "|" ) == "2" ) { //»êÁ¦ºÒ°¡ if ( objFlag == "child" ) { opener.javascript.fAltDrug ( sendRow, "child", strSrc, prcpInptFlag, "4" ); if ( opener.javascript.getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { opener.javascript.clearParameter ( "SPMMB10100_chkyn" ); return 0; //´ëü¾àÀ» ¼±ÅÃÇß´Ù¸é º¹»ç½ÃŰÁö ¾Ê´Â´Ù. } } else { fAltDrug ( sendRow, "4", strSrc, prcpInptFlag ); if ( getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { clearParameter ( "SPMMB10100_chkyn" ); return 0; //´ëü¾àÀ» ¼±ÅÃÇß´Ù¸é º¹»ç½ÃŰÁö ¾Ê´Â´Ù. } } //20090602 ¹è¼º¹Ì¼±»ý´Ô ¿äûÀ¸·Î »êÁ¦ºÒ°¡ Ãë¼ÒÇØµµ º¹»çµÇ°Ô ¼öÁ¤ } else if ( getArrayData ( drugmastspec + "^", 0, 19, "^", "|" ) == "1" ) { //»êÁ¦ÁÖÀÇ if ( objFlag == "child" ) { opener.javascript.fAltDrug ( sendRow, "child", strSrc, prcpInptFlag, "5" ); if ( opener.javascript.getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { opener.javascript.clearParameter ( "SPMMB10100_chkyn" ); return 0; //´ëü¾àÀ» ¼±ÅÃÇß´Ù¸é º¹»ç½ÃŰÁö ¾Ê´Â´Ù. } } else { fAltDrug ( sendRow, "5", strSrc, prcpInptFlag ); if ( getParameter ( "SPMMB10100_chkyn" ) == "Y" ) { clearParameter ( "SPMMB10100_chkyn" ); return 0; //´ëü¾àÀ» ¼±ÅÃÇß´Ù¸é º¹»ç½ÃŰÁö ¾Ê´Â´Ù. } } } } } //´ëüó¹æÃ¼Å© var altcdinfo = model.getValue( strSrc + "[" + sendRow + "]/tempcol16" ); var prcpinptflag = model.getValue( strSrc + "[" + sendRow + "]/prcpinptflag" ); if ( altcdinfo.substring( 0, 1 ) != "X" && altcdinfo.substring( 0, 1 ) != "A" ) { if(altcdinfo.substring( 0, 1 ) == "D") { // ¼ö°¡ Á¾·á ó¹æ º¹»ç ºÒ°¡ ó¸® 2013.04.18 ¾ö¿µ¸¸ if(prcpInptFlag == "02") { messageBox ( "[" + prcpnm + "]: ¼ö°¡ ¶Ç´Â °Ë»ç½Ç »ç¿ëÁ¾·á µÇ¾î ó¹æÀ» º¹»ç ÇÒ ¼ö ¾ø½À´Ï´Ù.\n\n»ó´Ü¸Þ´º ±âº»Á¤º¸°ü¸®->¾à¼ÓSet ¸Þ´º¿¡¼­ ¾à¼Óó¹æÀ» À籸¼º ÇϽñ⠹ٶø´Ï´Ù.", "E999" ); } else { messageBox ( "[" + prcpnm + "]: ¼ö°¡ ¶Ç´Â °Ë»ç½Ç »ç¿ëÁ¾·á µÇ¾î ó¹æÀ» º¹»ç", "E001" ); } return 0; } if (prcpinptflag !="35") { // ÀÚ°¡º¸À¯Ã³¹æÀº º¹»ç °¡´É 20100504 by LYJ messageBox ( "[" + prcpnm + "]: ¼ö°¡ ¶Ç´Â °Ë»ç½Ç »ç¿ëÁ¾·á µÇ¾î ó¹æÀ» º¹»ç", "E001" ); return 0; } } if (altcdinfo.substring( 0, 1 ) == "X" ) { if ( objFlag == "child" ) { opener.javascript.fAltPrcpCd ( sendRow, "child", strSrc, prcpInptFlag ); } else { fAltPrcpCd ( sendRow, "1", strSrc, prcpInptFlag ); } return 0; } } //-- CP, Ç×¾ÏÇÁ·ÎÅäÄÝ Ã³¹æÀÇ Ç°Àý¾à üũ Á¦¿Ü ³¡ --// if (!fPrmsSaveCheck ( usge, prcpKindCd, prcpnm )) { return 0; } if ( prcpInptFlag == "01" ) { //Àüȸó¹æ //¹Ýȯ¿äûµÈ ó¹æ, D/CµÈ ó¹æ ¸ðµÎ ó¹æ º¹»ç ºÒ°¡, CHC, 2009-08-03 //if ( model.getValue ( strSrc + "[" + sendRow + "]/prcphistcd" ) == "E" ) { if ( model.getValue ( strSrc + "[" + sendRow + "]/prcphistcd" ) == "E" || model.getValue ( strSrc + "[" + sendRow + "]/prcphistcd" ) == "C") { messageBox ( "¹Ý³³Ã³¹æÀº ó¹æº¹»ç", "E001" ); return 0; } //Á¾¼Óó¹æ ÀÚó¹æ º¹»ç ºÒ°¡ var inclprcpno = model.getValue ( strSrc + "[" + sendRow + "]/inclprcpno" ); if ( !isNull(inclprcpno) && inclprcpno != "-" ) { if ( eval(inclprcpno) > 0 ) { if ( model.getValue ( strSrc + "[" + sendRow + "]/grupsnglflag" ) != "M" ) { return 0; } } } //20080731: ¸¶Á¤¹Î ¼öÁ¤ hsct ÀÚó¹æ º¹»ç ºÒ°¡ var hsctlnkno = model.getValue ( strSrc + "[" + sendRow + "]/hsctlnkno" ); if ( !isNull(hsctlnkno) && hsctlnkno != "-" ) { if ( eval(hsctlnkno) > 0 ) { if ( model.getValue ( strSrc + "[" + sendRow + "]/prcpsetcd" ) != "-" ) { return 0; } } } } if ( model.getValue( strSrc + "[" + sendRow + "]/grupsnglflag" ) == "M" ) { //±×·ìÄÚµå MÀ» ã¾Æ³½´Ù. ó¹æ°Ë»öÀ϶§¸¸ Ç®¸°´Ù. var grupCond1 = model.getValue( strSrc + "[" + sendRow + "]/prcpcd" ); var grupCond3 = ""; var grupCond4 = ""; var inclprcpno = ""; if ( objFlag == "child" ) { grupCond3 = opener.model.getValue ( "/root/init/prcpdd" ); grupCond4 = opener.model.getValue ( "/root/paminfo/list/insukind"); if ( usge == "prcp" ) { //ó¹æÈ­¸é¿¡¸¸ Á¾¼Óó¹æÀÌ Àû¿ëµÈ´Ù. inclprcpno = eval(opener.model.getValue ( "/root/init/inclprcpno")) + 1; //Á¾¼Ó󹿹øÈ£¸¦ ¹Þ¾Æ¿Â´Ù. } } else { grupCond3 = model.getValue ( "/root/init/prcpdd" ); grupCond4 = model.getValue ( "/root/paminfo/list/insukind"); if ( usge == "prcp" ) {//ó¹æÈ­¸é¿¡¸¸ Á¾¼Óó¹æÀÌ Àû¿ëµÈ´Ù. inclprcpno = eval(model.getValue ( "/root/init/inclprcpno")) + 1; //Á¾¼Ó󹿹øÈ£¸¦ ¹Þ¾Æ¿Â´Ù. } } prcpGroupSrch ( grupCond1, grupCond3, grupCond4 ); if ( grupSrc == null ) grupSrc = "/root/prcpgroup/prcplist"; var srcNodeList = model.instances(0).selectNodes( grupSrc ); if ( srcNodeList.length > 0 ) { if ( objFlag == "child" ) { var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]"); if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "N", inclprcpno )) { return 0; } } else { var destNode = strDest; model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]"); if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "N", inclprcpno )) { return 0; } } srchRow ++; if ( usge == "prcp" ) { for (var i=1; i<=srcNodeList.length; i++) { if ( objFlag == "child" ) { var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]"); if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "N", inclprcpno )) { return 0; } } else { var destNode = strDest; model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]"); if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "N", inclprcpno )) { return 0; } } if ( objFlag == "child" ) { srchRow = opener.javascript.addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } else { srchRow = addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } srchRow ++; } } } } else if ( model.getValue( strSrc + "[" + sendRow + "]/grupsnglflag" ) == "J" ) { //±×·ìÁö½Ãó¹æ JÀ» ã¾Æ³½´Ù. //Á¶È¸Á¶°Ç var direcCond1 = model.getValue( strSrc + "[" + sendRow + "]/srchcondcnts" ); var direcCond5 = model.getValue( strSrc + "[" + sendRow + "]/prcpcd" ); var direcCond3 = ""; var direcCond4 = ""; if ( prcpClsCd == "04" ) { hsctflag = "Y"; } if ( objFlag == "child" ) { direcCond3 = opener.model.getValue ( "/root/init/prcpdd" ); direcCond4 = opener.model.getValue ( "/root/paminfo/list/insukind"); } else { direcCond3 = model.getValue ( "/root/init/prcpdd" ); direcCond4 = model.getValue ( "/root/paminfo/list/insukind"); } prcpDirecSrch ( direcCond1, direcCond3, direcCond4, direcCond5 ); if ( direcSrc == null ) direcSrc = "/root/prcpdirec/prcplist"; var srcNodeList = model.instances(0).selectNodes( direcSrc ); if ( srcNodeList.length > 0 ){ //±×·ìÁö½Ãó¹æ J´Â Á¾¼ÓÇÏ´Â ¼ö°¡ Äڵ尡 ÀÖÀ» ¶§¸¸ Ãß°¡. //HSCT ¸ðÄÚµå´Â HSCTTEMPFLAG °¡ NÀÌ´Ù. if ( objFlag == "child" ) { var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]"); //Á¾¼Ó󹿹øÈ£ Setting ( hsctlnkno ) var hsctlnkno = eval ( opener.model.getValue ( "/root/init/hsctlnkno" )) + 1; opener.model.setValue ( "/root/init/hsctlnkno", hsctlnkno ); if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "M" )) { return 0; } } else { var destNode = strDest; var hsctlnkno = eval ( model.getValue ( "/root/init/hsctlnkno" )) + 1; model.setValue ( "/root/init/hsctlnkno", hsctlnkno ); model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]"); if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "M" )) { return 0; } } //CP ¾à¼Ó¼Â »ý¼º ½Ã¿¡´Â ÀÚÄڵ尡 Ç®¸®¸é ¾ÈµÈ´Ù. CP¹èÄ¡¸¦ ÅëÇØ ½Çó¹æ ÀúÀå½Ã Ç®¸°´Ù! (2008.01.22) if( opener.model.getValue("/root/cp") == "S" || model.getValue("/root/cp") == "S" ){ return; } if ( objFlag == "child" ) { srchRow = opener.javascript.addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } else { srchRow = addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } srchRow ++; for (var k=1; k <= srcNodeList.length; k++) { if ( objFlag == "child" ) { var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î model.duplicate( destNode, direcSrc + "[" + k + "]", "*[" + srchRow + "]"); if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, hsctflag )) { return 0; } } else { var destNode = strDest; model.duplicate( destNode, direcSrc + "[" + k + "]", "*[" + srchRow + "]"); if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, hsctflag )) { return 0; } } if ( objFlag == "child" ) { srchRow = opener.javascript.addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } else { srchRow = addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } srchRow ++; } } } else if ( (prcpClsCd == "B2" || prcpClsCd == "B4" || prcpClsCd == "B6") && (getArrayData (drugmastspec, 0, 2, "^", "|" ) == "0" || getArrayData (drugmastspec, 0, 2, "^", "|" ) == "-")){ //°Ë»ç´ëºÐ·ùÀ¯Çü(testlrgkind) ±×·ì: 0, 1 //-ÀÏ ¶§´Â °Ëü¿Í »ó°ü¾ø´Â ±×·ìÄÚµå var grupCond1 = model.getValue( strSrc + "[" + sendRow + "]/prcpcd" ); var grupCond3 = ""; var grupCond4 = ""; var popflag = "group" if ( objFlag == "child" ) { popflag = "child"; grupCond3 = opener.model.getValue ( "/root/init/prcpdd" ); grupCond4 = opener.model.getValue ( "/root/paminfo/list/insukind"); } else { grupCond3 = model.getValue ( "/root/init/prcpdd" ); grupCond4 = model.getValue ( "/root/paminfo/list/insukind"); } //±¸¼ö°¡ÄÚµåÀÏ °æ¿ì if ( oldprcpflag == "Y" ) { popflag = "oldprcp"; } var drugmthdspccd = model.getValue ( strSrc + "[" + sendRow + "]/drugmthdspccd" ); var spccd = ""; var spcnm = ""; fGetSpc ( sendRow, popflag, objFlag ) if ( drugmthdspccd == "998" ) { if ( getParameter ("SPMMO03500_rtn_useyn") == "Y" ) { spccd = getParameter ( "SPMMO03500_rtn_spccd" ); spcnm = getParameter ( "SPMMO03500_rtn_spcscrnnm" ); } clearParameter ( "SPMMO03500_rtn_useyn" ); clearParameter ( "SPMMO03500_rtn_spccd" ); clearParameter ( "SPMMO03500_rtn_spcscrnnm" ); } else if ( drugmthdspccd == "999" ) { if ( getParameter ("SPMMO03400_rtn_useyn") == "Y" ) { spccd = getParameter ( "SPMMO03400_rtn_spccd" ); spcnm = getParameter ("SPMMO03400_rtn_spcscrnnm" ); } clearParameter ( "SPMMO03400_rtn_useyn" ); clearParameter ( "SPMMO03400_rtn_spccd" ); clearParameter ( "SPMMO03400_rtn_spcscrnnm" ); } else { //ÆË¾÷ÀÌ ¶ßÁö ¾ÊÀ» ¶§´Â º»Ã¼ÀÇ °ËüÄÚµå·Î °Ë»öÇÑ´Ù. spccd = drugmthdspccd; spcnm = model.getValue ( strSrc + "[" + sendRow + "]/drugmthdspccdnm" ); } prcpGroupSrch ( grupCond1, grupCond3, grupCond4, spccd, getArrayData (drugmastspec, 0, 2, "^", "|" ), "getLisPrcpGroupInfo" ); if ( objFlag == "child" ) { var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î } else { var destNode = strDest; } if ( grupSrc == null ) grupSrc = "/root/prcpgroup/prcplist"; var srcNodeList = model.instances(0).selectNodes( grupSrc ); for (var i=1; i<=srcNodeList.length; i++) { if ( objFlag == "child" ) { var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]"); if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag )) { return 0; } if (!isNull(spccd)) { if ( getArrayData (drugmastspec, 0, 2, "^", "|" ) != "-" ) { opener.model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccd", spccd ); opener.model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccdnm", spcnm ); } } } else { var destNode = strDest; model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]"); if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag )) { return 0; } if (!isNull(spccd)) { if ( getArrayData (drugmastspec, 0, 2, "^", "|" ) != "-" ) { model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccd", spccd ); model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccdnm", spcnm ); } } } srchRow ++; } } else { //±×·ìÄÚµå M, J °¡ ¾Æ´Ò °æ¿ì if ( objFlag == "child" ) { var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]"); //Àüó¹æ ¶§¹®¿¡ duplicate => addPrcpSetValue ÇÏ´Â °ÍÀ¸·Î ¼öÁ¤ //¸ÕÀú set Çϸé Àüó¹æ È­¸é ³»¿ëÀÌ ¼öÁ¤µÇ°í ±×·ÎÀÎÇØ ó¹æÅ° ÃʱâÈ­·Î ÀÎÇØ D/C ½Ã ¿¡·¯ if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag )) { return 0; } } else { var destNode = strDest; model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]"); //Àüó¹æ ¶§¹®¿¡ duplicate => addPrcpSetValue ÇÏ´Â °ÍÀ¸·Î ¼öÁ¤ (main¿¡¼­´Â ÇÊ¿ä¾øÁö¸¸ ±¸Á¶¸¦ ¸ÂÃß·Á °°ÀÌ °íħ) //¸ÕÀú set Çϸé Àüó¹æ È­¸é ³»¿ëÀÌ ¼öÁ¤µÇ°í ±×·ÎÀÎÇØ ó¹æÅ° ÃʱâÈ­·Î ÀÎÇØ D/C ½Ã ¿¡·¯ if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag )) { return 0; } } if ( objFlag == "child" ) { srchRow = opener.javascript.addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } else { srchRow = addPrcpPop (srchRow, usge, prcpClsCd, srchRow ); } srchRow ++; } //model.addLog(" ***************** End Of addPrcpDetl()"); return srchRow; //°Ë»ö row °ªÀ» ³Ñ°ÜÁØ´Ù. } /** * @desc : ó¹æmain¿¡ ³Ñ±ä ÈÄ¿¡ ±âº»°ªÀ» settingÇÑ´Ù. * @param : objFlag => child or ... : strSrc => settingÇÒ source node : sendRow => settingÇÒ row : prcpInptFlag => ó¹æÀԷ±¸ºÐ 00 ó¹æ°Ë»ö, 01 Àüȸó¹æ, 02 ¾à¼Óó¹æ, 03 ¾à¼Ó¼ö¼ú.. M0034 : hsctflag => hsct ÀÎÁö Ç¥½Ã : inclprcpcd => Á¾¼Óó¹æÄÚµå * @return : true, false * @authur : ¸¶Á¤¹Î 2007. 4. 12 * @--------------------------------------------------- */ function addPrcpSetValue ( objFlag, strSrc , sendRow, prcpInptFlag, hsctflag, inclprcpno ) { if ( objFlag == "child") { opener.javascript.reqSetMonitoringLog("addPrcpSetValue", "WEB", getScreenID(), objFlag, prcpInptFlag); // 2017.12.20 »ç¿ë¿©ºÎ¸¦ üũ Çϱâ À§ÇØ Ãß°¡ ¾ö¿µ¸¸ } else { reqSetMonitoringLog("addPrcpSetValue", "WEB", getScreenID(), objFlag, prcpInptFlag); // 2017.12.20 »ç¿ë¿©ºÎ¸¦ üũ Çϱâ À§ÇØ Ãß°¡ ¾ö¿µ¸¸ } //model.addLog(" ************* Start Of addPrcpSetValue()"); var prcpdd = ""; //ó¹æÀÏ var prcpkindcd = ""; //ó¹æÁ¾·ùº¯¼ö var pamInfoNode = "/root/paminfo/list"; var pid = ""; //ȯÀÚ¹øÈ£ var indd = ""; //Áø·áÀÏÀÚ var cretno = ""; //»ý¼º¹øÈ£ var orddeptcd = ""; //´ã´çºÎ¼­ var orddrid = ""; //´ã´ç±³¼ö var prcpgenrflag = ""; //¿Ü·¡ÀÔ¿ø±¸ºÐ var prcpclscd = model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ); var orddeptcd = ""; var org_prcpInptFlag = prcpInptFlag; if ( isNull(prcpInptFlag)){ prcpInptFlag = model.getValue ( strSrc + "[" + sendRow + "]/prcpinptflag" ); } if( (org_prcpInptFlag != "05" || (org_prcpInptFlag == "05" && model.getValue(strSrc + "[" + sendRow + "]/prcpinptflag") == "00")) && model.getValue (strSrc + "[" + sendRow + "]/prcpinptflag") != "35"){ //20100426 ÀÚ°¡º¸À¯¾àÀÏ ¶§ prcpinptflag 35 ·Î ÁöÁ¤ÇÑ´Ù LYJ model.setValue ( strSrc + "[" + sendRow + "]/prcpinptflag", prcpInptFlag ); //ó¹æÀԷ±¸ºÐ prcpInptFlag = org_prcpInptFlag; } model.setValue ( strSrc + "[" + sendRow + "]/prcphistcd", "O" ); //ó¹æÀÌ·ÂÄÚµå:O model.setValue ( strSrc + "[" + sendRow + "]/prcpsignflag", "2" ); //ó¹æÀ̷±¸ºÐ:2 model.setValue ( strSrc + "[" + sendRow + "]/prcprefseq", "0" ); //󹿼ø¼­(Àüó¹æ¿¡ ³Ñ¾î¿Ã¶§µµ Àֱ⶧¹®¿¡ 0À¸·Î Ŭ¸®¾î) model.setValue ( strSrc + "[" + sendRow + "]/etcprcpflag", "-" ); //µðÆúÆ®¼¼ÆÃ. //-- CP, Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì Ãß°¡µÇ´Â saveflaginfo °ª ¼ÂÆÃ --// if( prcpInptFlag == "05" || prcpInptFlag == "06" ){ if( model.getValue(strSrc + "[" + sendRow + "]/prcpcd") != "000000000033" ){ //󹿏íÀÇ ±¸ºÐÀÌ 2°³°¡ Áߺ¹µÇ¾î ÀúÀåµÇ´Â ¹®Á¦ -> ¿øÃ³¹æ¸íÀ» ÀúÀå, °øÅë Áö½Ãó¹æÀÇ ¿øÃ³¹æ¸íÀº "Àü´Þ»çÇ×" À̹ǷÎ, °øÅë Áö½Ã󹿏¸ Á¦¿Ü model.setValue ( strSrc + "[" + sendRow + "]/prcpnm", model.getValue(strSrc + "[" + sendRow + "]/orgprcpnm") ); //makePrcpNm() ¶§¹®¿¡ prcpnm->orgprcpnm } if( prcpInptFlag == "06" ){ model.makeValue ( "/root/save/saveflaginfo/cpgappno", appNo_SMMMO00110 ); //CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ no model.makeValue ( "/root/save/saveflaginfo/prtlprcpstatus", prtlprcpstatus_SMMMO00110 ); //CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ ÀúÀå status model.makeValue ( "/root/save/saveflaginfo/prtlflag", "10" ); //ÇÁ·ÎÅäÄݱ¸ºÐ } }else{ model.setValue ( strSrc + "[" + sendRow + "]/status", "I" ); } //-- ¼ÂÆÃ ³¡ --// var drugmastspec = model.getValue ( strSrc + "[" + sendRow + "]/drugmastspec") + "^"; var usge = model.getValue ( "/root/usge" ); var spcldrug = getArrayData ( drugmastspec + "^", 0, 23, "^", "|" ); //°¡Á¤°£È£À϶§ ½ÃÀÛÀÏ,Á¾·áÀÏ ¹Ù²ãÁØ´Ù. if (usge == "home") { model.setValue ( strSrc + "[" + sendRow + "]/tempcol6",model.getValue ( "/root/init/prcpfromdd" )); //½ÃÀÛÀÏÀÚ model.setValue ( strSrc + "[" + sendRow + "]/tempcol7",model.getValue ( "/root/init/prcptodd" )); //Á¾·áÀÏÀÚ //20080825 ¸¶Á¤¹Î ¼öÁ¤ °¡Á¤°£È£Ã³¹æ ÁÖ»çÀÏ °æ¿ì ÀÚµ¿À¸·Î home üũ. ´Ü ¸¶¾àÀÌ ¾Æ´Ò°æ¿ì. TPNÀÏ °æ¿ì Ãß°¡ 20081013 by Moonsh if ( prcpclscd == "A6" && spcldrug != "M" && getArrayData (drugmastspec , 0, 14, "^", "|" ) == "Y" ) { model.setValue ( strSrc + "[" + sendRow + "]/selfprcpflag","Y"); //Á¾·áÀÏÀÚ } } model.setValue ( strSrc + "[" + sendRow + "]/prcpauthflag", model.getValue ( "/root/init/prcpauthflag" )); //󹿱ÇÇѱ¸ºÐ //¼ö¼ú¿¹¾à¹øÈ£ setting if( !isNull (model.getValue ( "/root/operation/list/oprsrvno"))){ model.setValue ( strSrc + "[" + sendRow + "]/oprsrvno", model.getValue ( "/root/operation/list/oprsrvno")); //by sonjy 20091120 ½É¾ß°¡»ê check ¸¶Ãë·áó¹æ Ãß°¡ if ( prcpclscd == "H2" || model.getValue ( strSrc + "[" + sendRow + "]/tempcol2" ) == "13|01|00" ) { //¼ö¼úó¹æÀΰæ¿ì //ÀÀ±ÞÀ¸·Î ¼ö¼ú¿¹¾àÁ¤º¸°¡ ÀÖ´Ù¸é erprcpflag¸¦ Y·Î setting ÇÑ´Ù. var opflagcd = model.getValue("/root/operation/list/opflagcd"); // opflagcd 1:Á¤±Ô, 2:ÀÀ±Þ, 3:Ãß°¡ if(opflagcd == "2"){ //model.setValue("/root/main/prcp/prcplist/erprcpflag", "Y"); model.setValue ( strSrc + "[" + sendRow + "]/erprcpflag", "Y"); } //¼ö¼ú½ÃÀ۽ð£ÀÌ ¿ÀÈÄ 5½Ã ÀÌÈÄ¿¡´Â ¾ß°£À¸·Î üũÇÑ´Ù. var opfromtmcd = model.getValue("/root/operation/list/opfromtmcd"); //opfromtmcd ¼ö¼ú½ÃÀ۽ð£ //if(eval(opfromtmcd) > 170000 ) { //¾ß°£ ½Ã°£ ±âÁØÀ» ¹°¾îº¼ °Í //¼ö¼ú¹× ¸¶Ãë·áó¹æ½Ã ½É¾ß±âÁØ 08½ÃÀÌÀü, 18½Ã ÀÌÈÄ by sonjy 20081211 if(eval(opfromtmcd) >= 180000 || eval(opfromtmcd) < 80000 ) { model.setValue ( strSrc + "[" + sendRow + "]/nigtprcpflag", "Y"); } //¼ö¼ú¾×ÆÃÀÏÀÚ = È®Á¤¼ö¼úÀÏÀÚ model.setValue ( strSrc + "[" + sendRow + "]/tempcol22", model.getValue ( "/root/operation/list/opcnfmdd") ); } } else { // CP ¿¡¼­´Â ¼öµ¿À¸·Î ¼ö¼ú¿¹¾à¹øÈ£¸¦ mapping ÇÑ´Ù. if( model.getValue ( "/root/cp" ) != "Y" ){ model.setValue ( strSrc + "[" + sendRow + "]/oprsrvno", "0" ); }else{ if( isNull (model.getValue (strSrc + "[" + sendRow + "]/oprsrvno" ))) model.setValue ( strSrc + "[" + sendRow + "]/oprsrvno", "0" ); } } var srcNodeList = model.instances(0).selectNodes( "/root/paminfo" ); if ( srcNodeList.length == 0 ){ messageBox ( "ȯÀÚÁ¤º¸°¡", "E014" ); return false; } prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); pid = model.getValue ( pamInfoNode + "/pid" ); orddeptcd = model.getValue ( pamInfoNode + "orddeptcd" ); //by sonjy 2008-08-25 °ÇÁøÀÏ °æ¿ì checkÃß°¡. if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { indd = model.getValue ( pamInfoNode + "/orddd" ); orddrid = model.getValue ( pamInfoNode + "/orddrid" ); } else { indd = model.getValue ( pamInfoNode + "/indd" ); orddrid = model.getValue ( pamInfoNode + "/medispclid" ); } cretno = model.getValue ( pamInfoNode + "/cretno" ); orddeptcd = model.getValue ( pamInfoNode + "/orddeptcd" ); //2011.11.07 ¾ö¿µ¸¸ ¼±ÅÃÁø·á¿©ºÎ ¹× ¼±ÅÃÁø·áÀÇ»ç ¼ÂÆÃ if (prcpclscd != "D2" || usge != "prcp") { // ó¹æ½Ã¿¡ º´¸®Ã³¹æÀº ÀÇ·ÚÁö ÆË¾÷ÈÄ °ËüÄڵ弳Á¤µÇ¸é ¼±ÅÃÀÇ»ç ¼³Á¤ ÇÔ.(ÀÇ·ÚÁö ÀÛ¼ºÈÄ ÆË¾÷ µÇµµ·Ï) 2011.11.25 ¾ö¿µ¸¸. fSetPrcpSpecValue(strSrc, sendRow, prcpInptFlag); } //-- CP,Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì, ó¹æÀϰú ó¹æÁ¾·ù°¡ ÀÏ·üÀûÀ¸·Î ÀԷµÇÁö ¾Ê´Â´Ù --// if( prcpInptFlag != "05" && prcpInptFlag != "06" ){ prcpdd = model.getValue ( "/root/init/prcpdd" ); //ó¹æÀÏ prcpkindcd = model.getValue ("/root/init/prcpkindcd"); //ó¹æÁ¾·ù(Á¤±Ô,Ãß°¡...) //¿Ü·¡ÀÌ°í ¾à¼Ó set/Àüó¹æ copy½Ã ÀÔ¿øÀü °Ë»çÀÏ °æ¿ì prcpkindcd¸¦ 20À¸·Î ÃʱâÈ­ÇÏÁö ¾Ê´Â´Ù. //by sonjy ±è¹Î¼± ¼±»ý´Ô ¿äû»çÇ× 20080925 if( prcpgenrflag == "O" && (model.getValue ( strSrc + "[" + sendRow + "]/prcpkindcd" ) == "90" || model.getValue ( strSrc + "[" + sendRow + "]/prcpkindcd") == "95" ) ){ prcpkindcd = model.getValue ( strSrc + "[" + sendRow + "]/prcpkindcd" ) ; } }else{ //JJE- prcpdd = model.getValue ( strSrc + "[" + sendRow + "]/prcpdd" ); prcpkindcd = model.getValue ( strSrc + "[" + sendRow + "]/prcpkindcd" ); if(isNull(prcpdd)){ prcpdd = model.getValue ( "/root/init/prcpdd" ); } //JJE root/init/prcpdd ¸¦ ÇØ´ç ¹Ì·¡ÀÏÀÚ·Î º¯°æ... (2008.09.11) if( prcpdd != model.getValue("/root/init/prcpdd") && prcpdd > model.getValue("/root/init/prcpdd") ){ model.setValue("/root/init/prcpdd", prcpdd); cmb_prcpdd.refresh(); } var prcpsetcd = model.getValue ( strSrc + "[" + sendRow + "]/prcpsetcd" ); if(prcpsetcd != "-"){ //Ç®¸° ÀÚÄڵ忡 ó¹æÁ¾·ù ¹× ó¹æÀԷ±¸ºÐÀ» ¸ðÄÚµå¿Í µ¿ÀÏÇÏ°Ô ³Ö¾îÁÜ var prcpddNode = instance1.selectSingleNode("/root/main/prcp/prcplist[prcpcd='" + prcpsetcd + "']/prcpdd"); var prcpkindcdNode = instance1.selectSingleNode("/root/main/prcp/prcplist[prcpcd='" + prcpsetcd + "']/prcpkindcd"); var etclnkspecNode = instance1.selectSingleNode("/root/main/prcp/prcplist[prcpcd='" + prcpsetcd + "']/etclnkspec"); var prcpinptflagNode = instance1.selectSingleNode("/root/main/prcp/prcplist[prcpcd='" + prcpsetcd + "']/prcpinptflag"); if( prcpddNode != null ){ prcpdd = prcpddNode.text; } if( prcpkindcdNode != null ) prcpkindcd = prcpkindcdNode.text; if( etclnkspecNode != null ){ model.makeValue ( strSrc + "[" + sendRow + "]/etclnkspec", etclnkspecNode.text ); } if( prcpinptflagNode != null ){ model.makeValue ( strSrc + "[" + sendRow + "]/prcpinptflag", prcpinptflagNode.text ); } } model.makeValue ( strSrc + "[" + sendRow + "]/prcphopedd", prcpdd ); //-JJE } //¸¶Ãë±â·ÏÈ­¸é¿¡¼­ ó¹æÈ­¸éÀ» ¶ç¿ì¸é //¸¶Ãëó¹æÀÏ °æ¿ì ÇʼöÀԷ±¸ºÐÀÌ 1ÀÌ¸é ¼ö¼ú½Ã°£°ú, ¼ö¼ú±¸ºÐÀ» ³Ö¾îÁØ´Ù. ³Ö¾îÁö´Â ±âÁØÀº ¸¶Ãëó¹æ»ó¼¼ÆË¾÷°ú µ¿ÀÏÇÏ´Ù. if ( model.getValue ( "/root/anst/paramyn" ) == "Y" ) { model.setValue ( strSrc + "[" + sendRow + "]/prcpinptflag", "27" ); if ( prcpclscd == "I2" || prcpclscd == "I4" ){ //¸¶Ãë if ( model.getValue ( strSrc + "[" + sendRow + "]/prcpessninptflag" ) == "1" ) { // ÇʼöÀԷ±¸ºÐÀÌ 1 var earncls = model.getValue ( strSrc + "[" + sendRow + "]/tempcol2" ); if ( earncls != "04|01|00" && earncls != "05|01|00" ) { //¸¶Ã뱸ºÐ model.setValue ( strSrc + "[" + sendRow + "]/opansflagcd", model.getValue ( "/root/anst/opansflagcd" )); } model.setValue ( strSrc + "[" + sendRow + "]/ansttm", model.getValue ( "/root/anst/ansttm" ));//¸¶Ãë½Ã°£ model.setValue ( strSrc + "[" + sendRow + "]/clinccmtcnts", model.getValue ( "/root/anst/anstfromdt" ) + "|" + model.getValue ( "/root/anst/ansttodt" )); } } } else { if ( prcpclscd == "I2" || prcpclscd == "I4" ){ //¸¶Ãë model.setValue ( strSrc + "[" + sendRow + "]/clinccmtcnts", "-" ); } } model.setValue ( strSrc + "[" + sendRow + "]/prcphopedd",prcpdd); //ó¹æÈñ¸ÁÀÏÀÚ //Àüó¹æÀ̳ª ¾à¼Óó¹æ¿¡¼­ ½ÃÇàºÎ¼­°¡ ÇöÀç Á¸Àç ÇÏ´Â ºÎ¼­ÀÎÁö üũ 2012.10.29 ¾ö¿µ¸¸ if ( prcpInptFlag == "01" || prcpInptFlag == "02" ) { var bfprcpexecdeptcd = model.getValue( strSrc + "[" + sendRow + "]/prcpexecdeptcd" ); var CheckExecdeptcdNode; if ( objFlag == "child" ) { CheckExecdeptcdNode = opener.model.instance1.selectNodes( "/root/orddept/dept[deptcd='" + bfprcpexecdeptcd + "']" ); } else { CheckExecdeptcdNode = model.instance1.selectNodes( "/root/orddept/dept[deptcd='" + bfprcpexecdeptcd + "']" ); } if(CheckExecdeptcdNode == null || CheckExecdeptcdNode.length == 0) { model.setValue ( strSrc + "[" + sendRow + "]/prcpexecdeptcd", "-" ); } } //Àüó¹æ clear if ( prcpInptFlag == "01" ) { // Àüó¹æ º¹»ç½Ã ÃʱâÈ­ÇØ¾ß ÇÒ °Í ( PAMPKSpec, PrcpKindCd µîÀº ó¹æ º¹»ç½Ã ´Ù½Ã setting ÇØÁÜ ) if ( prcpclscd == "B2" ) { // Áø°Ë Àüó¹æ¿¡¼­ ÀÀ±Þ üũµÇ¾î ÀÖ´Â °ÍÀº º¹»ç ½Ã¿¡µµ ÀÀ±Þ üũµÇ¾îÁöµµ·Ï ¿äû - 20081127 by MoonSH var erprcpflag = model.getValue ( strSrc + "[" + sendRow + "]/erprcpflag" ); if ( erprcpflag == "Y") { model.setValue ( strSrc + "[" + sendRow + "]/erprcpflag", "Y" ); } else { model.setValue ( strSrc + "[" + sendRow + "]/erprcpflag", "N" ); } } else { model.setValue ( strSrc + "[" + sendRow + "]/erprcpflag", "N" ); //2008-01-28 ¾à±¹¿äû ÀÀ±ÞÀº º¹»çµÇ¸é ¾ÈµÊ } model.setValue ( strSrc + "[" + sendRow + "]/rgstdt", "" ); //rgstdt: µî·ÏÀϽà model.setValue ( strSrc + "[" + sendRow + "]/rgstridnm", "" ); //rgstridnm: µî·ÏÀÚ¸í model.setValue ( strSrc + "[" + sendRow + "]/tempprcpflag", "N" ); //tempprcpflag: ÀÓ½Ã󹿱¸ºÐ model.setValue ( strSrc + "[" + sendRow + "]/etcprcpresncd", "-" ); //etcprcpresncd: ÀÀ±ÞÀÇÇаü¸®·á »çÀ¯ (ÄÚµåÁ¤ÀǼ­ M0012 ÂüÁ¶), ¼öÇ÷¹Ý³³ ¹× Æó±â»çÀ¯ÄÚµå (ÄÚµåÁ¤ÀǼ­ M0037, M0038 ÂüÁ¶), ÀçȰó¹æ ¸¶°¨ÀÏÀÚ model.setValue ( strSrc + "[" + sendRow + "]/ordreqlnkno", "0" ); //ordreqlnkno: Áø·áÀÇ·Ú¿¬°á¹øÈ£ model.setValue ( strSrc + "[" + sendRow + "]/testreqlnkno", "0" ); //testreqlnkno: °Ë»çÀÇ·Ú¿¬°á¹øÈ£ model.setValue ( strSrc + "[" + sendRow + "]/prcplnkdd", "00000000" ); //prcplnkdd: ÀÓ½Ãó¹æ¿¡ ´ëÇÑ ¿¬°è ÀÏÀÚ model.setValue ( strSrc + "[" + sendRow + "]/prcplnkno", "0" ); //prcplnkno: ÀÓ½Ãó¹æ¿¡ ´ëÇÑ ¿¬°è ¹øÈ£ model.setValue ( strSrc + "[" + sendRow + "]/prtlno", "0" ); //prtlno: ÇÁ·ÎÅäÄÝSET¿¡ ´ëÇÑ ÄÚµå·Î ÀϷùøÈ£ ÇüÅ·Π°ü¸® model.setValue ( strSrc + "[" + sendRow + "]/contprcpspec", "-" ); //contprcpspec: ¿¬¼Ó󹿳»¿ª model.setValue ( strSrc + "[" + sendRow + "]/etclnkspec", "-" ); //etclnkspec: Ç×¾ÏÇÁ·ÎÅäÄݹøÈ£|CP¹øÈ£ model.setValue ( strSrc + "[" + sendRow + "]/tempcol6", "" ); //Àüó¹æ È­¸é display clear model.setValue ( strSrc + "[" + sendRow + "]/tempcol7", "" ); //Àüó¹æ È­¸é display clear var antibiotics = getArrayData ( model.getValue ( strSrc + "[" + sendRow + "]/tempcol8" ) + "^", 0, 0, "^", "|" ); if ( antibiotics != "antibiotics" ){ //20081020: ¸¶Á¤¹Î¼öÁ¤. Àüó¹æ¿¡ Ç×»ýÁ¦ °ªÀÌ setting µÇ¾î ÀÖ´Ù¸é Ŭ¸®¾î ½ÃŰÁö ¾Ê´Â´Ù. model.setValue ( strSrc + "[" + sendRow + "]/tempcol8", "" ); //Àüó¹æ È­¸é display clear } model.setValue ( strSrc + "[" + sendRow + "]/tempcol9", "" ); //Àüó¹æ È­¸é display clear model.setValue ( strSrc + "[" + sendRow + "]/tempcol12", "" ); //Àüó¹æ È­¸é display clear model.setValue ( strSrc + "[" + sendRow + "]/tempcol13", "" ); //Àüó¹æ È­¸é display clear model.setValue ( strSrc + "[" + sendRow + "]/tempcol14", "" ); //Àüó¹æ È­¸é display clear model.setValue ( strSrc + "[" + sendRow + "]/tempcol15", "" ); //Àüó¹æ È­¸é display clear model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc1", "" ); //°ÇÁø SETó¹æ model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc3", "" ); //OCRÃâ·ÂÁ¤º¸ model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc4", "" ); //±Í°¡À¯Ä¡¿ë¹°Ç°¿©ºÎ model.setValue ( strSrc + "[" + sendRow + "]/drprcpetc5", "" ); //multi-day no model.setValue ( strSrc + "[" + sendRow + "]/druglnkno", "0" ); model.setValue ( strSrc + "[" + sendRow + "]/drgacptflag", "-" ); // DRGÀÎÁ¤ Àüó¹æ º¹»ç½Ã clear if ( prcpclscd == "B2" || prcpclscd == "B6") { var contyn = getArrayData ( drugmastspec, 0, 5, "^", "|" ); if ( contyn == "Y" ) { var conttestintvlflag = model.getValue ( strSrc + "[" + sendRow + "]/diagtestconttestintvlflag" ); if ( conttestintvlflag == "N" ) { model.setValue ( strSrc + "[" + sendRow + "]/diagtestconttestcdspec", "-" ); model.setValue ( strSrc + "[" + sendRow + "]/drugrateqty", "-" ); model.setValue ( strSrc + "[" + sendRow + "]/diagtestconttestorgtims", "1" ); } else { var cdnm = model.getValue ( "/root/init/conttestintvlflag/M0545[cdid=" + conttestintvlflag + "]/cdnm" ); var diagtestconttestbasetm = model.getValue ( strSrc + "[" + sendRow + "]/diagtestconttestbasetm" ); model.setValue ( strSrc + "[" + sendRow + "]/diagtestconttestcdspec", diagtestconttestbasetm + cdnm ); model.setValue ( strSrc + "[" + sendRow + "]/drugrateqty", diagtestconttestbasetm ); model.setValue ( strSrc + "[" + sendRow + "]/diagtestconttestorgtims", "1" ); } } } } //-- CP,Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì etclnkspec Ä÷³ °ª ¼ÂÆÃ --// else if( prcpInptFlag == "05" ){ //Hsct ó¹æÀÏ °æ¿ì, Á¶È¸ÇØ ¿Â ÀÚÄÚµåµé¿¡ °ªÀ» setting model.setValue(strSrc + "[" + sendRow + "]/status", "I"); //model.setValue(strSrc + "[" + sendRow + "]/prcphopedd", model.getValue ( "/root/init/prcpdd" )); //JJE(-) //cp´Â ÀÌ¹Ì ÀνºÅϽº¿¡ °ªÀÌ µé¾îÀÖÀ½ if( isNull(model.getValue(strSrc + "[" + sendRow + "]/etclnkspec")) ){ model.makeValue ( strSrc + "[" + sendRow + "]/etclnkspec", "-" ); //CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ no } } else if( prcpInptFlag == "06" ){ //Ç×¾ÏÀº ÀÌ¹Ì ÀνºÅϽº¿¡ °ªÀÌ µé¾îÀÖÀ½ model.makeValue ( strSrc + "[" + sendRow + "]/etclnkspec", etclnkspecValue_SMMMO00110 ); //CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ no //model.makeValue ( strSrc + "[" + sendRow + "]/cpno", model.getValue ( strSrc + "[" + sendRow + "]/prtldg") ); //CpNo ¿¡ ÇÁ·ÎÅäÄÝ Â÷¼ö ÀúÀå } else if( prcpInptFlag == "07" ){ //ÀÓ»ó½ÃÇè ÇÁ·ÎÅäÄÝ¿¡¼­ ºÒ·¯¿Ã¶§. if(prcpgenrflag == "I" || prcpgenrflag == "D"){ model.makeValue ( strSrc + "[" + sendRow + "]/subcretno", model.getValue("/root/init/subjsubcretno") ); // ÀÓ»óÇÁ·ÎÅäÄÝ¿¡¼­ ó¹æ½Ã ÀÓ»óÀ¯ÇüÀÇ cretno¸¦ subcretno·Î ¼¼ÆÃ } } //-- CP,Ç×¾ÏÇÁ·ÎÅäÄÝÀÏ °æ¿ì etclnkspec Ä÷³ °ª ¼ÂÆÃ ³¡ --// model.setValue ( strSrc + "[" + sendRow + "]/inclprcpcd", "-" ); //Á¾¼Óó¹æ model.setValue ( strSrc + "[" + sendRow + "]/inclprcpno", "0" );//Á¾¼Ó󹿹øÈ£ //20090518 ¸¶Á¤¹Î¼öÁ¤. ÀÔ¿øÀÏ °æ¿ì Àüó¹æ, ¾à¼Óó¹æ º¹»çó¹æÀÇ ¼±Ã³Ä¡¸¦ Á¦¿ÜÇÑ´Ù. if( prcpgenrflag != "O" && prcpgenrflag != "S" ) { if ( prcpInptFlag == "01" || prcpInptFlag == "02" ) { if ( model.getValue ( strSrc + "[" + sendRow + "]/precureprcpflag" ) == "Y" ) { if( prcpclscd.substring(0,1) == "A" || prcpclscd == "M2" ) model.setValue ( strSrc + "[" + sendRow + "]/precureprcpflag", "N" ); } } } if ( prcpclscd == "F2" && prcpgenrflag == "O") { model.setValue ( strSrc + "[" + sendRow + "]/rehbprcpenddd", prcpdd ); //ÀçȰ¸¶°¨ÀÏ } else if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) { //¾àó¹æ // ¿ø³»Ã³¹æ»çÀ¯ SETTING fHosinPrcpResncdSed ( objFlag, strSrc, sendRow ); //2010. 12. 29 ±è¿µÇÐ ¾àó¹æ ¿ø¿ÜÀÏ °æ¿ì ½ÃÇàºÎ¼­°¡ ¼ÂÆÃµÇ¾î ÀÖÁö ¾ÊÀ¸¸é ±âº» ¿Ü·¡¾à±¹À¸·Î ¼ÂÆÃÇØÁØ´Ù. if( prcpgenrflag != "O" && prcpgenrflag != "S" ) { if ( model.getValue ( strSrc + "[" + sendRow + "]/hosinhosoutflag" ) == "O" && (model.getValue ( strSrc + "[" + sendRow + "]/prcpexecdeptcd" ) == "-" || model.getValue ( strSrc + "[" + sendRow + "]/prcpexecdeptcd" ) == "D")) { model.setValue ( strSrc + "[" + sendRow + "]/prcpexecdeptcd" , fGetHardCDList("Y", 260, 3)) } } //AST °Ë»ç üũ var astyn = getArrayData ( drugmastspec, 0, 22, "^", "|" ); if ( astyn == "Y" ) { model.setValue ( strSrc + "[" + sendRow + "]/asttestflag", "Y" ); } //ÀÀ±Þ flag °¡ YÀÎ °æ¿ì´Â 1ȸ¸¸ °¡´É if ( model.getValue ( strSrc + "[" + sendRow + "]/erprcpflag" ) == "Y" || model.getValue ( strSrc + "[" + sendRow + "]/prnprcpflag" ) == "Y" ) { var prcptims = model.getValue ( strSrc + "[" + sendRow + "]/prcptims" ); if ( prcptims != "1" ) { //1ÀÌ ¾Æ´Ñ °æ¿ì´Â 1·Î ¹Ù²ãÁÖ°í °æ±¸¾àÀÎ °æ¿ì´Â ¿ë¹ýµµ ¹Ù²ãÁØ´Ù. model.setValue ( strSrc + "[" + sendRow + "]/prcptims", "1" ); var prcpqty = model.getValue ( strSrc + "[" + sendRow + "]/prcpqty" ); var prcpvol = model.getValue ( strSrc + "[" + sendRow + "]/prcpvol" ); if ( prcpclscd == "A2" ) { fBaseMthd(sendRow); } if ( prcpclscd == "A2" || prcpclscd == "A4" ) { if ( prcptims != "0" ) { prcpqty = (eval(prcpqty)*1000/eval(prcptims)); prcpvol = (eval(prcpvol)*1000/eval(prcptims)); model.setValue ( strSrc + "[" + sendRow + "]/prcpqty", Math.round ( prcpqty ) / 1000); model.setValue ( strSrc + "[" + sendRow + "]/prcpvol", Math.round ( prcpvol ) / 1000); } } } } //by sonjy 20081216 ¿Ü·¡Àϰæ¿ì Àüó¹æ/¾à¼Óó¹æ¿¡¼­ copy½Ã ¾à/Áֻ翡 ÇÑÇØ ¼öÇàºÎ¼­¸¦ ¸¶½ºÅÍÀÇ ºÎ¼­·Î ÃʱâÈ­ //¿µ¼öÁõÀÇ È¯ÀÚ °¡¾ßÇÒ°÷ÀÌ º´µ¿¾à±¹À¸·Î ÂïÇô ³ª¿À´Â ¿À·ù ¶§¹®. //20081230 ¸¶Á¤¹Î¼öÁ¤ º¯È¯Á¶°ÇÀ» º´µ¿¾à±¹À¸·Î Ãà¼ÒÇÔ if( model.getValue( strSrc + "[" + sendRow + "]/prcpexecdeptcd" ) == "3240300000" && prcpgenrflag == "O" && ( prcpInptFlag == "01" || prcpInptFlag == "02" )) { var sTmp23 = model.getValue( strSrc + "[" + sendRow + "]/tempcol23" ); if( !isNull(sTmp23) && sTmp23 != "-" ){ model.setValue( strSrc + "[" + sendRow + "]/prcpexecdeptcd", sTmp23 ); } } } else if ( prcpclscd == "03" ) { //º¸È£ÀÚ½ÄÀÏ ¶§´Â procerdietflag À» Y·Î ¹Ù²Þ if ( model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ) == "Q4131004" ) { model.setValue ( strSrc + "[" + sendRow + "]/procerdietflag", "Y" ); } } else if ( prcpclscd == "B4" ){ if ( prcpgenrflag == "O" ) { model.setValue ( strSrc + "[" + sendRow + "]/prepprcpflag", "N" ); } else { model.setValue ( strSrc + "[" + sendRow + "]/prepprcpflag", "Y" ); } } // hsct üũ if ( hsctflag == "Y" ) { model.setValue ( strSrc + "[" + sendRow + "]/hsctlnkno", model.getValue ( "/root/init/hsctlnkno" )); //HSCT model.setValue ( strSrc + "[" + sendRow + "]/hscttempprcpflag", "Y" ); //HSCT } else if ( hsctflag == "M" ){ model.setValue ( strSrc + "[" + sendRow + "]/hsctlnkno", model.getValue ( "/root/init/hsctlnkno" )); //HSCT model.setValue ( strSrc + "[" + sendRow + "]/hscttempprcpflag", "N" ); //HSCT } if ( !isNull(inclprcpno) && inclprcpno != "0" ) { //Á¾¼Óó¹æ ó¸® var prcpcd = model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ); //initsrch¿¡¼­ °¡Á®¿Â Á¾¼Óó¹æ instance¿¡ °ªÀÌ ÀÖÀ¸¸é Á¾¼Óó¹æ ÄÚµå¿Í ¹øÈ£¸¦ ¹Ú¾ÆÁØ´Ù. var prcpsetcd = model.getValue ( strSrc + "[" + sendRow + "]/prcpsetcd" ); var inclprcpcd = model.getValue ( "/root/initsrch/inclprcpcnts[snglcd='" + prcpcd + "' and calcscorcdgrup='" + prcpsetcd + "']/inclprcpcd" ); var calcscorcdgrup = ""; if ( isNull(inclprcpcd)) { //º»Ã¼¿¡µµ Äڵ带 ¹Ú¾ÆÁØ´Ù. calcscorcdgrup = model.getValue ( "/root/initsrch/inclprcpcnts[calcscorcdgrup='" + prcpcd + "']/inclprcpcd" ); // GROUP ó¹æ } else { if ( prcpgenrflag == "O" ) { //¿Ü·¡Àϰæ¿ì ¾à, ÁÖ»ç ¿¡ ¿ø³»Ã³¹æ»çÀ¯ °Ë»ç ¼ö¼ú󸮿¡ »ç¿ë if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ){ model.setValue ( strSrc + "[" + sendRow + "]/hosinhosoutflag", "I" );//¿ø³» model.setValue ( strSrc + "[" + sendRow + "]/hosinprcpresncd", "55" );//¿ø³»Ã³¹æ»çÀ¯(¿ø³»Ã³¹æ»çÀ¯ °Ë»ç ¼ö¼ú󸮿¡ »ç¿ë) } } } if ( !isNull(inclprcpcd) || !isNull(calcscorcdgrup)) { model.setValue ( strSrc + "[" + sendRow + "]/inclprcpno", inclprcpno ); //Á¾¼Ó󹿹øÈ£ if ( isNull(inclprcpcd)){ model.setValue ( strSrc + "[" + sendRow + "]/inclprcpcd", calcscorcdgrup ); //Á¾¼Óó¹æ } else { model.setValue ( strSrc + "[" + sendRow + "]/inclprcpcd", inclprcpcd ); //Á¾¼Óó¹æ } model.setValue ( "/root/init/inclprcpno", inclprcpno ); var remainder = inclprcpno%2; if ( objFlag == "child" ){ if ( remainder == 1 ) { model.setValue ( strSrc + "[" + sendRow + "]/tempcol10", "#eaeaea" ); } else { model.setValue ( strSrc + "[" + sendRow + "]/tempcol10", "#ffffcc" ); } } else { if ( remainder == 1 ) { model.setValue ( strSrc + "[" + sendRow + "]/tempcol10", "#eaeaea" ); } else { model.setValue ( strSrc + "[" + sendRow + "]/tempcol10", "#ffffcc" ); } } } } /* by sonjy 20091019 ¿äû¹øÈ£:3667 * Àüó¹æ(01)°ú ¾à¼Óó¹æ(02)À» º¹»çÇÏ¿© ó¹æ½Ã ó¹æÀϼö°¡ 1ÀÏ·Î ¼öÁ¤ÀÌ µÇµµ·Ï * => ¹«Á¶°Ç 1·Î SETTINGó¸® */ var calcmthdcd = getArrayData ( drugmastspec , 0, 26, "^", "|" ); if ( //model.getValue(strSrc + "[" + sendRow + "]/prcpinptflag") == "01" && model.getValue(strSrc + "[" + sendRow + "]/prcpinptflag") == "02" && prcpclscd.substring(0,1) == "A" && calcmthdcd == "4" && model.getValue ( strSrc + "[" + sendRow + "]/prcpdayno" ) > 1 ) { model.setValue ( strSrc + "[" + sendRow + "]/prcpdayno", "1" ); } /*by sonjy 20091019 * ¿Ü·¡Ã³¹æ°ú Åð¿ø,Åð¿øÈ£¿Ü·¡,¿ÜÃâ¿Ü¹Úó¹æ(ÀÀ±Þ½Ç,DSC Åð¿ø Æ÷ÇÔ)¿¡¸¸ ÇØ´çÀ¸·Î, 4¹ø¿¡ ÇØ´çÇÏÁö ¾Ê´Â ¾àǰ (°è»ê¹ýÀÌ 1,2,3,5¹ø)À» ó¹æÇÒ ¶§ ó¹æÀϼö°¡ 0 À¸·Î µÇµµ·Ï * (0 À¸·Î ÀúÀå½Ã ó¹æÀϼö¸¦ ³ÖÀ¸¶ó´Â ¸Þ½ÃÁö°¡ ¶ßµµ·Ï : ÇöÀç µÇ°í ÀÖ´Â ±â´ÉÀÓ) * Àü󹿰ú ¾à¼Óó¹æ, ÇÁ·ÎÅäÄÝó¹æÀ» º¹»çÇÏ¿© ó¹æ½Ã¿¡´Â Á¦¿Ü => Áï, ó¹æ°Ë»ö½Ã¿¡¸¸ Àû¿ëÇ쵂 MSETÁ¦¿Ü */ if ( prcpclscd.substring(0,1) == "A" && calcmthdcd != "4" && prcpInptFlag == "00" && ( model.getValue ( "/root/patflag/list/prcpgenrflag" ) == "O" || model.getValue ( "/root/init/prcpkindcd" ) == "50" || model.getValue ( "/root/init/prcpkindcd" ) == "60" || model.getValue ( "/root/init/prcpkindcd" ) == "70" ) ) { if( model.getValue ( strSrc + "[" + sendRow + "]/inclprcpno") == "0" || model.getValue ( strSrc + "[" + sendRow + "]/inclprcpno") == "-" ) { model.setValue ( strSrc + "[" + sendRow + "]/prcpdayno", "0" ); } } model.setValue ( strSrc + "[" + sendRow + "]/prcpgenrflag", prcpgenrflag ); //󹿹߻ý±¸ºÐ model.setValue ( strSrc + "[" + sendRow + "]/prcpkindcd", prcpkindcd ); //ó¹æÁ¾·ù //20131105 Start ÀÌÁ¤ÅÃ(¸¶Ãë¿¡¼­ ó¹æÀ̵¿½Ã¿¡ ¼öÀͺμ­¿Í ¼öÀÍÀǸ¦ ÀÚµ¿À¸·Î ¼¼ÆÃÇϵµ·Ï ¼öÁ¤) if(model.getValue ( strSrc + "[" + sendRow + "]/prcpinptflag")=="27"){ var orddeptcd = "2090000000"; var orddrid = model.getValue("/root/anst/anst_drid"); var anstdrnm = model.getValue("/root/anst/anst_anstdrnm"); model.setValue ( strSrc + "[" + sendRow + "]/pampkspec", pid + "|" + indd + "|" + cretno + "|" + orddeptcd + "|" + orddrid); //pampkspec : µî·Ï¹øÈ£|Áø·áÀÏÀÚ|»ý¼º¹øÈ£|Áø·á°ú|´ã´çÀÇ // ¿ø¹«PK³»¿ª model.setValue ( strSrc + "[" + sendRow + "]/tempcol20", "[¸¶ÃëÅëÁõÀÇÇаú]["+anstdrnm+"]" ); //ó¹æÃ¢ÀÇ ÁÖÁø·á°ú/Áø·áÀǸ¦ ¼¼ÆÃ }else{ var sOldPamPkSpec = model.getValue ( strSrc + "[" + sendRow + "]/pampkspec"); if(isNull(sOldPamPkSpec) || sOldPamPkSpec.length < 30) { // 2017.10.16 ¾ö¿µ¸¸ CP¿¡¼­ ó¹æÀÇ º¯°æ ±â´É ¾ÈµÇ´Â ¿À·ù ¼öÁ¤(±âÁ¸ ¼³Á¤µÈ °ªÀÌ ÀÖÀ¸¸é ±×´ë·Î Àû¿ë) model.setValue ( strSrc + "[" + sendRow + "]/pampkspec", pid + "|" + indd + "|" + cretno + "|" + orddeptcd + "|" + orddrid ); //pampkspec : µî·Ï¹øÈ£|Áø·áÀÏÀÚ|»ý¼º¹øÈ£|Áø·á°ú|´ã´çÀÇ // ¿ø¹«PK³»¿ª } } // 20131105 End //model.setValue ( strSrc + "[" + sendRow + "]/pampkspec", pid + "|" + indd + "|" + cretno + "|" + orddeptcd + "|" + orddrid ); //pampkspec : µî·Ï¹øÈ£|Áø·áÀÏÀÚ|»ý¼º¹øÈ£|Áø·á°ú|´ã´çÀÇ // ¿ø¹«PK³»¿ª model.setValue ( strSrc + "[" + sendRow + "]/prcppkspec", prcpdd + "|0|0|" + getUserInfo("dutplceinstcd")); //ó¹æÅ°: ó¹æÀÏÀÚ|󹿹øÈ£|ó¹æÀ̷¹øÈ£|±â°üÄÚµå //20081007 ¸¶Á¤¹Î ¼öÁ¤ //¿ø·¡ ȸó¹æ ºÒ°¡ //¼öÇ÷, ¿µ»ó, Angio, ÇÙÀÇÇпµ»ó, º´¸®, ±â´É, RT, ¼ö¼ú, ¸¶Ãë, ¸¶Ãë¾àÁ¦, Àç·á, ±âŸ ÀÌ°í ¸¶À̱׷¹ÀÌ¼Ç µ¥ÀÌÅÍ´Â 1·Î setting //Ãß°¡ óġ H4 //20090514 ¸¶Á¤¹ÎÃß°¡ K2 Ä¡°ú if ( model.getValue ( strSrc + "[" + sendRow + "]/tempcol20" ) == "Y" && ( prcpclscd == "B4" || prcpclscd == "C2" || prcpclscd == "C4" || prcpclscd == "C6" || prcpclscd == "D2" || prcpclscd == "E2" || prcpclscd == "G2" || prcpclscd == "H2" || prcpclscd == "I2" || prcpclscd == "I4" || prcpclscd == "M2" || prcpclscd == "Z0" || prcpclscd == "H4" || prcpclscd == "K2")) { model.setValue ( strSrc + "[" + sendRow + "]/prcptims", "1" ); //󹿹߻ý±¸ºÐ } //20090122 ¸¶Á¤¹Î¼öÁ¤: º¯°æ¿äû¹øÈ£ 670. ´Ü¼ø ¹æ»ç¼± ¿¹¾à ÀÚµ¿ ÆË¾÷¿äû //20090709 CHC, ´Ü¼ø¹æ»ç¼±¿¹¾àÀÚµ¿ÆË¾÷ º´¿øº° Àû¿ë var raypopwndcheckyn = model.getValue ( "/root/initsrch/raypopwndcheckyn/trgtcd" ); if ( prcpgenrflag == "O" && model.getValue( strSrc + "[" + sendRow + "]/tempcol2" ).length > 2 && model.getValue( strSrc + "[" + sendRow + "]/tempcol2" ).substring( 0, 2 ) == "18" && usge == "prcp" ) { var msgTitle = "[¿µ»ó]" + "[" + model.getValue( strSrc + "[" + sendRow + "]/prcpcd" ) + ":" + model.getValue( strSrc + "[" + sendRow + "]/prcpnm" ) + "]"; if (raypopwndcheckyn != "Y") { if (window.alert( "´Ü¼ø ¹æ»ç¼± °Ë»ç¸¦ ´çÀÏ ½ÃÇà ÇϽðڽÀ´Ï±î? [¿¹:´çÀÏ,¾Æ´Ï¿ä:¿¹¾à]", msgTitle, "36" ) == "7" ){ model.setValue( strSrc + "[" + sendRow + "]/prcphopedd","99991231" ); } } } //20090827 Â÷Çöö, Ä¡·á³»½Ã°æ¿¹¾à Áö½Ãó¹æÀÏ °æ¿ì ó¹æ¸í ¼±Åà ÆË¾÷â È£Ãâ var escopedirecprcpcd = model.getValue ( "/root/initsrch/escopedirecprcpcd/trgtcd" ); if ( escopedirecprcpcd == model.getValue( strSrc + "[" + sendRow + "]/prcpcd" )) { setParameter ( "SPMMB02200_cond2", "5" ); fPrcpModal ( "SPMMB02200", 50, 50 ); model.setValue (strSrc + "[" + sendRow + "]/prcpnm", getParameter ( "SPMMB02200_clinccmt" )); clearParameter("SPMMB02200_clinccmt"); } //SON0919 G3¾Æ´Ñ ÀÀ±ÞÀϰæ¿ì ¿ø³»»çÀ¯ PRCPKINDCD¿¡ ÀÇÇØ ¿òÁ÷À̹ǷΠPRCPKINDCD°¡ ¼³Á¤µÈ ÈÄ ´Ù½Ã È£Ãâ start //Åð¿øÃ³¹æ Àüó¹æ¿¡¼­ Ãß°¡Ã³¹æ¸ðµå¿¡¼­ º¹»ç½Ã Åð¿øÃ³¹æ ¿ø³»»çÀ¯°¡ Àû¿ëµÇ´Â°ÍÀ» ¸·±â À§ÇÔÀÓ. var g3flag = ""; if( objFlag == "child") g3flag = opener.model.getValue ( "/root/init/erresn" ); else g3flag = model.getValue ( "/root/init/erresn" ); if( (prcpgenrflag == "E" && g3flag!= "G3") || prcpgenrflag == "D" ){ if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) { //¾àó¹æ // ¿ø³»Ã³¹æ»çÀ¯ SETTING fHosinPrcpResncdSed ( objFlag, strSrc, sendRow ); } } //SON0919 end if ( (prcpkindcd == "50" || prcpkindcd == "60" ) && getArrayData (drugmastspec, 0, 20, "^", "|" ) == "Y" ) { //2008-01-18 ±èÀºÈñ ¾à»ç ¸ðµçó¹æ ÀÚ°¡Áֻ簡 °¡´ÉÇÏ°Ô ¼öÁ¤ if ( prcpclscd == "A6") { model.setValue ( strSrc + "[" + sendRow + "]/selfprcpflag", "Y" ); } } //20080721 ¸¶Á¤¹Î ÀÓ»óó¹æ¿¡¼­ ³Ñ¾î¿À´Â °ÍÀº clincstdyflag¸¦ Y·Î ó¸® if ( prcpInptFlag == "07" ) { model.setValue ( strSrc + "[" + sendRow + "]/clincstdyflag", "Y" ); // } var chkprcpcd = model.getValue ( strSrc + "[" + sendRow + "]/prcpcd") /******************** ¼±Ã³Ä¡, °ú³»°Ë»ç ½ÃÇàºÎ¼­Ã³¸® *******************/ var iFind = -1; var precureexecdeptchk = model.getValue ( "/root/initsrchprcp/prcpetccnts/precureprcpcd" ); // ±âÁ¸ searchÇÔ¼ö¿¡¼­ ¹«°á¼ºÀÌ ¾î±ß³ª °³º° üũ º¯°æ - 20081008 by MoonSH var precureprcpflag = ""; var prcpexecdeptcd = ""; if( chkprcpcd.charAt(0) != "*" ){ var firStage = precureexecdeptchk.split("^"); for( i=0; i= 0) { var charchk = ""; var arraychk = ""; if ( precureprcpflag == "Y" ) { if( prcpgenrflag == "I" || prcpgenrflag == "E" || prcpgenrflag == "D" ) { //ÀÔ¿øÀÏ °æ¿ì ¼±Ã³Ä¡ Àû¿ë½Ã ¾à/Àç·áÄÚµå´Â Á¦¿ÜÇÑ´Ù. Á¤º¸°ü¸®ÆÀ ¿ä±¸º¯°æ ¿äû¼­ 2008-11-08 ¹Ì¾×ÆÃ ºÐ¼® ÈÄ ¾×ÆÃ½ÃÁ¡ º¯°æ°Ç //by sonjy 20081115 if( prcpclscd.substring(0,1) != "A" && prcpclscd != "M2" ) model.setValue ( strSrc + "[" + sendRow + "]/precureprcpflag", "Y" ); } else { model.setValue ( strSrc + "[" + sendRow + "]/precureprcpflag", "Y" ); } } if ( prcpexecdeptcd != "X" && !isNull ( prcpexecdeptcd ) ) { model.setValue ( strSrc + "[" + sendRow + "]/prcpexecdeptcd", prcpexecdeptcd ); } } if ( model.getValue ( "/root/addprcp" ) == "Y" && model.getValue ( strSrc + "[" + sendRow + "]/inclprcpno") == "0" ) { //½ÃÇàºÎ¼­ ¼öÇ÷, ½ÄÀÌ, ÀçȰ, ¸¶Ãë, Ä¡°ú, ¹æ»ç¼±Ä¡·á, ±âŸ¸¦ Á¦¿ÜÇÑ Ã³¹æÀº ÀÚµ¿ ¼±Ã³Ä¡. ´Ü m-setÀº ¿¹¿Ü if ((model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "A2" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "A4" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "A6" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "B2" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "B6" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "C2" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "C4" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "C6" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "D2" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "E2" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "H2" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "H4" || model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) == "M2" ) && model.getValue ( "/root/admininfo" ).substring (0,1) != "Y" ) { model.setValue ( strSrc + "[" + sendRow + "]/precureprcpflag", "Y" ); } } // ½ÃÇàºÎ¼­ ó¹æ °¡Åð¿ø ´©¶ôó¹æ »çÀ¯ ¹× ÀϽà ¼ÂÆÃ - 20081221 by MoonSH if ( model.getValue ( "/root/addprcp" ) == "Y" && model.getValue ("/root/prcpresn/prcpdd") != "" ) { model.setValue ( strSrc + "[" + sendRow + "]/tempcol19", model.getValue ("/root/prcpresn/resncnt") ); model.setValue ( strSrc + "[" + sendRow + "]/tempcol12", model.getValue ("/root/prcpresn/prcptime") ); // tempcol24¸¦ »ç¿ëÇÏ´ø°ÍÀ» tempcol12·Î º¯°æ ó¸® 2013.11.28 ¾ö¿µ¸¸ } /******************** ¼±Ã³Ä¡, °ú³»°Ë»ç ½ÃÇàºÎ¼­ ó¸® ³¡ ********************/ //½ÃÇàºÎ¼­, ¹ßÇàºÎ¼­ SETTING fPrcpExecIssDeptCdSet( strSrc, sendRow ) if (!isNull(model.getValue ( "/root/init/prcpinptflag" ))){ //27: ¸¶Ãë±â·Ï, 28: ½ÃÇàºÎ¼­Ã³¹æ model.setValue ( strSrc + "[" + sendRow + "]/prcpinptflag", model.getValue ( "/root/init/prcpinptflag" )); } //Ãß°¡Ä÷³ test model.setValue ( strSrc + "[" + sendRow + "]/aftcertflag", "-"); model.setValue ( strSrc + "[" + sendRow + "]/aftcertdrid", "-"); model.setValue ( strSrc + "[" + sendRow + "]/prcpvalidd", "00000000"); if ( isNull(model.getValue ( strSrc + "[" + sendRow + "]/anticncrdayno"))) { model.setValue ( strSrc + "[" + sendRow + "]/anticncrdayno", "0"); } if ( isNull(model.getValue ( strSrc + "[" + sendRow + "]/druglnkno"))) { model.setValue ( strSrc + "[" + sendRow + "]/druglnkno", "0"); } if (model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ) == "FE6541" ) { var prcpdelivefact = model.getValue( strSrc + "[" + sendRow + "]/prcpdelivefact" ); var iFind1 = prcpdelivefact.search( "Long Stream" ); var iFind2 = prcpdelivefact.search( "Routine" ); //Àü´Þ»çÇ׿¡ °ªÀÌ ÀÖÀ¸¸é "-" ·Îó¸® if ( eval( iFind1) <= 0 && eval(iFind2) <= 0 ) { if ( prcpdelivefact == "-" ) { model.setValue( strSrc + "[" + sendRow + "]/prcpdelivefact", "[Routine]" ); } else { model.setValue( strSrc + "[" + sendRow + "]/prcpdelivefact", "[Routine] " + prcpdelivefact ); } } } if ( model.getValue ( strSrc + "[" + sendRow + "]/tempcol18" ) == "Y" ) { var len = 1; if ( !isNull(model.instance1.selectNodes("/root/migdrugmthd/migdrugmthdlist").length)){ len = model.instance1.selectNodes("/root/migdrugmthd/migdrugmthdlist").length + 1; } model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/prcpcd", model.getValue( strSrc + "[" + sendRow + "]/prcpcd" )); model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/prcpnm", model.getValue( strSrc + "[" + sendRow + "]/prcpnm" )); model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/prcpnm", model.getValue( strSrc + "[" + sendRow + "]/prcpnm" )); if ( model.getValue ( strSrc + "[" + sendRow + "]/rateprcpflag" ) == "Y" ) { model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/migdrugmthdspccdnm", "[ºñÀ²Ã³¹æºÒ°¡] Åõ¾à·®ÀÌ ´Ù¸¥ ó¹æÀ» ºÐ¸®Çؼ­ ó¹æÇÏ¼Å¾ß ÇÕ´Ï´Ù.\n\n" + model.getValue( strSrc + "[" + sendRow + "]/exptmthdfact" ) + "."); model.setValue ( strSrc + "[" + sendRow + "]/rateprcpflag", "N" ) model.setValue ( strSrc + "[" + sendRow + "]/drugrateqty", "-" ) } else { model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/migdrugmthdspccdnm", model.getValue( strSrc + "[" + sendRow + "]/exptmthdfact" )); } model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/drugmthdspccd", model.getValue( strSrc + "[" + sendRow + "]/drugmthdspccd" ) ); model.makeValue ( "/root/migdrugmthd/migdrugmthdlist[" + len + "]/drugmthdspccdnm", model.getValue( strSrc + "[" + sendRow + "]/drugmthdspccdnm" ) ); model.setValue ( strSrc + "[" + sendRow + "]/exptmthdfact", "-" ); } //¼ö¼ú¿¹¹æÀû Ç×»ýÁ¦ CHECK SON0926 START »çÀ¯ÀÔ·Â ´ë»óÀÚÀÏ °æ¿ì //°æ±¸¾àÀº cdssÇ×»ýÁ¦ ¿¡¼­ Á¦¿Ü. µû¶ó¼­ ¿Ü¿ë/ÁÖ»çÀÏ °æ¿ì cdssÇ×»ýÁ¦ È­¸éÀÌ ¶á ÈÄ¿¡ check·ÎÁ÷ÀÌ ¶ßµµ·Ï.. if ( prcpgenrflag == "I" && usge == "prcp" && ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" )) { //¾àó¹æ if( !fChkOpDrug(objFlag , strSrc , sendRow ) ) return 0; } //¼ö¼ú¿¹¹æÀû Ç×»ýÁ¦ CHECK SON0926 END //20090520 ¸¶Á¤¹Î¼öÁ¤ //ÀúÀå½Ã üũÇÏ´ø ocrprnt ¿©ºÎ¸¦ search ÇÔ¼öÀÇ ¹®Á¦·Î ó¹æº¹»ç½Ã tempcol13¿¡ °ªÀ» ³Ö¾î³ù´Ù°¡ ÀúÀå½Ã tempcol13À» Àд ¹æ¹ýÀ¸·Î ¼öÁ¤ var ocrprnt = model.getValue ( "/root/initsrchprcp/prcpetccnts/ocrprnt" ); if (isNull(ocrprnt)) { ocrprnt = model.getValue ( "/root/initsrch/prcpetccnts/ocrprnt" ); } var ocrprntArray = ocrprnt.split("|"); var ocrprcpcd = "OCR" + model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ); for( m=0; m < ocrprntArray.length; m++ ){ if( ocrprcpcd == ocrprntArray[m]) { model.setValue ( strSrc + "[" + sendRow + "]/tempcol13", "Y" ); break; } } // 20100108 ÇÑÀç»ó - À¯ÀüÀÚ°Ë»ç µ¿ÀǼ­ Ãâ·Â¹æ½Ä º¯°æ (OCR -> REX) var ocrprogprnt = model.getValue ( "/root/initsrchprcp/prcpetccnts/ocrprogprnt" ); var ocrprogprntArray = ocrprogprnt.split("|"); var ocrprogprcpcd = "OCRPROG" + model.getValue ( strSrc + "[" + sendRow + "]/prcpcd" ); for( m=0; m < ocrprogprntArray.length; m++ ){ if( ocrprogprcpcd == ocrprogprntArray[m]) { model.setValue ( strSrc + "[" + sendRow + "]/tempcol13", "A" ); break; } } //20090521 ¸¶Á¤¹ÎÃß°¡ ¿Ü·¡¼ö¼úÇÁ·Î¼¼½ºÀÇ Ãß°¡·Î ¿Ü·¡¼ö¼úÅÇ¿¡¼­ ó¹æÀ» ³¾ °æ¿ì ÀÚµ¿¼±Ã³Ä¡·Î ¼öÁ¤ if (!isNull(model.getValue ( "/root/operation/list/oprsrvno")) && prcpgenrflag == "O" && model.getValue ( strSrc + "[" + sendRow + "]/prnprcpflag" ) != "Y" && model.getValue ( strSrc + "[" + sendRow + "]/prcpclscd" ) != "B4" ) { model.setValue ( strSrc + "[" + sendRow + "]/precureprcpflag", "Y" ); // } if ( model.getValue ( strSrc + "[" + sendRow + "]/prcpflag") != "2" ) { //Áö½Ãó¹æÀÌ ¾Æ´Ï¸é À̸§À» ´Ù½Ã ¸¸µé¾î ÁØ´Ù. makePrcpNm( "/root/main/prcp/prcplist", sendRow ); } // 2010. 10. 19 ¾à¼Óó¹æÀ̳ª Àüó¹æ¿¡¼­ ó¹æ º¹»ç½Ã 1ȸ ¿ë·®¿¡ °ªÀÌ ¾øÀ» °æ¿ì ¿ë·® °è»êÇÏ´Â ·ÎÁ÷ ¼öÇà if ( model.getValue ( strSrc + "[" + sendRow + "]/drprcpetc7") == "-" ) { if (fContainsHardCD("420", "Y") && model.getValue ( strSrc + "[" + sendRow + "]/prcpinptflag") == "02") { // 2013.02.21 ¾ö¿µ¸¸ ¾à¼Óó¹æ 1ȸ ¿ë·® ¾øÀ» ½Ã ¸Þ¼¼Áö ÆË¾÷. var sPrcpcd = model.getValue ( strSrc + "[" + sendRow + "]/prcpcd"); var sPrcpnm = model.getValue ( strSrc + "[" + sendRow + "]/prcpnm"); messageBox ( sPrcpnm +"["+ sPrcpcd + "] ó¹æÀÇ 1ȸ¿ë·®°ªÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.\n¾à¼Óó¹æ ±¸¼ºÀ» È®ÀÎ ÇϽñ⠹ٶø´Ï´Ù.", "E999" ); } else { DrugCalc2( "prcpqty" , sendRow); } } // 2011.07.05 ¾ö¿µ¸¸ ¼öÀͺзù ÀǷ῵»óº¹»ç-CD º¹»ç-CD copy ó¹æ, »êÀç/ÀÚº¸ ȯÀÚ µðÆúÆ® ºñ±Þ¿© ¼ÂÆÃ ¿ø¹« ÃÖÀοµ(5069) ¿äû if (model.getValue ( strSrc + "[" + sendRow + "]/tempcol2" ) == "24|01|01" && (model.getValue ( "/root/paminfo/list/insukind" ) == "31" || model.getValue ( "/root/paminfo/list/insukind" ) == "41")) { model.setValue ( strSrc + "[" + sendRow + "]/payflagcd", "1" ); } // 2013.09.26 ¾ö¿µ¸¸ ¼öÀͺзù ÃÊÀ½ÆÄ ó¹æÀÌ°í ¼ö°¡Á¤º¸ÀÇ ±Þºñ°¡ ±Þ¿©(0), ±Þ¿©ºÒ°¡ º¸Á¶À¯ÇüÀÏ °æ¿ì µðÆúÆ® ºñ±Þ¿© ¼³Á¤ /*if (model.getValue( strSrc + "[" + sendRow + "]/tempcol2" ).length > 2 && model.getValue( strSrc + "[" + sendRow + "]/tempcol2" ).substring( 0, 2 ) == "21" && model.getValue( strSrc + "[" + sendRow + "]/spynpy1" ) == "0" ) { if ( (model.getValue("/root/paminfo/list/insukind") != "11" && model.getValue("/root/paminfo/list/insukind") != "21" && model.getValue("/root/paminfo/list/insukind") != "22") // º¸Çè À¯ÇüÀÌ °Ç°­º¸Çè ¶Ç´Â ÀÇ·á±Þ¿© 1,2Á¾ÀÌ ¾Æ´Ï¸é ºñ±Þ¿© ó¸® || (!fContainsHardCD("442", model.getValue("/root/paminfo/list/suppkind"))) ) { // ±Þ¿©°¡´É º¸Á¶À¯ÇüÀÌ ¾Æ´Ò°æ¿ì model.setValue ( strSrc + "[" + sendRow + "]/payflagcd", "2" ); // µðÆúÆ® ºñ±Þ¿© ó¸® } } */ //model.addLog(" ************* End Of addPrcpSetValue()"); return true; } /** * @desc : ó¹æÀÌ ¹ßÇàµÉ¶§ set·Î °°ÀÌ ³ª°¡¾ßÇÒ Ã³¹æ ó¸® * @param : objFlag - child or else : strSrc - source node : strDest - ¸ñÀûÁö node; childÀ϶§´Â opener.root.main.prcp, ¾Æ´Ï¸é "/root/main/prcp" ÀÌ´Ù : sendRow - °Ë»öµÈ ³»¿ëÁß ¸ÞÀÎÀ¸·Î º¸³»°íÀÚ ÇÏ´Â row : srchRow - ¸ÞÀο¡ µé¾î°£ ÀÚ¸®. °Ë»ö·Î¿ì(srchRow) ¹Ù·Î ÀüÀÌ´Ù. : prcpInptFlag - - ó¹æÀԷ±¸ºÐ 00 ó¹æ°Ë»ö, 01 Àüȸó¹æ, 02 ¾à¼Óó¹æ, 03 ¾à¼Ó¼ö¼ú.. M0034 : groupSrc - ¿É¼Ç: groupó¹æ °Ë»öÇÒ °æ¿ì node : direcSrc - ¿É¼Ç: group Áö½Ãó¹æ °Ë»öÇÒ °æ¿ì node : prcpInptFlag - ó¹æÀԷ±¸ºÐ 00 ó¹æ°Ë»ö, 01 Àüȸó¹æ, 02 ¾à¼Óó¹æ, 03 ¾à¼Ó¼ö¼ú.. M0034 * @return : srchRow ¿¡·¯½Ã 0 * @authur : ¸¶Á¤¹Î 2008. 6. 25 * @--------------------------------------------------- */ function fAddSetPrcpChk ( objFlag , strSrc , strDest , i , srchRow, prcpInptFlag ) { var prcpcd = model.getValue( strSrc + "[" + i + "]/prcpcd" ); var addprcpcd = ""; var addprcpcnt = 0; // if (prcpcd == "LCT101") addprcpcd = "DDIS50"; // else if (prcpcd == "LCT001") addprcpcd = "DDIS75"; // else if (prcpcd == "LCT002") addprcpcd = "DDIS100"; // else if (prcpcd == "NHC297EG") addprcpcd = "FE654303G"; //by sonjy ÀÚµ¿¹ß»ýÄÚµå Ãß°¡ 2008-08-20 ÀÎÈ­¼º °úÀå´Ô ¿äû var iFind = -1; var setprcpchk = ""; if ( objFlag == "child" ) { setprcpchk = opener.model.getValue ( "/root/initsrch/setprcplist/setprcp" ); } else { setprcpchk = model.getValue ( "/root/initsrch/setprcplist/setprcp" ); } // ±âÁ¸ searchÇÔ¼ö¿¡¼­ ¹«°á¼ºÀÌ ¾î±ß³ª °³º° üũ º¯°æ - 20081008 by MoonSH var precureprcpflag = ""; var calcflag = ""; var prcpdelivefact = ""; var firStage = setprcpchk.split("^"); for( i=0; i= 0) { var prcpdd = ""; var insukind = ""; if ( objFlag == "child" ) { prcpdd = opener.model.getValue ( "/root/init/prcpdd" ); insukind = opener.model.getValue ( "/root/paminfo/list/insukind"); } else { prcpdd = model.getValue ( "/root/init/prcpdd" ); insukind = model.getValue ( "/root/paminfo/list/insukind"); } //¸ÖƼ search °¡´ÉÇÔ model.makeValue("/root/send/addsetprcp[1]/prcpcd",addprcpcd); model.makeValue("/root/send/addsetprcp[1]/prcpdd",prcpdd); model.makeValue("/root/send/addsetprcp[1]/insukind",insukind); model.makeValue("/root/send/addsetprcp[1]/srchkind","B2"); if ( submit("TRMMO00207",false)) { /* **by sonjy ÀÚµ¿¹ß»ýÄÚµå Ãß°¡ 2008-08-20 ÀÎÈ­¼º °úÀå´Ô ¿äû ¼öÁ¤ ½ÃÀÛ. ** ó¹æÄÚµå : NHC297EMG, ÀÚµ¿¹ß»ýÄÚµå : FE654303G ** ÀÚµ¿¹ß»ýÄÚµå´Â µ·°è»ê¿¡¼­ Á¦¿ÜµÇ¾î¾ß ÇÔ. ** ÀÚµ¿¹ß»ýÄÚµå ó¹æÀü´Þ»çÇ× ÀÚµ¿ »ý¼º=>[HEART-SPECT ÇÙÀÇÇа˻ç¿ë] */ //20090420 ¸¶Á¤¹Î ¼öÁ¤ HARDCODE Å×À̺í·Î ºÐ¸® //if( addprcpcd == "FE654303G"){ var nd = model.instance1.selectNodes("/root/addsetprcp/prcplist"); if( nd != null && nd.length > 0) { model.setValue("/root/addsetprcp/prcplist[1]/prcpdelivefact", prcpdelivefact ); model.setValue("/root/addsetprcp/prcplist[1]/tempcol17" , calcflag ); //ÀÚµ¿¹ß»ýÄÚµå´Â µ·°è»êÀÌ µÇ¾î¼± ¾ÈµÊ. } //} //by sonjy ÀÚµ¿¹ß»ýÄÚµå Ãß°¡ 2008-08-20 ÀÎÈ­¼º °úÀå´Ô ¿äû ¼öÁ¤ ³¡ //serPrcpSrchRow = addPrcpDetl ( objFlag , "root/addsetprcp/prcplist" , strDest , 1 , srchRow, prcpInptFlag ); //by sonjy 20091031 ÀÚµ¿¹ß»ý ó¹æ ÀÔ·Â ±¸ºÐ Ãß°¡ //SET ó¹æÀÏ ¶§ ¾àǰÀÇ ±âº» Àϼö´Â ¼ö°¡°è»ê¹ýÀÌ ¾î¶² °ÍÀÌµç ±âº»À» 1ÀÏ·Î µÇµµ·Ï ¿äû¹øÈ£:8875 serPrcpSrchRow = addPrcpDetl ( objFlag , "root/addsetprcp/prcplist" , strDest , 1 , srchRow, "34" ); if (serPrcpSrchRow != 0 ) srchRow++; } model.removeNodeset("/root/send/addsetprcp"); } return srchRow; } /** * @desc : Æ÷Ä¿½º¸¦ ¸ÞÀÎÀ¸·Î ÇÑ´Ù. * @param : curRow => ¸ÞÀÎÀÇ °Ë»ö row : flag => child : prcpNmClearFlag => °Ë»ö¸íÀ» Ŭ¸®¾î ½Ãų°ÇÁö ¿©ºÎ * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 12 * @--------------------------------------------------- */ function focusMain( curRow, flag, prcpNmClearFlag ) { if ( flag == "child" ) { if ( prcpNmClearFlag != "N" ) { opener.model.setValue( "/root/main/prcp/prcplist[" + curRow + "]/prcpnm", ""); opener.model.setValue( "/root/main/prcp/prcplist[" + curRow + "]/prcpcd", ""); } opener.model.recalculate(); var modiflag = model.getValue("/root/init/rowmodify/modiflag"); if ( modiflag != "Y" ){ // ó¹æ Äڵ忡¼­ ¼öÁ¤ ¸ðµå°¡ ¾Æ´Ò¶§¸¸ refresh - 20090630 by Moonsh opener.grd_prcplist.refresh(); } var bfRow = curRow - 1 ; var sPrcpClsCd = opener.model.getValue( "/root/main/prcp/prcplist[" + bfRow + "]/prcpclscd" ); if ( sPrcpClsCd == "A2" || sPrcpClsCd == "A4" || sPrcpClsCd == "A6" ){ opener.grd_prcplist.row = bfRow; opener.grd_prcplist.col = opener.grd_prcplist.colref("drprcpetc7"); } else { opener.grd_prcplist.row = curRow; if ( model.getValue ( "/root/send/cond99" ) == "getPrcpCdOldSrchInfo" ) { opener.grd_prcplist.col = prcpcdCol; opener.model.setValue ( "/root/send/cond99", "" ); } else { opener.grd_prcplist.col = prcpnmCol; } } if( opener.model.getValue("/root/cp") == "Y" ){ //CP¿¡¼­ ÀúÀå ½Ã AddPrcp()¸¦ ¼öÇà ½Ã, ¸¶Áö¸· ¶óÀο¡ Æ÷Ä¿½º°¡ ³²¾ÆÀÖ´Â »óÅ¿¡¼­ ÀúÀå ¼öÇà °úÁ¤¿¡ "onendedit" À̹øÆ® µ¿½Ã ¼öÇàÇϸ鼭 À©µµ¿ì ¿¡·¯ ¹ß»ý -> ÀÌ °æ¿ì ¸·À½Ã³¸® (2008.10.02 JJE) if( (typeof(curSavePrcpFlag_SMMMO00110) != "undefined") && (curSavePrcpFlag_SMMMO00110 != null) && (curSavePrcpFlag_SMMMO00110 == "N" || curSavePrcpFlag_SMMMO00110 == "T" )){ return; } } // Ç×»ýÁ¦¿¡¼­ µ¥ÀÌŸ Ãß°¡ ÈÄ dispatch ½Ã¿£ Focus°¡ ¾È °¡¼­ setFocus »ç¿ë 20080925 by Moonsh var cdssFlag = opener.javascript.getParameter( "SPMMD01600_flag"); var sAltDrugFlag = opener.javascript.getParameter( "SPMMB10100_flag"); // ´ëü¾à ¼±ÅÃÀ¸·Î È£Ãâ½Ã if ( cdssFlag == "Y" ) { opener.model.setFocus(opener.grd_prcplist.attribute("id"), true); } else if (sAltDrugFlag == "Y") { } else { //by sonjy 20090923 ¼º°øÀûÀ¸·Î copyÇÞÀ» °æ¿ì ... //iviewer¿¡¼­ addprcpÈ£Ãâ½Ã grid edit ¾ÈµÇ´Â bug ¼öÁ¤ opener.model.setFocus("grd_prcplist"); opener.btn_editcell.dispatch("DOMActivate"); } opener.grd_prcplist.allstyle( "all", "font-weight" ) = ""; //±âÁ¸ focus cell boldü ÇØÁ¦ (2010.01.27 JJE) } else { model.removeNodeset( "/root/prcpsrch/prcplist"); model.removeNodeset( "/root/prcpgroup/prcplist"); model.removeNodeset( "/root/prcpdirec/prcplist"); if ( prcpNmClearFlag != "N" ) { model.setValue( "/root/main/prcp/prcplist[" + curRow + "]/prcpnm", ""); //°Ë»ö±×¸®µå¸¦ Ŭ¸®¾î ½ÃŲ´Ù. model.setValue( "/root/main/prcp/prcplist[" + curRow + "]/prcpcd", ""); //°Ë»ö±×¸®µå¸¦ Ŭ¸®¾î ½ÃŲ´Ù. } model.recalculate(); var modiflag = model.getValue("/root/init/rowmodify/modiflag"); if ( modiflag != "Y" ){ // ó¹æ Äڵ忡¼­ ¼öÁ¤ ¸ðµå°¡ ¾Æ´Ò¶§¸¸ refresh - 20090630 by Moonsh grd_prcplist.refresh(); } var bfRow = curRow - 1 ; var sPrcpClsCd = model.getValue( "/root/main/prcp/prcplist[" + bfRow + "]/prcpclscd" ); if ( sPrcpClsCd == "A2" || sPrcpClsCd == "A4" || sPrcpClsCd == "A6" ){ grd_prcplist.row = bfRow; grd_prcplist.col = grd_prcplist.colref("drprcpetc7"); } else { grd_prcplist.row = curRow; if ( model.getValue ( "/root/send/cond99" ) == "getPrcpCdOldSrchInfo" ) { grd_prcplist.col = prcpcdCol; model.setValue ( "/root/send/cond99", "" ); } else { grd_prcplist.col = prcpnmCol; } } if( model.getValue("/root/cp") == "Y" ){ //CP¿¡¼­ ÀúÀå ½Ã AddPrcp()¸¦ ¼öÇà ½Ã, ¸¶Áö¸· ¶óÀο¡ Æ÷Ä¿½º°¡ ³²¾ÆÀÖ´Â »óÅ¿¡¼­ ÀúÀå ¼öÇà °úÁ¤¿¡ "onendedit" À̹øÆ® µ¿½Ã ¼öÇàÇϸ鼭 À©µµ¿ì ¿¡·¯ ¹ß»ý -> ÀÌ °æ¿ì ¸·À½Ã³¸® (2008.10.02 JJE) if( (curSavePrcpFlag_SMMMO00110 !=null ) && (curSavePrcpFlag_SMMMO00110 == "N" || curSavePrcpFlag_SMMMO00110 == "T") ){ return; } } if( model.getValue ( "/root/cp" ) == "Y" ){ if (prtlprcpstatus_SMMMO00110 != "U" ) { btn_editcell.dispatch("DOMActivate"); } }else{ btn_editcell.dispatch("DOMActivate"); } grd_prcplist.allstyle( "all", "font-weight" ) = ""; //±âÁ¸ focus cell boldü ÇØÁ¦ (2010.01.27 JJE) } } /** * @desc : appendChild °øÅëÇÔ¼ö·Î * @param : strSrc => ¼Ò½º ³ëµå : strDest => ¸ñÀûÁö ³ëµå : flag => °°ÀºÈ­¸é¿¡¼­ »ç¿ëÇÏ´ÂÁö child¿¡¼­ »ç¿ëÇÏ´ÂÁö : autocheck => ÀÚµ¿Ã¼Å©ÇÏ·Á¸é üũº§·ù¸¦ ³Ö´Â´Ù. * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 21 * @--------------------------------------------------- */ function appendChildPrcp ( strSrc, strDest, flag, autocheck ) { //* ---2007.11.12 (CP¿¡¼­ ¹Ì·¡Ã³¹æÀ» ¼öÁ¤ÇÏ´Â °æ¿ì, ó¹æ»ó¼¼ÆË¾÷¿¡¼­ ¸®ÅÏ ¹ÞÀº °ªÀÇ »óŸ¦ ¹Ù²Û´Ù) --- *// if( opener.model.getValue("/root/cp") == "D" ){ if(strSrc == "/root/reset/prcplist"){ return; }else{ if( instance1.selectSingleNode(strSrc + "/status") != null ){ model.setValue( strSrc + "/status", opener.model.getValue("/root/temp/mstatus") ); } } } //* --- End --- *// var srcNodeList = model.instances(0).selectNodes(strSrc); if ( flag == null || flag == "child" ) var destNode = opener.model.instances(0).selectSingleNode(strDest); else { var destNode = model.instances(0).selectSingleNode(strDest); } var currow = 0; for ( i=0; i < srcNodeList.length; i++ ){ if ( !isNull(autocheck)) { currow = i + 1; model.setValue ( strSrc + "[" + currow + "]/status", autocheck ); } destNode.appendChild(srcNodeList.item(i).cloneNode(true)); } } /** * @desc : ¼±ÅÃµÈ Áø´Ü¸íÀ» Áø´Ü instance¿¡ ¸ÊÇÎÇÑ´Ù. * @param : diagInfo: setValueÇÒ Áø´ÜÁ¤º¸ * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 21 * @--------------------------------------------------- */ function addDiagSetValue ( diagInfo ) { var strSrc = "/root/main/diaginfo/diagcdlist"; var pamInfoNode = "/root/paminfo/list"; var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); var orddd = ""; if ( prcpgenrflag == "O" || prcpgenrflag == "S") { orddd = model.getValue ( pamInfoNode + "/orddd" ); orddrid = model.getValue ( pamInfoNode + "/orddrid" ); } else { orddd = model.getValue ( pamInfoNode + "/indd" ); orddrid = model.getValue ( pamInfoNode + "/medispclid" ); } cretno = model.getValue ( pamInfoNode + "/cretno" ); orddeptcd = model.getValue ( pamInfoNode + "/orddeptcd" ); var diagRow = diagInfo.split ( "¢Ì" ).length; var srchRow = grd_diaglist.rows-1; var mdiagcd = model.getValue ( strSrc + "[diagkindcdflag='M']/diagcd" ); var diagkindcdflag = ""; //ÁÖºÎÀ¯Çü for ( var i = 1; i < diagRow-1 ; i++ ) { var destNode = model.instances(0).selectSingleNode( "/root/main/diaginfo" ); model.duplicate( destNode, "/root/reset/diagcdlist", "*[" + srchRow + "]"); var icd10cd = getArrayData ( diagInfo, i, 8, "¢Ì", "¢Ë" ); var diagcd = getArrayData ( diagInfo, i, 9, "¢Ì", "¢Ë" ); var diagengnm = getArrayData ( diagInfo, i, 2, "¢Ì", "¢Ë" ); var diaghngnm = getArrayData ( diagInfo, i, 3, "¢Ì", "¢Ë" ); var spclinfo = getArrayData ( diagInfo, i, 5, "¢Ì", "¢Ë" ); model.setValue ( strSrc + "[" + srchRow + "]/diagkindcdflag", "S" ); if ( isNull(mdiagcd) && i == 1) { model.setValue ( strSrc + "[" + srchRow + "]/diagkindcdflag", "M"); } else { if ( spclinfo == "Y" ) { //»êÀüƯ·Ê //»êÁ¤Æ¯·Ê ó¹æÀÌ¸é »êÀüƯ·ÊÀ̸鼭 ÁÖ»óº´ÀÌ ÀÖ´ÂÁö ã´Â´Ù. var spcmdiagcd = model.getValue ( strSrc + "[diagkindcdflag='M' and spclinfo='Y']/diagcd" ); if (isNull(spcmdiagcd)) { //°ªÀÌ ¾øÀ¸¸é ÁÖ»óº´À¸·Î ÇÒ °ÇÁö ¹°¾îº»´Ù. if ( messageBox ( "[" + icd10cd + "] »óº´Àº Ư·Ê»óº´ÀÔ´Ï´Ù. ÁÖ»óº´À¸·Î ÇϽðڽÀ´Ï±î?","Q") == "6" ) { //Çϰڴٰí Çϸé ÁÖ»óº´À¸·Î °íħ var srcNodeList = model.instances(0).selectNodes ( "/root/main/diaginfo/diagcdlist" ); for ( var j=1; j <= srcNodeList.length; j++ ) { if (srchRow == j) { model.setValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/diagkindcdflag", "M" ); } else { if (model.getValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/diagkindcdflag" )=="M") { model.setValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/diagkindcdflag", "S" ); if (model.getValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/status" ) == "-" ) { //Áø´Ü»óŰ¡ - À̸é U·Î ¼öÁ¤ÇÔ model.setValue ( "/root/main/diaginfo/diagcdlist[" + j + "]/status", "U" ); } } } } } } } } /* var dispdiagcd = getArrayData ( getParameter("diagInfo"), i, 6, "¢Ì", "¢Ë" ); var orgdiagnm = getArrayData ( getParameter("diagInfo"), i, 7, "¢Ì", "¢Ë" ); var orgdiagcd = getArrayData ( getParameter("diagInfo"), i, 8, "¢Ì", "¢Ë" ); var tootfact = getArrayData ( getParameter("diagInfo"), i, 9, "¢Ì", "¢Ë" ); */ model.setValue ( strSrc + "[" + srchRow + "]/icd10cd", icd10cd ); model.setValue ( strSrc + "[" + srchRow + "]/diagcd", diagcd ); model.setValue ( strSrc + "[" + srchRow + "]/diagengnm", diagengnm ); model.setValue ( strSrc + "[" + srchRow + "]/diaghngnm", diaghngnm ); model.setValue ( strSrc + "[" + srchRow + "]/spclinfo", spclinfo ); model.setValue ( strSrc + "[" + srchRow + "]/status", "I" ); model.setValue ( strSrc + "[" + srchRow + "]/instcd", getUserInfo("dutplceinstcd")); model.setValue ( strSrc + "[" + srchRow + "]/pid", model.getValue ( pamInfoNode + "/pid" )); model.setValue ( strSrc + "[" + srchRow + "]/orddd", orddd); model.setValue ( strSrc + "[" + srchRow + "]/cretno", cretno); model.setValue ( strSrc + "[" + srchRow + "]/orddeptcd", orddeptcd); model.setValue ( strSrc + "[" + srchRow + "]/orddrid", orddrid); model.setValue ( strSrc + "[" + srchRow + "]/genrflagcd", prcpgenrflag); model.setValue ( strSrc + "[" + srchRow + "]/diaghistcd", "O" ); model.setValue ( strSrc + "[" + srchRow + "]/diagtypecd", "D" ); model.setValue ( strSrc + "[" + srchRow + "]/diagkindcd", "C" ); model.setValue ( strSrc + "[" + srchRow + "]/anamneflag", "N" ); model.setValue ( strSrc + "[" + srchRow + "]/diagsignflag", "2" ); model.setValue ( strSrc + "[" + srchRow + "]/tootflagcd", "-" ); model.setValue ( strSrc + "[" + srchRow + "]/tootfact", "-" ); diagkindcdflag = model.getValue ( "/root/main/diaginfo/diagcdlist[" + srchRow + "]/diagkindcdflag" ); fCheckDiagHosinpPcp( icd10cd, prcpgenrflag, diagkindcdflag ); srchRow++; /**************************************** Áø´ÜÃß°¡½Ã ¿ø¿Üó¹æ¿¹¿Ü»çÀ¯ Áø´ÜÀÎÁö check ******************************/ //Ä¡½Ä »óº´ ÀÔ·Â ½Ã Ä¡½ÄÆË¾÷ ÀÚµ¿ È£Ãâ (2009.10.28 by JJE) var tootDiagFromToCd = model.getValue("/root/initsrch/tootdiagcd/trgtcd"); //ex: K01|K10 if( !isNull(tootDiagFromToCd) ){ var tootDiagFrCd = tootDiagFromToCd.split("|")[0]; var tootDiagToCd = tootDiagFromToCd.split("|")[1]; var tootDiagFrLngth = getStringLength(tootDiagFrCd); var tootDiagToLngth = getStringLength(tootDiagToCd); if(icd10cd.substring(0, tootDiagFrLngth) >= tootDiagFrCd && icd10cd.substring(0, tootDiagToLngth) <= tootDiagToCd){ fDentifmla(); } } //end Ä¡½ÄÆË¾÷ ÀÚµ¿ È£Ãâ } //°Ë»ö¶óÀÎ ÃʱâÈ­ model.setValue ( "/root/main/diaginfo/diagcdlist[" + srchRow + "]/icd10cd", "" ); model.setValue ( "/root/main/diaginfo/diagcdlist[" + srchRow + "]/diagengnm", "" ); model.refresh(); model.setfocus( "grd_diaglist" ); grd_diaglist.row = grd_diaglist.rows - 1; grd_diaglist.col = 4; } /** * @desc : Áø´ÜÃß°¡½Ã ¿ø³»Ã³¹æ¿¹¿Ü»çÀ¯°¡ ÀÖ´Â Áø´ÜÄÚµåÀÎÁö °Ë»öÈÄ(ó¹æÈ­¸éÃʱⰪ) °á°ú¿¡ µû¶ó ó¹æÈ­¸éÀÇ ¿ø³»Ã³¹æ»çÀ¯¸¦ settingÇÑ´Ù. * @ : * @param : icd10cd, prcpgenrflag * @return : void * @authur : ¸¶Á¤¹Î 2007. 9. 6 * @--------------------------------------------------- */ function fCheckDiagHosinpPcp( icd10cd, prcpgenrflag, diagkindcdflag ) { var inhospappdeptcd = model.getValue ( "/root/initsrch/inhospappdeptcd/trgtcd" ); //F»óº´¿ø³»»çÀ¯Àû¿ë ºÎ¼­:Á¤½Å°ú (2009.06.29 JJE) var inhospautoappyn = model.getValue ( "/root/initsrch/inhospautoappyn/trgtcd" ); //F»óº´¿ø³»»çÀ¯ÀÚµ¿Àû¿ë ¿©ºÎ (2009.06.29 JJE) var insukind = opener.model.getValue ( "/root/paminfo/list/insukind"); //º¸ÇèÀ¯Çü (2009.06.29 JJE) if (isNull(insukind)) insukind = model.getValue ( "/root/paminfo/list/insukind"); //º¸ÇèÀ¯Çü (2009.06.29 JJE) if ( prcpgenrflag == "O" || prcpgenrflag == "D" ) { //SON1123 DSC Åð¿øÃ³¹æ ó¸® by sonjy 20081123 if ( !isNull(model.getValue ( "/root/initsrch/diagautocnts/trgtcd" ))) { if (model.getValue ( "/root/init/hosinprcpresncd" ) == "00" ) { //¿ø³»Ã³¹æ »çÀ¯°¡ ¾øÀ» °æ¿ì var srcNodeList = model.instances(0).selectNodes( "/root/initsrch/diagautocnts" ); for ( var i=1; i <=srcNodeList.length; i++ ) { var trgtcdnmArray = model.getValue ( "/root/initsrch/diagautocnts[" + i + "]/trgtcdnm" ); var fromTrgtcdnm = getArrayData ( trgtcdnmArray + "^", 0, 0, "^", "|" ); var toTrgtcdnm = getArrayData ( trgtcdnmArray + "^", 0, 1, "^", "|" ); var cdlength = fromTrgtcdnm.length; var icd10Chck = icd10cd.substring( 0, cdlength ); if ( icd10Chck >= fromTrgtcdnm && icd10Chck <= toTrgtcdnm ) { //ÇØ´ç Áø´Ü°Ë»ö¾È¿¡ °ªÀÌ ÀÖ´Ù¸é var hosinprcpresncd = model.getValue ( "/root/initsrch/diagautocnts[" + i + "]/trgtcd" ); //¿ø³»Ã³¹æ»çÀ¯ Àû¿ë ÁÖ»óº´¸¸ °¡´É ´Ü 23Àº ºÎ»óº´µµ Àû¿ë if ( diagkindcdflag == "M" || hosinprcpresncd == "23" ) { //by sonjy 20081031 F»óº´ÀÏ °æ¿ì Áø·á°ú°¡ Á¤½Å°úÀÎ °æ¿ì¿¡ ÇÑÇØ¼­¸¸ ¿ø³»Ã³¹æ»çÀ¯ SETTINGµÇµµ·Ï. À±¿µ¿ÁITC ¿äû. start if( icd10Chck.substring( 0,1) == "F" ){ //if( model.getValue ( "/root/paminfo/list/orddeptcd" ) != "2030000000") break; if( model.getValue ( "/root/paminfo/list/orddeptcd" ) != inhospappdeptcd) break; //F»óº´À̸鼭 Áø·á°ú°¡ Á¤½Å°úÀÎÁö check (2009.06.29 JJE) if( inhospautoappyn != "Y" && (insukind != "21" && insukind != "22") ) break; //¿ø³»»çÀ¯ÀÚµ¿Àû¿ë NÀÌ¸é º¸ÇèÀ¯Çü±îÁö check - ujb¿äû (2009.06.29 JJE) } //by sonjy end model.setValue ( "/root/init/hosinprcpresncd", hosinprcpresncd); fChngHosinPrcpResn(); model.refresh(); break; //°ªÀ» setting ÇÏ¸é ºüÁ®³ª¿Â´Ù. } } //icd10cd == trgtcdnm end } //Áø´Ü°Ë»ö end // model.refresh(); } //¿ø³»Ã³¹æ »çÀ¯°¡ ¾øÀ» °æ¿ì ¿©ºÎ }//Áø´ÜÃʱⰪ ¿©ºÎ end } //¿Ü·¡end } /** * @desc : ±×·ìÄÚµå MÀÇ ½Ì±ÛÄÚµå °Ë»ö * @ : °Ë»öÈÄ ¼ö°¡ÄÚµåÀÇ ±×·ì½Ì±Û±¸ºÐÀÌ M Àϰæ¿ì´Â ±× ±×·ìÄÚµå·Î ´Ù½Ã SINGLE Äڵ带 ã¾Æ¿Â´Ù. * @param : cond1= 󹿏í, ÄÚµå¸í, ¼ººÐ¸í, old¼ö°¡ÄÚµå * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 12 * @--------------------------------------------------- */ function prcpGroupSrch ( cond1, cond3, cond4, cond5, cond6, cond99 ) { if (isNull(cond3)) { cond3 = getCurrentDate(); } if (isNull(cond4)) { cond4 = "11"; } if (isNull(cond99)) { cond99 = "getPrcpGroupInfo"; } var prcpgenrflag = opener.model.getValue ( "/root/patflag/list/prcpgenrflag" ); if ( isNull(prcpgenrflag) ) { prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" ); if ( isNull(prcpgenrflag) ) { prcpgenrflag = "-" } } model.setValue ( "/root/send/cond1", cond1 ); //󹿏í, ¼ö°¡ÄÚµå model.setValue ( "/root/send/cond2", prcpgenrflag ); //¿Ü·¡, ÀÔ¿ø, ÀÀ±Þ ±¸ºÐ model.setValue ( "/root/send/cond3", cond3 ); //ó¹æÀÏ model.setValue ( "/root/send/cond4", cond4 ); //ȯÀÚº¸ÇèÀ¯Çü model.setValue ( "/root/send/cond5", cond5 ); //Áø´Ü°Ë»ç ±×·ìó¹æÀÏ ¶§ °ËüÄÚµåÁ¤º¸ model.setValue ( "/root/send/cond6", cond6 ); //Áø´Ü°Ë»ç °Ë»çºÐ·ùÀ¯Çü model.setValue ( "/root/send/cond99", cond99 ); submit( "TRMMO00101", false ); // 20090721 ÇÑÀç»ó ¼öÁ¤. m-setÁß Æ¯Á¤ signleÄÚµåÀÇ default ±Þºñº¯°æ. var grupSrc = "/root/prcpgroup/prcplist"; var srcNodeList = model.instances(0).selectNodes( grupSrc ); var msetpfcspec = model.getValue("/root/initsrch/msetpayflagcd/trgtcd"); if ( msetpfcspec == "" ) { msetpfcspec = opener.model.getValue("/root/initsrch/msetpayflagcd/trgtcd"); } var msetpfcsplit = msetpfcspec.split("^"); for (var i=1; i<=srcNodeList.length; i++) { for (var j=0; j < msetpfcsplit.length-1; j++) { var msetpfcitem = msetpfcsplit[j].split("|"); if ( msetpfcitem[j] == model.getValue(grupSrc+"["+i+"]/prcpcd") ) { model.setValue(grupSrc+"["+i+"]/payflagcd", msetpfcitem[1]); } } } } /** * @desc : Áö½Ãó¹æ JÀÇ ½Ì±ÛÄÚµå °Ë»ö * @ : °Ë»öÈÄ ¼ö°¡ÄÚµåÀÇ ±×·ì½Ì±Û±¸ºÐÀÌ M Àϰæ¿ì´Â ±× ±×·ìÄÚµå·Î ´Ù½Ã SINGLE Äڵ带 ã¾Æ¿Â´Ù. * @param : cond1= 󹿏í, ÄÚµå¸í, ¼ººÐ¸í, old¼ö°¡ÄÚµå * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 12 * @--------------------------------------------------- */ function prcpDirecSrch( cond1, cond3, cond4, cond5 ) { if (isNull(cond3)) { cond3 = getCurrentDate(); } if (isNull(cond4)) { cond4 = "11"; } model.setValue ( "/root/send/cond1", cond1 ); //󹿏í, ¼ö°¡ÄÚµå model.setValue ( "/root/send/cond2", "-" ); //¿Ü·¡, ÀÔ¿ø, ÀÀ±Þ ±¸ºÐ model.setValue ( "/root/send/cond3", cond3 ); //ó¹æÀÏ model.setValue ( "/root/send/cond4", cond4 ); //ȯÀÚº¸ÇèÀ¯Çü model.setValue ( "/root/send/cond5", cond5 ); model.setValue ( "/root/send/cond99", "getDirecGroupInfo" ); //ȯÀÚº¸ÇèÀ¯Çü submit( "TRMMO00102" , false ); } /** * @desc : 󹿳»¿ª¸¸µé±â * @param : strSrc: source Node : from: ½ÃÀÛ row : to: ³¡ row * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 16 */ function makePrcpNm ( strSrc, from, to ) { var i = from; if ( model.getValue ( strSrc + "[" + i + "]/status" ) == "S" ) return; if ( model.getValue ( strSrc + "[" + i + "]/prcpflag" ) == "2" ) return; var prcpnmbf = ""; var prcpnmaft = ""; var opansflagcd = ""; var prcpclscd = model.getValue ( strSrc + "[" + i + "]/prcpclscd" ); //ó¹æÁ¾·ù var prcpcd = model.getValue ( strSrc + "[" + i + "]/prcpcd" ); //ó¹æÄÚµå var prcpnm = model.getValue ( strSrc + "[" + i + "]/orgprcpnm" ); //󹿏í var clincstdyflag = model.getValue ( strSrc + "[" + i + "]/clincstdyflag" ); //Àӻ󿬱¸ var erprcpflag = model.getValue ( strSrc + "[" + i + "]/erprcpflag" ); //ÀÀ±Þ±¸ºÐ var prnprcpflag = model.getValue ( strSrc + "[" + i + "]/prnprcpflag" ); //prn var prepprcpflag = model.getValue ( strSrc + "[" + i + "]/prepprcpflag" ); //prep var selfdrugflag = model.getValue ( strSrc + "[" + i + "]/selfdrugflag" ); //self var powdflag = model.getValue ( strSrc + "[" + i + "]/powdflag" ); //powder var drugspd = model.getValue ( strSrc + "[" + i + "]/drugspd" ); //gtt var tnsfiltflag = model.getValue ( strSrc + "[" + i + "]/tnsfiltflag" ); //filter var portprcpflag = model.getValue ( strSrc + "[" + i + "]/portprcpflag" ); //portprcpflag //¼ö¼úÀ¯Çü, ÀçȰġ·áºÎÀ§ if ( prcpclscd == "F2" ) { var rehbprcpcurepartcd = model.getValue ( strSrc + "[" + i + "]/rehbprcpcurepartcd" ); if ( rehbprcpcurepartcd != "-" && !isNull(rehbprcpcurepartcd)) { opansflagcd = model.getValue ( "/root/init/rehbprcpcurepartcd/M0046[cdid=" + rehbprcpcurepartcd + "]/cdnm" ); } } else if ( prcpclscd == "H2" || prcpclscd == "K2" ) { opansflagcd = model.getValue ( strSrc + "[" + i + "]/opansflagcd" ); if ( opansflagcd != "-" && !isNull(opansflagcd)) { opansflagcd = model.getValue ( "/root/init/opansflagcd/M0007[cdid=" + opansflagcd + "]/cdnm" ); } } var dietprcpgenrflag = model.getValue ( strSrc + "[" + i + "]/dietprcpgenrflag" ); //Á¶/Áß/¼® var mealcalrcnts = model.getValue ( strSrc + "[" + i + "]/mealcalrcnts" ); //¿­·® var mealprotcnts = model.getValue ( strSrc + "[" + i + "]/mealprotcnts" ); //´Ü¹éÁú var prcpdelivefact = model.getValue ( strSrc + "[" + i + "]/prcpdelivefact" ); //Àü´Þ»çÇ× var ansttm = model.getValue ( strSrc + "[" + i + "]/prcprefseq" ); //°Ë»ç°£°Ý var drugspd = model.getValue ( strSrc + "[" + i + "]/drugspd" ); //±âº»½Ã°£ var trnptbftestflag = model.getValue ( strSrc + "[" + i + "]/trnptbftestflag" ); var prcptims = model.getValue ( strSrc + "[" + i + "]/prcptims" ); //Ä¡·áȽ¼ö var prcpdayno = model.getValue ( strSrc + "[" + i + "]/prcpdayno" ); //Ä¡·áÀϼö var etcprcpresncd = model.getValue ( strSrc + "[" + i + "]/etcprcpresncd" ); //¸¶°¨ÀÏ var irflag = model.getValue ( strSrc + "[" + i + "]/irflag" ); //ÇÊÅÍ var precureprcpflag = model.getValue ( strSrc + "[" + i + "]/precureprcpflag" ); //¼±Ã³Ä¡ var selfprcpflag = model.getValue ( strSrc + "[" + i + "]/selfprcpflag" ); //ÀÚ°¡ var prcpkindcd = model.getValue ( strSrc + "[" + i + "]/prcpkindcd" ); //ó¹æÁ¾·ù var hsctdelivepos = model.getValue ( strSrc + "[" + i + "]/hsctdelivepos" ); //hsctÀü´ÞºÎ¼­ var rehbprcpenddd = model.getValue ( strSrc + "[" + i + "]/rehbprcpenddd" ); //ÀçȰġ·á ¸¶°¨ÀÏ var fasttrackflag = model.getValue ( strSrc + "[" + i + "]/fasttrackflag" ); //FastTrackFlag var drprcpetc11 = model.getValue ( strSrc + "[" + i + "]/drprcpetc11" ); //Á¦2½Ã¼ú var drprcpetc12 = model.getValue ( strSrc + "[" + i + "]/drprcpetc12" ); //F/U var prcpmixno = model.getValue ( strSrc + "[" + i + "]/prcpmixno" ); //ó¹æ Mix¹øÈ£ var cnt = 0; if ( erprcpflag == "Y") prcpnmbf = prcpnmbf + "[ÀÀ±Þ] "; if ( fasttrackflag == "Y") prcpnmbf = prcpnmbf + "[FT] "; if ( clincstdyflag == "Y") prcpnmbf = prcpnmbf + "[ÀÓ»ó] "; if ( precureprcpflag == "Y") prcpnmbf = prcpnmbf + "[¼±] "; if ( drprcpetc11 == "Y") prcpnmbf = prcpnmbf + "[Á¦2½Ã¼ú] "; if ( drprcpetc12 == "Y") prcpnmbf = prcpnmbf + "[F/U] "; if ( prcpclscd == "A2" || prcpclscd == "A4" ) {//¾à if ( prnprcpflag == "Y") prcpnmbf = prcpnmbf + "[prn] "; if ( prepprcpflag == "Y") prcpnmbf = prcpnmbf + "[prep] "; if ( selfprcpflag == "Y") prcpnmbf = prcpnmbf + "[home] "; if ( selfdrugflag == "Y") prcpnmbf = prcpnmbf + "[self] "; prcpnm = prcpnmbf + prcpnm; if ( powdflag == "Y") prcpnm = prcpnm + "[powder] "; } else if ( prcpclscd == "A6" ) { //ÁÖ»ç if ( prnprcpflag == "Y") prcpnmbf = prcpnmbf + "[prn] "; if ( prepprcpflag == "Y") prcpnmbf = prcpnmbf + "[prep] "; if ( selfprcpflag == "Y") prcpnmbf = prcpnmbf + "[home] "; if ( selfdrugflag == "Y") prcpnmbf = prcpnmbf + "[self] "; // ÁÖ»çÀ϶§µµ ¼¿ÇÁ Ç¥½Ã 2013.07.10 ¾ö¿µ¸¸ //if ( !isNull(prcpmixno) && prcpmixno != "-" && prcpmixno != "0") prcpnmbf = prcpnmbf + "(" + prcpmixno + ") "; // Mix ¹øÈ£ Ç¥½Ã 2018.04.17 ¾ö¿µ¸¸ prcpnm = prcpnmbf + prcpnm; if ( drugspd != "0" && drugspd != "" ) { var drugspdunitflag = model.getValue ( strSrc + "[" + i + "]/drugspdunitflag" ); //Åõ¿©¼Óµµ if ( drugspdunitflag != "-" && !isNull(drugspdunitflag)) { drugspdunitflag = model.getValue ( "/root/init/M0040/M0040[cdid=" + drugspdunitflag + "]/cdnm" ); } else { drugspdunitflag = ""; } prcpnm = prcpnm + " [" + drugspd + drugspdunitflag + "] "; } } else if ( prcpclscd == "D2" ) { //º´¸® if ( prnprcpflag == "Y") prcpnmbf = prcpnmbf + "[prn] "; prcpnm = prcpnmbf + prcpnm; } else if ( prcpclscd == "B4" ) { //¼öÇ÷ (Ç÷¾×¼öÇ÷) if ( prepprcpflag == "Y") prcpnmbf = prcpnmbf + "[prep] "; prcpnm = prcpnmbf + prcpnm; if ( tnsfiltflag == "Y") prcpnm = prcpnm + "[Filter] "; if ( irflag == "Y") prcpnm = prcpnm + "[Irr] "; } else if ( prcpclscd == "C2" || prcpclscd == "C6" || prcpclscd == "E2" || prcpclscd == "G2") { //¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó, ¹æ»ç¼±Ä¡·á) if ( prepprcpflag == "Y") prcpnmbf = prcpnmbf + "[prep] "; if ( portprcpflag == "Y") prcpnmbf = prcpnmbf + "[por] "; if ( prnprcpflag == "Y") prcpnmbf = prcpnmbf + "[prn] "; prcpnm = prcpnmbf + prcpnm; } else if ( prcpclscd == "H2" || prcpclscd == "H4" || prcpclscd == "K2" || prcpclscd == "C4" ) { //¼ö¼ú, óġ, Ä¡°ú prcpnm = prcpnmbf + prcpnm; if ( opansflagcd != "" && opansflagcd != "-") prcpnm = prcpnm + " [" + opansflagcd + "] "; //¼ö¼ú¸¶Ã뱸ºÐ-¼ö¼úÀ¯Çü } else if ( prcpclscd == "B2" || prcpclscd == "B6" ) { //Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü¿Ü if ( prnprcpflag == "Y") prcpnmbf = prcpnmbf + "[prn] "; prcpnm = prcpnmbf + prcpnm; } else if ( prcpclscd == "03" ) {//½ÄÀÌ if ( dietprcpgenrflag == "1") prcpnmbf = prcpnmbf + "[Á¶½Ä] "; if ( dietprcpgenrflag == "2") prcpnmbf = prcpnmbf + "[Áß½Ä] "; if ( dietprcpgenrflag == "3") prcpnmbf = prcpnmbf + "[¼®½Ä] "; prcpnm = prcpnmbf + prcpnm; if ( mealcalrcnts != "" && mealcalrcnts != "0" ) prcpnm = prcpnm + "[" + opansflagcd + ":" + mealcalrcnts + "] "; var drugmastspec = model.getValue ( strSrc + "[" + i + "]/drugmastspec" ) + "¢Ì"; var mealprotcntscond = getArrayData (drugmastspec, 0, 3, " ¢Ì", "|" ); if ( mealprotcnts != "" && mealprotcntscond == "Y" ) prcpnm = prcpnm + "[Ƚ¼ö:" + mealprotcnts + "] "; } else if ( prcpclscd == "F2" ) { //ÀçȰ prcpnm = prcpnmbf + prcpnm; if("HZ272" != prcpcd ) { // ¿äû¹øÈ£ 20140422010 ¿Â¿­¾Ï Ä¡·á´Â ÀçȰǥ±â µû¸£Áö ¾ÊÀ½. ½ºÅ©¸³Æ® ÇÔ¼öµµ °°ÀÌ ¼öÁ¤. 2014.04.23 ¾ö¿µ¸¸ if ( opansflagcd != "" && opansflagcd != "-") { prcpnmaft = prcpnmaft + " " + opansflagcd + " "; cnt++; } if ( prcptims != "" && prcptims != 0 ) { prcpnmaft = prcpnmaft + " " + prcptims + "/1ÀÏ "; cnt++; } if ( cnt > 0 ) { prcpnm = prcpnm + " [" + prcpnmaft + "]"; } } } else { prcpnm = prcpnmbf + prcpnm; } if ( trnptbftestflag == "Y") { prcpnm = prcpnm + " [pre-workup]"; } else if ( trnptbftestflag == "D") { prcpnm = prcpnm + " [donor w/u]"; } if ( prcpkindcd == "90") prcpnm = prcpnm + " [ÀÔ¿øÀü°Ë»ç(´çÀÏ)] "; if ( prcpkindcd == "95") prcpnm = prcpnm + " [ÀÔ¿øÀü°Ë»ç(ÀüÀÏ)] "; if ( prcpkindcd == "80") prcpnm = prcpnm + " [¿¹¾àó¹æ] "; if ( hsctdelivepos == "1") prcpnm = prcpnm + " [º´µ¿]"; else if ( hsctdelivepos == "2") prcpnm = prcpnm + " [¼ººÐÇåÇ÷]"; else if ( hsctdelivepos == "3") prcpnm = prcpnm + " [¼¼Æ÷󸮽Ç]"; if ( model.getValue ( strSrc + "[" + i + "]/drprcpetc2" ) == "Y" ) { // Ư¼öÁÖ»ç½Ç üũ Ãß°¡ ¿äû 20081027 by Moonsh prcpnm = prcpnm + " [¾Ï¼¾ÅÍÁÖ»ç½Ç] "; } else if ( model.getValue ( strSrc + "[" + i + "]/drprcpetc2" ) == "B" ) { prcpnm = prcpnm + " [BMTÁÖ»ç½Ç] "; } model.setValue ( strSrc + "[" + i + "]/prcpnm", prcpnm ); model.setValue ( strSrc + "[" + i + "]/prcprefseq","0" ); } /** * @desc : ÁöÁ¤ÀÏÀÚ(¿¬¼Óó¹æ)ó¸® * @param : grdObj: DataGrid : prcpNode: °ªÀ» ¼¼ÆÃÇÒ node : flag: main ÀÎÁö child ÀÎÁö : endFlag: ¸¶°¨ÀÏ ÁöÁ¤À» ÇÒÁö¿©ºÎ * @return : void * @authur : ¸¶Á¤¹Î 2007. 4. 30 * @--------------------------------------------------- */ function fContPrcpDd( grdObj, prcpNode, flag, endFlag ) { //1. °ú°ÅÀÏÀÚ ºÒ°¡(´Þ·Â¿¡¼­ ¸·À½) //2. ¿À´Ã³¯Â¥ ó¹æÀÌ ¾Æ´Ò¶§ ÇØ´õ»ý¼º //3. 2°³ÀÌ»ó»ý¼º½Ã ÇØ´õ»ý¼º //4. ¿Ü·¡¿¡¼­¸¸ »ç¿ë //5. »óÅÂ|ActingÁø·áÀÏÀÚ|½Ç½Ã󹿻óÅÂÄÚµå|ó¹æÀÏÀÚ|½Ç½Ã󹿹øÈ£^ var status = ""; var actordd = ""; var prcpdd = ""; var execprcpstatcd = ""; var execprcpno = ""; var curRow = ""; var contPrcpSpec = ""; var contPrcpSpecArray1; var contPrcpSpecArray2; var prcpPKSpecArray; var reqparm = ""; if ( grdObj == null ) grdObj = grd_prcplist; //°ªÀÌ ¾øÀ¸¸é ¸ÞÀÎÀÇ ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ if ( isNull(prcpNode)) prcpNode = "/root/main/prcp/prcplist"; //°ªÀÌ ¾øÀ¸¸é ¸ÞÀÎÀÇ ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ //¿Ü·¡Áø·áÀÏÀÚ if ( flag == "child" ) { if ( opener.model.getValue ( "/root/patflag/list/prcpgenrflag" ) != "O" ) { messageBox ( "ÁöÁ¤ÀÏÀº ¿Ü·¡¿¡¼­¸¸ »ç¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.", "E" ); return; } prcpdd = opener.model.getValue ( "/root/paminfo/list/orddd" ); //°ªÀÌ ¾øÀ¸¸é ¸ÞÀÎÀÇ ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ } else { if ( model.getValue ( "/root/patflag/list/prcpgenrflag" ) != "O" ) { messageBox ( "ÁöÁ¤ÀÏÀº ¿Ü·¡¿¡¼­¸¸ »ç¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.", "E" ); return; } prcpdd = model.getValue ( "/root/paminfo/list/orddd" ); } if ( model.getValue ( prcpNode + "[" + grdObj.row + "]/prcpclscd" ) != "A6" && model.getValue ( prcpNode + "[" + grdObj.row + "]/prcpclscd" ) != "F2" ) { messageBox ( "ÁöÁ¤ÀÏ »ç¿ëÇÏ½Ç ¼ö ¾ø´Â ó¹æÀÔ´Ï´Ù.", "E" ); return; } setParameter ("paramcalflag", "multi"); setParameter ("defaultday", prcpdd); var selectedRows = 0; if ( grdObj.selectionMode != "list" ) { selectedRows = grdObj.row; } else { selectedRows = grdObj.selectedRows; } for (var i=0; i