AUMPRE7.m

AUMPRE7 ;IHS/ASDST/DMJ - AUM PRE INSTALL [ 09/27/2006  3:06 PM ]

 ;;7.1;AUM - SCB UPDATE;**1,3**;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

AUMPRE7   ;IHS/ASDST/DMJ - AUM PRE INSTALL [ 09/27/2006  3:06 PM ]

 +1       ;;7.1;AUM - SCB UPDATE;**1,3**;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