ENAR ;(WIRMFO)/JED/SAB-ARCHIVE DRIVER ;2.26.97
;;7.0;ENGINEERING;**40**;Aug 17, 1993
Q
G ;GATHER RECORDS
D SFT G:ENERR'=0 MSG D G^ENAR1 G OUT
A ;ARCHIVE & VERIFY RECORDS
D SFT G:ENERR'=0 MSG D A^ENAR1 G OUT
D ;DELETE ARCHIVE GLOBAL
D SFT G:ENERR'=0 MSG D D^ENAR1 G OUT
R ;RECALL ARCHIVE INFORMATION
D SFT G:ENERR'=0 MSG D R^ENAR1 G OUT
L ;REVIEW ACTIVITY LOG
D L^ENARL Q
S ;SEARCH FOR EQUIPMENT ARCHIVE
D S^ENARS Q
;
OUT K ENERR,ENGBL,ENR,ENRT,I,J,K,S,X
Q
;
SFT ;SELECT FILE TYPE
S ENERR=0 K ENRT,ENGBL
S DIR(0)="SO^1:WORK ORDERS;2:2162 ACCIDENT REPORTS;3:EQUIPMENT INVENTORY"
S DIR("A")="Select AVAILABLE FILE"
D ^DIR K DIR S:'Y!$D(DIRUT) ENERR="FILE TYPE SELECT"
I ENERR=0 S ENRT=+Y,ENGBL="6919."_ENRT
Q
;
MSG W @IOF,!!,*7,"Process terminated: ",ENERR S ENERR=0
K ENR,ENRT,Y
MSG1 W !,"<cr> to continue" R ENR:DTIME
Q
;
;ENAR
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENAR 882 printed Dec 13, 2024@01:51:28 Page 2
ENAR ;(WIRMFO)/JED/SAB-ARCHIVE DRIVER ;2.26.97
+1 ;;7.0;ENGINEERING;**40**;Aug 17, 1993
+2 QUIT
G ;GATHER RECORDS
+1 DO SFT
if ENERR'=0
GOTO MSG
DO G^ENAR1
GOTO OUT
A ;ARCHIVE & VERIFY RECORDS
+1 DO SFT
if ENERR'=0
GOTO MSG
DO A^ENAR1
GOTO OUT
D ;DELETE ARCHIVE GLOBAL
+1 DO SFT
if ENERR'=0
GOTO MSG
DO D^ENAR1
GOTO OUT
R ;RECALL ARCHIVE INFORMATION
+1 DO SFT
if ENERR'=0
GOTO MSG
DO R^ENAR1
GOTO OUT
L ;REVIEW ACTIVITY LOG
+1 DO L^ENARL
QUIT
S ;SEARCH FOR EQUIPMENT ARCHIVE
+1 DO S^ENARS
QUIT
+2 ;
OUT KILL ENERR,ENGBL,ENR,ENRT,I,J,K,S,X
+1 QUIT
+2 ;
SFT ;SELECT FILE TYPE
+1 SET ENERR=0
KILL ENRT,ENGBL
+2 SET DIR(0)="SO^1:WORK ORDERS;2:2162 ACCIDENT REPORTS;3:EQUIPMENT INVENTORY"
+3 SET DIR("A")="Select AVAILABLE FILE"
+4 DO ^DIR
KILL DIR
if 'Y!$DATA(DIRUT)
SET ENERR="FILE TYPE SELECT"
+5 IF ENERR=0
SET ENRT=+Y
SET ENGBL="6919."_ENRT
+6 QUIT
+7 ;
MSG WRITE @IOF,!!,*7,"Process terminated: ",ENERR
SET ENERR=0
+1 KILL ENR,ENRT,Y
MSG1 WRITE !,"<cr> to continue"
READ ENR:DTIME
+1 QUIT
+2 ;
+3 ;ENAR
