Routine: XUSTERM1

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

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*

Customize PDF page

Package: Kernel

Routine: XUSTERM1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: