| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- # 按病案号DRG分组预警接口 (02010006) - IRIS 编译脚本
- # 在 IRIS 终端中执行此脚本（需先将本文件放到 IRIS 服务器可访问路径后 Load）
- #
- # 前置：本脚本编译的三个类源码(.cls)需已加载进 IRIS
- # src/src/DRG/Workbench.cls
- # src/src/DRG/Interface.cls
- # src/src/DRG/BasicData/InterfaceRegister.cls
- #
- # 加载源码（在 IRIS 终端，指向 .cls 所在目录）：
- # Do $System.OBJ.LoadDir("/path/to/src/src/DRG", "ck", , "src.DRG")
- # Do $System.OBJ.LoadDir("/path/to/src/src/DRG/BasicData", "ck", , "src.DRG.BasicData")
- write "========== 编译 02010006 相关类 ==========",!
- set tSC = $system.OBJ.Compile("src.DRG.Workbench", "ck")
- write "src.DRG.Workbench: ",$select($$$ISERR(tSC):"❌ 编译失败",1:"✅ 编译成功"),!
- set tSC = $system.OBJ.Compile("src.DRG.Interface", "ck")
- write "src.DRG.Interface: ",$select($$$ISERR(tSC):"❌ 编译失败",1:"✅ 编译成功"),!
- set tSC = $system.OBJ.Compile("src.DRG.BasicData.InterfaceRegister", "ck")
- write "src.DRG.BasicData.InterfaceRegister: ",$select($$$ISERR(tSC):"❌ 编译失败",1:"✅ 编译成功"),!
- write !,"========== 注册接口路由到 CB_MapInterface ==========",!
- set tSC = ##class(src.DRG.BasicData.InterfaceRegister).RegisterAll()
- write tSC,!
- write !,"========== 简单测试(实例化) ==========",!
- try {
- set tObj = ##class(src.DRG.Workbench).%New()
- write "✅ Workbench 实例化成功",!
- } catch tEx {
- write "❌ Workbench 实例化失败: ",tEx.DisplayString(),!
- }
- try {
- set tObj = ##class(src.DRG.Interface).%New()
- write "✅ Interface 实例化成功",!
- } catch tEx {
- write "❌ Interface 实例化失败: ",tEx.DisplayString(),!
- }
- write !,"请检查以上输出，如有错误请反馈。",!
|
