MedicalInsurance/Scripts/BS_PreInProcessAnalysis_Tables.cls

/// 事前事中分析-请求主表
/// 记录每次3101/3102交易的顶层信息
Class User.BSPreInProcessAnalysis Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessAnalysis ]
{

/// 交易代码 3101/3102
Property TradeCode As %String(MAXLEN = 10) [ Required ];

/// 交易名称
Property TradeName As %String(MAXLEN = 50);

/// 触发场景
Property TriggerScene As %String(MAXLEN = 10);

/// 报文ID
Property MsgID As %String(MAXLEN = 50);

/// 参保地行政区划
Property InsuplcAdmdvs As %String(MAXLEN = 10);

/// 定点机构编码
Property FixmedinsCode As %String(MAXLEN = 30);

/// 定点机构名称
Property FixmedinsName As %String(MAXLEN = 200);

/// 操作员编码
Property OpterCode As %String(MAXLEN = 30);

/// 操作员姓名
Property OpterName As %String(MAXLEN = 50);

/// 交易日期
Property InfDate As %Date;

/// 交易时间
Property InfTime As %Time;

/// 任务ID（唯一标识一次分析）
Property TaskID As %String(MAXLEN = 50) [ Required ];

/// 创建日期
Property CreateDate As %Date [ InitialExpression = {$zdateh($horolog, 5)} ];

/// 创建时间
Property CreateTime As %Time [ InitialExpression = {$piece($horolog, ",", 2)} ];

/// 删除标记 0:正常 1:已删除
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

/// 删除日期
Property DeleteDate As %Date;

/// 删除时间
Property DeleteTime As %Time;

Index TaskIDIndex On TaskID As Exact;

Index TradeCodeIndex On TradeCode As Exact;

Index InfDateIndex On InfDate As Exact;

Index FixmedinsCodeIndex On FixmedinsCode As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessAnalysisDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>TradeCode</Value>
</Value>
<Value name="3">
<Value>TradeName</Value>
</Value>
<Value name="4">
<Value>TriggerScene</Value>
</Value>
<Value name="5">
<Value>MsgID</Value>
</Value>
<Value name="6">
<Value>InsuplcAdmdvs</Value>
</Value>
<Value name="7">
<Value>FixmedinsCode</Value>
</Value>
<Value name="8">
<Value>FixmedinsName</Value>
</Value>
<Value name="9">
<Value>OpterCode</Value>
</Value>
<Value name="10">
<Value>OpterName</Value>
</Value>
<Value name="11">
<Value>InfDate</Value>
</Value>
<Value name="12">
<Value>InfTime</Value>
</Value>
<Value name="13">
<Value>TaskID</Value>
</Value>
<Value name="14">
<Value>CreateDate</Value>
</Value>
<Value name="15">
<Value>CreateTime</Value>
</Value>
<Value name="16">
<Value>Deleted</Value>
</Value>
<Value name="17">
<Value>DeleteDate</Value>
</Value>
<Value name="18">
<Value>DeleteTime</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessAnalysisD</DataLocation>
<DefaultData>BSPreInProcessAnalysisDefaultData</DefaultData>
<IdLocation>^BSPreInProcessAnalysisD</IdLocation>
<IndexLocation>^BSPreInProcessAnalysisI</IndexLocation>
<StreamLocation>^BSPreInProcessAnalysisS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-参保人信息表
Class User.BSPreInProcessPatient Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessPatient ]
{

/// 关联分析主表
Property AnalysisDr As User.BSPreInProcessAnalysis [ Required ];

/// 参保人标识
Property PatnID As %String(MAXLEN = 30) [ Required ];

/// 姓名
Property PatnName As %String(MAXLEN = 50);

/// 性别
Property Gend As %String(MAXLEN = 3);

/// 出生日期
Property Brdy As %Date;

/// 统筹区编码
Property Poolarea As %String(MAXLEN = 10);

/// 当前就诊标识
Property CurrMdtrtID As %String(MAXLEN = 30);

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index AnalysisDrIndex On AnalysisDr As Exact;

Index PatnIDIndex On PatnID As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessPatientDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>AnalysisDr</Value>
</Value>
<Value name="3">
<Value>PatnID</Value>
</Value>
<Value name="4">
<Value>PatnName</Value>
</Value>
<Value name="5">
<Value>Gend</Value>
</Value>
<Value name="6">
<Value>Brdy</Value>
</Value>
<Value name="7">
<Value>Poolarea</Value>
</Value>
<Value name="8">
<Value>CurrMdtrtID</Value>
</Value>
<Value name="9">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessPatientD</DataLocation>
<DefaultData>BSPreInProcessPatientDefaultData</DefaultData>
<IdLocation>^BSPreInProcessPatientD</IdLocation>
<IndexLocation>^BSPreInProcessPatientI</IndexLocation>
<StreamLocation>^BSPreInProcessPatientS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-就诊信息表
Class User.BSPreInProcessEncounter Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessEncounter ]
{

/// 关联参保人表
Property PatientDr As User.BSPreInProcessPatient [ Required ];

/// 就诊标识
Property MdtrtID As %String(MAXLEN = 30) [ Required ];

/// 医疗机构标识
Property MedinsID As %String(MAXLEN = 30);

/// 医疗机构名称
Property MedinsName As %String(MAXLEN = 200);

/// 病区标识
Property WardareaCodg As %String(MAXLEN = 30);

/// 病房号
Property Wardno As %String(MAXLEN = 10);

/// 病床号
Property Bedno As %String(MAXLEN = 30);

/// 入院日期
Property AdmDate As %Date;

/// 入院时间
Property AdmTime As %Time;

/// 出院日期
Property DscgDate As %Date;

/// 出院时间
Property DscgTime As %Time;

/// 主诊断编码
Property DscgMainDiseCodg As %String(MAXLEN = 30);

/// 主诊断名称
Property DscgMainDiseName As %String(MAXLEN = 200);

/// 医师标识
Property DrCodg As %String(MAXLEN = 30);

/// 入院科室名称
Property AdmDeptName As %String(MAXLEN = 50);

/// 出院科室名称
Property DscgDeptName As %String(MAXLEN = 50);

/// 就诊类型
Property MedMdtrtType As %String(MAXLEN = 3);

/// 医疗类别
Property MedType As %String(MAXLEN = 6);

/// 生育状态
Property MatnStas As %String(MAXLEN = 3);

/// 总费用
Property MedfeeSumamt As %Numeric;

/// 自费金额
Property OwnpayAmt As %Numeric;

/// 自付金额
Property SelfpayAmt As %Numeric;

/// 个人账户支付金额
Property AcctPayamt As %Numeric;

/// 救助金支付金额
Property MaAmt As %Numeric;

/// 统筹金支付金额
Property HifpPayamt As %Numeric;

/// 结算总次数
Property SetlTotlnum As %Integer;

/// 险种
Property Insutype As %String(MAXLEN = 3);

/// 报销标志
Property ReimFlag As %String(MAXLEN = 3);

/// 异地结算标志
Property OutSetlFlag As %String(MAXLEN = 3);

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index PatientDrIndex On PatientDr As Exact;

Index MdtrtIDIndex On MdtrtID As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessEncounterDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>PatientDr</Value>
</Value>
<Value name="3">
<Value>MdtrtID</Value>
</Value>
<Value name="4">
<Value>MedinsID</Value>
</Value>
<Value name="5">
<Value>MedinsName</Value>
</Value>
<Value name="6">
<Value>WardareaCodg</Value>
</Value>
<Value name="7">
<Value>Wardno</Value>
</Value>
<Value name="8">
<Value>Bedno</Value>
</Value>
<Value name="9">
<Value>AdmDate</Value>
</Value>
<Value name="10">
<Value>AdmTime</Value>
</Value>
<Value name="11">
<Value>DscgDate</Value>
</Value>
<Value name="12">
<Value>DscgTime</Value>
</Value>
<Value name="13">
<Value>DscgMainDiseCodg</Value>
</Value>
<Value name="14">
<Value>DscgMainDiseName</Value>
</Value>
<Value name="15">
<Value>DrCodg</Value>
</Value>
<Value name="16">
<Value>AdmDeptName</Value>
</Value>
<Value name="17">
<Value>DscgDeptName</Value>
</Value>
<Value name="18">
<Value>MedMdtrtType</Value>
</Value>
<Value name="19">
<Value>MedType</Value>
</Value>
<Value name="20">
<Value>MatnStas</Value>
</Value>
<Value name="21">
<Value>MedfeeSumamt</Value>
</Value>
<Value name="22">
<Value>OwnpayAmt</Value>
</Value>
<Value name="23">
<Value>SelfpayAmt</Value>
</Value>
<Value name="24">
<Value>AcctPayamt</Value>
</Value>
<Value name="25">
<Value>MaAmt</Value>
</Value>
<Value name="26">
<Value>HifpPayamt</Value>
</Value>
<Value name="27">
<Value>SetlTotlnum</Value>
</Value>
<Value name="28">
<Value>Insutype</Value>
</Value>
<Value name="29">
<Value>ReimFlag</Value>
</Value>
<Value name="30">
<Value>OutSetlFlag</Value>
</Value>
<Value name="31">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessEncounterD</DataLocation>
<DefaultData>BSPreInProcessEncounterDefaultData</DefaultData>
<IdLocation>^BSPreInProcessEncounterD</IdLocation>
<IndexLocation>^BSPreInProcessEncounterI</IndexLocation>
<StreamLocation>^BSPreInProcessEncounterS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-诊断信息表
Class User.BSPreInProcessDiagnose Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessDiagnose ]
{

/// 关联就诊表
Property EncounterDr As User.BSPreInProcessEncounter [ Required ];

/// 诊断标识
Property DiseID As %String(MAXLEN = 30) [ Required ];

/// 出入诊断类别
Property InoutDiseType As %String(MAXLEN = 6);

/// 主诊断标志
Property MaindiseFlag As %String(MAXLEN = 3);

/// 诊断排序号
Property DiasSrtNo As %Integer;

/// 诊断编码
Property DiseCodg As %String(MAXLEN = 20);

/// 诊断名称
Property DiseName As %String(MAXLEN = 200);

/// 诊断日期
Property DiseDate As %Date;

/// 诊断时间
Property DiseTime As %Time;

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index EncounterDrIndex On EncounterDr As Exact;

Index DiseIDIndex On DiseID As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessDiagnoseDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>EncounterDr</Value>
</Value>
<Value name="3">
<Value>DiseID</Value>
</Value>
<Value name="4">
<Value>InoutDiseType</Value>
</Value>
<Value name="5">
<Value>MaindiseFlag</Value>
</Value>
<Value name="6">
<Value>DiasSrtNo</Value>
</Value>
<Value name="7">
<Value>DiseCodg</Value>
</Value>
<Value name="8">
<Value>DiseName</Value>
</Value>
<Value name="9">
<Value>DiseDate</Value>
</Value>
<Value name="10">
<Value>DiseTime</Value>
</Value>
<Value name="11">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessDiagnoseD</DataLocation>
<DefaultData>BSPreInProcessDiagnoseDefaultData</DefaultData>
<IdLocation>^BSPreInProcessDiagnoseD</IdLocation>
<IndexLocation>^BSPreInProcessDiagnoseI</IndexLocation>
<StreamLocation>^BSPreInProcessDiagnoseS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-处方/医嘱信息表
Class User.BSPreInProcessOrder Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessOrder ]
{

/// 关联就诊表
Property EncounterDr As User.BSPreInProcessEncounter [ Required ];

/// 处方标识
Property RxID As %String(MAXLEN = 30) [ Required ];

/// 处方号
Property Rxno As %String(MAXLEN = 30);

/// 组编号
Property Grpno As %String(MAXLEN = 50);

/// 长期医嘱标志
Property LongDrordFlag As %String(MAXLEN = 3);

/// 目录类别
Property HilistType As %String(MAXLEN = 3);

/// 收费类别
Property ChrgType As %String(MAXLEN = 6);

/// 医嘱行为
Property DrordBhvr As %String(MAXLEN = 3);

/// 医保目录代码
Property HilistCode As %String(MAXLEN = 50);

/// 医保目录名称
Property HilistName As %String(MAXLEN = 50);

/// 医保目录等级
Property HilistLv As %String(MAXLEN = 3);

/// 医保目录价格
Property HilistPric As %Numeric;

/// 医院目录代码
Property HosplistCode As %String(MAXLEN = 50);

/// 医院目录名称
Property HosplistName As %String(MAXLEN = 50);

/// 数量
Property Cnt As %Numeric;

/// 单价
Property Pric As %Numeric;

/// 总费用
Property Sumamt As %Numeric;

/// 自费金额
Property OwnpayAmt As %Numeric;

/// 自付金额
Property SelfpayAmt As %Numeric;

/// 规格
Property Spec As %String(MAXLEN = 100);

/// 数量单位
Property SpecUnt As %String(MAXLEN = 100);

/// 下达科室名称
Property DrordDeptName As %String(MAXLEN = 100);

/// 医嘱开始日期
Property DrordBegnDate As %Date;

/// 医嘱开始时间
Property DrordBegnTime As %Time;

/// 开方医生姓名
Property DrordDrName As %String(MAXLEN = 100);

/// 医生职称
Property DrordDrProfttl As %String(MAXLEN = 3);

/// 是否当前处方
Property CurrDrordFlag As %String(MAXLEN = 3);

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index EncounterDrIndex On EncounterDr As Exact;

Index RxIDIndex On RxID As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessOrderDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>EncounterDr</Value>
</Value>
<Value name="3">
<Value>RxID</Value>
</Value>
<Value name="4">
<Value>Rxno</Value>
</Value>
<Value name="5">
<Value>Grpno</Value>
</Value>
<Value name="6">
<Value>LongDrordFlag</Value>
</Value>
<Value name="7">
<Value>HilistType</Value>
</Value>
<Value name="8">
<Value>ChrgType</Value>
</Value>
<Value name="9">
<Value>DrordBhvr</Value>
</Value>
<Value name="10">
<Value>HilistCode</Value>
</Value>
<Value name="11">
<Value>HilistName</Value>
</Value>
<Value name="12">
<Value>HilistLv</Value>
</Value>
<Value name="13">
<Value>HilistPric</Value>
</Value>
<Value name="14">
<Value>HosplistCode</Value>
</Value>
<Value name="15">
<Value>HosplistName</Value>
</Value>
<Value name="16">
<Value>Cnt</Value>
</Value>
<Value name="17">
<Value>Pric</Value>
</Value>
<Value name="18">
<Value>Sumamt</Value>
</Value>
<Value name="19">
<Value>OwnpayAmt</Value>
</Value>
<Value name="20">
<Value>SelfpayAmt</Value>
</Value>
<Value name="21">
<Value>Spec</Value>
</Value>
<Value name="22">
<Value>SpecUnt</Value>
</Value>
<Value name="23">
<Value>DrordDeptName</Value>
</Value>
<Value name="24">
<Value>DrordBegnDate</Value>
</Value>
<Value name="25">
<Value>DrordBegnTime</Value>
</Value>
<Value name="26">
<Value>DrordDrName</Value>
</Value>
<Value name="27">
<Value>DrordDrProfttl</Value>
</Value>
<Value name="28">
<Value>CurrDrordFlag</Value>
</Value>
<Value name="29">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessOrderD</DataLocation>
<DefaultData>BSPreInProcessOrderDefaultData</DefaultData>
<IdLocation>^BSPreInProcessOrderD</IdLocation>
<IndexLocation>^BSPreInProcessOrderI</IndexLocation>
<StreamLocation>^BSPreInProcessOrderS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-手术信息表
Class User.BSPreInProcessOperation Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessOperation ]
{

/// 关联就诊表
Property EncounterDr As User.BSPreInProcessEncounter [ Required ];

/// 手术操作ID
Property SetlListOprnID As %String(MAXLEN = 30) [ Required ];

/// 手术操作代码
Property OprnCode As %String(MAXLEN = 30);

/// 手术操作名称
Property OprnName As %String(MAXLEN = 500);

/// 主手术操作标志
Property MainOprnFlag As %String(MAXLEN = 3);

/// 手术操作日期
Property OprnDate As %Date;

/// 手术操作时间
Property OprnTime As %Time;

/// 麻醉方式
Property AnstWay As %String(MAXLEN = 6);

/// 术者医师姓名
Property OperDrName As %String(MAXLEN = 50);

/// 麻醉医师姓名
Property AnstDrName As %String(MAXLEN = 50);

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index EncounterDrIndex On EncounterDr As Exact;

Index SetlListOprnIDIndex On SetlListOprnID As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessOperationDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>EncounterDr</Value>
</Value>
<Value name="3">
<Value>SetlListOprnID</Value>
</Value>
<Value name="4">
<Value>OprnCode</Value>
</Value>
<Value name="5">
<Value>OprnName</Value>
</Value>
<Value name="6">
<Value>MainOprnFlag</Value>
</Value>
<Value name="7">
<Value>OprnDate</Value>
</Value>
<Value name="8">
<Value>OprnTime</Value>
</Value>
<Value name="9">
<Value>AnstWay</Value>
</Value>
<Value name="10">
<Value>OperDrName</Value>
</Value>
<Value name="11">
<Value>AnstDrName</Value>
</Value>
<Value name="12">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessOperationD</DataLocation>
<DefaultData>BSPreInProcessOperationDefaultData</DefaultData>
<IdLocation>^BSPreInProcessOperationD</IdLocation>
<IndexLocation>^BSPreInProcessOperationI</IndexLocation>
<StreamLocation>^BSPreInProcessOperationS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-违规结果表
Class User.BSPreInProcessViolation Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessViolation ]
{

/// 关联分析主表
Property AnalysisDr As User.BSPreInProcessAnalysis [ Required ];

/// 违规标识
Property JrID As %String(MAXLEN = 50) [ Required ];

/// 规则ID
Property RuleID As %String(MAXLEN = 50);

/// 规则名称
Property RuleName As %String(MAXLEN = 200);

/// 违规内容
Property VolaCont As %String(MAXLEN = 500);

/// 违规金额
Property VolaAmt As %Numeric;

/// 违规金额计算状态
Property VolaAmtStas As %String(MAXLEN = 3);

/// 严重程度
Property SevDeg As %String(MAXLEN = 3);

/// 违规依据
Property VolaEvid As %String(MAXLEN = 500);

/// 违规行为分类
Property VolaBhvrType As %String(MAXLEN = 3);

/// 参保人ID
Property PatnID As %String(MAXLEN = 50);

/// 就诊ID
Property MdtrtID As %String(MAXLEN = 30);

/// 任务ID
Property TaskID As %String(MAXLEN = 50);

/// 创建日期
Property CreateDate As %Date [ InitialExpression = {$zdateh($horolog, 5)} ];

/// 创建时间
Property CreateTime As %Time [ InitialExpression = {$piece($horolog, ",", 2)} ];

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index AnalysisDrIndex On AnalysisDr As Exact;

Index JrIDIndex On JrID As Exact;

Index RuleIDIndex On RuleID As Exact;

Index TaskIDIndex On TaskID As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessViolationDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>AnalysisDr</Value>
</Value>
<Value name="3">
<Value>JrID</Value>
</Value>
<Value name="4">
<Value>RuleID</Value>
</Value>
<Value name="5">
<Value>RuleName</Value>
</Value>
<Value name="6">
<Value>VolaCont</Value>
</Value>
<Value name="7">
<Value>VolaAmt</Value>
</Value>
<Value name="8">
<Value>VolaAmtStas</Value>
</Value>
<Value name="9">
<Value>SevDeg</Value>
</Value>
<Value name="10">
<Value>VolaEvid</Value>
</Value>
<Value name="11">
<Value>VolaBhvrType</Value>
</Value>
<Value name="12">
<Value>PatnID</Value>
</Value>
<Value name="13">
<Value>MdtrtID</Value>
</Value>
<Value name="14">
<Value>TaskID</Value>
</Value>
<Value name="15">
<Value>CreateDate</Value>
</Value>
<Value name="16">
<Value>CreateTime</Value>
</Value>
<Value name="17">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessViolationD</DataLocation>
<DefaultData>BSPreInProcessViolationDefaultData</DefaultData>
<IdLocation>^BSPreInProcessViolationD</IdLocation>
<IndexLocation>^BSPreInProcessViolationI</IndexLocation>
<StreamLocation>^BSPreInProcessViolationS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-违规明细表
Class User.BSPreInProcessViolationDetail Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessViolationDetail ]
{

/// 关联违规结果表
Property ViolationDr As User.BSPreInProcessViolation [ Required ];

/// 违规明细标识
Property JrdID As %String(MAXLEN = 50) [ Required ];

/// 参保人标识
Property PatnID As %String(MAXLEN = 50);

/// 就诊标识
Property MdtrtID As %String(MAXLEN = 30);

/// 处方标识
Property RxID As %String(MAXLEN = 50);

/// 违规明细类型
Property VolaItemType As %String(MAXLEN = 3);

/// 违规金额
Property VolaAmt As %Numeric;

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index ViolationDrIndex On ViolationDr As Exact;

Index JrdIDIndex On JrdID As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessViolationDetailDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>ViolationDr</Value>
</Value>
<Value name="3">
<Value>JrdID</Value>
</Value>
<Value name="4">
<Value>PatnID</Value>
</Value>
<Value name="5">
<Value>MdtrtID</Value>
</Value>
<Value name="6">
<Value>RxID</Value>
</Value>
<Value name="7">
<Value>VolaItemType</Value>
</Value>
<Value name="8">
<Value>VolaAmt</Value>
</Value>
<Value name="9">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessViolationDetailD</DataLocation>
<DefaultData>BSPreInProcessViolationDetailDefaultData</DefaultData>
<IdLocation>^BSPreInProcessViolationDetailD</IdLocation>
<IndexLocation>^BSPreInProcessViolationDetailI</IndexLocation>
<StreamLocation>^BSPreInProcessViolationDetailS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

/// 事前事中分析-反馈记录表
Class User.BSPreInProcessFeedback Extends (%Persistent, %XML.Adaptor, src.util.DynamicObject.Adapter) [ ClassType = persistent, Inheritance = right, Not ProcedureBlock, SqlRowIdName = ID, SqlTableName = BS_PreInProcessFeedback ]
{

/// 关联分析主表
Property AnalysisDr As User.BSPreInProcessAnalysis;

/// 反馈类型 1=事前 2=事中
Property WarnType As %String(MAXLEN = 6) [ Required ];

/// 违规标识（关联违规结果）
Property WarnRsltID As %String(MAXLEN = 40);

/// 处理方式 1=继续执行 2=返回修改
Property DspoWay As %String(MAXLEN = 3);

/// 处理原因
Property DspoWayRea As %String(MAXLEN = 500);

/// 操作员编码
Property OpterCode As %String(MAXLEN = 30);

/// 操作员姓名
Property OpterName As %String(MAXLEN = 50);

/// 反馈日期
Property FeedbackDate As %Date [ InitialExpression = {$zdateh($horolog, 5)} ];

/// 反馈时间
Property FeedbackTime As %Time [ InitialExpression = {$piece($horolog, ",", 2)} ];

/// 删除标记
Property Deleted As %Integer [ Required, InitialExpression = 0 ];

Index AnalysisDrIndex On AnalysisDr As Exact;

Index WarnRsltIDIndex On WarnRsltID As Exact;

Index WarnTypeIndex On WarnType As Exact;

Index FeedbackDateIndex On FeedbackDate As Exact;

Index DeletedIndex On Deleted As Exact;

Storage Default
{
<Data name="BSPreInProcessFeedbackDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>AnalysisDr</Value>
</Value>
<Value name="3">
<Value>WarnType</Value>
</Value>
<Value name="4">
<Value>WarnRsltID</Value>
</Value>
<Value name="5">
<Value>DspoWay</Value>
</Value>
<Value name="6">
<Value>DspoWayRea</Value>
</Value>
<Value name="7">
<Value>OpterCode</Value>
</Value>
<Value name="8">
<Value>OpterName</Value>
</Value>
<Value name="9">
<Value>FeedbackDate</Value>
</Value>
<Value name="10">
<Value>FeedbackTime</Value>
</Value>
<Value name="11">
<Value>Deleted</Value>
</Value>
</Data>
<DataLocation>^BSPreInProcessFeedbackD</DataLocation>
<DefaultData>BSPreInProcessFeedbackDefaultData</DefaultData>
<IdLocation>^BSPreInProcessFeedbackD</IdLocation>
<IndexLocation>^BSPreInProcessFeedbackI</IndexLocation>
<StreamLocation>^BSPreInProcessFeedbackS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}