- 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 Feb 18, 2025@23:55:56 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