source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYEDR.m

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

initial load of WorldVistAEHR

File size: 585 bytes
Line 
1LBRYEDR ;ISC2/DJM-LIBRARY EDIT ROUTINES ;[ 05/23/97 12:13 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3SUB W @IOF,"VA Library Serials Subject Setup for "_LBRYNAM
4 S Y=DT X ^DD("DD") W " ",Y,!!!
5 S DIC="^LBRY(680.3,",DIC(0)="AELQZ",DLAYGO=680.3
6 L ^LBRY(680.3,0) D ^DIC L K DLAYGO G:Y<0 EXIT
7 S DA=+Y,DIE=DIC,DR=".01" D LOCK G:LBRYL=0 EXIT D ^DIE L
8 G SUB
9LOCK ;LOCK GLOBAL BEING ACCESSED BY A USER
10 L @(DIC_DA_"):1") S LBRYL=$T
11 I LBRYL=0 D
12 . W !!,$C(7),"This entry is being used by another user. Try later."
13 . S XZ="CONTINUE// " D PAUSE^LBRYUTL K XZ
14 Q
15EXIT K DIC,DIE,DR,LBRYL,DA
16 Q
Note: See TracBrowser for help on using the repository browser.