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