Last change
on this file since 770 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
742 bytes
|
Rev | Line | |
---|
[613] | 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.