source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYEDI.m@ 1078

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1LBRYEDI ;ISC2/DJM-FILE 680 ADDITIONAL EDIT OPTIONS ;[ 05/23/97 12:13 PM ]
2 ;;2.5;Library;**2,9**;Mar 11, 1996
3 ;
4HOL I $G(LBRYPTR)="" D I $G(LBRYPTR)="" W !!,$C(7),"No Site has been selected" Q
5 . D ^LBRYASK
6 W @IOF,"VA Library Serials Holdings Edit for "_LBRYNAM
7 S Y=DT X ^DD("DD") S YDT=Y W ?60,Y,!
8 S DIC="^LBRY(680,",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),U,4)=LBRYPTR&($P(^(0),U,2)="""")"
9 D ^DIC
10 G:Y<0 EXIT S (DA,LBRYLOC)=$P(Y,U),LBRYCLS=$P(Y,U,2)
11 S LA0="TITLE: "_$P(^LBRY(680.5,LBRYCLS,0),U),DA=LBRYLOC
12 W @IOF,?5,"VA Library Serials Bibliographic Edit",?60,YDT,!!,LA0,!!
13 S DIE="^LBRY(680,",DR=$S($D(LBRYPTR)&($P($G(^LBRY(680.6,LBRYPTR,0)),U,10)):"[LBRY BIBLIOGRAPHIC 2 ENTRY]",1:"[LBRY BIBLIOGRAPHIC ENTRY]"),DIC=DIE
14 D LOCK^LBRYEDR G:LBRYL=0 EXIT D ^DIE K DIE,DR L
15 G HOL
16PIE I $G(LBRYPTR)="" D I $G(LBRYPTR)="" W !!,$C(7),"No Site has been selected" Q
17 . D ^LBRYASK
18 W @IOF,"VA Library Serials Purchasing Information for "_LBRYNAM
19 S Y=DT X ^DD("DD") S YDT=Y W ?60,Y,!
20 S DIC="^LBRY(680,",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),U,4)=LBRYPTR&($P(^(0),U,2)="""")"
21 D ^DIC
22 G:Y<0 EXIT S (DA,LBRYLOC)=$P(Y,U),LBRYCLS=$P(Y,U,2)
23 S LA0="TITLE: "_$P(^LBRY(680.5,LBRYCLS,0),U),DA=LBRYLOC
24 W @IOF,?5,"VA Library Serials Purchasing Information",?60,YDT,!!,LA0,!!
25 S DIE="^LBRY(680,",DR="[LBRY FINANCIAL ENTRY]",DIC=DIE
26 D LOCK^LBRYEDR G:LBRYL=0 EXIT D ^DIE K DIE,DR L
27 G PIE
28EXIT K DIC,DIE,YDT,LA0,DR,LBRYL,LBRYCLS,LBRYLOC,LBRTDA
29 Q
30NTIT ; Special cross-reference for new titles
31 I $G(LBRYNEW)=1 S $P(^LBRY(680,DA,5),U)=DT I $D(^LBRY(680.5,LBRYCLS,0)) S $P(^(0),U,2)=1
32 Q
Note: See TracBrowser for help on using the repository browser.