Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ES1P46

ES1P46.m

Go to the documentation of this file.
  1. ES1P46 ;PHOENIX/KLD - Patch ES*1*46 Post-init - remove W,D,L file access to Police files; 5/15/09 4:04 PM
  1. ;;1.0;POLICE & SECURITY;**46**;May 8.2009;Build 12
  1. ;;Integration agreement #5439
  1. ST Q:'$D(^VA(200,"AFOF")) ;No Kernel File Access Security
  1. N DA,DIE,DR,ESI,ESII S DR="2///@;3///@;5///@"
  1. F ESI=0:0 S ESI=$O(^VA(200,ESI)) Q:'ESI D
  1. .F ESII=909.9:0 S ESII=$O(^VA(200,ESI,"FOF",ESII)) Q:'ESII!(ESII>916) D
  1. ..L +^VA(200,ESI,"FOF"):5
  1. ..I $T S DIE="^VA(200,"_ESI_",""FOF"",",DA(1)=ESI,DA=ESII D ^DIE L -^VA(200,ESI,"FOF")
  1. Q