LBR25P12 ;ALB/MRY - Environment/Post-init ;[08/19/04 15:44 PM ]
;;2.5;Library;**12**;Mar 11, 1996
EN ;
S XPDABORT=""
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
. D BMES^XPDUTL("*****")
. D MES^XPDUTL("Your programming variables are not set up properly.")
. D MES^XPDUTL("Installation aborted.")
; Verify that Library v2.5 exists, else quit
I +$$VERSION^XPDUTL("LBR")'="2.5" D G ABRT
. D BMES^XPDUTL("*****")
. D MES^XPDUTL("VERSION 2.5 OF LIBRARY HAS NOT BEEN LOADED.")
. D MES^XPDUTL("Installation aborted.")
W !!,">> Environment check complete and okay."
Q
;
ABRT ; Abort transport, but leave in ^XTMP.
S ^XPDABORT=2 Q
;
PRE ; Set 'NO' to COREFLS ACTIVE (#.1) in LIBRARY PARAMETERS (680.6) File.
N SEQ,IEN,OUT,DA K OUT
D LIST^DIC(680.6,"","@","","","","","","","","OUT")
S SEQ=0 F S SEQ=$O(OUT("DILIST",2,SEQ)) Q:'SEQ D
. S IEN=OUT("DILIST",2,SEQ)
. S DA=IEN,DR=".1///NO",DIE="^LBRY(680.6," D ^DIE
Q
;
POST ;Post init - Disable Corefls option.
N DIC,TEXT,COUNT
S DIC="^DIC(19,",DIC(0)="X",COUNT=0
F X="LBRY LOCAL VENDOR ADD","LBRY COREFLS CONVERSION" D
. D ^DIC Q:Y<0 S COUNT=COUNT+1 D
.. I COUNT=1 D BMES^XPDUTL("*****")
.. D MES^XPDUTL("Putting ["_X_"] option - 'out of order'")
.. S TEXT="CoreFLS Disabled (LBR*2.5*12)"
.. D OUT^XPDMENU(X,TEXT)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLBR25P12 1345 printed Dec 13, 2024@02:09:47 Page 2
LBR25P12 ;ALB/MRY - Environment/Post-init ;[08/19/04 15:44 PM ]
+1 ;;2.5;Library;**12**;Mar 11, 1996
EN ;
+1 SET XPDABORT=""
+2 IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")
Begin DoDot:1
+3 DO BMES^XPDUTL("*****")
+4 DO MES^XPDUTL("Your programming variables are not set up properly.")
+5 DO MES^XPDUTL("Installation aborted.")
End DoDot:1
GOTO ABRT
+6 ; Verify that Library v2.5 exists, else quit
+7 IF +$$VERSION^XPDUTL("LBR")'="2.5"
Begin DoDot:1
+8 DO BMES^XPDUTL("*****")
+9 DO MES^XPDUTL("VERSION 2.5 OF LIBRARY HAS NOT BEEN LOADED.")
+10 DO MES^XPDUTL("Installation aborted.")
End DoDot:1
GOTO ABRT
+11 WRITE !!,">> Environment check complete and okay."
+12 QUIT
+13 ;
ABRT ; Abort transport, but leave in ^XTMP.
+1 SET ^XPDABORT=2
QUIT
+2 ;
PRE ; Set 'NO' to COREFLS ACTIVE (#.1) in LIBRARY PARAMETERS (680.6) File.
+1 NEW SEQ,IEN,OUT,DA
KILL OUT
+2 DO LIST^DIC(680.6,"","@","","","","","","","","OUT")
+3 SET SEQ=0
FOR
SET SEQ=$ORDER(OUT("DILIST",2,SEQ))
if 'SEQ
QUIT
Begin DoDot:1
+4 SET IEN=OUT("DILIST",2,SEQ)
+5 SET DA=IEN
SET DR=".1///NO"
SET DIE="^LBRY(680.6,"
DO ^DIE
End DoDot:1
+6 QUIT
+7 ;
POST ;Post init - Disable Corefls option.
+1 NEW DIC,TEXT,COUNT
+2 SET DIC="^DIC(19,"
SET DIC(0)="X"
SET COUNT=0
+3 FOR X="LBRY LOCAL VENDOR ADD","LBRY COREFLS CONVERSION"
Begin DoDot:1
+4 DO ^DIC
if Y<0
QUIT
SET COUNT=COUNT+1
Begin DoDot:2
+5 IF COUNT=1
DO BMES^XPDUTL("*****")
+6 DO MES^XPDUTL("Putting ["_X_"] option - 'out of order'")
+7 SET TEXT="CoreFLS Disabled (LBR*2.5*12)"
+8 DO OUT^XPDMENU(X,TEXT)
End DoDot:2
End DoDot:1
+9 QUIT
