Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUEN234

TIUEN234.m

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