GMPLIENV.m

GMPLIENV	; SLC/MKB -- Environment Check rtn ;5/11/94  10:43

	;;2.0;Problem List;;Aug 25, 1994

EN	; entry point

	I $S('($D(DUZ)#2):1,'($D(DUZ(0))#2):1,'DUZ:1,1:0) D  K DIFQ Q

	. W !!,$C(7),"DUZ and DUZ(0) must be defined as an active user."

	. W !,"Please sign-on before running GMPLINIT."

	I DUZ(0)'="@" D  K DIFQ Q

	. W !!,$C(7),"You must have programmer access to run this init routine."

VA	; Check for file #200

	I '$D(^VA(200,0)) D  K DIFQ Q

	. W !!,$C(7),"You must have the NEW PERSON file (A4A7) installed!"

	. W !,"Please install this file first."

ICD	; Check for file #80

	I '$D(^ICD9(0)) D  K DIFQ Q

	. W !!,$C(7),"You must have the ICD DIAGNOSIS file installed!"

	. W !,"Please install this file first."

PXPT	; Check for the PCE Patient/IHS files

	I '$D(^AUPNPAT(0))!('$D(^AUTTLOC(0)))!('$D(^AUTNPOV(0))) D  K DIFQ Q

	. W !!,$C(7),"You must have the PCE PATIENT/IHS SUBSET installed!"

	. W !,"Please D ^PXPTINIT before continuing with this init."

CLU	; Check for the Clinical Lexicon Utility files

	I '$D(^GMP(757,0)) D  K DIFQ Q

	. W !!,$C(7),"You must have the CLINICAL LEXICON UTILITY installed!"

	. W !,"Please D ^GMPTINIT before continuing with this init."

LMGR	; Check for List Manager utility

	S X="VALM" X ^%ZOSF("TEST") K X

	I '$T!('$D(^SD(409.61,0))) D  K DIFQ Q

	. W !!,$C(7),"You must have the LIST MANAGER utility installed!"

	. W !,"Please D ^VALMINIT before continuing with this init."

	W "   <done> "

	Q

GMPLIENV  ; SLC/MKB -- Environment Check rtn ;5/11/94  10:43

 +1       ;;2.0;Problem List;;Aug 25, 1994

EN        ; entry point

 +1        IF $SELECT('($DATA(DUZ)#2):1,'($DATA(DUZ(0))#2):1,'DUZ:1,1:0)

               Begin DoDot:1

 +2                WRITE !!,$CHAR(7),"DUZ and DUZ(0) must be defined as an active user."

 +3                WRITE !,"Please sign-on before running GMPLINIT."

               End DoDot:1

               KILL DIFQ

               QUIT 

 +4        IF DUZ(0)'="@"

               Begin DoDot:1

 +5                WRITE !!,$CHAR(7),"You must have programmer access to run this init routine."

               End DoDot:1

               KILL DIFQ

               QUIT 

VA        ; Check for file #200

 +1        IF '$DATA(^VA(200,0))

               Begin DoDot:1

 +2                WRITE !!,$CHAR(7),"You must have the NEW PERSON file (A4A7) installed!"

 +3                WRITE !,"Please install this file first."

               End DoDot:1

               KILL DIFQ

               QUIT 

ICD       ; Check for file #80

 +1        IF '$DATA(^ICD9(0))

               Begin DoDot:1

 +2                WRITE !!,$CHAR(7),"You must have the ICD DIAGNOSIS file installed!"

 +3                WRITE !,"Please install this file first."

               End DoDot:1

               KILL DIFQ

               QUIT 

PXPT      ; Check for the PCE Patient/IHS files

 +1        IF '$DATA(^AUPNPAT(0))!('$DATA(^AUTTLOC(0)))!('$DATA(^AUTNPOV(0)))

               Begin DoDot:1

 +2                WRITE !!,$CHAR(7),"You must have the PCE PATIENT/IHS SUBSET installed!"

 +3                WRITE !,"Please D ^PXPTINIT before continuing with this init."

               End DoDot:1

               KILL DIFQ

               QUIT 

CLU       ; Check for the Clinical Lexicon Utility files

 +1        IF '$DATA(^GMP(757,0))

               Begin DoDot:1

 +2                WRITE !!,$CHAR(7),"You must have the CLINICAL LEXICON UTILITY installed!"

 +3                WRITE !,"Please D ^GMPTINIT before continuing with this init."

               End DoDot:1

               KILL DIFQ

               QUIT 

LMGR      ; Check for List Manager utility

 +1        SET X="VALM"

           XECUTE ^%ZOSF("TEST")

           KILL X

 +2        IF '$TEST!('$DATA(^SD(409.61,0)))

               Begin DoDot:1

 +3                WRITE !!,$CHAR(7),"You must have the LIST MANAGER utility installed!"

 +4                WRITE !,"Please D ^VALMINIT before continuing with this init."

               End DoDot:1

               KILL DIFQ

               QUIT 

 +5        WRITE "   <done> "

 +6        QUIT