AUMPRE6.m

AUMPRE6 ;IHS/ASDST/DMJ - AUM PRE INSTALL [ 04/10/2006  10:43 AM ]

 ;;6.1;AUM - SCB UPDATE;**6**;MAY 9, 2005

 ;

CLR ;clear out old codes

 S I=0

CLR2 ;I already set

 F  S I=$O(^AUMDATA(I)) Q:'I  D

 .K ^AUMDATA(I)

 F I=3,4 D

 .S $P(^AUMDATA(0),"^",I)=0

 Q

AUMPRE6   ;IHS/ASDST/DMJ - AUM PRE INSTALL [ 04/10/2006  10:43 AM ]

 +1       ;;6.1;AUM - SCB UPDATE;**6**;MAY 9, 2005

 +2       ;

CLR       ;clear out old codes

 +1        SET I=0

CLR2      ;I already set

 +1        FOR 

               SET I=$ORDER(^AUMDATA(I))

               IF 'I

                   QUIT 

               Begin DoDot:1

 +2                KILL ^AUMDATA(I)

               End DoDot:1

 +3        FOR I=3,4

               Begin DoDot:1

 +4                SET $PIECE(^AUMDATA(0),"^",I)=0

               End DoDot:1

 +5        QUIT