-- 注册 HIS 住院费用明细同步接口 02010068 到 CB_MapInterface
-- 接口码：02010068
-- ClassName : src.DRG.HISData.Interface
-- MethodName: GetInpatientFeeData
-- ServiceType: A（写类）
-- 说明：仅通过 CB_MapInterface 通用路由调用，不修改 src.Rest.DRGHis.cls

-- 清理可能存在的旧数据（避免重复注册）
&sql(DELETE FROM CB_MapInterface WHERE Code = '02010068')

-- 1. 保存HIS住院患者费用明细接口 (02010068)
SET obj=##class(User.CBMapInterface).%New()
SET obj.Code="02010068"
SET obj.Descripts="HIS数据同步-获取住院费用明细"
SET obj.ClassName="src.DRG.HISData.Interface"
SET obj.MethodName="GetInpatientFeeData"
SET obj.ServiceType="A"
SET obj.SessionFlag="Y"
SET obj.TokenFlag="N"
SET obj.StartDate=$zd($h,5)
SET obj.Status="Y"
SET sc=obj.%Save()
IF $$$ISERR(sc) { WRITE "保存接口02010068失败："_$System.Status.GetErrorText(sc,"cn"),! }
ELSE { WRITE "接口02010068已添加",! }

-- 查询验证
WRITE "=== 已添加的HIS费用明细同步接口 ===",!
SET stmt=##class(%SQL.Statement).%New()
SET prepSC=stmt.%Prepare("SELECT Code,Descripts,ClassName,MethodName,ServiceType,SessionFlag,TokenFlag,Status FROM CB_MapInterface WHERE Code = '02010068'")
IF $$$ISERR(prepSC) { WRITE "SQL准备失败："_$System.Status.GetErrorText(prepSC,"cn"),! }
ELSE {
    SET rslt=stmt.%Execute()
    WHILE rslt.%Next() {
        WRITE rslt.%Get("Code")_" - "_rslt.%Get("Descripts")_" ["_rslt.%Get("ClassName")_"."_rslt.%Get("MethodName")_"] ServiceType="_rslt.%Get("ServiceType")_" Status="_rslt.%Get("Status"),!
    }
}