Routine: XU8P466

XU8P466 ;ISF/RWF - PATCH 466 POST INIT ;06/04/2008

 ;;8.0;KERNEL;**466**;Jul 10, 1995;Build 17

POST ;Post-init

 Q:$$PATCH^XPDUTL("XU*8.0*466")

 D BMES^XPDUTL(" Post-Init is removing VPID's. Please wait a minute!")

 D DEL

 D BMES^XPDUTL(" Finished removing VPID's")

DEL ;Clean out any VPIDs.

 N DA,DIC,DIE,DR,VPID,X,Y

 S VPID="",DIE="^VA(200,",DA=0

 F  S DA=$O(^VA(200,DA)) Q:'DA  I $D(^VA(200,DA,"VPID")) D

 . S DR="9000///@" D ^DIE

. Q

XU8P466   ;ISF/RWF - PATCH 466 POST INIT ;06/04/2008

 +1       ;;8.0;KERNEL;**466**;Jul 10, 1995;Build 17

 +2        QUIT

 +3       ;

POST      ;Post-init

 +1        IF $$PATCH^XPDUTL("XU*8.0*466")

               QUIT

 +2        DO BMES^XPDUTL(" Post-Init is removing VPID's. Please wait a minute!")

 +3        DO DEL

 +4        DO BMES^XPDUTL(" Finished removing VPID's")

 +5        QUIT

 +6       ;

DEL       ;Clean out any VPIDs.

 +1        NEW DA,DIC,DIE,DR,VPID,X,Y

 +2        SET VPID=""

           SET DIE="^VA(200,"

           SET DA=0

 +3        FOR

               SET DA=$ORDER(^VA(200,DA))

               IF 'DA

                   QUIT

               IF $DATA(^VA(200,DA,"VPID"))

                   Begin DoDot:1

 +4                    SET DR="9000///@"

                       DO ^DIE

 +5                    QUIT

                   End DoDot:1

 +6        QUIT

XU8P466.m