XU8P432 ;ISF/RWF - Patch XU*8*432 Post-init ;6/13/07 08:44
;;8.0;KERNEL;**432**;Jul 10, 1995;Build 3
QUIT
;
PRE ;Show if site has any
N DA,CT
S DA=0,CT=0
F S DA=$O(^VA(200,DA)) Q:DA'>0 D:'$D(^VA(200,DA,0))
. W !,"^VA(200,",DA,",0) is missing the zero node."
. S CT=CT+1
. Q
I CT>0 W !!,"There are a total of ",CT," entries without zero nodes.",!,"The Post-Init will clean them up."
W !,"Done"
Q
POST ;Clean-up any danging nodes in ^VA(200,DA,1.1) or ^VA(200,DA,203.1)
N DA
S DA=0
F S DA=$O(^VA(200,DA)) Q:DA'>0 D:'$D(^VA(200,DA,0))
. I $D(^VA(200,DA,1.1)) K ^VA(200,DA,1.1) W !,"^VA(200,",DA,",1.1) cleaned"
. I $D(^VA(200,DA,203.1)) K ^VA(200,DA,203.1) W !,"^VA(200,",DA,",203.1) cleaned"
. Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P432 738 printed Dec 13, 2024@02:07:38 Page 2
XU8P432 ;ISF/RWF - Patch XU*8*432 Post-init ;6/13/07 08:44
+1 ;;8.0;KERNEL;**432**;Jul 10, 1995;Build 3
+2 QUIT
+3 ;
PRE ;Show if site has any
+1 NEW DA,CT
+2 SET DA=0
SET CT=0
+3 FOR
SET DA=$ORDER(^VA(200,DA))
if DA'>0
QUIT
if '$DATA(^VA(200,DA,0))
Begin DoDot:1
+4 WRITE !,"^VA(200,",DA,",0) is missing the zero node."
+5 SET CT=CT+1
+6 QUIT
End DoDot:1
+7 IF CT>0
WRITE !!,"There are a total of ",CT," entries without zero nodes.",!,"The Post-Init will clean them up."
+8 WRITE !,"Done"
+9 QUIT
POST ;Clean-up any danging nodes in ^VA(200,DA,1.1) or ^VA(200,DA,203.1)
+1 NEW DA
+2 SET DA=0
+3 FOR
SET DA=$ORDER(^VA(200,DA))
if DA'>0
QUIT
if '$DATA(^VA(200,DA,0))
Begin DoDot:1
+4 IF $DATA(^VA(200,DA,1.1))
KILL ^VA(200,DA,1.1)
WRITE !,"^VA(200,",DA,",1.1) cleaned"
+5 IF $DATA(^VA(200,DA,203.1))
KILL ^VA(200,DA,203.1)
WRITE !,"^VA(200,",DA,",203.1) cleaned"
+6 QUIT
End DoDot:1
