UTILI2 ;UTILI-DATA [ 11/02/93  4:24 PM ]
 ;
 Set Q1=Global
 Do BUILDB
 If Global'="PR" Do ^KSELV
 If Global="PR" Do ^KPSELV
 Do BUILDLOC
 Quit
 ;
BUILDB 
 New Next,Piece,R
 Kill B
 Set Next=""
 For  Set Next=$O(@Ref@(Next)) Quit:Next=""  Do
 .Set R=@Ref@(Next)
 .Set Piece=$P(R,U,5),R=$P(R,U,2)_D_$P(R,U)_"\\\"_$P(R,U,3)
 .Set B(Piece)=R
 Kill @Ref
 Quit
 ;
BUILDLOC 
 New Next,Piece,R
 Kill @Ref
 Set Next=0,Piece=100
 For  Set Piece=$O(B(Piece)) Quit:Piece=""  Do
 .Set R=B(Piece)
 .Set R=$P(R,D,2)_U_$P(R,D)_U_$P(R,D,5)_U_U_Piece_";0;;"
 .Set Next=Next+1,@Ref@(Next)=R
 Kill B
 Quit
 ;