Reference Type: Supported, Category: Signon/Security, Integration Agreement: 10053
This extrinsic function adds new entries to the NEW PERSON file (#200). It was modified with Kernel Patch XU*8.0*134. After prompting for the user's name, it parses the input into its component parts, and then prompts for each name component separately, presenting the parsed input as defaults. It then prompts for the default identifiers for the NEW PERSON file (#200) entry in the following order:
If the user of this function has the XUSPF200 security key, entry of the
SSN is not required. The default identifiers can be locally modified by
modifying the NEW PERSON IDENTIFIERS field in the KERNEL SYSTEM PARAMETERS file
To prompt for additional fields during this call, you pass a DR string containing the field(s) for which you wish to prompt as a parameter to this function. If the person adding the entry enters a caret ("^") to exit out before filling in all the identifiers and requested fields, the entry will be removed from the NEW PERSON file (#200), and -1 will be returned.
(optional) Additional fields to ask when adding the new user, in
the format for a DR string as used in a standard DIC call.
(optional) A comma-delimited string of keys to assign to the newly created user.
Returns a value similar in format to the value of "Y" returned from a standard DIC call:
NOTE: For information about DIC, please refer to the VA FileMan documentation for information about DIC.
To add a new user, asking default fields for new entry:
>S X=$$ADD^XUSERNEW Enter NEW PERSON's name (Family,Given Middle Suffix): KRNUSER,TWO E Are you adding 'KRNUSER,TWO E' as a new NEW PERSON (the 1602ND)? No// Y <Enter> (Yes) Checking SOUNDEX for matches. No matches found. Name components. FAMILY (LAST) NAME: KRNUSER// <Enter> GIVEN (FIRST) NAME: TWO// <Enter> MIDDLE NAME: E// <Enter> SUFFIX: <Enter> Now for the Identifiers. INITIAL: TEK SSN: 000222222 SEX: M <Enter> MALE >W X 1000118^KRNUSER,TWO E^1 >
To add a new user, specifying a key to add:
To add a new user, specifying additional fields to ask, plus two keys to add:
August 26, 2011