XUMFENV.m

XUMFENV ;CIOFO-SF/RAM - ENVIRONMENT INIT ROUTINE ;06/28/00 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1007**;APR 1, 2003

 ;;8.0;KERNEL;**206**;Jul 10, 1995

 ;

 ;

EN ; -- enivornment check

 ;

 N I

 ;

 ;check STATE (#5) file

 F I=1,2,4,5,6 S:'$D(^DIC(5,+I)) XPDQUIT=2

 F I=8:1:13 S:'$D(^DIC(5,+I)) XPDQUIT=2

 F I=15:1:42 S:'$D(^DIC(5,+I)) XPDQUIT=2

 F I=44:1:51 S:'$D(^DIC(5,+I)) XPDQUIT=2

 F I=53:1:56 S:'$D(^DIC(5,+I)) XPDQUIT=2

 ;

 Q:'$G(XPDQUIT)

 ;

 W !,"Your STATE (#5) file is missing required entries!"

 W !,"You must fix the STATE (#5) file BEFORE installing this patch."

 ;

 Q

 ;

XUMFENV   ;CIOFO-SF/RAM - ENVIRONMENT INIT ROUTINE ;06/28/00 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**206**;Jul 10, 1995

 +3       ;

 +4       ;

EN        ; -- enivornment check

 +1       ;

 +2        NEW I

 +3       ;

 +4       ;check STATE (#5) file

 +5        FOR I=1,2,4,5,6

               IF '$DATA(^DIC(5,+I))

                   SET XPDQUIT=2

 +6        FOR I=8:1:13

               IF '$DATA(^DIC(5,+I))

                   SET XPDQUIT=2

 +7        FOR I=15:1:42

               IF '$DATA(^DIC(5,+I))

                   SET XPDQUIT=2

 +8        FOR I=44:1:51

               IF '$DATA(^DIC(5,+I))

                   SET XPDQUIT=2

 +9        FOR I=53:1:56

               IF '$DATA(^DIC(5,+I))

                   SET XPDQUIT=2

 +10      ;

 +11       IF '$GET(XPDQUIT)

               QUIT 

 +12      ;

 +13       WRITE !,"Your STATE (#5) file is missing required entries!"

 +14       WRITE !,"You must fix the STATE (#5) file BEFORE installing this patch."

 +15      ;

 +16       QUIT 

 +17      ;