Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENTIEQE

ENTIEQE.m

Go to the documentation of this file.
  1. ENTIEQE ;WOIFO/SAB - Edit Equipment Records (IT) ;2/4/2008
  1. ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
  1. ;
  1. SELEQ ; select (and process) equipment for edit
  1. S END=0
  1. S ENSCR="N ENCMR S ENCMR=$P($G(^(2)),U,9) I ENCMR,$D(^ENG(6914.1,""AIT"",1,ENCMR))"
  1. ;
  1. ; select and process equipment
  1. F S DIC("S")=ENSCR D GETEQ^ENUTL Q:Y<1 S ENDA=+Y D EQP Q:END
  1. ; clean up
  1. K DIC,END,ENDA,ENEQ,ENSCR,Y
  1. Q
  1. ;
  1. EQP ; process one equipment item (edit)
  1. ; input
  1. ; ENDA - ien of equipment item
  1. ; output
  1. ; END - flag, true when entire process should stop
  1. ;
  1. N DA,DDSFILE,DIROUT,DIRUT,DR,DTOUT,DUOUT
  1. ; lock equipment
  1. L +^ENG(6914,ENDA):$S($D(DILOCKTM):DILOCKTM,1:5) I '$T D G EQPX
  1. . W $C(7),!,"Record being edited by someone else. Try later."
  1. . S DIR(0)="E" D ^DIR K DIR S:$D(DTOUT) END=1
  1. ;
  1. ; call fileman screen handler
  1. S DDSFILE=6914,DR="[ENIT EDIT]",DA=ENDA
  1. D ^DDS
  1. I $D(DTOUT) S END=1 ; user timed out
  1. ;
  1. ; unlock equip
  1. L -^ENG(6914,ENDA)
  1. ;
  1. EQPX ; clean up
  1. Q
  1. ;
  1. ;ENTIEQE