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)