source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYRSLT.m@ 770

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
RevLine 
[613]1LBRYRSLT ;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
5START 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
17EXIT1 K YDT,DIC,LBRYCLS,DA,Y
18 Q
Note: See TracBrowser for help on using the repository browser.