source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBR25P12.m@ 1078

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1LBR25P12 ;ALB/MRY - Environment/Post-init ;[08/19/04 15:44 PM ]
2 ;;2.5;Library;**12**;Mar 11, 1996
3EN ;
4 S XPDABORT=""
5 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
6 . D BMES^XPDUTL("*****")
7 . D MES^XPDUTL("Your programming variables are not set up properly.")
8 . D MES^XPDUTL("Installation aborted.")
9 ; Verify that Library v2.5 exists, else quit
10 I +$$VERSION^XPDUTL("LBR")'="2.5" D G ABRT
11 . D BMES^XPDUTL("*****")
12 . D MES^XPDUTL("VERSION 2.5 OF LIBRARY HAS NOT BEEN LOADED.")
13 . D MES^XPDUTL("Installation aborted.")
14 W !!,">> Environment check complete and okay."
15 Q
16 ;
17ABRT ; Abort transport, but leave in ^XTMP.
18 S ^XPDABORT=2 Q
19 ;
20PRE ; Set 'NO' to COREFLS ACTIVE (#.1) in LIBRARY PARAMETERS (680.6) File.
21 N SEQ,IEN,OUT,DA K OUT
22 D LIST^DIC(680.6,"","@","","","","","","","","OUT")
23 S SEQ=0 F S SEQ=$O(OUT("DILIST",2,SEQ)) Q:'SEQ D
24 . S IEN=OUT("DILIST",2,SEQ)
25 . S DA=IEN,DR=".1///NO",DIE="^LBRY(680.6," D ^DIE
26 Q
27 ;
28POST ;Post init - Disable Corefls option.
29 N DIC,TEXT,COUNT
30 S DIC="^DIC(19,",DIC(0)="X",COUNT=0
31 F X="LBRY LOCAL VENDOR ADD","LBRY COREFLS CONVERSION" D
32 . D ^DIC Q:Y<0 S COUNT=COUNT+1 D
33 .. I COUNT=1 D BMES^XPDUTL("*****")
34 .. D MES^XPDUTL("Putting ["_X_"] option - 'out of order'")
35 .. S TEXT="CoreFLS Disabled (LBR*2.5*12)"
36 .. D OUT^XPDMENU(X,TEXT)
37 Q
Note: See TracBrowser for help on using the repository browser.