| 1 | LBRVCON1 ;SSI/ALA/JSR-Consolidate library files continued ;[ 04/20/2000 8:35 AM ]
|
|---|
| 2 | ;;2.5;Library;**3,8**;APR 19, 2000
|
|---|
| 3 | INF ; Inform FORUM when integration is completed for VA library sites
|
|---|
| 4 | S CODE="" F I=1:1 S CODE=$O(^LBRY(680.6,"C",CODE)) Q:CODE="" D
|
|---|
| 5 | . S MES(I)="Library Station "_$G(CODE)_" has been integrated." Q
|
|---|
| 6 | S MES(I+1)="Please update associated DOMAINs."
|
|---|
| 7 | S TRNSM=$S($G(^XMB("NETNAME"))["SENTIENT":"BBB.SENTIENT.ISC-WASH.VA.GOV",1:"FORUM.VA.GOV")
|
|---|
| 8 | S XMDUZ=DUZ,XMSUB="LIBRARY PATCH 8 LOADED",XMY("G.LBRYRECV@"_TRNSM)=""
|
|---|
| 9 | S XMTEXT="MES("
|
|---|
| 10 | D ^XMD K XMSUB,XMY,XMTEXT,MSG,XMZ,XMDUZ,MES,TRNSM
|
|---|
| 11 | EXIT D MES^LBRPUTL("I am now re-indexing all cross-references/Patch 8")
|
|---|
| 12 | D REINDX
|
|---|
| 13 | Q
|
|---|
| 14 | REINDX ; reindex crossreferences
|
|---|
| 15 | W !
|
|---|
| 16 | F J=680,681,682,680.4,680.7,680.3,680.5 S LX="A" F S LX=$O(^LBRY(J,LX)) Q:LX="" K ^LBRY(J,LX)
|
|---|
| 17 | F DIK="^LBRY(680,","^LBRY(681,","^LBRY(682,","^LBRY(680.4,","^LBRY(680.7,","^LBRY(680.3,","^LBRY(680.5," D
|
|---|
| 18 | . W DIK,! D IXALL^DIK
|
|---|
| 19 | D MES^LBRPUTL("Patch 8 The integration has completed successfully.")
|
|---|
| 20 | Q
|
|---|
