|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
736 bytes
|
| Line | |
|---|
| 1 | LBRYPG2 ;ISC2/DJM-LIBRARY PURGE PARSING ;[ 05/23/97 12:13 PM ]
|
|---|
| 2 | ;;2.5;Library;**2**;Mar 11, 1996
|
|---|
| 3 | PARSE F I=1:1 S G=$P(LBRYX,",",I) G:G="" CONT^LBRYPG D:G=+G PURGE D:G["-" PARSE1
|
|---|
| 4 | Q
|
|---|
| 5 | PARSE1 S G1=$P(G,"-",1),G2=$P(G,"-",2) I G2'<G1 F G=G1:1:G2 D PURGE
|
|---|
| 6 | Q
|
|---|
| 7 | PURGE I $D(A(G)) S DIK="^LBRY(682,",DA=A(G),Y=$P($G(^LBRY(682,A(G),1)),U) I Y>0 X ^DD("DD") W !,"PURGING ",Y," ISSUE." D ^DIK
|
|---|
| 8 | Q
|
|---|
| 9 | ASK S LBRYX=X,Q=2 I LBRYX?.N G PARSE
|
|---|
| 10 | ASK3 S G=$P(LBRYX,",",Q) G:G="" ASK1 G:G["-" ASK4 G:G'?.N ASK2 S Q=Q+1 G ASK3
|
|---|
| 11 | ASK1 G PARSE
|
|---|
| 12 | ASK2 W !!,"Please enter an ID NUM or a range of ID NUMs separated by a hyphen '1-2'"
|
|---|
| 13 | W !,"or a combination of the two separated by a comma '1,2-4' or <CR> to EXIT.",!
|
|---|
| 14 | G ASK1^LBRYPG
|
|---|
| 15 | ASK4 G:G'?1N.N1"-"1N.N ASK2 S Q=Q+1 G ASK3
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
