source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYPG2.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 736 bytes
Line 
1LBRYPG2 ;ISC2/DJM-LIBRARY PURGE PARSING ;[ 05/23/97 12:13 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3PARSE F I=1:1 S G=$P(LBRYX,",",I) G:G="" CONT^LBRYPG D:G=+G PURGE D:G["-" PARSE1
4 Q
5PARSE1 S G1=$P(G,"-",1),G2=$P(G,"-",2) I G2'<G1 F G=G1:1:G2 D PURGE
6 Q
7PURGE 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
9ASK S LBRYX=X,Q=2 I LBRYX?.N G PARSE
10ASK3 S G=$P(LBRYX,",",Q) G:G="" ASK1 G:G["-" ASK4 G:G'?.N ASK2 S Q=Q+1 G ASK3
11ASK1 G PARSE
12ASK2 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
15ASK4 G:G'?1N.N1"-"1N.N ASK2 S Q=Q+1 G ASK3
Note: See TracBrowser for help on using the repository browser.