A1B2PRE.m

A1B2PRE ;ALB/MJK - ODS PRE-INIT Version 1.5; 14 JAN 1991

 ;;Version 1.55 (local for MAS v5 sites);;

 ;

EN ; -- pre-init entry point

 D REL,DD:$D(DIFQ)

 Q

 ;

REL ; -- check if version 1 was loaded

 ;

 F A1B2PKG=0:0 S A1B2PKG=+$O(^DIC(9.4,"C","A1B2",A1B2PKG)) Q:'A1B2PKG  I $D(^DIC(9.4,A1B2PKG,0)),$P(^(0),U)="OPERATION DESERT SHIELD" Q

 I '$D(^DIC(9.4,A1B2PKG,0)) D MES G RELQ

 I $S('$D(^DIC(9.4,A1B2PKG,"VERSION")):1,1:+^("VERSION")<1) D MES G RELQ

RELQ K A1B2PKG Q

 ;

MES ; -- error message

 W !!,*7,"You must load version 1 of 'OPERATION DESERT SHIELD' package first."

 W !!,"Initialization aborted." K DIFQ

 Q

 ;

DD ; -- del 11500.2

 W !,">>> Deleting ODS ADMISSIONS file data dictionary..."

 S DIU=11500.2,DIU(0)="" D EN^DIU2 K DIU

 W !,"    Data dictionary will be restored by inits."

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---A1B2PRE   821     printed  Apr 09, 2024@21:24:05                                                                                                                                                                                                      Page 2

A1B2PRE   ;ALB/MJK - ODS PRE-INIT Version 1.5; 14 JAN 1991

 +1       ;;Version 1.55 (local for MAS v5 sites);;

 +2       ;

EN        ; -- pre-init entry point

 +1        DO REL

           if $DATA(DIFQ)

               DO DD

 +2        QUIT 

 +3       ;

REL       ; -- check if version 1 was loaded

 +1       ;

 +2        FOR A1B2PKG=0:0

               SET A1B2PKG=+$ORDER(^DIC(9.4,"C","A1B2",A1B2PKG))

               if 'A1B2PKG

                   QUIT 

               IF $DATA(^DIC(9.4,A1B2PKG,0))

                   IF $PIECE(^(0),U)="OPERATION DESERT SHIELD"

                       QUIT 

 +3        IF '$DATA(^DIC(9.4,A1B2PKG,0))

               DO MES

               GOTO RELQ

 +4        IF $SELECT('$DATA(^DIC(9.4,A1B2PKG,"VERSION")):1,1:+^("VERSION")<1)

               DO MES

               GOTO RELQ

RELQ       KILL A1B2PKG

           QUIT 

 +1       ;

MES       ; -- error message

 +1        WRITE !!,*7,"You must load version 1 of 'OPERATION DESERT SHIELD' package first."

 +2        WRITE !!,"Initialization aborted."

           KILL DIFQ

 +3        QUIT 

 +4       ;

DD        ; -- del 11500.2

 +1        WRITE !,">>> Deleting ODS ADMISSIONS file data dictionary..."

 +2        SET DIU=11500.2

           SET DIU(0)=""

           DO EN^DIU2

           KILL DIU

 +3        WRITE !,"    Data dictionary will be restored by inits."

 +4        QUIT 

 +5       ;