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
The incorrect line is
If $Get(^VESoSECR(1," ","Secure"))=0 Set T%Access=11
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
This will insure the current 4 security options are
allowed as well as 12 future options which have not yet
Attached is an updated version of this method.