source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEN234.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1TIUEN234 ; 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
6MAIN ; 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."
26MAINX ;
27 I TIUOK W !," User Classes look ok."
28 Q
29 ;
Note: See TracBrowser for help on using the repository browser.