XU8P466 ;ISF/RWF - PATCH 466 POST INIT ;06/04/2008
;;8.0;KERNEL;**466**;Jul 10, 1995;Build 9
Q
;
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")
Q
;
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P466 470 printed Nov 22, 2024@17:17:57 Page 2
XU8P466 ;ISF/RWF - PATCH 466 POST INIT ;06/04/2008
+1 ;;8.0;KERNEL;**466**;Jul 10, 1995;Build 9
+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
