BGUTRCU.m

BGUTRCU ; IHS/OIT/MJL - Clean up routine for the Debug/Trace global: ^BGUTRACE ;

 ;;1.5;BGU;;MAY 26, 2005

 ;

MAIN ;

 D ASKDJ,ASKNRT:'$D(DIRUT) I $D(DIRUT) D KILL Q

 D CLU,KILL

 Q

 ;

ASKDJ ;

 ; Ask for $J

 S U="^",DIR(0)="NO^1:999999",DIR("A")="ENTER $J TO CLEANUP",DIR("?")="Enter numeric characters for the $J you want to cleanup" D ^DIR Q:$D(DIRUT)

 ; ASK HOW MANY ENTRIES TO RETAIN

 S BGUDJ=Y

 Q

 ;

ASKNRT ;

 ; Ask for number of sessions to retain

 S DIR(0)="NO^0:999",DIR("A")="ENTER THE NUMBER OF SESSIONS TO RETAIN",DIR("?")="Enter numeric characters only" D ^DIR I $D(DIRUT) D KILL Q

 S BGUNRT=Y D CLU

 W !,BGUNRT," Sessions Retained",!

 Q

 ;

CLU ;

 S BGUN="",DIK="^BGUTRACE(" F BGUN1=1:1 S BGUN=$O(^BGUTRACE("C",BGUDJ,BGUN),-1) Q:BGUN=""  I BGUN1>BGUNRT S DA=BGUN D ^DIK

 Q

 ;

KILL ;

 K BGUDJ,BGUN,BGUN1,BGUN2,BGUNRT,DA,DIK,DIR,DIRUT,X,Y

 Q

 ;

BJENT ;EP Called by option BGU TRACE CLEANUP

 ; Entry point called from cleanup option.

 W !,"Starting..."

 S U="^" S BGUDJ=0 F BGUQ=0:0 S BGUDJ=$O(^BGUTRACE("C",BGUDJ)) Q:'BGUDJ  D

 .I $D(^BGUSP(1,1,"B",BGUDJ)) S BGUN2="" F BGUQ=0:0 S BGUN2=$O(^BGUSP(1,1,"B",BGUDJ,BGUN2)) Q:'BGUN2  S BGUNRT=$P(^BGUSP(1,1,BGUN2,0),U,2) D CLU

 .I '$D(^BGUSP(1,1,"B",BGUDJ)) S DIK="^BGUTRACE(" S BGUN="" F BGUN1=1:1 S BGUN=$O(^BGUTRACE("C",BGUDJ,BGUN)) Q:BGUN=""  S DA=BGUN D ^DIK

 D KILL

 W !,"Done..",!!

 Q

 ;

BGUTRCU   ; IHS/OIT/MJL - Clean up routine for the Debug/Trace global: ^BGUTRACE ;

 +1       ;;1.5;BGU;;MAY 26, 2005

 +2       ;

MAIN      ;

 +1        DO ASKDJ

           IF '$DATA(DIRUT)

               DO ASKNRT

           IF $DATA(DIRUT)

               DO KILL

               QUIT 

 +2        DO CLU

           DO KILL

 +3        QUIT 

 +4       ;

ASKDJ     ;

 +1       ; Ask for $J

 +2        SET U="^"

           SET DIR(0)="NO^1:999999"

           SET DIR("A")="ENTER $J TO CLEANUP"

           SET DIR("?")="Enter numeric characters for the $J you want to cleanup"

           DO ^DIR

           IF $DATA(DIRUT)

               QUIT 

 +3       ; ASK HOW MANY ENTRIES TO RETAIN

 +4        SET BGUDJ=Y

 +5        QUIT 

 +6       ;

ASKNRT    ;

 +1       ; Ask for number of sessions to retain

 +2        SET DIR(0)="NO^0:999"

           SET DIR("A")="ENTER THE NUMBER OF SESSIONS TO RETAIN"

           SET DIR("?")="Enter numeric characters only"

           DO ^DIR

           IF $DATA(DIRUT)

               DO KILL

               QUIT 

 +3        SET BGUNRT=Y

           DO CLU

 +4        WRITE !,BGUNRT," Sessions Retained",!

 +5        QUIT 

 +6       ;

CLU       ;

 +1        SET BGUN=""

           SET DIK="^BGUTRACE("

           FOR BGUN1=1:1

               SET BGUN=$ORDER(^BGUTRACE("C",BGUDJ,BGUN),-1)

               IF BGUN=""

                   QUIT 

               IF BGUN1>BGUNRT

                   SET DA=BGUN

                   DO ^DIK

 +2        QUIT 

 +3       ;

KILL      ;

 +1        KILL BGUDJ,BGUN,BGUN1,BGUN2,BGUNRT,DA,DIK,DIR,DIRUT,X,Y

 +2        QUIT 

 +3       ;

BJENT     ;EP Called by option BGU TRACE CLEANUP

 +1       ; Entry point called from cleanup option.

 +2        WRITE !,"Starting..."

 +3        SET U="^"

           SET BGUDJ=0

           FOR BGUQ=0:0

               SET BGUDJ=$ORDER(^BGUTRACE("C",BGUDJ))

               IF 'BGUDJ

                   QUIT 

               Begin DoDot:1

 +4                IF $DATA(^BGUSP(1,1,"B",BGUDJ))

                       SET BGUN2=""

                       FOR BGUQ=0:0

                           SET BGUN2=$ORDER(^BGUSP(1,1,"B",BGUDJ,BGUN2))

                           IF 'BGUN2

                               QUIT 

                           SET BGUNRT=$PIECE(^BGUSP(1,1,BGUN2,0),U,2)

                           DO CLU

 +5                IF '$DATA(^BGUSP(1,1,"B",BGUDJ))

                       SET DIK="^BGUTRACE("

                       SET BGUN=""

                       FOR BGUN1=1:1

                           SET BGUN=$ORDER(^BGUTRACE("C",BGUDJ,BGUN))

                           IF BGUN=""

                               QUIT 

                           SET DA=BGUN

                           DO ^DIK

               End DoDot:1

 +6        DO KILL

 +7        WRITE !,"Done..",!!

 +8        QUIT 

 +9       ;