Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XUSEHRM1

Package: Kernel

Routine: XUSEHRM1


Information

XUSEHRM1 ; BA/OAK - EHRM REVERSED LOCK -ASSIGN AND REMOVE; Jan 19, 2022@08:07:01

Source Information

Source file <XUSEHRM1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+12
Function Call: WRITE
  • Prompt: !!!,"Chosen Division(s):"
  • Line Location: 1+18
Function Call: WRITE
  • Prompt: !,"-------------------"
  • Line Location: 1+19
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+21
Function Call: WRITE
  • Prompt: !!,"Task #: ",ZTSK,!
  • Line Location: 1+32
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: !!!,"Chosen Division(s):"
  • Line Location: 2+18
Function Call: WRITE
  • Prompt: !,"-------------------"
  • Line Location: 2+19
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+21
Function Call: WRITE
  • Prompt: !!,"Task #: ",ZTSK,!
  • Line Location: 2+32
Function Call: WRITE
  • Prompt: !
  • Line Location: 5+7
Function Call: WRITE
  • Prompt: !!,"Task #: ",ZTSK,!
  • Line Location: 5+17
Function Call: WRITE
  • Prompt: !
  • Line Location: 6+7
Function Call: WRITE
  • Prompt: !!,"Task #: ",ZTSK,!
  • Line Location: 6+17
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(4,XUS3,0)),"^")
  • Line Location: LISTDVS+5
Function Call: WRITE
  • Prompt: !!,"Invalid Program Replacement Key, it must contain <REPLACEMENT>",!
  • Line Location: BACK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOPN+5
Function Call: WRITE
  • Prompt: !,"Option list :"
  • Line Location: PRINTOPTION+4
Function Call: WRITE
  • Prompt: !,"-----------------"
  • Line Location: PRINTOPTION+5
Function Call: WRITE
  • Prompt: !,XUY
  • Line Location: PRINTOPTION+10
Function Call: WRITE
  • Prompt: ?40,XUY
  • Line Location: PRINTOPTION+11
Function Call: WRITE
  • Prompt: !!,"There ",XUARE," ",XU3," ",XUOPTION," from the list above."
  • Line Location: PRINTOPTION+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCLUDE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCLUDE+7
Function Call: WRITE
  • Prompt: !,"ERROR IN ALERT: ",XQALERR
  • Line Location: SENDALERT+9
Info |  Source |  Entry Points |  Interaction Calls