1 | LBRYEDI ;ISC2/DJM-FILE 680 ADDITIONAL EDIT OPTIONS ;[ 05/23/97 12:13 PM ]
|
---|
2 | ;;2.5;Library;**2,9**;Mar 11, 1996
|
---|
3 | ;
|
---|
4 | HOL 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
|
---|
16 | PIE 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
|
---|
28 | EXIT K DIC,DIE,YDT,LA0,DR,LBRYL,LBRYCLS,LBRYLOC,LBRTDA
|
---|
29 | Q
|
---|
30 | NTIT ; 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
|
---|