Last change
on this file since 1407 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
671 bytes
|
Line | |
---|
1 | IBDE2 ; ALB/ISC - DELETES IMP/EXP FILE CONTENTS ; AUG 13, 1993
|
---|
2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
---|
3 | ;
|
---|
4 | DLTALL N FILE,NODE,COUNT
|
---|
5 | S COUNT=0
|
---|
6 | F S FILE=$P($T(FILES+COUNT),";;",2) Q:FILE="" D
|
---|
7 | .S COUNT=COUNT+1
|
---|
8 | .S NODE=$G(@FILE@(0))
|
---|
9 | .S $P(NODE,"^",3)=0,$P(NODE,"^",4)=0
|
---|
10 | .K @FILE
|
---|
11 | .S @FILE@(0)=NODE
|
---|
12 | S VALMBCK="R",VALMCNT=0,BLKCNT=0,FORMCNT=0
|
---|
13 | K ^TMP("IBDF",$J,"IMP/EXP WS")
|
---|
14 | I $G(SCREEN)="F" D HDR^IBDE
|
---|
15 | I $G(SCREEN)="B" D HDR^IBDE3
|
---|
16 | Q
|
---|
17 | ;
|
---|
18 | FILES ;;^IBE(358)
|
---|
19 | ;;^IBE(358.1)
|
---|
20 | ;;^IBE(358.2)
|
---|
21 | ;;^IBE(358.3)
|
---|
22 | ;;^IBE(358.4)
|
---|
23 | ;;^IBE(358.5)
|
---|
24 | ;;^IBE(358.6)
|
---|
25 | ;;^IBE(358.7)
|
---|
26 | ;;^IBE(358.8)
|
---|
27 | ;;^IBE(358.91)
|
---|
28 | ;;^IBE(358.93)
|
---|
29 | ;;^IBE(358.94)
|
---|
30 | ;;^IBD(358.98)
|
---|
31 | ;;^IBE(358.99)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.