Anther テーブルの添え字を取得するために使用したいインデックス グローバル (XWES.ETI) があります。XWES.ETI グローバルには 1 つの添字 (連番) があり、キャッシュ SQL ストレージ マップ (^ZIDETRP) で定義された実際のグローバルの添字として使用したい 2 つのデータがあります。クラスはエラーなしでコンパイルされますが、ロードされず、作成した変数 (edt) が未定義であるため、%AcquireLock でエラーが発生します。このコードが近いことは知っていますが、問題を特定できないようです。提案は誰ですか?クラスは次のとおりです。
Class System.ErrTest Extends (%Persistent, %XML.Adaptor) [ StorageStrategy = Legacy ]
{
Property ErrID As %Library.Integer;
Property ErrDt As %Library.Date;
Property ErrNum As %Library.Integer;
Property EDat As %Library.String;
/// Index iMaster on ErrID [IDKey,Unique];
Index iMaster On ErrID [ IdKey, Unique ];
<Storage name="Legacy">
<ExtentSize>100000</ExtentSize>
<IdLocation>^XWES.ETI</IdLocation>
<SequenceNumber>6</SequenceNumber>
<SQLMap name="Map1">
<Data name="EDat">
<Delimiter>$c(0)</Delimiter>
<Node>1</Node>
<Piece>1</Piece>
</Data>
<Data name="ErrDt">
<RetrievalCode> Set {*}=edt</RetrievalCode>
</Data>
<Data name="ErrNum">
<RetrievalCode> Set {*}=enum</RetrievalCode>
</Data>
<Global>^ZIDETRAP</Global>
<RowReference>^ZIDETRAP(edt,enum)</RowReference>
<Subscript name="1">
<AccessType>Other</AccessType>
<Accessvar name="1">
<Code> S edt=$p(^XWES.ETI({L1}),"^",1)</Code>
<Variable>edt</Variable>
</Accessvar>
<Accessvar name="2">
<Code> S enum=$p(^XWES.ETI({L1}),"^",2)</Code>
<Variable>enum</Variable>
</Accessvar>
<Expression>{ErrID}</Expression>
<NextCode> s {L1}=$Order(^XWES.ETI({L1}))</NextCode>
</Subscript>
<Type>data</Type>
</SQLMap>
<StreamLocation>^WSandlin.System.ErrTestS</StreamLocation>
<Type>%CacheSQLStorage</Type>
</Storage>
}