AQAOPREE.m

AQAOPREE ; IHS/ORDC/LJF - ENVIRONMENT CHECK PRE-INIT ;

 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 ;

 ;This is the main driver for QAI pre-inits.  It check for the

 ;presence of required software before allowing installation of the

 ;QAI package.  Then is calls the standard IHS pre-init ^AQAOPREI.

 ;

 W !!!!,"Checking environment . . .",!!

 F I=1:1:6 S AQAONS=$P($T(PKG+I),";;",2) Q:AQAONS=""  D

 .S X=0

 .F  S X=$O(^DIC(9.4,"C",AQAONS,X)) Q:X=""  D

 ..S V=$G(^DIC(9.4,X,"VERSION"))

 ..I V<$P($T(PKG+I),";;",3),'$O(^DIC(9.4,"C",AQAONS,X)) K DIFQ D

 ...W !!,"VERSION ",$P($T(PKG+I),";;",3)," of ",$P($T(PKG+I),";;",4)

 ...W " has NOT been installed!"

 ;

 I '$D(DIFQ) W !!,*7,"CANNOT CONTINUE.  INSTALLATION STOPPED." Q

 ;

PKDEL ; delete pkg options, templates

 S XBPKNSP="AQAO" K XBPKEY D ^XBPKDEL I '$D(DIFQ) Q

 ;

PREI ; call standard IHS pre-init

 D ^AQAOPREI

 ;

END K I,X,V

 Q

 ;

 ;

PKG ;;

 ;;XU;;7;;KERNEL

 ;;APCD;;1.6;;PCC DATA ENTRY

 ;;AUT;;93.2;;IHS DICTIONARIES (POINTERS)

 ;;AUPN;;93.1;;IHS DICTIONARIES (PATIENT)

 ;;AVA;;93.2;;IHS VA SUPPORT FILES

 ;;AMQQ;;2;;Q-MAN

 ;;ATS;;2.5;;SEARCH TEMPLATE SYSTEM

AQAOPREE  ; IHS/ORDC/LJF - ENVIRONMENT CHECK PRE-INIT ;

 +1       ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 +2       ;

 +3       ;This is the main driver for QAI pre-inits.  It check for the

 +4       ;presence of required software before allowing installation of the

 +5       ;QAI package.  Then is calls the standard IHS pre-init ^AQAOPREI.

 +6       ;

 +7        WRITE !!!!,"Checking environment . . .",!!

 +8        FOR I=1:1:6

               SET AQAONS=$PIECE($TEXT(PKG+I),";;",2)

               IF AQAONS=""

                   QUIT 

               Begin DoDot:1

 +9                SET X=0

 +10               FOR 

                       SET X=$ORDER(^DIC(9.4,"C",AQAONS,X))

                       IF X=""

                           QUIT 

                       Begin DoDot:2

 +11                       SET V=$GET(^DIC(9.4,X,"VERSION"))

 +12                       IF V<$PIECE($TEXT(PKG+I),";;",3)

                               IF '$ORDER(^DIC(9.4,"C",AQAONS,X))

                                   KILL DIFQ

                                   Begin DoDot:3

 +13                                   WRITE !!,"VERSION ",$PIECE($TEXT(PKG+I),";;",3)," of ",$PIECE($TEXT(PKG+I),";;",4)

 +14                                   WRITE " has NOT been installed!"

                                   End DoDot:3

                       End DoDot:2

               End DoDot:1

 +15      ;

 +16       IF '$DATA(DIFQ)

               WRITE !!,*7,"CANNOT CONTINUE.  INSTALLATION STOPPED."

               QUIT 

 +17      ;

PKDEL     ; delete pkg options, templates

 +1        SET XBPKNSP="AQAO"

           KILL XBPKEY

           DO ^XBPKDEL

           IF '$DATA(DIFQ)

               QUIT 

 +2       ;

PREI      ; call standard IHS pre-init

 +1        DO ^AQAOPREI

 +2       ;

END        KILL I,X,V

 +1        QUIT 

 +2       ;

 +3       ;

PKG       ;;

 +1       ;;XU;;7;;KERNEL

 +2       ;;APCD;;1.6;;PCC DATA ENTRY

 +3       ;;AUT;;93.2;;IHS DICTIONARIES (POINTERS)

 +4       ;;AUPN;;93.1;;IHS DICTIONARIES (PATIENT)

 +5       ;;AVA;;93.2;;IHS VA SUPPORT FILES

 +6       ;;AMQQ;;2;;Q-MAN

 +7       ;;ATS;;2.5;;SEARCH TEMPLATE SYSTEM