ES1P46.m

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 ---ES1P46   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