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.0;POLICE & SECURITY;**46**;May 8.2009;Build 12
;;Integration agreement #5439
ST Q:'$D(^VA(200,"AFOF")) ;No Kernel File Access Security
N DA,DIE,DR,ESI,ESII S DR="2///@;3///@;5///@"
F ESI=0:0 S ESI=$O(^VA(200,ESI)) Q:'ESI D
.F ESII=909.9:0 S ESII=$O(^VA(200,ESI,"FOF",ESII)) Q:'ESII!(ESII>916) D
..L +^VA(200,ESI,"FOF"):5
..I $T S DIE="^VA(200,"_ESI_",""FOF"",",DA(1)=ESI,DA=ESII D ^DIE L -^VA(200,ESI,"FOF")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HES1P46 542 printed Dec 13, 2024@02:29:24 Page 2
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
+2 ;;Integration agreement #5439
ST ;No Kernel File Access Security
if '$DATA(^VA(200,"AFOF"))
QUIT
+1 NEW DA,DIE,DR,ESI,ESII
SET DR="2///@;3///@;5///@"
+2 FOR ESI=0:0
SET ESI=$ORDER(^VA(200,ESI))
if 'ESI
QUIT
Begin DoDot:1
+3 FOR ESII=909.9:0
SET ESII=$ORDER(^VA(200,ESI,"FOF",ESII))
if 'ESII!(ESII>916)
QUIT
Begin DoDot:2
+4 LOCK +^VA(200,ESI,"FOF"):5
+5 IF $TEST
SET DIE="^VA(200,"_ESI_",""FOF"","
SET DA(1)=ESI
SET DA=ESII
DO ^DIE
LOCK -^VA(200,ESI,"FOF")
End DoDot:2
End DoDot:1
+6 QUIT
