Routine: XUSERNEW

Call Graph Total: 17

Package	Total	Call Graph
Kernel	9	$$NOW^XLFDT KEY^XQ6 REACT^XQ84 $$ADD^XQKEY $$GET^XUPARAM XUDIE^XUS5 $$LOOKUP^XUSER CALL^XUSERP $$ADDNPI^XUSNPI
VA Fileman	6	^DIC (,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIR EN2^DIWF
MailMan	2	NEW^XM ENLOCAL1^XMVGRP

Package	Total	Caller Graph
Kernel	4	XUSERBLK XUSERNEW XUSERREACT XUSERREPRINT
IHS VA Support Files	1	AVA200
Outpatient Pharmacy	1	PSOPRVW

Package

Total

Caller Graph

Kernel

XUSERBLK XUSERNEW XUSERREACT XUSERREPRINT

IHS VA Support Files

AVA200

Outpatient Pharmacy

PSOPRVW

Entry Points

Name	Comments	DBIA/ICR reference
RE2
EN	;Add
ADD(NP1,KEYS,NONC)	;Common point to do DIC call for adding a new person.	ICR #10053 Status: Active Usage: Supported
KEYS
LETTER(XUN,ASK)	;Print access letter
REACT	;SEA/WDE-REACTIVATE A USER
RE	;Jump from new user to reactivate
EXIT
AX
REPRINT	;Reprint letter

External References

Name	Field # of Occurrence
^DIC	ADD+8
^DIE	ADD+12, ADD+18, ADD+32
UPDATE^DIE	RE2+2
^DIK	ADD+22, ADD+24, ADD+26
$$GET1^DIQ	EN+6, RE2+8
^DIR	KEYS+1, KEYS+7, RE+2, RE2+11, LETTER+5
EN2^DIWF	LETTER+6
$$NOW^XLFDT	ADD+29
NEW^XM	EN+7, RE2+12
ENLOCAL1^XMVGRP	KEYS+8
KEY^XQ6	KEYS+2
REACT^XQ84	RE2+13
$$ADD^XQKEY	ADD+35
$$GET^XUPARAM	EN+4, RE2+4, LETTER+3
XUDIE^XUS5	EN+5, RE2+5
$$LOOKUP^XUSER	REACT+2, REPRINT+1
CALL^XUSERP	ADD+36
$$ADDNPI^XUSNPI	ADD+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Without a VERIFY code the user will not be able to sign-on!",$C(7),! Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+9
Function Call: WRITE	Prompt: !!,"No ACCESS CODE has been entered.",$C(7),! Line Location: RE2+6
Function Call: WRITE	Prompt: !!,"User is still TERMINATED.",$C(7),! Line Location: RE2+7
Function Call: WRITE	Prompt: !,"Without a VERIFY code the user will not be able to sign-on!",$C(7),! Line Location: RE2+8
Function Call: WRITE	Prompt: !,"Name components." Line Location: ADD+10
Function Call: WRITE	Prompt: !,"Now for the Identifiers." Line Location: ADD+16
Function Call: WRITE	Prompt: !?5,"<'",$P(^VA(200,DA,0),U),"' DELETED>" Line Location: ADD+21
Function Call: WRITE	Prompt: !,"Key '",Y,"' not allocated" Line Location: ADD+35
Routine Call	DIE Line Location: RE2+2
Routine Call	DIE Line Location: ADD+12 ADD+18 ADD+32
Routine Call	DIC Line Location: ADD+8
Routine Call	DIR Line Location: KEYS+1 KEYS+7 RE+2 RE2+11 LETTER+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(16	ADD+25
^DD(3	ADD+23
^DIC(16 - [#16]	ADD+25
^DIC(3 - [#3]	ADD+23, ADD+24
^DIC(9.2 - [#9.2]	LETTER+3
^VA(20 - [#20]	ADD+12
^VA(200 - [#200]	KEYS+5, RE2, RE2+6, RE2+7, ADD+9, ADD+14, ADD+18, ADD+21, ADD+27
^XMB(3.9 - [#3.9]	RE2+12
^XTV(8989.3 - [#8989.3]	ADD+4
^XUSEC("XUSPF200"	ADD+5

Name	Line Occurrences
$$ADD	EN+2
AX	ADD+8
EXIT	EN+2, EN+5, KEYS+1, RE+3, REACT+2, RE2+5, RE2+11, REPRINT+1, REPRINT+3
KEYS	RE2+14
LETTER	EN+9, REPRINT+2
RE	EN+2
RE2	RE+3

Name	Field # of Occurrence
^("NPI"	ADD+4
^(0	RE2+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADD+35*
ASK	LETTER~, LETTER+5
BY	LETTER+2~, LETTER+6*
D0	EXIT!
DA	EN+1~, EN+5, EXIT!, REACT+1~, RE2+4, ADD+3~, ADD+9, ADD+12, ADD+13, ADD+17* , ADD+18, ADD+21, ADD+24, ADD+26, ADD+27, ADD+29, ADD+32~, REPRINT+1*, REPRINT+2
DDER	EXIT!
DDSFILE	EXIT!
DI	EXIT!
DIC	EXIT!, REACT+1~, ADD+3~, ADD+7*
DIC("A"	ADD+7*
DIC("DR"	ADD+7*
DIC(0	ADD+7*
DICR	EXIT!
DIE	EN+1~, EN+5, EXIT!, REACT+1~, RE2+4, ADD+3~, ADD+11, ADD+17, ADD+32~*
DIE("NO^"	ADD+17*
DIG	EXIT!
DIH	EXIT!
DIK	ADD+3~, ADD+22, ADD+24, ADD+26*
DIR	EN+10!, KEYS~, KEYS+6~, EXIT!, RE2+9~, LETTER+2~
DIR("?"	RE2+10*
DIR("A"	KEYS+1, KEYS+7, RE+1, RE2+10, LETTER+4*
DIR("B"	KEYS+1, KEYS+7, RE+1, RE2+10
DIR(0	KEYS+1, KEYS+7, RE+1, RE2+10, LETTER+4*
>> DIRUT	KEYS+1, KEYS+7, RE+3, RE2+11
DISYS	EXIT!
DIU	EXIT!
DIV	EXIT!
DIWF	EN+1~, EN+10!, LETTER+2~, LETTER+6*
DIWF(1	LETTER+6*
DIWT	EXIT!
DLAYGO	EXIT!, ADD+3~, ADD+7*
DQ	EXIT!
DR	EN+1~, EN+4, EXIT!, REACT+1~, RE2+4, ADD+3~, ADD+4, ADD+11, ADD+17, ADD+32~*
DT	RE2+7
DTOUT	EN+1~, EN+5, EXIT!, RE2+5, ADD+13, ADD+19
DUZ	ADD+5
FDA	REACT+1~
FDA(200	RE2+1*
FR	LETTER+2~, LETTER+6*
I	EXIT!
K	EXIT!
KEYS	ADD~, ADD+34
NONC	ADD~, ADD+9
NP1	ADD~, ADD+17
NP2	ADD+3~, ADD+4, ADD+5, ADD+17
TO	LETTER+2~, LETTER+6*
U	EN+2, KEYS+5, RE2+6, RE2+7, ADD+8, ADD+14, ADD+21, ADD+23, ADD+24, ADD+25
X	EXIT!
X1	EXIT!
XMB	EXIT!
XMDT	EN+1~, EN+7!, RE2+12!
XMDUN	KEYS+9!
XMDUZ	KEYS+9!
XMM	EN+1~, EN+7!, RE2+12!
XMV	KEYS+9!
XMZ	EN+1~, EN+7!, EXIT!, RE2+12!*
XQ6	KEYS~, KEYS+2*, EXIT!
XQAL	KEYS~, KEYS+2*
XQDA	KEYS~, KEYS+2*
XQFL	KEYS~, KEYS+2*, EXIT!
XQHOLD	KEYS~, EXIT!
XQHOLD(	KEYS+2*
XQKEY	KEYS~, EXIT!
XQKEY(0	KEYS+2*
XUITNAME	ADD+3~, ADD+7*
XUN	EN+1~, EN+3, EN+5, EN+6, EN+7, EN+9, KEYS+2, KEYS+5, KEYS+8, EXIT! , RE+1, REACT+1~, REACT+2*, RE2, RE2+1, RE2+4, RE2+6, RE2+7, RE2+8, RE2+12 , RE2+13, LETTER~, LETTER+1, LETTER+6
XUS1	ADD+3~, ADD+8, ADD+9, ADD+13, ADD+14, ADD+15, ADD+17, ADD+19, ADD+20, ADD+24 , ADD+25, ADD+26, ADD+28, ADD+32, ADD+34, ADD+35, ADD+36, AX
XUS2	ADD+3~, ADD+34*
XUSNPI	ADD+27~, ADD+28, ADD+29, ADD+31
XUSOLD	EXIT!, REACT+1~, RE2*
XUTEXT	EN+10!, LETTER+2~, LETTER+3*, LETTER+5
>> XUU	LETTER+6*
>> XUU2	LETTER+6*
Y	EN+1~, EN+2, EN+3, EN+7, KEYS+2, KEYS+6~, KEYS+8, EXIT!, RE+1, RE+3 , RE2+12, ADD+3~, ADD+8, ADD+13, ADD+19, ADD+34, ADD+35, LETTER+5*
Z	EXIT!

Customize PDF page

Package: Kernel

Routine: XUSERNEW

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: