17 lines
585 B
Mathematica
17 lines
585 B
Mathematica
LBRYEDR ;ISC2/DJM-LIBRARY EDIT ROUTINES ;[ 05/23/97 12:13 PM ]
|
|
;;2.5;Library;**2**;Mar 11, 1996
|
|
SUB W @IOF,"VA Library Serials Subject Setup for "_LBRYNAM
|
|
S Y=DT X ^DD("DD") W " ",Y,!!!
|
|
S DIC="^LBRY(680.3,",DIC(0)="AELQZ",DLAYGO=680.3
|
|
L ^LBRY(680.3,0) D ^DIC L K DLAYGO G:Y<0 EXIT
|
|
S DA=+Y,DIE=DIC,DR=".01" D LOCK G:LBRYL=0 EXIT D ^DIE L
|
|
G SUB
|
|
LOCK ;LOCK GLOBAL BEING ACCESSED BY A USER
|
|
L @(DIC_DA_"):1") S LBRYL=$T
|
|
I LBRYL=0 D
|
|
. W !!,$C(7),"This entry is being used by another user. Try later."
|
|
. S XZ="CONTINUE// " D PAUSE^LBRYUTL K XZ
|
|
Q
|
|
EXIT K DIC,DIE,DR,LBRYL,DA
|
|
Q
|