IBDE2.m

IBDE2 ; ALB/ISC - DELETES IMP/EXP FILE CONTENTS ; AUG 13, 1993

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 ;

DLTALL N FILE,NODE,COUNT

 S COUNT=0

 F  S FILE=$P($T(FILES+COUNT),";;",2) Q:FILE=""  D

 .S COUNT=COUNT+1

 .S NODE=$G(@FILE@(0))

 .S $P(NODE,"^",3)=0,$P(NODE,"^",4)=0

 .K @FILE

 .S @FILE@(0)=NODE

 S VALMBCK="R",VALMCNT=0,BLKCNT=0,FORMCNT=0

 K ^TMP("IBDF",$J,"IMP/EXP WS")

 I $G(SCREEN)="F" D HDR^IBDE

 I $G(SCREEN)="B" D HDR^IBDE3

 Q

 ;

FILES ;;^IBE(358)

 ;;^IBE(358.1)

 ;;^IBE(358.2)

 ;;^IBE(358.3)

 ;;^IBE(358.4)

 ;;^IBE(358.5)

 ;;^IBE(358.6)

 ;;^IBE(358.7)

 ;;^IBE(358.8)

 ;;^IBE(358.91)

 ;;^IBE(358.93)

 ;;^IBE(358.94)

 ;;^IBD(358.98)

 ;;^IBE(358.99)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDE2   702     printed  Apr 09, 2024@21:51:52                                                                                                                                                                                                        Page 2

IBDE2     ; ALB/ISC - DELETES IMP/EXP FILE CONTENTS ; AUG 13, 1993

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

DLTALL     NEW FILE,NODE,COUNT

 +1        SET COUNT=0

 +2        FOR 

               SET FILE=$PIECE($TEXT(FILES+COUNT),";;",2)

               if FILE=""

                   QUIT 

               Begin DoDot:1

 +3                SET COUNT=COUNT+1

 +4                SET NODE=$GET(@FILE@(0))

 +5                SET $PIECE(NODE,"^",3)=0

                   SET $PIECE(NODE,"^",4)=0

 +6                KILL @FILE

 +7                SET @FILE@(0)=NODE

               End DoDot:1

 +8        SET VALMBCK="R"

           SET VALMCNT=0

           SET BLKCNT=0

           SET FORMCNT=0

 +9        KILL ^TMP("IBDF",$JOB,"IMP/EXP WS")

 +10       IF $GET(SCREEN)="F"

               DO HDR^IBDE

 +11       IF $GET(SCREEN)="B"

               DO HDR^IBDE3

 +12       QUIT 

 +13      ;

FILES     ;;^IBE(358)

 +1       ;;^IBE(358.1)

 +2       ;;^IBE(358.2)

 +3       ;;^IBE(358.3)

 +4       ;;^IBE(358.4)

 +5       ;;^IBE(358.5)

 +6       ;;^IBE(358.6)

 +7       ;;^IBE(358.7)

 +8       ;;^IBE(358.8)

 +9       ;;^IBE(358.91)

 +10      ;;^IBE(358.93)

 +11      ;;^IBE(358.94)

 +12      ;;^IBD(358.98)

 +13      ;;^IBE(358.99)