Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
671 bytes
|
Rev | Line | |
---|
[628] | 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.