关于%Dictionary.CompiledClass类在实际业务中的一些应用

文章

lizw lizw · 九月 28, 2022 阅读大约需 12 分钟

简单分享下在医院实际业务过程中%Dictionary.CompiledClass的一些应用。
一，Query查询出来的数据直接存表。
       我们经常会遇到一些突如其来的检查，如：飞行检查，审计检查等等，往往一下子要查询几年的各种数据，每种数据涉及字段还非常多，数据之间还要求对上，查询耗时长，数据对比难度大，此时，我们需要把查询出来的数据直接存到临时表，数据核对和修改直接在临时表中完成，核对好的数据直接在sqldbx或者水滴等查询工具中整表导出，效率会高一些。
       具体实现：按照数据要求，把表建好，Query输出字段和表字段顺序一致，按日期每天调用Query查询和插入，记录异常数据，后续单独处理。
       优点：效率明显提高，数据核对和修改、导出很方便，避免了数据量大，多次查询耗时长问题。
       缺点：数据量大会占用存储，记得删。
// W ##CLASS(lizw.CloseCycleData).insertDayByDay("2022-01-01","2022-06-30")
ClassMethod insertDayByDay(sd, ed)
{
   k ^tmplzw("insertFromQyeryTestpara",$j)
   S classOBJ=##class(%Dictionary.CompiledClass).%OpenId("lizw.User.CloseCycleDateTime") //##class(lizw.User.CloseCycleDateTime).%New()
   if (classOBJ.%IsA("%Library.Persistent")||(classOBJ.%IsA("%RegisteredObject"))){
       s className=classOBJ.Name
       s pkgName=classOBJ.SqlSchemaName //%PackageName()
       s key=""
       s:$d(^oddCOM(className)) ClassName=className
       q:ClassName=""
       f {
           s key=$o(^oddCOM(ClassName,"a",key))
           q:key=""
           i $e(key,1)="%"{
               continue
           }
           s private=$g(^oddDEF(ClassName,"a",key,35))
           if private=1{
               continue
           }
           continue:$g(^oddDEF(ClassName,"a",key,11))=""
           ;B ; ClassName
           s ^tmplzw("insertFromQyeryTestpara",$j,$g(^oddDEF(ClassName,"a",key,11)))=$g(^oddDEF(ClassName,"a",key,47))
       }
   }
   s parakey="",fields=""
   f s parakey=$o(^tmplzw("insertFromQyeryTestpara",$j,parakey)) q:parakey="" d
   .i fields="" s fields=^tmplzw("insertFromQyeryTestpara",$j,parakey)
   .e s fields=fields_","_^tmplzw("insertFromQyeryTestpara",$j,parakey)
   ;b ; fields
   s sd=$zdh(sd,3)
   s ed=$zdh(ed,3)
   f dd=sd:1:ed d
   .s stdate=$zd(dd,3)
   .w stdate_"^"_$zt($p($h,",",2)),!
   .d ..insertFromQyeryPublic("lizw.CloseCycleData","GetLabTransferDateTime","lizw.User.CloseCycleDateTime","lizw_User.CloseCycleDateTime",stdate,stdate,"","",fields)
   q "OK"
}

// W ##CLASS(lizw.CloseCycleData).insertFromQyeryPublic("lizw.CloseCycleData","GetLabTransferDateTime","lizw.User.CloseCycleDateTime","lizw_User.CloseCycleDateTime","2022-01-01","2022-01-01")
ClassMethod insertFromQyeryPublic(queryClass, queryMethod, userName, tableName, arg1 = "", arg2 = "", arg3 = "", arg4 = "", arg5 = "")
{
s totalNum=0
try{
   Set queryrset=##class(%ResultSet).%New(queryClass_":"_queryMethod)
    do queryrset.Execute(arg1,arg2)
    Set columns = queryrset.GetColumnCount()
   S SQLresult=##class(%SQL.Statement).%New()
    While (queryrset.Next()) {
        s values=""
        f inum=1:1:columns d
        .i values="" s values=""""_queryrset.GetData(inum)_""""
        .e s values=values_","_""""_queryrset.GetData(inum)_""""
       s sqlStr ="INSERT INTO "_tableName_" ("_fields_") VALUES ("_values_")"
       s Status=SQLresult.%Prepare(sqlStr)
       s SSRET = SQLresult.%Execute()
       ; b ; SSRET.%SQLCODE
       i SSRET.%SQLCODE'=0 w arg1_"^"_SSRET.%SQLCODE,!
       i SSRET.%SQLCODE'=0 b ; SSRET.%SQLCODE
        s totalNum=totalNum+1
    }
   }
catch{
      s ^lzw("insertFromQyeryErr",+$h,$zts)=$g(arg1)_"^"_$g(arg2)_"^"_$ze
      }
   q totalNum
}

