. , , ,

,,,

,

, . . 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/

, . .

 

 

 

! , , , .
. , :