Last change
on this file since 1578 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
539 bytes
|
Line | |
---|
1 | LBRYKILL ;SSI/KMB - DELETION OF LIBRARY FILES ;[ 03/11/98 11:51 AM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | ;
|
---|
4 | ; ********* WARNING! ************
|
---|
5 | ;***** DO NOT RUN THIS PROGRAM UNLESS DIRECTED BY DEVELOPER *****
|
---|
6 | ;
|
---|
7 | DELETE ;This routine will delete the DD and data for Library Files
|
---|
8 | D MES^XPDUTL("The data will be deleted for the following files:")
|
---|
9 | F I=680,680.4,680.5,680.7,681,682 D
|
---|
10 | . S N=0
|
---|
11 | . F S N=$O(^LBRY(I,N)) Q:N="" K ^LBRY(I,N)
|
---|
12 | . S $P(^LBRY(I,0),"^",3)=0,$P(^(0),"^",4)=0
|
---|
13 | . D MES^XPDUTL("File # "_I_" has been deleted.")
|
---|
14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.