二，病案数据、医保结算清单数据等上传，上传数据组织成xml或json等格式，上传数据存表记录。
      在实际业务中，经常需要做一些数据上报、第三方接口等等，数据传输格式往往是xml或json等同格式，我们一般会建一个类，Property 就是需要上传的字段，继承%XML.Adaptor，输出时调用DO Obj.XMLExportToString(.XML,"Response")输出xml。在与第三方交互时，我们往往需要记录给第三方的入参及返回，此时，我们通过%Dictionary.CompiledClass可以很方便的把xml类的数据存储到表。
      具体实现：按照接口要求，把注册类和持久类建好，表字段名一致，转换时按名称匹配比较方便，否则要做映射。
       优点：把数据上传和合并合到一起了，注册类数据存储到持久类也很方便。如果按正常的步骤，先把数据存起来，再组织xml会比较麻烦一些，特别是上传数据量大，涉及到一堆子表的情况下。
       缺点：毕竟多了一步数据存储，会影响效率。如果是走平台或者不需要记录数据就不用这样做。
// 建一个注册类，转换xml
Class lizw.yb.JSQDXML Extends (%RegisteredObject, %XML.Adaptor)
{

Parameter XMLIGNORENULL = 1;

Parameter XMLIGNOREINVALIDTAG = 1;

Parameter XMLNAME = "Response";

/// 必填
Property EpisodeID As %String(CONTENT = "就诊号", MAXLEN = 200, XMLNAME = "EpisodeID");

/// 人员编号
Property psnno As %String(CONTENT = "人员编号", MAXLEN = 200, XMLNAME = "psn_no");
。
。
。
}

// 建一个持久类，存储数据
Class lizw.User.JSQDSAVE Extends %Library.Persistent [ ClassType = persistent, Owner = {_SYSTEM}, Not ProcedureBlock, SqlRowIdName = JSQD_rowid, SqlTableName = JSQDSAVE_Data ]
{

Parameter XMLIGNOREINVALIDTAG = 1;

Parameter XMLIGNORENULL = 1;

/// 必填
Property EpisodeID As %String [ SqlColumnNumber = 2, SqlFieldName = JSQD_EpisodeID ];

/// 就诊ID
Property psnno As %String [ SqlColumnNumber = 3, SqlFieldName = psn_no ];
。
。
。
}

/// Return:        出院诊断、手术取病案首页上的   w ##class(lizw.JSQDInsert).GetChargeBillDataGJYB("34430780")
ClassMethod GetChargeBillDataGJYB(AEpisodeID As %String, AIsEMR As %String = "")
{
s ModelObj = ##class(lizw.yb.JSQDXML).%New()
       //出院科室
   s RMYYCYKS=##Class(EMRservice.HISInterface.PatientInfoAssist).DisDept(AEpisodeID)
   s CTLOCDr=$p(RMYYCYKS,"^",1)
   s HOSpId=$P(^CTLOC(CTLOCDr),"^",22)
   // 取系统参数
   s Hospital=""
   s ModelObj.EpisodeID=AEpisodeID
   s (cykssj,setlid,mdtrtid,adminfo,jjpayStr)="0"
   &sql(SELECT max(INPAY_iDate) ,INPAY_djlsh0 , INPAY_zylsh0 ,INPAY_id0000, INPAY_AdmInfoDr, INPAY_Zstr11 INTO :cykssj, :setlid, :mdtrtid,:psnno ,:adminfo, :jjpayStr FROM sqluser.insu_divide WHERE INPAY_AdmDr =:AEpisodeID AND INPAY_Flag ='I' ORDER BY INPAY_Rowid desc)
   s ModelObj.psnno=psnno
。
。
。
                               d ..ObjExchange(ModelObj)
       do ModelObj.%Close()
       DO ModelObj.XMLExportToString(.XML,"Response")
       ;b // 输出XML
       q XML
}

