/** * @desc : È­¸é ÃʱâÈ­ * @ * @param : * @return : * @author : * @--------------------------------------------------- */ function fInitialize(){ //»ç¿ëÀÚ Á¤º¸°¡ ¾øÀ¸¸é ´Ý±â fGetPatInfo(); //°ª ÃʱâÈ­ fValueInit(); mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept", ""); model.makeValue("/root/main/recinfo/recitem/CI080002", getUserInfo("dutplcecd")); model.makeValue("/root/main/recinfo/recitem/CI080003", getUserInfo("usernm")); model.refresh(); } function fValueInit(){ for(var i=4; i<=22; i++){ if(i<10){ model.setValue("/root/main/recinfo/recitem/CI08000"+i, "1"); }else{ if(i==19){ model.setValue("/root/main/recinfo/recitem/CI0800"+i, ""); }else{ model.setValue("/root/main/recinfo/recitem/CI0800"+i, "1"); } } } } /** * ¼±ÅÃÇÑ È¯ÀÚ Á¤º¸ ¼³Á¤ */ function fGetPatInfo() { var node = getGlobalVariable("paminfo"); setCSVToNode("/root/main/session/paminfo", node); if (model.getValue("/root/main/session/paminfo/list/pid") == "") { messageBox("ȯÀÚ¸¦ ¼±ÅÃÇÏÁö", "E007"); model.close(); } else { var chosflag=model.getValue("/root/main/session/paminfo/list/ioflag"); model.makeValue("/root/main/recinfo/patinfo/instcd", model.getValue("/root/main/session/paminfo/list/instcd")); model.makeValue("/root/main/recinfo/patinfo/pid", model.getValue("/root/main/session/paminfo/list/pid")); model.makeValue("/root/main/recinfo/patinfo/hngnm", model.getValue("/root/main/session/paminfo/list/hngnm")); model.makeValue("/root/main/recinfo/patinfo/sage", model.getValue("/root/main/session/paminfo/list/sex")+"/"+model.getValue("/root/main/session/paminfo/list/age")); if(chosflag=="O"|| chosflag=="S"){ model.makeValue("/root/main/recinfo/patinfo/orddd", model.getValue("/root/main/session/paminfo/list/orddd")); }else{ model.makeValue("/root/main/recinfo/patinfo/orddd", model.getValue("/root/main/session/paminfo/list/indd")); } model.makeValue("/root/main/recinfo/patinfo/cretno", model.getValue("/root/main/session/paminfo/list/cretno")); model.makeValue("/root/main/recinfo/patinfo/chosflag", chosflag); model.makeValue("/root/main/recinfo/patinfo/orddeptcd", model.getValue("/root/main/session/paminfo/list/orddeptcd")); model.makeValue("/root/main/recinfo/patinfo/recflag", "CI08"); model.makeValue("/root/main/recinfo/recitem/CI080001", getCurrentDate()); model.copyNode("/root/send/reqdata/patinfo", "/root/main/recinfo/patinfo"); submit("TRADB71001"); } } /** * ¿ø¹« Á¤º¸ º¯°æ */ function fChangePatInfo(){ var temp=model.getValue("/root/temp/chemotitle").split("|"); model.setValue("/root/main/recinfo/patinfo/orddd", temp[2]); model.setValue("/root/main/recinfo/patinfo/cretno", temp[3]); model.setValue("/root/main/recinfo/patinfo/chosflag", temp[4]); model.makeValue("/root/main/recinfo/patinfo/writeyn", temp[5]); model.refresh(); } /** * Á¤º¸ÀúÀå */ function fsave(){ if(model.getValue("/root/temp/chemotitle")==null || model.getValue("/root/temp/chemotitle")==""){ messageBox("Ç×¾ÏÇÁ·ÎÅäÄÝ ¼öÁøÀÌ·ÂÀ» ¼±Åà ÈÄ ÁøÇàÇÏ¿© ÁֽʽÿÀ", "I", ""); return; } var savedata = "instcd¢Ëpid¢Ëorddd¢Ëcretno¢Ëchosflag¢Ërecflag¢Ëwriteyn¢Ëitemcd¢Ëitemval1¢Ëfstrgstrid¢Ëlastupdtrid¢Ì"; var datastring=""; for(var i=1; i<=22; i++){ if(i<10){ datastring=datastring+model.getValue("/root/main/recinfo/patinfo/instcd") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/pid") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/orddd") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/cretno") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/chosflag") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/recflag") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/writeyn") +"¢Ë" + "CI08000"+i+"¢Ë" + model.getValue("/root/main/recinfo/recitem/CI08000"+i) +"¢Ë" + getUserInfo("userid")+"¢Ë" + getUserInfo("userid")+"¢Ì"; }else{ datastring=datastring+model.getValue("/root/main/recinfo/patinfo/instcd") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/pid") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/orddd") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/cretno") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/chosflag") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/recflag") +"¢Ë" + model.getValue("/root/main/recinfo/patinfo/writeyn") +"¢Ë" + "CI0800"+i+"¢Ë" + model.getValue("/root/main/recinfo/recitem/CI0800"+i) +"¢Ë" + getUserInfo("userid")+"¢Ë" + getUserInfo("userid")+"¢Ì"; } } model.removenode("/root/send/savedata"); model.makeValue("/root/send/savedata", savedata + datastring); if(submit("TXADB71002")){ messageBox("ÀúÀåµÇ¾ú½À´Ï´Ù","I", ""); model.close(); } } /** * ȯÀÚ ±â·Ï °Ë»ö */ function fSearchRecItem(){ model.copyNode("/root/send/reqdata/patinfo", "/root/main/recinfo/patinfo"); if(submit("TRADB71003")){ var count =getNodesetCnt(model, "/root/temp/recdata"); if(count > 0){ for(var i=1; i<=22; i++){ if(i<10){ model.makeValue("/root/main/recinfo/recitem/CI08000"+i, model.getValue("/root/temp/recdata[itemcd='CI08000"+i+"']/itemval1")); }else{ model.makeValue("/root/main/recinfo/recitem/CI0800"+i, model.getValue("/root/temp/recdata[itemcd='CI0800"+i+"']/itemval1")); } } }else{ fValueInit(); fChangePatInfo(); } } model.refresh(); }