Routine: XUSTERM1

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

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

Package

Total

Caller Graph

Kernel

SECONDARY MENU OPTIONS XUAUTODEACTIVATE XUSERPURGEATT ^VA(200 XUSTERM

IHS VA Support Files

SECONDARY MENU OPTIONS

Order Entry Results Reporting

SECONDARY MENU OPTIONS

Outpatient Pharmacy

SECONDARY MENU OPTIONS

Problem List

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

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

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: