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;8932.1;.01~2~3~[5]^PERSON CLASS~EFFECTIVE
DATE~EXPIRATION DATE~[VA CODE]^<1-n>^~~~^~~~"
@XURET@(#)="200;53.1^AUTHORIZED TO WRITE MED ORDERS^^^"
@XURET@(#)="200;53.11^DETOX/MAINTENANCE ID NUMBER^^^"
@XURET@(#)="200;53.4^INACTIVE DATE^^^"
@XURET@(#)="200;53.5^PROVIDER CLASS^^^"
@XURET@(#)="200;53.6^PROVIDER TYPE^^^"
@XURET@(#)="200;53.9^REMARKS^^^"
@XURET@(#)="200;53.91^NON-VA PRESCRIBER^^^"
@XURET@(#)="200;53.92^TAX ID^^^"
@XURET@(#)="200;55.1^SCHEDULE II NARCOTIC^^^"
@XURET@(#)="200;55.2^SCHEDULE II NON-NARCOTIC^^^"
@XURET@(#)="200;55.3^SCHEDULE III NARCOTIC^^^"
@XURET@(#)="200;55.4^SCHEDULE III NON-NARCOTIC^^^"
@XURET@(#)="200;55.5^SCHEDULE IV^^^"
@XURET@(#)="200;55.6^SCHEDULE V^^^"
The following fields are returned ONLY if Patch XU*8.0*688 is
installed!
@XURET@(#)="200;9001^DETOX CALCULATED^^^"
@XURET@(#)="200;53.21;.01~.02^DEA NUMBER~ INDIVIDUAL DEA
SUFFIX^<1-n>^~~^~~"
*Only returned if there is a DEA NUMBER (200.5321) value!
Immediately follows DEA NUMBER and <#> will match DEA NUMBER
Subscript*
@XURET@(#)="8991.9;.02^BUSINESS ACTIVITY CODE^<#>^^"
@XURET@(#)="8991.9;.03^DETOX NUMBER^<#>^^"
@XURET@(#)="8991.9;.04^EXPIRATION DATE^<#>^^"
@XURET@(#)="8991.9;.06^USE FOR INPATIENT ORDERS?<#>^"
@XURET@(#)="8991.9;.07^TYPE^<#>^^"
@XURET@(#)="8991.9;1.1^NAME (PROVIDER OR INSTITUTION)<#>^"
@XURET@(#)="8991.9;1.2^STREET ADDRESS 1^<#>^^"
@XURET@(#)="8991.9;1.3^STREET ADDRESS 2^<#>^^"
@XURET@(#)="8991.9;1.4^STREET ADDRESS 3^<#>^^"
@XURET@(#)="8991.9;1.5^CITY^<#>^^"
@XURET@(#)="8991.9;1.6^STATE^<#>^^"
@XURET@(#)="8991.9;1.7^ZIP CODE^<#>^^"
@XURET@(#)="8991.9;2.1^SCHEDULE II NARCOTIC?<#>^"
@XURET@(#)="8991.9;2.2^SCHEDULE II NON-NARCOTIC?<#>^"
@XURET@(#)="8991.9;2.3^SCHEDULE III NARCOTIC?<#>^"
@XURET@(#)="8991.9;2.4^SCHEDULE III NON-NARCOTIC?<#>^"
@XURET@(#)="8991.9;2.5^SCHEDULE IV<#>^"
@XURET@(#)="8991.9;2.6^SCHEDULE V<#>^"
@XURET@(#)="8991.9;10.1^LAST UPDATED BY^<#>^^"
@XURET@(#)="8991.9;10.2^LAST UPDATED DATE/TIME^<#>^^"
@XURET@(#)="8991.9;10.3^LAST DOJ UPDATE DATE/TIME^<#>^^"
@XURET@(#)="200;20.2^SIGNATURE BLOCK PRINTED NAME^^^"
@XURET@(#)="200;20.3^SIGNATURE BLOCK TITLE^^^"
@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