| IA # | Name | Type | Custodial Package | Date Created | DBIC Approval Status | Status | Usage | File # | General Description | Remote Procedure | Routine | Date Activated |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| IA # | Name | Type | Custodial Package | Date Created | DBIC Approval Status | Status | Usage | File # | General Description | Remote Procedure | Routine | Date Activated |
| 5439 | DELETE WRITE ACCESS IN FILE 200 FOR PATCH ES*1*46 | File | POLICE & SECURITY | 2009/05/05 | APPROVED | Active | Private | 200 | 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 |
2009/05/07 |