Routine: XUSER2

Information

XUSER2 ;ISF/RWF - New Person File Utilities ;02/01/2012

Source file <XUSER2.m>

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL (REQ,UNED)^DDSUTL ($$GET,PUT)^DDSVAL FILE^DIE

Package	Total	Caller Graph
Kernel	1	^DIC(4

Name	Comments	DBIA/ICR reference
DEANUM(X)	;Check DEA # part
VANUM	;Check that the VA# is not Active for anybody else. Called from ^DD(200,53.3,0)
SETUPN(RET,V)	;Set the SUBJECT ALTERNATIVE NAME from the PIV card. -p580	ICR #5816 Status: Active Usage: Controlled Subscription
GETUPN(RET)	;Get SUBJECT ALTERNATIVE NAME for PIV card check. -p580	ICR #5816 Status: Active Usage: Controlled Subscription
REQ(XUV,XUFLAG)	;Called from forms: ; XUEXISTING USER, XUNEW USER, XUREACT USER, XU-CLINICAL TRAINEE
VALDEA(X,F)	;Check for a valid DEA#

RPC Name	Call Tags
XUS PKI GET UPN	GETUPN
XUS PKI SET UPN	SETUPN

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	VALDEA+5, VALDEA+6, VANUM+4, VANUM+6, GETUPN+1

Name	Line Occurrences
$$DEANUM	VALDEA+7

Name	Field # of Occurrence
^(	VALDEA+5
^("PS"	VANUM+6

Name	Field # of Occurrence
%	VANUM+3~, VANUM+5, VANUM+6
BLOCK	REQ+12~, REQ+16, REQ+18, REQ+39, REQ+42, REQ+43, REQ+45, REQ+53, REQ+55, REQ+59 , REQ+61, REQ+62, REQ+64
>> DA	VALDEA+5, VALDEA+6, VANUM+2, VANUM+6, REQ+23, REQ+41, REQ+49, REQ+50
DT	VANUM+6
DUZ	GETUPN+1, SETUPN+2
ERR	SETUPN+1~, SETUPN+3
F	VALDEA~, VALDEA+4*, VALDEA+5, VALDEA+6
F122	REQ+48~, REQ+49*, REQ+51, REQ+57
F126	REQ+12~, REQ+25*, REQ+36, REQ+47
F127	REQ+48~, REQ+50*, REQ+57
FDA	SETUPN+1~
FDA(200	SETUPN+2*
FIELD	REQ+12~, REQ+37~, REQ+39, REQ+41, REQ+42, REQ+43, REQ+45, REQ+48~, REQ+53, REQ+55 , REQ+59, REQ+61, REQ+62, REQ+64
PAGE	REQ+12~, REQ+16, REQ+19, REQ+39, REQ+42, REQ+43, REQ+45, REQ+53, REQ+55, REQ+59 , REQ+61, REQ+62, REQ+64
RET	GETUPN~, GETUPN+1, SETUPN~, SETUPN+2, SETUPN+3*
U	GETUPN+1
V	SETUPN~, SETUPN+2
VA1	DEANUM+1~, DEANUM+2, DEANUM+3, DEANUM+4
VA2	DEANUM+1~, DEANUM+3*, DEANUM+4
X	VALDEA~, VALDEA+3!, VALDEA+5!, VALDEA+6, VALDEA+7!, VALDEA+8, DEANUM~, DEANUM+2, DEANUM+3, VANUM+2 , VANUM+4, VANUM+6!, VANUM+8
XUFLAG	REQ~, REQ+16
XUV	REQ~, REQ+21, REQ+23, REQ+24, REQ+25
ZERR	REQ+22~, REQ+23, REQ+48~, REQ+49, REQ+50