| [613] | 1 | LBRYCK5 ;ISC2/DJM-SERIALS CHECK-IN NOTES ;[ 05/23/97 12:13 PM ]
|
|---|
| 2 | ;;2.5;Library;**2**;Mar 11, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | START S E=0,DIWL=1,DIWR=79,DIWF="N" K ^UTILITY($J,"W")
|
|---|
| 5 | S XX=$P(^LBRY(680,DA,16,0),U,3)
|
|---|
| 6 | F I=1:1:XX S X=^LBRY(680,DA,16,I,0) D ^DIWP
|
|---|
| 7 | S X=^UTILITY($J,"W",DIWL)-1,X1=0,X2=0
|
|---|
| 8 | LOOP W @IOF,?5,"VA Library Serials Check-In ** NOTES **",?60,YDT
|
|---|
| 9 | W !!,LA0 W:$D(LA00) !,LA00 W !! S X1=X1+X2,X2=X2+16 I X2>X S X2=X
|
|---|
| 10 | I X1'<X G EXIT
|
|---|
| 11 | F I=X1+1:1:X2 S O=^UTILITY($J,"W",DIWL,I,0) W O,!
|
|---|
| 12 | QUERY W !!,$S(I<X:"Continue// ",1:"Exit// ")
|
|---|
| 13 | S DTOUT="" R Z:DTIME E S DTOUT=1 W $C(7) G EXIT
|
|---|
| 14 | I I'=X,Z="" G LOOP
|
|---|
| 15 | I I=X,Z="" G EXIT
|
|---|
| 16 | I Z="^" G EXIT
|
|---|
| 17 | W !!,$S(I'=X:"Enter '^' to exit or <CR> to continue",1:"Enter <CR> to exit") G QUERY
|
|---|
| 18 | EXIT K XX,^UTILITY($J,"W") Q
|
|---|
