|
Last change
on this file since 1501 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
849 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | ENAR ;(WIRMFO)/JED/SAB-ARCHIVE DRIVER ;2.26.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**40**;Aug 17, 1993
|
|---|
| 3 | Q
|
|---|
| 4 | G ;GATHER RECORDS
|
|---|
| 5 | D SFT G:ENERR'=0 MSG D G^ENAR1 G OUT
|
|---|
| 6 | A ;ARCHIVE & VERIFY RECORDS
|
|---|
| 7 | D SFT G:ENERR'=0 MSG D A^ENAR1 G OUT
|
|---|
| 8 | D ;DELETE ARCHIVE GLOBAL
|
|---|
| 9 | D SFT G:ENERR'=0 MSG D D^ENAR1 G OUT
|
|---|
| 10 | R ;RECALL ARCHIVE INFORMATION
|
|---|
| 11 | D SFT G:ENERR'=0 MSG D R^ENAR1 G OUT
|
|---|
| 12 | L ;REVIEW ACTIVITY LOG
|
|---|
| 13 | D L^ENARL Q
|
|---|
| 14 | S ;SEARCH FOR EQUIPMENT ARCHIVE
|
|---|
| 15 | D S^ENARS Q
|
|---|
| 16 | ;
|
|---|
| 17 | OUT K ENERR,ENGBL,ENR,ENRT,I,J,K,S,X
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | SFT ;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 | ;
|
|---|
| 28 | MSG W @IOF,!!,*7,"Process terminated: ",ENERR S ENERR=0
|
|---|
| 29 | K ENR,ENRT,Y
|
|---|
| 30 | MSG1 W !,"<cr> to continue" R ENR:DTIME
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | ;ENAR
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
