- 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 ---[H[J[2J[HA1B2PRE 821 printed Feb 18, 2025@23:47:44 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 ;
