Line | |
---|
1 | LBRYRSLT ;SSI/ALA-Resubmit Local Title to FORUM ;[ 05/23/97 12:13 PM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | I $G(LBRYPTR)="" D I $G(LBRYPTR)="" W !!,$C(7),"No Site has been selected" HANG 2 Q
|
---|
4 | . D ^LBRYASK
|
---|
5 | START W @IOF,?5,"VA Library Serials Title Setup for "_LBRYNAM
|
---|
6 | D NOW^%DTC S Y=X X ^DD("DD") S YDT=Y W ?60,YDT,!
|
---|
7 | S DIC="^LBRY(680.5,",DIC(0)="AEMQZ"
|
---|
8 | S DIC("A")="Select TITLE AUTHORITY TITLE: ",DIC("S")="I Y>99000"
|
---|
9 | D ^DIC K DIC("A") G:Y<0 EXIT1
|
---|
10 | S (LBRYCLS,DA)=+Y
|
---|
11 | W !!,"Are you sure you want to resend title "_$P(^LBRY(680.5,LBRYCLS,0),U)
|
---|
12 | D YN^DICN I %'=1 G START
|
---|
13 | D ^LBRYLTF
|
---|
14 | W !!,"Title will be sent to FORUM for processing by National Librarians."
|
---|
15 | R !,"Press return to continue ",C:DTIME
|
---|
16 | G START
|
---|
17 | EXIT1 K YDT,DIC,LBRYCLS,DA,Y
|
---|
18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.