source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENMAN.m@ 699

Last change on this file since 699 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1ENMAN ;WIRMFO/DH,SAB-Engineering Package Management ;11/25/96
2 ;;7.0;ENGINEERING;**35**;Aug 17, 1993
3 ;
4HDR W @IOF,!!,?15,"ENGINEERING PROGRAM MANAGEMENT ROUTINE",!! Q
5 ;END OF CANNED MENU PROGRAM
6INIT G:$D(^XUSEC("ENMGR",DUZ)) HDR W !!,$C(7),"Sorry, but you lack the necessary SECURITY KEY!",! S XQUIT=1 Q
7PORT ;COMPUTER PORT EDIT
8 S (DIC,DIE)="^DIC(6910.1,",DIC(0)="AEQLM",DLAYGO=6910 D FMUT
9 K DLAYGO
10 G EXIT
11SEC ;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 ;
20WCC ;WORK CENTER CODE
21 S (DIC,DIE)="^DIC(6921,",DIC(0)="AEQLM",DLAYGO=6921 D FMUT
22 K DLAYGO
23 G EXIT
24EMP ;EMPLOYEE ENTER/EDIT
25 S (DIC,DIE)="^ENG(""EMP"",",DIC(0)="AEQLM",DLAYGO=6929 D FMUT
26 K DLAYGO
27 G EXIT
28MAN ;MANUFACTURE EDIT
29 S (DIC,DIE)="^ENG(""MFG"",",DIC(0)="AEQLM",DLAYGO=6912 D FMUT
30 K DLAYGO
31 G EXIT
32FMUT ;FILE MANAGER UTILITY HANDLER
33 K DA S ENDIC(0)=DIC(0)
34FMUT1 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
35LOCK ;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
37EXIT K ENL,DIC,DIE,DA,DR,N,I,J,K,O,S,X,Y,ENDA,ENDIC
38 Q
39 ;ENMAN
Note: See TracBrowser for help on using the repository browser.