|
Last change
on this file since 836 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.
