source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P432.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 717 bytes
Line 
1XU8P432 ;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 ;
5PRE ;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
15POST ;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
Note: See TracBrowser for help on using the repository browser.