source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDE2.m@ 1352

Last change on this file since 1352 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 671 bytes
Line 
1IBDE2 ; ALB/ISC - DELETES IMP/EXP FILE CONTENTS ; AUG 13, 1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4DLTALL 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 ;
18FILES ;;^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.