- ENTIEQE ;WOIFO/SAB - Edit Equipment Records (IT) ;2/4/2008
- ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
- ;
- SELEQ ; select (and process) equipment for edit
- S END=0
- S ENSCR="N ENCMR S ENCMR=$P($G(^(2)),U,9) I ENCMR,$D(^ENG(6914.1,""AIT"",1,ENCMR))"
- ;
- ; select and process equipment
- F S DIC("S")=ENSCR D GETEQ^ENUTL Q:Y<1 S ENDA=+Y D EQP Q:END
- ; clean up
- K DIC,END,ENDA,ENEQ,ENSCR,Y
- Q
- ;
- EQP ; process one equipment item (edit)
- ; input
- ; ENDA - ien of equipment item
- ; output
- ; END - flag, true when entire process should stop
- ;
- N DA,DDSFILE,DIROUT,DIRUT,DR,DTOUT,DUOUT
- ; lock equipment
- L +^ENG(6914,ENDA):$S($D(DILOCKTM):DILOCKTM,1:5) I '$T D G EQPX
- . W $C(7),!,"Record being edited by someone else. Try later."
- . S DIR(0)="E" D ^DIR K DIR S:$D(DTOUT) END=1
- ;
- ; call fileman screen handler
- S DDSFILE=6914,DR="[ENIT EDIT]",DA=ENDA
- D ^DDS
- I $D(DTOUT) S END=1 ; user timed out
- ;
- ; unlock equip
- L -^ENG(6914,ENDA)
- ;
- EQPX ; clean up
- Q
- ;
- ;ENTIEQE
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENTIEQE 1016 printed Jan 18, 2025@02:56:59 Page 2
- ENTIEQE ;WOIFO/SAB - Edit Equipment Records (IT) ;2/4/2008
- +1 ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
- +2 ;
- SELEQ ; select (and process) equipment for edit
- +1 SET END=0
- +2 SET ENSCR="N ENCMR S ENCMR=$P($G(^(2)),U,9) I ENCMR,$D(^ENG(6914.1,""AIT"",1,ENCMR))"
- +3 ;
- +4 ; select and process equipment
- +5 FOR
- SET DIC("S")=ENSCR
- DO GETEQ^ENUTL
- if Y<1
- QUIT
- SET ENDA=+Y
- DO EQP
- if END
- QUIT
- +6 ; clean up
- +7 KILL DIC,END,ENDA,ENEQ,ENSCR,Y
- +8 QUIT
- +9 ;
- EQP ; process one equipment item (edit)
- +1 ; input
- +2 ; ENDA - ien of equipment item
- +3 ; output
- +4 ; END - flag, true when entire process should stop
- +5 ;
- +6 NEW DA,DDSFILE,DIROUT,DIRUT,DR,DTOUT,DUOUT
- +7 ; lock equipment
- +8 LOCK +^ENG(6914,ENDA):$SELECT($DATA(DILOCKTM):DILOCKTM,1:5)
- IF '$TEST
- Begin DoDot:1
- +9 WRITE $CHAR(7),!,"Record being edited by someone else. Try later."
- +10 SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- if $DATA(DTOUT)
- SET END=1
- End DoDot:1
- GOTO EQPX
- +11 ;
- +12 ; call fileman screen handler
- +13 SET DDSFILE=6914
- SET DR="[ENIT EDIT]"
- SET DA=ENDA
- +14 DO ^DDS
- +15 ; user timed out
- IF $DATA(DTOUT)
- SET END=1
- +16 ;
- +17 ; unlock equip
- +18 LOCK -^ENG(6914,ENDA)
- +19 ;
- EQPX ; clean up
- +1 QUIT
- +2 ;
- +3 ;ENTIEQE