XUSER2 ;ISF/RWF - New Person File Utilities ;02/01/2012
Source file <XUSER2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VALDEA(X,F) | ;Check for a valid DEA#
|
|
| DEANUM(X) | ;Check DEA # part
|
|
| VANUM | ;Check that the VA# is not Active for anybody else. Called from ^DD(200,53.3,0)
|
|
| GETUPN(RET) | ;Get SUBJECT ALTERNATIVE NAME for PIV card check. -p580
|
|
| SETUPN(RET,V) | ;Set the SUBJECT ALTERNATIVE NAME from the PIV card. -p580
|
|
| REQ(XUV,XUFLAG) | ;Called from forms:
; XUEXISTING USER, XUNEW USER, XUREACT USER, XU-CLINICAL TRAINEE |
| RPC Name | Call Tags |
|---|---|
| XUS PKI GET UPN | GETUPN |
| XUS PKI SET UPN | SETUPN |
