| [613] | 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
|
|---|