// 注册类数据存储到表
ClassMethod ObjExchange(ClassOBJ)
{

    s ClassName="lizw.yb.JSQDXML"
    s dcd1 = ##Class(%Dictionary.CompiledClass).%OpenId(ClassName)
    s objName="lizw.User.JSQDSAVE"
    s obj=##class(lizw.User.JSQDSAVE).%New()
   s cnt=dcd1.Properties.Count()
   f i=2:1:cnt d
   .s propObj = dcd1.Properties.GetAt(i)
   .s PropertyName = propObj.Name
   .i ##class(web.DHCBL.BDP.FindTableStructure).PropertyExistOrNot(objName,PropertyName)=1 d
   ..s $PROPERTY(obj,PropertyName)=$PROPERTY(ClassOBJ,PropertyName)

   s $PROPERTY(obj,"supDate")=+$h
   d obj.%Save()
   s GJYBID=obj.%Id()

   s dlen=ClassOBJ.opspdiseinfo.Count()
   f diagnum=1:1:dlen d
   .s opspdiseinfoobj=##class(lizw.yb.opspdiseinfoSave).%New()
   .s opspdiseinfoobj.diagname=ClassOBJ.opspdiseinfo.GetAt(diagnum).diagname
   .s opspdiseinfoobj.diagcode=ClassOBJ.opspdiseinfo.GetAt(diagnum).diagcode
   .s opspdiseinfoobj.oprnoprtname=ClassOBJ.opspdiseinfo.GetAt(diagnum).oprnoprtname
   .s opspdiseinfoobj.oprnoprtcode=ClassOBJ.opspdiseinfo.GetAt(diagnum).oprnoprtcode
   .D opspdiseinfoobj.GJYBIDSetObjectId(GJYBID)
   .D opspdiseinfoobj.%Save()
。
。
。
}

三，把注册类或者持久类中的数据转换成json。
      在实际业务中，对于字段比较多，需要输出成json格式时，我们可以把数据已经组织好的注册类或持久类转换成json键值对。
      具体实现：按照字段要求，把存放数据的类建好，字段名跟json要求保持一致，否则要做映射。
       优点：把注册类或持久类存放的数据直接转换成json键值，当json涉及的字段较多时，可以省去较多的代码量。
       缺点：使用与数据已经组织或已存放好，json键值较多的情况。

