AUMPRE91.m

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

 ;;9.1;ICD UPDATE;**1**;SEP 26, 2008

 ;

START ;EP

 D CLEANALL^AUMPRE21

 ;

 ;

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

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

 +1       ;;9.1;ICD UPDATE;**1**;SEP 26, 2008

 +2       ;

START     ;EP

 +1        DO CLEANALL^AUMPRE21

 +2       ;

 +3       ;

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