Last change
on this file since 1730 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
539 bytes
|
Rev | Line | |
---|
[628] | 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.