| 1234567891011121314151617181920212223242526272829303132333435363738 |
- -- 编译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;
|