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