15 lines
539 B
Mathematica
15 lines
539 B
Mathematica
LBRYKILL ;SSI/KMB - DELETION OF LIBRARY FILES ;[ 03/11/98 11:51 AM ]
|
|
;;2.5;Library;**2**;Mar 11, 1996
|
|
;
|
|
; ********* WARNING! ************
|
|
;***** DO NOT RUN THIS PROGRAM UNLESS DIRECTED BY DEVELOPER *****
|
|
;
|
|
DELETE ;This routine will delete the DD and data for Library Files
|
|
D MES^XPDUTL("The data will be deleted for the following files:")
|
|
F I=680,680.4,680.5,680.7,681,682 D
|
|
. S N=0
|
|
. F S N=$O(^LBRY(I,N)) Q:N="" K ^LBRY(I,N)
|
|
. S $P(^LBRY(I,0),"^",3)=0,$P(^(0),"^",4)=0
|
|
. D MES^XPDUTL("File # "_I_" has been deleted.")
|
|
Q
|