YNU_JEUS/app_home/himed/xpapps/emr/ercarexp/xp/SPMNE02303_파랑새기록인증저장정보생성.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMNE02303" position="absolute 0 0 0 0" titletext="Untitle" oninit="SPMNE02303_oninit" onload="SPMNE02303_onload">
    <Layouts>
      <Layout/>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_signSaveData_saveDataList" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="stmtspec" type="STRING" size="256"/>
          <Column id="attrinfo" type="STRING" size="256"/>
          <Column id="status" type="STRING" size="256"/>
          <Column id="origincd" type="STRING" size="256"/>
          <Column id="stmtcd" type="STRING" size="256"/>
          <Column id="dnarflag" type="STRING" size="256"/>
          <Column id="recoriginflag" type="STRING" size="256"/>
          <Column id="recdtflag" type="STRING" size="256"/>
          <Column id="recdt" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="recflag" type="STRING" size="256"/>
          <Column id="reclnkkey" type="STRING" size="256"/>
          <Column id="diagstmtcd" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="dnarnm" type="STRING" size="256"/>
          <Column id="usernm" type="STRING" size="256"/>
          <Column id="deptflagnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="stmtspec"/>
            <Col id="attrinfo"/>
            <Col id="status"/>
            <Col id="origincd"/>
            <Col id="stmtcd">--------</Col>
            <Col id="dnarflag">3A</Col>
            <Col id="recoriginflag"/>
            <Col id="recdtflag"/>
            <Col id="recdt"/>
            <Col id="pid"/>
            <Col id="indd"/>
            <Col id="cretno"/>
            <Col id="instcd"/>
            <Col id="ioflag"/>
            <Col id="orddeptcd"/>
            <Col id="recflag"/>
            <Col id="reclnkkey"/>
            <Col id="diagstmtcd"/>
            <Col id="orddd"/>
            <Col id="dnarnm"/>
            <Col id="usernm"/>
            <Col id="deptflagnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_recinfo_reclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_recinfo_nursingrecordlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_signSaveData_saveDataList" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-10-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-10-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include 'com_commonxp::comm_main.xjs';
include "emr_carecomxp::CareCom.xjs";
include "emr_carerecxp::CareRec.xjs";
include "emr_carecomxp::ENRSignEngine.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

function SPMNE02303_oninit(obj:Form, e:InitEventInfo)
{
	
	frmf_initForm(obj);
	Sign.init();
}

