// Edited by nj 2007-07-27 À̹ÌÁö pathÀ» 1depth·Î ÁöÁ¤
//var gv_ImgeSavePath = "C:\\Temp\\BCP\\OCR_Image\\";
//-- 20130418 ±èµ¿ÁØ start(html ´Ù¿î·Îµå½Ã º»¿ø°ú Ä¥°î ºÐ±â)
/* ÀüÀÚµ¿ÀǼ ¿ÀÇ½à ¿¡·¯¶°¼ ÀÓ½ÃÀûÀ¸·Î ¸·¾Æ ³õÀ½ getUserInfo("dutplceinstcd")¿¡¼ ¿¡·¯¶ä
var gv_Instcd = getUserInfo("dutplceinstcd");
var gv_ImgeSavePath = "C:\\BCP_OCR_Image" + gv_Instcd + "\\";
*/
var gv_ImgeSavePath = "C:\\BCP_OCR_Image\\";
//-- 20130418 ±èµ¿ÁØ end
// Edited by nj 2007-07-27 ȯ°æÆÄÀÏÀ» ÇöÀç xrwÆÄÀÏ À§Ä¡·Î º¯°æ
//var gv_BCPINIPath = "BCP\\INI\\";
var gv_BCPINIPath = document.location;
var gv_Logo_ImgePath = "../../../com/commonweb/images";
var gTimerID;
var gocrprntyn = "Y";
/**
* @desc : OCR µ¥ÀÌŸ Á¤º¸ Á¶È¸ ÈÄ ÆÄÀϼ¼ÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fGetOCRInfo(formcd, pid, orddd, cretno, ordtype, formtypecls, ocrtagprntyn, ocrtag){
//model.addlog("fGetOCRInfo: " + formcd + "," + pid + "," + orddd + "," + cretno + "," + ordtype + "," + formtypecls + "," + ocrtagprntyn + "," + ocrtag);
var instance = document.models(0).instances(0);
var nodelist = null;
var localfilenm = null;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var img_size = "";
var para = false;
var errFlag = false;
if(formtypecls == '1'){
rdo_diagopnm.visible = true;
ipt_diagnm.visible = true;
} else if(formtypecls == '2'){
rdo_diagopnm.visible = true;
ipt_diagnm.visible = true;
//ipt_diagnm.value = "Å×½ºÆ®";
rdo_diagopnm.select(0);
} else if((formtypecls == '3') || (formtypecls == '4') || (formtypecls == '5')){
rdo_diagopnm.visible = false;
ipt_diagnm.visible = false;
}
model.removeNodeset("/root/hidden");
if((pid != null) && (orddd != null) && (cretno != null) && (ordtype != null)){
model.makeValue("/root/hidden/parentflag", "ETC");
} else if((pid == null) && (orddd == null) && (cretno == null) && (ordtype == null)){
model.makeValue("/root/hidden/parentflag", "PRNT");
} else {
messageBox("¿ø¹«Á¢¼ö Á¤º¸°¡", "I004");
return;
}
model.makeValue("/root/main/forminfo/formcd", formcd);
// model.setValue("/root/main/forminfo/formfromdt", formfromdt);
model.makeValue("/root/main/forminfo/formtypecls", formtypecls);
// 20090715 ocrtagprntyn °ª Ãß°¡ nj
model.makeValue("/root/main/forminfo/ocrtagprntyn", ocrtagprntyn);
model.removeNodeset("/root/send/reqdata");
model.makeValue("/root/send/reqdata/formcd", formcd);
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
model.makeValue("/root/send/reqdata/pid", parent.model.getValue("/root/main/ordinfo/pid"));
} else {
model.makeValue("/root/send/reqdata/pid", pid);
}
model.makeValue("/root/send/reqdata/ocrtag", ocrtag);
if(submit("TRMRF03801")){
var ocrimgcnt = getNodesetCount("/root/main/ocrinfo/ocrlist");
if(ocrimgcnt == 0){
var check = parent.window.javaScript.getParameter("SPMRF01100");
if ( check == "Y" )
{
messageBox("¿¬°áµÈ ¼½ÄÀÌ Á¸ÀçÇÏÁö", "I011");
}
else
{
messageBox("OCR·Î Ãâ·ÂÇÒ ¼ö ¾ø´Â ¼½Ä", "E008");
}
return;
}
else {
//20170623 ÀÌÀ±ÁÖ ¼öÁ¤
var formtypecls = model.getValue("/root/main/ocrinfo/ocrlist/formtypecls");
if (formtypecls == "7" || formtypecls == "8") {
messageBox("Ãâ·ÂÇÒ ¼ö ¾ø´Â ¼½ÄÀÔ´Ï´Ù Ku2.0¿¡¼ ÀÛ¾÷ÇϽñ⠹ٶø´Ï´Ù.","I");
return;
}
}
} else {
messageBox("OCR µ¥ÀÌÅÍ Á¶È¸¸¦", "E009");
return;
}
/** fFolderSet(path, flag)
* path¿¡ ÇØ´çÇÏ´Â Æú´õ¸¦ local¿¡ »ý¼º
* path´Â À̹ÌÁö°¡ ÀúÀåµÉ path
* flag´Â ÇØ´ç Æú´õÀÇ fileÀ» »èÁ¦ ¿©ºÎ¸¦ ³ªÅ¸³¿
* flag: "D"ÀÌ¸é »èÁ¦ °ªÀ» ÁÖÁö ¾ÊÀ¸¸é »èÁ¦ÇÏÁö ¾ÊÀ½
*/
fFolderSet(gv_ImgeSavePath, "D");
nodelist = instance.selectNodes("/root/main/ocrinfo/ocrlist");
model.makeValue("/root/main/ocrinfo/ocrdatacnt", nodelist.length);
FileCount:
for(var i = 0; i < nodelist.length; i++){
fGetOCRData(i+1);
var img_file = fso.GetFile(gv_ImgeSavePath+model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm"));
var timeOut = getCurrentDateTime();
timeOut = timeOut.replace(" ", "");
timeOut = parseInt(timeOut) + 5;
FileSize:
while(true){
img_size = img_file.size;
var currDate = getCurrentDateTime();
currDate = currDate.replace(" ", "");
currDate = parseInt(currDate);
if(timeOut < currDate){
errFlag = true;
break FileCount;
}
if(fso.FileExists(gv_ImgeSavePath+model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm"))
&& (img_size == model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilesize"))){
break FileSize;
}
}
}
if(errFlag){
messageBox("ÆÄÀÏ ´Ù¿î·Îµå¸¦", "E009");
return;
}
/* Edited by nj 2007-07-27 CurrentDirectoryÀ» »ç¿ëÇÏÁö ¾ÊÀ½ */
if(model.getValue("/root/hidden/parentflag") == "ETC"){
model.makeValue("/root/send/reqdata/pid", pid);
model.makeValue("/root/send/reqdata/orddd", orddd);
model.makeValue("/root/send/reqdata/cretno", cretno);
model.makeValue("/root/send/reqdata/ordtype", ordtype);
model.makeValue("/root/send/reqdata/ocrtag", ocrtag);
if(submit("TRMRF03803")){
var rrgstno = model.getValue("/root/main/patinfo/items/rrgstno").substring(0, 8) + "XXXXXX";
model.makeValue("/root/main/patinfo/items/rrgstno", rrgstno);
/*
var sainfo = model.getValue("/root/main/patinfo/items/sa");
if(sainfo.indexOf("M") >= 0){
model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-1XXXXXX");
} else if(sainfo.indexOf("F") >= 0){
model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-2XXXXXX");
}
*/
}
}
model.makeValue("/root/main/ocrinfo/currentpage", "1");
model.makeValue("/root/main/ocrinfo/doubcnt", "1");
opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
/** Edited by nj 2007-08-28 Ãâ·Â ¼½ÄÀÌ 5°³ Á¾·ù·Î ³ª´¸
* TYPE1: ȯÀÚÁ¤º¸+Áø´Ü¸í/¼ö¼ú¸í+º»¹®
* TYPE2: ȯÀÚÁ¤º¸+Áø´Ü¸í+º»¹®
* TYPE3: ȯÀÚÁ¤º¸+º»¹®
* TYPE4: ȯÀÚÁ¤º¸+º»¹®(OMR)
* TYPE5: º»¹®(DSC)
* TYPE6: ȯÀÚÁ¤º¸+º»¹® ( 2013.08.21 cyw )
*/
fInitCreateHtml(); //Footer ¹× Header Á¤º¸»ý¼º
fBaseCreateHtml(formtypecls); //Typeº° Á¤º¸¼ÂÆÃ
fChartCreateHtml(formtypecls,formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn); //OCRÆÄÀÏÁ¤º¸ »ý¼º.
if(model.getValue("/root/main/ocrinfo/ocrdatacnt") == model.getValue("/root/main/ocrinfo/currentpage")){
btn_postpage.disabled = true;
btn_prepage.disabled = true;
} else {
btn_postpage.disabled = false;
btn_prepage.disabled = true;
}
//2013/03/29 Start
model.makeValue("/root/main/ocrinfo/ocrtag/tag", ocrtag);
//2013/03/29 End
model.refresh();
}
function fChartCreateHtml(formtypecls,formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn)
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
if(fso.FileExists(gv_ImgeSavePath + "chart1.html") == true)
{
fso.DeleteFile(gv_ImgeSavePath + "chart*.html", true)
}
// ȯÀÚÁ¤º¸
var getdate = "";
var barcode= "";
var pidinfo = "";
var patnminfo = "";
var prnt_patnminfo ="";
var sa = "";
var barcode_pid = parent.model.getValue("/root/main/ordinfo/pid");
if( formtypecls != "6" ){
if( ocrtag == "" || ocrtag == null){
ocrtag = "+2012123456789+";
barcode = "*2012123456789*";
}else if( ocrtag == "N" ){
}else{
ocrtag = "+" + ocrtag + "+";
barcode = "*" + ocrtag + "*";
}
}else{
if( ocrtag == "" || ocrtag == null){
ocrtag = "+2012123456789+";
barcode = "*" + barcode_pid + "*";
}else if( ocrtag == "N" ){
}else{
ocrtag = "+" + ocrtag + "+";
barcode = "*" + barcode_pid + "*";
}
}
//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
var pInstcd = parent.model.getValue("/root/main/ordinfo/instcd");
if(pInstcd ==""){
pInstcd =getUserInfo("dutplceinstcd");
}
//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
//f_View.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+pInstcd+".jpg");
if(model.getValue("/root/hidden/parentflag") == "ETC"){
pidinfo = model.getValue("/root/main/patinfo/items/pid");
patnminfo = model.getValue("/root/main/patinfo/items/patnm");
model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno"));
model.makeValue("/root/main/patinfo/items/centcd", model.getValue("/root/main/patinfo/items/centcd"));
model.makeValue("/root/main/patinfo/items/centnm", model.getValue("/root/main/patinfo/items/centnm"));
model.makeValue("/root/main/patinfo/items/centengabbr", model.getValue("/root/main/patinfo/items/centengabbr"));
} else if (model.getValue("/root/hidden/parentflag") == "PRNT"){
pidinfo = parent.model.getValue("/root/main/ordinfo/pid");
patnminfo = parent.model.getValue("/root/main/ordinfo/patnm");
sa = parent.model.getValue("/root/main/ordinfo/sa");
model.makeValue("/root/main/patinfo/items/pid", parent.model.getValue("/root/main/ordinfo/pid"));
model.makeValue("/root/main/patinfo/items/orddd", parent.model.getValue("/root/main/ordinfo/orddd"));
model.makeValue("/root/main/patinfo/items/ordtype", parent.model.getValue("/root/main/ordinfo/ordtype"));
model.makeValue("/root/main/patinfo/items/orddeptcd", parent.model.getValue("/root/main/ordinfo/orddeptcd"));
model.makeValue("/root/main/patinfo/items/patnm", parent.model.getValue("/root/main/ordinfo/patnm"));
model.makeValue("/root/main/patinfo/items/orddeptnm", parent.model.getValue("/root/main/ordinfo/orddeptnm"));
model.makeValue("/root/main/patinfo/items/drid", parent.model.getValue("/root/main/ordinfo/drid"));
model.makeValue("/root/main/patinfo/items/drnm", parent.model.getValue("/root/main/ordinfo/drnm"));
model.makeValue("/root/main/patinfo/items/sa", parent.model.getValue("/root/main/ordinfo/sa"));
model.makeValue("/root/main/patinfo/items/inroomcd", parent.model.getValue("/root/main/ordinfo/inroomcd"));
model.makeValue("/root/main/patinfo/items/cretno", parent.model.getValue("/root/main/ordinfo/cretno"));
model.makeValue("/root/main/patinfo/items/rrgstno", parent.model.getValue("/root/main/ordinfo/rrgstno"));
model.makeValue("/root/main/patinfo/items/centcd", parent.model.getValue("/root/main/ordinfo/centcd"));
model.makeValue("/root/main/patinfo/items/centnm", parent.model.getValue("/root/main/ordinfo/centnm"));
model.makeValue("/root/main/patinfo/items/centengabbr", parent.model.getValue("/root/main/ordinfo/centengabbr"));
}
var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
if (hardcd == "Y")
{
for(var i = pidinfo.length; i <= 8; i++){
if(i < 8){
pidinfo = "0"+pidinfo;
}
}
var str1 = pidinfo.substr(0, 3);
var str2 = pidinfo.substr(3, 2);
var str3 = pidinfo.substr(5, 2);
var str4 = pidinfo.substr(7, 1);
pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
}
getdate = model.getValue("/root/main/patinfo/items/orddd");
// ȯÀÚ¸í 5Àڱ ¼öÁ¤
if (patnminfo.length > 5 && patnminfo.length <= 10)
{
prnt_patnminfo = patnminfo;
}
else if (patnminfo.length > 11)
{
//ÀÌÀ±ÁÖ ¸·À½
//prnt_patnminfo = patnminfo.substring(0, 10);
prnt_patnminfo = patnminfo;
}
else
{
for(var i = 0; i <= patnminfo.length; i++){
tmp_patnminfo = patnminfo.substring(i, i+1);
if(i == patnminfo.length){
break;
}
prnt_patnminfo = prnt_patnminfo + tmp_patnminfo.concat(" ");
}
}
model.makeValue("/root/send/reqdata/deptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
// Áø·áÁ¤º¸
submit("TRMRF03805");
var dept = model.getValue("/root/main/deptinfo/info/deptengabbr");
var juminno = model.getValue("/root/main/patinfo/items/rrgstno");
var treatdate = getdate.substr(0, 4) + "/" + getdate.substr(4, 2) + "/" + getdate.substr(6, 2);
var ordtype = model.getValue("/root/main/patinfo/items/ordtype");
if (ordtype == 'I') {
model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
submit("TRMRF03809");
var inroomcd = model.getValue("/root/main/inroominfo/inroomlist/roomcd");
}
else {
var inroomcd =" ";
}
var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
var arryformnm = getformnm.split("\n");
var langflag = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/langflag");
var formnm ="" ;
var formnm2 ="" ;
if(arryformnm.length == 2){
formnm = arryformnm[0];
formnm2 = arryformnm[1];
} else if(arryformnm.length == 1){
formnm = arryformnm[0];
}
//formnm = getformnm.replace("\n",' ');
// Ãâ·ÂÁ¤º¸
var getdate = getCurrentDate();
var gettime = getCurrentTime();
var getuser = getUserName();
var getuseren = getUserInfo("userengnm");
var dateprnt = getdate.substr(0, 4) + "/" + getdate.substr(4, 2) + "/" + getdate.substr(6, 2);
var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2);
var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
var printDate = "";
var printDept = "";
var printIP = getUserInfo("ipaddr").split(".");
//¿¹Àüµ¥ÀÌÅÍ »ÌÀ»¶§ Ȱ¿ë - Æò°¡(ÀÌÀ±ÁÖ)
// var dateprnt = "2018/02/28";
// var timeprnt = "11:43:10";
// var getuser = "Áøº¸Çö";
// var inroomcd = "3265";
// printIP[2] = "32";
// printIP[3] = "50";
switch(langflag){
case "KO":
printDate = "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt + " " + printIP[2] + "." + printIP[3]+ " " +inroomcd;
printDept = "Ãâ·ÂÀÚ : " + getuser;
break;
case "EN":
printDate = "Print Date : " + dateprnt + " " + timeprnt + " " + printIP[2] + "." + printIP[3]+ " " +inroomcd;
printDept = "Printed by : " + getuser;
break;
default:
printDate = "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt + " " + printIP[2] + "." + printIP[3]+ " " +inroomcd;
printDept = "Ãâ·ÂÀÚ : " + getuser;
break;
}
model.removeNodeset("/root/send/reqdata");
if(model.getValue("/root/main/exist") == "Y"){
}
/*
else if(model.getValue("/root/main/exist") == "N" && model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm") == ""){
model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
model.makeValue("/root/send/reqdata/orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
model.makeValue("/root/send/reqdata/ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
submit("TRMRF03807");
}
jindan1 = model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm");
*/
//2012-10-15 ±èÀ¯¼º ¼öÁ¤--------------------------------------------------------------------------------------------------
else if(model.getValue("/root/main/exist") == "" && model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm") == ""){
model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
model.makeValue("/root/send/reqdata/orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
model.makeValue("/root/send/reqdata/ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
model.removeNodeset("/root/temp/ocrinfo/ocrtag/diaginfo");
model.removeNodeset("/root/temp/ocrinfo/ocrtag/opinfo");
submit("TRMRF03807");
}
jindan1 = model.getValue("/root/temp/ocrinfo/ocrtag/diaginfo/diagengnm");
jindan2 = model.getValue("/root/temp/ocrinfo/ocrtag/diaginfo[2]/diagengnm");
opengnm1 = model.getValue("/root/temp/ocrinfo/ocrtag/opinfo/opengnm");
opengnm2 = model.getValue("/root/temp/ocrinfo/ocrtag/opinfo[2]/opengnm");
//--------------------------------------------------------------------------------------------------------------------------
var nodelist ="";
var instance = document.models(0).instances(0);
nodelist = instance.selectNodes("/root/main/ocrinfo/ocrlist");
f_View.PageRemove(0,0);
f_View.Viewmode = 0;
f_View.BackColor = parent.rgb(255,255,255)
f_View.AutoRefresh = false;
for(var i = 0; i < nodelist.length; i++){
trans="";
trans = "\n" +
"" +
"\n
" +
"\n" +
"\n " +
"\n "
var path;
var width;
path = gv_ImgeSavePath + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm")
f_View.PageAppend( path ,1,1);
f_View.PageCurrent = f_View.PageTotal;
width = f_View.PageWidth ;
f_View.PageRemove(f_View.PageTotal,f_View.PageTotal);
if( i == 0)
{
switch(formtypecls)
{
case "1":
trans = trans + "\n "
break;
case "2":
trans = trans + "\n "
break;
case "3":
if( width < 1400 ){
trans = trans + "\n "
} else {
trans = trans + "\n "
}
break;
case "4":
trans = trans + "\n "
break;
case "5":
trans = trans + "\n "
break;
case "6":
trans = trans + "\n "
break;
}
} else
{
if( width < 1400 ){
trans = trans + "\n "
} else {
trans = trans + "\n "
}
}
trans = trans + "\n | " +
"\n
" +
"\n
" +
"\n" +
"\n" +
"\n"
var a = fso.CreateTextFile(gv_ImgeSavePath + "chart" + (i + 1) + ".html", true, true);
a.WriteLine(trans);
a.Close();
//2012-08-10 ¿ÀÀü 9:45:48 °ÁöÈÆ ÀüÀÚµ¿ÀǼ ¼¸íÀ» À§ÇÑ ÆÄÀÏÆÐ½º°æ·Î ÀúÀå.
var ocrfilepath = gv_ImgeSavePath + "chart" + (i + 1) + ".html";
model.removeNode("/root/main/ocrinfo/ocrfilepath");
model.makeValue("/root/main/ocrinfo/ocrfilepath", ocrfilepath);
f_View.PageAppend(ocrfilepath,1,1);
}
f_View.PageCurrent = 1;
f_View.AutoRefresh = true;
}
function pause(numberMillis) {
var now = new Date();
var exitTime = now.getTime() + numberMillis;
while (true) {
now = new Date();
if (now.getTime() > exitTime)
return;
}
}
function fBarcodeCheck(OCRno)
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var chkFlag = false;
while(chkFlag == false){
var j = 0;
var k = 0;
fOCRReplace(OCRno);
j = j + 1;
//¹ÙÄÚµå üũ
for(var i = 1; i <= f_View.Pagetotal ; i++){
var r = fso.OpenTextFile(gv_ImgeSavePath + "chart" + i + ".html", 1, false, -1)
var databuffer = "";
while (!r.AtEndOfStream)
{
databuffer = r.ReadLine();
if(databuffer.substr(1, 18) == "@VAR_PRINT_BARCODE"){
if ( databuffer.indexOf("+") == -1 ) {
k = k + 1;
}
}
if (i == k) {
chkFlag = true;
}
if (j >= 30 ) {
chkFlag = true;
}
}
r.Close();
}
if( chkFlag == false ) {
//ÀÌÀ±ÁÖ(LCTECH ¿äû-20130414)
//pause(j * 1000);
model.makeValue("/root/send/reqdata/ocrtag",OCRno);
model.makeValue("/root/send/reqdata/ipaddr",getUserInfo("ipaddr"));
model.makeValue("/root/send/reqdata/instrid",getUserInfo("userid"));
if(submit("TXMRF03806")){
model.removeNodeset("/root/send/reqdata");
return true;
}
}
}
}
function fOCRReplace(OCRno)
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var formtypecls = model.getValue("/root/main/forminfo/formtypecls");
model.makeValue("/root/main/exist", "N");
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
if(parent.swt_ocrinfoflag.selectedIndex == "1"){
parent.btn_prnt.disabled = true;
} else {
var parentauth = parent.model.getValue("/root/properties/auth")
if(parentauth.charAt(1) == '1'){ //20100727-kys-½ÇÇà±ÇÇÑÀÌ ÀÖÀ»½Ã¿¡¸¸ disableº¯°æÃ³¸®.(¿äû¹øÈ£ : 11292)
parent.btn_prnt.disabled = false;
}
}
}
if(OCRno != ""){
OCRno = OCRno.replace("+","");
OCRno = OCRno.replace("+","");
OCRno = OCRno.replace("+","");
OCRno = OCRno.replace("+","");
OCRno = OCRno.replace("+","");
OCRno = OCRno.replace("+","");
model.makeValue("/root/main/ocrinfo/ocrtag/tag", OCRno);
}
for(var i = 1; i <= f_View.Pagetotal ; i++){
//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
var pInstcd = parent.model.getValue("/root/main/ordinfo/instcd");
if(pInstcd ==""){
pInstcd =getUserInfo("dutplceinstcd");
}
var OCR = "";
OCR = "+" + OCRno + "+";
var r = fso.OpenTextFile(gv_ImgeSavePath + "chart" + i + ".html", 1,false, -1)
var databuffer = "";
var trans ="";
//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
//f_View.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+pInstcd+".jpg");
while (!r.AtEndOfStream)
{
databuffer = r.ReadLine();
if(databuffer.substr(1, 10) == "@VAR_OCR_L"){
databuffer = " @VAR_OCR_LEFT = " + OCR
}
if(databuffer.substr(1, 10) == "@VAR_OCR_R"){
if(OCRno == "[ȯÀÚ º¸°ü¿ë]")
{
databuffer = " @VAR_OCR_RIGHT = "
}
else
{
databuffer = " @VAR_OCR_RIGHT = " + OCR
}
}
if( formtypecls != "6" ){
if(databuffer.substr(1, 18) == "@VAR_PRINT_BARCODE"){
databuffer = " @VAR_PRINT_BARCODE = *" + OCRno + "0" + i + "*"
}
}
trans += databuffer + "\n";
}
r.Close();
var a = fso.CreateTextFile(gv_ImgeSavePath + "chart" + i + ".html", true, true);
a.WriteLine(trans);
a.Close();
f_View.ActionParamINT1 = i;
f_View.ActionSingle = 1;
}
}
function fBarCodeReplace(OCRno)
{
for(var i = 1; i <= f_View.Pagetotal ; i++){
var OCR = "";
OCR = OCRno
OCR = OCR.replace("+","");
OCR = OCR.replace("+","");
OCR = OCR.replace("+","");
OCR = OCR.replace("+","");
OCR = OCR.replace("+","");
OCR = OCR.replace("+","");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var r = fso.OpenTextFile(gv_ImgeSavePath + "chart" + i + ".html", 1,false, -1)
var databuffer = "";
var trans ="";
while (!r.AtEndOfStream)
{
databuffer = r.ReadLine();
if(databuffer.substr(1, 18) == "@VAR_PRINT_BARCODE"){
OCR = OCR.replace("+","*");
OCR = OCR.replace("+","*");
databuffer = " @VAR_PRINT_BARCODE = " + "*" + OCR + "0" + i + "*"
}
trans += databuffer + "\n";
}
r.Close();
var a = fso.CreateTextFile(gv_ImgeSavePath + "chart" + i + ".html", true, true);
a.WriteLine(trans);
a.Close();
f_View.ActionParamINT1 = i;
f_View.ActionSingle = 1;
}
}
/**
* @desc : Footer ¹× Header Á¤º¸»ý¼º
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fInitCreateHtml()
{
var stype = "";
var cover_header ="";
var cover_footer ="";
var body_header ="";
var body_footer ="";
var headertitle ="";
var local_path ="";
var local_file ="";
var trans = "";
var formtypecls = model.getValue("/root/main/forminfo/formtypecls");
var ocrtagprnt = model.getValue("/root/main/forminfo/ocrtagprntyn"); // TAGÃâ·Â¿©ºÎ - TAGÃâ·Â¿©ºÎ°¡ NÀμ½ÄÀº
// ocrtag¹øÈ£ ¹× ¹ÙÄÚµå ¼½Ä¿¡¼ »ý¼ºÇÏÁö ¾ÊÀ½ 2012-11-05 ±èÀ¯¼º
local_path = gv_ImgeSavePath + "template\\" ;
var fso = new ActiveXObject("Scripting.FileSystemObject");
if( fso.FolderExists(gv_ImgeSavePath) == false)
{
fso.CreateFolder(gv_ImgeSavePath)
}
if( fso.FolderExists(local_path) == false)
{
fso.CreateFolder(local_path)
}
//Free 3 of 9
if(ocrtagprnt == "N"){
cover_footer = " " +
"\n " +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n / | " +
"\n | " +
"\n | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
body_header = " " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n
" +
"\n " +
"\n
" +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n | Áø·á°ú : | " +
"\n | Áֹεî·Ï¹øÈ£ : | " +
"\n | Áø·áÀÏ : | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
body_footer = " " +
"\n " +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n / | " +
"\n | " +
"\n | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
}else{
if( formtypecls == "6" ){ // type6ÀÎ °æ¿ì ocrtag ¾ø¾Ö°í ¹ÙÄÚµå´Â ¿À¸¥ÂÊ À§·Î, ȯÀÚÁ¤º¸ º¸À̰Ô
cover_footer = " " +
"\n " +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n | " +
"\n | " +
"\n / | " +
"\n | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
body_header = " " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n | " +
//"\n | " +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n
" +
"\n " +
"\n
" +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n | Áø·á°ú : | " +
"\n | Áֹεî·Ï¹øÈ£ : | " +
"\n | Áø·áÀÏ : | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
body_footer = " " +
"\n " +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n | " +
"\n | " +
"\n / | " +
"\n | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
}else{
cover_footer = " " +
"\n " +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n | " +
"\n | " +
"\n / | " +
"\n | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
body_header = " " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n
" +
"\n " +
"\n
" +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n | Áø·á°ú : | " +
"\n | Áֹεî·Ï¹øÈ£ : | " +
"\n | Áø·áÀÏ : | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
body_footer = " " +
"\n " +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n | " +
"\n | " +
"\n / | " +
"\n | " +
"\n
" +
"\n
" +
"\n
" +
"\n " +
"\n " +
"\n ";
}
}
if(fso.FileExists(local_path + "cover_footer.html") == true)
{
fso.DeleteFile(local_path + "cover_footer.html", true)
}
var a = fso.CreateTextFile( local_path + "cover_footer.html" , true, true);
a.WriteLine(cover_footer);
a.Close();
if(fso.FileExists(local_path + "body_header.html") == true)
{
fso.DeleteFile(local_path + "body_header.html", true)
}
var a = fso.CreateTextFile( local_path + "body_header.html" , true, true);
a.WriteLine(body_header);
a.Close();
if(fso.FileExists(local_path + "body_footer.html") == true)
{
fso.DeleteFile(local_path + "body_footer.html", true)
}
var a = fso.CreateTextFile( local_path + "body_footer.html" , true, true);
a.WriteLine(body_footer);
a.Close();
}
/**
* @desc : Typeº° Á¤º¸¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fBaseCreateHtml(formtypecls)
{
var stype = "";
var cover_header ="";
var headertitle ="";
var local_path ="";
var local_file ="";
var trans = "";
local_path = gv_ImgeSavePath + "template\\" ;
var fso = new ActiveXObject("Scripting.FileSystemObject");
if( fso.FolderExists(gv_ImgeSavePath) == false)
{
fso.CreateFolder(gv_ImgeSavePath);
}
if( fso.FolderExists(local_path) == false)
{
fso.CreateFolder(local_path);
}
var ocrtagprnt = model.getValue("/root/main/forminfo/ocrtagprntyn"); // TAGÃâ·Â¿©ºÎ - TAGÃâ·Â¿©ºÎ°¡ NÀμ½ÄÀº
// ocrtag¹øÈ£ ¹× ¹ÙÄÚµå ¼½Ä¿¡¼ »ý¼ºÇÏÁö ¾ÊÀ½ 2012-11-05 ±èÀ¯¼º
if(ocrtagprnt == "N"){
cover_header = "" +
"\n " +
"\n ";
}else{
if( formtypecls == "6" ){
cover_header = "" +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n | " +
"\n | " +
"\n | " +
// "\n | " +
"\n
" +
"\n
" +
"\n
";
}else{
cover_header = "" +
"\n " +
"\n " +
"\n
" +
"\n " +
"\n | " +
"\n | " +
"\n
" +
"\n
" +
"\n
";
}
}
//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
var pInstcd = parent.model.getValue("/root/main/ordinfo/instcd");
if(pInstcd ==""){
pInstcd =getUserInfo("dutplceinstcd");
}
//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
//f_View.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+pInstcd+".jpg");
var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
var arryformnm = getformnm.split("\n");
var langflag = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/langflag");
headertitle = "\n " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n  + "/himed/webapps/com/commonweb/images/biglogo" + pInstcd+".jpg" + ") | " +
"\n " +
"\n " +
"\n | " +
"\n ";
if(arryformnm.length == 2){
headertitle = headertitle +
"\n " +
"\n | " +
"\n ";
}
headertitle = headertitle +
"\n " +
"\n | " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n " +
"\n " +
"\n | " +
"\n | " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n
" ;
footer = "\n " +
"\n
" +
"\n " +
"\n " +
"\n ";
switch(formtypecls)
{
case "1":
local_file = "cover_header1.html";
if(fso.FileExists(local_path + local_file) == true)
{
fso.DeleteFile(local_path + local_file, true)
}
if(fso.FileExists(local_path + local_file) == false)
{
cover_header = cover_header + headertitle +
"\n " +
"\n " +
"\n " +
"\n " +
"\n Áø´Ü¸í " +
"\n | " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n " +
"\n " +
"\n ¼ö¼ú¸í (óġ/°Ë»ç) " +
"\n | " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n
" +
"\n " +
footer
}
break;
case "2":
local_file = "cover_header2.html";
if(fso.FileExists(local_path + local_file) == true)
{
fso.DeleteFile(local_path + local_file, true)
}
if(fso.FileExists(local_path + local_file) == false)
{
cover_header = cover_header + headertitle +
"\n " +
"\n " +
"\n " +
"\n Áø´Ü¸í | " +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n
" +
"\n " +
footer
}
break;
case "3":
local_file = "cover_header3.html";
if(fso.FileExists(local_path + local_file) == true)
{
fso.DeleteFile(local_path + local_file, true)
}
if(fso.FileExists(local_path + local_file) == false)
{
cover_header = cover_header + headertitle + footer
}
break;
case "4":
local_file = "cover_header4.html";
if(fso.FileExists(local_path + local_file) == true)
{
fso.DeleteFile(local_path + local_file, true)
}
if(fso.FileExists(local_path + local_file) == false)
{
cover_header = cover_header + headertitle + footer
}
break;
case "5":
local_file = "cover_header5.html";
if(fso.FileExists(local_path + local_file) == true)
{
fso.DeleteFile(local_path + local_file, true)
}
if(fso.FileExists(local_path + local_file) == false)
{
cover_header = cover_header +
"\n " +
"\n " +
"\n " +
"\n " +
"\n " +
"\n | " +
"\n " +
"\n " +
"\n | " +
"\n
" +
"\n
" +
footer
}
break;
case "6":
local_file = "cover_header6.html";
if(fso.FileExists(local_path + local_file) == true)
{
fso.DeleteFile(local_path + local_file, true)
}
if(fso.FileExists(local_path + local_file) == false)
{
cover_header = cover_header + headertitle + footer
}
break;
default:
local_file = "cover_header3.html";
if(fso.FileExists(local_path + local_file) == true)
{
fso.DeleteFile(local_path + local_file, true)
}
if(fso.FileExists(local_path + local_file) == false)
{
cover_header = cover_header + headertitle + footer
}
break;
break;
}
var a = fso.CreateTextFile( local_path + local_file , true, true);
a.WriteLine(cover_header);
a.Close();
}
/**
* @desc : OCR Ãâ·Â
*
* @param : prntflag : A-ÀçÃâ·Â
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fPrint(prntflag)
{
var insyn;
var existyn;
var ocrDataCnt = model.getValue("/root/main/ocrinfo/ocrdatacnt");
var currentpage = model.getValue("/root/main/ocrinfo/currentpage");
var prntcnt = 1;
var succ_Prnt = false;
var save_ocrtag = "";
var doubyn = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/doubyn");
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
parent.btn_prnt.disabled = true;
}
//ÀÌÀ±ÁÖ ¼öÁ¤ 20160912 formtypecls=6 Àΰæ¿ì´Â À̹ÌÁö¸¸ Ãâ·Â
var formtypecls = model.getValue("/root/main/forminfo/formtypecls");
if (formtypecls == "6") {
fPrintOCR();
return;
}
if((prntflag == 'A') || (prntflag == 'P')){
model.makeValue("/root/main/temp/ocrtag/tag", "+" + model.getValue("/root/main/ocrinfo/ocrtag/tag") + "+");
fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
if(ocrDataCnt > 0){
if(prntflag == 'P'){
for(var doubcnt = 1; doubcnt <= doubyn; doubcnt++){
if(doubcnt == 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
//--Yoo fSetBarCode();
// 20090715 OCRTAG Ãâ·Â¿©ºÎ °ª¿¡ µû¸¥ ¼öÁ¤
if(model.getValue("/root/main/forminfo/ocrtagprntyn") == "N"){
fOCRReplace("");
} else {
fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
}
} else {
fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
}
opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
succ_Prnt = fPrintOCR();
}
} else if (prntflag == 'A'){ // ÀçÃâ·Â
for(var doubcnt = 1; doubcnt <= doubyn; doubcnt++){
for(prntcnt = 1; prntcnt <= ocrDataCnt; prntcnt++){
model.makeValue("/root/main/ocrinfo/doubcnt", doubcnt);
//--Yoo fMovePage('1');
// 2009-07-27 nj OCT TYPE5 ¹öÀü ¼öÁ¤
// if((prntcnt != 1) && (model.getValue("/root/main/forminfo/formtypecls") != "5")){
if(prntcnt != 1){
model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
if(doubcnt != 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
}
else
{
fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
}
} else {
model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
if(doubcnt != 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
}
else
{
fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
}
}
model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
}
succ_Prnt = fPrintOCR();
}
}
}
if(succ_Prnt){
//messageBox("Ãâ·ÂÀÌ", "I002");
} else {
messageBox("Ãâ·ÂÀ»", "E009");
return;
}
} else{
var n_ocrtag;
n_ocrtag = fmakeOCRTag()
fOCRReplace(n_ocrtag);
//fBarcodeCheck¿¡¼ fOCRReplace¸¦ ½ÇÇàÇÑ´Ù.
//fOCRReplace(n_ocrtag);
fBarcodeCheck(n_ocrtag);
// À̷°ü·ÃÇØ¼ ÀúÀåÈÄ Ãâ·ÂÀ¸·Î ÀӽüöÁ¤(20090225)
//fSaveOCR();
//--Yoo fMovePage('1');
save_ocrtag = fSaveOCR();
insyn = model.getValue("/root/hidden/insocrtag/insyn");
if(insyn == "Y"){
if(ocrDataCnt > 0){
for(var doubcnt = 1; doubcnt <= doubyn; doubcnt++){
for(prntcnt = 1; prntcnt <= ocrDataCnt; prntcnt++){
model.makeValue("/root/main/ocrinfo/doubcnt", doubcnt);
//--Yoo fMovePage('1');
// 2009-07-27 nj OCT TYPE5 ¹öÀü ¼öÁ¤
// if((prntcnt != 1) && (model.getValue("/root/main/forminfo/formtypecls") != "5")){
if(prntcnt != 1){
model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
//--Yoo fSetBottomInfo();
if(doubcnt != 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
}
} else {
model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
if(doubcnt!= 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
}
}
}
if (gocrprntyn == "Y") {
succ_Prnt = fPrintOCR();
}
else {
succ_Prnt = "Y"; //ÇϵåÄڵ忡 µî·ÏµÈ °ú´Â ½ÇÁ¦ Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
}
}
}
}
else
{
messageBox("Ãâ·Â(OCR)À»", "E009");
return;
}
if(succ_Prnt){
// À̷°ü·ÃÇØ¼ ÀúÀåÈÄ Ãâ·ÂÀ¸·Î ÀӽüöÁ¤(20090225)
//save_ocrtag = fSaveOCR();
insyn = model.getValue("/root/hidden/insocrtag/insyn");
if(insyn == "Y"){
//messageBox("Ãâ·ÂÀÌ", "I002");
} else if(insyn != "Y"){
messageBox("ÀúÀåÀ»", "E009");
return;
}
} else {
messageBox("Ãâ·ÂÀ»", "E009");
return;
}
}
/*
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
parent.btn_prnt.disabled = true;
}
*/
model.makeValue("/root/main/ocrinfo/doubcnt", "1");
model.makeValue("/root/main/ocrinfo/currentpage", "1");
model.makeValue("/root/main/iptdiaghngnm", "");
return save_ocrtag;
}
function fPrintOCR()
{
try{
var i;
f_print.DocumentBegin(f_View.PageTotal+"_"+"OCRPrint");
for(i = 1; i <= f_View.PageTotal; i++)
{
f_print.PageBegin();
f_print.PrintImage(f_View.PageFilePath(i), f_View.PageFilePage(i) + 1, 0, 0, f_print.PrintableWidth, f_print.PrintableHeight, 2,1,1,12);
f_print.PageEnd();
}
f_print.DocumentEnd();
model.makeValue("/root/main/exist", "N");
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
if(parent.swt_ocrinfoflag.selectedIndex == "1"){
parent.btn_prnt.disabled = true;
} else {
var parentauth = parent.model.getValue("/root/properties/auth")
if(parentauth.charAt(1) == '1'){ //20100727-kys-½ÇÇà±ÇÇÑÀÌ ÀÖÀ»½Ã¿¡¸¸ disableº¯°æÃ³¸®.(¿äû¹øÈ£ : 11292)
parent.btn_prnt.disabled = false;
}
}
}
return true;
}
catch(e){
return false;
}
}
/**
* @desc : OCR µ¥ÀÌŸ ÃʱâÈ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fGetOCRData(inode){
var localfilenm = model.getValue("/root/main/ocrinfo/ocrlist[" + (inode) + "]/ocrfilenm");
// knuh 20111128 ÃÖ¿øµ· ³×¹øÂ° ÀÎÀÚ¿¡ µ¿±â/ºñµ¿±âÀÎÁö ¿©ºÎ¸¦ ÁöÁ¤ÇÒ¼ö ÀÖµµ·Ï ºä¾î¸¦ ÆÐÄ¡
// ÁÖÀÇ : µ¿±â½ÄÀ¸·Î ÁöÁ¤ ½Ã ¼Óµµ°¡ ´Ù¼Ò ´Ê¾îÁö´Â Çö»óÀÌ ÀÖÀ¸¹Ç·Î ÇÊ¿äÇÑ °æ¿ì¿¡¸¸ ¼³Á¤ÇؾßÇÔ.
// sample : // var async = false; //ºñµ¿±â½Ä (defalut : true [µ¿±â½Ä]) // var ui = false;
// // model1.download("http://his031edu.knu.ac.kr/himed/webapps/com/hismainweb/images/login_mis_dev.jpg", "C:\\temp\\download\\login_mis_dev.jpg", ui, async);
// ¿øº» : model.download(getActionURL("TRMRF03802")+ getUserSessionString() +"&ocrseq=" + model.getValue("/root/main/ocrinfo/ocrlist[" + (inode) + "]/ocrseq"), gv_ImgeSavePath+localfilenm, false);
model.download(getActionURL("TRMRF03802")+ getUserSessionString() +"&ocrseq=" + model.getValue("/root/main/ocrinfo/ocrlist[" + (inode) + "]/ocrseq"), gv_ImgeSavePath+localfilenm, false, false);
}
/**
* @desc : Æú´õ ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fFolderSet(folderpath, delflag)
{
var fso;
var haveFile;
var currFile;
fso = new ActiveXObject("Scripting.FileSystemObject");
if(fso.FolderExists(folderpath) == false){
fso.CreateFolder(folderpath);
}
if (delflag == "D"){
haveFile = fso.GetFolder(gv_ImgeSavePath);
currFile = new Enumerator(haveFile.Files);
for( ; !currFile.atEnd(); currFile.moveNext()){
//20130418 ±èµ¿ÁØ start try Catch Ãß°¡
try{
fso.DeleteFile(currFile.item().path, true);
}
catch(e){
}
//20130418 ±èµ¿ÁØ end
}
}
}
/**
* @desc : ȯÀÚ Á¤º¸ ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetPatInfo(formcd, pid, orddd, cretno, ordtype){
var pidinfo = "";
var patnminfo = "";
var orddept = "";
var drinfo = "";
var sainfo = "";
var inroomcd = "";
var prnt_patnminfo = "";
var tmp_patnminfo = "";
var getdate = "";
if(model.getValue("/root/hidden/parentflag") == "ETC"){
pidinfo = model.getValue("/root/main/patinfo/items/pid");
patnminfo = model.getValue("/root/main/patinfo/items/patnm");
orddept = model.getValue("/root/main/patinfo/items/orddeptnm");
drinfo = model.getValue("/root/main/patinfo/items/drnm");
sainfo = model.getValue("/root/main/patinfo/items/sa");
/* if(sainfo.indexOf("M") >= 0){
model.setValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-1XXXXXX");
} else if(sainfo.indexOf("F") >= 0){
model.setValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-2XXXXXX");
} */
model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno"));
model.makeValue("/root/main/patinfo/items/centcd", model.getValue("/root/main/patinfo/items/centcd"));
model.makeValue("/root/main/patinfo/items/centnm", model.getValue("/root/main/patinfo/items/centnm"));
model.makeValue("/root/main/patinfo/items/centengabbr", model.getValue("/root/main/patinfo/items/centengabbr"));
} else if (model.getValue("/root/hidden/parentflag") == "PRNT"){
pidinfo = parent.model.getValue("/root/main/ordinfo/pid");
patnminfo = parent.model.getValue("/root/main/ordinfo/patnm");
orddept = parent.model.getValue("/root/main/ordinfo/orddeptnm");
drinfo = parent.model.getValue("/root/main/ordinfo/drnm");
sainfo = parent.model.getValue("/root/main/ordinfo/sa");
/* 2009-03-16 Edited by Nj
if(parent.swt_trgtmanlist.selectedIndex == 0){
ordtype = 'O';
} else if(parent.swt_trgtmanlist.selectedIndex == 1){
ordtype = 'I';
} else if(parent.swt_trgtmanlist.selectedIndex == 2){
ordtype = 'E';
} */
model.makeValue("/root/main/patinfo/items/pid", parent.model.getValue("/root/main/ordinfo/pid"));
model.makeValue("/root/main/patinfo/items/orddd", parent.model.getValue("/root/main/ordinfo/orddd"));
model.makeValue("/root/main/patinfo/items/ordtype", parent.model.getValue("/root/main/ordinfo/ordtype"));
model.makeValue("/root/main/patinfo/items/orddeptcd", parent.model.getValue("/root/main/ordinfo/orddeptcd"));
model.makeValue("/root/main/patinfo/items/patnm", parent.model.getValue("/root/main/ordinfo/patnm"));
model.makeValue("/root/main/patinfo/items/orddeptnm", parent.model.getValue("/root/main/ordinfo/orddeptnm"));
model.makeValue("/root/main/patinfo/items/drid", parent.model.getValue("/root/main/ordinfo/drid"));
model.makeValue("/root/main/patinfo/items/drnm", parent.model.getValue("/root/main/ordinfo/drnm"));
model.makeValue("/root/main/patinfo/items/sa", parent.model.getValue("/root/main/ordinfo/sa"));
model.makeValue("/root/main/patinfo/items/inroomcd", parent.model.getValue("/root/main/ordinfo/inroomcd"));
model.makeValue("/root/main/patinfo/items/cretno", parent.model.getValue("/root/main/ordinfo/cretno"));
model.makeValue("/root/main/patinfo/items/rrgstno", parent.model.getValue("/root/main/ordinfo/rrgstno"));
model.makeValue("/root/main/patinfo/items/centcd", parent.model.getValue("/root/main/ordinfo/centcd"));
model.makeValue("/root/main/patinfo/items/centnm", parent.model.getValue("/root/main/ordinfo/centnm"));
model.makeValue("/root/main/patinfo/items/centengabbr", parent.model.getValue("/root/main/ordinfo/centengabbr"));
}
patnminf = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/patnm");
// º´¿øº° µî·Ï¹øÈ£ Ç¥½Ã¹æ¹ý ¿©ºÎ(HardCode Å×À̺í ÀÌ¿ë) - 2009/06/01 Ãß°¡
mmbfGetHardCodeInfoNm("/root/send/harddata","/root/temp/hardcode", 3801); //OCR¼½ÄÀÇ µî·Ï¹øÈ£ üũ·ÎÁ÷ Ç¥½Ã ¿©ºÎ
var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
if (hardcd == "Y")
{
for(var i = pidinfo.length; i <= 8; i++){
if(i < 8){
pidinfo = "0"+pidinfo;
}
}
var str1 = pidinfo.substr(0, 3);
var str2 = pidinfo.substr(3, 2);
var str3 = pidinfo.substr(5, 2);
var str4 = pidinfo.substr(7, 1);
pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
}
obj_BCP.setParam("rgst_no", pidinfo);
getdate = model.getValue("/root/main/patinfo/items/orddd");
// ȯÀÚ¸í 5Àڱ ¼öÁ¤
if (patnminfo.length > 5 && patnminfo.length <= 10)
{
prnt_patnminfo = patnminfo
}
else if (patnminfo.length > 11)
{
prnt_patnminfo = patnminfo.substring(0, 10);
}
else
{
for(var i = 0; i <= patnminfo.length; i++){
tmp_patnminfo = patnminfo.substring(i, i+1);
if(i == patnminfo.length){
break;
}
prnt_patnminfo = prnt_patnminfo + tmp_patnminfo.concat(" ");
}
}
/* ¿ø source
for(var i = 0; i <= patnminfo.length; i++){
tmp_patnminfo = patnminfo.substring(i, i+1);
if(i == patnminfo.length){
break;
}
prnt_patnminfo = prnt_patnminfo + tmp_patnminfo.concat(" ");
}
*/
obj_BCP.setParam("pat_nm", prnt_patnminfo);
model.makeValue("/root/send/reqdata/deptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
// ºÎ¼¾à¾î °¡Á®¿À±â
submit("TRMRF03805");
obj_BCP.setParam("orddept", model.getValue("/root/main/deptinfo/info/deptengabbr"));
obj_BCP.setParam("rrgstno", model.getValue("/root/main/patinfo/items/rrgstno"));
obj_BCP.setParam("fromdd", getdate.substr(0, 4) + "/" + getdate.substr(4, 2) + "/" + getdate.substr(6, 2));
/* obj_BCP.setParam("sa", "³ªÀÌ / ¼ºº° : " + sainfo);
switch(ordtype){
case 'O':
obj_BCP.setParam("orddetp_orddr", "Áø·á°ú/¿Ü·¡ : " + orddetp_drinfo);
break;
case 'I':
if(model.getValue("/root/hidden/parentflag") == "ETC"){
inroomcd = model.getValue("/root/main/patinfo/items/inroomcd");
} else {
inroomcd = parent.model.getValue("/root/main/ordinfo/inroomcd");
}
obj_BCP.setParam("orddetp_orddr", "Áø·á°ú/º´½Ç : " + orddetp_drinfo+"/"+inroomcd);
break;
case 'E':
obj_BCP.setParam("orddetp_orddr", "Áø·á°ú/ÀÀ±Þ : " + orddetp_drinfo);
break;
}
*/
// 2009.11.16. ÇöÀç Àç¿øÁßÀÎ º´½ÇÁ¤º¸ °¡Á®¿À±â.. & º´½ÇÁ¤º¸ Ãâ·ÂÇϱâ..
obj_BCP.setParam("inroomcd", "");
var ordtype = model.getValue("/root/main/patinfo/items/ordtype");
if (ordtype == 'I') {
model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
submit("TRMRF03809");
var inroomcd = model.getValue("/root/main/inroominfo/inroomlist/roomcd");
if (inroomcd != "False" && inroomcd != "" ) {
//obj_BCP.setParam("inroomcd", "º´½Ç : " + inroomcd);
//lyj 2011/11/29
obj_BCP.setParam("rgst_no", pidinfo +" ("+inroomcd+")");
}
}
}
/**
* @desc : ŸÀÌÆ² Á¤º¸ ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetTitle(){
var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
var arryformnm = getformnm.split("\n");
var langflag = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/langflag");
if(arryformnm.length == 2){
obj_BCP.setParam("formnm1", arryformnm[0]);
obj_BCP.setParam("formnm2", arryformnm[1]);
} else if(arryformnm.length == 1){
obj_BCP.setParam("formnm", arryformnm[0]);
}
//obj_BCP.setParam("centnm", "¼¾Å͸í : " ); // + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
switch(langflag){
case "KO":
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
if(model.getValue("/root/main/ocrinfo/doubcnt") != "1"){
obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
}
break;
case "EN":
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
if(model.getValue("/root/main/ocrinfo/doubcnt") != "1"){
obj_BCP.setParam("useflag", "\"" + "For Patient Use" + "\"");
}
break;
default:
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
if(model.getValue("/root/main/ocrinfo/doubcnt") != "1"){
obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
}
break;
}
//obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/logo012.gif");
}
/**
* @desc : OCR Å×±× ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
* 20090715 fSetOCRTag ÆÄ¶ó¸ÞÅÍ ¼öÁ¤ fSetOCRTag(flag) - > fSetOCRTag(flag, ocrtagprntyn)
*/
function fSetOCRTag(flag, ocrtagprntyn){
var getocrtag;
model.removeNodeset("/root/send/reqdata");
//copyNodeset("/root/send/reqdata", "/root/main/patinfo/items");
//model.makeValue("/root/send/reqdata/formcd", model.getValue("/root/main/ocrinfo/ocrlist/formcd"));
//model.makeValue("/root/send/reqdata/formfromdt", model.getValue("/root/main/ocrinfo/ocrlist/formfromdt"));
//submit("TRMRF03804");
//getocrtag = model.getValue("/root/main/ocrinfo/ocrtag/tag");
// »õ·Î OCRTag¸¦ »ý¼ºÀ¸·Î ¹Ù²Þ.
// °£È£ºÐ¸¸ÇÁ·Î±×·¥¿¡¼ ȯÀÚ°¡ µÎ ¸íÀÇ ¾ÆÀ̸¦ ºÐ¸¸ÇÏ¿´À» °æ¿ì,
// °¢°¢ OCRTAG°¡ °³º°ÀûÀ¸·Î »ý¼ºÀÌ µÇ¾î¾ß ÇÑ´Ù.
// MRI µ¿ÀǼ °°Àº °æ¿ì °¢°¢ µ¿ÀǼ°¡ Ãâ·ÂµÇ¾î¾ß Çϰí OCRTAGµµ °¢°¢ Ãâ·ÂÀÌ µÇ¾î¾ß ÇÔ.
// ¼öÁ¤ÀÏ 2007.12.10
model.makeValue("/root/main/exist", "N");
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
if(parent.swt_ocrinfoflag.selectedIndex == "1"){
parent.btn_prnt.disabled = true;
} else {
var parentauth = parent.model.getValue("/root/properties/auth")
if(parentauth.charAt(1) == '1'){ //20100727-kys-½ÇÇà±ÇÇÑÀÌ ÀÖÀ»½Ã¿¡¸¸ disableº¯°æÃ³¸®.(¿äû¹øÈ£ : 11292)
parent.btn_prnt.disabled = false;
}
}
}
if(flag != ""){
// 20090715 ocrtag Ãâ·Â±¸ºÐ °ªÀ¸·Î Ãâ·Â¿©ºÎ ÆÇ´Ü ¼öÁ¤ nj
// obj_BCP.setParam("ocrtag", "+"+flag+"+");
if(ocrtagprntyn == "N"){
obj_BCP.setParam("ocrtag", "");
} else {
obj_BCP.setParam("ocrtag", "+"+flag+"+");
}
model.makeValue("/root/main/ocrinfo/ocrtag/tag", flag);
fSetBarCode();
}
/*
if(getocrtag == ""){
model.setValue("/root/main/exist", "N");
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
parent.btn_prnt.disabled = false;
}
} else {
model.setValue("/root/main/exist", "Y");
obj_BCP.setParam("ocrtag", "+"+getocrtag);
fSetBarCode();
if(model.getValue("/root/hidden/parentflag") == "PRNT"){
parent.btn_prnt.disabled = true;
}
}
*/
obj_BCP.Refresh();
}
/**
* @desc : OCR Å×±× »ý¼º
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fmakeOCRTag(){
/*
OCRTag´Â ÀϷùøÈ£¸¦ »ç¿ëÇϱâ·ÎÇÔ.
ÀϽÃ+ÀϷùøÈ£ »ç¿ë
*/
var ocrtag = null;
var tmptag;
var prntocrtag = "";
model.removeNode("/root/main/ocrinfo/ocrtag/tag");
model.makeValue("/root/send/reqdata/date", getCurrentDate());
submit("TRMRF03806");
ocrtag = getCurrentDate() + model.getValue("/root/main/ocrtag/seq");
for(var i = 0; i <= ocrtag.length; i++){
tmptag = ocrtag.substring(i, i+1);
if(i == ocrtag.length){
break;
}
// ±ÛÀÚ »çÀÌÀÇ °ø¹éÀ» Á¦°Å
// prntocrtag = prntocrtag + tmptag.concat(" ");
prntocrtag = prntocrtag + tmptag;
}
model.makeValue("/root/main/ocrinfo/ocrtag/tag", prntocrtag);
model.makeValue("/root/main/temp/ocrtag/tag", "+"+prntocrtag+"+");
model.removeNode("/root/send/reqdata/date");
return model.getValue("/root/main/temp/ocrtag/tag");
}
/**
* @desc : OCR ÀúÀå µ¥ÀÌŸ ¼ÂÆÃ ÈÄ ÀúÀå
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSaveOCR(){
var savepath = "/root/send/reqdata/";
model.makeValue(savepath + "ocrtag", model.getValue("/root/main/ocrinfo/ocrtag/tag"));
model.makeValue(savepath + "pid", model.getValue("/root/main/patinfo/items/pid"));
model.makeValue(savepath + "orddd", model.getValue("/root/main/patinfo/items/orddd"));
model.makeValue(savepath + "cretno", model.getValue("/root/main/patinfo/items/cretno"));
model.makeValue(savepath + "ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
model.makeValue(savepath + "orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
model.makeValue(savepath + "orddrid", model.getValue("/root/main/patinfo/items/drid"));
model.makeValue(savepath + "instcd", getUserInfo("dutplceinstcd"));
model.makeValue(savepath + "formcd", model.getValue("/root/main/ocrinfo/ocrlist/formcd"));
model.makeValue(savepath + "formfromdt", model.getValue("/root/main/ocrinfo/ocrlist/formfromdt"));
model.makeValue(savepath + "fstprntdt", getCurrentDate()+getCurrentTime());
model.makeValue(savepath + "fstprntdeptcd", getUserInfo("dutplcecd"));
model.makeValue(savepath + "fstprntid", getUserInfo("userid"));
model.makeValue(savepath + "updtdt", getCurrentDate()+getCurrentTime());
model.makeValue(savepath + "updtdeptcd", getUserInfo("dutplcecd"));
model.makeValue(savepath + "updtuserid", getUserInfo("userid"));
model.makeValue(savepath + "diagnm", model.getValue("/root/main/diaginfo/diaghngnm"));
model.makeValue(savepath + "opnm", model.getValue("/root/main/opinfo/ophngnm"));
model.makeValue(savepath + "pagecnt", model.getValue("/root/main/ocrinfo/ocrdatacnt"));
if (gocrprntyn == "N") {
model.makeValue(savepath + "updtresncnts", "½ÇÁ¦ Ãâ·ÂÀº ÇÏÁö ¾ÊÀ½");
model.makeValue(savepath + "realprntyn", "N");
}
model.addlog("ocrtag:" + model.getValue(savepath + "ocrtag"));
model.addlog("pid:" + model.getValue(savepath + "pid"));
model.addlog("orddd:" + model.getValue(savepath + "orddd"));
model.addlog("cretno:" + model.getValue(savepath + "cretno"));
model.addlog("ordtype:" + model.getValue(savepath + "ordtype"));
model.addlog("orddeptcd:" + model.getValue(savepath + "orddeptcd"));
model.addlog("orddrid:" + model.getValue(savepath + "orddrid"));
model.addlog("instcd:" + model.getValue(savepath + "instcd"));
model.addlog("formcd:" + model.getValue(savepath + "formcd"));
model.addlog("formfromdt:" + model.getValue(savepath + "formfromdt"));
model.addlog("fstprntdt:" + model.getValue(savepath + "fstprntdt"));
model.addlog("fstprntdeptcd:" + model.getValue(savepath + "fstprntdeptcd"));
model.addlog("fstprntid:" + model.getValue(savepath + "fstprntid"));
model.addlog("updtdt:" + model.getValue(savepath + "updtdt"));
model.addlog("updtdeptcd:" + model.getValue(savepath + "updtdeptcd"));
model.addlog("updtuserid:" + model.getValue(savepath + "updtuserid"));
model.addlog("pagecnt:" + model.getValue(savepath + "pagecnt"));
if(submit("TXMRF03805")){
return model.getValue("/root/main/ocrinfo/ocrtag/tag");
}
//model.removeNodeset("/root/send/reqdata");
}
/**
* @desc : OCR ÆäÀÌÁö À̵¿
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fMovePage(pageno){
var formtype = model.getValue("/root/main/forminfo/formtypecls");
var pid = model.getValue("/root/main/patinfo/items/pid");
var orddd = model.getValue("/root/main/patinfo/items/orddd");
var ordtype = model.getValue("/root/main/patinfo/items/ordtype");
var cretno = model.getValue("/root/main/patinfo/items/cretno");
var formcd = model.getValue("/root/main/ocrinfo/ocrlist/formcd");
var ocrtag = model.getValue("/root/main/ocrinfo/ocrtag/tag");
var ocrtagprntyn = model.getValue("/root/main/forminfo/ocrtagprntyn");
var topinfoprntyn = parent.window.javascript.getParameter("topinfoprntyn");
if(pageno == '1'){
/*
switch(formtype){
case '1':
fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
break;
case '2':
fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
break;
case '3':
fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
break;
case '4':
fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
break;
case '5':
fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
break;
}
*/
} else if ( topinfoprntyn != "Y") {
/* 2009-07-27 nj OCR TYPE5 ¼öÁ¤
if(formtype != "5"){
obj_BCP.LoadChart(gv_BCPINIPath+"default.ini");
fSetDefault();
fSetBottomInfo();
fSetBarCode();
}*/
//obj_BCP.LoadChart(gv_BCPINIPath+"default.ini");
//fSetDefault();
//fSetBottomInfo();
//fSetBarCode();
}
opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
//--Yoo obj_BCP.setParam("bg_path", gv_ImgeSavePath + model.getValue("/root/main/ocrinfo/ocrlist["+pageno+"]/ocrfilenm"));
//--Yoo obj_BCP.Refresh();
f_View.Pagecurrent = pageno;
}
/**
* @desc : ±âÁØÆäÀÌÁö¿¡¼ ´ÙÀ½ ÆäÀÌÁö
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fPostPage(){
var currpage = parseInt(model.getValue("/root/main/ocrinfo/currentpage"));
if( currpage == f_View.Pagetotal )
{
} else
{
currpage = currpage+1;
model.makeValue("/root/main/ocrinfo/currentpage", currpage);
fMovePage(currpage);
btn_prepage.attribute("visibility") = "visible";
if(parseInt(currpage) == parseInt(model.getValue("/root/main/ocrinfo/ocrdatacnt"))){
btn_postpage.disabled = true;
btn_prepage.disabled = false;
}else {
btn_postpage.disabled = false;
btn_prepage.disabled = false;
}
}
}
/**
* @desc : ±âÁØÆäÀÌÁö¿¡¼ ÀÌÀü ÆäÀÌÁö
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fPrePage(){
var currpage = parseInt(model.getValue("/root/main/ocrinfo/currentpage"));
if(currpage == 1){
} else
{
currpage = currpage-1;
model.makeValue("/root/main/ocrinfo/currentpage", currpage);
fMovePage(currpage);
if(currpage == 1){
btn_prepage.disabled = true;
btn_postpage.disabled = false;
} else {
btn_prepage.disabled = false;
btn_postpage.disabled = false;
}
}
}
/**
* @desc : ¹ÙÄÚµå ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetBarCode(){
var barcode = "";
var pageno = 0;
barcode = model.getValue("/root/main/ocrinfo/ocrtag/tag");
pageno = model.getValue("/root/main/ocrinfo/currentpage");
if(pageno.length == 1){
pageno = "0"+pageno;
}
obj_BCP.setParam("barcode", "*"+barcode+pageno+"*");
}
/**
* @desc : Áø´Ü¸í ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetDiag(pid, orddd, cretno, ordtype){
model.removeNodeset("/root/send/reqdata");
if(model.getValue("/root/main/exist") == "Y"){
// obj_BCP.setParam("tag_diagnm", "Áø´Ü¸í");
// obj_BCP.setParam("diagnm", model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm"));
} else if(model.getValue("/root/main/exist") == "N" && model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm") == ""){
model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
model.makeValue("/root/send/reqdata/orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
model.makeValue("/root/send/reqdata/ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
submit("TRMRF03807");
// obj_BCP.setParam("tag_diagnm", "Áø´Ü¸í")
// obj_BCP.setParam("diagnm", model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm"));
}
obj_BCP.setParam("tag_diagnm", "Áø´Ü¸í")
obj_BCP.setParam("diagnm", model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm"));
obj_BCP.Refresh();
}
/**
* @desc : ¼ö¼ú¸í ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetOp(pid, orddd, cretno, ordtype){
obj_BCP.setParam("tag_opnm", "¼ö¼ú¸í");
obj_BCP.setParam("tag_opnm1", "(óġ/°Ë»ç)");
}
/**
* @desc : ÇÏ´ÜÁ¤º¸(Ãâ·ÂÀϽÃ, Ãâ·ÂÀÚ, ÆäÀÌÁö) ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetBottomInfo(){
var getdate = getCurrentDate();
var gettime = getCurrentTime();
var getuser = getUserName();
var getuseren = getUserInfo("userengnm");
var dateprnt = getdate.substr(0, 4) + "/" + getdate.substr(4, 2) + "/" + getdate.substr(6, 2);
var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2);
var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
var ipaddr = getUserInfo("ipaddr");
switch(langflag){
case "KO":
obj_BCP.setParam("bottom_time", "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt);
obj_BCP.setParam("bottom_user", "Ãâ·ÂÀÚ : " + getuser );
obj_BCP.setParam("pagecnt", "ÆäÀÌÁö : " + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
break;
case "EN":
obj_BCP.setParam("bottom_time", "Print Date : " + dateprnt + " " + timeprnt);
if((getuseren == null)||(getuseren == "")){
obj_BCP.setParam("bottom_user", "Printed by : " + getuser);
} else {
// ¿µ¹®µ¿ÀǼµµ Ãâ·ÂÀÚ´Â Çѱ۸íÀ¸·Î Ç¥½ÃµÇ¾î¾ß ÇÔ. 2008-09-17 ±è¹Ì¼± ¼±»ý´Ô ¿äû
obj_BCP.setParam("bottom_user", "Printed by : " + getuser);
//obj_BCP.setParam("bottom_user", "Printed by : " + getuseren.substring(0, 7));
}
obj_BCP.setParam("pagecnt", "Page : " + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
break;
default:
obj_BCP.setParam("bottom_time", "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt);
obj_BCP.setParam("bottom_user", "Ãâ·ÂÀÚ : " + getuser);
obj_BCP.setParam("pagecnt", "ÆäÀÌÁö : " + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
break;
}
var centnm = model.getValue("/root/main/patinfo/items/centnm");
//if (centnm != "")
if (centnm != "False" && centnm != "" )
{
obj_BCP.setParam("centnm", "¼¾Å͸í : " + centnm+'('+ipaddr+')');
}
else
{
obj_BCP.setParam("centnm", ipaddr);
}
}
/**
* @desc : ÆÄÀÏ¼ÂÆÃ1
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
* 20090715 fSetInitFile1 ÆÄ¶ó¸ÞÅÍ ¼öÁ¤ fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
*/
function fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype1.ini");
fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
if(model.getValue("/root/main/ocrinfo/doubcnt") == "1"){
// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆÄ¶ó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
// 20090715 fSetOCRTag(ocrtag);
fSetOCRTag(ocrtag, ocrtagprntyn);
}
fSetTitle();
fSetDiag(pid, orddd, cretno, ordtype);
fSetOp(pid, orddd, cretno, ordtype);
fSetBottomInfo();
}
/**
* @desc : ÆÄÀÏ¼ÂÆÃ2
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
* 20090715 fSetInitFile2 ÆÄ¶ó¸ÞÅÍ ¼öÁ¤ fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
*/
function fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype2.ini");
fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
if(model.getValue("/root/main/ocrinfo/doubcnt") == "1"){
// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆÄ¶ó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
// 20090715 fSetOCRTag(ocrtag);
fSetOCRTag(ocrtag, ocrtagprntyn);
}
fSetTitle();
fSetDiag(pid, orddd, cretno, ordtype);
fSetBottomInfo();
}
/**
* @desc : ÆÄÀÏ¼ÂÆÃ3
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
* 20090715 fSetInitFile3 ÆÄ¶ó¸ÞÅÍ ¼öÁ¤ fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
*/
function fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype3.ini");
fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
if(model.getValue("/root/main/ocrinfo/doubcnt") == "1"){
// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆÄ¶ó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
// 20090715 fSetOCRTag(ocrtag);
fSetOCRTag(ocrtag, ocrtagprntyn);
}
fSetTitle();
fSetBottomInfo();
}
/**
* @desc : ÆÄÀÏ¼ÂÆÃ4
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
* 20090715 fSetInitFile4 ÆÄ¶ó¸ÞÅÍ ¼öÁ¤ fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
*/
function fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype4.ini");
fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
if(model.getValue("/root/main/ocrinfo/doubcnt") == 1){
// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆÄ¶ó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
// 20090715 fSetOCRTag(ocrtag);
fSetOCRTag(ocrtag, ocrtagprntyn);
}
fSetTitle();
fSetBottomInfo();
}
/**
* @desc : ÆÄÀÏ¼ÂÆÃ5
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
* 20090715 fSetInitFile5 ÆÄ¶ó¸ÞÅÍ ¼öÁ¤ fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
*/
function fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype5.ini");
fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
// 2009-07-27 nj Ãß°¡
var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
// formprntnmÀ¸·Î Ãâ·Â¸í º¯°æ
var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
var arryformnm = getformnm.split("\n");
if(arryformnm.length == 2){
obj_BCP.setParam("formnm1", arryformnm[0]);
obj_BCP.setParam("formnm2", arryformnm[1]);
} else if(arryformnm.length == 1){
obj_BCP.setParam("formnm", arryformnm[0]);
}
fSetOCRTag(ocrtag, ocrtagprntyn);
switch(langflag){
case "KO":
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
break;
case "EN":
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
break;
default:
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
break;
}
fSetBottomInfo();
}
/**
* @desc : Áø´Ü¸íÀ̳ª opnm ¼ÂÆÃ
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetDiagOpnm(){
var iptflag = model.getValue("/root/main/iptnmflag");
if(iptflag == "diagnm") {
obj_BCP.setParam("diagnm", model.getValue("/root/main/iptdiaghngnm"));
model.makeValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm", model.getValue("/root/main/iptdiaghngnm"));
} else if(iptflag == "opnm") {
obj_BCP.setParam("opnm", model.getValue("/root/main/iptdiaghngnm"));
model.makeValue("/root/main/ocrinfo/ocrtag/opinfo/opengnm", model.getValue("/root/main/iptdiaghngnm"));
}
obj_BCP.Refresh();
}
/**
* @desc : OCR ¼½Ä º´¿ø º¸°ü¿ë Default Á¤º¸ Ãâ·Â
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetDefault(){
var getdate = model.getValue("/root/main/patinfo/items/orddd");
// Default page Ãâ·Â¸íĪ À¸·Î ¼öÁ¤
// var getformnm = model.getValue("/root/main/ocrinfo/ocrlist/formnm");
var dateprnt = getdate.substr(0, 4) + "/" + getdate.substr(4, 2) + "/" + getdate.substr(6, 2);
var pidinfo = model.getValue("/root/main/patinfo/items/pid");
var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
// formprntnmÀ¸·Î Ãâ·Â¸í º¯°æ
var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
var arryformnm = getformnm.split("\n");
if(arryformnm.length == 2){
obj_BCP.setParam("formnm1", arryformnm[0]);
obj_BCP.setParam("formnm2", arryformnm[1]);
} else if(arryformnm.length == 1){
obj_BCP.setParam("formnm", arryformnm[0]);
}
// º´¿øº° µî·Ï¹øÈ£ Ç¥½Ã¹æ¹ý ¿©ºÎ(HardCode Å×À̺í ÀÌ¿ë) - 2009/06/01 Ãß°¡
mmbfGetHardCodeInfoNm("/root/send/harddata","/root/temp/hardcode", 3801); //OCR¼½ÄÀÇ µî·Ï¹øÈ£ üũ·ÎÁ÷ Ç¥½Ã ¿©ºÎ
var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
if (hardcd == "Y")
{
for(var i = pidinfo.length; i <= 8; i++){
if(i < 8){
pidinfo = "0"+pidinfo;
}
}
var str1 = pidinfo.substr(0, 3);
var str2 = pidinfo.substr(3, 2);
var str3 = pidinfo.substr(5, 2);
var str4 = pidinfo.substr(7, 1);
pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
}
obj_BCP.setParam("rgst_no", pidinfo);
// ȯÀÚ¸í 5ÀڷΠ¥¸£±â
var pat_nm = model.getValue("/root/main/patinfo/items/patnm");
if (pat_nm.length > 10)
{
pat_nm = pat_nm.substr(0, 10);
}
//obj_BCP.setParam("pat_nm", model.getValue("/root/main/patinfo/items/patnm"));
obj_BCP.setParam("pat_nm", pat_nm);
// obj_BCP.setParam("formnm", getformnm);
// 2009-07-27 OCRTAG Ãâ·Â¿©ºÎ ¼öÁ¤
if(model.getValue("/root/main/forminfo/ocrtagprntyn") == "N"){
obj_BCP.setParam("ocrtag", "");
} else {
obj_BCP.setParam("ocrtag", model.getValue("/root/main/temp/ocrtag/tag"));
}
switch(langflag){
case "KO":
obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
break;
case "EN":
obj_BCP.setParam("fromdd", "Date : " + dateprnt);
obj_BCP.setParam("orddept", "Dept : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
obj_BCP.setParam("rrgstno", "SN : " + model.getValue("/root/main/patinfo/items/rrgstno"));
break;
default:
obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
break;
}
}
/**
* @desc : OCR ¼½Ä ȯÀÚ º¸°ü¿ë Default Á¤º¸ Ãâ·Â
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSetDefaultPat(){
var getdate = model.getValue("/root/main/patinfo/items/orddd");
// Default page Ãâ·Â¸íĪ À¸·Î ¼öÁ¤
// var getformnm = model.getValue("/root/main/ocrinfo/ocrlist/formnm");
var dateprnt = getdate.substr(0, 4) + "/" + getdate.substr(4, 2) + "/" + getdate.substr(6, 2);
var pidinfo = model.getValue("/root/main/patinfo/items/pid");
var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
// formprntnmÀ¸·Î Ãâ·Â¸í º¯°æ
var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
var arryformnm = getformnm.split("\n");
if(arryformnm.length == 2){
obj_BCP.setParam("formnm1", arryformnm[0]);
obj_BCP.setParam("formnm2", arryformnm[1]);
} else if(arryformnm.length == 1){
obj_BCP.setParam("formnm", arryformnm[0]);
}
// º´¿øº° µî·Ï¹øÈ£ Ç¥½Ã¹æ¹ý ¿©ºÎ(HardCode Å×À̺í ÀÌ¿ë) - 2009/06/01 Ãß°¡
mmbfGetHardCodeInfoNm("/root/send/harddata","/root/temp/hardcode", 3801); //OCR¼½ÄÀÇ µî·Ï¹øÈ£ üũ·ÎÁ÷ Ç¥½Ã ¿©ºÎ
var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
if (hardcd == "Y")
{
for(var i = pidinfo.length; i <= 8; i++){
if(i < 8){
pidinfo = "0"+pidinfo;
}
}
var str1 = pidinfo.substr(0, 3);
var str2 = pidinfo.substr(3, 2);
var str3 = pidinfo.substr(5, 2);
var str4 = pidinfo.substr(7, 1);
pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
}
obj_BCP.setParam("rgst_no", pidinfo);
// ȯÀÚ¸í 5ÀڷΠ¥¸£±â
var pat_nm = model.getValue("/root/main/patinfo/items/patnm");
if (pat_nm.length > 10)
{
pat_nm = pat_nm.substr(0, 10);
}
//obj_BCP.setParam("pat_nm", model.getValue("/root/main/patinfo/items/patnm"));
obj_BCP.setParam("pat_nm", pat_nm);
// obj_BCP.setParam("formnm", getformnm);
switch(langflag){
case "KO":
obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
break;
case "EN":
obj_BCP.setParam("fromdd", "Date : " + dateprnt);
obj_BCP.setParam("orddept", "Dept : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
obj_BCP.setParam("useflag", "\"" + "For Patient Use" + "\"");
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
obj_BCP.setParam("rrgstno", "SN : " + model.getValue("/root/main/patinfo/items/rrgstno"));
break;
default:
obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
break;
}
}
/**
* @desc : ¼ö°¡¿Í ¸ÅÇÎµÈ ¼½Ä Á¶È¸¸¦ À§ÇÑ ÀÎÅÍÆäÀ̽º
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fCalcScorInterface(pid, orddd, cretno, ordtype, calcscorcd, ocrprntyn){
if((pid == null) || (orddd == null) || (cretno == null) || (ordtype == null)){
messageBox("¿ø¹«Á¢¼ö Á¤º¸°¡", "I004");
return;
}
if ( ocrprntyn == "N" ){
gocrprntyn = "N";
}
var formtypecls = "";
var ocrtagprntyn = "";
var formcd = "";
var formfromddt = "";
var calcscorcdList = "";
var arrycalcscorcd = calcscorcd.split("¢Ë");
var formcd_calc = "";
var prcp_rtn = "";
var popyn = "";
var node = getGlobalVariable("paminfo");
setCSVToNode("/root/main/paminfo", node);
for(var i = 1; i <= arrycalcscorcd.length -1; i++){
calcscorcdList = calcscorcdList + arrycalcscorcd[i-1];
if(i < arrycalcscorcd.length -1){
calcscorcdList = calcscorcdList + ",";
}
}
model.makeValue("/root/send/reqdata/calcscorcd", calcscorcdList);
submit("TRMRF03808");
//¼½Äº° µ¿ÀǼ Ãâ·Â ¿¹¿ÜºÎ¼(20171230)
var excnt = getNodesetCount("/root/main/calcscor/list2[trgtcdnm = '"+arrycalcscorcd[0]+"']");
if (excnt> 0) {
return "X";
}
//½ÃÇàºÎ¼ ó¹æ¿¡¼ µ¿ÀǼ Ãâ·ÂÀ¯¹«
var openWin = getOpenWindow("SMMMO00200");
var popcnt = getNodesetCount("/root/main/calcscor/list[popyn = 'Y']");
if (openWin != null && popcnt> 0) {
if ( 6 != messageBox("µ¿ÀǼ¸¦ Ãâ·ÂÇϽðڽÀ´Ï±î?","Q") ) {
return "X";
}
}
var formList = getNodesetCount("/root/main/calcscor/list");
for(var i = 1; i <= formList; i++){
formcd = model.getValue("/root/main/calcscor/list["+i+"]/formcd");
formfromdt = model.getValue("/root/main/calcscor/list["+i+"]/formfromdt");
formtypecls = model.getValue("/root/main/calcscor/list["+i+"]/formtypecls");
ocrtagprntyn = model.getValue("/root/main/calcscor/list["+i+"]/ocrtagprntyn");
formcd_calc = model.getValue("/root/main/calcscor/list["+i+"]/calcscorcd");
popyn = model.getValue("/root/main/calcscor/list["+i+"]/popyn");
fGetOCRInfo(formcd, pid, orddd, cretno, ordtype, formtypecls, ocrtagprntyn);
var save_ocrtag = fPrint();
var arry_calccd = formcd_calc.split(",");
for(var samecnt = 0; samecnt < arry_calccd.length; samecnt++){
prcp_rtn = prcp_rtn + arry_calccd[samecnt] + "¢Ë" + save_ocrtag + "¢Ë";
}
}
return prcp_rtn;
}
/**
* @desc : OCR Á¤º¸ ÀúÀå
*
* @param :
* @return :
* @author : HIT EMR Team
* @---------------------------------------------------
*/
function fSaveOCRIF(ocrtag, pid, orddd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, diaghngnm, ophngnm, pagecnt, rtnyn){
model.addlog("fSaveOCRIF: " + ocrtag + "," + pid + "," + orddd + "," + cretno + "," + ordtype + "," + orddeptcd + "," + orddrid + "," + formcd + "," + formfromdt + "," + diaghngnm + "," + ophngnm + "," + pagecnt);
var savepath = "/root/send/reqdata/";
model.makeValue(savepath + "ocrtag", ocrtag);
model.makeValue(savepath + "pid", pid);
model.makeValue(savepath + "orddd", orddd);
model.makeValue(savepath + "cretno", cretno);
model.makeValue(savepath + "ordtype", ordtype);
model.makeValue(savepath + "orddeptcd", orddeptcd);
model.makeValue(savepath + "orddrid", orddrid);
model.makeValue(savepath + "instcd", getUserInfo("dutplceinstcd"));
model.makeValue(savepath + "formcd", formcd);
model.makeValue(savepath + "formfromdt", formfromdt);
model.makeValue(savepath + "fstprntdt", getCurrentDate()+getCurrentTime());
model.makeValue(savepath + "fstprntdeptcd", getUserInfo("dutplcecd"));
model.makeValue(savepath + "fstprntid", getUserInfo("userid"));
model.makeValue(savepath + "updtdt", getCurrentDate()+getCurrentTime());
model.makeValue(savepath + "updtdeptcd", getUserInfo("dutplcecd"));
model.makeValue(savepath + "updtuserid", getUserInfo("userid"));
model.makeValue(savepath + "diagnm", diaghngnm);
model.makeValue(savepath + "opnm", ophngnm);
model.makeValue(savepath + "pagecnt", pagecnt);
if(submit("TXMRF03805")){
if(rtnyn == "Y"){ //hardcdno : 9950 ÀÚµ¿¹Ý³³°ü¸®
sleep(1000);
model.makeValue(savepath + "barcode", ocrtag);
model.makeValue(savepath + "updtdt", getCurrentDate()+getCurrentTime());
model.makeValue(savepath + "lstupdtdt", getCurrentDate()+getCurrentTime());
model.makeValue(savepath + "lstupdtuserid", getUserInfo("userid"));
model.makeValue(savepath + "lstupdtdeptcd", getUserInfo("dutplcecd"));
model.makeValue(savepath + "updtresncnts", "");
model.makeValue(savepath + "statcd", "R");
model.makeValue(savepath + "scanyn", "N");
model.makeValue(savepath + "scancnt", "0");
if(!submit("TXMRF02901")){
messageBox("ÀÚµ¿¹Ý³³ÀúÀåÀ» ½ÇÆÐÇÏ¿´½À´Ï´Ù");
}
}
model.removeNodeset("/root/send/reqdata");
return true;
} else {
model.removeNodeset("/root/send/reqdata");
return false;
}
}
// µô·¹ÀÌ function
function sleep(msecs){
var start =new Date().getTime();
var cur=start;
while(cur-start