Patch 801517 is in error and will only partially work
if the security has been explictly turned off. The
current kit ship with out any security setting (Nither
on or off) whihc should assume "off". However the
check in ESI$Environment.Security::RequestiPrivledges
is incorrect
The incorrect line is
If $Get(^VESoSECR(1," ","Secure"))=0 Set T%Access=11
Goto SetPrv
There are actually two errors.
1) The most important error is thet it should read:
If '$Get(^VESoSECR(1," ","Secure"))
To insure the binay check works correctly.
2) The access binary code is also set wrong and it
should be:
Set T%Access=(2**16)-1
This will insure the current 4 security options are
allowed as well as 12 future options which have not yet
been assigned.
Attached is an updated version of this method.
New Method for RequestPrivledges