LBRYLIPL ;ISC2/DJM-PLACEMENT LOCATION ENTER/EDIT ;[ 05/23/97  12:13 PM ]
 ;;2.5;Library;**2**;Mar 11, 1996
 ;
START W @IOF,"VA Library Serials Item Placement Location "
 D NOW^%DTC S Y=X X ^DD("DD") W ?60,Y,!
 L ^LBRY(680.7,0)
 S DIC="^LBRY(680.7,",DIC(0)="AELQZ",DLAYGO=680.7,DIC("S")="I $P(^(0),U,2)=LBRYPTR"
 D ^DIC K DLAYGO,DIC("S") L  G:Y<1 EXIT
 S DIE=DIC,DA=+Y,DR=".02///^S X=LBRYPTR;.01"
 D LOCK^LBRYEDR G:LBRYL=0 EXIT
 D ^DIE G:'$D(DA) EXIT
 G START
EXIT K DIC,DIE,DR,I,LBRYL Q