AUMUCLR.m

AUMUCLR ;IHS/ITSC/DMJ - CLEAR OLD AUM DATA FILE [ 07/15/2004  10:45 AM ]

 ;;04.1;AUM - SCB UPDATE;**4,5**;

 D CLR

 Q

CLR ;clear out old aumdata file

 S I=0

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

 .K ^AUMDATA(I)

 F I=3,4 D

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

 Q

AUMUCLR   ;IHS/ITSC/DMJ - CLEAR OLD AUM DATA FILE [ 07/15/2004  10:45 AM ]

 +1       ;;04.1;AUM - SCB UPDATE;**4,5**;

 +2        DO CLR

 +3        QUIT 

CLR       ;clear out old aumdata file

 +1        SET I=0

 +2        FOR 

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

               IF 'I

                   QUIT 

               Begin DoDot:1

 +3                KILL ^AUMDATA(I)

               End DoDot:1

 +4        FOR I=3,4

               Begin DoDot:1

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

               End DoDot:1

 +6        QUIT