| 1 | XU8P432 ;ISF/RWF - Patch XU*8*432 Post-init ;6/13/07 08:44
|
|---|
| 2 | ;;8.0;KERNEL;**432**;Jul 10, 1995;Build 3
|
|---|
| 3 | QUIT
|
|---|
| 4 | ;
|
|---|
| 5 | PRE ;Show if site has any
|
|---|
| 6 | N DA,CT
|
|---|
| 7 | S DA=0,CT=0
|
|---|
| 8 | F S DA=$O(^VA(200,DA)) Q:DA'>0 D:'$D(^VA(200,DA,0))
|
|---|
| 9 | . W !,"^VA(200,",DA,",0) is missing the zero node."
|
|---|
| 10 | . S CT=CT+1
|
|---|
| 11 | . Q
|
|---|
| 12 | I CT>0 W !!,"There are a total of ",CT," entries without zero nodes.",!,"The Post-Init will clean them up."
|
|---|
| 13 | W !,"Done"
|
|---|
| 14 | Q
|
|---|
| 15 | POST ;Clean-up any danging nodes in ^VA(200,DA,1.1) or ^VA(200,DA,203.1)
|
|---|
| 16 | N DA
|
|---|
| 17 | S DA=0
|
|---|
| 18 | F S DA=$O(^VA(200,DA)) Q:DA'>0 D:'$D(^VA(200,DA,0))
|
|---|
| 19 | . I $D(^VA(200,DA,1.1)) K ^VA(200,DA,1.1) W !,"^VA(200,",DA,",1.1) cleaned"
|
|---|
| 20 | . I $D(^VA(200,DA,203.1)) K ^VA(200,DA,203.1) W !,"^VA(200,",DA,",203.1) cleaned"
|
|---|
| 21 | . Q
|
|---|
