| 1 | ENMAN ;WIRMFO/DH,SAB-Engineering Package Management ;11/25/96
|
|---|
| 2 | ;;7.0;ENGINEERING;**35**;Aug 17, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | HDR W @IOF,!!,?15,"ENGINEERING PROGRAM MANAGEMENT ROUTINE",!! Q
|
|---|
| 5 | ;END OF CANNED MENU PROGRAM
|
|---|
| 6 | INIT G:$D(^XUSEC("ENMGR",DUZ)) HDR W !!,$C(7),"Sorry, but you lack the necessary SECURITY KEY!",! S XQUIT=1 Q
|
|---|
| 7 | PORT ;COMPUTER PORT EDIT
|
|---|
| 8 | S (DIC,DIE)="^DIC(6910.1,",DIC(0)="AEQLM",DLAYGO=6910 D FMUT
|
|---|
| 9 | K DLAYGO
|
|---|
| 10 | G EXIT
|
|---|
| 11 | SEC ;Engineering shops
|
|---|
| 12 | S DIC="^DIC(6922,",DIC(0)="AEQLM",DLAYGO=6922
|
|---|
| 13 | D ^DIC K DLAYGO Q:Y'>0 S (DA,ENDA)=+Y
|
|---|
| 14 | L +^DIC(6922,DA):1 I '$T W !,*7,"Another user is editing this entry. Please try again later." Q
|
|---|
| 15 | S DIE="^DIC(6922,",DR=".01;1;2;4;5"
|
|---|
| 16 | D ^DIE
|
|---|
| 17 | L -^DIC(6922,ENDA) K ENDA
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | WCC ;WORK CENTER CODE
|
|---|
| 21 | S (DIC,DIE)="^DIC(6921,",DIC(0)="AEQLM",DLAYGO=6921 D FMUT
|
|---|
| 22 | K DLAYGO
|
|---|
| 23 | G EXIT
|
|---|
| 24 | EMP ;EMPLOYEE ENTER/EDIT
|
|---|
| 25 | S (DIC,DIE)="^ENG(""EMP"",",DIC(0)="AEQLM",DLAYGO=6929 D FMUT
|
|---|
| 26 | K DLAYGO
|
|---|
| 27 | G EXIT
|
|---|
| 28 | MAN ;MANUFACTURE EDIT
|
|---|
| 29 | S (DIC,DIE)="^ENG(""MFG"",",DIC(0)="AEQLM",DLAYGO=6912 D FMUT
|
|---|
| 30 | K DLAYGO
|
|---|
| 31 | G EXIT
|
|---|
| 32 | FMUT ;FILE MANAGER UTILITY HANDLER
|
|---|
| 33 | K DA S ENDIC(0)=DIC(0)
|
|---|
| 34 | FMUT1 S DIC(0)=ENDIC(0) D ^DIC S (DA,ENDA)=+Y Q:DA'>0 D LOCK G:ENL=0 FMUT S DR=".01:99" D ^DIE L -@(DIC_ENDA_")") W !! G FMUT1
|
|---|
| 35 | LOCK ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
|
|---|
| 36 | S X=DIC_DA_")" L +@X:1 S ENL=$T Q:ENL'=0 I ENL=0 W !!,$C(7),"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER." Q
|
|---|
| 37 | EXIT K ENL,DIC,DIE,DA,DR,N,I,J,K,O,S,X,Y,ENDA,ENDIC
|
|---|
| 38 | Q
|
|---|
| 39 | ;ENMAN
|
|---|
