Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDE2

IBDE2.m

Go to the documentation of this file.
  1. IBDE2 ; ALB/ISC - DELETES IMP/EXP FILE CONTENTS ; AUG 13, 1993
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. ;
  1. DLTALL N FILE,NODE,COUNT
  1. S COUNT=0
  1. F S FILE=$P($T(FILES+COUNT),";;",2) Q:FILE="" D
  1. .S COUNT=COUNT+1
  1. .S NODE=$G(@FILE@(0))
  1. .S $P(NODE,"^",3)=0,$P(NODE,"^",4)=0
  1. .K @FILE
  1. .S @FILE@(0)=NODE
  1. S VALMBCK="R",VALMCNT=0,BLKCNT=0,FORMCNT=0
  1. K ^TMP("IBDF",$J,"IMP/EXP WS")
  1. I $G(SCREEN)="F" D HDR^IBDE
  1. I $G(SCREEN)="B" D HDR^IBDE3
  1. Q
  1. ;
  1. FILES ;;^IBE(358)
  1. ;;^IBE(358.1)
  1. ;;^IBE(358.2)
  1. ;;^IBE(358.3)
  1. ;;^IBE(358.4)
  1. ;;^IBE(358.5)
  1. ;;^IBE(358.6)
  1. ;;^IBE(358.7)
  1. ;;^IBE(358.8)
  1. ;;^IBE(358.91)
  1. ;;^IBE(358.93)
  1. ;;^IBE(358.94)
  1. ;;^IBD(358.98)
  1. ;;^IBE(358.99)