function SPMNE02303_onload(obj:Form, e:LoadEventInfo)
{
	try{
		ds_main_recinfo_reclist.copyData(arg_ds_main_recinfo_reclist);
		ds_main_recinfo_nursingrecordlist.copyData(arg_ds_main_recinfo_nursingrecordlist);
	}catch(e){
		sysf_catchTrace(e);
	}
	
	var savePath= ds_main_signSaveData_saveDataList;
	var recPath= ds_main_recinfo_reclist;
	var nrsRecPath= ds_main_recinfo_nursingrecordlist;	
	var savePath2= ds_temp_signSaveData_saveDataList;
	
	var recrslt="";
	var prcpvol="";
	var recdd = "";
	var rectm="";
	var prcpnm2 = "";
	var recflag = "";
	var grupcd="";
	
	
	
	var pCode = "'003', 'U15'";    //'U15':영상의학과 추가.  '003':항암주사실
	var pDate = utlf_getCurrentDate(); // 조회기준일자
	fGetNursHardCdInfo(pCode, pDate);
	
	var pid       = sysf_getModelProperty("pid");
	var indd      = sysf_getModelProperty("indd");
	var cretno    = sysf_getModelProperty("cretno");
	var ordtype   = sysf_getModelProperty("ordtype");
	var orddeptcd = sysf_getModelProperty("orddeptcd");
	var orddrid   = sysf_getModelProperty("orddrid");
	var orddd     = '-';
	var instcd = sysf_getUserInfo("dutplceinstcd");
	
	//var spcldept = model.getValue("/root/code/codeinfo/codelist[cdgrupid='003' and cdid='" + getUserInfo("dutplcecd") + "']/cdid");
	ds_codelist.filter("cdgrupid == '003' && cdid == '" + sysf_getUserInfo("dutplcecd") + "'");
	var spcldept = ds_codelist.getColumn(0, "cdid");
	ds_codelist.filter("");
	
	if(ordtype == "I" || ordtype=="E" || ordtype=="D") {
		orddd="-";
		recflag = "E";
		if(instcd=="031") {
			if(ordtype=="E") {
				grupcd = "00005157";
				recflag = "E";
			} else if(ordtype == "D" && !utlf_isNull(spcldept)) {
				grupcd = "00002851";
				recflag="C";
			}  else {
				grupcd = "00005862";
				recflag = "W";
			}
		} else {
			if(ordtype=="E") {
				grupcd = "00002043";
				recflag ="E";
			} else if(ordtype == "D") {
				grupcd = "00004307";
				recflag = "C";
			} else {
				grupcd = "00003846";
				recflag="W";
			}
		}
	} 
	
	var cnt = 0;
	
	
	for (var i = 0; i < ds_main_recinfo_nursingrecordlist.rowcount; i++) {
				
		dsf_makeValue(savePath, "stmtspec"	   , "string", nrsRecPath.getColumn(i, "stmtspec"), i);
		dsf_makeValue(savePath, "status"       , "string", "U", i);
		dsf_makeValue(savePath, "attrinfo"     , "string", "", i);
		dsf_makeValue(savePath, "origincd"     , "string", nrsRecPath.getColumn(i, "origincd"), i);
		dsf_makeValue(savePath, "stmtcd"       , "string", nrsRecPath.getColumn(i, "stmtcd"), i);
		dsf_makeValue(savePath, "dnarflag"     , "string", nrsRecPath.getColumn(i, "dnarflag"), i);
		dsf_makeValue(savePath, "recoriginflag", "string", nrsRecPath.getColumn(i, "recoriginflag"), i);
		dsf_makeValue(savePath, "recdtflag"    , "string", 'U', i);
		dsf_makeValue(savePath, "recdt"        , "string", nrsRecPath.getColumn(i, "recdd") + nrsRecPath.getColumn(i, "rectm"), i);
		dsf_makeValue(savePath, "pid"          , "string", nrsRecPath.getColumn(i, "pid"), i);
		dsf_makeValue(savePath, "indd"         , "string", nrsRecPath.getColumn(i, "indd"), i);
		dsf_makeValue(savePath, "cretno"       , "string", nrsRecPath.getColumn(i, "cretno"), i);
		dsf_makeValue(savePath, "instcd"       , "string", sysf_getUserInfo("dutplceinstcd"), i);
		dsf_makeValue(savePath, "ioflag"       , "string", ordtype, i);
		dsf_makeValue(savePath, "orddeptcd"    , "string", orddeptcd, i);
		dsf_makeValue(savePath, "recflag"      , "string", nrsRecPath.getColumn(i, "recflag"), i);
		dsf_makeValue(savePath, "reclnkkey"    , "string", nrsRecPath.getColumn(i, "reclnkkey"), i);
		dsf_makeValue(savePath, "diagstmtcd"   , "string", "", i);
		dsf_makeValue(savePath, "orddd"        , "string", nrsRecPath.getColumn(i, "outdd"), i);
		dsf_makeValue(savePath, "dnarnm"       , "string", "", i);
		dsf_makeValue(savePath, "usernm"       , "string", sysf_getUserInfo("usernm"), i);
		dsf_makeValue(savePath, "deptflagnm"   , "string", "", i);
		
		cnt++;
	}
	
	var cdnm
	
	var drprcpetc7;
	var setnm ;
	var setcd;
	
	for (var i = 0; i < ds_main_recinfo_reclist.rowcount; i++) {
		
		drprcpetc7 = recPath.getColumn(i, "drprcpetc7");
		prcpnm     = recPath.getColumn(i, "prcpnm");
		recdd      = recPath.getColumn(i, "recdd");
		rectm      = recPath.getColumn(i, "rectm");
		setcd      = recPath.getColumn(i, "setcd");
		
		//setnm = model.getValue("/root/code/codeinfo/codelist[cdgrupid='U15' and cdid='" + setcd + "']/cdnm");		
		ds_codelist.filter("cdgrupid == 'U15' && cdid == '" + setcd + "'");
		setnm = ds_codelist.getColumn(0, "cdnm");
		ds_codelist.filter("");
		
		if(!utlf_isNull(utlf_trim(prcpnm)) && !utlf_isNull(utlf_trim(drprcpetc7))){
			if(setcd == "05" || setcd == "06") {
				dsf_makeValue(savePath, "stmtspec", "string", utlf_transNullToEmpty(rectm).substr(0,2) + ":" + utlf_transNullToEmpty(rectm).substr(2,2) + " [" + prcpnm + "][" + drprcpetc7 + "] 단위 투여함.", (cnt + i));
			} else {
				dsf_makeValue(savePath, "stmtspec", "string", utlf_transNullToEmpty(rectm).substr(0,2) + ":" + utlf_transNullToEmpty(rectm).substr(2,2) + " [" + setnm + "] 시행함.", (cnt + i));
			}
		}
		
		dsf_makeValue(savePath, "status"       , "string", "I", (cnt + i));
		dsf_makeValue(savePath, "attrinfo"     , "string", "", (cnt + i));
		dsf_makeValue(savePath, "origincd"     , "string", "00000841", (cnt + i));
		dsf_makeValue(savePath, "stmtcd"       , "string", "--------", (cnt + i));
		dsf_makeValue(savePath, "dnarflag"     , "string", "3A", (cnt + i));
		dsf_makeValue(savePath, "recoriginflag", "string", "T", (cnt + i));
		dsf_makeValue(savePath, "recdtflag"    , "string", "A", (cnt + i));
		
		dsf_makeValue(savePath, "recdt"        , "string", recdd + rectm, (cnt + i));
		dsf_makeValue(savePath, "pid"          , "string", pid, (cnt + i));
		dsf_makeValue(savePath, "indd"         , "string", indd, (cnt + i));
		dsf_makeValue(savePath, "cretno"       , "string", cretno, (cnt + i));
		dsf_makeValue(savePath, "instcd"       , "string", sysf_getUserInfo("dutplceinstcd"), (cnt + i));
		dsf_makeValue(savePath, "ioflag"       , "string", ordtype, (cnt + i));
		dsf_makeValue(savePath, "orddeptcd"    , "string", orddeptcd, (cnt + i));
		dsf_makeValue(savePath, "recflag"      , "string", recflag, (cnt + i));
		dsf_makeValue(savePath, "reclnkkey"    , "string", pid+","+(orddd == "-" ? indd : orddd )+","+cretno+","+sysf_getUserInfo("dutplceinstcd"), (cnt + i));
		dsf_makeValue(savePath, "diagstmtcd"   , "string", "", (cnt + i));
		dsf_makeValue(savePath, "orddd"        , "string", "-", (cnt + i));
		dsf_makeValue(savePath, "dnarnm"       , "string", "", (cnt + i));
		dsf_makeValue(savePath, "usernm"       , "string", sysf_getUserInfo("usernm"), (cnt + i));
		dsf_makeValue(savePath, "deptflagnm"   , "string", "", (cnt + i));
	}
	
	for (var i = 0; i <  ds_main_recinfo_reclist.rowcount; i++) {
		drprcpetc7 = recPath.getColumn(i, "drprcpetc7");
		prcpnm     = recPath.getColumn(i, "prcpnm");
		recdd   = recPath.getColumn(i, "recdd");
		rectm   = recPath.getColumn(i, "rectm");
		setcd    = recPath.getColumn(i, "setcd");
		
		//setnm = model.getValue("/root/code/codeinfo/codelist[cdgrupid='U15' and cdid='" + setcd + "']/cdnm");		
		ds_codelist.filter("cdgrupid == 'U15' && cdid == '" + setcd + "'");
		setnm = ds_codelist.getColumn(0, "cdnm");
		ds_codelist.filter("");
						
		if(!utlf_isNull(utlf_trim(prcpnm)) && !utlf_isNull(utlf_trim(drprcpetc7))){
			if(setcd == "05" || setcd == "06") {
				dsf_makeValue(savePath2, "stmtspec", "string", utlf_transNullToEmpty(rectm).substr(0,2) + ":" + utlf_transNullToEmpty(rectm).substr(2,2) + " [" + prcpnm + "][" + drprcpetc7 + "] 단위 투여함.", i);
			} else {
				dsf_makeValue(savePath2, "stmtspec", "string", utlf_transNullToEmpty(rectm).substr(0,2) + ":" + utlf_transNullToEmpty(rectm).substr(2,2) + " [" + setnm + "] 시행함.", i);
			}
		}
		
		dsf_makeValue(savePath2, "status"       , "string", "I", i);
		dsf_makeValue(savePath2, "attrinfo"     , "string", "", i);
		dsf_makeValue(savePath2, "origincd"     , "string", grupcd, i);
		dsf_makeValue(savePath2, "stmtcd"       , "string", "--------", i);
		dsf_makeValue(savePath2, "dnarflag"     , "string", "3A", i);
		dsf_makeValue(savePath2, "recoriginflag", "string", "T", i);
		dsf_makeValue(savePath2, "recdtflag"    , "string", "U", i);
		
		dsf_makeValue(savePath2, "recdt"        , "string", recdd + rectm, i);
		dsf_makeValue(savePath2, "pid"          , "string", pid, i);
		dsf_makeValue(savePath2, "indd"         , "string", indd, i);
		dsf_makeValue(savePath2, "cretno"       , "string", cretno, i);
		dsf_makeValue(savePath2, "instcd"       , "string", sysf_getUserInfo("dutplceinstcd"), i);
		dsf_makeValue(savePath2, "ioflag"       , "string", ordtype, i);
		dsf_makeValue(savePath2, "orddeptcd"    , "string", orddeptcd, i);
		dsf_makeValue(savePath2, "recflag"      , "string", recflag, i);
		dsf_makeValue(savePath2, "reclnkkey"    , "string", pid+","+(orddd == "-" ? indd : orddd )+","+cretno+","+sysf_getUserInfo("dutplceinstcd"), i);
		dsf_makeValue(savePath2, "diagstmtcd"   , "string", "", i);
		dsf_makeValue(savePath2, "orddd"        , "string", "-", i);
		dsf_makeValue(savePath2, "dnarnm"       , "string", "", i);
		dsf_makeValue(savePath2, "usernm"       , "string", sysf_getUserInfo("usernm"), i);
		dsf_makeValue(savePath2, "deptflagnm"   , "string", "", i);
	}
	
	//var node = instance1.selectNodes(savePath2);
	//var csv = getNodeListCSV(node);	
	var csv = dsf_getDsCSV(savePath2);	
	
	Sign.certchkflag = "N";
	if(Sign.signprocess() ){
		//dsf_makeValue(main"/root/main/sign", Sign.signedInfos);
		opener.frmf_setParameter("nodeinfo", csv);
		opener.frmf_setParameter("signbfcnts", Sign.signedInfos[1]);
		opener.frmf_setParameter("signaftcnts", Sign.signedInfos[2]);
		this.close();
	}
}

function fMake_SignData() {
	//Sign.addnode("/root/main/signSaveData");	
	var arrSignPath = new Array();	
	var arrSignDs = new Array();
	arrSignPath[0] = "/signSaveData/saveDataList";
	arrSignDs[0] = ds_main_signSaveData_saveDataList.saveXML();
	Sign.addnodeset(arrSignPath, arrSignDs);
}
]]></Script>
  </Form>
</FDL>