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 ---[H[J[2J[HIBDE2 702 printed Dec 13, 2024@01:38:49 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)
