ADEPREI.m

ADEPREI ; IHS/HQT/MJL - IHS DENTAL PREINIT;08:28 PM  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 ;

 D CONFIRM

 I '$D(DIFQ) W *7,!!,"NO UPDATING HAS OCCURRED" Q

 I '$D(DIFQ) W *7,!!,"NO UPDATING HAS OCCURRED" Q

 K ^UTILITY("XBDSET",$J) F XBBPI=1:1 S XBBPIX=$P($T(Q+XBBPI),";;",2) Q:XBBPIX=""  S XBBPIY=$P(XBBPIX,"=",2,99),XBBPIX=$P(XBBPIX,"=",1) S @XBBPIX=XBBPIY

 K XBBPI,XBBPIX,XBBPIY D EN2^XBKD

 D ^ADEPKDEL

 Q

CONFIRM ;

 N DIR,DUOUT,DTOUT

 W !!,"This Pre-Init will remove all ADE namespaced options, keys,",!,"bulletins, functions and templates except the main menu option ADEMENU",!,"and the keys ADEZMENU and ADEZMSUPFUN.",!

 S DIR(0)="Y"

 S DIR("A")="Continue with installation"

 S DIR("B")="YES"

 S DIR("?")="Enter YES to proceed with installation version 6.0T1 of the IHS DENTAL Package.  Enter NO or ^ to quit installation safely without making any changes."

 D ^DIR

 I $$HAT^ADEPQA() K DIFQ Q

 I 'Y K DIFQ Q

 Q

Q Q

 ;;^UTILITY("XBDSET",$J,9002002.1)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.21)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.22)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.23)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.24)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.25)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.26)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.27)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.28)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.5)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.51)=S^S

 ;;^UTILITY("XBDSET",$J,9002002.6)=S^S

 ;;^UTILITY("XBDSET",$J,9002003.1)=S^S

 ;;^UTILITY("XBDSET",$J,9002003.2)=S^S

 ;;^UTILITY("XBDSET",$J,9002003.3)=S^S

 ;;^UTILITY("XBDSET",$J,9002003.4)=S^S

 ;;^UTILITY("XBDSET",$J,9002004)=S^S

 ;;^UTILITY("XBDSET",$J,9002005)=S^S

 ;;^UTILITY("XBDSET",$J,9002006)=S^S

 ;;^UTILITY("XBDSET",$J,9002006.9)=S^S

 ;;^UTILITY("XBDSET",$J,9002007)=S^S

 ;;^UTILITY("XBDSET",$J,9002007.9)=S^S

 ;;^UTILITY("XBDSET",$J,9002007.91)=S^S

 ;;^UTILITY("XBDSET",$J,9002008)=D^D

 ;;^UTILITY("XBDSET",$J,9002009)=S^S

 ;;^UTILITY("XBDSET",$J,9002009.01)=D^D

 ;;^UTILITY("XBDSET",$J,9002009.02)=D^D

 ;;^UTILITY("XBDSET",$J,9002009.03)=D^D

 ;;^UTILITY("XBDSET",$J,9002010.01)=S^S

 ;;^UTILITY("XBDSET",$J,9002010.03)=S^S

 ;;^UTILITY("XBDSET",$J,9002010.05)=S^S

 ;;^UTILITY("XBDSET",$J,9002010.08)=S^S

 ;;^UTILITY("XBDSET",$J,9002010.2)=S^S

 ;;^UTILITY("XBDSET",$J,9002009.6)=S^S

 ;;^UTILITY("XBDSET",$J,9002009.7)=S^S

ADEPREI   ; IHS/HQT/MJL - IHS DENTAL PREINIT;08:28 PM  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2       ;

 +3        DO CONFIRM

 +4        IF '$DATA(DIFQ)

               WRITE *7,!!,"NO UPDATING HAS OCCURRED"

               QUIT 

 +5        IF '$DATA(DIFQ)

               WRITE *7,!!,"NO UPDATING HAS OCCURRED"

               QUIT 

 +6        KILL ^UTILITY("XBDSET",$JOB)

           FOR XBBPI=1:1

               SET XBBPIX=$PIECE($TEXT(Q+XBBPI),";;",2)

               IF XBBPIX=""

                   QUIT 

               SET XBBPIY=$PIECE(XBBPIX,"=",2,99)

               SET XBBPIX=$PIECE(XBBPIX,"=",1)

               SET @XBBPIX=XBBPIY

 +7        KILL XBBPI,XBBPIX,XBBPIY

           DO EN2^XBKD

 +8        DO ^ADEPKDEL

 +9        QUIT 

