| 1 | LBR25P12 ;ALB/MRY - Environment/Post-init ;[08/19/04 15:44 PM ]
|
|---|
| 2 | ;;2.5;Library;**12**;Mar 11, 1996
|
|---|
| 3 | EN ;
|
|---|
| 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 | ;
|
|---|
| 17 | ABRT ; Abort transport, but leave in ^XTMP.
|
|---|
| 18 | S ^XPDABORT=2 Q
|
|---|
| 19 | ;
|
|---|
| 20 | PRE ; 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 | ;
|
|---|
| 28 | POST ;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
|
|---|
