,,,
, . . UMPS. , Cache Object Script - . UMPS.
- , , . , .
, , . (, ) , . .
, , , , .
. .
. , . , .
.
. - / .
, :
^Data
^Data(id)
~ ()
^Index
- , ,
: ^Data(id)=Figure~Color~Count
, , . :
;
SaveObject(id,ObjVal)
i '+$g(id) s id=$i(^Data)
s ^Data(id)=ObjVal
q
;
SaveObject(id,ObjVal)
n OldValue
i '+$g(id) s id=$i(^Data)
s OldValue=$g(^Data(id))
d DeleteIndices(id,OldValue)
d InsertIndices(id,ObjVal)
s ^Data(id)=ObjVal
q
;
SaveObject(id,ObjVal)
n OldValue
i '+$g(id) s id=$i(^Data)
s OldValue=$g(^Data(id))
s ^Data(id)=ObjVal
d DeleteIndices(id,OldValue)
d InsertIndices(id,ObjVal)
q
;
SaveObject(id,ObjVal)
i '+$g(id) s id=$i(^Data)
d DeleteIndices(id,$g(^Data(id)))
s ^Data(id)=ObjVal
d InsertIndices(id,ObjVal)
q
DeletIndices , InsertIndices . - , . , , , ( ) . , set . , , , . . set
l +^Data(id)
s ^Data(id)=ObjVal
l -^Data(id)
/ . trollback.
, - , , . , . , , . , , . .
. , DeleteIndex .
UpdateIndex(IndexName)
d DeleteIndex(IndexName)
n id,ObjValue
s id="" f s id=$o(^Data(id),ObjValue) q:id="" d
. d InsertIndex(IndexName,id,ObjVal)
Q
http://karataev.nm.ru/
, . .
Copyright (c) 2024 Stud-Baza.ru , , , .