-- 编译HIS数据模块相关的类 -- 在IRIS终端中执行此脚本,或使用Do $System.OBJ.Compile命令 -- 方法1:在IRIS终端中执行 -- Do $System.OBJ.Compile("src.DRG.HISData.HisDataService","ck") -- Do $System.OBJ.Compile("src.DRG.HISData.Interface","ck") -- 方法2:使用SQL脚本(需要适当权限) -- 此脚本用于记录需要编译的类 SELECT '需要编译以下类: 1. src.DRG.HISData.HisDataService.cls - 添加了查询方法 - QuerySyncedPatients (02010075) - QueryPatientDetail (02010076) - QuerySyncLogs (02010077) 2. src.DRG.HISData.Interface.cls - 添加了接口方法 - GetSyncedPatients (02010075) - GetPatientDetail (02010076) - GetSyncLogs (02010077) 3. src.DRG.HISData.SyncTaskService.cls - HIS同步任务调度器(自动同步修复) - RunScheduledTasks (02010083) - 修复 ShouldRunNow hourly 跨天去重 bug;关闭诊断日志硬编码 - InitScheduleTask (02010084) - 可选,每日兜底扫描 - GetSyncConfig (02010079) / SaveSyncConfig (02010080) / GetSyncStatus (02010081) 4. src.DRG.HISData.SyncSchedulerTask.cls - %SYS.Task 子类(InitScheduleTask 使用) 编译命令(在IRIS终端执行): Do $System.OBJ.Compile("src.DRG.HISData.HisDataService,src.DRG.HISData.Interface,src.DRG.HISData.SyncTaskService,src.DRG.HISData.SyncSchedulerTask,src.DRG.HISData.Tests.SyncTaskServiceTest","ck") 或分别编译: Do $System.OBJ.Compile("src.DRG.HISData.HisDataService","ck") Do $System.OBJ.Compile("src.DRG.HISData.Interface","ck") Do $System.OBJ.Compile("src.DRG.HISData.SyncTaskService","ck") Do $System.OBJ.Compile("src.DRG.HISData.SyncSchedulerTask","ck") Do $System.OBJ.Compile("src.DRG.HISData.Tests.SyncTaskServiceTest","ck") 单元测试运行: Do ##class(%UnitTest.Manager).RunTest("src.DRG.HISData.Tests") ' AS Note;