source: FOIAVistA/trunk/r/LIBRARY-LBR-LBRS/LBRVCON1.m@ 1755

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1LBRVCON1 ;SSI/ALA/JSR-Consolidate library files continued ;[ 04/20/2000 8:35 AM ]
2 ;;2.5;Library;**3,8**;APR 19, 2000
3INF ; 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
11EXIT D MES^LBRPUTL("I am now re-indexing all cross-references/Patch 8")
12 D REINDX
13 Q
14REINDX ; 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
Note: See TracBrowser for help on using the repository browser.