TIUEN234	; SLC/MAM - Environment Check Rtn for TIU*1*234 ; 12/11/07
	;;1.0;Text Integration Utilities;**234**;Jun 20, 1997;Build 6
	; External References
	;   ICR 3409  ^USR(8930,"B"
	;   ICR 1544 WHOIS2^USRLM
MAIN	; Check environment.  If AMEND classes not found, abort install.
	N TIUOK S TIUOK=0
	N TIUCLS,TIULST S TIUCLS=+$O(^USR(8930,"B","CHIEF, MIS",""))
	I TIUCLS>0 D  I +TIUOK G MAINX
	. D WHOIS2^USRLM("TIULST",TIUCLS)
	. I $P(TIULST(0),U,3)>0 S TIUOK=1
	N TIUCLS,TIULST S TIUCLS=+$O(^USR(8930,"B","CHIEF, HIM",""))
	I TIUCLS>0 D  I +TIUOK G MAINX
	. D WHOIS2^USRLM("TIULST",TIUCLS)
	. I $P(TIULST(0),U,3)>0 S TIUOK=1
	N TIUCLS,TIULST S TIUCLS=+$O(^USR(8930,"B","PRIVACY ACT OFFICER",""))
	I TIUCLS>0 D  I TIUOK G MAINX
	. D WHOIS2^USRLM("TIULST",TIUCLS)
	. I $P(TIULST(0),U,3)>0 S TIUOK=1
	S XPDABORT=1
	W !,"  Documents cannot be amended except by members of class CHIEF, MIS,"
	W !,"CHIEF, HIM, or PRIVACY ACT OFFICER. (Classes must be named exactly as listed.)"
	W !,"  I can't find any users in these classes. Please check with the person who"
	W !,"maintains User Classes at your site."
	W !,"  Aborting install."
MAINX	;
	I TIUOK W !,"  User Classes look ok."
	Q
	;