- 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 Jan 18, 2025@02:40:03 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)