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