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: XUSTERM1

Package: Kernel

Routine: XUSTERM1


Information

XUSTERM1 ;SEA/WDE - DEACTIVATE USER ;09/18/18

Source Information

Source file <XUSTERM1.m>

Entry Points

Name Comments DBIA/ICR reference
ENALL ;Interactive scan all
RD1
RD2
QUE
CHECK ;Entry point for taskman.
END
DISUSER(XUDA) ;Set DISUSER flag and reason, Remove last menu option
AUSER(XUDA) ;If DISUSERed and Last Sign > 540[18Mo.*30] days, then remove"AUSER" xref
NOSIGNON() ;Check last signon. Return 1 if should disable account
CONTCL(XUDA) ;Clear the fields for Menu "Continue"
ACT ;
GET ;Kill ^DISV entries each time, should get all CPUs at some point
DISP ;Display info and get responses.
DISP2 ;Do the work.
KEYS ;This section checks for authorized senders of mail groups and security keys.
KEYS1
GROUP
GROUP1
DQ1 ;Terminate one person.
SEND ; send deactivated message to assigned mail group
SEND1(XUDA,X) ; send disusered message to assigned mail group p693

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option can purge all access & verify codes, mail baskets, messages,",!,"authorized senders access, keys, and electronic signature codes of users who have been terminated."
  • Line Location: ENALL+2
Function Call: WRITE
  • Prompt: !!,"Do you wish to proceed "
  • Line Location: RD1+0
Function Call: WRITE
  • Prompt: !,"Do you wish to verify each user "
  • Line Location: RD2+0
Function Call: WRITE
  • Prompt: !,"Do you wish to have this queued for a later time "
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,$S(XUTX1(1)["User":XUNAM_$P(XUTX1(1),"User",2),1:XUTX1(1))
  • Line Location: DISP2+1
Function Call: WRITE
  • Prompt: !!,XUNAM," acts as surrogate for the following users:"
  • Line Location: DISP2+3
Function Call: WRITE
  • Prompt: ?(XUK#XUI*26),$P(^VA(200,XUJ,0),U,1)
  • Line Location: DISP2+4
Function Call: WRITE
  • Prompt: !,"These surrogate privileges will be deleted on deactivation."
  • Line Location: DISP2+4
Function Call: WRITE
  • Prompt: !,"User will no longer be an authorized sender to any mail groups."
  • Line Location: KEYS+1
Function Call: WRITE
  • Prompt: !!,XUNAM," currently holds no keys."
  • Line Location: KEYS+2
Function Call: WRITE
  • Prompt: !!,XUNAM," holds the following keys: "
  • Line Location: KEYS+3
Function Call: WRITE
  • Prompt: ?(XUK#XUI*15),$P($G(^DIC(19.1,XUJ,0)),U,1)
  • Line Location: KEYS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: KEYS1+0
Function Call: WRITE
  • Prompt: !!,XUNAM," currently is not a member of any MAIL GROUP."
  • Line Location: GROUP+0
Function Call: WRITE
  • Prompt: !!,XUNAM," is a member of the following Mail Groups:"
  • Line Location: GROUP+1
Function Call: WRITE
  • Prompt: !?2,$P(XUJ,U,1)
  • Line Location: GROUP+4
Function Call: WRITE
  • Prompt: " (Organizer)"
  • Condition for execution: $P(XUJ,U,3)
  • Line Location: GROUP+4
Function Call: WRITE
  • Prompt: ?40,$S(($P(XUJ,U,2)="PR"):"(Private)",1:"(Public)")
  • Line Location: GROUP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GROUP1+0
Info |  Source |  Entry Points |  Interaction Calls