Routine: XUS2

Package	Total	Call Graph
Kernel	9	^%ZTER $$HLNAME^XLFNAME $$UP^XLFSTR $$ACCEPT^XUS ($$AC,$$VC)^XUS4 $$ISUSERCP^XUSAP1 CALL^XUSERP (,$$EN)^XUSHSH (EDIT,USER,XUS2)^XUVERIFY
VA Fileman	3	CLRMSG^DDS FILE^DIE ^DIR
MailMan	2	NEW^XM ^XMB

Package	Total	Caller Graph
Kernel	7	XUVERIFY ^DIC(3 ^VA(200 XUS1 XUSRA XUSRB XUSRB5
MSC RPC Broker	1	CIANBRPC
VistALink Security	1	XOBSCAV1

Entry Points

Name	Comments	DBIA/ICR reference
VHELP
YN	;Ask if want to keep
VAUTO	;Auto-get Access codes
AAUTO	;Auto-get Access codes
SVCACCT(XUSDUZ)	;return 1^CONNECTOR PROXY if CP svc acct; 0 if not svc acct
AGEN	;Generate a ACCESS code
DEL	;
USER
DIRUT
CVC	;From XUS1
GET	;Get the user input and convert case.
AASK1	;
AVHLPTXT(%)	;	ICR #4057 Status: Active Usage: Controlled Subscription
AASK	;Ask for Access code
VC1
VASK1
VERED	; VERIFY CODE EDIT From DD
OUT	;
VASK	;Ask for Verify Code
VCHK(S,EC)	;Call with String and Encrypted versions
BRCVC(XV1,XV2)	;Broker change VC, return 0 if good, '1^msg' if bad.
CLR	;New line or Clear screenman area
REASK
VST(XUH,%)	;
ACCED	; ACCESS CODE EDIT from DD
EDIT
CHK1
AC1
AHELP
NEWCODE
CHKCUR()	;Check user knows current code, Return 1 if OK to continue
AST(XUH)	;Change ACCESS CODE and index.
VGEN	;Generate a VERIFY code

External References

Name	Field # of Occurrence
^%ZTER	VST+5, VST+8
CLRMSG^DDS	CLR+3
FILE^DIE	AST+4, VST+4, VST+7
^DIR	DEL+1, YN+4
$$HLNAME^XLFNAME	VCHK+3
$$UP^XLFSTR	GET+2
NEW^XM	AST+7
^XMB	AASK1+5
$$ACCEPT^XUS	GET+1
$$AC^XUS4	AGEN+1, AHELP
$$VC^XUS4	VHELP, VGEN+1
$$ISUSERCP^XUSAP1	SVCACCT+1
CALL^XUSERP	VC1+1, BRCVC+5
^XUSHSH	REASK+1
$$EN^XUSHSH	AASK1+5, VASK1+2, AGEN+1, AHELP, VHELP, VGEN+1, CHK1+1, BRCVC+2, BRCVC+3
EDIT^XUVERIFY	EDIT
USER^XUVERIFY	USER
XUS2^XUVERIFY	AVHLPTXT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Enter a new ACCESS CODE <Hidden>: " Line Location: AASK1+1
Function Call: WRITE	Prompt: $C(7),$$AVHLPTXT(1) Line Location: AASK1+3
Function Call: WRITE	Prompt: $C(7),$$AVHLPTXT(1),! Line Location: AASK1+4
Function Call: WRITE	Prompt: $C(7),"This has been used previously as an ACCESS CODE.",! Line Location: AASK1+6
Function Call: WRITE	Prompt: "Please re-type the new code to show that I have it right: " Line Location: REASK+1
Function Call: WRITE	Prompt: "This doesn't match. Try again!",!,$C(7) Line Location: REASK+1
Function Call: WRITE	Prompt: "OK, Access code has been changed!" Line Location: AST+1
Function Call: WRITE	Prompt: !,"The VERIFY CODE has been deleted as a security measure.",!,"You will need to enter a new VERIFY code so the user can sign-on.",$C(7) Line Location: AST+5
Function Call: WRITE	Prompt: ! Line Location: CLR+1
Function Call: WRITE	Prompt: !,"OK, remember this code for next time!" Line Location: NEWCODE+0
Function Call: WRITE	Prompt: !,"You must change your VERIFY CODE at this time." Line Location: CVC+3
Function Call: WRITE	Prompt: "Enter a new VERIFY CODE: " Line Location: VASK1+0
Function Call: WRITE	Prompt: $C(7),$P(Y,U,2,9),! Line Location: VASK1+2
Function Call: WRITE	Prompt: !?9 Condition for execution: $X>55 Line Location: DEL+1
Function Call: WRITE	Prompt: $C(7)," <Nothing Deleted>" Line Location: DEL+1
Function Call: WRITE	Prompt: "The new ACCESS CODE is: ",XUU," This is ",XUK," of 3 tries." Line Location: AGEN+2
Function Call: WRITE	Prompt: !,"Here is an example of an acceptable Access Code: ",XUU,! Line Location: AHELP+1
Function Call: WRITE	Prompt: !,"Here is an example of an acceptable Verify Code: ",XUU,! Line Location: VHELP+1
Function Call: WRITE	Prompt: "The new VERIFY CODE is: ",XUU," This is ",XUK," of 3 tries." Line Location: VGEN+2
Function Call: WRITE	Prompt: !,"O.K. You'll have to keep the next one!",! Line Location: YN+4
Function Call: WRITE	Prompt: !,"Lets stop and you can try later." Line Location: YN+5
Function Call: WRITE	Prompt: ! Line Location: OUT+2
Function Call: WRITE	Prompt: "Please enter your CURRENT verify code: " Line Location: CHK1+0
Function Call: WRITE	Prompt: "Sorry that is not correct!",! Line Location: CHK1+2
Routine Call	DDS Line Location: CLR+3
Routine Call	DIE Line Location: AST+4 VST+4 VST+7
Routine Call	DIR Line Location: DEL+1 YN+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	AASK+1, REASK, VASK+1
^%ZOSF("EON"	DEL+1, AAUTO+2, VAUTO+2, OUT+2
^VA(200 - [#200]	AASK1+5, AASK1+6, VCHK+6, VCHK+7, VCHK+8, AGEN+1, AHELP, VHELP, VGEN+1, CHKCUR+2 , CHK1+1, BRCVC+3
^XMB(3.7 - [#3.7]	AST+7
^XTV(8989.3 - [#8989.3]	ACCED+4, VERED+4

Label References

Name	Line Occurrences
$$AVHLPTXT	AASK1+3, AASK1+4, VCHK+4
$$CHKCUR	VASK+1
$$SVCACCT	VERED+1, VST+6
$$VCHK	VASK1+2, BRCVC+4
AASK	AC1
AASK1	AASK+3
AAUTO	AC1
AC1	AC1
AGEN	AAUTO+2, AGEN+1
AHELP	AASK1+3, AHELP
AST	AC1
CHK1	CHK1+3
CLR	AC1, AASK1+3, AASK1+4, AASK1+6, REASK, REASK+1, VC1, VASK+1, VASK1+2, AGEN+2 , VGEN+2, YN+6, CHKCUR+3, CHK1+2
DEL	AASK1+2, VASK1+1
DIRUT	AASK1+2, REASK+1, GET+1, VASK+1, VASK1+1, YN+5
GET	AASK1+1, REASK+1, VASK1, CHK1
OUT	AC1, AC1+1, NEWCODE+1, VC1, VC1+2
REASK	AC1, NEWCODE, VC1
VASK	VC1
VASK1	VASK1+2
VAUTO	VC1
VC1	VC1
VGEN	VAUTO+2, VGEN+1
VHELP	VASK1+2, VHELP
VST	AST+6, VC1, BRCVC+5
YN	AGEN+3, VGEN+3

Naked Globals

Name	Field # of Occurrence
^(	VCHK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VST~, VST+1, AVHLPTXT~, AVHLPTXT+1
DA	AASK1+5, AST+3, AST+7, CVC+1~, CVC+2, VERED+1, VERED+4, VC1+1, VCHK+3, VCHK+6 , VCHK+7, VCHK+8, VST+2, VST+9, VHELP, VGEN+1, CHKCUR+1, CHKCUR+2, CHK1+1, BRCVC+2 , BRCVC+5
>> DDS	CLR+1
>> DDSHBX	CLR+3
DIR	ACCED+3~, VERED+1~, YN+1~, OUT+3!
DIR("?"	YN+2*
DIR("A"	DEL+1, YN+2, YN+3*
DIR("B"	YN+2*
DIR(0	DEL+1, YN+2
DIR0	ACCED+3~, VERED+1~
DIRUT	AC1, AASK+3, AASK1+1, REASK+1, DIRUT*, VC1, VASK1, AAUTO+2, VAUTO+2, YN+4 , OUT+1, OUT+3!, CHK1
DUOUT	OUT+1!*
DUZ	CVC+2, VERED+4, VST+6, VST+9, CHKCUR+1, BRCVC+2, BRCVC+3
DUZ("NEWCODE"	VST+9*
DX	CLR+2~, CLR+3*
DY	CLR+2~, CLR+3*
EC	VCHK~, VCHK+6, VCHK+7, VCHK+8
ERR	AST+2~, VST+2~, VST+5, VST+7!, VST+8
FDA	AST+2~, VST+2~, VST+7!
FDA(200	AST+4, VST+4, VST+7*
IEN	AST+2~, AST+3, AST+4, VST+2~, VST+4, VST+6, VST+7
>> IOXY	CLR+3
NA	VCHK+2~, VCHK+3*, VCHK+9
NA("FIELD"	VCHK+3*
NA("FILE"	VCHK+3*
NA("IENS"	VCHK+3*
PUNC	VCHK+2~*
S	VCHK~, VCHK+4, VCHK+5, VCHK+9
U	ACCED+4, VERED+4, VASK1+2, VCHK+6, VCHK+8, VHELP, VGEN+1, CHKCUR+2, CHK1+1
X	ACCED+1, ACCED+2!, AASK+1~, AASK1+2, AASK1+3, AASK1+4, AASK1+5, REASK+1, REASK+2, GET+1* , GET+2, CVC+1~, CVC+2, VERED+2, VERED+3!, VASK+1~, VASK1+1, VASK1+2, AGEN+1, AHELP , VHELP, VGEN+1, OUT+3*, CHK1+1
>> XMB	AASK1+5*
>> XMB(1	AASK1+5*
>> XMDUN	AASK1+5*
XUAUTO	ACCED+3~, ACCED+4, AC1, AASK1+4, VERED+1~, VERED+4, VC1, OUT+3!
XUEX	AASK+1~, AASK+2, AASK+3, AASK1+2, AASK1+7*
XUH	ACCED+4, AC1, AASK1+2, AASK1+5, AASK1+6, REASK, REASK+1, REASK+2, AST~, AST+4 , VERED+4, VC1, VASK1+1, VASK1+2, VST~, VST+1, VST+3, VST+4, VST+6, VST+9 , AGEN+1, VGEN+1, OUT+3!, BRCVC+1~, BRCVC+2, BRCVC+4, BRCVC+5
XUI	OUT+3!
XUK	ACCED+3~, AC1, REASK, REASK+1, REASK+2, NEWCODE, VC1, AAUTO+1~, AAUTO+2, AGEN+2 , VAUTO+1~, VAUTO+2, VGEN+2, YN+3, YN+4, YN+5, OUT+3!, CHKCUR+3, CHK1+3*
XUKO	OUT+3!
>> XUNC	VASK1+1
XUPAT	VCHK+2~, VCHK+3*, VCHK+5
XUSDUZ	SVCACCT~, SVCACCT+1
XUSVCACCT	VERED+1~*
XUSVCMIN	VERED+1~, VCHK+3, VCHK+4, BRCVC+1~, AVHLPTXT+1
XUU	AASK+1~, AASK1+5, VASK+1~, VASK1+2, AGEN+1, AGEN+2, AHELP, AHELP+1, VHELP, VHELP+1 , VGEN+1, VGEN+2, OUT+3!, BRCVC+1~
XV1	BRCVC~, BRCVC+3
XV2	BRCVC~, BRCVC+2, BRCVC+4
Y	AASK1+2, AST+7, VASK1+1, VASK1+2, DEL+1, AAUTO+1~, AAUTO+2, VAUTO+2, YN+2, YN+4 , YN+5, BRCVC+4

Customize PDF page

Package: Kernel

Routine: XUS2

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: