32 lines
671 B
Mathematica
32 lines
671 B
Mathematica
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)
|