- 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 Jan 18, 2025@02:52:41 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