| 1 | LBRYET2 ;ISC2/DJM-INPUT TRANSFORMS FOR 681 ;[ 07/09/97 6:36 PM ]
|
|---|
| 2 | ;;2.5;Library;**2**;Mar 11, 1996
|
|---|
| 3 | EN5 ;EDIT TRANSFORM FOR COPY NUMBER (^LBRY(681,1)
|
|---|
| 4 | I $G(LBRYLOC)="" Q
|
|---|
| 5 | S X2=$G(^LBRY(680,LBRYLOC,7)),X3=$P(X2,U,1) I X3<1 K X,X2,X3 Q
|
|---|
| 6 | S X1=X-.1,X1=$O(^LBRY(681,"AC",LBRYLOC,X1)) K:X1=X X
|
|---|
| 7 | W:'$D(X) !,"This copy number is already used for this title."
|
|---|
| 8 | K X2,X3 Q
|
|---|
| 9 | E7 ;COPY NUMBER (^LBRY(681,1) HELP MESSAGE
|
|---|
| 10 | S LDFX=$P(^LBRY(681,DA,0),U,2) G:$P(^LBRY(680,LDFX,0),U,2)]"" E70
|
|---|
| 11 | W "If you choose a COPY NUMBER and select ROUTED or ROUTED TO RETURN at COPY"
|
|---|
| 12 | W !,"DISPOSITION you will be asked for a routing list. The routing slip will"
|
|---|
| 13 | W !,"list all persons, places etc. in the ROUTING ORDER you selected."
|
|---|
| 14 | W !!,"If you choose ToC (Table of Contents) you will be asked for a routing list."
|
|---|
| 15 | W !,"A separate routing slip will be produced for each entry in the Table of"
|
|---|
| 16 | W !,"Contents routing list.",!
|
|---|
| 17 | G EXE7
|
|---|
| 18 | E70 S XXZ=$S($P(^LBRY(680,LDFX,0),U,2)]"":$P(^(0),U,2),1:"")
|
|---|
| 19 | W !,"This title is ",$S(XXZ="C":"cancelled",XXZ="D":"a dead title",XXZ="R":"renamed",1:"not completely set up"),"."
|
|---|
| 20 | W:XXZ="" " Complete the COPIES ORDERED entry using"
|
|---|
| 21 | W !,"LTS before entering any copy specific information here."
|
|---|
| 22 | EXE7 K XXZ Q
|
|---|
