Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XUSTERM1

Package: Kernel

Routine: XUSTERM1


Information

XUSTERM1 ;SEA/WDE - DEACTIVATE USER ;06/08/09 15:06

Source Information

Source file <XUSTERM1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$DT,$$FMTE,$$HTFM)^XLFDT  EN^XQH  (ACT,GET)^XUSTERM  
VA Fileman 3 YN^DICN  (,FILE)^DIE  $$GET1^DIQ  
MailMan 1 ^XMB  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Kernel 5 SECONDARY MENU OPTIONS  XUAUTODEACTIVATE  XUSERPURGEATT  ^VA(200  XUSTERM  
IHS VA Support Files 1 SECONDARY MENU OPTIONS  
Order Entry Results Reporting 1 SECONDARY MENU OPTIONS  
Outpatient Pharmacy 1 SECONDARY MENU OPTIONS  
Problem List 1 SECONDARY MENU OPTIONS  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD QUE+3
YN^DICN RD1+1, RD2+1, QUE+1
^DIE DISP2+2, KEYS1, GROUP1
FILE^DIE DISUSER+4, CONTCL+3
$$GET1^DIQ SEND+3, SEND+4
$$DT^XLFDT CHECK+2
$$FMTE^XLFDT SEND+5
$$HTFM^XLFDT CHECK+2, CHECK+4
^XMB SEND+6
EN^XQH RD1+1, RD2+1
ACT^XUSTERM ACT+1
GET^XUSTERM GET+2

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
Routine Call
  • DIE
  • Line Location:
    • DISP2+2
    • KEYS1
    • GROUP1
Routine Call
  • DIE
  • Line Location:
    • DISUSER+4
    • CONTCL+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19.1 - [#19.1] KEYS+4
^DISV( GET+2!
^VA(200 - [#200] CHECK+6, AUSER+2, AUSER+3!, NOSIGNON+1, NOSIGNON+3, NOSIGNON+5, NOSIGNON+7, ACT+2, DISP+3, DISP2+4
, DQ1+2
^XMB(3.6 - [#3.6] SEND+6
^XMB(3.8 - [#3.8] GROUP+4
^XTV(8989.3 - [#8989.3] CHECK+3
^XUSEC("XUORES" AUSER+1

Label References

Name Line Occurrences
$$NOSIGNON CHECK+12
ACT CHECK+10, DQ1+3
AUSER CHECK+13
CHECK RD2+1
CONTCL DISUSER+4
DISP CHECK+10
DISP2 DISP+3
DISUSER CHECK+12
END RD1+1, RD2+1
GET CHECK+9, DQ1+3
GROUP1 GROUP
KEYS DISP2+2
KEYS1 KEYS+2
RD1 RD1+1
RD2 RD2+1

Naked Globals

Name Field # of Occurrence
^( CHECK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RD1+1*, RD2+1*, QUE+1*, QUE+5, DISUSER+2~*, DISUSER+3
DA DISP+1~, DISP+2*, DISP+3
DIC END!
DIE DISP+1~, DISP2+2*
DR DISP+1~, DISP2+2*, KEYS1*, GROUP1*
DT CHECK+2*, CHECK+8, DQ1+2
DTIME ENALL+1*
FDA CHECK+1~, DISUSER+2~, CONTCL+1~
FDA(200 DISUSER+3*, CONTCL+2*
Q AUSER+2~*, AUSER+3, NOSIGNON+1~*, NOSIGNON+2, NOSIGNON+3*, NOSIGNON+4, NOSIGNON+5*, NOSIGNON+6, NOSIGNON+7*, NOSIGNON+8
U ENALL+1*, CHECK+2*, CHECK+3, CHECK+7, CHECK+8, CHECK+12, CHECK+13, DISUSER+1, AUSER+2, AUSER+3
, NOSIGNON+1, NOSIGNON+3, NOSIGNON+5, NOSIGNON+7, DISP2+4, KEYS+4, GROUP+4, DQ1+2
X QUE+5!, END!
XMB SEND+1!, SEND+6*, SEND+7!
XMB(1 SEND+2*
XMB(2 SEND+3*
XMB(3 SEND+4*
XMB(4 SEND+5*
XMY SEND+1!
>> XQH RD1+1*, RD2+1*
XUAAW CHECK+1~, CHECK+3*, NOSIGNON+2
XUACT END!
XUDA CHECK+5*, CHECK+6*, CHECK+12, CHECK+13, END!, DISUSER~, DISUSER+2, DISUSER+4, AUSER~, AUSER+1
, AUSER+2, AUSER+3, NOSIGNON+1, NOSIGNON+3, NOSIGNON+5, NOSIGNON+7, CONTCL~, CONTCL+2, ACT+2, GET+2
, DISP+2, GROUP+4, DQ1+2, SEND+3, SEND+4
XUDB END!
XUDC END!
XUDP END!
XUDT CHECK+1~, CHECK+7*, CHECK+8, END!, DQ1+1~, DQ1+2*, SEND+5
XUDT30 CHECK+1~, CHECK+2*, NOSIGNON+2, NOSIGNON+4, NOSIGNON+6
XUDT540 CHECK+1~, CHECK+4*, AUSER+3
XUDT90 CHECK+1~, CHECK+2*, NOSIGNON+2
XUEMP CHECK+10, END!, DQ1+3
XUF END!
XUGRP END!, GROUP
XUGRP( GROUP+2, GROUP+3
XUI END!, DISP2+4*, KEYS+4*, GROUP+2*, GROUP+3, GROUP+4
XUIN END!
XUJ CHECK+6*, CHECK+7, CHECK+8, CHECK+12, CHECK+13, END!, DISUSER+1, AUSER+3, ACT+2*, GET+1~
, DISP+1~, DISP2+4*, KEYS+4*, GROUP+3*, GROUP+4, DQ1+1~, DQ1+2*, SEND+2
XUK END!, DISP2+4*, KEYS+4*
XUKEY END!, KEYS+2
XUKEY( KEYS+4
XUNAM END!, DISP2+1, DISP2+3, KEYS+2, KEYS+3, GROUP, GROUP+1
XUSUR END!, DISP2+2
XUSUR( DISP2+4
>> XUTX1(1 DISP2+1
XUVE RD2+1*, QUE+5!, CHECK+5*, CHECK+10, END!, DQ1+1~, DQ1+3*
Y CHECK+10!, GET+2!, DISP2+2, KEYS1, GROUP1
>> ZTDESC QUE+2*
>> ZTIO QUE+2*
>> ZTRTN QUE+2*
>> ZTSAVE("DUZ*" QUE+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All