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

ENAR.m

Go to the documentation of this file.
  1. ENAR ;(WIRMFO)/JED/SAB-ARCHIVE DRIVER ;2.26.97
  1. ;;7.0;ENGINEERING;**40**;Aug 17, 1993
  1. Q
  1. G ;GATHER RECORDS
  1. D SFT G:ENERR'=0 MSG D G^ENAR1 G OUT
  1. A ;ARCHIVE & VERIFY RECORDS
  1. D SFT G:ENERR'=0 MSG D A^ENAR1 G OUT
  1. D ;DELETE ARCHIVE GLOBAL
  1. D SFT G:ENERR'=0 MSG D D^ENAR1 G OUT
  1. R ;RECALL ARCHIVE INFORMATION
  1. D SFT G:ENERR'=0 MSG D R^ENAR1 G OUT
  1. L ;REVIEW ACTIVITY LOG
  1. D L^ENARL Q
  1. S ;SEARCH FOR EQUIPMENT ARCHIVE
  1. D S^ENARS Q
  1. ;
  1. OUT K ENERR,ENGBL,ENR,ENRT,I,J,K,S,X
  1. Q
  1. ;
  1. SFT ;SELECT FILE TYPE
  1. S ENERR=0 K ENRT,ENGBL
  1. S DIR(0)="SO^1:WORK ORDERS;2:2162 ACCIDENT REPORTS;3:EQUIPMENT INVENTORY"
  1. S DIR("A")="Select AVAILABLE FILE"
  1. D ^DIR K DIR S:'Y!$D(DIRUT) ENERR="FILE TYPE SELECT"
  1. I ENERR=0 S ENRT=+Y,ENGBL="6919."_ENRT
  1. Q
  1. ;
  1. MSG W @IOF,!!,*7,"Process terminated: ",ENERR S ENERR=0
  1. K ENR,ENRT,Y
  1. MSG1 W !,"<cr> to continue" R ENR:DTIME
  1. Q
  1. ;
  1. ;ENAR