source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYET2.m@ 1766

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1LBRYET2 ;ISC2/DJM-INPUT TRANSFORMS FOR 681 ;[ 07/09/97 6:36 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3EN5 ;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
9E7 ;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
18E70 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."
22EXE7 K XXZ Q
Note: See TracBrowser for help on using the repository browser.