AUM91ENV.m

AUM91ENV ;IHS/ASDST/DMJ,SDR,GTH - SCB UPDATE FOR FY 2009 ; [ 09/17/2002  12:40 PM ]

 ;;9.1;TABLE MAINTENANCE;**4**;SEP 17,2008

 ;AUM*9.1*4 8.20.2009 IHS/OIT/FCJ MODIFIED INTRO TEXT

 ;

 I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q

 ;

 I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q

 ;

 S X=$P(^VA(200,DUZ,0),U)

 W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)

 W !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM)

 ;

 I $$VCHK("XU","8.0",2)

 I $$VCHK("DI","22.0",2)

 ;I $$VCHK("AUM","7.1",2)

 I $$VCHK("AUM","9.1",2)  ;aum*9.1*1

 ;

 NEW DA,DIC

 S X="AUM",DIC="^DIC(9.4,",DIC(0)="",D="C"

 D IX^DIC

 I Y<0,$D(^DIC(9.4,"C","AUM")) D

 . W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM)

 . W !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)

 . D SORRY(2)

 .Q

 ;

 I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q

 ;

 W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)

 D HELP^XBHELP("INTROE","AZHBENV")

 ;

 I $G(XPDENV)=1 D

 . ; The following line prevents the "Disable Options..." and "Move

 . ; Routines..." questions from being asked during the install.

 . S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 . D HELP^XBHELP("INTROI","AZHBENV")

 .Q

 ;

 I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2)

 Q

 ;

SORRY(X) ;

 KILL DIFQ

 S XPDQUIT=X

 W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)

 Q

 ;

VCHK(AUMPRE,AUMVER,AUMQUIT) ; Check versions needed.

 ;  

 NEW AUMV

 S AUMV=$$VERSION^XPDUTL(AUMPRE)

 W !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_" Present",IOM)

 I AUMV<AUMVER KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0

 Q 1

 ;

INTROE ; Intro text during KIDS Environment check.

 ;;This is the update to the standard code book tables.  There are modifications

 ;;and additions to the following files:  Community, State, County, Facility, Tribe,

 ;;Reservation, Clinic Stop, Service Unit, Provider class and Railroad Prefix.  The

 ;;entire Community and County files are being sent.

 ;;

 ;;The install message will report updates and failed updates to the Facility, Tribe, 

 ;;Reservation, Clinic Stop, Service Unit, Provider Class and Railroad Prefix files.

 ;;The failed updates and updates to the Community and County file will be included in

 ;;the install message, but entries that are not updated will not be included in the 

 ;;message.  You will need to refer to the web page IHS Standard Code Book tables for

 ;;a complete list of County and Communities due to the volume of records being sent.

 ;;###

 ;

INTROI ; Intro text during KIDS Install.

 ;;If you run interactively, results will be displayed on your screen,

 ;;and recorded in the entry in the INSTALL file.

 ;;If you queue to TaskMan, remember not to Q to the HOME device.

 ;;###

 ;

AUM91ENV  ;IHS/ASDST/DMJ,SDR,GTH - SCB UPDATE FOR FY 2009 ; [ 09/17/2002  12:40 PM ]

 +1       ;;9.1;TABLE MAINTENANCE;**4**;SEP 17,2008

 +2       ;AUM*9.1*4 8.20.2009 IHS/OIT/FCJ MODIFIED INTRO TEXT

 +3       ;

 +4        IF '$GET(DUZ)

               WRITE !,"DUZ UNDEFINED OR 0."

               DO SORRY(2)

               QUIT 

 +5       ;

 +6        IF '$LENGTH($GET(DUZ(0)))

               WRITE !,"DUZ(0) UNDEFINED OR NULL."

               DO SORRY(2)

               QUIT 

 +7       ;

 +8        SET X=$PIECE(^VA(200,DUZ,0),U)

 +9        WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)

 +10       WRITE !!,$$CJ^XLFSTR("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_".",IOM)

 +11      ;

 +12       IF $$VCHK("XU","8.0",2)

 +13       IF $$VCHK("DI","22.0",2)

 +14      ;I $$VCHK("AUM","7.1",2)

 +15      ;aum*9.1*1

           IF $$VCHK("AUM","9.1",2)

 +16      ;

 +17       NEW DA,DIC

 +18       SET X="AUM"

           SET DIC="^DIC(9.4,"

           SET DIC(0)=""

           SET D="C"

 +19       DO IX^DIC

 +20       IF Y<0

               IF $DATA(^DIC(9.4,"C","AUM"))

                   Begin DoDot:1

 +21                   WRITE !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM)

 +22                   WRITE !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)

 +23                   DO SORRY(2)

 +24                   QUIT 

                   End DoDot:1

 +25      ;

 +26       IF $GET(XPDQUIT)

               WRITE !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7

               QUIT 

 +27      ;

 +28       WRITE !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)

 +29       DO HELP^XBHELP("INTROE","AZHBENV")

 +30      ;

 +31       IF $GET(XPDENV)=1

               Begin DoDot:1

 +32      ; The following line prevents the "Disable Options..." and "Move

 +33      ; Routines..." questions from being asked during the install.

 +34               SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +35               DO HELP^XBHELP("INTROI","AZHBENV")

 +36               QUIT 

               End DoDot:1

 +37      ;

 +38       IF '$$DIR^XBDIR("E","","","","","",1)

               DO SORRY(2)

 +39       QUIT 

 +40      ;

SORRY(X)  ;

 +1        KILL DIFQ

 +2        SET XPDQUIT=X

 +3        WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)

 +4        QUIT 

 +5       ;

VCHK(AUMPRE,AUMVER,AUMQUIT) ; Check versions needed.

 +1       ;  

 +2        NEW AUMV

 +3        SET AUMV=$$VERSION^XPDUTL(AUMPRE)

 +4        WRITE !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_" Present",IOM)

 +5        IF AUMV<AUMVER

               KILL DIFQ

               SET XPDQUIT=AUMQUIT

               DO SORRY(AUMQUIT)

               QUIT 0

 +6        QUIT 1

 +7       ;

INTROE    ; Intro text during KIDS Environment check.

 +1       ;;This is the update to the standard code book tables.  There are modifications

 +2       ;;and additions to the following files:  Community, State, County, Facility, Tribe,

 +3       ;;Reservation, Clinic Stop, Service Unit, Provider class and Railroad Prefix.  The

 +4       ;;entire Community and County files are being sent.

 +5       ;;

 +6       ;;The install message will report updates and failed updates to the Facility, Tribe, 

 +7       ;;Reservation, Clinic Stop, Service Unit, Provider Class and Railroad Prefix files.

 +8       ;;The failed updates and updates to the Community and County file will be included in

 +9       ;;the install message, but entries that are not updated will not be included in the 

 +10      ;;message.  You will need to refer to the web page IHS Standard Code Book tables for

 +11      ;;a complete list of County and Communities due to the volume of records being sent.

 +12      ;;###

 +13      ;

INTROI    ; Intro text during KIDS Install.

 +1       ;;If you run interactively, results will be displayed on your screen,

 +2       ;;and recorded in the entry in the INSTALL file.

 +3       ;;If you queue to TaskMan, remember not to Q to the HOME device.

 +4       ;;###

 +5       ;