DELETE WRITE ACCESS IN FILE 200 FOR PATCH ES*1*46    ICR (5439)

This is a request to delete the delete, laygo, and
write access that any user may have to files 910-916 for patch ES*1*46.  This
patch retires many of the Police package options that can write, add, or
delete to the legacy Police package files.  Read-only options are left active
for historical data retrieval.

In file 200, field 32 (ACCESSIBLE FILE), subfields 2 (DELETE ACCESS), 3 (LAYGO
ACCESS), and 5 (WRITE ACCESS) would be deleted for any user who has either to
any file in the 910-916 range.

Here is the code to do so:

N DA,DIE,DR,I,II S DR="2///@;3///@;5///@"
F I=0:0 S I=$O(^VA(200,I)) Q:'I  D
.F II=909.9:0 S II=$O(^VA(200,I,"FOF",II)) Q:'II!(II>916)  D
..S DIE="^VA(200,"_I_",""FOF"",",DA(1)=I,DA=II D ^DIE
Q

• POLICE & SECURITY
• KERNEL