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