CONFIRM   ;

 +1        NEW DIR,DUOUT,DTOUT

 +2        WRITE !!,"This Pre-Init will remove all ADE namespaced options, keys,",!,"bulletins, functions and templates except the main menu option ADEMENU",!,"and the keys ADEZMENU and ADEZMSUPFUN.",!

 +3        SET DIR(0)="Y"

 +4        SET DIR("A")="Continue with installation"

 +5        SET DIR("B")="YES"

 +6        SET DIR("?")="Enter YES to proceed with installation version 6.0T1 of the IHS DENTAL Package.  Enter NO or ^ to quit installation safely without making any changes."

 +7        DO ^DIR

 +8        IF $$HAT^ADEPQA()

               KILL DIFQ

               QUIT 

 +9        IF 'Y

               KILL DIFQ

               QUIT 

 +10       QUIT 

Q          QUIT 

 +1       ;;^UTILITY("XBDSET",$J,9002002.1)=S^S

 +2       ;;^UTILITY("XBDSET",$J,9002002.21)=S^S

 +3       ;;^UTILITY("XBDSET",$J,9002002.22)=S^S

 +4       ;;^UTILITY("XBDSET",$J,9002002.23)=S^S

 +5       ;;^UTILITY("XBDSET",$J,9002002.24)=S^S

 +6       ;;^UTILITY("XBDSET",$J,9002002.25)=S^S

 +7       ;;^UTILITY("XBDSET",$J,9002002.26)=S^S

 +8       ;;^UTILITY("XBDSET",$J,9002002.27)=S^S

 +9       ;;^UTILITY("XBDSET",$J,9002002.28)=S^S

 +10      ;;^UTILITY("XBDSET",$J,9002002.5)=S^S

 +11      ;;^UTILITY("XBDSET",$J,9002002.51)=S^S

 +12      ;;^UTILITY("XBDSET",$J,9002002.6)=S^S

 +13      ;;^UTILITY("XBDSET",$J,9002003.1)=S^S

 +14      ;;^UTILITY("XBDSET",$J,9002003.2)=S^S

 +15      ;;^UTILITY("XBDSET",$J,9002003.3)=S^S

 +16      ;;^UTILITY("XBDSET",$J,9002003.4)=S^S

 +17      ;;^UTILITY("XBDSET",$J,9002004)=S^S

 +18      ;;^UTILITY("XBDSET",$J,9002005)=S^S

 +19      ;;^UTILITY("XBDSET",$J,9002006)=S^S

 +20      ;;^UTILITY("XBDSET",$J,9002006.9)=S^S

 +21      ;;^UTILITY("XBDSET",$J,9002007)=S^S

 +22      ;;^UTILITY("XBDSET",$J,9002007.9)=S^S

 +23      ;;^UTILITY("XBDSET",$J,9002007.91)=S^S

 +24      ;;^UTILITY("XBDSET",$J,9002008)=D^D

 +25      ;;^UTILITY("XBDSET",$J,9002009)=S^S

 +26      ;;^UTILITY("XBDSET",$J,9002009.01)=D^D

 +27      ;;^UTILITY("XBDSET",$J,9002009.02)=D^D

 +28      ;;^UTILITY("XBDSET",$J,9002009.03)=D^D

 +29      ;;^UTILITY("XBDSET",$J,9002010.01)=S^S

 +30      ;;^UTILITY("XBDSET",$J,9002010.03)=S^S

 +31      ;;^UTILITY("XBDSET",$J,9002010.05)=S^S

 +32      ;;^UTILITY("XBDSET",$J,9002010.08)=S^S

 +33      ;;^UTILITY("XBDSET",$J,9002010.2)=S^S

 +34      ;;^UTILITY("XBDSET",$J,9002009.6)=S^S

 +35      ;;^UTILITY("XBDSET",$J,9002009.7)=S^S