| [613] | 1 | ENTIEQE ;WOIFO/SAB - Edit Equipment Records (IT) ;2/4/2008
|
|---|
| 2 | ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
|
|---|
| 3 | ;
|
|---|
| 4 | SELEQ ; select (and process) equipment for edit
|
|---|
| 5 | S END=0
|
|---|
| 6 | S ENSCR="N ENCMR S ENCMR=$P($G(^(2)),U,9) I ENCMR,$D(^ENG(6914.1,""AIT"",1,ENCMR))"
|
|---|
| 7 | ;
|
|---|
| 8 | ; select and process equipment
|
|---|
| 9 | F S DIC("S")=ENSCR D GETEQ^ENUTL Q:Y<1 S ENDA=+Y D EQP Q:END
|
|---|
| 10 | ; clean up
|
|---|
| 11 | K DIC,END,ENDA,ENEQ,ENSCR,Y
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | EQP ; process one equipment item (edit)
|
|---|
| 15 | ; input
|
|---|
| 16 | ; ENDA - ien of equipment item
|
|---|
| 17 | ; output
|
|---|
| 18 | ; END - flag, true when entire process should stop
|
|---|
| 19 | ;
|
|---|
| 20 | N DA,DDSFILE,DIROUT,DIRUT,DR,DTOUT,DUOUT
|
|---|
| 21 | ; lock equipment
|
|---|
| 22 | L +^ENG(6914,ENDA):$S($D(DILOCKTM):DILOCKTM,1:5) I '$T D G EQPX
|
|---|
| 23 | . W $C(7),!,"Record being edited by someone else. Try later."
|
|---|
| 24 | . S DIR(0)="E" D ^DIR K DIR S:$D(DTOUT) END=1
|
|---|
| 25 | ;
|
|---|
| 26 | ; call fileman screen handler
|
|---|
| 27 | S DDSFILE=6914,DR="[ENIT EDIT]",DA=ENDA
|
|---|
| 28 | D ^DDS
|
|---|
| 29 | I $D(DTOUT) S END=1 ; user timed out
|
|---|
| 30 | ;
|
|---|
| 31 | ; unlock equip
|
|---|
| 32 | L -^ENG(6914,ENDA)
|
|---|
| 33 | ;
|
|---|
| 34 | EQPX ; clean up
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | ;ENTIEQE
|
|---|
