XU8P432.m

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 ---XU8P432   738     printed  Apr 09, 2024@21:13:02                                                                                                                                                                                                      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