XUSEHRM1 ; BA/OAK - EHRM REVERSED LOCK -ASSIGN AND REMOVE; Jan 19, 2022@08:07:01
Source file <XUSEHRM1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| 1 | ; assign a Program Replacement Key to all users
 | 
|
| U1(XUS) | ; select users
 | 
|
| LOOP1U | ;
 | 
|
| D1(XUS) | ; select Divisions
 | 
|
| LOOP1D | ;
 | 
|
| 2 | ; remove a Program Replacement Key from all users
 | 
|
| 5 | ; set REVERSE/NEGATIVE LOCK field
 | 
|
| 6 | ; remove REVERSE/NEGATIVE LOCK field
 | 
|
| YN(XUSTEXT) | ; ask yes no question
 | 
|
| SELECOP(XUSTEXT,ACTION) | ; select Option in the Option file
 ; ACTION is "ACTION758" or "NOACTION758"  | 
|
| LOOP1 | ;
 | 
|
| LISTDVS(XUSDVSION) | ; List the chosen DIVISIONS
 | 
|
| ASKKEY(XUSTEXT) | ; select REPLACEMENT Keys
 | 
|
| BACK | ;
 | 
|
| ASSDVS(XUSIEN4) | ; set Key for user in specific one Division XUSIEN4 is the IEN in the INSTITUTION file.
 | 
|
| ASSIGN | ; assign the Program Replacement Key to all users
 | 
|
| SETKEY(XUS,XUSKEY) | ;assign a Program Replacement Key for a user
 | 
|
| DELKEY(XUIEN,KEY) | ;delete a Program Replacement Key for a user
 | 
|
| REMDVS(XUSIEN4) | ; remove Program Replacement Key for users at specific one Division
 | 
|
| REMOVE | ;remove a Program Replacement Key from all users
 | 
|
| GETOPTION(XUSOPTN,XUCOUNT) | ;
 | 
|
| NAMESPACE | ; Set Reversed Lock for NameSpaces
 | 
|
| OPTION | ;Set Reversed Lock for Options
 | 
|
| ASKNAMESP(XUSTEXT) | ; ask NameSpaces
 | 
|
| LOOPN | ;
 | 
|
| PRINTOPTION(XUCOUNT,XUFLAG) | ; list options and ask users if they want to remove any options from the list.
 | 
|
| EXCLUDE | ; remove options from the list
 | 
|
| END | ;
 | 
|
| END1 | ;
 | 
|
| SETLOCKS | ; set REVERSE/NEGATIVE LOCK for options
 | 
|
| SETLOCK(XUOPTIEN) | ; set REVERSE/NEGATIVE LOCK for an option
 | 
|
| DELOCKS | ;remove REVERSE/NEGATIVE LOCK for options
 | 
|
| DELOCK(XUOPTIEN) | ; remove REVERSE/NEGATIVE LOCK for an option
 | 
|
| SENDALERT(XUDUZ,XUKEY,STATUS,XUCN) | ; send alert to user
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  |