XUS MVI NEW PERSON BULK GET

TITLEVALUE
NAMEXUS MVI NEW PERSON BULK GET
DESCRIPTIONThis restricted RPC is used exclusively by the Master Veteran Index (MVI)
to retrieve data in bulk from the VistA NEW PERSON file (#200).
TAGBULKGET
ROUTINEXUMVINPB
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERXUDUZ
DESCRIPTIONThe File IEN in the NEW PERSON file (#200). The RPC will START looping
with this IEN to retrieve the 'NEXT' NEW PERSON meeting the selected
criteria.
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH40
INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERXUTYPE
DESCRIPTIONThe TYPE of NEW PERSON's to retrieve from the NEW PERSON (#200) file:

'A'ctive (not disuser'd, not terminated and has a primary menu option)
'D'isuser'd or Terminated
'V'isitor (person has visitor records)
'ALL' (retrieve all new person's)
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH3
RETURN VALUE TYPEGLOBAL ARRAY
RETURN PARAMETER DESCRIPTION Success:
XURET = ^TMP("XUMVINPU",$J)
@XURET@(#) = FILE #;FIELD #;;^FIELD NAME^^
INTERNAL VALUE^EXTERNAL VALUE
<> Denotes optional values.
If Counter populated, denotes multiple value <1-n>

@XURET@(#)="200;IEN^DUZ^^^"
@XURET@(#)="200;.01^NAME^^^"
@XURET@(#)="200;.111^STREET ADDRESS 1^^^"
@XURET@(#)="200;.112^STREET ADDRESS 2^^^"
@XURET@(#)="200;.113^STREET ADDRESS 3^^^"
@XURET@(#)="200;.114^CITY^^^"
@XURET@(#)="200;.115^STATE^^^"
@XURET@(#)="200;.116^ZIP CODE^^^"
@XURET@(#)="200;.132^OFFICE PHONE^^^"
@XURET@(#)="200;.151^EMAIL ADDRESS^^^"
@XURET@(#)="200;4^SEX^^^"
@XURET@(#)="200;5^DOB^^^"
@XURET@(#)="200;7^DISUSER^^^"
@XURET@(#)="200;8^TITLE^^^"
@XURET@(#)="200;9^SSN^^^"
@XURET@(#)="200;9.2^TERMINATION DATE^^^"
@XURET@(#)="200;16;.01^DIVISION^<1 to n>^^"
@XURET@(#)="200;10.1^NAME COMPONENTS^^^"
@XURET@(#)="20;1^FAMILY (LAST) NAME^^^"
@XURET@(#)="20;2^GIVEN (FIRST) NAME^^^"
@XURET@(#)="20;3^MIDDLE NAME^^^"
@XURET@(#)="20;4^PREFIX^^^"
@XURET@(#)="20;5^SUFFIX^^^"
@XURET@(#)="20;6^DEGREE^^^"
@XURET@(#)="200;29^SERVICE/SECTION^^^"
@XURET@(#)="200;205.1^SECID^^^"
@XURET@(#)="200;205.2^SUBJECT ORGANIZATION^^^"
@XURET@(#)="200;205.3^SUBJECT ORGANIZATION ID^^^"
@XURET@(#)="200;205.4^UNIQUE USER ID^^^"
@XURET@(#)="200;205.5^ADUPN^^^"
@XURET@(#)="200;501.1^NETWORK USERNAME^^^"
@XURET@(#)="200;41.99^NPI^^^"
@XURET@(#)="200;53.2^DEA#^^^"
@XURET@(#)="200;747.44^DEA EXPIRATION DATE^^^"
@XURET@(#)="200;201^PRIMARY MENU OPTION^^^"
@XURET@(#)="200;203;.01^SECONDARY MENU OPTIONS^<1 to n>^^"
@XURET@(#)="200;51;.01^KEY^<1 to n>^^"
@XURET@(#)="200;8910;.01~2^VISITED FROM~DUZ AT HOME SITE^<1 to n>^~^~"
@XURET@(#)="200;101.13;.01~.02~.03^CPRS TAB~EFFECTIVE DATE~EXPIRATION
DATE^<1 to n>^~~^~~"
@XURET@(#)="200;EOF^EOF^" - if end of new person file reached

Fail:
@XURET@(#)="-1^No Data to Retrieve"
AVAILABILITYAGREEMENT
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION1
SUPPRESS RDV USER SETUP
APP PROXY ALLOWEDNo