source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENAR.m@ 1474

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

initial load of WorldVistAEHR

File size: 849 bytes
Line 
1ENAR ;(WIRMFO)/JED/SAB-ARCHIVE DRIVER ;2.26.97
2 ;;7.0;ENGINEERING;**40**;Aug 17, 1993
3 Q
4G ;GATHER RECORDS
5 D SFT G:ENERR'=0 MSG D G^ENAR1 G OUT
6A ;ARCHIVE & VERIFY RECORDS
7 D SFT G:ENERR'=0 MSG D A^ENAR1 G OUT
8D ;DELETE ARCHIVE GLOBAL
9 D SFT G:ENERR'=0 MSG D D^ENAR1 G OUT
10R ;RECALL ARCHIVE INFORMATION
11 D SFT G:ENERR'=0 MSG D R^ENAR1 G OUT
12L ;REVIEW ACTIVITY LOG
13 D L^ENARL Q
14S ;SEARCH FOR EQUIPMENT ARCHIVE
15 D S^ENARS Q
16 ;
17OUT K ENERR,ENGBL,ENR,ENRT,I,J,K,S,X
18 Q
19 ;
20SFT ;SELECT FILE TYPE
21 S ENERR=0 K ENRT,ENGBL
22 S DIR(0)="SO^1:WORK ORDERS;2:2162 ACCIDENT REPORTS;3:EQUIPMENT INVENTORY"
23 S DIR("A")="Select AVAILABLE FILE"
24 D ^DIR K DIR S:'Y!$D(DIRUT) ENERR="FILE TYPE SELECT"
25 I ENERR=0 S ENRT=+Y,ENGBL="6919."_ENRT
26 Q
27 ;
28MSG W @IOF,!!,*7,"Process terminated: ",ENERR S ENERR=0
29 K ENR,ENRT,Y
30MSG1 W !,"<cr> to continue" R ENR:DTIME
31 Q
32 ;
33 ;ENAR
Note: See TracBrowser for help on using the repository browser.