#140 Security Patch 801517 incomplete

[Jerry Goodnough]

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.

[Jerry Goodnough]

New Method for RequestPrivledges