/// w ##Class(lizw.JSQDInsert).ReturnInputJSON("2")
ClassMethod ReturnInputJSON(TID As %String) As %String
{
   s OutputObj=##class(%DynamicObject).%New()
   S obj=##class(lizw.User.JSQDSAVE).%OpenId(TID)
   s setlinfoObj=##class(%DynamicObject).%New()
   s adm=obj.EpisodeID
   s AdmInfoDr=$o(^DHCINADM("0","ADM",adm,""),-1)
   s AdmInfo=$g(^DHCINADM(AdmInfoDr))
   s InsuAdmCenter=$p(AdmInfo,"^",8)
   d OutputObj.%Set("infno","4101A")
   s msgid="H42010400158"_$tr($zd(+$h,3),"-")_$tr($zt($p($h,",",2)),":")_$e($tr($zt($p($h,",",2)),":"),1,4)
   d OutputObj.%Set("msgid",msgid)
   d OutputObj.%Set("insuplc_admdvs",InsuAdmCenter)
   d OutputObj.%Set("mdtrtarea_admvs","420100")
   。
   。
   。
   d OutputObj.%Set("fixmedins_name","武汉市中西医结合医院(武汉市第一医院)")
   d OutputObj.%Set("sign_no","")

   s setlinfoarr=..GetDynamicObjectFromOBJ(obj)
   s oprninfoArr=##class(%DynamicArray).%New()
   S oprninfoId=""
   F S oprninfoId=$o(^lizw.yb.oprninfoSaveI("GJYBID",TID,oprninfoId)) Q:oprninfoId="" D
   .S obj=##class(lizw.yb.oprninfoSave).%OpenId(oprninfoId)
   .s oprninfoObj=..GetDynamicObjectFromOBJ(obj)
   .d oprninfoArr.%Push(oprninfoObj)
   d setlinfoObj.%Set("oprninfo",oprninfoArr)

   s iteminfoArr=##class(%DynamicArray).%New()
   S iteminfoId=""
   F S iteminfoId=$o(^lizw.yb.bldinfoSaveI("GJYBID",TID,iteminfoId)) Q:iteminfoId="" D
   .S obj=##class(lizw.yb.bldinfoSave).%OpenId(iteminfoId)
   .s iteminfoObj=..GetDynamicObjectFromOBJ(obj)
   .d iteminfoArr.%Push(iteminfoObj)
   d setlinfoarr.%Set("bldinfo",iteminfoArr)

   s diseinfoArr=##class(%DynamicArray).%New()
   S diseinfoId=""
   F S diseinfoId=$o(^lizw.yb.diseinfoSaveI("GJYBID",TID,diseinfoId)) Q:diseinfoId="" D
   .S obj=##class(lizw.yb.diseinfoSave).%OpenId(diseinfoId)
   .s diseinfoObj=..GetDynamicObjectFromOBJ(obj)
   .d diseinfoArr.%Push(diseinfoObj)
   d setlinfoObj.%Set("diseinfo",diseinfoArr)

   s opspdiseinfoArr=##class(%DynamicArray).%New()
   S opspdiseinfoId=""
   F S opspdiseinfoId=$o(^lizw.yb.opspdiseinfoSaveI("GJYBID",TID,opspdiseinfoId)) Q:opspdiseinfoId="" D
   .S obj=##class(lizw.yb.opspdiseinfoSave).%OpenId(opspdiseinfoId)
   .s opspdiseinfoObj=..GetDynamicObjectFromOBJ(obj)
   .d opspdiseinfoArr.%Push(opspdiseinfoObj)
   d setlinfoObj.%Set("opspdiseinfo",opspdiseinfoArr)

   s icuinfoArr=##class(%DynamicArray).%New()
   S icuinfoId=""
   F S icuinfoId=$o(^lizw.yb.icuinfoSaveI("GJYBID",TID,icuinfoId)) Q:icuinfoId="" D
   .S obj=##class(lizw.yb.icuinfoSave).%OpenId(icuinfoId)
   .s icuinfoObj=..GetDynamicObjectFromOBJ(obj)
   .d icuinfoArr.%Push(icuinfoObj)
   d setlinfoObj.%Set("icuinfo",icuinfoArr)
   d setlinfoObj.%Set("setlinfo",setlinfoarr)
   d OutputObj.%Set("input",setlinfoObj)
   q TID_$c(0)_OutputObj.%ToJSON()
}

ClassMethod GetDynamicObjectFromOBJ(classOBJ) As %DynamicObject
{
   s arr=##class(%DynamicObject).%New()
   if (classOBJ.%IsA("%Library.Persistent")||(classOBJ.%IsA("%RegisteredObject"))){
       s className=classOBJ.%ClassName()
       s pkgName=classOBJ.%PackageName()
       s key=""
       s:$d(^oddCOM(className)) ClassName=className
       s:$d(^oddCOM(pkgName_"."_className)) ClassName=pkgName_"."_className
       f {
           s key=$o(^oddCOM(ClassName,"a",key))
           q:key=""
           i $e(key,1)="%"{
               continue
           }
           s private=$g(^oddDEF(ClassName,"a",key,35))
           if private=1{
               continue
           }
           continue:((key="GJYBID")||(key="supDate")||(key="BAH")||(key="EpisodeID"))
           d arr.%Set(^oddDEF(ClassName,"a",key,47),$PROPERTY(classOBJ,key))
       }
   }
   q arr
}