ENTIEQE.m

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 ---ENTIEQE   1016     printed  Apr 09, 2024@21:01:51                                                                                                                                                                                                     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