Routine: LBR25P12

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."

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

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLBR25P12   1345     printed  Mar 13, 2025@21:14:39                                                                                                                                                                                                    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

LBR25P12.m